CLEO Help WeaponHack wont get synced?

CLEO related
Status
Not open for further replies.

Vrana

Active member
Joined
Jun 24, 2014
Messages
128
Reaction score
0
Location
Serbia
Hey guys, when I type /dgun and select some weapon it isn't synced, why? here is the code.

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

//-------------MAIN---------------
0000: NOP 
if 
0@ = SAMP.Base()
else_jump @Noname_20 
end_thread 

:Noname_20
wait 400 
   SAMP.Available
else_jump @Noname_20 
6@ = 100 
7@ = 100 
8@ = 250 
9@ = 250 
10@ = 250 
11@ = 100 
12@ = 1 
$score = 0 
$death = 0 
$cheat = 0 
$bp = 0 
$rpgive = 0 
alloc 28@ 128 
alloc 16@ 128 
0B34: samp register_client_command "dgun" to_label @Noname_3285 
0B34: samp register_client_command "givegun" to_label @Noname_3471 

:Noname_166
wait 0 
if 
   SAMP.DialogRespond(13@, 14@, 15@, 16@)
else_jump @Noname_3196 
if 
  13@ == 10 
else_jump @Noname_2035 
if 
  14@ == 1 
else_jump @Noname_2028 
if 
  15@ == 0 
else_jump @Noname_367 
if 
  12@ == 1 
else_jump @Noname_345 
SAMP.ShowDialog(2, "Gun Cheat v0.2 | Reload", "Ââåäèòå êîë-âî ïàòðîí äëÿ Deagle", "OK", "", DIALOG_STYLE_INPUT)
jump @Noname_360 

:Noname_345
call @Noname_3758 2 24 6@ 

:Noname_360
jump @Noname_2028 

:Noname_367
if 
  15@ == 1 
else_jump @Noname_504 
if 
  12@ == 1 
else_jump @Noname_482 
SAMP.ShowDialog(3, "Gun Cheat v0.2 | Reload", "Ââåäèòå êîë-âî ïàòðîí äëÿ Shotgun", "OK", "", DIALOG_STYLE_INPUT)
jump @Noname_497 

:Noname_482
call @Noname_3758 2 25 7@ 

:Noname_497
jump @Noname_2028 

:Noname_504
if 
  15@ == 2 
else_jump @Noname_637 
if 
  12@ == 1 
else_jump @Noname_615 
SAMP.ShowDialog(4, "Gun Cheat v0.2 | Reload", "Ââåäèòå êîë-âî ïàòðîí äëÿ MP5", "OK", "", DIALOG_STYLE_INPUT)
jump @Noname_630 

:Noname_615
call @Noname_3758 2 29 8@ 

:Noname_630
jump @Noname_2028 

:Noname_637
if 
  15@ == 3 
else_jump @Noname_769 
if 
  12@ == 1 
else_jump @Noname_747 
SAMP.ShowDialog(5, "Gun Cheat v0.2 | Reload", "Ââåäèòå êîë-âî ïàòðîí äëÿ M4", "OK", "", DIALOG_STYLE_INPUT)
jump @Noname_762 

:Noname_747
call @Noname_3758 2 31 9@ 

:Noname_762
jump @Noname_2028 

:Noname_769
if 
  15@ == 4 
else_jump @Noname_904 
if 
  12@ == 1 
else_jump @Noname_882 
SAMP.ShowDialog(6, "Gun Cheat v0.2 | Reload", "Ââåäèòå êîë-âî ïàòðîí äëÿ AK-47", "OK", "", DIALOG_STYLE_INPUT)
jump @Noname_897 

:Noname_882
call @Noname_3758 2 30 10@ 

:Noname_897
jump @Noname_2028 

:Noname_904
if 
  15@ == 5 
else_jump @Noname_1039 
if 
  12@ == 1 
else_jump @Noname_1017 
SAMP.ShowDialog(7, "Gun Cheat v0.2 | Reload", "Ââåäèòå êîë-âî ïàòðîí äëÿ Rifle", "OK", "", DIALOG_STYLE_INPUT)
jump @Noname_1032 

:Noname_1017
call @Noname_3758 2 33 11@ 

:Noname_1032
jump @Noname_2028 

:Noname_1039
if 
  15@ == 6 
else_jump @Noname_2028 
if 
  12@ == 1 
else_jump @Noname_1529 
if 
  $rpgive == 1 
else_jump @Noname_1312 
if 
  $bp == 1 
else_jump @Noname_1212 
format 28@ "set patrons: Yes%cadd patrons%cadd message: Yes%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10 
jump @Noname_1305 

:Noname_1212
format 28@ "set patrons: Yes%cadd patrons%cadd message: Yes%cinf. ammo: No%cstats%cback" 10 10 10 10 10 

:Noname_1305
jump @Noname_1522 

