Jump to content

[CLEO] Sany Builder Mod check


AKE7L

Recommended Posts

so can anyone please help me making this mod more perfectly, and i wonder why function samp.iscommandtyped requires 2 params i mean when i see other mods i only see they have one (btw im using newopcodes to sampfucncs)
here is the mod:
 

{$CLEO .cs}
{$USE ini}

0000: NOP

thread "SFSI Helper by AdeM"

:SFSI_Helper
wait 0
if
  SAMP.Available
jf @SFSI_Helper
//------------------------------General------------------------------//
0B34: samp register_client_command "sfsi" to_label @cmd_SFSI
0B34: samp register_client_command "m" to_label @cmd_members
0B34: samp register_client_command "setlang" to_label @SFSI_Language
0B34: samp register_client_command "ccc" to_label @cmd_ClearChat
0B34: samp register_client_command "ffvr" to_label @cmd_FVR
0B34: samp register_client_command "sfvr" to_label @cmd_SFVR
0B34: samp register_client_command "sxwas" to_label @cmd_SXcheck
0B34: samp register_client_command "giveme" to_label @cmd_giveme
//------------------------------Weapons------------------------------//
0B34: samp register_client_command "wh" to_label @cmd_weapon
0B34: samp register_client_command "sw" to_label @cmd_weapon_start
0B34: samp register_client_command "w1" to_label @cmd_weapon_one
0B34: samp register_client_command "w2" to_label @cmd_weapon_two
0B34: samp register_client_command "w3" to_label @cmd_weapon_three
0B34: samp register_client_command "gw" to_label @cmd_weapon_passed
//------------------------------Materials------------------------------//
0B34: samp register_client_command "mh" to_label @cmd_Materials
0B34: samp register_client_command "sm" to_label @cmd_Materials_start
0B34: samp register_client_command "m1" to_label @cmd_Materials_one
0B34: samp register_client_command "m2" to_label @cmd_Materials_two
0B34: samp register_client_command "m3" to_label @cmd_Materials_Three
0B34: samp register_client_command "m4" to_label @cmd_Materials_Four
0B34: samp register_client_command "gm" to_label @cmd_Materials_passed
//------------------------------Fishing------------------------------//
0B34: samp register_client_command "fh" to_label @cmd_Fishing
0B34: samp register_client_command "sf" to_label @cmd_Fishing_start
0B34: samp register_client_command "f1" to_label @cmd_Fishing_one
0B34: samp register_client_command "f2" to_label @cmd_Fishing_two
0B34: samp register_client_command "f3" to_label @cmd_Fishing_three
0B34: samp register_client_command "f4" to_label @cmd_Fishing_four
0B34: samp register_client_command "gf" to_label @cmd_Fishing_passed
//------------------------------Sailing------------------------------//
0B34: samp register_client_command "sh" to_label @cmd_Sailing
0B34: samp register_client_command "ss" to_label @cmd_Sailing_start
0B34: samp register_client_command "sfs1" to_label @cmd_Sailing_SF
0B34: samp register_client_command "sfs2" to_label @cmd_Sailing_SF_back
0B34: samp register_client_command "lvs1" to_label @cmd_Sailing_LV
0B34: samp register_client_command "lvs2" to_label @cmd_Sailing_LV_back
0B34: samp register_client_command "lss1" to_label @cmd_Sailing_LS
0B34: samp register_client_command "lss2" to_label @cmd_Sailing_LS_back
0B34: samp register_client_command "gs" to_label @cmd_Sailing_passed
//------------------------------Flying------------------------------//
0B34: samp register_client_command "flyh" to_label @cmd_Flying
0B34: samp register_client_command "sfl" to_label @cmd_Flying_start
0B34: samp register_client_command "lsfl1" to_label @cmd_Flying_LS_one
0B34: samp register_client_command "lsfl2" to_label @cmd_Flying_LS_two
0B34: samp register_client_command "lsfl3" to_label @cmd_Flying_LS_back
0B34: samp register_client_command "lvfl1" to_label @cmd_Flying_LV_one
0B34: samp register_client_command "lvfl2" to_label @cmd_Flying_LV_two
0B34: samp register_client_command "lvfl3" to_label @cmd_Flying_LV_back
0B34: samp register_client_command "sffl1" to_label @cmd_Flying_SF_one
0B34: samp register_client_command "sffl2" to_label @cmd_Flying_SF_two
0B34: samp register_client_command "sffl3" to_label @cmd_Flying_SF_back
0B34: samp register_client_command "gfl" to_label @cmd_Flying_passed
//----------------------------licenses 50+----------------------------//
0B34: samp register_client_command "50lic" to_label @cmd_50lic
0B34: samp register_client_command "withme" to_label @cmd_withme
//------------------------------Others------------------------------//
0B34: samp register_client_command "sl" to_label @cmd_stoplesson
0B34: samp register_client_command "short" to_label @cmd_shortcuts
0B34: samp register_client_command "rr" to_label @cmd_rr
0B34: samp register_client_command "rev" to_label @cmd_rev
0B34: samp register_client_command "cf" to_label @cmd_cf
0B34: samp register_client_command "acc" to_label @cmd_acc
0B34: samp register_client_command "lpb" to_label @cmd_lpaintball
0B34: samp register_client_command "sj" to_label @cmd_switchjob
0B34: samp register_client_command "ha" to_label @cmd_heal
0B34: samp register_client_command "sc" to_label @cmd_spawnchange
0B34: samp register_client_command "rl" to_label @cmd_requestlicense
0B34: samp register_client_command "abouts" to_label @cmd_about
0B34: samp register_client_command "about" to_label @cmd_about

