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

Kristyan · 4 Мар 2018

Ребят, ну помогите мне пожалуйста :wall: Уже 3 недели прошло и я не имог решить проблему. Мне нужно чтобы текст сработал только один раз, вот код. Маркер статичный.

CLEO:

{$CLEO}
0000:
repeat
   wait 0
until 0afa:

WHILE TRUE
wait 0
if
call @is_cp_active_LS 0
then
   31@ = 0
   call @get_cp_pos_LS 0 0@ 1@ 2@

    if and
    0@ ==  1554.532104
    1@ ==  -1675.580688
    2@ ==  16.195313
    then
        31@ = 1
        if
        31@ == 1
        then
            31@ = 4
            018C: play_sound 1052 at 0.0 0.0 0.0
            chatmsg "text1" -1
        end
    end

    if and
    0@ ==  2287.257813
    1@ ==  2431.447998
    2@ ==  10.820302
    then
        31@ = 2
        if
        31@ == 2
        then
            31@ = 4
            018C: play_sound 1052 at 0.0 0.0 0.0
            chatmsg "text2" -1
        end
    end

    if and
    0@ ==  -1605.046143
    1@ ==  711.501038
    2@ ==  13.867177
    then
        31@ = 3
        if
        31@ == 3
        then
            31@ = 4
            018C: play_sound 1052 at 0.0 0.0 0.0
            chatmsg "text2" -1
        end
     end
end

END // END WHILE TRUE

:is_cp_active_LS
0AA2: 0@ = loadlib "samp.dll"
0A8E: 1@ = 0@ + 0x21A10C
0A8D: 1@ = readMem 1@ sz 4 vp 0
1@ += 0x24
0A8D: 1@ = readMem 1@ sz 4 vp 0
IF 1@ == TRUE
THEN 0485:  return_true
ELSE 059A:  return_false
END
0AA3: freelib 0@
0AB2: ret 0

:get_cp_pos_LS
0AA2: 0@ = loadlib "samp.dll"
0A8E: 1@ = 0@ + 0x21A10C
0A8D: 1@ = readMem 1@ sz 4 vp 0
1@ += 0xC
0A8D: 2@ = readMem 1@ sz 4 vp 0
1@ += 0x4
0A8D: 3@ = readMem 1@ sz 4 vp 0
1@ += 0x4
0A8D: 4@ = readMem 1@ sz 4 vp 0
0AA3: freelib 0@
0AB2: ret 3 2@ 3@ 4@

NookieONE · 4 Мар 2018

Всем привет.
Помогите с скриптом.

Нужно чтобы при вводе команды (/chh ID) через ID игрока проверялся уровень игрока, а после проверки, в зависимости от уровня игрока выполнялись команды.

Help!

D3.Pheonix · 4 Мар 2018

NookieONE написал(а):
Всем привет.
Помогите с скриптом.

Нужно чтобы при вводе команды (/chh ID) через ID игрока проверялся уровень игрока, а после проверки, в зависимости от уровня игрока выполнялись команды.

Help!

CLEO:

repeat
wait 0
until Samp.Available()
Samp.RegisterClientCommand("chh", @chh)
0BDE: 0

:chh
Samp.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if
        Samp.IsPlayerConnected(2@)
    then
        3@ = Samp.GetPlayerScore(2@)
            if 3@ == 10 // Esli LVl = 10
            then
                say "/sms %d ti lox 10 lvla" 2@ // deystvie v zavisimosti ot LVLa
            end
          
            if 3@ == 11 // Esli LVL = 11
            then
                say "/sms %d ti lox 11 lvla" 2@ // deystvie v zavisimosti ot LVLa
            end
    else
        chatmsg "Player with id %d not connected" -1 2@
    end
end
Samp.CmdRet()

NookieONE · 4 Мар 2018

D3.Pheonix написал(а):

CLEO:

repeat
wait 0
until Samp.Available()
Samp.RegisterClientCommand("chh", @chh)
0BDE: 0

:chh
Samp.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if
        Samp.IsPlayerConnected(2@)
    then
        3@ = Samp.GetPlayerScore(2@)
            if 3@ == 10 // Esli LVl = 10
            then
                say "/sms %d ti lox 10 lvla" 2@ // deystvie v zavisimosti ot LVLa
            end
         
            if 3@ == 11 // Esli LVL = 11
            then
                say "/sms %d ti lox 11 lvla" 2@ // deystvie v zavisimosti ot LVLa
            end
    else
        chatmsg "Player with id %d not connected" -1 2@
    end
end
Samp.CmdRet()

Еще маленький вопрос, как сделать
if 3@ == 10 // Esli LVl = 10 чтобы не только 10 был, а например с 0 по 10

D3.Pheonix · 4 Мар 2018

NookieONE написал(а):
Еще маленький вопрос, как сделать
if 3@ == 10 // Esli LVl = 10 чтобы не только 10 был, а например с 0 по 10

0 - 10

CLEO:

if 3@ <= 10

11-20

CLEO:

if and
3@ > 10
3@ < 21

grandpafromghetto · 5 Мар 2018

0B75 подойдет для проверок? или как проверить текст на нахождение в чате?

Kplich · 5 Мар 2018

Как определить $PLAYER_ACTOR handle или его id

D3.Pheonix · 5 Мар 2018

old_ghetto_ написал(а):
0B75 подойдет для проверок? или как проверить текст на нахождение в чате?

CLEO:

0B75: samp get_chat_string 1@ text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@

Получаешь текст в 2@, а дальше проверяешь например через 0C18 / 0C29

Kplich написал(а):
Как определить $PLAYER_ACTOR handle или его id

Это и есть твой хендл $PLAYER_ACTOR
Если чей-то другой - то
0B20: samp 2@ = actor_handle_by_samp_player_id 1@

Kplich · 5 Мар 2018

получается я могу написать 0B2B: samp 2@ = get_player_id_by_actor_handle $PLAYER_ACTOR и 2@ будет ид игрока?

Lord · 5 Мар 2018

Kplich написал(а):
получается я могу написать 0B2B: samp 2@ = get_player_id_by_actor_handle $PLAYER_ACTOR и 2@ будет ид игрока?

Объясни нормально, что ты хочешь. Получить свой ид, или ближайшего игрока?

Kplich · 5 Мар 2018

lordpower написал(а):
Объясни нормально, что ты хочешь. Получить свой ид, или ближайшего игрока?

свой ид

Lord · 5 Мар 2018

Kplich написал(а):
свой ид

CLEO:

0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR

// 0@ = ID

Trawer2289 · 5 Мар 2018

Пацаны, что не так с кодом? Хотелось сделать так чтобы при вводе /test [id игрока] то игрока дамажило кулаком пока он не здохнит, если игрок умрет то скрипт деактивируется или же если мы сами деактивируем. А получается хрень! Вот нужно чтоб дамажило кулаком до тех пор пока не умрет/деактивируем скрипт.

CLEO:

{$CLEO .cs}
0000: NOP

repeat
    wait 400
until Samp.Available()
0B34: samp register_client_command "test" to_label @test

repeat
wait 0
    if 0@ == 1
        then
        Samp.IsCommandTyped(1@)
        if 0AD4: 1@ = scan_string 1@ format "%d" 1@
        then
        if Samp.IsPlayerConnected(1@)
        then
        2@ = Samp.GetActorHandleByPlayerID(1@)
        3@ = Samp.GetPlayerNickname(1@)
        if 056D:   actor 2@ defined
        then
        for 4@ = 0 to 1
        0BCB: samp send_give_damage playerid 1@ damage 999.0 weapon 0 bodypart 3
        chatmsg "[Test]: Ебашим %s[id %d]" 0xFF0000
        else
        chatmsg "[Test]: Игрок не найден" 0xFF0000
        end
        else
        chatmsg "[Test]: Введите: /test [id игрока]" 0xFF0000
        end
        else
        chatmsg "[Test]: Игрок не в зоне стрима" 0xFF0000
        end
        5@ += 1
        end
    0@ = 1
end
until false

:test
if 0@ == 1
then
0@ = 0
chatmsg "[Test]: Деактивирован" 0xFF0000
else
0@ = 1
chatmsg "[Test]: Активирован" 0xFF0000
end
Samp.CmdRet()

romanblinov2013 · 5 Мар 2018

