Compile

WtfDude · 10 Апр 2020

Hi can someone compile this cleo ?

CLEO:

// 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
thread '@#$AimByKrcV3'
wait 0
   SAMP.Available
else_jump NAN.0
0B34: samp register_client_command "aimas" to_label @Label000BE9
0B34: samp register_client_command "aimcf" to_label @Label0014B6
0B34: samp register_client_command "gs" to_label @Label000FE7
0B34: samp register_client_command "tb" to_label @Label00105C
0B34: samp register_client_command "imm" to_label @Label0010D0
0B34: samp register_client_command "cn" to_label @Label001142
0B34: samp register_client_command "soff" to_label @Label0011B7
0B34: samp register_client_command "sinfo" to_label @Label00120A
18@ = 0
31@ = 0
20@ = -1
21@ = -1
22@ = -1
23@ = -1
24@ = 3
chatmsg "Aim'as V3 BY = {55FF7F}Airidas_Krc{FF0000} | Daugiau informacijos:{55FF7F} /sinfo" 268369920
if
0AA2: 28@ = load_library "kernel32.dll" // IF and SET
else_jump NAN.0
if
0AA4: 29@ = get_proc_address "GetVolumeInformationA" library 28@ // IF and SET
else_jump NAN.0
0AC7: 30@ = var 30@ offset
0AA5: call 29@ num_params 8 pop 0 0 0 0 0 30@ 0 0 0
if
  30@ == 580444520
else_jump NAN.0
31@ = 1
Dialog.Create(25@, "{FFFFFF}AimBot V3 By Airidas_Krc")
Dialog.SetRECT(25@, 925, 346, 370, 230)
Dialog.AddCheckBox(25@, 1, "{14B4B6}Galva", 10, 10, 200, 20)
Dialog.AddCheckBox(25@, 2, "{14B4B6}Lupos", 210, 10, 200, 20)
Dialog.AddCheckBox(25@, 3, "{14B4B6}Kaklas", 10, 30, 200, 20)
Dialog.AddCheckBox(25@, 4, "{14B4B6}Krutine", 210, 30, 200, 20)
Dialog.AddCheckBox(25@, 5, "{14B4B6}Kairys petys", 10, 50, 200, 20)
Dialog.AddCheckBox(25@, 6, "{14B4B6}Desinys petys", 210, 50, 200, 20)
Dialog.AddCheckBox(25@, 7, "{14B4B6}Centras", 10, 70, 200, 20)
Dialog.AddCheckBox(25@, 8, "{14B4B6}Pilvas", 210, 70, 200, 20)
Dialog.AddCheckBox(25@, 9, "{14B4B6}Kairys kelienis", 10, 90, 200, 20)
Dialog.AddCheckBox(25@, 10, "{14B4B6}Desinys kelienis", 210, 90, 200, 20)
Dialog.AddStatic(25@, 11, "{FF00F3}___________________________", 10, 105, 200, 20)
Dialog.AddStatic(25@, 12, "{FF00F3}___________________", 210, 105, 200, 20)
Dialog.AddCheckBox(25@, 13, "{14B4B6}Targ.Nusitaikius", 110, 135, 200, 20)
Dialog.AddButton(25@, 14, "{FFFFFF}Gerai", 144, 165, 70, 35)
Dialog.SetBackgroundColor(25@, -268435456)
Dialog.SetVisible(25@, 0)
wait 0
0AA3: free_library 28@
0A9F: $4 = current_thread_pointer
$4 += 16
0A8D: $4 = read_memory $4 size 4 virtual_protect 0
$4 -= -4056
if
  31@ == 1
else_jump NAN.0
if
   Dialog.IsVisible(25@)
else_jump NAN.0
SAMP.ToggleCursor(1)
if and
   Dialog.IsVisible(25@)
   SAMP.IsCursorActive
   not Dialog.IsMinimized(25@)
key_down 2
else_jump NAN.0
0B5E: get_cursor_pos $5 $6
Dialog.SetRECT(25@, $5, $6, 370, 230)
if
   Dialog.PopEvent(25@, 1025, 26@)
