// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread "PalKaa_"  
0000: NOP  
0662: printstring "PalKaa_"  
wait 7000  
0AF8: samp add_message_to_chat "VisualCar BY PalKaa_" color 6958265   
0AF8: samp add_message_to_chat "Activate - /vehh" color 6958265   
0AF8: samp add_message_to_chat "Server - DiamondRP | SampRP" color 6958265   
0AF8: samp add_message_to_chat "FOR CHEAT-MASTER.RU" color 6958265   
0B34: samp register_client_command "vehh" to_label @PALKAA__175  

:PALKAA__164
wait 0  
goto @PALKAA__164  

:PALKAA__175
wait 0  
Model.Load(#KART)
038B: load_requested_models  
if  
    Model.Available(#KART)
else_jump @PALKAA__175  
04C4: store_coords_to $x $y $z from_actor $PLAYER_ACTOR with_offset 0.0 5.0 1.0  
1@ = Car.Create(#KART, $x, $y, $z)
036A: put_actor $PLAYER_ACTOR in_car 1@  
Car.SetMaxSpeed(1@, 5.0)
print "~g~CarVisual ~r~BY ~r~PalKaa_ ~g~Create!" 5000  
call @PALKAA__416 1 -330  
SAMP.CmdRet
0000: NOP  
goto @PALKAA__339  

:PALKAA__339
wait 750  
if  
    Actor.Driving($PLAYER_ACTOR)
else_jump @PALKAA__410  
Actor.StorePos($PLAYER_ACTOR, 2@, 3@, 4@)
4@ -= 11.0  
call @PALKAA__556 3 2@ 3@ 4@  
goto @PALKAA__339  

:PALKAA__410
wait 0  
end_thread  

:PALKAA__416
0A9F: 32@ = current_thread_pointer  
32@ += 16  
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0  
0062: 32@ -= 0@ // (int)  
0AA7: call_function 4607008 num_params 1 pop 1 32@ 33@   
005A: 32@ += 0@ // (int)  
33@ += 16  
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0  
33@ += 44  
32@ = 0  

:PALKAA__507
0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0  
33@ += 4  
32@ += 1  
   32@ > 30  
else_jump @PALKAA__507  
ret 0  

:PALKAA__556
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
3@ = SAMP.GetPlayerStruct(3@)
3@ += 55  
alloc 4@ 68  
0C10: memcpy destination 4@ source 3@ size 68  
0C0D: struct 4@ offset 6 size 4 = 0@  
0C0D: struct 4@ offset 10 size 4 = 1@  
0C0D: struct 4@ offset 14 size 4 = 2@  
5@ = RakNet.NewBitStream()
RakNet.Write(5@, 212, BS_TYPE_BYTE, 1)
RakNet.Write(5@, 4@, BS_TYPE_ARRAY, 68)
RakNet.Send(5@, 1, 7, 0)
RakNet.DeleteBitStream(5@)
free 4@  
ret 0  
goto @PALKAA__164