chatmsg "{10FF78} SFSI Helper {FFFFFF}By {FFAEFF}Adem{FFFFFF}, [{10FF78}/SFSI{FFFFFF}] to start" color -1

const
_WHITE = 0xFFFFFF
_RED = 0xFF0000
_GREEN = 0x10FF00
_SFSI = 0x10FF78
_CLIENT = 0xFFAEFF
end


WHILE TRUE
wait 0

    if 29@ == 1
    then    
        0AB1: call_scm_func @GiveSailingLic 0  
        wait 2255
        0AB1: call_scm_func @GiveFlyingLic 0  
        wait 2255
        0AB1: call_scm_func @GiveFishingLic 0  
        wait 2255
        0AB1: call_scm_func @GiveMaterialsLic 0  
        wait 2255
        0AB1: call_scm_func @GiveWeaponLic 0      
        29@ = 0
    end
    
END
WHILE TRUE
wait 0

    if
        3@ == 1 //If is enabled
    then
        0AF9: samp say_msg "/f FVR in 10 seconds"
        0AF8: "{FFFFFF}Use {FF0000}[/sfvr] {FFFFFF}To stop /fvr automatic." -1
        wait 10000
  		if 3@ == 1 //If is still enabled
  		then
        	0AF9: samp say_msg "/fvr"
  			3@ = 0 //Disabled
  		end
    end
    
END

WHILE TRUE
wait 0
                 
if                                     
0B3C:  samp is_dialog_responded id 1000 button 2@ list_item 3@ input_text 0
then

    if and
    2@ == 1
    3@ == 2
    then  
        0AF1: write_int 1 to "CLEO\SFSIHelper.ini" section "Select" key "Language"    
        chatmsg "{00FF78}[SFSI Helper] {FFFFFF}The {FF0000}English {FFFFFF}language has been set !" -1
    end
    
    if and 
    2@ == 1
    3@ == 3
    then
        0AF1: write_int 2 to "CLEO\SFSIHelper.ini" section "Select" key "Language"   
        chatmsg "{00FF78}[SFSI Helper] {FFFFFF}The {FF0000}Romanian {FFFFFF}language has been set !" -1
    end
end 


END

:SFSI_Language

0AC6: 15@ = label @SFSI_Language_dialog offset
0B3B: samp show_dialog id 1000 caption "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:" text 15@ button_1 "Ok" button_2 "Cancel" style 2
SAMP.CmdRet
    
  
    
:SFSI_Language_dialog
HEX
"{FF0000}C{FFFFFF}hoose Language: " A
" " A
"{FF0000}-> {FFFFFF}EngLish " A
"{FF0000}-> {FFFFFF}Romanian " 0   
" " A
END

:cmd_SFSI
0AC6: 17@ = label @SFSI_Command_List offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 17@, "Close", "", 0)
SAMP.CmdRet

:SFSI_Command_List
HEX
"{66FF33} :>-------------------------------------------------------------------------------------<: " A
" {10FF78}SFSI Commands:{66FF33} " A
" " A
" {FF0000} General Commands: " A
" {FFFFFF}[{10FF78}/setlang{FFFFFF}] - to set the language" A
" {FFFFFF}[{10FF78}/ccc{FFFFFF}] - to Clear your chat" A
" {FFFFFF}[{10FF78}/sxwas{FFFFFF}] - Ask in /sx if anyone has your client" A
" {FFFFFF}[{10FF78}/ffvr{FFFFFF}] - to /fvr your faction vehicles (rank 5+)" A
" {FFFFFF}[{10FF78}/sfvr{FFFFFF}] - to stop /fvr (rank 5+)" A
" {FF0000} SFSI Commands: " A
" {FFFFFF}[{10FF78}/wh{FFFFFF}] - To show all the commands for Weapon License" A
" {FFFFFF}[{10FF78}/mh{FFFFFF}] - To show all the commands for Materials License" A
" {FFFFFF}[{10FF78}/fh{FFFFFF}] - To show all the commands for Fishing License" A
" {FFFFFF}[{10FF78}/sh{FFFFFF}] - To show all the commands for Sailing License" A
" {FFFFFF}[{10FF78}/flyh{FFFFFF}] - To show all the commands for Flying License" A
" {FFFFFF}[{10FF78}/50lic{FFFFFF}] - To show all the commands for level 50+ Clients" A
" {FF0000} Other Commands: " A
" {FFFFFF}[{10FF78}/short{FFFFFF}] - To see all shortcuts commands" A
" {FFFFFF}[{10FF78}/about{FFFFFF}] [{10FF78}/abouts{FFFFFF}] - To see all information about the mod" A
" " A 
"{66FF33} Credits to {10FF78}Urkelbama" A                                                                        
"{66FF33} :>-------------------------------------------------------------------------------------<: " 0
END