else_jump NAN.0
if
  26@ == 1
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 6
print "~W~PASIRINKTA - ~G~GALVA~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 2
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 8
print "~W~PASIRINKTA - ~G~LUPOS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 3
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 4
print "~W~PASIRINKTA - ~G~KAKLAS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 4
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 21
print "~W~PASIRINKTA - ~G~KRUTINE~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 5
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 22
print "~W~PASIRINKTA - ~G~KAIRYS PETYS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 6
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 32
print "~W~PASIRINKTA - ~G~DESINYS PETYS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 7
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 3
print "~W~PASIRINKTA - ~G~CENTRAS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 8
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 2
print "~W~PASIRINKTA - ~G~PILVAS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 9
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 52
print "~W~PASIRINKTA - ~G~KAIRYS KELIENIS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 10
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
24@ = 42
print "~W~PASIRINKTA - ~G~DESINYS KELIENIS~W~" 2000
jump NAN.0
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000
if
  26@ == 13
else_jump NAN.0
if
   Dialog.CheckBoxIsChecked(25@, 26@)
else_jump NAN.0
$7 = 1
print "~W~TARGINTI - ~G~NUSITAIKIUS~W~" 2000
jump NAN.0
$7 = 0
27@ = -1
print "~W~TARGINTI - ~R~NENUSITAIKIUS~W~" 1000
if
  26@ == 14
else_jump NAN.0
Dialog.SetVisible(25@, 0)
SAMP.ToggleCursor(0)
if
  $7 == 1
else_jump NAN.0
27@ = 2
27@ = 20
if
  18@ == 1
else_jump NAN.0
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 1
else_jump NAN.0
if and
056D:   actor 0@ defined
   not Actor.Dead(0@)
02CB:   actor 0@ bounding_sphere_visible
else_jump NAN.0
0665: get_actor 0@ model_to 19@
if and
803B:   not  19@ == 20@ // (int)
803B:   not  19@ == 21@ // (int)
803B:   not  19@ == 22@ // (int)
803B:   not  19@ == 23@ // (int)
else_jump NAN.0
call NAN.0 2 0@ 24@ 1@ 2@ 3@
call NAN.0 3 1@ 2@ 3@
if and
  $7 == 1
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
else_jump NAN.0
if or
key_down 2
key_down 20
else_jump NAN.0
if and
056D:   actor 0@ defined
   not Actor.Dead(0@)
02CB:   actor 0@ bounding_sphere_visible
else_jump NAN.0
0665: get_actor 0@ model_to 19@
if and
803B:   not  19@ == 20@ // (int)
803B:   not  19@ == 21@ // (int)
803B:   not  19@ == 22@ // (int)
803B:   not  19@ == 23@ // (int)
else_jump NAN.0
call NAN.0 2 0@ 24@ 1@ 2@ 3@
call NAN.0 3 1@ 2@ 3@
jump NAN.0

:Label000BE9
if
  31@ == 1
else_jump NAN.0
0B12: 18@ = 18@ XOR 1
if
  18@ == 1
else_jump NAN.0
print "~W~AIM BY KRC: ~G~ON~W~" 1000
018C: play_sound 1083 at 0.0 0.0 0.0
jump NAN.0
print "~W~AIM BY KRC: ~R~OFF~W~" 1000
018C: play_sound 1058 at 0.0 0.0 0.0
SAMP.CmdRet
0085: 10@ = 0@ // (int)
0085: 15@ = 1@ // (int)
1@ = 0.0
2@ = 0.0
3@ = 0.0
0A96: 0@ = actor 10@ struct
0AC7: 4@ = var 1@ offset
0AA6: call_method 6160832 struct 0@ num_params 3 pop 0 1 15@ 4@
ret 3 1@ 2@ 3@
0AC7: 14@ = var 0@ offset
0AC7: 15@ = var 3@ offset
0AC7: 16@ = var 6@ offset
0AC7: 17@ = var 9@ offset
0AA5: call 7392816 num_params 6 pop 6 0 0 17@ 16@ 15@ 14@
12@ = 640.0
13@ = 448.0
0A8D: 14@ = read_memory 12677188 size 4 virtual_protect 0
0A8D: 15@ = read_memory 12677192 size 4 virtual_protect 0
0093: 14@ = integer 14@ to_float
0093: 15@ = integer 15@ to_float
0073: 12@ /= 14@ // (float)
0073: 13@ /= 15@ // (float)
006B: 3@ *= 12@ // (float)
006B: 4@ *= 13@ // (float)
ret 2 3@ 4@
068D: get_camera_position_to 3@ 4@ 5@
0509: 11@ = distance_between_XY 0@ 1@ and_XY 3@ 4@
0063: 3@ -= 0@ // (float)
0063: 4@ -= 1@ // (float)
0063: 5@ -= 2@ // (float)
0A8D: 6@ = read_memory 11989416 size 2 virtual_protect 0
if or
  6@ == 53
  6@ == 55
