️ 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:

Kross

Active member
Joined
Dec 15, 2021
Messages
149
Reaction score
42
can you decrypt this file?

PHP:
{$CLEO .cs}
{$USE SAMPFUNCS}
0000: NOP
0662: printstring "PopandauL"
script_name 'RDetector'
if
TIMERB = SAMP.Base()
jf @RDetector_52
terminate_this_custom_script

:RDetector_52
wait 400
   SAMP.Available
jf @RDetector_52
wait 0
TIMERA = 0
28@ = 0

:RDetector_84
wait 0
29@ = 1
if
   Pad.TestCheat("PANIC")
jf @RDetector_117
terminate_this_custom_script

:RDetector_117
if and
   Pad.IsKeyPressed(161)
   Pad.IsKeyPressed(51)
jf @RDetector_282
if
  28@ == 0
jf @RDetector_209
28@ = 1
Text.PrintFormattedNow("~w~Radar Detector ~g~Enabled~w~!", 1200)
jump @RDetector_257

:RDetector_209
28@ = 0
Text.PrintFormattedNow("~w~Radar Detector ~r~Disabled~w~!", 1200)

:RDetector_257
Sound.AddOneOffSound(1052, 0.0, 0.0, 0.0)
wait 250

:RDetector_282
if and
   Char.IsInAnyCar($0[3])
  28@ == 1
jf @RDetector_487
0@ = 0

:RDetector_312
if
   SAMP.IsPlayerConnected(0@)
jf @RDetector_465
if
1@ = SAMP.GetActorHandleByPlayerID(0@)
jf @RDetector_465
if
cleo_call @RDetector_719 2 0@ 1@
jf @RDetector_465
cleo_call @RDetector_655 1 1@ 2@
if
  29@ == 1
jf @RDetector_438
29@ = 0
cleo_call @RDetector_655 1 1@ 3@
jump @RDetector_465

:RDetector_438
if
0025:   2@ > 3@ // (float)
jf @RDetector_465
0087: 3@ = 2@ // (float)

:RDetector_465
0@ += 1
  0@ > 999
jf @RDetector_312

:RDetector_487
if and
  29@ == 0
   Char.IsInAnyCar($0[3])
jf @RDetector_648
Char.StoreCarIsInNoSave(27@, $0[3])
Memory.GetVehiclePointer(27@, 27@)
27@ += 1120
   Hid.IsReleased(27@, 27@, 4, 0)
Memory.GetPedPointer(26@, $0[3])
3@ += 40.0
3@ *= 2.0
0092: 3@ = float 3@ to_integer
if and
0045:   27@ == 26@ // (float)
001D:   TIMERA > 3@ // (int)
jf @RDetector_648
TIMERA = 0
if
   Audio.HasMissionAudioLoaded(MissionAudioSlot.Slot3)
jf @RDetector_635
Audio.ClearMissionAudio(MissionAudioSlot.Slot3)

:RDetector_635
Audio.LoadMissionAudio(45400, 3)
Audio.PlayMissionAudio(MissionAudioSlot.Slot3)

:RDetector_648
jump @RDetector_84

:RDetector_655
   Player.IsPlaying($0[3])
Char.GetCoordinates($0[3], 1@, 2@, 3@)
Char.GetCoordinates(0@, 4@, 5@, 6@)
Math.GetDistanceBetweenCoords3D(7@, 1@, 2@, 3@, 4@, 5@, 6@)
cleo_return 1 7@

:RDetector_719
2@ = SAMP.GetPlayerColor(0@)
if
   Char.IsInAnyPoliceVehicle(1@)
jf @RDetector_786
Char.StoreCarIsInNoSave(3@, 1@)
Memory.GetVehiclePointer(4@, 3@)
4@ += 1272
   Hid.IsReleased(5@, 4@, 1, 0)
jump @RDetector_793

:RDetector_786
5@ = 0

:RDetector_793
if and
  5@ == 2
  2@ == -14790243
jf @RDetector_830
   Game.IsPcVersion
jump @RDetector_832

:RDetector_830
   Game.IsAustralian

:RDetector_832
cleo_return 0
 

Attachments

  • RadarDetector.cs
    20.6 KB · Views: 4

