{$CLEO .cs}
{$INCLUDE SF}

0662: NOP "TELEPORT MADE BY ROMELO FOR DIAMOND ROLE PLAY"

if 8AF7: get_samp_base_to 0@
then 0A93: end_custom_thread  
end  
repeat  
wait 400  
until 0AFA: is_samp_structures_available

wait 2000  

0B34: samp register_client_command "dartp" to_label @ROMELO
while true  
wait 0

if
4@ == 1
then   
Car.StorePos(3@, 4@, 5@, 6@)
14@ += 2.2
wait 3
0ab1: call @ROMELO_6 0 retr_base_to 7@
7@ += 0x6140
0A8D: 8@ = read_memory 7@ size 2 virtual_protect 1
0A8C: write_memory 7@ size 2 value 0xC390 virtual_protect 1
wait 100         
036A: put_actor $PLAYER_ACTOR in_car 3@
wait 100
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 4@ 5@ 6@
wait 100     
call @ROMELO_5 1 3@  
0A8C: write_memory 7@ size 2 value 8@ virtual_protect 1
wait 100         
car.PutAt(3@, 0, 0, -10000)
wait 1050    //----------------------------------------------------------------------------------- ВОТ ЗАДЕРЖКА.
call @ROMELO_4 1 3@       
wait 2300  //ANTIFLOODTP
4@ = 0
end
end
              

:ROMELO
wait 0      
if
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
jf @ROMELO_2
00DF: actor $PLAYER_ACTOR driving  
004D: jump_if_false @ROMELO_3
03C0: 3@ = actor $PLAYER_ACTOR car     
4@ = 1
samp.CmdRet()

:ROMELO_4    
0A96: 3@ = actor $PLAYER_ACTOR struct  
3@ += 1328  
0A8C: write_memory 3@ size 4 value 1 virtual_protect 0  
0687: clear_actor $PLAYER_ACTOR task                       
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET    
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)  
wait 3
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)    
wait 100
Player.CanMove($PLAYER_CHAR) = True
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 -1.0  
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
Camera.Restore_WithJumpCut                   
ret 0

:ROMELO_2
0AF8: samp add_message_to_chat "Ошибка! Метка не найдена." color 0x007FFF
samp.CmdRet()

:ROMELO_3
0AF8: samp add_message_to_chat "Ошибка! Вы должны находиться в машине." color 0x007FFF
samp.CmdRet()

:ROMELO_5                    
01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0  
0A97: 2@ = car 0@ struct // 5@ = car handle
0A96: 3@ = actor $PLAYER_ACTOR struct  
3@ += 1328  
0A8C: write_memory 3@ size 4 value 50 virtual_protect 0  
0A96: 3@ = actor $PLAYER_ACTOR struct        
3@ += 1420  
0A8C: write_memory 3@ size 4 value 2@ virtual_protect 0
ret 0

:ROMELO_6
wait 0
0AA2: 0@ = load_library "kernel32.dll"
0AA4: 1@ = get_proc_address "GetModuleHandleA" library 0@
0AA7: call_function 1@ num_params 1 pop 0 "samp.dll" 2@
0ab2: ret 1 2@