else_jump NAN.0
0A8D: 7@ = read_memory 9261112 size 4 virtual_protect 0
6@ = 0.5
006B: 7@ *= 6@ // (float)
02F6: 6@ = sine 7@ // (float)
02F7: 8@ = cosine 7@ // (float)
0073: 6@ /= 8@ // (float)
0A8D: 9@ = read_memory 11987984 size 4 virtual_protect 0
8@ = 0.5
0063: 8@ -= 9@ // (float)
8@ += 0.5
0063: 8@ -= 9@ // (float)
0A8D: 9@ = read_memory 12840868 size 4 virtual_protect 0
7@ = 1.0
0073: 7@ /= 9@ // (float)
006B: 8@ *= 7@ // (float)
006B: 8@ *= 6@ // (float)
0AA5: call 4327360 num_params 2 pop 2 8@ 1.0
0AA7: call_function $4 num_params 0 pop 0 8@
7@ = 3.141593
0063: 7@ -= 8@ // (float)
0A8D: 10@ = read_memory 11987988 size 4 virtual_protect 0
0087: 9@ = 10@ // (float)
8@ = 0.5
0063: 9@ -= 8@ // (float)
005B: 9@ += 10@ // (float)
0063: 9@ -= 8@ // (float)
006B: 9@ *= 6@ // (float)
0AA5: call 4327360 num_params 2 pop 2 9@ 1.0
0AA7: call_function $4 num_params 0 pop 0 9@
8@ = 3.141593
0063: 8@ -= 9@ // (float)
jump NAN.0
7@ = 3.141593
7@ /= 2.0
0087: 8@ = 7@ // (float)
0AA5: call 4327360 num_params 2 pop 2 5@ 11@
0AA7: call_function $4 num_params 0 pop 0 9@
3@ *= -1.0
0AA5: call 4327360 num_params 2 pop 2 3@ 4@
0AA7: call_function $4 num_params 0 pop 0 10@
11@ = 3.141593
11@ /= 2.0
0063: 10@ -= 11@ // (float)
0063: 9@ -= 7@ // (float)
0063: 10@ -= 8@ // (float)
10@ *= -1.0
0A25: set_camera_on_players_X_angle 9@ Z_angle 10@
ret 0
hex
 83 EC 04 D9 5C 24 00 8B 44 24 00 83 C4 04 C3 D6
end
0400: store_coords_to
  31@ == 1
else_jump NAN.0
20@ = 65
21@ = 105
22@ = 106
23@ = 107
chatmsg "{00FF00},,Grove Street''{55557F} skinai {55FF7F}ignoruojami" 251723520
SAMP.CmdRet

:Label00105C
if
  31@ == 1
else_jump NAN.0
20@ = 102
21@ = 103
22@ = 104
23@ = 195
chatmsg "{7C00BA},,The Ballas''{55557F} skinai {55FF7F}ignoruojami" 259784890
SAMP.CmdRet

:Label0010D0
if
  31@ == 1
else_jump NAN.0
20@ = 169
21@ = 124
22@ = 125
23@ = 126
chatmsg "{0044CE},,Immortal''{55557F} skinai {55FF7F}ignoruojami" 251675854
SAMP.CmdRet

:Label001142
if
  31@ == 1
else_jump NAN.0
20@ = 120
21@ = 118
22@ = 117
23@ = 263
chatmsg "{E4E400},,Cosa Nostra''{55557F} skinai {55FF7F}ignoruojami" 266658816
SAMP.CmdRet

:Label0011B7
if
  31@ == 1
else_jump NAN.0
20@ = -1
21@ = -1
22@ = -1
23@ = -1
chatmsg "Visi ignoravimai išjungti" 268369920
SAMP.CmdRet

:Label00120A
if
  31@ == 1