Kross

Active member
Joined
Dec 15, 2021
Messages
149
Reaction score
42
Hi! This is clean?
Yes


PHP:
// This file was decompiled using SASCM.ini published on 2021-07-05
{$CLEO .cs}
{$USE ini}
{$USE SAMPFUNCS}

0000: NOP

:Noname_2
wait 0
   SAMP.Available
jf @Noname_2
wait 0
if
   not Fs.DoesFileExist("CLEO\INI\tgd-protect.ini")
jf @Noname_267
   File.Open(31@, "CLEO\INI\tgd-protect.ini", "at")
File.WriteFormattedString("%s%c", 31@, "[Settings]", 10)
File.WriteFormattedString("%s%c", 31@, "Tecla=18", 10)
File.WriteFormattedString("%s%c", 31@, "Precio=400", 10)
File.WriteFormattedString("%s%c", 31@, "Esperar=100", 10)
File.WriteFormattedString("%s%c", 31@, "", 10)
File.WriteFormattedString("%s%c", 31@, "[CLEO]", 10)
File.WriteFormattedString("%s%c", 31@, "By=José Samp", 10)
File.Close(31@)

:Noname_267
wait 100
IniFile.WriteString("José Samp", "cleo\tgd-protect.ini", "CLEO", "By")
Memory.Allocate(24@, 280)
Text.StringFormat(24@, "Para más cleos visita: www.youtube.com/JoseSampMods/videos")
IniFile.WriteString(24@, "CLEO\INI\tgd-protect.ini", "CLEO", "Youtube")
Memory.Free(24@)
IniFile.ReadInt(0@, "CLEO\INI\tgd-protect.ini", "Settings", "Tecla")
IniFile.ReadInt(3@, "CLEO\INI\tgd-protect.ini", "Settings", "Precio")
IniFile.ReadInt(4@, "CLEO\INI\tgd-protect.ini", "Settings", "Esperar")
Memory.Allocate(13@, 30)
IniFile.ReadString(13@, "CLEO\INI\tgd-protect.ini", "Settings", "cmd")

:Noname_641
wait 0
if
   Player.GetCharIsTargeting(1@, $PLAYER_CHAR)
jf @Noname_737
if
   Pad.IsKeyPressed(0@)
jf @Noname_737
2@ = SAMP.GetSAMPPlayerIDByActorHandle(1@)
Memory.Allocate(9@, 30)
Text.StringFormat(9@, "/%s %d %d", 13@, 2@, 3@)
say 9@
wait 4@
Memory.Free(9@)

:Noname_737
jump @Noname_641
hex
 06 30 1B CC 8B 27 3E F0 84 52 A2 B8 B8
end
 

Attachments

  • tgd-protect.cs
    757 bytes · Views: 2

MrNewYear

New member
Joined
Jan 1, 2022
Messages
2
Reaction score
3
Location
Tu corazón
Yes


PHP:
// This file was decompiled using SASCM.ini published on 2021-07-05
{$CLEO .cs}
{$USE ini}
{$USE SAMPFUNCS}

0000: NOP

:Noname_2
wait 0
   SAMP.Available
jf @Noname_2
wait 0
if
   not Fs.DoesFileExist("CLEO\INI\tgd-protect.ini")
jf @Noname_267
   File.Open(31@, "CLEO\INI\tgd-protect.ini", "at")
File.WriteFormattedString("%s%c", 31@, "[Settings]", 10)
File.WriteFormattedString("%s%c", 31@, "Tecla=18", 10)
File.WriteFormattedString("%s%c", 31@, "Precio=400", 10)
File.WriteFormattedString("%s%c", 31@, "Esperar=100", 10)
File.WriteFormattedString("%s%c", 31@, "", 10)
File.WriteFormattedString("%s%c", 31@, "[CLEO]", 10)
File.WriteFormattedString("%s%c", 31@, "By=José Samp", 10)
File.Close(31@)

