{$CLEO}
{$Include includes\RakNetDefines.txt}
if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
wait 100
end
0B34: samp register_client_command "speed" to_label @speed
while true
wait 0
end
:speed
if
Actor.Driving($PLAYER_ACTOR)
then
03C0: 28@ = actor $PLAYER_ACTOR car
0B2C: samp 29@ = get_vehicle_id_by_car_handle 28@
0AB1: call @SendIncarFakeSpeed 4 xyz 1000.0 1000.0 1000.0 vehicleid 29@
end
Samp.CmdRet()
:SendIncarFakeSpeed
4@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
4@ = SAMP.GetPlayerStruct(5@)
4@ += 201 // local inCarData
0AC8: 5@ = allocate_memory_size 63
0C10: memcpy destination 5@ source 4@ size 63
0C0D: struct 5@ offset 0 size 2 = 3@
0C0D: struct 5@ offset 36 size 4 = 0@
0C0D: struct 5@ offset 40 size 4 = 1@
0C0D: struct 5@ offset 44 size 4 = 2@
0B3D: raknet 6@ = new_bit_stream
0B40: raknet bit_stream 6@ write 219 type BS_TYPE_BYTE size 1
0B40: raknet bit_stream 6@ write 5@ type BS_TYPE_ARRAY size 63
0B8B: raknet send bit_stream 6@
0B3E: raknet delete_bit_stream 6@
0AC9: free_allocated_memory 5@
0AB2: ret 0