else_jump NAN.0
chatmsg "_____________________________________________________" 268435200
chatmsg "Aimas V3 BY = {55FF7F}Airidas_Krc" 268435200
chatmsg "Norint ignoruoti {00FF00},,Grove Street''{55557F} skinus, rašyk: {55FF7F}/gs" 257250687
chatmsg "Norint ignoruoti {7C00BA},,The Ballas''{55557F} skinus, rašyk: {55FF7F}/tb" 257250687
chatmsg "Norint ignoruoti {0044CE},,Immortal''{55557F} skinus, rašyk: {55FF7F}/imm" 257250687
chatmsg "Norint ignoruoti {E4E400},,Cosa Nostra''{55557F} skinus, rašyk: {55FF7F}/cn" 257250687
chatmsg "Išjungti ignoravimus: {55FF7F}/soff" 268369920
chatmsg "DĖMĖSIO! Galima ignoruoti tik vieną pasirinkta grupę." 268369920
chatmsg " - /aimas /on/off | /aimcf - nustatymai" 268435200
chatmsg "_____________________________________________________" 268435200
SAMP.CmdRet

:Label0014B6
if
  31@ == 1
else_jump NAN.0
Dialog.SetVisible(25@, 1)
SAMP.ToggleCursor(1)
SAMP.CmdRet
hex
 48 45
end
0058: -671088640 += '' // (int)
9200:   not
hex
 5B A6 CD BB D9 7B 14 06 9C 11 E8 DA 36 95 D9 92
 5B A6 CD BB 86 24 47 44 DA 45 BA DA
end
0662: printstring ""
  31@ > 28
else_jump NAN.0
29@ = 0
30@ = 0
31@ = 0
0@ = 0
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 1
1@ += 4
0A8C: write_memory 1@ size 4 value 2@ virtual_protect 1
0406:
8D00:   not
030A:
wait 4
0104:   actor 2@ near_actor s$192 radius -1945893888 s$Catalina_Total_Passed_Missions
0404:
0203:   actor on_foot
hex
 04 00
end
0A9F: 0@ = current_thread_pointer
0@ += 16
0A8D: 0@ = read_memory 0@ size 4 virtual_protect 1
005A: 2@ += 0@ // (int)
0A8E: 5@ = 2@ + 4.764415E-44 // int
0A8D: 3@ = read_memory 5@ size 1 virtual_protect 1
0A8C: write_memory 2@ size 1 value 3@ virtual_protect 1
0062: 2@ -= 0@ // (int)
2@ += 1
001D:   2@ > 1@ // (int)
else_jump NAN.0
5@ = 0
4@ = 0
3@ = 0
2@ = 0
0A9F: 0@ = current_thread_pointer
0@ += 16
0A8D: 1@ = read_memory 0@ size 4 virtual_protect 1
0@ += 4
0A8C: write_memory 0@ size 4 value 1@ virtual_protect 1

asdzxcjqwe · 10 Апр 2020

no, this code is not compilable.
provide the cleo file so we'll decompile it properly.

WtfDude · 10 Апр 2020

asdzxcjqwe написал(а):
no, this code is not compilable.
provide the cleo file so we'll decompile it properly.

asdzxcjqwe · 11 Апр 2020

try this

update: fixed and reuploaded

WtfDude · 11 Апр 2020

Yes but now if i go in server and write /aimas and /aimcf does not show anything and does not enable the script @asdzxcjqwe @Azller Lollison @DonHomka

asdzxcjqwe написал(а):
try this

CLEO:

// 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
thread 'AIMAS'
:Label000015
wait 0
   SAMP.Available
jf @Label000015
0B34: samp register_client_command "aimas" to_label @Label000BE9
0B34: samp register_client_command "aimcf" to_label @Label0014B6
0B34: samp register_client_command "gs" to_label @Label000FE7
0B34: samp register_client_command "tb" to_label @Label00105C
0B34: samp register_client_command "imm" to_label @Label0010D0
0B34: samp register_client_command "cn" to_label @Label001142
0B34: samp register_client_command "soff" to_label @Label0011B7
0B34: samp register_client_command "sinfo" to_label @Label00120A
18@ = 0
31@ = 0
20@ = -1
21@ = -1
22@ = -1
23@ = -1
24@ = 3
chatmsg "Aim'as V3 BY = {55FF7F}Airidas_Krc{FF0000} | Daugiau informacijos:{55FF7F} /sinfo" 268369920
if
0AA2: 28@ = load_library "kernel32.dll" // IF and SET
jf @Label000199
if
0AA4: 29@ = get_proc_address "GetVolumeInformationA" library 28@ // IF and SET
jf @Label000199
0AC7: 30@ = var 30@ offset
0AA5: call 29@ num_params 8 pop 0 0 0 0 0 30@ 0 0 0
if
  30@ == 580444520