:cmd_weapon
0AC6: 18@ = label @SFSI_Command_weapon offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 18@, "Close", "", 0)
SAMP.CmdRet


:SFSI_Command_weapon
HEX
"{66FF33} :>---------------------------------------------------------------------<: " A
" SFSI Weapon License Commands: " A
" " A
" {66FF33}[/sw] {FFFFFF}- Announce on /f + /startlesson" A
" {66FF33}[/w<1-3>] {FFFFFF}- Asks Weapon License test questions" A
" {66FF33}if he passes:" A
" {66FF33}[/gw <id>] {FFFFFF}- to give Weapon license" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" {66FF33}if he Fails:" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" " A                                     
"{66FF33} :>---------------------------------------------------------------------<: " 0
END

:cmd_Materials
0AC6: 19@ = label @SFSI_Command_Materials offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 19@, "Close", "", 0)
SAMP.CmdRet

:SFSI_Command_Materials
HEX
"{66FF33} :>---------------------------------------------------------------------<: " A
" SFSI Materials License Commands: " A
" " A
" {66FF33}[/sm] {FFFFFF}- Announce on /f + /startlesson" A
" {66FF33}[/m<1-4>] {FFFFFF}- Asks Materials License test questions" A
" {66FF33}if he passes:" A
" {66FF33}[/gm <id>] {FFFFFF}- to give Materials license" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" {66FF33}if he Fails:" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" " A                                     
"{66FF33} :>---------------------------------------------------------------------<: " 0
END

:cmd_Fishing
0AC6: 20@ = label @SFSI_Command_Fishing offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 20@, "Close", "", 0)
SAMP.CmdRet

:SFSI_Command_Fishing
HEX
"{66FF33} :>---------------------------------------------------------------------<: " A
" SFSI Fishing License Commands: " A
" " A
" {66FF33}[/sf] {FFFFFF}- Announce on /f + /startlesson" A
" {66FF33}[/f<1-4>] {FFFFFF}- to Ask Fishing License test questions" A
" {66FF33}if he passes:" A
" {66FF33}[/gf <id>] {FFFFFF}- to give Fishing license" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" {66FF33}if he Fails:" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" " A                                     
"{66FF33} :>---------------------------------------------------------------------<: " 0
END

:cmd_Sailing
0AC6: 21@ = label @SFSI_Command_Sailing offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 21@, "Close", "", 0)
SAMP.CmdRet

:SFSI_Command_Sailing
HEX
"{66FF33} :>---------------------------------------------------------------------<: " A
" SFSI Sailing License Commands: " A
" " A
" {66FF33}[/ss] {FFFFFF}- Announce on /f + /startlesson" A
" {66FF33}[/sfs<1-2> ] {FFFFFF}- to guide the client in SF" A
" {66FF33}[/lvs<1-2> ] {FFFFFF}- to guide the client in LV" A
" {66FF33}[/lss<1-2> ] {FFFFFF}- to guide the client in LS" A
" {66FF33}if he passes:" A
" {66FF33}[/gs <id>] {FFFFFF}- to give Sailing license" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" {66FF33}if he Fails:" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" " A                                     
"{66FF33} :>---------------------------------------------------------------------<: " 0
END

:cmd_Flying
0AC6: 22@ = label @SFSI_Command_Flying offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 22@, "Close", "", 0)
SAMP.CmdRet

:SFSI_Command_Flying
HEX
"{66FF33} :>---------------------------------------------------------------------<: " A
" SFSI Flying License Commands: " A
" " A
" {66FF33}[/sfl] {FFFFFF}- Announce on /f + /startlesson" A
" {66FF33}[/lsfl<1-3> ] {FFFFFF}- to guide the client in LS" A
" {66FF33}[/lvfl<1-3> ] {FFFFFF}- to guide the client in LV" A
" {66FF33}[/sffl<1-3> ] {FFFFFF}- to guide the client in SF" A
" {66FF33}if he passes:" A
" {66FF33}[/gfl <id>] {FFFFFF}- to give Flying license" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" {66FF33}if he Fails:" A
" {66FF33}[/sl] {FFFFFF}- to stoplesson" A
" " A                                     
"{66FF33} :>---------------------------------------------------------------------<: " 0
END

:cmd_shortcuts
0AC6: 22@ = label @SFSI_Command_shortcut offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 22@, "Close", "", 0)
SAMP.CmdRet