:Noname_1312
if 
  $bp == 1 
else_jump @Noname_1430 
format 28@ "set patrons: Yes%cadd patrons%cadd message: No%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10 
jump @Noname_1522 

:Noname_1430
format 28@ "set patrons: Yes%cadd patrons%cadd message: No%cinf. ammo: No%cstats%cback" 10 10 10 10 10 

:Noname_1522
jump @Noname_1972 

:Noname_1529
if 
  $rpgive == 1 
else_jump @Noname_1764 
if 
  $bp == 1 
else_jump @Noname_1665 
format 28@ "set patrons: No%cadd patrons%cadd message: Yes%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10 
jump @Noname_1757 

:Noname_1665
format 28@ "set patrons: No%cadd patrons%cadd message: Yes%cinf. ammo: No%cstats%cback" 10 10 10 10 10 

:Noname_1757
jump @Noname_1972 

:Noname_1764
if 
  $bp == 1 
else_jump @Noname_1881 
format 28@ "set patrons: No%cadd patrons%cadd message: No%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10 
jump @Noname_1972 

:Noname_1881
format 28@ "set patrons: No%cadd patrons%cadd message: No%cinf. ammo: No%cstats%cback" 10 10 10 10 10 

:Noname_1972
SAMP.ShowDialog(8, "Gun Cheat v0.2 | Reload site [2/2]", 28@, "OK", "Close", DIALOG_STYLE_LIST)

:Noname_2028
jump @Noname_3189 

:Noname_2035
if 
  13@ == 2 
else_jump @Noname_2091 
0AD4: 1@ = scan_string 16@ format "%d" 6@  
call @Noname_3758 2 24 6@ 
jump @Noname_3189 

:Noname_2091
if 
  13@ == 3 
else_jump @Noname_2147 
0AD4: 1@ = scan_string 16@ format "%d" 7@  
call @Noname_3758 2 25 7@ 
jump @Noname_3189 

:Noname_2147
if 
  13@ == 4 
else_jump @Noname_2203 
0AD4: 1@ = scan_string 16@ format "%d" 8@  
call @Noname_3758 2 29 8@ 
jump @Noname_3189 

:Noname_2203
if 
  13@ == 5 
else_jump @Noname_2259 
0AD4: 1@ = scan_string 16@ format "%d" 9@  
call @Noname_3758 2 31 9@ 
jump @Noname_3189 

:Noname_2259
if 
  13@ == 6 
else_jump @Noname_2315 
0AD4: 1@ = scan_string 16@ format "%d" 10@  
call @Noname_3758 2 30 10@ 
jump @Noname_3189 

:Noname_2315
if 
  13@ == 7 
else_jump @Noname_2371 
0AD4: 1@ = scan_string 16@ format "%d" 11@  
call @Noname_3758 2 33 11@ 
jump @Noname_3189 

:Noname_2371
if 
  13@ == 8 
else_jump @Noname_3064 
if 
  14@ == 1 
else_jump @Noname_3057 
if 
  15@ == 0 
else_jump @Noname_2471 
if 
  12@ == 1 
else_jump @Noname_2457 
12@ = 0 
jump @Noname_2464 

:Noname_2457
12@ = 1 

:Noname_2464
jump @Noname_3057 

:Noname_2471
if 
  15@ == 1 
else_jump @Noname_2576 
SAMP.ShowDialog(9, "Gun Cheat v0.2 | Reload", "Ââåäèòå êîë-âî ïàòðîí äëÿ òåêóùåãî îðóæèÿ", "OK", "", DIALOG_STYLE_INPUT)
jump @Noname_3057 

:Noname_2576
if 
  15@ == 5 
else_jump @Noname_2781 
format 28@ "deagle [P:%d]%cshotgun [P:%d]%cMP5 [P:%d]%cM4 [P:%d]%cAK-47 [P:%d]%crifle [P:%d]%cnext" 6@ 10 7@ 10 8@ 10 9@ 10 10@ 10 11@ 10 
SAMP.ShowDialog(10, "Gun Cheat v0.2 | Reload site [1/2]", 28@, "OK", "Close", DIALOG_STYLE_LIST)
jump @Noname_3057 

:Noname_2781
if 
  15@ == 2 
else_jump @Noname_2845 
if 
  $rpgive == 1 
else_jump @Noname_2831 
$rpgive = 0 
jump @Noname_2838 

:Noname_2831
$rpgive = 1 

:Noname_2838
jump @Noname_3057 

:Noname_2845
if 
  15@ == 3 
else_jump @Noname_2935 
if 
  $bp == 1 
else_jump @Noname_2908 
0A8C: write_memory 9867640 size 1 value 0 virtual_protect 1 
$bp = 0 
jump @Noname_2928 

:Noname_2908
0A8C: write_memory 9867640 size 1 value 1 virtual_protect 1 
$bp = 1 