jf @Label000199
31@ = 1

:Label000199
Dialog.Create(25@, "{FFFFFF}AimBot V3")
Dialog.SetRECT(25@, 925, 346, 370, 230)
Dialog.AddCheckBox(25@, 1, "{14B4B6}Galva", 10, 10, 200, 20)
Dialog.AddCheckBox(25@, 2, "{14B4B6}Lupos", 210, 10, 200, 20)
Dialog.AddCheckBox(25@, 3, "{14B4B6}Kaklas", 10, 30, 200, 20)
Dialog.AddCheckBox(25@, 4, "{14B4B6}Krutine", 210, 30, 200, 20)
Dialog.AddCheckBox(25@, 5, "{14B4B6}Kairys petys", 10, 50, 200, 20)
Dialog.AddCheckBox(25@, 6, "{14B4B6}Desinys petys", 210, 50, 200, 20)
Dialog.AddCheckBox(25@, 7, "{14B4B6}Centras", 10, 70, 200, 20)
Dialog.AddCheckBox(25@, 8, "{14B4B6}Pilvas", 210, 70, 200, 20)
Dialog.AddCheckBox(25@, 9, "{14B4B6}Kairys kelienis", 10, 90, 200, 20)
Dialog.AddCheckBox(25@, 10, "{14B4B6}Desinys kelienis", 210, 90, 200, 20)
Dialog.AddStatic(25@, 11, "{FF00F3}___________________________", 10, 105, 200, 20)
Dialog.AddStatic(25@, 12, "{FF00F3}___________________", 210, 105, 200, 20)
Dialog.AddCheckBox(25@, 13, "{14B4B6}Targ.Nusitaikius", 110, 135, 200, 20)
Dialog.AddButton(25@, 14, "{FFFFFF}Gerai", 144, 165, 70, 35)
Dialog.SetBackgroundColor(25@, -268435456)
Dialog.SetVisible(25@, 0)

:Label0003F5
wait 0
0AA3: free_library 28@
0A9F: $4 = current_thread_pointer
$4 += 16
0A8D: $4 = read_memory $4 size 4 virtual_protect 0
$4 -= -4056
if
  31@ == 1
jf @Label000BE2
if
   Dialog.IsVisible(25@)
jf @Label000A7A
SAMP.ToggleCursor(1)
if and
   Dialog.IsVisible(25@)
   SAMP.IsCursorActive
   not Dialog.IsMinimized(25@)
key_down 2
jf @Label00047A
0B5E: get_cursor_pos $5 $6
Dialog.SetRECT(25@, $5, $6, 370, 230)

:Label00047A
if
   Dialog.PopEvent(25@, 1025, 26@)
jf @Label000A7A
if
  26@ == 1
jf @Label000512
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label0004E5
24@ = 6
print "~W~PASIRINKTA - ~G~GALVA~W~" 2000
goto @Label000512

:Label0004E5
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label000512
if
  26@ == 2
jf @Label000594
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label000567
24@ = 8
print "~W~PASIRINKTA - ~G~LUPOS~W~" 2000
goto @Label000594

:Label000567
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label000594
if
  26@ == 3
jf @Label000617
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label0005EA
24@ = 4
print "~W~PASIRINKTA - ~G~KAKLAS~W~" 2000
goto @Label000617

:Label0005EA
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label000617
if
  26@ == 4
jf @Label00069B
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label00066E
24@ = 21
print "~W~PASIRINKTA - ~G~KRUTINE~W~" 2000
goto @Label00069B

:Label00066E
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label00069B
if
  26@ == 5
jf @Label000724
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label0006F7
24@ = 22
print "~W~PASIRINKTA - ~G~KAIRYS PETYS~W~" 2000
goto @Label000724

:Label0006F7
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label000724
if
  26@ == 6
jf @Label0007AE
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label000781
24@ = 32
print "~W~PASIRINKTA - ~G~DESINYS PETYS~W~" 2000
goto @Label0007AE