:Noname_267
wait 100
IniFile.WriteString("José Samp", "cleo\tgd-protect.ini", "CLEO", "By")
Memory.Allocate(24@, 280)
Text.StringFormat(24@, "Para más cleos visita: www.youtube.com/JoseSampMods/videos")
IniFile.WriteString(24@, "CLEO\INI\tgd-protect.ini", "CLEO", "Youtube")
Memory.Free(24@)
IniFile.ReadInt(0@, "CLEO\INI\tgd-protect.ini", "Settings", "Tecla")
IniFile.ReadInt(3@, "CLEO\INI\tgd-protect.ini", "Settings", "Precio")
IniFile.ReadInt(4@, "CLEO\INI\tgd-protect.ini", "Settings", "Esperar")
Memory.Allocate(13@, 30)
IniFile.ReadString(13@, "CLEO\INI\tgd-protect.ini", "Settings", "cmd")

:Noname_641
wait 0
if
   Player.GetCharIsTargeting(1@, $PLAYER_CHAR)
jf @Noname_737
if
   Pad.IsKeyPressed(0@)
jf @Noname_737
2@ = SAMP.GetSAMPPlayerIDByActorHandle(1@)
Memory.Allocate(9@, 30)
Text.StringFormat(9@, "/%s %d %d", 13@, 2@, 3@)
say 9@
wait 4@
Memory.Free(9@)

:Noname_737
jump @Noname_641
hex
06 30 1B CC 8B 27 3E F0 84 52 A2 B8 B8
end

Thank you so much!
 

SobFoX

Expert
Joined
Jul 14, 2015
Messages
1,386
Solutions
4
Reaction score
893
Location
Israel
Hi, Can You Decrypt This File?
JavaScript:
// 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 file}
{$USE newOpcodes}

wait 2
0@ = File.Open("STREAMSAMP.INI", 114)
jf @NONAME_1698
0A8D: TIMERB = read_memory 8529294 size 1 virtual_protect 1
if
  TIMERB == 233
jf @NONAME_84
TIMERB = 8529294
jump @NONAME_94

:NONAME_84
TIMERB = 8529358

:NONAME_94
0A9F: 30@ = current_thread_pointer
30@ += 16
0A8D: 31@ = read_memory 30@ size 4 virtual_protect 0
0A8F: 3@ = 31@ - -1700 // int
0A8F: 5@ = 31@ - -1796 // int
0A8F: 6@ = 31@ - -1803 // int
0A8F: 7@ = 31@ - -1811 // int
0A8F: 8@ = 31@ - -1819 // int
0A8F: 9@ = 31@ - -1711 // int
0A8F: 10@ = 31@ - -1729 // int
0A8F: 11@ = 31@ - -1740 // int
0A8F: 12@ = 31@ - -1761 // int
0A8F: 13@ = 31@ - -1783 // int
0A8F: 14@ = 31@ - -1829 // int
0A8F: 15@ = 31@ - -1840 // int
0A8F: 16@ = 31@ - -1849 // int
0A8F: 17@ = 31@ - -1862 // int
0A8F: 18@ = 31@ - -1876 // int
0A8F: 19@ = 31@ - -1894 // int
0A8F: 20@ = 31@ - -1904 // int
0A8D: 29@ = read_memory 4831650 size 4 virtual_protect 1
29@ += 4831654
0A8E: 4@ = 30@ + 64 // int
0A8C: write_memory 5499212 size 1 value 14 virtual_protect 1
0A8C: write_memory 5593172 size 4 value 487954408 virtual_protect 1
0A8C: write_memory 5593176 size 1 value 0 virtual_protect 1
0A8C: write_memory 12677196 size 4 value 30 virtual_protect 0
0A8C: write_memory 7411125 size 1 value 6 virtual_protect 1
0A8C: write_memory 8931672 size 1 value 1 virtual_protect 1
0A8C: write_memory 8931716 size 1 value 2 virtual_protect 1
0A8C: write_memory 9261312 size 1 value 1 virtual_protect 0
0A8C: write_memory 5273424 size 1 value 86 virtual_protect 1
0A8C: write_memory 4891712 size 4 value 1443425411 virtual_protect 1
0A8C: write_memory 7340256 size 1 value 139 virtual_protect 1
0A8C: write_memory 7520695 size 1 value 117 virtual_protect 1
0A8C: write_memory 5497268 size 4 value 495044584 virtual_protect 1
0A8C: write_memory 5497272 size 1 value 0 virtual_protect 1
0A8C: write_memory 5497324 size 1 value 116 virtual_protect 1
0A8C: write_memory 6134462 size 1 value 1 virtual_protect 1
0A8C: write_memory 6134415 size 1 value 1 virtual_protect 1
0A8C: write_memory 9250104 size 1 value 25 virtual_protect 0
0A8C: write_memory 4407844 size 1 value 45 virtual_protect 1

