Cheat Source Code ??

MalikeiraOPoder

Active member
Joined
Mar 16, 2019
Messages
100
Reaction score
2
I would like to know where I can get the source code of each cheat Example, the source code about NoSpread, Aimbot, BulletSync etc ... to add in my mod CLEO
 

ini

Well-known member
Joined
Sep 28, 2015
Messages
321
Reaction score
115
well for aimbots it's very common to see source codes on forums, but bulletsync, nospread are different things, i suggest you to take a look into mod_sa src, you can get some important info for learn how things are done.
 

MalikeiraOPoder

Active member
Joined
Mar 16, 2019
Messages
100
Reaction score
2
PHP:
{$CLEO .cs}
{$INCLUDE SF}

Thread "MENU TEST"

CONST
PLAYER          $PLAYER_ACTOR
CHAR            $PLAYER_CHAR
D_HELP          666
D_WIDTH         160    // 320
D_HEIGHT        135    // 305
K_MENU          113 //F2 for open the Dialog
HEX_G           0x66FF33 //Green
END

repeat
    wait 40
until SAMP.Available()

//DIALOG
Dialog.Create(20@, "MENU")
Dialog.SetRECT(20@, 0, 0, D_WIDTH, D_HEIGHT)
Dialog.AddCheckBox(20@, 1, "NoReload Guns", 5, 30, 180, 15)
Dialog.AddCheckBox(20@, 2, "Aimbot", 5, 50, 180, 15)
Dialog.AddCheckBox(20@, 3, "No Fall", 5, 70, 180, 15)
Dialog.AddCheckBox(20@, 4, "Infinite Run", 5, 90, 180, 15)

//Buttons
Dialog.AddButton(20@, 5, "NoSPREAD", 5, 110, 125, 25)
Dialog.AddButton(20@, 6, "Matrix JUMP", 5, 130, 125, 25)
Dialog.AddButton(20@, 7, "BackFlip", 5, 150, 125, 25)
Dialog.AddButton(20@, 8, "MegaJump", 5, 170, 125, 25)
Dialog.SetVisible(20@, 0)

wait 3000

WHILE TRUE
WAIT 0

IF
0AB0: K_MENU
THEN
    REPEAT
        WAIT 0
    UNTIL 8AB0: K_MENU // ANTI SPAM KEY
   
    IF 0B87: dialog 20@ is_visible
    THEN
        IF
        8B92:  dialog 20@ checkbox 1 is_checked
        THEN
            0330: set_player CHAR infinite_run 0
            04D8: set_actor PLAYER drowns_in_water 1
            08C6: set_actor PLAYER stay_on_bike 0
        END
        02AB: set_actor PLAYER immunities BP 0 FP 0 EP 0 CP 0 MP 0
        0@ = 0
    ELSE
        00A0: store_actor PLAYER position_to 1@ 2@ 3@
        0980: extinguish_all_fires_at 1@ 2@ 3@ radius 200.0
        0@ = 1
    END
    0AB1:  @ToggleDialog 2 20@ 0@
    wait 200
END
       
IF
0B81: dialog 20@ pop_event_to 22@ control_id_to 12@
THEN
    //018C: play_sound 1083 at 0.0 0.0 0.0
    IF AND
    12@ == 2 // ID
    22@ == 257 // pressed
    THEN
        IF
        10@ == FALSE
        THEN
            10@ = TRUE
        ELSE
            10@ = FALSE
        END
    END
       
    IF
    10@ == TRUE
    THEN
        IF
        0B87: dialog 20@ is_visible
        THEN
            alloc 0@ 20
            format 0@ "{%X}NoSPREAD: ON" HEX_G
            Dialog.SetControlText(20@, 2, 0@)
            free 0@
            // noSpread Code Here when is ON
        END
    ELSE
        IF
        0B87: dialog 20@ is_visible
        THEN
            Dialog.SetControlText(20@, 2, "NoSPREAD")
            // noSpread Code here When is OFF
        END
    END
   
END // END 0B81: dialog 20@ pop_event_to 22@ control_id_to 12@