:Label000781
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label0007AE
if
  26@ == 7
jf @Label000832
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label000805
24@ = 3
print "~W~PASIRINKTA - ~G~CENTRAS~W~" 2000
goto @Label000832

:Label000805
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label000832
if
  26@ == 8
jf @Label0008B5
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label000888
24@ = 2
print "~W~PASIRINKTA - ~G~PILVAS~W~" 2000
goto @Label0008B5

:Label000888
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label0008B5
if
  26@ == 9
jf @Label000941
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label000914
24@ = 52
print "~W~PASIRINKTA - ~G~KAIRYS KELIENIS~W~" 2000
goto @Label000941

:Label000914
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label000941
if
  26@ == 10
jf @Label0009CE
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label0009A1
24@ = 42
print "~W~PASIRINKTA - ~G~DESINYS KELIENIS~W~" 2000
goto @Label0009CE

:Label0009A1
24@ = -1
print "~W~PASIRINKIMAS ~R~ATSAUKTAS~W~" 1000

:Label0009CE
if
  26@ == 13
jf @Label000A5D
if
   Dialog.CheckBoxIsChecked(25@, 26@)
jf @Label000A27
$7 = 1
print "~W~TARGINTI - ~G~NUSITAIKIUS~W~" 2000
goto @Label000A5D

:Label000A27
$7 = 0
27@ = -1
print "~W~TARGINTI - ~R~NENUSITAIKIUS~W~" 1000

:Label000A5D
if
  26@ == 14
jf @Label000A7A
Dialog.SetVisible(25@, 0)
SAMP.ToggleCursor(0)

:Label000A7A
if
  $7 == 1
jf @Label000A9A
27@ = 2
27@ = 20

:Label000A9A
if
  18@ == 1
jf @Label000BE2
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 1
jf @Label000B3C
if and
056D:   actor 0@ defined
   not Actor.Dead(0@)
02CB:   actor 0@ bounding_sphere_visible
jf @Label000B3C
0665: get_actor 0@ model_to 19@
if and
803B:   not  19@ == 20@ // (int)
803B:   not  19@ == 21@ // (int)
803B:   not  19@ == 22@ // (int)
803B:   not  19@ == 23@ // (int)
jf @Label000B3C
call @Label000C85 2 0@ 24@ 1@ 2@ 3@
call @Label000D8F 3 1@ 2@ 3@

:Label000B3C
if and
  $7 == 1
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
jf @Label000BE2
if or
key_down 2
key_down 20
jf @Label000BE2
if and
056D:   actor 0@ defined
   not Actor.Dead(0@)
02CB:   actor 0@ bounding_sphere_visible
jf @Label000BE2
0665: get_actor 0@ model_to 19@
if and
803B:   not  19@ == 20@ // (int)
803B:   not  19@ == 21@ // (int)
803B:   not  19@ == 22@ // (int)
803B:   not  19@ == 23@ // (int)
jf @Label000BE2
call @Label000C85 2 0@ 24@ 1@ 2@ 3@
call @Label000D8F 3 1@ 2@ 3@

:Label000BE2
goto @Label0003F5

:Label000BE9
if
  31@ == 1
jf @Label000C83
0B12: 18@ = 18@ XOR 1
if
  18@ == 1
jf @Label000C50
print "~W~AIM BY KRC: ~G~ON~W~" 1000
018C: play_sound 1083 at 0.0 0 0.0
goto @Label000C83

:Label000C50
print "~W~AIM BY KRC: ~R~OFF~W~" 1000
018C: play_sound 1058 at 0.0 0 0.0

:Label000C83
SAMP.CmdRet

:Label000C85
0085: 10@ = 0@ // (int)
0085: 15@ = 1@ // (int)
1@ = 0.0
2@ = 0
3@ = 0.0
0A96: 0@ = actor 10@ struct
0AC7: 4@ = var 1@ offset
0AA6: call_method 6160832 struct 0@ num_params 3 pop 0 1 15@ 4@
ret 3 1@ 2@ 3@
0AC7: 14@ = var 0@ offset
0AC7: 15@ = var 3@ offset
0AC7: 16@ = var 6@ offset
0AC7: 17@ = var 9@ offset
0AA5: call 7392816 num_params 6 pop 6 0 0 17@ 16@ 15@ 14@
12@ = 640.0
13@ = 448.0
0A8D: 14@ = read_memory 12677188 size 4 virtual_protect 0
0A8D: 15@ = read_memory 12677192 size 4 virtual_protect 0
0093: 14@ = integer 14@ to_float
0093: 15@ = integer 15@ to_float
0073: 12@ /= 14@ // (float)
0073: 13@ /= 15@ // (float)
006B: 3@ *= 12@ // (float)
006B: 4@ *= 13@ // (float)
ret 2 3@ 4@