:NONAME_630
0AA7: call_function 5468032 num_params 1 pop 1 0@ 1@
   not 1@ == 0
jf @NONAME_1693
0A8D: 2@ = read_memory 1@ size 1 virtual_protect 0
   not 2@ == 35
jf @NONAME_630
0AA7: call_function 29@ num_params 2 pop 2 8825032 1@ 1@
0AA7: call_function 29@ num_params 2 pop 2 8825032 0 4@
0AA7: call_function 5000736 num_params 2 pop 2 1@ 3@ 2@
  2@ == 0
jf @NONAME_794
0AA7: call_function TIMERB num_params 1 pop 1 4@ 2@
0A8C: write_memory 5499212 size 1 value 2@ virtual_protect 1

:NONAME_794
0AA7: call_function 5000736 num_params 2 pop 2 1@ 9@ 2@
  2@ == 0
jf @NONAME_859
0A8C: write_memory 5593172 size 4 value -1869574000 virtual_protect 1
0A8C: write_memory 5593176 size 1 value 144 virtual_protect 1

:NONAME_859
0AA7: call_function 5000736 num_params 2 pop 2 1@ 10@ 2@
  2@ == 0
jf @NONAME_924
0AA7: call_function TIMERB num_params 1 pop 1 4@ 2@
0A8C: write_memory 12677196 size 4 value 2@ virtual_protect 0

:NONAME_924
0AA7: call_function 5000736 num_params 2 pop 2 1@ 11@ 2@
  2@ == 0
jf @NONAME_989
0AA7: call_function TIMERB num_params 1 pop 1 4@ 2@
0A8C: write_memory 7411125 size 1 value 2@ virtual_protect 1

:NONAME_989
0AA7: call_function 5000736 num_params 2 pop 2 1@ 12@ 2@
  2@ == 0
jf @NONAME_1054
0AA7: call_function TIMERB num_params 1 pop 1 4@ 2@
0A8C: write_memory 8931672 size 1 value 2@ virtual_protect 1

:NONAME_1054
0AA7: call_function 5000736 num_params 2 pop 2 1@ 13@ 2@
  2@ == 0
jf @NONAME_1102
0A8C: write_memory 8931716 size 1 value 0 virtual_protect 1

:NONAME_1102
0AA7: call_function 5000736 num_params 2 pop 2 1@ 5@ 2@
  2@ == 0
jf @NONAME_1150
0A8C: write_memory 9261312 size 1 value 0 virtual_protect 0

:NONAME_1150
0AA7: call_function 5000736 num_params 2 pop 2 1@ 6@ 2@
  2@ == 0
jf @NONAME_1199
0A8C: write_memory 5273424 size 1 value 195 virtual_protect 1

:NONAME_1199
0AA7: call_function 5000736 num_params 2 pop 2 1@ 7@ 2@
  2@ == 0
jf @NONAME_1248
0A8C: write_memory 4891712 size 4 value 8386 virtual_protect 1

:NONAME_1248
0AA7: call_function 5000736 num_params 2 pop 2 1@ 8@ 2@
  2@ == 0
jf @NONAME_1297
0A8C: write_memory 7340256 size 1 value 195 virtual_protect 1

:NONAME_1297
0AA7: call_function 5000736 num_params 2 pop 2 1@ 14@ 2@
  2@ == 0
jf @NONAME_1346
0A8C: write_memory 7520695 size 1 value 235 virtual_protect 1

:NONAME_1346
0AA7: call_function 5000736 num_params 2 pop 2 1@ 15@ 2@
  2@ == 0
jf @NONAME_1411
0A8C: write_memory 5497268 size 4 value -1869574000 virtual_protect 1
0A8C: write_memory 5497272 size 1 value 144 virtual_protect 1