END // WHILE TRUE

:ToggleDialog
0B86: 0@ 1@
0B5D: 1@
ret 0

@Opcode.eXe
@shanker
@_=Gigant=_
@Parazitas
@monday
HELP ME
 

Parazitas

God
Joined
Jan 2, 2017
Messages
3,116
Solutions
5
Reaction score
882
Location
Lithuania
help me with this cheat above NoReload Guns, aimbot , no fall, infinite run, no spread, matrix jump, backflip , megajump

WTF?
You copied my edited code from another thread and put here..
Now you saying help , when you don't do nothing...
 

Parazitas

God
Joined
Jan 2, 2017
Messages
3,116
Solutions
5
Reaction score
882
Location
Lithuania

MalikeiraOPoder

Active member
Joined
Mar 16, 2019
Messages
100
Reaction score
2
PHP:
{$CLEO .cs}
{$INCLUDE SF}

Thread "MENU TEST"

CONST
PLAYER          $PLAYER_ACTOR
CHAR            $PLAYER_CHAR
D_HELP          666
D_WIDTH         160    // 320
D_HEIGHT        135    // 305
K_MENU          113 //F2 for open the Dialog
HEX_G           0x66FF33 //Green
END

repeat
    wait 40
until SAMP.Available()

//DIALOG
Dialog.Create(20@, "MENU")
Dialog.SetRECT(20@, 0, 0, D_WIDTH, D_HEIGHT)
Dialog.AddCheckBox(20@, 1, "NoReload Guns", 5, 30, 180, 15)
Dialog.AddCheckBox(20@, 2, "Aimbot", 5, 50, 180, 15)
Dialog.AddCheckBox(20@, 3, "No Fall", 5, 70, 180, 15)
Dialog.AddCheckBox(20@, 4, "Infinite Run", 5, 90, 180, 15)

//Buttons
Dialog.AddButton(20@, 5, "NoSPREAD", 5, 110, 125, 25)
Dialog.AddButton(20@, 6, "Matrix JUMP", 5, 130, 125, 25)
Dialog.AddButton(20@, 7, "BackFlip", 5, 150, 125, 25)
Dialog.AddButton(20@, 8, "MegaJump", 5, 170, 125, 25)
Dialog.SetVisible(20@, 0)

wait 3000

WHILE TRUE
WAIT 0

IF
0AB0: K_MENU
THEN
    REPEAT
        WAIT 0
    UNTIL 8AB0: K_MENU // ANTI SPAM KEY
  
    IF 0B87: dialog 20@ is_visible
    THEN
        IF
        8B92:  dialog 20@ checkbox 1 is_checked
        THEN
            0330: set_player CHAR infinite_run 0
            04D8: set_actor PLAYER drowns_in_water 1
            08C6: set_actor PLAYER stay_on_bike 0
        END
        02AB: set_actor PLAYER immunities BP 0 FP 0 EP 0 CP 0 MP 0
        0@ = 0
    ELSE
        00A0: store_actor PLAYER position_to 1@ 2@ 3@
        0980: extinguish_all_fires_at 1@ 2@ 3@ radius 200.0
        0@ = 1
    END
    0AB1:  @ToggleDialog 2 20@ 0@
    wait 200
END
      
IF
0B81: dialog 20@ pop_event_to 22@ control_id_to 12@
THEN
    //018C: play_sound 1083 at 0.0 0.0 0.0
    IF AND
    12@ == 2 // ID
    22@ == 257 // pressed
    THEN
        IF
        10@ == FALSE
        THEN
            10@ = TRUE
        ELSE
            10@ = FALSE
        END
    END
      
    IF
    10@ == TRUE
    THEN
        IF
        0B87: dialog 20@ is_visible
        THEN
            alloc 0@ 20
            format 0@ "{%X}NoSPREAD: ON" HEX_G
            Dialog.SetControlText(20@, 2, 0@)
            free 0@
            // noSpread Code Here when is ON
        END
    ELSE
        IF
        0B87: dialog 20@ is_visible
        THEN
            Dialog.SetControlText(20@, 2, "NoSPREAD")
            // noSpread Code here When is OFF
        END
    END
  