:SFSI_Command_shortcut
HEX
"{66FF33} :>---------------------------------------------------------------------<: " A
" {FF0000} Shortcuts Commands: " A
" {FFFFFF}[{10FF78}/m{FFFFFF}] - to show the list of Faction members" A
" {FFFFFF}[{10FF78}/sj{FFFFFF}] - to switch jobs" A
" {FFFFFF}[{10FF78}/rr{FFFFFF}] - to /repair & /refill your vehicle" A
" {FFFFFF}[{10FF78}/ha{FFFFFF}] - to /heal" A
" {FFFFFF}[{10FF78}/lpb{FFFFFF}] - to /leavepaintball" A
" {FFFFFF}[{10FF78}/sc{FFFFFF}] - to /spawnchange" A
" {FFFFFF}[{10FF78}/acc{FFFFFF}] - to /accept needlicense" A
" {FFFFFF}[{10FF78}/cf{FFFFFF}] - to /cancel find & /killcp" A
" {FFFFFF}[{10FF78}/rev{FFFFFF}] - to /requestevent" A
" {FFFFFF}[{10FF78}/rl{FFFFFF}] - to /requestlicense" A
" " A                                     
"{66FF33} :>---------------------------------------------------------------------<: " 0
END

:cmd_50lic
0AC6: 22@ = label @SFSI_Command_50lic offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem] {FFFFFF}Commands:", 22@, "Close", "", 0)
SAMP.CmdRet

:SFSI_Command_50lic
HEX
"{66FF33} :>---------------------------------------------------------------------------------------------------------------<: " A
" {FF0000} Level 50+ Commands: " A
" " A 
" {FFFFFF}[{10FF78}/withme{FFFFFF}] - to make an announcement for level 50+" A
" {FFFFFF}[{10FF78}/withme ID 6{FFFFFF}] - announce with me for all licenses (lvl 50+) " A
" {FFFFFF}[{10FF78}/withme ID 1 2 3{FFFFFF}] - announce with me for  X,Y,Z licenses (lvl 50+)" A
" {FFFFFF} ID Licenses: Flying ({10FF78}1{FFFFFF}), Sailing ({10FF78}2{FFFFFF}), Fishing ({10FF78}3{FFFFFF}), Weapon ({10FF78}4{FFFFFF}), Materials ({10FF78}5{FFFFFF}), All ({10FF78}6{FFFFFF})" A
" " A 
" {FFFFFF}How to use: " A    
"   With this command you can announce on /f for clients with level 50+ for X,Y,Z/All licenses" A   
" For ex: Client Name (id) => Adem (500)" A 
" use /withme 500 6 to announce on /f:" A 
" --> /f Adem (500) is with me for All licenses (Level 50+" A
" use /withme 500 1 4 2 to announce on /f:" A      
" --> /f Adem (500) is with me for Flying Weapon Fishing licenses (Level 50+" A 
" Each License have A specific ID which all mention above, use {10FF78}/withme {FFFFFF}for more info" A                         
"{66FF33} :>---------------------------------------------------------------------------------------------------------------<: " 0
END

:cmd_about
0AC6: 22@ = label @mod_about offset
SAMP.ShowDialog(18384, "{66FF33}[SFSI Helper By Adem]{FFFFFF}:", 22@, "Close", "", 0)
SAMP.CmdRet

:mod_about
HEX
"{66FF33} :>---------------------------------------------------------------------<: " A
" " A
" {FF8C00}Version: {FFFFFF}1.1.0 " A
" {FF8C00}Made By: {10FF78}AdeM" A
" {FF8C00}about: {FFFFFF}this mod is created to Help SFSI members at their Faction" A
" Activity and make it faster and easierfor them " A
" {FF8C00}Credits to: {10FF78}Urkelbama {FFFFFF}for all the help & translation" A
" {FF8C00}Contact: {191970} Discord: Adem#0989 or ade_m " A
" " A
" {10FF78}SF School Instructors {FF0000}4 Ever" A
" " A
"{66FF33} :>---------------------------------------------------------------------<: " 0
END

