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

G

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ
Проверенный
335
119
как сделать так, чтобы значения, которые записывались в ини файл чередовались через запятую?
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
 
Marat_Xalitov

Marat_Xalitov

Активный
286
56
Вобщем говорю сразу, я не много нуб в клео, и поэтому тут вот так
вобщем к делу я хочу что бы когда пишу в чат /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

LaRossa

Потрачен
429
117
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
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()
 
LaRossa

LaRossa

Потрачен
429
117
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
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()
 
G

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ
Проверенный
335
119
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

Marat_Xalitov

Активный
286
56
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

hnnssy

Известный
Друг
2,684
2,748
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 попробуй, должно сработать
 
Последнее редактирование модератором:
  • Нравится
Реакции: D3.Pheonix
Marat_Xalitov

Marat_Xalitov

Активный
286
56
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()
Нажмите для раскрытия...
не работает, после ввода команды у меня появляются отыгровки, и все потом игра фризиться, и попадаю на вайнвууд
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. YarikVL
    [Перезапуск] Интервью с ARMOR
      • Bug
      • Нравится
      • Ха-ха
    Ответы
    21
    Просмотры
    2K
    Общение
    ARMOR
    ARMOR
  2. G
    • Закрыта
    [CLEO] Счётчик убийств/смертей.
      • Нравится
    Ответы
    15
    Просмотры
    20K
    Другое
    Забавный Бандит
    З
  3. iTz_WEEZY
    • Закрыта
    Помогите сделать [Авто Викторина]
    Ответы
    6
    Просмотры
    2K
    Архив
    iTz_WEEZY
    iTz_WEEZY
  4. PanSeek
    Интервью с DarkP1xel
      • Нравится
      • Влюблен
      • Злость
    Ответы
    54
    Просмотры
    8K
    Общение
    GrishaMazzlov
    GrishaMazzlov
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    2K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу