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

[jasd241]

{$CLEO}
0000:

int 16@
16@ = 0

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

while true
wait 0
if
30@ == 1
then

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1914.4750
12@ = 170.6227
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1916.1313
12@ = 177.1411
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1920.7675
12@ = 194.4547
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

while true
wait 0
0C72: set_virtual_key 13 down true // æìåì åíòåð
wait 500
0C72: set_virtual_key 13 down false // îòæèìàåì
if and
0C5D: samp textdraw 270 is_exists
0C5D: samp textdraw 271 is_exists
0C5D: samp textdraw 272 is_exists
0C5D: samp textdraw 273 is_exists
0C5D: samp textdraw 274 is_exists
0C5D: samp textdraw 275 is_exists
0C5D: samp textdraw 276 is_exists
0C5D: samp textdraw 277 is_exists
then
call @TextDrawClicker 0
else

repeat
if 30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1918.3890
12@ = 185.2332
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if 30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1912.9735
12@ = 165.0622
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

end
end
//íà÷àëî 2-ãî äåðåâà

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1914.7059
12@ = 171.0723
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1932.1223
12@ = 193.8615
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

while true
wait 0
0C72: set_virtual_key 13 down true // æìåì åíòåð
wait 500
0C72: set_virtual_key 13 down false // îòæèìàåì
if or
0C5D: samp textdraw 270 is_exists
0C5D: samp textdraw 271 is_exists
0C5D: samp textdraw 272 is_exists
0C5D: samp textdraw 273 is_exists
0C5D: samp textdraw 274 is_exists
0C5D: samp textdraw 275 is_exists
0C5D: samp textdraw 276 is_exists
0C5D: samp textdraw 277 is_exists
then
call @TextDrawClicker 0
else

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1915.2284
12@ = 172.5655
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1913.0244
12@ = 165.3465
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

end
end
// íà÷àëî 3-åãî äåðåâà

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1914.8591
12@ = 170.5447
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1944.3033
12@ = 193.5877
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

while true
wait 0
0C72: set_virtual_key 13 down true // æìåì åíòåð
wait 500
0C72: set_virtual_key 13 down false // îòæèìàåì
if or
0C5D: samp textdraw 270 is_exists
0C5D: samp textdraw 271 is_exists
0C5D: samp textdraw 272 is_exists
0C5D: samp textdraw 273 is_exists
0C5D: samp textdraw 274 is_exists
0C5D: samp textdraw 275 is_exists
0C5D: samp textdraw 276 is_exists
0C5D: samp textdraw 277 is_exists
then
call @TextDrawClicker 0
else

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1915.4835
12@ = 171.9216
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1913.1858
12@ = 165.1552
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

end
end
// íà÷àëî 4-ãî äåðåâà

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1914.4937
12@ = 170.4806
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if
30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1955.2632
12@ = 191.7564
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

while true
wait 0
0C72: set_virtual_key 13 down true // æìåì åíòåð
wait 500
0C72: set_virtual_key 13 down false // îòæèìàåì
if or
0C5D: samp textdraw 270 is_exists
0C5D: samp textdraw 271 is_exists
0C5D: samp textdraw 272 is_exists
0C5D: samp textdraw 273 is_exists
0C5D: samp textdraw 274 is_exists
0C5D: samp textdraw 275 is_exists
0C5D: samp textdraw 276 is_exists
0C5D: samp textdraw 277 is_exists
then
call @TextDrawClicker 0
else

repeat
if 30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1916.0692
12@ = 172.0714
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

repeat
if 30@ == 1
then
0001: wait 0 ms
0B56: set_game_key 1 state -128
11@ = 1913.6207
12@ = 164.8409
0AB1: call_scm_func @GoToCoords 2 11@ 12@
end 
until 00ED:   actor $PLAYER_ACTOR sphere 0 near_point 11@ 12@ radius 0.5 0.5 on_foot

end
end

end
end

:GoToCoords
00A0: store_actor $PLAYER_ACTOR position_to 2@ 3@ 4@
0063: 0@ -= 2@ // (float)
0063: 1@ -= 3@ // (float)
0604: get_Z_angle_for_point 0@ 1@ store_to 5@
0173: set_actor $PLAYER_ACTOR Z_angle_to 5@
02EB: restore_camera_with_jumpcut
0AB2: ret 0                                    
                     
:TextDrawClicker
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
0209: 16@ = random_int_in_ranges 270 279
0BCA: samp send_click_textdraw 16@
wait 3000
until 0C5D: samp textdraw 16@ is_exists
04D7: set_actor $PLAYER_ACTOR locked false
0BCA: samp send_click_textdraw 2069
ret 0
             
:On
wait 0
0B12: 30@ = 30@ XOR 1
cmdret

что такое? проверяет существование текстдравов и, если они существуют, вызывает функцию клика на текстдрав, но когда он добегает до определенных координат, после которых идет проверка и вызов функции, в первый раз нажимает ентер, чтоб войти в меню с текстдравами, а второй раз и последующие просто бегает, и в первый раз не жмет на текстдравы, хотя они существуют

 