//----------------------- level 50+
:cmd_withme
SAMP.IsCommandTyped(0@, 1@)
0AD4: 10@ = scan_string 0@ format "%d %d %d %d %d %d" 1@ 2@ 3@ 4@ 5@ 6@
if 10@ >= 2
then
        if 10@ == 2  
        then
            if 2@ <> 6
            then
                7@ = SAMP.GetPlayerNickname(1@)
                0AC8: 8@ = allocate_memory_size 260
                
                if 2@ == 1
                then 0AD3: 8@ = format "Flying" 
                end
                if 2@ == 2
                then 0AD3: 8@ = format "Sailing" 
                end
                if 2@ == 3
                then 0AD3: 8@ = format "Fishing" 
                end
                if 2@ == 4
                then 0AD3: 8@ = format "Weapon" 
                end
                if 2@ == 5
                then 0AD3: 8@ = format "Materials" 
                end
                
                say "/f %s (%d) is with me for %s license (Level 50+)." 7@ 1@ 8@              
            else
                7@ = SAMP.GetPlayerNickname(1@)
                say "/f %s (%d) is with me for All licenses (Level 50+)." 7@ 1@
                0AC9: free_allocated_memory 8@                
            end
        end
        
        if 10@ == 3
        then
            7@ = SAMP.GetPlayerNickname(1@)
            0AC8: 8@ = allocate_memory_size 260
            
            if 2@ == 1
            then 0AD3: 8@ = format "Flying" 
            end
            if 2@ == 2
            then 0AD3: 8@ = format "Sailing" 
            end
            if 2@ == 3
            then 0AD3: 8@ = format "Fishing" 
            end
            if 2@ == 4
            then 0AD3: 8@ = format "Weapon" 
            end
            if 2@ == 5
            then 0AD3: 8@ = format "Materials" 
            end
            
            if 3@ == 1
            then 0AD3: 8@ = format "%s, Flying" 8@
            end
            if 3@ == 2
            then 0AD3: 8@ = format "%s, Sailing" 8@
            end
            if 3@ == 3
            then 0AD3: 8@ = format "%s, Fishing" 8@
            end
            if 3@ == 4
            then 0AD3: 8@ = format "%s, Weapon" 8@
            end
            if 3@ == 5
            then 0AD3: 8@ = format "%s, Materials" 8@ 
            end
            
            say "/f %s (%d) is with me  for %s licenses (Level 50+)" 7@ 1@ 8@
            0AC9: free_allocated_memory 8@
        end
        
        if 10@ == 4
        then
            7@ = SAMP.GetPlayerNickname(1@)
            0AC8: 8@ = allocate_memory_size 260
            
            if 2@ == 1
            then 0AD3: 8@ = format "Flying" 
            end
            if 2@ == 2
            then 0AD3: 8@ = format "Sailing" 
            end
            if 2@ == 3
            then 0AD3: 8@ = format "Fishing" 
            end
            if 2@ == 4
            then 0AD3: 8@ = format "Weapon" 
            end
            if 2@ == 5     
            then 0AD3: 8@ = format "Materials" 
            end
            
            if 3@ == 1
            then 0AD3: 8@ = format "%s, Flying" 8@
            end
            if 3@ == 2
            then 0AD3: 8@ = format "%s, Sailing" 8@
            end
            if 3@ == 3
            then 0AD3: 8@ = format "%s, Fishing" 8@
            end
            if 3@ == 4
            then 0AD3: 8@ = format "%s, Weapon" 8@
            end
            if 3@ == 5
            then 0AD3: 8@ = format "%s, Materials" 8@ 
            end
            
            if 4@ == 1
            then 0AD3: 8@ = format "%s, Flying" 8@
            end
            if 4@ == 2
            then 0AD3: 8@ = format "%s, Sailing" 8@
            end
            if 4@ == 3
            then 0AD3: 8@ = format "%s, Fishing" 8@
            end
            if 4@ == 4
            then 0AD3: 8@ = format "%s, Weapon" 8@
            end
            if 4@ == 5
            then 0AD3: 8@ = format "%s, Materials" 8@ 
            end
            
            say "/f %s (%d) is with me  for %s licenses (Level 50+)" 7@ 1@ 8@
            0AC9: free_allocated_memory 8@
        end
        
        if 10@ == 5
        then
            7@ = SAMP.GetPlayerNickname(1@)
            0AC8: 8@ = allocate_memory_size 260
            
            if 2@ == 1
            then 0AD3: 8@ = format "Flying" 
            end
            if 2@ == 2
            then 0AD3: 8@ = format "Sailing" 
            end
            if 2@ == 3
            then 0AD3: 8@ = format "Fishing" 
            end
            if 2@ == 4
            then 0AD3: 8@ = format "Weapon" 
            end
            if 2@ == 5     
            then 0AD3: 8@ = format "Materials" 
            end
            
            if 3@ == 1
            then 0AD3: 8@ = format "%s, Flying" 8@
            end
            if 3@ == 2
            then 0AD3: 8@ = format "%s, Sailing" 8@
            end
            if 3@ == 3
            then 0AD3: 8@ = format "%s, Fishing" 8@
            end
            if 3@ == 4
            then 0AD3: 8@ = format "%s, Weapon" 8@
            end
            if 3@ == 5
            then 0AD3: 8@ = format "%s, Materials" 8@ 
            end
            
            if 4@ == 1
            then 0AD3: 8@ = format "%s, Flying" 8@
            end
            if 4@ == 2
            then 0AD3: 8@ = format "%s, Sailing" 8@
            end
            if 4@ == 3
            then 0AD3: 8@ = format "%s, Fishing" 8@
            end
            if 4@ == 4
            then 0AD3: 8@ = format "%s, Weapon" 8@
            end
            if 4@ == 5
            then 0AD3: 8@ = format "%s, Materials" 8@ 
            end
            
            if 5@ == 1
            then 0AD3: 8@ = format "%s, Flying" 8@
            end
            if 5@ == 2
            then 0AD3: 8@ = format "%s, Sailing" 8@
            end
            if 5@ == 3
            then 0AD3: 8@ = format "%s, Fishing" 8@
            end
            if 5@ == 4
            then 0AD3: 8@ = format "%s, Weapon" 8@
            end
            if 5@ == 5
            then 0AD3: 8@ = format "%s, Materials" 8@ 
            end
            say "/f %s (%d) is with me  for %s licenses (Level 50+)" 7@ 1@ 8@
            0AC9: free_allocated_memory 8@
        end
 