:NONAME_1411
0AA7: call_function 5000736 num_params 2 pop 2 1@ 16@ 2@
  2@ == 0
jf @NONAME_1460
0A8C: write_memory 5497324 size 1 value 235 virtual_protect 1

:NONAME_1460
0AA7: call_function 5000736 num_params 2 pop 2 1@ 17@ 2@
  2@ == 0
jf @NONAME_1508
0A8C: write_memory 6134462 size 1 value 0 virtual_protect 1

:NONAME_1508
0AA7: call_function 5000736 num_params 2 pop 2 1@ 18@ 2@
  2@ == 0
jf @NONAME_1556
0A8C: write_memory 6134415 size 1 value 0 virtual_protect 1

:NONAME_1556
0AA7: call_function 5000736 num_params 2 pop 2 1@ 19@ 2@
  2@ == 0
jf @NONAME_1621
0AA7: call_function TIMERB num_params 1 pop 1 4@ 2@
0A8C: write_memory 9250104 size 4 value 2@ virtual_protect 0

:NONAME_1621
0AA7: call_function 5000736 num_params 2 pop 2 1@ 20@ 2@
  2@ == 0
jf @NONAME_630
0AA7: call_function TIMERB num_params 1 pop 1 4@ 2@
0A8C: write_memory 4407844 size 1 value 2@ virtual_protect 1
jump @NONAME_630

:NONAME_1693
File.Close(0@)

:NONAME_1698
0A93: end_custom_thread
hex
 66 72 61 6D 65 64 65 6C 61 79 00 6E 6F 63 75 6C
 6C 72 65 66 6C 65 63 74 69 6F 6E 73 00 66 72 61
 6D 65 6C 69 6D 69 74 00 73 74 65 6E 63 69 6C 73
 68 61 64 6F 77 6F 70 61 63 69 74 79 00 6C 69 63
 65 6E 73 65 70 6C 61 74 65 66 69 6C 74 65 72 69
 6E 67 00 6E 6F 62 6C 61 63 6B 72 6F 61 64 73 00
 6E 6F 62 6C 75 72 00 6E 6F 73 6F 75 6E 64 00 6E
 6F 63 6F 6C 66 78 00 6E 6F 66 6C 61 73 68 65 73
 00 6E 6F 68 65 61 74 68 61 7A 65 00 6E 6F 63 6C
 6F 75 64 73 00 6E 6F 74 61 72 67 65 74 62 6C 69
 70 00 6E 6F 76 65 68 69 63 6C 65 73 70 65 63 00
 6E 6F 76 65 68 69 63 6C 65 6C 69 67 68 74 69 6E
 67 00 6D 61 78 61 69 70 65 64 73 00 6D 61 78 61
 69 76 65 68 69 63 6C 65 73 00 48 45
end
 

Sathiel

Member
Joined
Nov 16, 2021
Messages
14
Reaction score
1
Location
Chile
this file is doesnt encripted at all, but when i use notepad ++ sayd something of samp.dll, who knows how to read this invisible script, in sanny builder only can read a bucle but it doesnt have any sense being a cleo to up health and armor kkkkk
 

Attachments

  • SUBIR_VIDA Y CHALECO.cs
    201 bytes · Views: 5

SobFoX

Expert
Joined
Jul 14, 2015
Messages
1,386
Solutions
4
Reaction score
893
Location
Israel
this file is doesnt encripted at all, but when i use notepad ++ sayd something of samp.dll, who knows how to read this invisible script, in sanny builder only can read a bucle but it doesnt have any sense being a cleo to up health and armor kkkkk
So it's not related to this topic, you have lots of places in the FORUM to get help
Search forum cleo
 

Saam

Active member
Joined
Apr 18, 2021
Messages
107
Reaction score
61
Location
Argentina
this file is doesnt encripted at all, but when i use notepad ++ sayd something of samp.dll, who knows how to read this invisible script, in sanny builder only can read a bucle but it doesnt have any sense being a cleo to up health and armor kkkkk
PHP:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

0000: NOP

:Noname_2
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @Noname_2
0B34: samp register_client_command "h" to_label @Noname_46
0B34: samp register_client_command "a" to_label @Noname_88

