Вопросы по CLEO-скриптингу

[NookieONE]

{$CLEO .cs}

0000:

while not SAMP.Available()
    wait 100
end
0B34: samp register_client_command "tp" to_label @tp

while true
    wait 0
    if and
    0C89:  key_just_pressed 109
    8B21:   not samp is_chat_opened
    8B4C:   not samp is_dialog_active -1
    then
        gosub @PerformTeleport
    end
end

:tp
gosub @PerformTeleport
0B43: samp cmd_ret
 
:PerformTeleport
IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
THEN
    04E4: refresh_game_renderer_at 1@ 2@ 3@
    03CB: set_rendering_origin_at 1@ 2@ 3@
    Camera.SetAtPos(1@, 2@, 3@)
    02CE: 3@ = ground_z_at 1@ 2@ 999.0
    Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
ELSE
    chatmsg "Не поставлена метка на карте" -1
END
return

Спасибо, а можешь сказать почему мой не работал.
Добавляю новый поток и игра не запускается

 

[Kristyan]

Как мне решить проблему? Подскажите пожалуйста.

Спойлер: IMG

 

[jasd241]

как сделать систему рандома, чтоб к примеру бежал к определенным координатам из их перечня

 

[jasd241]

:TextDrawClicker
0C72: set_virtual_key 13 down true
wait 500
0C72: set_virtual_key 13 down false
04D7: set_actor $PLAYER_ACTOR locked true
repeat
wait 0
0C72: set_virtual_key 13 down true
wait 500
0C72: set_virtual_key 13 down false
0BCA: samp send_click_textdraw 19576
wait 3000
until 0C5D: samp textdraw 19576 is_exists
04D7: set_actor $PLAYER_ACTOR locked false
0BCA: samp send_click_textdraw 0
ret 0

должен кликать по текстдраву, пока он существует, но когда он нажимает enter, и появляется меню, с кнопкой текстдрава, то он на нее не жмет, а просто стоит

 

[Dark_Knight]

Во первых. У тебя тут не верный ид текстдрава.

0BCA: samp send_click_textdraw 19576

Количество тексдравов всего 2304(2048 глобальных и 256 чисто для игрока). Тебе надо передавать ид от 0 до 255. Нажатие виртуальных клавиш тебе здесь не нужно.

 

[babulya_headdyson]

Как сделать задержку на команду в клео

 

[Dark_Knight]

Как сделать задержку на команду в клео

Пихать код команды в главный цикл.

 

[NookieONE]

Если уровень игрока 0-4 -- скрипт пытается выполнить сразу две команды
Если уровень 5+ -- скрипт выполняет только вторую команду
Как пофиксить первую часть?

:test
Samp.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if
        Samp.IsPlayerConnected(2@)
    then
        3@ = Samp.GetPlayerScore(2@)
            if 3@ <= 4
            then
                say "/Êîìàíäà1 %d" 2@
            end
           
            if 3@ >= 5
            then
                say "/Êîìàíäà2 %d" 2@
            end
            else
                chatmsg "Èãðîê ñ ID: %d íå íàéäåí" -1 2@
            end     
end   
Samp.CmdRet()

 

[jasd241]

Во первых. У тебя тут не верный ид текстдрава.

0BCA: samp send_click_textdraw 19576

Количество тексдравов всего 2304(2048 глобальных и 256 чисто для игрока). Тебе надо передавать ид от 0 до 255. Нажатие виртуальных клавиш тебе здесь не нужно.

а где можно посмотреть их список, а то я нигде не нашел?

 

[jasd241]

Во первых. У тебя тут не верный ид текстдрава.

0BCA: samp send_click_textdraw 19576

Количество тексдравов всего 2304(2048 глобальных и 256 чисто для игрока). Тебе надо передавать ид от 0 до 255. Нажатие виртуальных клавиш тебе здесь не нужно.

мне нужно, чтоб он зашел в меню с текст дравом, а потом нажал на нем кнопку и потом вышел из меню

 

[jasd241]

есть ли способ распознать ид текстдрава?

 

[Kristyan]

есть ли способ распознать ид текстдрава?

{$CLEO}
0000:
repeat
wait 0
until 0afa:
0B6D: render 5@ = create_font "Arial" height 6 flags 5


WHILE TRUE
wait 0
    FOR 0@ = 0 to 3048
        IF 0C5D: samp textdraw 0@ is_exists
        THEN
            0C5B: samp textdraw 0@ get_pos 1@ 2@
            0B60: convert_game_screen_coords 1@ 2@ to_window_screen_coords 1@ 2@
            alloc 3@ 128
            alloc 4@ 130
            0C5A: samp textdraw 0@ get_string_to 3@ 
            format 4@ "[%d] %s" 0@ 3@
            0B6F: render font 5@ draw_text 4@ pos 1@ 2@ color -1
            free 3@
            free 4@
        END
    END
END

 

[NookieONE]

Если уровень игрока 0-4 -- скрипт пытается выполнить сразу две команды
Если уровень 5+ -- скрипт выполняет только вторую команду
Как пофиксить первую часть?

:test
Samp.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if
        Samp.IsPlayerConnected(2@)
    then
        3@ = Samp.GetPlayerScore(2@)
            if 3@ <= 4
            then
                say "/Êîìàíäà1 %d" 2@
            end
          
            if 3@ >= 5
            then
                say "/Êîìàíäà2 %d" 2@
            end
            else
                chatmsg "Èãðîê ñ ID: %d íå íàéäåí" -1 2@
            end    
end  
Samp.CmdRet()

 

[hnnssy]

@hnnssy
The text/string from the server is blue!

if
0AD4: 30@ = 15@ format "Enter the number: %d!" 8@
    then
          wait 0
          0AF9: samp say_msg "/number %d" 8@
          end

I think the string is not loaded because the is not correct color!
How to load the text regardless of the color in question ?
Thanks a lot!

show the message

 

[D3.Pheonix]

Если уровень игрока 0-4 -- скрипт пытается выполнить сразу две команды
Если уровень 5+ -- скрипт выполняет только вторую команду
Как пофиксить первую часть?

:test
Samp.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if
        Samp.IsPlayerConnected(2@)
    then
        3@ = Samp.GetPlayerScore(2@)
            if 3@ <= 4
            then
                say "/Êîìàíäà1 %d" 2@
            end
         
            if 3@ >= 5
            then
                say "/Êîìàíäà2 %d" 2@
            end
            else
                chatmsg "Èãðîê ñ ID: %d íå íàéäåí" -1 2@
            end   
end 
Samp.CmdRet()

:test
Samp.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if
        Samp.IsPlayerConnected(2@)
    then
        3@ = Samp.GetPlayerScore(2@)
            if 3@ <= 4
            then
                say "/Команда1 %d" 2@
            else
                say "/Команда2 %d" 2@
            end
    else
    chatmsg "Игрок с ID: %d не найден" -1 2@
    end   
end 
Samp.CmdRet()