, $car_y, $car_z)
$car_a = Car.Angle(1@)
chatmsg "AddStaticVehicle(%d, %f, %f, %f, %f, %d, %d);" -1 4@ $car_x $car_y $car_z $car_a 2@ 3@
jump @COD_4320
:COD_4487
chatmsg "»»[COD]«« : {00FF7F}You can copy the info at Documents/Gta/SAMP/chatlog.txt" -1
chatmsg "" -1
SAMP.CmdRet
:COD_4496
0@ = -1
chatmsg "" -1
:COD_4510
0@ += 1
not 0@ == 1000
else_jump @COD_4745
1@ = SAMP.GetVehicleHandleBySAMPVehicleID(0@)
if
056E: car 1@ defined
else_jump @COD_4510
13@ += 1
2@ = Car.Model(1@)
3@ = Car.Health(1@)
Actor.StorePos($PLAYER_ACTOR, $actor_x, $actor_y, $actor_z)
Car.StorePos(1@, $car_x, $car_y, $car_z)
050A: 4@ = distance_between_XYZ $actor_x $actor_y $actor_z and_XYZ $car_x $car_y $car_z
008E: 5@ = float 4@ to_integer
0ADB: 6@v = car_model 2@ name
chatmsg "* Vehicle ID %d | Name %s | Model ID %d | Health %d | Distance %d |" 65407 0@ 6@v 2@ 3@ 5@
jump @COD_4510
:COD_4745
chatmsg "»»[COD]«« : {00FF7F}Vehicles in stream: %d" -1 13@
chatmsg "" -1
13@ = 0
SAMP.CmdRet
:COD_4816
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_10025
if and
not 1@ > 1
1@ >= 0
else_jump @COD_10025
if
1@ == 1
else_jump @COD_4974
0A8C: write_memory 9867602 size 4 value 1 virtual_protect 0
chatmsg "»»[COD]«« : {00FF7F}Drive on water {FFFFFF}ON" -1
SAMP.CmdRet
:COD_4974
0A8C: write_memory 9867602 size 4 value 0 virtual_protect 0
chatmsg "»»[COD]«« : {00FF7F}Drive on water {FFFFFF}OFF" -1
SAMP.CmdRet
:COD_5060
SAMP.IsCommandTyped(0@)
038B: load_requested_models
048F: actor $PLAYER_ACTOR remove_weapons
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, DesertEagle, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Shotgun, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, SniperRifle, 500)
print "SLOW WEAPONS" 2000
SAMP.CmdRet
:COD_5146
SAMP.IsCommandTyped(0@)
038B: load_requested_models
048F: actor $PLAYER_ACTOR remove_weapons
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Sawnoff, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Tec9, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Pistol, 500)
print "FAST WEAPONS" 2000
SAMP.CmdRet
:COD_5233
SAMP.IsCommandTyped(0@)
038B: load_requested_models
048F: actor $PLAYER_ACTOR remove_weapons
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Sawnoff, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Tec9, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, DesertEagle, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, SniperRifle, 500)
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, M4, 500)
print "PRO WEAPONS" 2000
SAMP.CmdRet
:COD_5346
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d %d" 1@ 2@
else_jump @COD_9976
if and
not 1@ == 19
not 1@ == 20
not 1@ == 21
not 1@ > 46
1@ >= 0
else_jump @COD_9976
0781: get_weapon_with_ID 1@ model_to 3@
Model.Load(3@)
038B: load_requested_models
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 1@, 2@)
chatmsg "»»[COD]«« : {00FF7F}You have got weapon %d with %d of ammo" -1 1@ 2@
SAMP.CmdRet
:COD_5535
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_9800
0470: 2@ = actor $PLAYER_ACTOR current_weapon
Actor.SetCarWeapon($PLAYER_ACTOR, 2@, 1@)
chatmsg "»»[COD]«« : {00FF7F}You have got %d of ammo" -1 1@
SAMP.CmdRet
:COD_5647
SAMP.IsCommandTyped(0@)
0470: 1@ = actor $PLAYER_ACTOR current_weapon
0555: remove_weapon 1@ from_actor $PLAYER_ACTOR
print "WEAPON REMOVED" 2000
SAMP.CmdRet
:COD_5690
SAMP.IsCommandTyped(0@)
048F: actor $PLAYER_ACTOR remove_weapons
print "ALL WEAPONS REMOVED" 2000
SAMP.CmdRet
:COD_5734
SAMP.IsCommandTyped(0@)
Actor.PutAt($PLAYER_ACTOR, 1849.0, -1376.0, 12.0)
select_interior 0
0BCF: samp send_interior_change 0
0860: link_actor $PLAYER_ACTOR to_interior 0
print "LOS SANTOS" 2000
SAMP.CmdRet
:COD_9999
SAMP.IsCommandTyped(0@)
Actor.PutAt($PLAYER_ACTOR, 373.7169, -2084.1887, 12.0)
select_interior 0
0BCF: samp send_interior_change 0
0860: link_actor $PLAYER_ACTOR to_interior 0
print "PRAIA" 2000
SAMP.CmdRet
:COD_24
SAMP.IsCommandTyped(0@)
Actor.PutAt($PLAYER_ACTOR, -2161.6956,129.0303, 12.0)
select_interior 0
0BCF: samp send_interior_change 0
0860: link_actor $PLAYER_ACTOR to_interior 0
print "24/7" 2000
SAMP.CmdRet
:COD_5793
SAMP.IsCommandTyped(0@)
Actor.PutAt($PLAYER_ACTOR, -1998.0, 173.0, 26.0)
select_interior 0
0BCF: samp send_interior_change 0
0860: link_actor $PLAYER_ACTOR to_interior 0
print "SAN FIERRO" 2000
SAMP.CmdRet
:COD_5852
SAMP.IsCommandTyped(0@)
Actor.PutAt($PLAYER_ACTOR, 2039.0, 1543.0, 9.0)
select_interior 0
0BCF: samp send_interior_change 0
0860: link_actor $PLAYER_ACTOR to_interior 0
print "LAS VENTURAS" 2000
SAMP.CmdRet
:COD_5913
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_9754
if
SAMP.IsPlayerConnected(1@)
else_jump @COD_9405
jump @COD_5968
:COD_5968
2@ = SAMP.GetActorHandleByPlayerID(1@)
3@ = SAMP.GetPlayerNickname(1@)
if
056D: actor 2@ defined
else_jump @COD_6007
jump @COD_6113
:COD_6007
SAMP.GetStreamedOutPlayerPos(1@, $actor_x, $actor_y, $actor_z)
Actor.PutAt($PLAYER_ACTOR, $actor_x, $actor_y, $actor_z)
chatmsg "»»[COD]«« : {00FF7F}Teleportado para %s [%d]" -1 3@ 1@
SAMP.CmdRet
:COD_6113
Actor.StorePos(2@, $actor_x, $actor_y, $actor_z)
Actor.PutAt($PLAYER_ACTOR, $actor_x, $actor_y, $actor_z)
chatmsg "»»[COD]«« : {00FF7F}Teleportado para %s [%d]" -1 3@ 1@
SAMP.CmdRet
:COD_6219
SAMP.IsCommandTyped(0@)
0AB6: store_target_marker_coords_to $actor_x $actor_y $actor_z // IF and SET
chatmsg "[Teleport] : {00FF7F}Você foi teleportado com sucesso para o marcador." -1
Actor.PutAt($PLAYER_ACTOR, $actor_x, $actor_y, $actor_z)
SAMP.CmdRet
:COD_6399
SAMP.IsCommandTyped(0@)
04C4: store_coords_to $saved_x $saved_y $saved_z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -1.0
$saved_a = Actor.Angle($PLAYER_ACTOR)
077E: get_active_interior_to $saved_i
15@ = 1
chatmsg "»»[COD]«« : {00FF7F}Position saved {FFFFFF}| Use /lp to come back" -1
SAMP.CmdRet
:COD_6536
SAMP.IsCommandTyped(0@)
if
15@ == 1
else_jump @COD_9691
Actor.PutAt($PLAYER_ACTOR, $saved_x, $saved_y, $saved_z)
Actor.Angle($PLAYER_ACTOR) = $saved_a
select_interior $saved_i
0860: link_actor $PLAYER_ACTOR to_interior $saved_i
0BCF: samp send_interior_change $saved_i
chatmsg "»»[COD]«« : {00FF7F}Teleported to saved position {FFFFFF}| Use /dp to delete it" -1
SAMP.CmdRet
:COD_6701
SAMP.IsCommandTyped(0@)
15@ == 0
$saved_a = 0
$saved_x = 0
$saved_y = 0
$saved_z = 0
$saved_i = 0
chatmsg "»»[COD]«« : {00FF7F}Position deleted" -1
SAMP.CmdRet
:COD_6795
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_9800
Player.Money($PLAYER_CHAR) += 1@
chatmsg "»»[COD]«« : {00FF7F}You have got $%d" -1 1@
SAMP.CmdRet
:COD_6885
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_9754
if
SAMP.IsPlayerConnected(1@)
else_jump @COD_9405
2@ = SAMP.GetActorHandleByPlayerID(1@)
if
056D: actor 2@ defined
else_jump @COD_9501
3@ = SAMP.GetSAMPPlayerIDByActorHandle(2@)
4@ = SAMP.GetPlayerNickname(1@)
5@ = SAMP.GetPlayerScore(1@)
6@ = SAMP.GetPlayerPing(1@)
0665: get_actor 2@ model_to 7@
8@ = SAMP.GetPlayerHealthByActorHandle(3@)
9@ = SAMP.GetPlayerArmorByActorHandle(3@)
0470: 10@ = actor 2@ current_weapon
Actor.StorePos($PLAYER_ACTOR, $actor_x, $actor_y, $actor_z)
Actor.StorePos(2@, $actor1_x, $actor1_y, $actor1_z)
050A: 11@ = distance_between_XYZ $actor_x $actor_y $actor_z and_XYZ $actor1_x $actor1_y $actor1_z
008E: 12@ = float 11@ to_integer
chatmsg "»»[COD]«« : {00FF7F}Infoplayer {FFFFFF}| %s ID %d | Skin %d | Score %d | Ping %d | Health %d | Armour %d |" -1 4@ 1@ 7@ 5@ 6@ 8@ 9@
chatmsg "| Distance %d m | Weapon %d|" -1 12@ 10@
SAMP.CmdRet
:COD_7257
SAMP.IsCommandTyped(0@)
0BCF: samp send_interior_change 0
chatmsg "»»[COD]«« : {00FF7F}Interior synced {FFFFFF}| Now you are able to spawn cars, use commands, etc" -1
SAMP.CmdRet
:COD_7358
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d %d" 1@ 2@
else_jump @COD_9852
3@ = SAMP.GetPlayerNickname(1@)
SAMP.SendDeath(1@, 2@)
chatmsg "»»[COD]«« : {00FF7F}Fake death sent to %s [%d] with reason %d" -1 3@ 1@ 2@
SAMP.CmdRet
:COD_7498
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d %d %d" 1@ 2@ 3@
else_jump @COD_9912
if and
not 1@ > 1
1@ >= 0
else_jump @COD_9912
if
1@ == 1
else_jump @COD_7706
0BCC: samp send_take_damage issuerid 2@ damage 666.0 weapon 3@ bodypart 3
5@ = SAMP.GetPlayerNickname(2@)
chatmsg "»»[COD]«« : {00FF7F}Fake damage sent to %s [%d] | Type 1: take | Weapon %d |" -1 5@ 2@ 3@
SAMP.CmdRet
:COD_7706
0BCB: samp send_give_damage playerid 2@ damage 666.0 weapon 3@ bodypart 3
5@ = SAMP.GetPlayerNickname(2@)
chatmsg "»»[COD]«« : {00FF7F}Fake damage sent to %s [%d] | Type 0: give | Weapon %d |" -1 5@ 2@ 3@
SAMP.CmdRet
:COD_7823
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_9800
if and
not 1@ > 24
1@ >= 0
else_jump @COD_9800
00C0: set_current_time_hours_to 1@ minutes_to 0
chatmsg "»»[COD]«« : {00FF7F}Time changed to %d:00" -1 1@
SAMP.CmdRet
:COD_7942
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_9800
if
1@ >= 0
else_jump @COD_9800
set_weather 1@
chatmsg "»»[COD]«« : {00FF7F}Weather changed to %d" -1 1@
SAMP.CmdRet
:COD_8050
SAMP.IsCommandTyped(0@)
0B28: samp disconnect_with_reason 0
print "RECONECTANDO..." 3000
wait 15
0B27: samp set_gamestate 1
SAMP.CmdRet
:COD_8091
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%s" 2@v
else_jump @COD_10085
0B28: samp disconnect_with_reason 0
SAMP.SetLocalNickname(2@v)
wait 15
0B27: samp set_gamestate 1
SAMP.CmdRet
:COD_8142
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_9800
if
1@ >= 0
else_jump @COD_9800
0BD1: samp send_picked_up_pickup 1@
chatmsg "»»[COD]«« : {00FF7F}You have picked up pickup %d" -1 1@
SAMP.CmdRet
:COD_8256
SAMP.IsCommandTyped(0@)
if
0AD4: 0@ = scan_string 0@ format "%d" 1@
else_jump @COD_10025
if and
not 1@ > 1
1@ >= 0
else_jump @COD_10025
if
1@ == 1
else_jump @COD_8546
0AA2: 14@ = load_library "samp.dll" // IF and SET
0A8E: 1@ = 14@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 14@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 14@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 14@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 14@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 14@
chatmsg "»»[COD]«« : {00FF7F}Nametag Hack {FFFFFF}ON" -1
SAMP.CmdRet
:COD_8546
0AA2: 14@ = load_library "samp.dll" // IF and SET
0A8E: 1@ = 14@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 14@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 14@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 14@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 14@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 14@
chatmsg "»»[COD]«« : {00FF7F}Nametag Hack {FFFFFF}OFF" -1
SAMP.CmdRet
:COD_8823
0@ = -1
chatmsg "" -1
:COD_8837
0@ += 1
not 0@ == 1000
else_jump @COD_9167
SAMP.IsPlayerConnected(0@)
else_jump @COD_8837
1@ = SAMP.GetActorHandleByPlayerID(0@)
if
056D: actor 1@ defined
else_jump @COD_8837
13@ += 1
2@ = SAMP.GetSAMPPlayerIDByActorHandle(1@)
3@ = SAMP.GetPlayerNickname(0@)
4@ = SAMP.GetPlayerScore(0@)
5@ = SAMP.GetPlayerPing(0@)
0665: get_actor 1@ model_to 6@
7@ = SAMP.GetPlayerHealthByActorHandle(2@)
8@ = SAMP.GetPlayerArmorByActorHandle(2@)
0470: 9@ = actor 1@ current_weapon
050A: 10@ = distance_between_XYZ $actor_x $actor_y $actor_z and_XYZ $actor1_x $actor1_y $actor1_z
008E: 11@ = float 10@ to_integer
16@ = SAMP.GetPlayerColor(0@)
Actor.StorePos($PLAYER_ACTOR, $actor_x, $actor_y, $actor_z)
Actor.StorePos(1@, $actor1_x, $actor1_y, $actor1_z)
chatmsg "* %s [%d] | Skin %d | Score %d | Ping %d | Health %d | Armour %d | Distance %d m | Weapon %d |" 16@ 3@ 0@ 6@ 4@ 5@ 7@ 8@ 11@ 9@
jump @COD_8837
:COD_9167
chatmsg "»»[COD]«« : {00FF7F}Players in stream: %d" -1 13@
chatmsg "" -1
13@ = 0
SAMP.CmdRet
:COD_9238
SAMP.IsCommandTyped(0@)
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
chatmsg "" -1
SAMP.CmdRet
:COD_9315
chatmsg "* Erro: se você usar isso na seleção da equipe, você será banido!!!" 16727361
SAMP.CmdRet
:COD_9405
chatmsg "* Erro: este jogador está desconectado!" 16727361
SAMP.CmdRet
:COD_9447
chatmsg "* Erro: Este jogador não está dirigindo!" 16727361
SAMP.CmdRet
:COD_9501
chatmsg "* Erro: Este jogador está fora de fluxo!" 16727361
SAMP.CmdRet
:COD_9546
chatmsg "* Erro: você tem que estar dirigindo!" 16727361
SAMP.CmdRet
:COD_9596
chatmsg "* Erro: você tem que estar a pé!" 16727361
SAMP.CmdRet
:COD_9643
chatmsg "* Eerro: não há carros em fluxo contínuo!" 16727361
SAMP.CmdRet
:COD_9691
chatmsg "* Erro: você precisa salvar uma posição com / sp!" 16727361
SAMP.CmdRet
:COD_9754
chatmsg "* Uso: digite uma ID de jogador" 65407
SAMP.CmdRet
:COD_9800
chatmsg "* Uso: digite um número ou um id específico" 65407
SAMP.CmdRet
:COD_9852
chatmsg "* Uso: /fdeath [ playerID ] [ reasonID ]" 65407
SAMP.CmdRet
:COD_9912
chatmsg "* Uso: /fdamage [ 0 or 1 ] [ playerID ] [ weapon ]" 65407
SAMP.CmdRet
:COD_9976
chatmsg "* Uso: /getw [ 0 to 46 ] [ ammo ]" 65407
SAMP.CmdRet
:COD_10025
chatmsg "* Uso: Enter 0 to deactivate or 1 to activate" 65407
SAMP.CmdRet
:COD_10085
chatmsg "* Scrie [/nume] si pune numele nou" 65407
SAMP.CmdRet
:COD_10124
chatmsg "* Uso: /ccolor [ color1 ] [ color2 ]" 65407
SAMP.CmdRet
:COD_10172
chatmsg "* Uso: /act [ 0, 2, 5-8, 10-13, 20-25, 68 ]" 65407
SAMP.CmdRet
0000: NOP
0662: printstring "IONUT"
thread 'PMT'
if
33@ = SAMP.Base()
jf @PMT_40
0A93: end_custom_thread
:PMT_40
wait 400
SAMP.Available
jf @PMT_40
wait 0
if and
8AAB: not file_exists "CLEO\TELEPORTS.INI"
8AAB: not file_exists "CLEO\TELEPORTSETTINGS.INI"
jf @PMT_199
wait 3000
chatmsg "[{BAFF00}PMT{FFFFFF}]: ONE OF THE INI FILES IS MISSING." 16777215
0A93: end_custom_thread
goto @PMT_292
:PMT_199
wait 3000
0AF0: 29@ = get_int_from_ini_file "CLEO\TELEPORTSETTINGS.INI" section "KEYS" key "KEY1"
0AF0: 28@ = get_int_from_ini_file "CLEO\TELEPORTSETTINGS.INI" section "KEYS" key "KEY2"
:PMT_292
wait 0
:PMT_390
wait 0
if
Player.Defined($PLAYER_ACTOR)
jf @PMT_517
0A8D: 12@ = read_memory 12216180 size 1 virtual_protect 0
if and
key_down 28@
key_down 29@
not 12@ == 0
jf @PMT_517
0AB6: store_target_marker_coords_to 5@ 6@ 7@ // IF and SET
Actor.StorePos($PLAYER_ACTOR, 9@, 10@, 11@)
04E4: refresh_game_renderer_at 5@ 6@
Camera.SetAtPos(5@, 6@, 7@)
Actor.PutAt($PLAYER_ACTOR, 5@, 6@, -100.0)
wait 500
:PMT_517
goto @PMT_390
:PMT_524
wait 0
SAMP.IsCommandTyped(0@)
if
0AD4: 30@ = scan_string 0@ format "%D" 0@
jf @PMT_745
if
SAMP.IsPlayerConnected(0@)
jf @PMT_684
if
4@ = SAMP.GetActorHandleByPlayerID(0@)
jf @PMT_616
SAMP.GetStreamedOutPlayerPos(0@, 1@, 2@, 3@)
goto @PMT_630
:PMT_616
Actor.StorePos(4@, 1@, 2@, 3@)
:PMT_630
Actor.StorePos($PLAYER_ACTOR, 9@, 10@, 11@)
04E4: refresh_game_renderer_at 1@ 2@
Camera.SetAtPos(1@, 2@, 3@)
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
goto @PMT_738
:PMT_684
chatmsg "[{BAFF00}PMT{E3E3E3}]: O JOGADOR NÃO ESTÁ CONECTADO." 14935011
:PMT_738
goto @PMT_802
:PMT_745
chatmsg "[{BAFF00}PMT{E3E3E3}]: POR FAVOR, ENTRAR UMA ID VÁLIDA." 14935011
:PMT_802
SAMP.CmdRet
:PMT_804
wait 0
17@ = 0
13@ = 0
:PMT_822
if
call @PMT_2398 1 13@ 14@ 15@ 16@
jf @PMT_909
17@ = 1
Actor.StorePos($PLAYER_ACTOR, 9@, 10@, 11@)
04E4: refresh_game_renderer_at 14@ 15@
Camera.SetAtPos(14@, 15@, 16@)
Actor.PutAt($PLAYER_ACTOR, 14@, 15@, 16@)
:PMT_909
13@ += 1
13@ > 32
jf @PMT_822
if
17@ == 0
jf @PMT_1005
chatmsg "[{BAFF00}Teleport{E3E3E3}]: Não foram encontrados checkpoints." 14935011
:PMT_1005
SAMP.CmdRet
:PMT_1007
wait 0
SAMP.IsCommandTyped(0@)
if
0AD4: 30@ = scan_string 0@ format "%F %F %F" 1@ 2@ 3@
jf @PMT_1102
Actor.StorePos($PLAYER_ACTOR, 9@, 10@, 11@)
04E4: refresh_game_renderer_at 1@ 2@
Camera.SetAtPos(1@, 2@, 3@)
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
:PMT_1102
SAMP.CmdRet
:PMT_1104
wait 0
SAMP.IsCommandTyped(0@)
if
0AD4: 30@ = scan_string 0@ format "%D" 0@
jf @PMT_1267
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
format 4@v "%D" 0@
0AF3: write_float 1@ to_ini_file "CLEO\TELEPORTS.INI" section 4@v key "X"
0AF3: write_float 2@ to_ini_file "CLEO\TELEPORTS.INI" section 4@v key "Y"
0AF3: write_float 3@ to_ini_file "CLEO\TELEPORTS.INI" section 4@v key "Z"
goto @PMT_1333
:PMT_1267
chatmsg "[{BAFF00}PMT{E3E3E3}]: POR FAVOR, ENTRAR UMA IDENTIFICAÇÃO TÉCNICA VÁLIDA." 14935011
:PMT_1333
SAMP.CmdRet
:PMT_1335
wait 0
if
0AAB: file_exists "CLEO\TELEPORTS.INI"
jf @PMT_1693
SAMP.IsCommandTyped(0@)
if
0AD4: 30@ = scan_string 0@ format "%D" 0@
jf @PMT_1620
format 4@v "%D" 0@
if and
0AF2: 1@ = get_float_from_ini_file "CLEO\TELEPORTS.INI" section 4@v key "X"
0AF2: 2@ = get_float_from_ini_file "CLEO\TELEPORTS.INI" section 4@v key "Y"
0AF2: 3@ = get_float_from_ini_file "CLEO\TELEPORTS.INI" section 4@v key "Z"
jf @PMT_1556
Actor.StorePos($PLAYER_ACTOR, 9@, 10@, 11@)
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
goto @PMT_1613
:PMT_1556
chatmsg "[{BAFF00}PMT{E3E3E3}]: NÃO É UMA IDENTIFICAÇÃO TÉCNICA VÁLIDA." 14935011
:PMT_1613
goto @PMT_1686
:PMT_1620
chatmsg "[{BAFF00}PMT{E3E3E3}]: POR FAVOR, ENTRAR UMA IDENTIFICAÇÃO TÉCNICA VÁLIDA." 14935011
:PMT_1686
goto @PMT_1754
:PMT_1693
chatmsg "[{BAFF00}PMT{E3E3E3}]: TELEPORTS.INI NÃO FOI ENCONTRADO." 14935011
:PMT_1754
SAMP.CmdRet
:PMT_1756
wait 0
if and
not 9@ == 0.0
not 10@ == 0.0
not 11@ == 0.0
jf @PMT_1860
0087: 18@ = 9@ // (float)
0087: 19@ = 10@ // (float)
0087: 20@ = 11@ // (float)
Actor.StorePos($PLAYER_ACTOR, 9@, 10@, 11@)
Actor.PutAt($PLAYER_ACTOR, 18@, 19@, 20@)
goto @PMT_1933
:PMT_1860
chatmsg "[{BAFF00}PMT{E3E3E3}]: UMA POSIÇÃO ANTERIOR VÁLIDA NÃO FOI ENCONTRADA." 14935011
:PMT_1933
SAMP.CmdRet
:PMT_1935
wait 0
0AC6: 20@ = label @PMT_1987 offset
SAMP.CmdRet
:PMT_1987
hex
7B 46 46 46 46 46 46 7D 43 6F 6D 6D 61 6E 64 73
3A 0D 0A 7B 30 32 46 36 45 42 7D 2F 70 74 70 7B
43 30 46 46 30 31 7D 3A 20 74 65 6C 65 70 6F 72
74 20 74 6F 20 61 20 70 6C 61 79 65 72 20 28 65
67 2E 20 2F 70 74 70 20 31 30 29 2E 0D 0A 7B 30
32 46 36 45 42 7D 2F 70 63 70 7B 43 30 46 46 30
31 7D 3A 20 74 65 6C 65 70 6F 72 74 20 74 6F 20
63 68 65 63 6B 70 6F 69 6E 74 20 28 65 67 2E 20
2F 70 63 70 29 2E 0D 0A 7B 30 32 46 36 45 42 7D
2F 70 74 70 63 7B 43 30 46 46 30 31 7D 3A 20 74
65 6C 65 70 6F 72 74 20 74 6F 20 63 6F 6F 72 64
69 6E 61 74 65 73 20 28 65 67 2E 20 2F 70 74 70
63 20 31 30 30 2E 30 20 31 30 30 2E 30 20 32 35
30 2E 30 29 2E 0D 0A 7B 30 32 46 36 45 42 7D 2F
70 73 70 6F 73 7B 43 30 46 46 30 31 7D 3A 20 73
61 76 65 20 61 20 70 6F 73 69 74 69 6F 6E 20 75
6E 64 65 72 20 61 20 64 65 63 69 6D 61 6C 20 6E
61 6D 65 20 28 65 67 2E 20 2F 70 73 70 6F 73 20
32 29 2E 0D 0A 7B 30 32 46 36 45 42 7D 2F 70 6C
70 6F 73 7B 43 30 46 46 30 31 7D 3A 20 6C 6F 61
64 20 61 20 70 6F 73 69 74 69 6F 6E 20 28 65 67
2E 20 2F 70 6C 70 6F 73 20 32 29 2E 0D 0A 7B 30
32 46 36 45 42 7D 2F 70 62 61 63 6B 7B 43 30 46
46 30 31 7D 3A 20 74 65 6C 65 70 6F 72 74 20 62
61 63 6B 20 74 6F 20 79 6F 75 72 20 6C 61 73 74
20 70 6F 73 69 74 69 6F 6E 2E 00
end
:PMT_2398
0@ *= 160
0@ += 13098328
0@ += 48
0A8D: 1@ = read_memory 0@ size 4 virtual_protect 0
0@ += 4
0A8D: 2@ = read_memory 0@ size 4 virtual_protect 0
0@ += 4
0A8D: 3@ = read_memory 0@ size 4 virtual_protect 0
0@ += 26
0A8D: 4@ = read_memory 0@ size 1 virtual_protect 0
if and
1@ == 1099.551
2@ == 1601.497
3@ == 11.555
jf @PMT_2547
5@ = 0
goto @PMT_2678
:PMT_2547
5@ = 1
if and
1@ == 2695.624
2@ == -1704.688
3@ == 10.844
jf @PMT_2609
6@ = 0
goto @PMT_2678
:PMT_2609
6@ = 1
if and
1@ == 0.0
2@ == 0.0
3@ == 0.0
jf @PMT_2671
7@ = 0
goto @PMT_2678
:PMT_2671
7@ = 1
:PMT_2678
if and
4@ == 1
5@ == 1
6@ == 1
7@ == 1
jf @PMT_2726
return_true
goto @PMT_2728
:PMT_2726
return_false
:PMT_2728
ret 3 1@ 2@ 3@
Thread "Shanker"
0000: NOP
:Troll_Production_SAMP
wait 0
if
SAMP.Available
else_jump @Troll_Production_SAMP
:Shanker
wait 0
jump @Shanker
:damageall
if
SAMP.IsCommandTyped(1@)
if
0AD4: 2@ = scan_string 1@ format "%d" 5@ //IF and SET
if
$Language == 1
then
0@ = -1
:COD_8838a // I got that Idea from COD [/splayers] :>>
0@ += 1
not 0@ == 1000
else_jump @COD_9168a
SAMP.IsPlayerConnected(0@)
else_jump @COD_8838a
1@ = SAMP.GetActorHandleByPlayerID(0@)
if
056D: actor 1@ defined
else_jump @COD_8838a
13@ += 1
if
13@ <= 10
then
0BCB: samp send_give_damage playerid 0@ damage 97.8 weapon 46 bodypart 3
29@ = SAMP.GetPlayerNickname(0@)
chatmsg "{FFFF00}[Kill] {FFFFFF}Ai produs un damage de 97.. " -1 29@ 0@
end
jump @COD_8838a
:COD_9168a
chatmsg "Nabi in stream zone: %d" -1 13@
chatmsg "" -1
13@ = 0
else
0@ = -1
chatmsg "" -1
:COD_8838
0@ += 1
not 0@ == 1000
else_jump @COD_9168
SAMP.IsPlayerConnected(0@)
else_jump @COD_8838
1@ = SAMP.GetActorHandleByPlayerID(0@)
if
056D: actor 1@ defined
else_jump @COD_8838
13@ += 1
if
13@ <= 10
then
0BCB: samp send_give_damage playerid 0@ damage 97.0 weapon 46 bodypart 3
29@ = SAMP.GetPlayerNickname(0@)
chatmsg "{FFFF00}[Kill] {FFFFFF}Jogadores transmitidos foram mortos. " -1
end
jump @COD_8838
:COD_9168
chatmsg "" -1
13@ = 0
end
SAMP.CmdRet
:healall
if
samp.IsCommandTyped(1@)
if
0AD4: 2@ = scan_string 1@ format "%d" 5@ //IF and SET
if
$Language == 1
then
0@ = -1
:COD_8838ad
0@ += 1
not 0@ == 1000
else_jump @COD_9168ad
SAMP.IsPlayerConnected(0@)
else_jump @COD_8838ad
1@ = SAMP.GetActorHandleByPlayerID(0@)
if
056D: actor 1@ defined
else_jump @COD_8838ad
13@ += 1
if
13@ <= 10
then
0BCB: samp send_give_damage playerid 0@ damage -101.0 weapon 0 bodypart 3
29@ = SAMP.GetPlayerNickname(0@)
chatmsg "{FFFF00}[Kill] {FFFFFF}Os jogadores transmitidos ficaram curados. " -1
end
jump @COD_8838ad
:COD_9168ad
chatmsg "" -1
13@ = 0
else
0@ = -1
chatmsg "" -1
:COD_8838d
0@ += 1
not 0@ == 1000
else_jump @COD_9168d
SAMP.IsPlayerConnected(0@)
else_jump @COD_8838d
1@ = SAMP.GetActorHandleByPlayerID(0@)
if
056D: actor 1@ defined
else_jump @COD_8838d
13@ += 1
if
13@ <= 10
then
0BCB: samp send_give_damage playerid 0@ damage -101.0 weapon 0 bodypart 3
29@ = SAMP.GetPlayerNickname(0@)
end
jump @COD_8838d
:COD_9168d
13@ = 0
end
SAMP.CmdRet
:Troll_Production_SAMP_2
wait 0
SAMP.IsCommandTyped(1@)
if
0AD4: 1@ = scan_string 1@ format "%d" 5@
else_jump @Shanker_ERROR
if
SAMP.IsPlayerConnected(5@)
else_jump @Shanker_ERROR
8@ = SAMP.GetPlayerNickname(5@)
6@ = SAMP.GetActorHandleByPlayerID(5@)
if
056D: actor 6@ defined
jf @Shanker_ERROR
0BCB: samp send_give_damage playerid 5@ damage 99.0 weapon 14 bodypart 3
8@ = SAMP.GetPlayerNickname(5@)
chatmsg "{FFFF00}[Troll] {FF0000}%s [%d] {FFFFFF}a primit 99.0 dmg. " -1 8@ 5@
SAMP.CmdRet
:Troll_Production_SAMP_3
wait 0
SAMP.IsCommandTyped(1@)
if
0AD4: 1@ = scan_string 1@ format "%d" 5@
else_jump @Shanker_ERROR_7
if
SAMP.IsPlayerConnected(5@)
else_jump @Shanker_ERROR
8@ = SAMP.GetPlayerNickname(5@)
6@ = SAMP.GetActorHandleByPlayerID(5@)
if
056D: actor 6@ defined
jf @Shanker_ERROR
0BCB: samp send_give_damage playerid 5@ damage -100.0 weapon 0 bodypart 3 // =]] Maded by D4N1 my friend ;)
8@ = SAMP.GetPlayerNickname(5@)
chatmsg "{FFFF00}[Kill] {FF0000}%s [%d] {FFFFFF}got 100.0 health. " -1 8@ 5@
SAMP.CmdRet
:Shanker_ERROR
wait 0
chatmsg "{FFFF00}[Kill]{FFFFFF} COMANDO: /kill [PlayerID]. " -1
SAMP.CmdRet
goto @Troll_Production_SAMP_2
:Shanker_ERROR_7
wait 0
chatmsg "{FFFF00}[Kill]{FFFFFF} COMANDO: /givehlt [PlayerID]. " -1
SAMP.CmdRet
goto @Troll_Production_SAMP_2
:Shanker_ERROR_2
wait 0
chatmsg "{FFFF00}[Kill]{FFFFFF} Jogador não encontrado. " -1
SAMP.CmdRet
goto @Troll_Production_SAMP_2
:Shanker_ERROR_3
wait 0
chatmsg "{FFFF00}[Kill]{FF0000} %s [%d] {FFFFFF}não está em Stream Zone. " -1 4@ 2@
SAMP.CmdRet
goto @Troll_Production_SAMP_2
:Shanker_ERROR_5
wait 0
chatmsg "{FFFF00}[Kill]{FFFFFF} Jogador não encontrado. " -1
SAMP.CmdRet
goto @Troll_Production_SAMP_2
:Shanker_ERROR_6
wait 0
chatmsg "{FFFF00}[Kill]{FF0000} %s [%d] {FFFFFF}não está em Stream Zone. " -1 4@ 2@
SAMP.CmdRet
goto @Troll_Production_SAMP_2
0AB1: call_scm_func @chatmsg 0
:loop
wait 0
jump @loop
:troll
0B35: 0@
IF 0AD4: 1@ = 0@ "%D" 2@
THEN
PRINTF "Jucatorul cu id %d a fost citat!" 1000 2@
0AFE: 2@ 54
WAIT 100
0AF9: "/call 112"
ELSE
printF "~g~/wanted <id>" 2000
END
0B43:
:test
0AFE: 1@ 10000000
0AFE: 2@ 10000000
0AFE: 3@ 10000000
call @SendOn 3 1@ 2@ 3@
0B43:
:SendOn
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: struct 4@ offset 6 size 4 = 0@
0C0D: struct 4@ offset 10 size 4 = 1@
0C0D: struct 4@ offset 14 size 4 = 2@
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
:chatmsg
0AA2: 0@ = load_library "samp.dll" // IF and SET
0085: 1@ = 0@ // (int)
1@ += 2203876
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
0085: 2@ = 0@ // (int)
2@ += 409616
print "~g~Para outras emoções, clique em assinar no canal." 2000
0AB2: ret 0
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
0000:
0@ = 0
$_P = 0
$_G = 0
$_R = 0
$_B = 0
while true
wait 0
if and
key_down 80
8B21: samp is_chat_opened
then
if $_P == 0
then $_P = 1
0@ = 1
0AF8: samp add_message_to_chat "[AUTO-PILOTO]: Auto Piloto Enabled" color 0x7CFC00
else $_P = 0
0@ = 0
0AF8: samp add_message_to_chat "[AUTO-PILOTO]: Auto Pilot Disabled" color 0xFF0000
$_G = 0
$_B = 0
if Actor.Driving($PLAYER_ACTOR)
then 1@ = Actor.CurrentCar($PLAYER_ACTOR)
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 2@ 3@ 4@
036A: put_actor $PLAYER_ACTOR in_car 1@
end
end
wait 1000
end
if and
key_down 82
8B21: samp is_chat_opened
then
if $_R == 0
then $_R = 1
0AF8: samp add_message_to_chat "[AUTO-PILOTO]: Play Back Enabled" color 0x7CFC00
else $_R = 0
0AF8: samp add_message_to_chat "[AUTO-PILOTO]: Play Back Disabled" color 0xFF0000
$_B = 0
end
wait 1000
end
if and
Actor.Driving($PLAYER_ACTOR)
$_P == 1
0AB6: store_target_marker_coords_to 5@ 6@ 7@
$_G == 0
then
if or
04AB: actor $PLAYER_ACTOR driving_plane
04A9: actor $PLAYER_ACTOR driving_heli
then
1@ = Actor.CurrentCar($PLAYER_ACTOR)
00AA: store_car 1@ position_to 2@ 3@ 4@
if 04AB: actor $PLAYER_ACTOR driving_plane
then 04D2: set_plane 1@ fly_autopilot_around_point 5@ 6@ 4@ altitude_between 0.0 and 0.5
08E6: set_plane 1@ landing_gear 1
$_G = 1
else 0743: 04A2: set_heli 1@ fly_to 5@ 6@ 4@ altitude_between 4@ and 4@
$_G = 1
end
0@ = 1
wait 1000
end
end
if and
Actor.Driving($PLAYER_ACTOR)
0@ == 1
then
if or
04AB: actor $PLAYER_ACTOR driving_plane
04A9: actor $PLAYER_ACTOR driving_heli
then
1@ = Actor.CurrentCar($PLAYER_ACTOR)
00AA: store_car 1@ position_to 8@ 9@ 10@
if $_B == 0
then 0509: 11@ = distance_between_XY 5@ 6@ and_XY 8@ 9@
else 0509: 11@ = distance_between_XY 8@ 9@ and_XY 2@ 3@
end
0AD3: 12@v = format "Distance: %f" 11@
0ACD: show_text_highpriority 12@v time 1
if 11@ <= 15.0
then
0ACD: show_text_highpriority "Destination Reached" time 1000
if $_R == 1
then
if $_B == 0
then $_B = 1
else $_B = 0
$_G = 0
end
if 04AB: actor $PLAYER_ACTOR driving_plane
then 04D2: set_plane 1@ fly_autopilot_around_point 2@ 3@ 4@ altitude_between 0.0 and 0.5
08E6: set_plane 1@ landing_gear 1
else 04A2: set_heli 1@ fly_to 2@ 3@ 4@ altitude_between 4@ and 4@
end
else
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 8@ 9@ 10@
036A: put_actor $PLAYER_ACTOR in_car 1@
0@ = 0
$_G = 0
$_P = 0
$_B = 0
0AF8: samp add_message_to_chat "[AUTO-PILOTO]: Auto PilotO Disabled" color 0xFF0000
continue
end
end
end
end
END
{$CLEO}
0662: "Fvr S"
thread "Dust"
wait 2500
const
COLOR = 0xFFE3336D
end
31@ = 0
13@ = 0
14@ = 0
WHILE TRUE
WAIT 0
IF 31@ == 1
THEN
FOR 0@ = 0 to 999
IF SAMP.IsPlayerConnected(0@)
THEN
IF 1@ = SAMP.GetActorHandleByPlayerID(0@)
THEN
16@ = SAMP.GetPlayerColor(0@)
IF 16@ == COLOR
THEN
0AF9: samp say_msg "/" 0@
WAIT 1000
13@ += 1
END
END
END
END
IF 14@ == 0
then
wait 0
else
chatmsg "W" -1 13@
13@ = 0
end
31@ = 0
END
END
:cmd_9
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "yellow.bugged.ro" port 7777
SAMP.CmdRet()
:cmd_8
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "beta.bugged.ro" port 7777
SAMP.CmdRet()
:cmd_7
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "green.bugged.ro" port 7777
SAMP.CmdRet()
:cmd_6
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "red.bugged.ro" port 7777
SAMP.CmdRet()
:cmd_5
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "orange.bugged.ro" port 7777
SAMP.CmdRet()
:cmd_4
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "blue.bugged.ro" port 7777
SAMP.CmdRet()
:cmd_10
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "cloud.og-times.ro" port 7777
SAMP.CmdRet()
:cmd_11
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "rpg.og-times.ro" port 7777
SAMP.CmdRet()
:cmd_12
SAMP.IsCommandTyped(20@)
0B38: samp connect_to_server "ruby.nephrite.ro" port 7777
SAMP.CmdRet()