END // END 0B81: dialog 20@ pop_event_to 22@ control_id_to 12@

END // WHILE TRUE

:ToggleDialog
0B86: 0@ 1@
0B5D: 1@
ret 0

Can u do in this code ? I tried and i can't :(
 

Parazitas

God
Joined
Jan 2, 2017
Messages
3,116
Solutions
5
Reaction score
882
Location
Lithuania
Here example .:
PHP:
{$CLEO .cs}

Thread "MENU TEST"

CONST
PLAYER          $PLAYER_ACTOR
CHAR            $PLAYER_CHAR
D_HELP          666
D_WIDTH         160    // 320
D_HEIGHT        135    // 305
K_MENU          113 //F2 for open the Dialog
HEX_G           0x66FF33 //Green
END

repeat
    wait 40
until SAMP.Available()

//DIALOG
Dialog.Create(0@, "MENU")
Dialog.SetRECT(0@, 0, 0, D_WIDTH, D_HEIGHT)
Dialog.AddCheckBox(0@, 1, "NoReload Guns", 5, 30, 180, 15)
Dialog.AddCheckBox(0@, 2, "Aimbot", 5, 50, 180, 15)
Dialog.AddCheckBox(0@, 3, "No Fall", 5, 70, 180, 15)
Dialog.AddCheckBox(0@, 4, "Infinite Run", 5, 90, 180, 15)

//Buttons
Dialog.AddButton(0@, 5, "NoSPREAD", 5, 110, 125, 25)
Dialog.AddButton(0@, 6, "Matrix JUMP", 5, 130, 125, 25)
Dialog.AddButton(0@, 7, "BackFlip", 5, 150, 125, 25)
Dialog.AddButton(0@, 8, "MegaJump", 5, 170, 125, 25)
Dialog.SetVisible(0@, 0)

WHILE TRUE
WAIT 0

IF
0AB0: K_MENU
THEN
    REPEAT
        WAIT 0
    UNTIL 8AB0: K_MENU // ANTI SPAM KEY
  
    IF 0B87: dialog 0@ is_visible
    THEN
        IF
        8B92:  dialog 0@ checkbox 1 is_checked
        THEN
            0330: set_player CHAR infinite_run 0
            04D8: set_actor PLAYER drowns_in_water 1
            08C6: set_actor PLAYER stay_on_bike 0
        END
        02AB: set_actor PLAYER immunities BP 0 FP 0 EP 0 CP 0 MP 0
        4@ = 0
    ELSE
        00A0: store_actor PLAYER position_to 1@ 2@ 3@
        0980: extinguish_all_fires_at 1@ 2@ 3@ radius 200.0
        4@ = 1
    END
    0AB1:  @ToggleDialog 2 0@ 4@
    wait 200
END
      
IF
0B81: dialog 0@ pop_event_to 22@ control_id_to 12@
THEN
    //018C: play_sound 1083 at 0.0 0.0 0.0
    IF AND
    12@ == 5 // ID
    22@ == 257 // pressed
    THEN
        IF
        10@ == FALSE
        THEN
            10@ = TRUE
        ELSE
            10@ = FALSE
        END
    END
      
    IF
    10@ == TRUE
    THEN
        IF 02D8:   actor $PLAYER_ACTOR current_weapon == 24
        THEN 0AB1: @NO_SPREAD 2 WEAPON_ID 24 SPREAD_VALUE 2.0
        END
    END  
  
END // END 0B81: dialog 20@ pop_event_to 22@ control_id_to 12@

END // WHILE TRUE

:ToggleDialog
0B86: 0@ 1@
0B5D: 1@
RET 0

:NO_SPREAD
{
    0AB1: @NO_SPREAD 2 WEAPON_ID 24 SPREAD_VALUE 2.0 
}
0@ += 36
0@ *= 112
0@ += 13150960
0A8C: write_memory 0@ size 4 value 1@ virtual_protect 0
RET 0

Now start doing something , stop write help help ..., focus ! start doing something...
 

MalikeiraOPoder