:Noname_2928
jump @Noname_3057 

:Noname_2935
if 
  15@ == 4 
else_jump @Noname_3057 
format 28@ "Statistics:%cInput cheat: %d%cDeaths: %d%cKill: %d" 10 $cheat 10 $death 10 $score 
SAMP.ShowDialog(11, "Gun Cheat v0.2", 28@, "OK", "", DIALOG_STYLE_MSGBOX)

:Noname_3057
jump @Noname_3189 

:Noname_3064
if 
  13@ == 9 
else_jump @Noname_3189 
0AD4: 0@ = scan_string 16@ format "%d" 3@  
0470: 0@ = actor $PLAYER_ACTOR current_weapon 
if or
  0@ == 24 
  0@ == 25 
  0@ == 29 
  0@ == 30 
  0@ == 31 
  0@ == 33 
else_jump @Noname_3189 
041A: 1@ = actor $PLAYER_ACTOR weapon 0@ ammo 
005A: 1@ += 3@ // (int) 
Actor.SetWeaponAmmo($PLAYER_ACTOR, 0@, 1@)

:Noname_3189
jump @Noname_3278 

:Noname_3196
if 
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET 
else_jump @Noname_3250 
if 
   Actor.Dead(0@)
else_jump @Noname_3243 
$score += 1 
wait 6000 

:Noname_3243
jump @Noname_3278 

:Noname_3250
if 
   Actor.Dead($PLAYER_ACTOR)
else_jump @Noname_3278 
$death += 1 
wait 6000 

:Noname_3278
jump @Noname_166 

:Noname_3285
wait 0 
format 28@ "deagle [P:%d]%cshotgun [P:%d]%cMP5 [P:%d]%cM4 [P:%d]%cAK-47 [P:%d]%crifle [P:%d]%cnext" 6@ 10 7@ 10 8@ 10 9@ 10 10@ 10 11@ 10 
SAMP.ShowDialog(10, "Gun Cheat v0.2 | Reload site [1/2]", 28@, "OK", "Close", DIALOG_STYLE_LIST)
SAMP.CmdRet

:Noname_3471
wait 0 
   SAMP.IsCommandTyped(5@)
0AD4: 4@ = scan_string 5@ format "%d%d" 1@ 2@  
if or
  1@ == 24 
  1@ == 25 
  1@ == 29 
  1@ == 30 
  1@ == 31 
  1@ == 33 
else_jump @Noname_3577 
call @Noname_3758 2 1@ 2@ 
jump @Noname_3756 

:Noname_3577
0AF8: samp add_message_to_chat " *Îøèáêà ñèíòàêñèñà êîìàíäû! Ïðàâèëüíûé ââîä '/givegun [ID gun] [patron]'" color 16777215  
0AF8: samp add_message_to_chat " *ID äîñòóïíûõ îðóæèé - 24(Deagle), 25(Shotgun), 29(MP5), 30(AK-47), 31(M4), 33(Rifle)" color 16777215  

:Noname_3756
SAMP.CmdRet

:Noname_3758
wait 0 
2@ = SAMP.Base()
2@ += 22112 
0A8C: write_memory 2@ size 1 value 195 virtual_protect 1 
SAMP.WriteSAMPMemory("samp.dll", 23792, 12718080)
0304: 
Model.Load(#DESERT_EAGLE)
Model.Load(#CHROMEGUN)
Model.Load(#M4)
Model.Load(#AK47)
Model.Load(#MP5LNG)
Model.Load(#CUNTGUN)
wait 500 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 0@, 1@)
if 
  $rpgive == 1 
else_jump @Noname_3917 
0AF9: samp say_msg "/me ñäåëàë(à) ñåáå îðóæèå èç ìàòåðèàëîâ"  

:Noname_3917
wait 500 
Model.Destroy(#DESERT_EAGLE)
Model.Destroy(#CHROMEGUN)
Model.Destroy(#M4)
Model.Destroy(#AK47)
Model.Destroy(#MP5LNG)
Model.Destroy(#CUNTGUN)
$cheat += 1 
ret 0
 

Vrana

Active member
Joined
Jun 24, 2014
Messages
128
Reaction score
0
Location
Serbia
_ReT1neX_[| link=topic=12276.msg69610#msg69610 date=1421751326]
The server in which you're trying to use the cheat might have protection against it.
Nah, I tested it on "CHEATING ALLOWED" server xD
 

TrollGamer855

Member
Joined
Mar 11, 2015
Messages
9
Reaction score
0
Yup i have similar issues in this /dgun weapon hack mod,
I tried using RPG on Zombie Server on there are 2 of us Hacking there
The other guy's RPG is syncing on his Victims but on my RPG no one is getting blasted by my RPG,
 
Status
Not open for further replies.
Top