WarCraft 3

как сделать 3 разных действия с одной периодичностью по таймеру?

Добавлен host_pi

[JASS]

как сделать 3 разных действия с одной периодичностью по таймеру?

Алгоритм:

запуск тригера - из чата
остановка тригера - тоже из чата
действие1 через 0.3 сек (итого 0,3)
действие2 через 0.3 сек (итого 0,6)
действие3 через 0.3 сек (итого 0,9)
действие1 через 0.3 сек (итого 1,2)
действие2 через 0.3 сек (итого 1,5)
действие3 через 0.3 сек (итого 1,8)
итд

набросал корявый код, нерабочий конечно:

globals
integer Go=0
integer N=0
endglobals

function Test_Act takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())
if ModuloInteger(N,3)==1 then
//0.3
call BJDebugMsg("111 "+I2S(i))
elseif ModuloInteger(N,3)==2 then
//0.6
call BJDebugMsg("222 "+I2S(i))
elseif ModuloInteger(N,3)==3 then
//0.9
call BJDebugMsg("333 "+I2S(i))
endif
set N=N+1
endfunction

function Test_Init takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())
local trigger t=CreateTrigger()
local timer time=CreateTimer()
If Go=0 then
set Go=1
call EnableTrigger(t)
else
set Go=0
call DisableTrigger(t)
call PauseTimer(time)
endif
//ver1
call TriggerRegisterTimerEventPeriodic(t, 0.3)
call TriggerAddAction(t, function Test_Act)
//ver2
call TimerStart(time, 0.3, true, function Test_Act)
endfunction

function Event takes nothing returns nothing
local string s=StringCase(GetEventPlayerChatString(),false)
if s=="-t" then
call Test_Init()
endif
endfunction

0

