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

Marat_Xalitov · 19 Мар 2018

Вобщем говорю сразу, я не много нуб в клео, и поэтому тут вот так
вобщем к делу я хочу что бы когда пишу в чат /rd Marat КПП 4 1-1
В чате пишется так /r Докладывает: Marat | Пост: КПП | Состав: 4 | Код: 1-1
Вот сам код (да это говнокод)

CLEO:

{$CLEO .cs}
0000: NOP

wait 2000
0B34: samp register_client_command "rd" to_label @rd

While True
   wait 0
   if 1@ == 1                   
         then
       0AF9: samp say_msg "/do На плече рация."
       wait 1000
       0AF9: samp say_msg "/me снял рацию с плеча и начал что-то говорить."
       wait 1000
       0AF9: samp say_msg "/r Докладывает: %s | Пост: %s | Состав: %d | Код: %d" 2@ 3@ 4@ 5@
      1@ = 0
   end
end
:rd
0B35: samp 0@ = get_last_command_params
if 0AD4: 4@ = scan_string 0@ format "%s" 2@ 3@
if 0AD4: 4@ = scan_string 0@ format "%d" 4@ 5@
then
   1@ = 1
end
SAMP.CmdRet()

Кто может пусть поможет, а то я туплю

LaRossa · 19 Мар 2018

Marat_Xalitov написал(а):
Вобщем говорю сразу, я не много нуб в клео, и поэтому тут вот так
вобщем к делу я хочу что бы когда пишу в чат /rd Marat КПП 4 1-1
В чате пишется так /r Докладывает: Marat | Пост: КПП | Состав: 4 | Код: 1-1
Вот сам код (да это говнокод)

CLEO:

{$CLEO .cs} 0000: NOP wait 2000 0B34: samp register_client_command "rd" to_label @rd While True wait 0 if 1@ == 1 then 0AF9: samp say_msg "/do На плече рация." wait 1000 0AF9: samp say_msg "/me снял рацию с плеча и начал что-то говорить." wait 1000 0AF9: samp say_msg "/r Докладывает: %s | Пост: %s | Состав: %d | Код: %d" 2@ 3@ 4@ 5@ 1@ = 0 end end :rd 0B35: samp 0@ = get_last_command_params if 0AD4: 4@ = scan_string 0@ format "%s" 2@ 3@ if 0AD4: 4@ = scan_string 0@ format "%d" 4@ 5@ then 1@ = 1 end SAMP.CmdRet()

Кто может пусть поможет, а то я туплю

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
alloc 2@ 64
alloc 3@ 64
alloc 5@ 64
0B34: samp register_client_command "rd" to_label @rd

while true
    wait 0
    if 1@ == 1                
        then
     
        say "/do На плече рация."
        wait 1000
        say "/me снял рацию с плеча и начал что-то говорить."
        wait 1000
        say "/r Докладывает: %s | Пост: %s | Состав: %d | Код: %d" 2@ 3@ 4@ 5@
     
        1@ = 0
   end
end

:rd
0B35: samp 0@ = get_last_command_params
if 0AD4: 4@ = scan_string 0@ format "%s%s%d%d" 2@ 3@ 4@ 5@
    then
    1@ = 1
else
    chatmsg "Ошибка" -1 
end
Samp.CmdRet()

grandpafromghetto · 19 Мар 2018

hnnssy написал(а):
end последний не там стоит, перед :save всунь

ты это кому?

LaRossa · 19 Мар 2018

old_ghetto_ написал(а):

как сделать так, чтобы значения, которые записывались в ини файл чередовались через запятую?

CLEO:

{$CLEO}
0000:

float 1@
float 2@

alloc 1@ 256
alloc 2@ 256

1@ = 0.0
2@ = 0.0

repeat
wait 0
until samp.Available()
0B34: samp register_client_command "rec" to_label @rec

while true
wait 0
if 0@ == 1
then                     
if
actor.Driving($PLAYER_ACTOR)
then
actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
00EE:   actor $PLAYER_ACTOR sphere 0 near_point 1@ 2@ radius 0.5 0.5 in_car
0AF3: write_float 1@ to_ini_file "cleo\rec.ini" section "RECORDING" key "recX"
0AF3: write_float 2@ to_ini_file "cleo\rec.ini" section "RECORDING" key "recY"
end
end
end

:rec
0B12: 0@ = 0@ XOR 1
cmdret

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
float 1@
float 2@

alloc 1@ 256
alloc 2@ 256

1@ = 0.0
2@ = 0.0

0B34: samp register_client_command "rec" to_label @rec

while true
    wait 0
    if and
    0@ == 1
    actor.Driving($PLAYER_ACTOR)
        then                     
        actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
        00EE:   actor $PLAYER_ACTOR sphere 0 near_point 1@ 2@ radius 0.5 0.5 in_car
        0AF3: write_float 1@ to_ini_file "cleo\rec.ini" section "RECORDING" key "recX"
        0AF3: write_float 2@ to_ini_file "cleo\rec.ini" section "RECORDING" key "recY"
    end
end

:rec
0B12: 0@ = 0@ XOR 1
Samp.CmdRet()

grandpafromghetto · 19 Мар 2018

LaRossa написал(а):

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
float 1@
float 2@

alloc 1@ 256
alloc 2@ 256

1@ = 0.0
2@ = 0.0