else    
    chatmsg "[{10FF78}SFSI{FFffff}]: Usage: /withme [Player ID] [License ID 1] ... [License ID n]" -1
    chatmsg "[{10FF78}SFSI{FFFFFF}]: Example: /withme 523 2 3 1 ( meaning with me for sailing, fishing and flying)" -1 
    chatmsg "[{10FF78}SFSI{ffffff}]: ID Licenses: Flying (1), Sailing (2), Fishing (3), Weapon (4), Materials (5), All (6)" -1 
end // end if 1
samp.CmdRet()
    
    



//----------------------- Weapons

:cmd_weapon_start    
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_weapon_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/f %s (%d) is with me for Weapon license test." 1@ 21@
say "/startlesson %d weapon" 21@ 
samp.CmdRet()

:error_weapon_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/sw <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_weapon_one

0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"

if 8@ == 1
then
    say "/cw 1.Give me the name of 5 weapons in GTA San Andreas" 
end

if 8@ == 2
then 
    say "/cw 1.Spune mi 5 arme din GTA San Andreas" 
end
samp.CmdRet()


:cmd_weapon_two

0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"

if 8@ == 1
then
    say "/cw 2.What you cannot do in safezones?" 
end

if 8@ == 2
then 
    say "/cw 2.Ce iti este interzis sa faci intr-un SafeZone ?" 
end
samp.CmdRet()

:cmd_weapon_three
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"

if 8@ == 1
then
    say "/cw 3.Give me the name of 5 safe-zones." 
end

if 8@ == 2
then 
    say "/cw 3.Spune mi 5 safezone" 
end
samp.CmdRet()

:cmd_weapon_passed
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_weaponp_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/givelicense %d weapon" 21@ 
samp.CmdRet()

:error_weaponp_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/gw <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

//-----------------------------Materials

:cmd_Materials_start
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_materials_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/f %s (%d) is with me for Materials license test." 1@ 21@
say "/startlesson %d materials" 21@ 
samp.CmdRet()

:error_materials_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/sm <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_Materials_one
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw 1.Which command do you use to get materials from material deposit?" 
end

if 8@ == 2
then 
    say "/cw 1.Cu ce comanda Cumperi Materiale ?" 
end
samp.CmdRet()
samp.CmdRet()

:cmd_Materials_two
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw 2.Which command do you use to sell weapons?" 
end

if 8@ == 2
then 
    say "/cw 2.Cu ce comanda Vinzi o Arma ?" 
end
samp.CmdRet()

:cmd_Materials_Three
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw 3.Where you are cannot sell your weapons?" 
end

if 8@ == 2
then 
    say "/cw 3.Unde nu ai voie sa Vinzi Arme ? " 
end
samp.CmdRet()

:cmd_Materials_Four
if 8@ == 1
then
    say "/cw 4.Tell me 5 safezones" 
end

if 8@ == 2
then 
    say "/cw 4.Spune mi 5 safezone" 
