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

АндрейЧотак

Известный
80
10
Помогите,я делаю биндер без сфкс, но у меня проблема! Я сделал цикл и в нём прописал условия, вроде работает но почему то только на первое условие (то есть жму num 0 и появляется текст) а если допустим нажму num1 то не чего не пишет. Вот код:
Код:
{$CLEO .cs}
0000:

alloc 2@ 256
alloc 4@ 256
alloc 6@ 256
if
8AE4:  not directory_exists "Cleo\INI"
then
0AE5: create_directory "Cleo\INI"
end
if
0AAB:  file_exists "CLEO\INI\Radip_Binder.ini"
then
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF0: 3@ = get_int_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF4: 4@ = read_string_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF0: 5@ = get_int_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF4: 6@ = read_string_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
else
0AF1: write_int 96 to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF5: write_string "text1" to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF1: write_int 97 to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF5: write_string "text2" to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF1: write_int 98 to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF5: write_string "text3" to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
end

While True
wait 0
  if key_down 1@
  then
  0AB1: call @GetSampBase 0 7@
  7@ += 0x57F0
  0AA5: call 7@ num_params 1 pop 0 2@
  wait 1200
  end
  if key_down 3@
  then
  0AB1: call @GetSampBase 0 8@
  8@ += 0x57F0
  0AA5: call 6@ num_params 1 pop 0 4@
  wait 1200 
  end
  if key_down 5@
  then
  0AB1: call @GetSampBase 0 9@
  9@ += 0x57F0
  0AA5: call 9@ num_params 1 pop 0 6@
  wait 1200
  end
end

:GetSampBase
0AA2: 31@ = load_library "kernel32.dll" // IF and SET
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ // IF and SET
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@
0ab2: ret 1 0@
 

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,695
1,448
Может потому что у тебя названия разделов одинаковые?
 

DarkP1xel

Сила воли наше всё.
BH Team
3,635
4,961
Как можно сделать клео на узнавание своих координат?Например написал /coord и в чат пишутся твои координаты?

PHP:
{$CLEO .CS}
{$NOSOURCE}
0000:                           

:SAMPLoad
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @SAMPLoad
0B34: samp register_client_command "GetCoords" to_label @ByiTz_XG4M3R_626

:ByiTz_XG4M3R_94
0001: wait 0 ms
0002: jump @ByiTz_XG4M3R_94

:ByiTz_XG4M3R_626
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
0AF8: samp add_message_to_chat "[GetCoords] X: %f Y: %f Z: %f" color 0xFFFFFF 0@ 1@ 2@
0B43: samp cmd_ret
 
Последнее редактирование:
  • Нравится
Реакции: _Viktor_

Markus_Forester

Новичок
15
0
PHP:
{$CLEO .CS}
{$NOSOURCE}
0000:                          

:SAMPLoad
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @SAMPLoad
0B34: samp register_client_command "GetCoords" to_label @ByiTz_XG4M3R_626

:ByiTz_XG4M3R_94
0001: wait 0 ms
0002: jump @ByiTz_XG4M3R_94

:ByiTz_XG4M3R_626
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
0AF8: samp add_message_to_chat "[GetCoords] X: %f Y: %f Z: %f" color 0xFFFFFF 0@ 1@ 2@
0B43: samp cmd_ret
Слушай дай свой скайп поговорим