0B34: samp register_client_command "rec" to_label @rec

while true
    wait 0
    if and
    0@ == 1
    actor.Driving($PLAYER_ACTOR)
        then                    
        actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
        00EE:   actor $PLAYER_ACTOR sphere 0 near_point 1@ 2@ radius 0.5 0.5 in_car
        0AF3: write_float 1@ to_ini_file "cleo\rec.ini" section "RECORDING" key "recX"
        0AF3: write_float 2@ to_ini_file "cleo\rec.ini" section "RECORDING" key "recY"
    end
end

:rec
0B12: 0@ = 0@ XOR 1
Samp.CmdRet()

а как сделать, чтоб координаты которые в ини идут, то они бы чередовались через запятую?

Marat_Xalitov · 19 Мар 2018

LaRossa написал(а):

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
alloc 2@ 64
alloc 3@ 64
alloc 5@ 64
0B34: samp register_client_command "rd" to_label @rd

while true
    wait 0
    if 1@ == 1               
        then
    
        say "/do На плече рация."
        wait 1000
        say "/me снял рацию с плеча и начал что-то говорить."
        wait 1000
        say "/r Докладывает: %s | Пост: %s | Состав: %d | Код: %d" 2@ 3@ 4@ 5@
    
        1@ = 0
   end
end

:rd
0B35: samp 0@ = get_last_command_params
if 0AD4: 4@ = scan_string 0@ format "%s%s%d%d" 2@ 3@ 4@ 5@
    then
    1@ = 1
else
    chatmsg "Ошибка" -1
end
Samp.CmdRet()

а можешь сделать так что бы после вот этого

CLEO:

say "/do На плече рация."
        wait 1000
        say "/me снял рацию с плеча и начал что-то говорить."
        wait 1000
        say "/r Докладывает: %s | Пост: %s | Состав: %d | Код: %d" 2@ 3@ 4@ 5@

момента был этот код?

CLEO:

0AF9: samp say_msg "/time"  
          wait 200   
          0AB1: call @key 2 key 119 time 1000

я теперь хз как его туда добавить

hnnssy · 20 Мар 2018

old_ghetto_ написал(а):
ты это кому?

@FeaVor228

Marat_Xalitov написал(а):
а можешь сделать так что бы после вот этого

CLEO:

say "/do На плече рация." wait 1000 say "/me снял рацию с плеча и начал что-то говорить." wait 1000 say "/r Докладывает: %s | Пост: %s | Состав: %d | Код: %d" 2@ 3@ 4@ 5@

момента был этот код?

CLEO:

0AF9: samp say_msg "/time" wait 200 0AB1: call @key 2 key 119 time 1000

я теперь хз как его туда добавить

ctrl C + ctrl V попробуй, должно сработать

SiTrak · 20 Мар 2018

Что делать если после компиляции любого кода ini файл не создается ?

Salvatore_Ferrari · 20 Мар 2018

Уася1337 написал(а):
Что делать если после компиляции любого кода ini файл не создается ?

Не после компиляции создается файл ini , а после входа в игру.

SiTrak · 20 Мар 2018

Salvatore_Ferrari написал(а):
Не после компиляции создается файл ini , а после входа в игру.

Даже после входа ini файл не создается

Salvatore_Ferrari · 20 Мар 2018

Уася1337 написал(а):
Даже после входа ini файл не создается

Значит что то делаешь не так.

grandpafromghetto · 20 Мар 2018

Уася1337 написал(а):
Даже после входа ini файл не создается

чтобы создать ини файл, нужно что-то с ним сделать записать в него что-то или получить

Marat_Xalitov · 20 Мар 2018

LaRossa написал(а):

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
alloc 2@ 64
alloc 3@ 64
alloc 5@ 64
0B34: samp register_client_command "rd" to_label @rd

while true
    wait 0
    if 1@ == 1              
        then
   
        say "/do На плече рация."
        wait 1000
        say "/me снял рацию с плеча и начал что-то говорить."
        wait 1000
        say "/r Докладывает: %s | Пост: %s | Состав: %d | Код: %d" 2@ 3@ 4@ 5@
   
        1@ = 0
   end
end

:rd
0B35: samp 0@ = get_last_command_params
if 0AD4: 4@ = scan_string 0@ format "%s%s%d%d" 2@ 3@ 4@ 5@
    then
    1@ = 1
else
    chatmsg "Ошибка" -1
end
Samp.CmdRet()

не работает, после ввода команды у меня появляются отыгровки, и все потом игра фризиться, и попадаю на вайнвууд

Lord · 20 Мар 2018

Уася1337 написал(а):
Даже после входа ini файл не создается

кинь код

hnnssy · 20 Мар 2018

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

потому что нельзя сканировать стринг на стринг с помощью 0AD4, ищи гайд по sscanf от @legend2360

Поиск

Поиск

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

Marat_Xalitov

Активный

LaRossa

Потрачен

grandpafromghetto

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

LaRossa

Потрачен

grandpafromghetto

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

Marat_Xalitov

Активный

hnnssy

Известный

SiTrak

Известный

Salvatore_Ferrari

Известный

SiTrak

Известный

Salvatore_Ferrari

Известный

grandpafromghetto

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

Marat_Xalitov

Активный

Lord

Новичок

hnnssy

Известный

Похожие темы