Задержка в вызываемой функции

[k1sher]

Подскажите пожалуйста как сделать задержку в вызываемой функции (с примером если не трудно, а то я туповат).
Пример тут -->

0B34: samp register_client_command "gofin" to_label @tatata

:tatata
   SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @tatata_7696
if
   SAMP.IsPlayerConnected(1@)
else_jump @tatata_7653
say "/scandel"
Тут нужна задержка (wait естественно не работает)
say "/final %d Начали" 1@
jump @tatata_7689

:tatata_7653
chatmsg "Использование: /gofin [ID]" 52479

:tatata_7689
jump @tatata_7732

:tatata_7696
chatmsg "Использование: /gofin [ID]" 52479

:tatata_7732
SAMP.CmdRet

 

[DarkP1xel]

Тело команды в поток сунуть.

 

[k1sher]

Тело команды в поток сунуть.

C большим уважением, но пожалуйста можешь ты либо кто-то еще пример дать?

 

[hnnssy]

reg_cmd "cmd" @cmd

while true
wait 0
if 31@ == true
then
    msg "1" -1
    wait 1000
    msg "2" -1
    31@ = false
end
end

:cmd
31@ = true
cmd_ret

 

[k1sher]

reg_cmd "cmd" @cmd

while true
wait 0
if 31@ == true
then
    msg "1" -1
    wait 1000
    msg "2" -1
    31@ = false
end
end

:cmd
31@ = true
cmd_ret

Посмотри пожалуйста, вот край скрипта ...

....
0B34: samp register_client_command "gtif" to_label @Noname_10167
0B34: samp register_client_command "stip" to_label @Noname_4435
0BDE: pause_thread 0


while true
wait 0
if 31@ == true
then
   SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @sgoto_8857
if
   SAMP.IsPlayerConnected(1@)
else_jump @sgoto_8812
say "/ofname"
wait 2000
say "/stip %d" 1@
31@ = false
end
end
jump @stip_2439

:stip_8812
chatmsg "Èñïîëüçîâàíèå: /stip [ID]" 52479



:stip_8857
chatmsg "Èñïîëüçîâàíèå: /stip [ID]" 52479

:stip_2439
SAMP.CmdRet

:stip
31@ = true
0B43: samp cmd_ret
  
:Noname_819
   SAMP.IsCommandTyped(0@)
0C1A: 1@ = atoi 0@
if and
  1@ >= 0
   not 1@ > 1000
else_jump @Noname_906
0AC6: 0@ = label @Noname_908 offset
0AC6: 1@ = label @Noname_951 offset
SAMP.ShowDialog(45, 0@, 1@, "Çàêðûòü", "", DIALOG_STYLE_MSGBOX)
free 0@

:Noname_906
SAMP.CmdRet
.....

Код естественно не мой, но нужно туда добавить еще несколько команд. :с

 

[hnnssy]

посмотрел, спасибо

 

[k1sher]

посмотрел, спасибо

Ну исправь :D

 

[DarkP1xel]

Никто в этом говнокоде копаться не будет.

 

[k1sher]

Никто в этом говнокоде копаться не будет.

Копаться ... копатьсяяя ахаха, скопируй вставь пару строк, ну не могу я понять, дали пример, я так попробовал, потом по другому. Не получается! Совсем не делать? А как играть тогда? Без скриптов я не вижу смыслов играть. Вообщем ясно, вы тут батьки, вам решать.

 

[DarkP1xel]

{$CLEO}
0B34: samp register_client_command "CMD" to_label @CMD

WHILE TRUE
0001: 0
    IF 0039:   0@ == TRUE
    THEN
    // ...
    // ...
    // ...
    0001: {Сколько ждать после вызова команды}500
    // ...
    // ...
    // ...
    0006: 0@ = FALSE // Делаем так, чтобы произошла всего одна итерация этой части скрипта.
    END
END

:CMD
IF 0039:   0@ == FALSE
THEN 0006: 0@ = TRUE // Вызываем функцию в потоке.
END
0B43: samp cmd_ret