Active member
Joined
Mar 16, 2019
Messages
100
Reaction score
2
Here example .:
PHP:
{$CLEO .cs}

Thread "MENU TEST"

CONST
PLAYER          $PLAYER_ACTOR
CHAR            $PLAYER_CHAR
D_HELP          666
D_WIDTH         160    // 320
D_HEIGHT        135    // 305
K_MENU          113 //F2 for open the Dialog
HEX_G           0x66FF33 //Green
END

repeat
    wait 40
until SAMP.Available()

//DIALOG
Dialog.Create(0@, "MENU")
Dialog.SetRECT(0@, 0, 0, D_WIDTH, D_HEIGHT)
Dialog.AddCheckBox(0@, 1, "NoReload Guns", 5, 30, 180, 15)
Dialog.AddCheckBox(0@, 2, "Aimbot", 5, 50, 180, 15)
Dialog.AddCheckBox(0@, 3, "No Fall", 5, 70, 180, 15)
Dialog.AddCheckBox(0@, 4, "Infinite Run", 5, 90, 180, 15)

//Buttons
Dialog.AddButton(0@, 5, "NoSPREAD", 5, 110, 125, 25)
Dialog.AddButton(0@, 6, "Matrix JUMP", 5, 130, 125, 25)
Dialog.AddButton(0@, 7, "BackFlip", 5, 150, 125, 25)
Dialog.AddButton(0@, 8, "MegaJump", 5, 170, 125, 25)
Dialog.SetVisible(0@, 0)

WHILE TRUE
WAIT 0

IF
0AB0: K_MENU
THEN
    REPEAT
        WAIT 0
    UNTIL 8AB0: K_MENU // ANTI SPAM KEY
 
    IF 0B87: dialog 0@ is_visible
    THEN
        IF
        8B92:  dialog 0@ checkbox 1 is_checked
        THEN
            0330: set_player CHAR infinite_run 0
            04D8: set_actor PLAYER drowns_in_water 1
            08C6: set_actor PLAYER stay_on_bike 0
        END
        02AB: set_actor PLAYER immunities BP 0 FP 0 EP 0 CP 0 MP 0
        4@ = 0
    ELSE
        00A0: store_actor PLAYER position_to 1@ 2@ 3@
        0980: extinguish_all_fires_at 1@ 2@ 3@ radius 200.0
        4@ = 1
    END
    0AB1:  @ToggleDialog 2 0@ 4@
    wait 200
END
     
IF
0B81: dialog 0@ pop_event_to 22@ control_id_to 12@
THEN
    //018C: play_sound 1083 at 0.0 0.0 0.0
    IF AND
    12@ == 5 // ID
    22@ == 257 // pressed
    THEN
        IF
        10@ == FALSE
        THEN
            10@ = TRUE
        ELSE
            10@ = FALSE
        END
    END
     
    IF
    10@ == TRUE
    THEN
        IF 02D8:   actor $PLAYER_ACTOR current_weapon == 24
        THEN 0AB1: @NO_SPREAD 2 WEAPON_ID 24 SPREAD_VALUE 2.0
        END
    END 
 
END // END 0B81: dialog 20@ pop_event_to 22@ control_id_to 12@

END // WHILE TRUE

:ToggleDialog
0B86: 0@ 1@
0B5D: 1@
RET 0

:NO_SPREAD
{
    0AB1: @NO_SPREAD 2 WEAPON_ID 24 SPREAD_VALUE 2.0
}
0@ += 36
0@ *= 112
0@ += 13150960
0A8C: write_memory 0@ size 4 value 1@ virtual_protect 0
RET 0

Now start doing something , stop write help help ..., focus ! start doing something...
bro, im sorry :(
you helped me a lot <3

im starter.. idk how to use these codes , example : 0B31 etc..


can u do last favor ? pls

does when NoSpread is turned on, the button stays green and when it is off the button goes white, I could not make a way to turn off the NoSpread


@Parazitas
 

MalikeiraOPoder

Active member
Joined
Mar 16, 2019
Messages
100
Reaction score
2
Top