:Label000D8F
068D: get_camera_position_to 3@ 4@ 5@
0509: 11@ = distance_between_XY 0@ 1@ and_XY 3@ 4@
0063: 3@ -= 0@ // (float)
0063: 4@ -= 1@ // (float)
0063: 5@ -= 2@ // (float)
0A8D: 6@ = read_memory 11989416 size 2 virtual_protect 0
if or
  6@ == 53
  6@ == 55
jf @Label000F31
0A8D: 7@ = read_memory 9261112 size 4 virtual_protect 0
6@ = 0.5
006B: 7@ *= 6@ // (float)
02F6: 6@ = sine 7@ // (float)
02F7: 8@ = cosine 7@ // (float)
0073: 6@ /= 8@ // (float)
0A8D: 9@ = read_memory 11987984 size 4 virtual_protect 0
8@ = 0.5
0063: 8@ -= 9@ // (float)
8@ += 0.5
0063: 8@ -= 9@ // (float)
0A8D: 9@ = read_memory 12840868 size 4 virtual_protect 0
7@ = 1.0
0073: 7@ /= 9@ // (float)
006B: 8@ *= 7@ // (float)
006B: 8@ *= 6@ // (float)
0AA5: call 4327360 num_params 2 pop 2 8@ 1.0
0AA7: call_function $4 num_params 0 pop 0 8@
7@ = 3.141593
0063: 7@ -= 8@ // (float)
0A8D: 10@ = read_memory 11987988 size 4 virtual_protect 0
0087: 9@ = 10@ // (float)
8@ = 0.5
0063: 9@ -= 8@ // (float)
005B: 9@ += 10@ // (float)
0063: 9@ -= 8@ // (float)
006B: 9@ *= 6@ // (float)
0AA5: call 4327360 num_params 2 pop 2 9@ 1.0
0AA7: call_function $4 num_params 0 pop 0 9@
8@ = 3.141593
0063: 8@ -= 9@ // (float)
goto @Label000F4D

:Label000F31
7@ = 3.141593
7@ /= 2.0
0087: 8@ = 7@ // (float)

:Label000F4D
0AA5: call 4327360 num_params 2 pop 2 5@ 11@
0AA7: call_function $4 num_params 0 pop 0 9@
3@ *= -1.0
0AA5: call 4327360 num_params 2 pop 2 3@ 4@
0AA7: call_function $4 num_params 0 pop 0 10@
11@ = 3.141593
11@ /= 2.0
0063: 10@ -= 11@ // (float)
0063: 9@ -= 7@ // (float)
0063: 10@ -= 8@ // (float)
10@ *= -1.0
0A25: set_camera_on_players_X_angle 9@ Z_angle 10@
ret 0

// no clue what this is
:Label000FD8
hex
83 EC 04 D9 5C 24 00 8B 44 24 00 83 C4 04 C3 D6
end

:Label000FE7
if
  31@ == 1
jf @Label00105A
20@ = 65
21@ = 105
22@ = 106
23@ = 107
chatmsg "{00FF00},,Grove Street''{55557F} skinai {55FF7F}ignoruojami" 251723520

:Label00105A
SAMP.CmdRet

:Label00105C
if
  31@ == 1
jf @Label0010CE
20@ = 102
21@ = 103
22@ = 104
23@ = 195
chatmsg "{7C00BA},,The Ballas''{55557F} skinai {55FF7F}ignoruojami" 259784890

:Label0010CE
SAMP.CmdRet

:Label0010D0
if
  31@ == 1
jf @Label001140
20@ = 169
21@ = 124
22@ = 125
23@ = 126
chatmsg "{0044CE},,Immortal''{55557F} skinai {55FF7F}ignoruojami" 251675854

:Label001140
SAMP.CmdRet

:Label001142
if
  31@ == 1
