️ Decrypting/Safety Check CLEO/SF/ASI/DLL


Here you can send files and they will be decrypted(cleo/lua/ahk) !

CLEO / LUA / AHK files can have their encryption removed
In full / in part


The SF / ASI / DLL file will be mainly tested
It is not possible to extract code in an orderly manner from files programmed in C ++
Here you will find out if a file is safe and what it does.​
 
Last edited:
Click to expand...
D

DemonLights113

New member
Joined
Jun 19, 2019
Messages
2
Reaction score
0
SobFoX said:
It's not encrypted, and it's a cleo debug file
Bring the source and it will be easier to give it to you neatly

But in any case there is no encryption here you just need to sort the code and translate it from hex (use google)

Try sending me the original file
There might be a better result for dismantling the script
Click to expand...
I`m turn on the IGNORE UNKNOWN and i found how to activate it , but when i put it in cleo and start the game . It`s crash and idk why , btw i get it from my friend and he said he don`t have to original file xd
 
J

johnyt

New member
Joined
Dec 10, 2021
Messages
1
Reaction score
0
Location
cdfdsafc
can you decode this luac? I changed the extension from luac to lua because I couldn't add it here otherwise
thanks
 

Attachments

  • godmode.lua
    3.9 KB · Views: 9
  • skip.lua
    7 KB · Views: 4
N

nytor

New member
Joined
Dec 8, 2021
Messages
1
Reaction score
0
Location
!!!
Please check the malware, the volume is too large. Thank you in advance!
 

Attachments

  • GameSpeed.cs
    401 KB · Views: 5
HaroldGnomo

HaroldGnomo

Well-known member
Joined
Jun 20, 2021
Messages
211
Reaction score
59
Location
Sahara Desert
SobFoX said:
It does not work at all,And if it's for the phone then GTFO
Click to expand...
bro i just dont understand samp phone cheating, it sucks, they dont have sampfuncs, just some visual functions and things like that, sometimes it doesnt even works, at least all the phone cheats i see was like this and tbh samp wasnt even to be played in phone
 
Last edited:
SobFoX

SobFoX

Expert
Joined
Jul 14, 2015
Messages
1,463
Solutions
5
Reaction score
916
Location
Israel
HaroldGnomo said:
bro i just dont understand samp phone cheating, it sucks, they dont have sampfuncs, just some visual functions and things like that, sometimes it doesnt even works, at least all the phone cheats i see was like this and tbh samp wasnt even to be played in phone
Click to expand...
Not comfortable to use the phone, and also it is poorly programmed, but nice they did it I once did raksamp over the phone was very nice
 
OmarLucio

OmarLucio

Member
Joined
Nov 24, 2013
Messages
14
Reaction score
1
I wanted to know if you can decrypt it, I just want to change the three commands that cleo works with!
 

Attachments

  • CharGoto.cs
    2.6 KB · Views: 11
T

tested05

Active member
Joined
Jan 21, 2017
Messages
70
Reaction score
2
file is obfuscated. Can someone decompile it ?
 

Attachments

  • ahk.exe
    5 MB · Views: 16
SobFoX

SobFoX

Expert
Joined
Jul 14, 2015
Messages
1,463
Solutions
5
Reaction score
916
Location
Israel
vincentdineros said:
Can you decompile this script script please Thank you
Click to expand...
vefix.cs
PHP: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
{$USE CLEO+}
{$USE newOpcodes}

, $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
 {FFFFFF}Commands:
{02F6EB}/ptp{C0FF01}: teleport to a player (eg. /ptp 10).
{02F6EB}/pcp{C0FF01}: teleport to checkpoint (eg. /pcp).
{02F6EB}/ptpc{C0FF01}: teleport to coordinates (eg. /ptpc 100.0 100.0 250.0).
{02F6EB}/pspos{C0FF01}: save a position under a decimal name (eg. /pspos 2).
{02F6EB}/plpos{C0FF01}: load a position (eg. /plpos 2).
{02F6EB}/pback{C0FF01}: teleport back to your last position.
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
 
You must log in or register to reply here.
Top