{$CLEO .cs}
0000:
thread "TehArgis"
0B34: "fss" @cmd
0@ = 0

:MAIN
wait 0
0A8D: 1@ = read_memory 0xB6F178 size 4 virtual_protect 0
0C03: math 2@ = sine 1@ // (float)
0C05: math 3@ = cosine 1@ // (float)
0013: 2@ *= 25
0013: 3@ *= 25
if
0@ == 1
else_jump @MAIN
if
Actor.Driving($PLAYER_ACTOR)
else_jump @ONFOOT
jump @INCAR

:ONFOOT
wait 0
call @SendOnFootFakeSpeedSync 3 2@ 3@ 0
SAMP.CmdRet()
jump @MAIN

:INCAR
wait 0
5@ = Actor.CurrentCar($PLAYER_ACTOR)
6@ = SAMP.GetSAMPVehicleIDByCarHandle(5@)
wait 0
call @SendIncarFakeSpeedSync 4 2@ 3@ 0 6@
SAMP.CmdRet()
jump @MAIN

:CMD
wait 0
SAMP.IsCommandTyped(1@)
if
056D:   actor $PLAYER_ACTOR defined
then
0B12: 0@ = 0@ XOR 1
if
0@ == 1
then
0ACD: show_text_highpriority "~y~FSS: ~g~ON" time 1500
else
0ACD: show_text_highpriority "~y~FSS: ~r~OFF" time 1500
end
end
SAMP.CmdRet()
jump @MAIN

:SendOnFootFakeSpeedSync
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
3@ = SAMP.GetPlayerStruct(3@)
3@ += 109
0AC8: 4@ = allocate_memory_size 68
0C10: memcpy destination 4@ source 3@ size 68
0C0D: 4@ 38 4 = 6.0
0C0D: 4@ 42 4 = 6.0
0C0D: 4@ 46 4 = 6.0
0B3D: raknet 5@ = new_bit_stream
RakNet.Write(5@, 207, 0, 1)
RakNet.Write(5@, 4@, 5, 68)
0B8B: raknet send bit_stream 5@
0B3E: raknet delete_bit_stream 5@
0AC9: free_allocated_memory 4@
0AB2: ret 0

:SendIncarFakeSpeedSync
4@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
4@ = SAMP.GetPlayerStruct(4@)
4@ += 170
0AC8: 5@ = allocate_memory_size 63
0C10: memcpy destination 5@ source 4@ size 63
0C0D: struct 5@ offset 36 size 4 = 6.0
0C0D: struct 5@ offset 40 size 4 = 6.0 // lower the value if the server has a speed limit on vehicles
0C0D: struct 5@ offset 44 size 4 = 6.0
0B3D: raknet 6@ = new_bit_stream
0B40: raknet bit_stream 6@ write 200 type 0 size 1
0B40: raknet bit_stream 6@ write 5@ type 5 size 63
0B42: raknet send bit_stream 6@ priority 1 reliability 7 ordering_channel 0
0B3E: raknet delete_bit_stream 6@
0AC9: free_allocated_memory 5@
0AB2: ret 0