jf @Label0011B5
20@ = 120
21@ = 118
22@ = 117
23@ = 263
chatmsg "{E4E400},,Cosa Nostra''{55557F} skinai {55FF7F}ignoruojami" 266658816

:Label0011B5
SAMP.CmdRet

:Label0011B7
if
  31@ == 1
jf @Label001208
20@ = -1
21@ = -1
22@ = -1
23@ = -1
chatmsg "Visi ignoravimai išjungti" 268369920

:Label001208
SAMP.CmdRet

:Label00120A
if
  31@ == 1
jf @Label0014B4
chatmsg "_____________________________________________________" 268435200
chatmsg "Aimas V3 BY = {55FF7F}Airidas_Krc" 268435200
chatmsg "Norint ignoruoti {00FF00},,Grove Street''{55557F} skinus, rašyk: {55FF7F}/gs" 257250687
chatmsg "Norint ignoruoti {7C00BA},,The Ballas''{55557F} skinus, rašyk: {55FF7F}/tb" 257250687
chatmsg "Norint ignoruoti {0044CE},,Immortal''{55557F} skinus, rašyk: {55FF7F}/imm" 257250687
chatmsg "Norint ignoruoti {E4E400},,Cosa Nostra''{55557F} skinus, rašyk: {55FF7F}/cn" 257250687
chatmsg "Išjungti ignoravimus: {55FF7F}/soff" 268369920
chatmsg "DĖMĖSIO! Galima ignoruoti tik vieną pasirinkta grupę." 268369920
chatmsg " - /aimas /on/off | /aimcf - nustatymai" 268435200
chatmsg "_____________________________________________________" 268435200

:Label0014B4
SAMP.CmdRet

:Label0014B6
if
  31@ == 1
jf @Label0014D3
Dialog.SetVisible(25@, 1)
SAMP.ToggleCursor(1)

:Label0014D3
SAMP.CmdRet

asdzxcjqwe · 11 Апр 2020

WtfDude написал(а):
if i go in server and write /aimas and /aimcf does not show anything

That's obvious. This script has a little protection against unauthorized copying to prevent other people from running it.
So you just should have cut this out to get it to work:

CLEO:

if
0AA2: 28@ = load_library "kernel32.dll" // IF and SET
jf @Label000199
if
0AA4: 29@ = get_proc_address "GetVolumeInformationA" library 28@ // IF and SET
jf @Label000199
0AC7: 30@ = var 30@ offset
0AA5: call 29@ num_params 8 pop 0 0 0 0 0 30@ 0 0 0 
if
  30@ == 580444520
jf @Label000199

try again

WtfDude · 11 Апр 2020

asdzxcjqwe написал(а):
That's obvious. This script has a little protection against unauthorized copying to prevent other people from running it.
So you just should have cut this out to get it to work:

CLEO:

if 0AA2: 28@ = load_library "kernel32.dll" // IF and SET jf @Label000199 if 0AA4: 29@ = get_proc_address "GetVolumeInformationA" library 28@ // IF and SET jf @Label000199 0AC7: 30@ = var 30@ offset 0AA5: call 29@ num_params 8 pop 0 0 0 0 0 30@ 0 0 0 if 30@ == 580444520 jf @Label000199

try again

now problem this how fix ?

asdzxcjqwe · 11 Апр 2020

WtfDude написал(а):
now problem this how fix ?

i'll look at it tomorrow

WtfDude · 11 Апр 2020

asdzxcjqwe написал(а):
i'll look at it tomorrow

Ok and tommorow you fix this ? @asdzxcjqwe

asdzxcjqwe · 13 Апр 2020

looks like the issue is fixed, now this should work with no problem

WtfDude · 13 Апр 2020

asdzxcjqwe написал(а):
looks like the issue is fixed, now this should work with no problem

script is working, but when I arrive the target turns to the other side.

Поиск

Поиск

Compile

WtfDude

Участник

asdzxcjqwe

¯\_(ツ)_/¯

WtfDude

Участник

Вложения

asdzxcjqwe

¯\_(ツ)_/¯

Вложения

WtfDude

Участник

asdzxcjqwe

¯\_(ツ)_/¯

Вложения

WtfDude

Участник

asdzxcjqwe

¯\_(ツ)_/¯

WtfDude

Участник

asdzxcjqwe

¯\_(ツ)_/¯

Вложения

WtfDude

Участник

Похожие темы