[CLEO] Fish on Z

[Wrath]

Descriere: Acest mod va ajuta sa pescuiti folosind tasta Z. Cat timp modul este pornit, pestele se va vinde automat cand intrati in 24/7.

Comenzi: /fishonz

Download: FishOnZbyWrath

[Kristyan]

3 hours ago, Wrath said:

Descriere: Acest mod va ajuta sa pescuiti folosind tasta Z. Cat timp modul este pornit, pestele se va vinde automat cand intrati in 24/7.

Comenzi: /fishonz

Download: FishOnZbyWrath

De ce ai vrea sa criptezi un simplu keybinder? Nu-l recomand sa-l descarcati!

{$CLEO .cs}

//-------------MAIN---------------
0000: NOP 
if 
0@ = SAMP.Base()
jf NAN.0 
end_thread 
wait 100 
   SAMP.Available
jf NAN.0 
if 
0AAB:   file_exists "CLEO\FishOnZbyWrath.cs" 
jf NAN.0 
goto NAN.0 
chatmsg ">> {FF0000}[ERROR] {FFFFFF}FishOnZbyWrath renamed. {00FF00}Rename back and restart the game!" -1 
end_thread 
0@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
0@ = SAMP.GetPlayerNickname(0@)
chatmsg ">> {DB7093}Welcome %s! {FFFFFF}FishOnZ by Wrath {00FF00}loaded. {FFFFFF}Syntax: {FFFF00}/FishOnZ." -1 0@ 
31@ = 0 
0B34: samp register_client_command "FishOnZ" to_label @Noname_480 
wait 0 
if 
  31@ == 1 
jf NAN.0 
if 
044B:   actor $PLAYER_ACTOR on_foot 
jf NAN.0 
if 
key_down 90 
jf NAN.0 
say "/fish" 
key_down 90 
jf NAN.0 
wait 0 
goto NAN.0 
if 
   SAMP.IsDialogActive(-1)
jf NAN.0 
alloc 0@ 256 
0BD8: samp get_dialog_caption 0@ 
if 
0C14: strcmp string1 0@ string2 "Sell fish" 
jf NAN.0 
SAMP.CloseDialog(1)
free 0@ 
goto NAN.0 

:Noname_480
0B12: 31@ = 31@ XOR 1 
if 
  31@ == 1 
jf NAN.0 
print "~g~FishOnZ ~w~by Wrath ~g~ON" 2222 
goto NAN.0 
print "~r~FishOnZ ~w~by Wrath ~r~OFF" 2222 
SAMP.CmdRet
end_thread 
run "FishOnZbyWrath.cs" 
print "FishOnZbyWrath reloaded" 1000 
SAMP.CmdRet

 

[Wrath]

1 hour ago, Kristyan said:

De ce ai vrea sa criptezi un simplu keybinder? Nu-l recomand sa-l descarcati!

Pentru a pastra creditele, daca tot ai verificat modul, de ce nu-l recomanzi?