[Qsany]

Для самых маленьких:
Почему сдесь цвет жёлтый, а не серый?

Спойлер: screen

0A8C: write_memory 12235312 size 4 value 969696 virtual_protect 1
0001: wait 100 ms

Спойлер: screen 2

 

[hnnssy]

потому что цвет нужно указывать в 16-тиричном виде, и про альфу не забудь.

 

[Qsany]

потому что цвет нужно указывать в 16-тиричном виде, и про альфу не забудь.

Не могу допереть, есть генератор?

 

[D3.Pheonix]

Не могу допереть, есть генератор?

Конвертер Цветов Онлайн — HEX ⇒ RGB ⇒ RGBA ⇒ CMYK ⇒ HSL ⇒ HSLA ⇒ HSB ⇒ HSV ⇒ XYZ ⇒ LAB. Калькулятор цветов HTML. Генератор цветов CSS3 — ColorScheme.Ru^{(https://colorscheme.ru/color-converter.html)}
Да можно и в фотошопе, копируешь hex код цвета и слева дописываешь альфу, типа FF ,например 0xFFFF0000 - непрозрачный красный

 

[Kristyan]

Как я могу сравнить 3@v с INF?

Спойлер

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()

const
INF = "Infernus"
end

0b34: "car" @cmd
0BDE: pause_thread 0


:cmd
samp.IsCommandTyped(2@)
if
    0AD4: 0@ = scan_string 2@ format "%s" 3@v
then
 if and
 0AD4: 1@ = scan_string 3@v format INF
 1@ == true
 then

 chatmsg "PASSED" -1
 chatmsg "%s" -1 INF

 else
  chatmsg "LOH" -1
  chatmsg "%s" -1 3@v
end
end
SAMP.CmdRet()

 

[Qsany]

Конвертер Цветов Онлайн — HEX ⇒ RGB ⇒ RGBA ⇒ CMYK ⇒ HSL ⇒ HSLA ⇒ HSB ⇒ HSV ⇒ XYZ ⇒ LAB. Калькулятор цветов HTML. Генератор цветов CSS3 — ColorScheme.Ru^{(https://colorscheme.ru/color-converter.html)}
Да можно и в фотошопе, копируешь hex код цвета и слева дописываешь альфу, типа FF ,например 0xFFFF0000 - непрозрачный красный

0A8C: write_memory 12235312 size 4 value 0xFFde7878 virtual_protect 1

Должен быть таким

Спойлер: screen

а он такой

Спойлер: screen 2

 

[D3.Pheonix]

0A8C: write_memory 12235312 size 4 value 0xFFde7878 virtual_protect 1

Должен быть таким

Спойлер: screen

а он такой

Спойлер: screen 2

Значит там не ARGB, а RGBA, альфу в конец
0xDE7878FF
p.s
так то это всё в interfaceEditor.ini менять можно, без всяких скриптов

 

[D3.Pheonix]

Как я могу сравнить 3@v с INF?

Спойлер

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()

const
INF = "Infernus"
end

0b34: "car" @cmd
0BDE: pause_thread 0


:cmd
samp.IsCommandTyped(2@)
if
    0AD4: 0@ = scan_string 2@ format "%s" 3@v
then
 if and
 0AD4: 1@ = scan_string 3@v format INF
 1@ == true
 then

 chatmsg "PASSED" -1
 chatmsg "%s" -1 INF

 else
  chatmsg "LOH" -1
  chatmsg "%s" -1 3@v
end
end
SAMP.CmdRet()

помоему 0C14 / 0C21

 

[Kristyan]

помоему 0C14 / 0C21

Херня полная... И с 0С14 пробовал, с всё что попало пробовал, не чего...

:cmd
samp.IsCommandTyped(2@)
0AD4: 0@ = scan_string 2@ format "%d %s" 5@ 3@v
if       
  0C14: strcmp string1 3@v string2 "Infernus"
then
chatmsg "ID: %d" -1 5@
chatmsg "Car: %s " -1 3@v
end
SAMP.CmdRet()

 

[D3.Pheonix]

Херня полная... И с 0С14 пробовал, с всё что попало пробовал, не чего...

:cmd
samp.IsCommandTyped(2@)
0AD4: 0@ = scan_string 2@ format "%d %s" 5@ 3@v
if     
  0C14: strcmp string1 3@v string2 "Infernus"
then
chatmsg "ID: %d" -1 5@
chatmsg "Car: %s " -1 3@v
end
SAMP.CmdRet()

Чекни @s или
Попробуй не юзать строковую переиенную, а выдели нормально память

 

[Dark_Knight]

0ad4 криво работает со сканами на стринги. Ищи в сниппетах использование sscanf

 

[Kristyan]

выдели нормально память

Crash...

:cmd
alloc 3@ 50
samp.IsCommandTyped(2@)
0AD4: 0@ = scan_string 2@ format "%d %s" 5@ 3@
if        
  0C14: strcmp string1 3@ string2 "Infernus"
then
chatmsg "ID: %d" -1 5@
chatmsg "Car: %s " -1 3@
free 3@
end
SAMP.CmdRet()

 

[ShadowBroker]

Регулярки в sscanf работают?

 

[Qsany]

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

:Noname_2
wait 400
   SAMP.Available
jf @Noname_2
0661: NOP "ANTI AFK ON DIALOGS"
0661: NOP "by MogAika"
0661: NOP "BlastHack.net"
0661: NOP "Version 2.0"
Dialog.Create(0@, "AFK Master by MogAika")
Dialog.SetRECT(0@, 0, 0, 360, 152)
call @Noname_911 1 0@
Dialog.AddCheckBox(0@, 1, "Ðàáîòà ñêðèïòîâ â îêîííîì ðåæèìå", 8, 8, 356, 24)
Dialog.AddCheckBox(0@, 2, "Ðàáîòà ñêðèïòîâ â ñâåðíóòîì ðåæèìå", 8, 32, 356, 24)
Dialog.AddCheckBox(0@, 3, "Çàöèêëèòü ïîêàç ìûøè", 8, 56, 316, 24)
Dialog.AddCheckBox(0@, 4, "Îòêëþ÷èòü öåíòðèðîâàíèå ìûøè", 8, 80, 316, 24)
Dialog.AddButton(0@, 255, "Çàêðûòü îêíî", 8, 104, 316, 24)
Dialog.SetControlVisible(0@, 2, 0)
Dialog.SetCheckBoxChecked(0@, 4, 1)
Dialog.SetVisible(0@, 0)
0ADC:   test_cheat "zz" to_label @Noname_898
0C11: memset destination 7623723 value 144 size 8
20@ = 0

:Noname_415
wait 0
call @Noname_911 1 0@
if
  20@ == 1
jf @Noname_454
SAMP.SetCursorMode(2)

:Noname_454
   Dialog.PopEvent(0@, 1@, 2@)
jf @Noname_889
wait 0
if
  2@ == 1
jf @Noname_641
if
   Dialog.CheckBoxIsChecked(0@, 1)
jf @Noname_584
Dialog.SetControlVisible(0@, 2, 1)
0A8C: write_memory 7634870 size 1 value 1 virtual_protect 1
0A8C: write_memory 7635034 size 1 value 1 virtual_protect 1
if
   Dialog.CheckBoxIsChecked(0@, 2)
jf @Noname_577
0C11: memset destination 5499528 value 144 size 6

:Noname_577
goto @Noname_641

:Noname_584
Dialog.SetControlVisible(0@, 2, 0)
0A8C: write_memory 7634870 size 1 value 0 virtual_protect 1
0A8C: write_memory 7635034 size 1 value 0 virtual_protect 1
0AC6: 3@ = label @Noname_1006 offset
0C10: memcpy destination 5499528 source 3@ size 6

:Noname_641
if
  2@ == 2
jf @Noname_718
if
   Dialog.CheckBoxIsChecked(0@, 2)
jf @Noname_696
0C11: memset destination 5499528 value 144 size 6
goto @Noname_718

:Noname_696
0AC6: 3@ = label @Noname_1006 offset
0C10: memcpy destination 5499528 source 3@ size 6

:Noname_718
if
  2@ == 3
jf @Noname_775
if
   Dialog.CheckBoxIsChecked(0@, 3)
jf @Noname_768
20@ = 1
goto @Noname_775

:Noname_768
20@ = 0

:Noname_775
if
  2@ == 4
jf @Noname_852
if
   Dialog.CheckBoxIsChecked(0@, 4)
jf @Noname_830
0C11: memset destination 7623723 value 144 size 8
goto @Noname_852

:Noname_830
0AC6: 3@ = label @Noname_1012 offset
0C10: memcpy destination 7623723 source 3@ size 8

:Noname_852
if
  2@ == 255
jf @Noname_882
Dialog.SetVisible(0@, 0)
SAMP.ToggleCursor(0)

:Noname_882
goto @Noname_454

:Noname_889
goto @Noname_415
0A93: end_custom_thread

:Noname_898                                      
Dialog.SetVisible(0@, 1)
SAMP.ToggleCursor(1)
SAMP.CmdRet

:Noname_911
Dialog.GetRECT(0@, 1@, 2@, 3@, 4@)
SAMP.GetScreenResolution(5@, 6@)
0062: 5@ -= 3@ // (int)
5@ /= 2
0062: 6@ -= 4@ // (int)
Dialog.SetRECT(0@, 5@, 6@, 3@, 4@)
ret 0
0@ += 338
0A8C: write_memory 0@ size 1 value 1@ virtual_protect 1
ret 0

не понимаю че нада удалить, что бы скомпилировать
p.s. изменил если че активацию на чит код