:Noname_35
0001: wait 0 ms
0002: jump @Noname_35

:Noname_46
0B35: samp 0@ = get_last_command_params
00D6: if
0AD4: $4 = scan_string 0@ format "%d" 1@
004D: jump_if_false @Noname_86
0223: set_actor $PLAYER_ACTOR health_to 1@

:Noname_86
0B43: samp cmd_ret

:Noname_88
0B35: samp 0@ = get_last_command_params
00D6: if
0AD4: $4 = scan_string 0@ format "%f" 6@
004D: jump_if_false @Noname_188
00D6: if
0AA2: 7@ = load_library "samp.dll" // IF and SET
004D: jump_if_false @Noname_188
000A: 7@ += 1296576
0A8D: 7@ = read_memory 7@ size 4 virtual_protect 0
000A: 7@ += 1352
0A8C: write_memory 7@ size 4 value 6@ virtual_protect 0

:Noname_188
0B43: samp cmd_ret
 

FrannDzs

Member
Joined
Jan 26, 2019
Messages
19
Reaction score
3
Hello, excuse me good man, could you decrypt this? i would like to know more about it.
 

Attachments

  • audio.asi
    5.1 MB · Views: 1

bug

New member
Joined
Jul 1, 2021
Messages
2
Reaction score
0
Location
Europe
s.asi clean?

can you decrypt p.lua please?
 

Attachments

  • s.asi
    2.6 MB · Views: 3
  • p.lua
    2.6 KB · Views: 5

hsm

New member
Joined
Apr 7, 2022
Messages
2
Reaction score
0
Can anyone help me to decrypt this file?
 

Attachments

  • samptest.lua
    5.9 KB · Views: 14

SobFoX

Expert
Joined
Jul 14, 2015
Messages
1,386
Solutions
4
Reaction score
893
Location
Israel
Can anyone help me to decrypt this file?
JavaScript:
slot1 = require("samp.events")
slot2 = ""
slot3 = false
slot4 = require("inicfg").load({
    AntiAFK = {
        immediateClick = false,
        commandName = "antiafk",
        enableAutomatically = false
    },
    AdminVerification = {
        antiAFK = false,
        distance = 10,
        path = ""
    }
}, "config")

function read_file(slot0)
    if not io.open(slot0, "rb") then
        return nil
    end

    slot2 = {}

    for slot6 in io.lines(slot0) do
        for slot10 in slot6:gmatch(".+") do
            table.insert(slot2, slot10)
        end
    end

    slot1:close()

    return slot2
end

slot5 = {
    jan = 1,
    fev = 2,
    mar = 3,
    abril = 4,
    maio = 5,
    jun = 6,
    jul = 7,
    ago = 8,
    set = 9,
    out = 10,
    nov = 11,
    dez = 12
}
slot6 = {
    bilhar = 2964,
    bandeira = 2614,
    pneu = 1327,
    radar = 18880,
    veado = 19315,
    ferradura = 954,
    hidrante = 1211,
    ["caixa ele"] = 19324,
    guitarra = 19318,
    geladeira = 19916,
    capacete = 18645,
    martelo = 18635,
    cama = 11720,
    cafeteira = 11743,
    mala = 19624,
    lixeira = 11706,
    dinheiro = 1212,
    bebida = 955,
    gorro = 19065,
    presente = 19054,
    ["rvore de natal"] = 19076,
    stop = 19966,
    bateria = 19609,
    carne = 19582,
    banana = 19578,
    verde = 19576,
    rvore = 714,
    antena = 3763,
    energia = 3244,
    gua = 5838,
    port = 980,
    disquete = 1277,
    dado = 1852,
    dinamite = 1654,
    mera = 19623,
    chave = 11746,
    esteira = 2627,
    gasolina = 3465,
    ["ponto de"] = 1257,
    lixo = 910,
    bota = 11735,
    garfo = 11715,
    poste = 3459,
    bal = 19335,
    vermelho = 19332,
    cabine = 1346,
    cone = 1238,
    skate = 19878,
    extintor = 2690,
    cadeira = 19999,
    cigarro = 19897,
    laptop = 19893,
    papel = 19873,
    sab = 19874,
    vermelha = 19575,
    vaca = 19833,
    vinho = 19818,
    cereal = 19562,
    cerca = 19868,
    telefone = 11705,
    ["caixa de pizza"] = 19571,
    basquete = 2114,
    cadeado = 19804,
    asqueira = 19831,
    laranja = 19574,
    leite = 19569,
    navio = 8493,
    sema = 19964,
    caldeir = 19527,
    bomba = 1676,
    liquidifi = 19830,
    bolo = 19525,
    dica = 11738
}
slot7 = false
slot8 = {
    timeUnlocked = 0,
    authorized = true
}
slot9 = slot4.AntiAFK.enableAutomatically
slot10 = slot4.AdminVerification.antiAFK
slot11 = slot4.AntiAFK.immediateClick
slot13 = slot4.AdminVerification.distance
slot14 = slot4.AntiAFK.commandName
slot15 = read_file(slot4.AdminVerification.path)
slot16 = true
slot17 = 1651028400
slot18 = {
    "Hesoyam.",
    "DoGrau."
}