end
samp.CmdRet(

:cmd_Materials_passed
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Matsp_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/givelicense %d materials" 21@ 
samp.CmdRet()

:error_Matsp_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/gm <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

//--------------------------Fishing

:cmd_Fishing_start
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Fishing_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/f %s (%d) is with me for Fishing license test." 1@ 21@
say "/startlesson %d Fishing" 21@ 
samp.CmdRet()

:error_Fishing_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/sf <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_Fishing_one
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw 1.What is the command to start fishing?" 
end

if 8@ == 2
then 
    say "/cw 1.Cu ce comanda pescuiesti?" 
end
samp.CmdRet()

:cmd_Fishing_two
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw 2.Where can you do the fishing job?" 
end

if 8@ == 2
then 
    say "/cw 2.Unde pescuiesti?" 
end
samp.CmdRet()

:cmd_Fishing_three
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw 3.Where you can sell the fishes you cought?" 
end

if 8@ == 2
then 
    say "/cw 3.Unde vinzi pestele?" 
end
samp.CmdRet()

:cmd_Fishing_four
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw 4.What do you get if you do fishing without fishing license?" 
end

if 8@ == 2
then 
    say "/cw 4.Ce primesti daca vei pescui fara licenta de fishing?" 
end
samp.CmdRet()

:cmd_Fishing_passed
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Fishingp_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/givelicense %d fishing" 21@ 
samp.CmdRet()

:error_Fishingp_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/gf <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

//---------------------------------------Sailing

:cmd_Sailing_start
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Sailing_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/f %s (%d) is with me for Sailing license test." 1@ 21@
say "/startlesson %d sailing" 21@ 
samp.CmdRet()

:error_Sailing_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/ss <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_Sailing_SF
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "Go to Bayside Docks." 
    say "If the boat's HP goes below 950.0 you will fail. You can verify this on [/dl]. "
end

if 8@ == 2
then 
    say "Du-ma pana la Bayside Docks." 
    say "Daca HP-ul barcii scade sub 950.0 esti picat. Acesta poti verifca cu [/dl]. "
end
samp.CmdRet()

:cmd_Sailing_SF_back
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "Okay, let’s go back." 
end

if 8@ == 2
then 
    say "Bun. Sa ne intoarcem." 
end
samp.CmdRet()

:cmd_Sailing_LV
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "Go to Easter Bay Airport." 
    say "If the boat's HP goes below 950.0 you will fail. You can verify this on [/dl]. "
end

if 8@ == 2
then 
    say "Du-ma pana la Easter Bay Airport." 
    say "Daca HP-ul barcii scade sub 950.0 esti picat. Acesta poti verifca cu [/dl]. "
end
samp.CmdRet()

:cmd_Sailing_LV_back
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "Okay, let’s go back." 
end

if 8@ == 2
then 
    say "Bun. Sa ne intoarcem." 
end
samp.CmdRet()

:cmd_Sailing_LS
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "Go to Santa Maria Beach." 
    say "If the boat's HP goes below 950.0 you will fail. You can verify this on [/dl]. "
end

if 8@ == 2
then 
    say "Du-ma pana la Santa Maria Beach. " 
    say "Daca HP-ul barcii scade sub 950.0 esti picat. Acesta poti verifca cu [/dl]. "
end
samp.CmdRet()

:cmd_Sailing_LS_back
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "Okay, let’s go back." 
end

if 8@ == 2
then 
    say "Bun. Sa ne intoarcem." 
end
samp.CmdRet()

:cmd_Sailing_passed
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Sailingp_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/givelicense %d sailing" 21@ 
samp.CmdRet()

:error_Sailingp_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/gs <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

//---------------------------------------Flying

:cmd_Flying_start
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Flying_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/f %s (%d) is with me for Flying license test." 1@ 21@
say "/startlesson %d flying" 21@ 
samp.CmdRet()

:error_Flying_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/sfl <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_Flying_SF_one
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw Fly to SF/LV/LS airport."
    say "/cw To start the engine use /engine. " 
end

if 8@ == 2
then 
    say "/cw Zboara catre aeroportul SF/LV/LS."
    say "/cw Ca sa pornesti motorul trebuie sa folosesti comanda /engine. " 
end         
samp.CmdRet()

:cmd_Flying_SF_two
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw If helicopter's HP goes under 950.0 you will fail the test. "
    say "/cw You can verify the HP by typing [/dl]."
end

if 8@ == 2
then 
    say "/cw Daca HP-ul elicopterului scade sub 950.0 esti picat."
    say "/cw Acesta poti verifica pe [/dl]."
end         
samp.CmdRet()


:cmd_Flying_SF_back
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw Ok, now land and go back to SFSI HQ" 
end

if 8@ == 2
then 
    say "/cw Ok, aterizeaza si intoarce-te inapoi la SFSI HQ ." 
end
samp.CmdRet()

:cmd_Flying_LV_one
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw Fly to SF/LV/LS airport."
    say "/cw To start the engine use /engine. " 
end

if 8@ == 2
then 
    say "/cw Zboara catre aeroportul SF/LV/LS."
    say "/cw Ca sa pornesti motorul trebuie sa folosesti comanda /engine. " 
end   
samp.CmdRet()

:cmd_Flying_LV_two
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw If helicopter's HP goes under 950.0 you will fail the test. "
    say "/cw You can verify the HP by typing [/dl]."
end

if 8@ == 2
then 
    say "/cw Daca HP-ul elicopterului scade sub 950.0 esti picat."
    say "/cw Acesta poti verifica pe [/dl]."
end   
samp.CmdRet()

:cmd_Flying_LV_back
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw Ok, now land and go back to LV Airport." 
end

if 8@ == 2
then 
    say "/cw Ok, aterizeaza si intoarce-te inapoi la Airport LV ." 
end
samp.CmdRet()

:cmd_Flying_LS_one
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw Fly to SF/LV airport."
    say "/cw To start the engine use /engine. " 
end

if 8@ == 2
then 
    say "/cw Zboara catre aeroportul SF/LV."
    say "/cw Ca sa pornesti motorul trebuie sa folosesti comanda /engine. " 
end           
samp.CmdRet()

:cmd_Flying_LS_two
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw If helicopter's HP goes under 950.0 you will fail the test. "
    say "/cw You can verify the HP by typing [/dl]."
end

if 8@ == 2
then 
    say "/cw Daca HP-ul elicopterului scade sub 950.0 esti picat."
    say "/cw Acesta poti verifica pe [/dl]."
end              
samp.CmdRet()

:cmd_Flying_LS_back
0AF0: 8@ = get_int_from_ini_file "cleo\SFSIHelper.ini" section "Select" key "Language"
if 8@ == 1
then
    say "/cw Ok, now land and go back to LS Airport." 
end

if 8@ == 2
then 
    say "/cw Ok, aterizeaza si intoarce-te inapoi la Airport LS ." 
end
samp.CmdRet()

:cmd_Flying_passed
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Flyingp_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/givelicense %d flying" 21@ 
samp.CmdRet()

:error_Flyingp_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/gfl <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

//--------------------------------------

:cmd_members
wait 0   
samp.IsCommandTyped(1@, 2@)
say "/members"
samp.CmdRet()

:cmd_stoplesson
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_Stoplesson
1@ = SAMP.GetPlayerNickname(21@)         
say "/stoplesson %d" 21@ 
samp.CmdRet()

:error_Stoplesson
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/sl <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_rr
wait 0   
samp.IsCommandTyped(1@, 2@)
say "/repair"
say "/refill"
samp.CmdRet()

:cmd_rev
wait 0   
samp.IsCommandTyped(1@, 2@)
say "/requestevent"
samp.CmdRet()

:cmd_cf
wait 0   
samp.IsCommandTyped(1@, 2@)
say "/cancel find"
say "/killcp"
samp.CmdRet()

:cmd_acc
   SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_acc_noid       
say "/accept needlicense %d" 21@
samp.CmdRet()

:error_acc_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/acc <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_lpaintball  
samp.IsCommandTyped(1@, 2@)
say "/leavepaintball"
samp.CmdRet()

:cmd_switchjob
samp.IsCommandTyped(1@, 2@)
say "/switchjob"
samp.CmdRet()

:cmd_heal 
samp.IsCommandTyped(1@, 2@)
say "/heal"
samp.CmdRet()

:cmd_spawnchange 
samp.IsCommandTyped(1@, 2@)
say "/spawnchange"
samp.CmdRet()

:cmd_ClearChat
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
chatmsg " " _SFSI
samp.CmdRet()

:cmd_FVR 
3@ = 1  
samp.CmdRet()

:cmd_SFVR
if 3@ == 1
  then
  	  3@ = 0
  	  chatmsg "You've stopped the automatic FVR." -1
      0AF9: samp say_msg "/f The FVR has been stopped."
  else
  	  chatmsg "There's no automatic FVR at the moment." -1
  end
samp.CmdRet()    

:cmd_SXcheck
SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_sxwas_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/sx Has anyone accepted %s (%d)?" 1@ 21@ 

samp.CmdRet()

:error_sxwas_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/sxwas <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()

:cmd_giveme
29@ = 1
samp.CmdRet()

:GiveSailingLic
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR

0AF9: samp say_msg "/givelicense %d sailing" 1@
0AF9: samp say_msg "/Accept license %d" 1@

0AB2:0AB2: ret 0

:GiveFlyingLic
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR

0AF9: samp say_msg "/givelicense %d flying" 1@
0AF9: samp say_msg "/Accept license %d" 1@

0AB2:0AB2: ret 0

:GiveFishingLic
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR

0AF9: samp say_msg "/givelicense %d fishing" 1@
0AF9: samp say_msg "/Accept license %d" 1@

0AB2:0AB2: ret 0

:GiveMaterialsLic
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR

0AF9: samp say_msg "/givelicense %d materials" 1@
0AF9: samp say_msg "/Accept license %d" 1@

0AB2:0AB2: ret 0

:GiveWeaponLic
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR

0AF9: samp say_msg "/givelicense %d weapon" 1@
0AF9: samp say_msg "/Accept license %d" 1@

0AB2:0AB2: ret 0

:cmd_requestlicense
SAMP.IsCommandTyped(20@, 1@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@                                    
else_jump @error_rl_noid
1@ = SAMP.GetPlayerNickname(21@)         
say "/requestlicenses %d" 21@ 
samp.CmdRet()

:error_rl_noid
chatmsg "{%x}[SFSI Helper] {%x}Error: Use {%x}/rl <id>" -1 _SFSI _WHITE _RED
samp.CmdRet()


well this mod i think its not perfect, if anyone help me with anything pls tell, i think i have problem with variables but tbh im not good at them if anyone can teach me anything about them i would love to

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • 1 User Currently Viewing
    0 members, 0 Anonymous, 1 Guest

×
×
  • Create New...

Important Information

By using GTAForums.com, you agree to our Terms of Use and Privacy Policy.