`

ОЖИДАНИЕ РЕКЛАМЫ...

Показан только небольшой набор комментариев вокруг указанного. Перейти к актуальным.

Алексей Андреич 1 год назад

Syntax error (unexpected if)

там точка с запятой нужна...

...
n += 1;

host_pi 1 год назад
Отредактирован host_pi

! zinc

zinc to jass:

globals
integer MyTimerLib___n=-1
timer MyTimerLib___ticker=CreateTimer()
integer MyTimerLib___i=GetPlayerId(GetTriggerPlayer())
endglobals

function MyTimerLib___anon__0 takes nothing returns nothing
set MyTimerLib___n=MyTimerLib___n+1
if(MyTimerLib___n==0)then
call BJDebugMsg("111 "+I2S(MyTimerLib___i))
endif
if(MyTimerLib___n==1)then
call BJDebugMsg("222 "+I2S(MyTimerLib___i))
endif
if(MyTimerLib___n==2)then
call BJDebugMsg("333 "+I2S(MyTimerLib___i))
set MyTimerLib___n=-1
endif
endfunction

function MyTimerLib___onInit takes nothing returns nothing
call TimerStart(MyTimerLib___ticker,.3,true,function MyTimerLib___anon__0)
endfunction
call ExecuteFunc("MyTimerLib___onInit")

как передать GetPlayerId(GetTriggerPlayer()) в таймерную функцию MyTimerLib___anon__0 ?
или таймер такого не может - поэтому надо перебором всех плееров?

Poma 1 год назад
Отредактирован Poma

host_pi, кем в данном случае должен быть trigger player?

nazarpunk 1 год назад
Отредактирован nazarpunk

как передать GetPlayerId(GetTriggerPlayer()) в таймерную функцию MyTimerLib___anon__0 ?

Через глобалку или через ХТ. Вот пример через глобалку сделал.

//! zinc
library MyTimerLib {
    integer n = - 1;
    timer ticker = CreateTimer();
    string msg = "-run";
    boolean running = false;
    player p;
    
    function onInit() {
        trigger t = CreateTrigger();

        for (0 <= i < bj_MAX_PLAYER_SLOTS){
            if ( GetPlayerController(Player(i)) == MAP_CONTROL_USER && GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING)
                TriggerRegisterPlayerChatEvent(t, Player(i), msg, false);
        }

        TriggerAddAction(t, function(){
            p = GetTriggerPlayer();
            if (running) {
                PauseTimer(ticker);
                n = -1;
                running = false;
                BJDebugMsg("stop");
                return;
            }
            running = true;

            TimerStart(ticker, .3, true, function() {
                n += 1;

                if (n == 0) {
                    BJDebugMsg("action 1: " + I2S(i));
                }

                if (n == 1) {
                    BJDebugMsg("action 2: " + I2S(i));
                }

                if (n == 2) {
                    BJDebugMsg("action 3: " + I2S(i));
                    n = - 1;
                }
            });
        });

        t = null;
    }
}
//! endzinc

host_pi 1 год назад
Отредактирован host_pi

не получается одной функцией обрабатывать отдельные таймеры под каждого игрока
каждый новый игрок включивший таймер ускоряет тик у каждого включившего.
т.е. если 3 игрока запустят таймер - то у всех из них тик будет чаще в 3 раза

или это надо делать своей отдельной функцией под каждого игрока?
т.е Spell_1 Spell_2 Spell_3 + OnPeriodic_1 OnPeriodic_2 OnPeriodic_3
бред конечно, что нельзя в таймерную функцию передавать переменные. кто-то запустил функцию по таймеру, а кто? да хз кто, тикает и ладно

globals
integer PLAYERS=12
integer array N
timer array Ti
timer array TIME
integer array GO
endglobals

function OnPeriodic takes nothing returns nothing
local integer i=1
loop
exitwhen i>PLAYERS
if GO[i]==1 then
set Ti[i] = GetExpiredTimer()
call BJDebugMsg("timer  i "+I2S(i)+"__GO[i] "+I2S(GO[i])+"__N [i] "+I2S(N[i])+"__Name "+GetPlayerName(Player(i-1)))
set N[i]=N[i]+1
endif
if GO[i]==0 then
call PauseTimer(Ti[i])
call DestroyTimer(Ti[i])
endif
set i=i+1
endloop
set Ti[i] = null
endfunction

function Spell takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
set TIME[i] = CreateTimer()
call BJDebugMsg("TIME "+I2S(i))
call TimerStart(TIME[i], 1, true, function OnPeriodic)
set TIME[i] = null
endfunction

function GOO takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
if GO[i]==0 then
set GO[i]=1
call BJDebugMsg("GO 1")
call Spell()
else
set GO[i]=0
call BJDebugMsg("GO 0")
set N[i]=0
endif
endfunction

function Start takes nothing returns nothing
local string s=StringCase(GetEventPlayerChatString(),false)
if s=="-g" then
call GOO()
endif
endfunction

function Start_init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=1
loop
exitwhen i>PLAYERS
call TriggerRegisterPlayerChatEvent(t,Player(i-1),"-",false)
set i=i+1
endloop
call TriggerAddAction(t,function Start)
endfunction

Вот пример через глобалку сделал.

подпилил строки, так вроде?

integer i = 0;
BJDebugMsg("action 1: " + I2S(GetPlayerId(p)));
BJDebugMsg("action 2: " + I2S(GetPlayerId(p)));
BJDebugMsg("action 3: " + I2S(GetPlayerId(p)));

zinc to jass:

globals
integer MyTimerLib__n=-1
timer MyTimerLib__ticker=CreateTimer()
string MyTimerLib__msg="-run"
boolean MyTimerLib__running=false
player MyTimerLib__p
endglobals

function MyTimerLib__anon__1 takes nothing returns nothing
set MyTimerLib__n=MyTimerLib__n+1
if(MyTimerLib__n==0)then
call BJDebugMsg("action 1: "+I2S(GetPlayerId(MyTimerLib__p)))
endif
if(MyTimerLib__n==1)then
call BJDebugMsg("action 2: "+I2S(GetPlayerId(MyTimerLib__p)))
endif
if(MyTimerLib__n==2)then
call BJDebugMsg("action 3: "+I2S(GetPlayerId(MyTimerLib__p)))
set MyTimerLib__n=-1
endif
endfunction

function MyTimerLib__anon__0 takes nothing returns nothing
set MyTimerLib__p=GetTriggerPlayer()
if(MyTimerLib__running)then
call PauseTimer(MyTimerLib__ticker)
set MyTimerLib__n=-1
set MyTimerLib__running=false
call BJDebugMsg("stop")
return
endif
set MyTimerLib__running=true
call TimerStart(MyTimerLib__ticker,.3,true,function MyTimerLib__anon__1)
endfunction

function MyTimerLib__onInit takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=0
set i=0
loop
exitwhen(i>=bj_MAX_PLAYER_SLOTS)
if(GetPlayerController(Player(i))==MAP_CONTROL_USER and GetPlayerSlotState(Player(i))==PLAYER_SLOT_STATE_PLAYING)then
call TriggerRegisterPlayerChatEvent(t,Player(i),MyTimerLib__msg,false)
endif
set i=i+1
endloop
call TriggerAddAction(t,function MyTimerLib__anon__0)
set t=null
endfunction

call ExecuteFunc("MyTimerLib__onInit")

твой код работает если таймер один общий на всех, только я уже дальше пошёл в самом верху этого сообщения, пытаясь запилить свои действия для каждого игрока, пока не выходит чаша

Загруженные файлы

image.png

Borodach 1 год назад

set TIME[i] = null

Мне кажется что лишнее действие

host_pi 1 год назад
Отредактирован host_pi

Мне кажется

пока код не рабочий алгоритмически - есть ли смысл его оптимизировать и причёсывать?

Borodach 1 год назад

Можно один таймер для всех, а когда таймер истекает, то циклом проверять всех игроков и в зависимости переменной записаной на игрока выполнять действия
Или сохранять значение в хеш по id таймера

host_pi 1 год назад
Отредактирован host_pi

Можно один таймер для всех, а когда таймер истекает, то циклом проверять всех игроков и в зависимости переменной записаной на игрока выполнять действия

я уже так попробовал, выше вот в начале этого сообщения , там всё описано. есть идеи по коду? либо свой напилить, либо у меня ошибку найти?

а тем временем я сделал говнокод (который работает) с полностью раздельными таймерами на каждого игрока

т.е Spell_1 Spell_2 Spell_3 + OnPeriodic_1 OnPeriodic_2 OnPeriodic_3

перехожу к триггерам и TriggerRegisterTimerEvent
как доделаю на тригерах - в один пост запощу оба варианта своего решения

Poma 1 год назад
Отредактирован Poma

Важна ли синхронизация срабатываний между игроками? Для каждого игрока свой таймер/триггер, callback один на всех. При запуске таймера в таблицу на ID таймера/триггера записывается нужный игрок, при срабатывании он же читается.

Borodach 1 год назад
Отредактирован Borodach

globals
integer PLAYERS=12
integer array N
timer array Ti
timer array TIME
integer array GO
endglobals

function OnPeriodic takes nothing returns nothing
local integer i=1
loop
exitwhen i>PLAYERS
if GO[i]==1 then
call BJDebugMsg("timer  i "+I2S(i)+"__GO[i] "+I2S(GO[i])+"__N [i] "+I2S(N[i])+"__Name "+GetPlayerName(Player(i-1)))
set GO[i] = 0
endif
set i = i + 1
endloop

endfunction

function Start takes nothing returns nothing
local string s=StringCase(GetEventPlayerChatString(),false)
local integer i=GetPlayerId(GetTriggerPlayer())+1
if s=="-g" then
set GO[i] = 1
endif
endfunction

function Start_init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=1
loop
exitwhen i>PLAYERS
call TriggerRegisterPlayerChatEvent(t,Player(i-1),"-",false)
call TriggerAddAction(t, function Start)
set i=i+1
endloop
set TIME = CreateTimer()
call TimerStart(TIME, 0.3, true, function OnPeriodic)
endfunction

Смысл примерно таков для цыкла

Или каждому свой таймер

function Start_init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=1
loop
exitwhen i>PLAYERS
call TriggerRegisterPlayerChatEvent(t,Player(i-1),"-",false)
call TriggerAddAction(t, function Start)
set TIME[i] = CreateTimer()
call TimerStart(TIME[i], 0.3, true, function OnPeriodic)
set i=i+1
endloop

endfunction

Показан только небольшой набор комментариев вокруг указанного. Перейти к актуальным.

Чтобы оставить комментарий, пожалуйста, войдите на сайт.

Имя пользователя

E-mail

Пароль

Повторите пароль

Язык

Я подтверждаю, что ознакомился(лась) с Правилами пользования сайтом.