{$CLEO .cs}
{$INCLUDE SF}

0000: NOP
31@ = 0
24@ = 0
var
31@ : Integer
24@ : Integer
end

0B34: samp register_client_command "vb" to_label @toggle

:main
wait 0
if
31@ == 1
then
24@ = 0
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
0A8D: 29@ = read_memory 0xB74494 size 4 virtual_protect 0
29@ += 0x4
0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
for 30@ = 0 to 27904 step 0x100
0A8D: 28@ = read_memory 29@ size 1 virtual_protect 0
000A: 29@ += 0x1
if and
0029: 28@ >= 0x00
001B: 0x80 > 28@
then
005A: 28@ += 30@
046C: 15@ = car 28@ driver
if
856D: 15@
then
000A: 24@ += 1
27@ = SAMP.GetSAMPVehicleIDByCarHandle(28@)
call @UnoccupiedSync 4 28@ 3@ 4@ 5@
printf "~y~Vehicle Bugger using vehicle ~r~[%d]" 150 27@
wait 100
end
end
if
24@ == 0
then
printf "~y~Vehicle Bugger couldn't find any ~r~unoccupied vehicles!" 1000
end
end
end
jump @main

:toggle
if
31@ == 0
then
31@ = 1
chatmsg "Vehicle Bugger {00FF33}ENABLED{FFFFFF}." 0xFFFFFF
else
31@ = 0
chatmsg "Vehicle Bugger {FF0000}DISABLED{FFFFFF}." 0xFFFFFF
end
SAMP.CmdRet()

:UnoccupiedSync
10@ = SAMP.GetSAMPVehicleIDByCarHandle(0@)
alloc 11@ 67
0C0D: struct 11@ offset 0 size 2 = 10@
0C0D: struct 11@ offset 2 size 1 = 1
0C0D: struct 11@ offset 3 size 4 = 1000.0
0C0D: struct 11@ offset 7 size 4 = 1000.0
0C0D: struct 11@ offset 11 size 4 = 1000.0
0C0D: struct 11@ offset 15 size 4 = 1000.0
0C0D: struct 11@ offset 19 size 4 = 1000.0
0C0D: struct 11@ offset 23 size 4 = 1000.0
0C0D: struct 11@ offset 27 size 4 = 1@
0C0D: struct 11@ offset 31 size 4 = 2@
0C0D: struct 11@ offset 35 size 4 = 3@
0C0D: struct 11@ offset 39 size 4 = 1000.0
0C0D: struct 11@ offset 43 size 4 = 1000.0
0C0D: struct 11@ offset 47 size 4 = 1000.0
0C0D: struct 11@ offset 51 size 4 = 1000.0
0C0D: struct 11@ offset 55 size 4 = 1000.0
0C0D: struct 11@ offset 59 size 4 = 1000.0
0C0D: struct 11@ offset 63 size 4 = 1000.0
12@ = RakNet.NewBitStream()
BitStream.Write(12@, 209, BS_TYPE_BYTE, 1)
BitStream.Write(12@, 11@, BS_TYPE_ARRAY, 67)
RakNet.LiteSend(12@)
RakNet.DeleteBitStream(12@)
free 11@
ret 0