function main()
    repeat
        wait(0)
    until isSampAvailable()

    sendMessageStatus = lua_thread.create_suspended(_sendMessageStatus)
    sendClickAFK = lua_thread.create_suspended(_sendClickAFK)

    sampRegisterChatCommand(uv0, _changeCommandActivity)

    while true do
        wait(0)

        if not uv1.authorized and uv1.timeUnlocked < os.clock() then
            uv1 = {
                timeUnlocked = 0,
                authorized = true
            }
        end

        if uv2 and uv3 and uv4 then
            if not uv5 then
                uv4 = false

                sendMessageStatus:run("Arquivo para verificar administradores {FF0000}nao{FFFFFF} encontrado. Sistema pausado!")
            elseif getClosestPlayerId() >= 0 then
                uv2 = false

                sendMessageStatus:run("O {FDC400}Administrador(a) " .. sampGetPlayerNickname(slot0) .. "[" .. slot0 .. "]{FFFFFF} esta por perto! Anti-AFK {FF0000}desativado{FFFFFF}.")
            end
        end
    end
end

function getClosestPlayerId()
    slot0 = uv0
    slot1 = -1
    slot2, slot3, slot4 = getCharCoordinates(PLAYER_PED)

    for slot8 = 0, 999 do
        slot9, slot10 = sampGetCharHandleBySampPlayerId(slot8)

        if slot9 then
            for slot15, slot16 in pairs(uv1) do
                if string.lower(slot16) == string.lower(sampGetPlayerNickname(slot8)) then
                    slot17, slot18, slot19 = getCharCoordinates(slot10)

                    if math.sqrt((slot17 - slot2)^2 + (slot18 - slot3)^2 + (slot19 - slot4)^2) < slot0 then
                        slot0 = slot20
                        slot1 = slot8
                    end
                end
            end
        end
    end

    return slot1
end

function _sendMessageStatus(slot0)
    wait(1)
    sampAddChatMessage("[LionMODS]{FFFFFF} " .. slot0, 16739328)
end

function _changeCommandActivity()
    if not uv0 then
        sendMessageStatus:run("O seu plano {FF0000}venceu{FFFFFF}. Contate o desenvolvedor Lion#6221 para renovar!")

        return
    end

    uv1 = not uv1

    if uv1 then
        sendMessageStatus:run("Sistema anti-AFK {148A0C}ativado{FFFFFF} com sucesso!")
    else
        sendMessageStatus:run("Sistema anti-AFK {FF0000}desativado{FFFFFF} com sucesso!")
    end
end

function _contextualizeTextDraw(slot0, slot1)
    if not uv0 or not uv1 then
        return
    end

    slot2, slot3 = sampGetPlayerIdByCharHandle(PLAYER_PED)

    if uv0 and uv1 and slot0 == 2113 or slot0 == 2055 then
        if not uv2.authorized then
            uv1 = false

            sendMessageStatus:run("Os administradores provavelmente induziram este AFK na sua tela. Contudo, comando {FF0000}cancelado{FFFFFF}.")

            return
        end

        uv2 = {
            authorized = false,
            timeUnlocked = os.clock() + 540
        }
        uv3 = string.lower(slot1.text)
        uv4 = true

        sendMessageStatus:run("Sistema de ausencia {148A0C}detectado{FFFFFF}!")
    elseif uv0 and uv4 and slot1.selectable == 1 then
        slot4 = math.random(5, 15)

        if uv5 then
            slot4 = 0
        end

        for slot8, slot9 in pairs(uv6) do
            if string.find(uv3, slot8, 1, true) and slot1.modelId == slot9 then
                sendClickAFK:run(slot0, slot4)

                uv4 = false
            end
        end
    end
