Help Help me... parameters problem.

Monstercat · Sep 30, 2013

Hey I have translated this CLEO and now i can't Compile it.
"If not enough parameters. 6 offers"

I hope someone can help me and explain why this not work

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 
0AC8: 28@ = allocate_memory_size 128 
0AC8: 16@ = allocate_memory_size 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", "Ammo for Deagle", "OK", "", DIALOG_STYLE_INPUT)
jump @NONAME_360 

:NONAME_345
0AB1: call_scm_func @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", "Ammo for Shotgun", "OK", "", DIALOG_STYLE_INPUT)
jump @NONAME_497 

:NONAME_482
0AB1: call_scm_func @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", "Ammo for MP5", "OK", "", DIALOG_STYLE_INPUT)
jump @NONAME_630 

:NONAME_615
0AB1: call_scm_func @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", "Ammo for M4", "OK", "", DIALOG_STYLE_INPUT)
jump @NONAME_762 

:NONAME_747
0AB1: call_scm_func @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", "Ammo for AK-47", "OK", "", DIALOG_STYLE_INPUT)
jump @NONAME_897 

:NONAME_882
0AB1: call_scm_func @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", "Ammo for Rifle", "OK", "", DIALOG_STYLE_INPUT)
jump @NONAME_1032 

:NONAME_1017
0AB1: call_scm_func @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 
0AD3: 28@ = format "set patrons: Yes%cadd patrons%cadd message: Yes%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10  
jump @NONAME_1305 

:NONAME_1212
0AD3: 28@ = format "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 
0AD3: 28@ = format "set patrons: Yes%cadd patrons%cadd message: No%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10  
jump @NONAME_1522 

:NONAME_1430
0AD3: 28@ = format "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 
0AD3: 28@ = format "set patrons: No%cadd patrons%cadd message: Yes%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10  
jump @NONAME_1757 

:NONAME_1665
0AD3: 28@ = format "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 
0AD3: 28@ = format "set patrons: No%cadd patrons%cadd message: No%cinf. ammo: Yes%cstats%cback" 10 10 10 10 10  
jump @NONAME_1972 

:NONAME_1881
0AD3: 28@ = format "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@  
0AB1: call_scm_func @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@  
0AB1: call_scm_func @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@  
0AB1: call_scm_func @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@  
0AB1: call_scm_func @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@  
0AB1: call_scm_func @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@  
0AB1: call_scm_func @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", "Ammo for current Weapon", "OK", "", DIALOG_STYLE_INPUT)
jump @NONAME_3057 

:NONAME_2576
if 
  15@ == 5 
else_jump @NONAME_2781 
0AD3: 28@ = format "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 
0AD3: 28@ = format "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 
0AD3: 28@ = format "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 
0AB1: call_scm_func @NONAME_3758 2 1@ 2@  
jump @NONAME_3756 

:NONAME_3577
0AF8: samp add_message_to_chat " *Syntax Error team! correct entry '/givegun [ID gun] [patron]'" color 16777215  
0AF8: samp add_message_to_chat " *ID available Weapons - 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 made a weapon of materials"  

: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 
0AB2: ret 0

Z0DY · Sep 30, 2013

Code:

    SAMP.ShowDialog(2, "Gun Cheat v0.2 | Reload", "Ammo for Deagle", "OK", "", [b][u]DIALOG_STYLE_INPUT[/u][/b])

cause it's nowhere defined so its no Parameter for the Opcode

Monstercat · Sep 30, 2013

Ok I'm a real beginner ^^
What i can do

PS: Move to CLEO Requests pls

Z0DY · Sep 30, 2013

I dont know the Dialog Style Id's, you can try all styles just edit DIALOG_STYLE_INPUT with 0, 1, 2, 3...

0x_ · Sep 30, 2013

http://wiki.sa-mp.com/wiki/Dialog_Styles

You mean these ?

Monstercat · Sep 30, 2013

Ahh thanks now i can Compile it ^^
But ingame when i tipe /dgun nothing happens.

xzytro · Sep 30, 2013

Are you sure you have the latest samp functions before thinking of using it in-game ?

Monstercat · Sep 30, 2013

Yeah 2.6

xzytro · Sep 30, 2013

Can you ensure that the original version of the cleo actually works well in-game ?

Monstercat · Sep 30, 2013

Yes, I have just tested separately again to be sure.

I put the original .cs as an attachment

xzytro · Sep 30, 2013

This problem probably occured due to bad conversation from crypted version to normal version by causing a lack of some required opcodes which got wrongly deleted while decrypting the cleo file.

You should ask the main author of the crypted cleo to acquire the codes of the script in condition that you will only use it for your own fun and that you will not share the cleo mod anywhere else, as stated in our Terms of Use.

Help Help me... parameters problem.

Monstercat

Well-known member

Z0DY

Well-known member

Monstercat

Well-known member

Z0DY

Well-known member

0x_

Wtf I'm not new....

Monstercat

Well-known member

xzytro

God

Monstercat

Well-known member

xzytro

God

Monstercat

Well-known member

Attachments

xzytro

God