CLEO RELEASE TwistPlayer.cs - make your character strange

SA-MP Version
0.3.7
Requirements
CLEO 4.1.1.30f, SAMPFUNCS

Blume

Active Member
Joined
May 14, 2018
Messages
36
Likes
7
Points
23
Location
China
#1
I haven't released any works since I join this forum, so today let me share you a funny cleo xd.

This CLEO random your quaternion, and let you keep doing random broken animations

It only sync for other players, so you can't see what's change of you.

(also work when shooting)

Just type "/tw" in chatbox to enable/disable it

Preview:
 

Attachments

OP
OP
Blume

Blume

Active Member
Joined
May 14, 2018
Messages
36
Likes
7
Points
23
Location
China
#2
source here:
Code:
{$CLEO .cs}
{$INCLUDE SF}

0000: NOP

thread "#####MADE BY BLUME#####"

while not SAMP.Available()
    wait 400
end

0B34: samp register_client_command "tw" to_label @enablendisable
0AF8: samp add_message_to_chat "TwistPlayer.cs Author --> Blume" 16019777
0BE2: raknet setup_outcoming_packet_hook @onfoot_packet_hook

$enable = false

0BDE: pause_thread 0

:enablendisable
    if $enable == true
    then
        $enable = false
        0AF8: samp add_message_to_chat "TWISTPLAYER --> DISABLED" 16019777 
    else
        $enable = true
        0AF8: samp add_message_to_chat "TWISTPLAYER --> ENABLED" 16019777   
    end
    SAMP.CmdRet         

:onfoot_packet_hook

    if $enable == true
    then
        0BE5: raknet $packet = get_hook_param PARAM_PACKETID
        if $packet == 207
        then
            0208: $quat1 = random_float_in_ranges 0.0 360.0
            0208: $quat2 = random_float_in_ranges 0.0 360.0
            0208: $quat3 = random_float_in_ranges 0.0 360.0
            0208: $quat4 = random_float_in_ranges 0.0 360.0
            
            0209: $result = random_int_in_ranges 0 5
                        
            if $result == 0
            then
                $currentAnimationID = 972
            end     
            if $result == 1
            then
                $currentAnimationID = 973
            end
            if $result == 2
            then
                $currentAnimationID = 974
            end
            if $result == 3
            then
                $currentAnimationID = 975
            end
            if $result == 4
            then
                $currentAnimationID = 977
            end
            
            0BE5: raknet $packet = get_hook_param PARAM_BITSTREAM
            0BF3: raknet $packet = bit_stream $packet get_data_ptr
            0C0D: struct $packet offset 19 size 4 = $quat1
            0C0D: struct $packet offset 23 size 4 = $quat2
            0C0D: struct $packet offset 27 size 4 = $quat3
            0C0D: struct $packet offset 30 size 4 = $quat4
            0C0D: struct $packet offset 65 size 2 = $currentAnimationID
            0C0D: struct $packet offset 67 size 2 = 12082
        end             
    end
    0BE0: raknet hook_ret true
 
Top