Trawer2289 написал(а):
Пацаны, что не так с кодом? Хотелось сделать так чтобы при вводе /test [id игрока] то игрока дамажило кулаком пока он не здохнит, если игрок умрет то скрипт деактивируется или же если мы сами деактивируем. А получается хрень! Вот нужно чтоб дамажило кулаком до тех пор пока не умрет/деактивируем скрипт.

CLEO:

{$CLEO .cs} 0000: NOP repeat wait 400 until Samp.Available() 0B34: samp register_client_command "test" to_label @test repeat wait 0 if 0@ == 1 then Samp.IsCommandTyped(1@) if 0AD4: 1@ = scan_string 1@ format "%d" 1@ then if Samp.IsPlayerConnected(1@) then 2@ = Samp.GetActorHandleByPlayerID(1@) 3@ = Samp.GetPlayerNickname(1@) if 056D: actor 2@ defined then for 4@ = 0 to 1 0BCB: samp send_give_damage playerid 1@ damage 999.0 weapon 0 bodypart 3 chatmsg "[Test]: Ебашим %s[id %d]" 0xFF0000 else chatmsg "[Test]: Игрок не найден" 0xFF0000 end else chatmsg "[Test]: Введите: /test [id игрока]" 0xFF0000 end else chatmsg "[Test]: Игрок не в зоне стрима" 0xFF0000 end 5@ += 1 end 0@ = 1 end until false :test if 0@ == 1 then 0@ = 0 chatmsg "[Test]: Деактивирован" 0xFF0000 else 0@ = 1 chatmsg "[Test]: Активирован" 0xFF0000 end Samp.CmdRet()

Через синхру...

sxpurp · 5 Мар 2018

Крашит игру

CLEO:

0000: NOP
thread "MADE BY XYNHA"
wait 2000

:MADE_BY_XYNHA_24
wait 0
if and
   SAMP.Available
   SAMP.IsDialogActive(2)
else_jump @MADE_BY_XYNHA_24
alloc 0@ 130
format 0@ "{ffffff}Добро пожаловать на {EBA225}Arizona Role Play%c%c{ffffff}Введите свой пароль%cПопыток для ввода пароля: {28910B}3" 10 10
SAMP.ShowDialog(48, "{BFBBBA}Авторизация", 0@, "Принять", "", DIALOG_STYLE_PASSWORD)
free 0@
alloc 2@ 64

:MADE_BY_XYNHA_239
wait 0
if
   SAMP.DialogRespond(48, 1, 0, 0)
else_jump @MADE_BY_XYNHA_239
free 2@
alloc 0@ 160
format 0@ "{ffffff}Добро пожаловать на {EBA225}Arizona Role Play%c%c{ff0000}Не верный пароль!%с{ffffff}Попыток для ввода пароля: {28910B}2" 10 10
SAMP.ShowDialog(48, "{BFBBBA}Авторизация", 0@, "Принять", "", DIALOG_STYLE_PASSWORD)
free 0@
alloc 2@ 64

:MADE_BY_XYNHA_469
wait 0
if
   SAMP.DialogRespond(48, 1, 0, 0)
else_jump @MADE_BY_XYNHA_469
free 2@
alloc 0@ 160
format 0@ "{ffffff}Добро пожаловать на {EBA225}Arizona Role Play%c%c{ff0000}Не верный пароль!%с{ffffff}Попыток для ввода пароля: {28910B}1" 10 10
SAMP.ShowDialog(48, "{BFBBBA}Авторизация", 0@, "Принять", "", DIALOG_STYLE_PASSWORD)
free 0@
alloc 2@ 64

:MADE_BY_XYNHA_699
wait 0
if
   SAMP.DialogRespond(48, 1, 0, 0)
else_jump @MADE_BY_XYNHA_699
free 2@
jump @MADE_BY_XYNHA_24

Поиск

Поиск

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

Kristyan

Известный

NookieONE

Участник

D3.Pheonix

🎹

NookieONE

Участник

D3.Pheonix

🎹

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ

Kplich

Новичок

D3.Pheonix

🎹

Kplich

Новичок

Lord

Новичок

Kplich

Новичок

Lord

Новичок

Trawer2289

Известный

romanblinov2013

RB_PRO

sxpurp

Известный

Похожие темы