end

function _sendClickAFK(slot0, slot1)
    if slot1 > 0 then
        sendMessageStatus:run("Dando um delay aleatorio de {9370DB}" .. slot1 .. " {FFFFFF}segundos.")
        wait(slot1 * 1000)
    end

    sampSendClickTextdraw(slot0)
end

function slot1.onShowTextDraw(slot0, slot1)
    if slot0 == 238 and string.find(slot1.text, "de", 1, true) and not uv0 then
        slot2 = splitString(slot1.text, " ")

        for slot6, slot7 in pairs(uv1) do
            if string.find(string.lower(slot2[3]), slot6, 1, true) then
                slot2[3] = slot7
            end
        end

        slot3, slot4 = sampGetPlayerIdByCharHandle(PLAYER_PED)
        slot6 = false

        for slot10, slot11 in ipairs(uv2) do
            if string.lower(slot11) == string.lower(sampGetPlayerNickname(slot4)) then
                slot6 = true
            end
        end

        if not slot6 then
            print("Nickname de uso nao autorizado!")

            return
        end

        if uv3 and uv4 < os.time({
            year = slot2[5],
            month = slot2[3],
            day = slot2[1]
        }) then
            print("Plano anti-afk vencido!")

            return
        else
            print("Plano anti-afk conferido!")

            uv0 = true
        end
    end

    _contextualizeTextDraw(slot0, slot1)
end

function splitString(slot0, slot1)
    if slot1 == nil then
        slot1 = "%s"
    end

    slot2 = {}
    slot6 = slot1

    for slot6 in string.gmatch(slot0, "([^" .. slot6 .. "]+)") do
        table.insert(slot2, slot6)
    end

    return slot2
end

function slot1.onServerMessage(slot0, slot1)
    if not uv0 or not uv1 then
        return
    end

    if slot0 == -65366 and string.find(slot1, "resolveu o captcha com sucesso.") then
        sendMessageStatus:run("Captcha desbloqueado!")
    end

    if uv2 and slot0 == 1221708970 and string.find(slot1, "vida recebida de", 1, true) then
        uv1 = false

        sendMessageStatus:run("Algum {FDC400}administrador(a){FFFFFF} lhe enviou uma mensagem. Anti-AFK {FF0000}desativado{FFFFFF}!")
    end

    if uv2 and slot0 == 512819114 and string.find(slot1, "veio at", 1, true) then
        uv1 = false

        sendMessageStatus:run("Algum {FDC400}administrador(a){FFFFFF} teleportou-se ate voce. Anti-AFK {FF0000}desativado{FFFFFF}!")
    end
end

script_author("Lion")
script_name("AntiAFK")
 

SobFoX

Expert
Joined
Jul 14, 2015
Messages
1,386
Solutions
4
Reaction score
893
Location
Israel
sorry, my mistake
JavaScript:
slot1 = false
slot2 = 0

require("lib.samp.events").onSendPlayerSync = function (slot0)
    if uv0 then
        slot0.weapon = 0
    end
end

function main()
    while not isSampAvailable() do
        wait(100)
    end

    sampRegisterChatCommand("sss", function (slot0)
        uv0 = not uv0
        slot0 = tonumber(slot0)

        if uv0 and slot0 and slot0 > 0 then
            uv1 = slot0
        end
    end)

    while true do
        wait(uv1)

        if uv0 then
            for slot3 = 0, 250 do
                if sampIsPlayerConnected(slot3) then
                    sampSendChat("/pm " .. slot3 .. " -X Fuck This Server !!!")
                    printStringNow("~b~Spam Send To Player ID " .. slot3, uv1)
                    wait(uv1)
                end
            end
        end
    end
end
 
Top