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

Статус
В этой теме нельзя размещать новые ответы.

k1sher

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

Код:
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
 
Последнее редактирование:

k1sher

Известный
Автор темы
201
4
CLEO:
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
.....

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

k1sher

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

DarkP1xel

Сила воли наше всё.
BH Team
3,635
4,953
CLEO:
{$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
 
  • Нравится
Реакции: k1sher
Статус
В этой теме нельзя размещать новые ответы.