CLEO Help Updating a cleo

CLEO related
Status
Not open for further replies.

Fu$10N

Expert
Joined
Mar 5, 2014
Messages
1,101
Reaction score
9
Hello  :ugbase:

I need your help. I am trying to update antialt-tab by MogAika. I updated the offsets, but it won't work because of some shit hex code. Can anyone help me with this ? Here's the updated code ( hope it doesn't have anything wrong in it )

Code:
{$CLEO}

thread "antiafk"

wait 0 
jump @Noname_82 


:Noname_82
if 
0@ = SAMP.Base()
else_goto @Noname_100 
end_custom_thread 

:Noname_100
wait 300 
   SAMP.Available
else_goto @Noname_100 
Dialog.Create(0@, "AFK Master by MogAika")
Dialog.SetRECT(0@, 0, 0, 360, 152)
call @Noname_941 1 0@ 
Dialog.AddCheckBox(0@, 1, "Script work in window mode", 8, 8, 356, 24)
Dialog.AddCheckBox(0@, 2, "Script work in minimized mode", 8, 32, 356, 24)
Dialog.AddCheckBox(0@, 3, "Mouse Loop", 8, 56, 316, 24)
Dialog.AddCheckBox(0@, 4, "Disable mouse centering", 8, 80, 316, 24)
Dialog.AddButton(0@, 255, "Close", 8, 104, 316, 24)
Dialog.SetControlVisible(0@, 2, 0)
call @Noname_1034 2 0@ 4 1@ 
call @Noname_1011 2 1@ 1 
Dialog.SetVisible(0@, 0)
cmd "aafk" @Noname_914 
0C11: memset destination 0x74542B value 144 size 8 
20@ = 0 

:Noname_435
wait 0 
call @Noname_941 1 0@ 
if 
   not 20@ == 0 
else_goto @Noname_474 
SAMP.ToggleCursor(1)

:Noname_474
   Dialog.PopEvent(0@, 1@, 2@)
else_goto @Noname_905 
if 
  2@ == 1 
else_goto @Noname_657 
if 
   Dialog.CheckBoxIsChecked(0@, 1)
else_goto @Noname_600 
Dialog.SetControlVisible(0@, 2, 1)
0A8C: write_memory 0x747FB6 size 1 value 1 virtual_protect 1 
0A8C: write_memory 0x74805A size 1 value 1 virtual_protect 1 
if 
   Dialog.CheckBoxIsChecked(0@, 2)
else_goto @Noname_593 
0C11: memset destination 0x53EA88 value 144 size 6 

:Noname_593
jump @Noname_657 

:Noname_600
Dialog.SetControlVisible(0@, 2, 0)
0A8C: write_memory 0x747FB6 size 1 value 0 virtual_protect 1 
0A8C: write_memory 0x74805A size 1 value 0 virtual_protect 1 
0AC6: 3@ = label @Noname_927 offset 
0C10: memcpy destination 0x53EA88 source 3@ size 6 

:Noname_657
if 
  2@ == 2 
else_goto @Noname_734 
if 
   Dialog.CheckBoxIsChecked(0@, 2)
else_goto @Noname_712 
0C11: memset destination 0x53EA88 value 144 size 6 
jump @Noname_734 

:Noname_712
0AC6: 3@ = label @Noname_927 offset 
0C10: memcpy destination 0x53EA88 source 3@ size 6 

:Noname_734
if 
  2@ == 3 
else_goto @Noname_791 
if 
   Dialog.CheckBoxIsChecked(0@, 3)
else_goto @Noname_784 
20@ = 1 
jump @Noname_791 

:Noname_784
20@ = 0 

:Noname_791
if 
  2@ == 4 
else_goto @Noname_868 
if 
   Dialog.CheckBoxIsChecked(0@, 4)
else_goto @Noname_846 
0C11: memset destination 0x74542B value 144 size 8 
jump @Noname_868 

:Noname_846
0AC6: 3@ = label @Noname_933 offset 
0C10: memcpy destination 0x74542B source 3@ size 8 

:Noname_868
if 
  2@ == 255 
else_goto @Noname_898 
Dialog.SetVisible(0@, 0)
SAMP.ToggleCursor(0)

:Noname_898
jump @Noname_474 

:Noname_905
jump @Noname_435 
end_custom_thread 

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

:Noname_927
hex
 0F 84 7B 01 00 00
end

:Noname_933
hex
 50 51 FF 15 00 83 85 00
end

:Noname_941
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 

:Noname_1011
0@ += 338 
0C11: memset destination 0@ value 1@ size 1 
ret 0 

:Noname_1034
10@ = SAMP.Base()
10@ += 0x6B9C0 
0AA8: call_function_method 10@ struct 0@ num_params 1 pop 0 1@ 2@  
ret 1 2@
When I use the 0.3x version and 0.3z, it shows me a box before activating the script with 3 spaces to tick. I can't activate even a single one of it, but can't close that either. If I try to close it, it freezes my game and I need to restart it. Anyone willing to help me ?

[member=111]springfield[/member] [member=60]Opcode.eXe[/member]
 
Joined
Feb 18, 2005
Messages
2,965
Reaction score
271
All samp related offsets, i didn't look through whole script but this

Code:
:Noname_1034
10@ = SAMP.Base()
10@ += 0x6B9C0
0AA8: call_function_method 10@ struct 0@ num_params 1 pop 0 1@ 2@ 
ret 1 2@

That's the address to show a dialog.
Here's how you need to call it and with what parameters http://ugbase.eu/help-7/dialog-wo-sampfuncs/msg65433/#msg65433
 
Status
Not open for further replies.
Top