FANDOM


Created by Taz.

Using "RC_Core.rcm"
; Morgance Online 0.1
; Date/Time: 6:20:31 AM on 7/17/2012
; By Dan Seguin on TAZCO-PC
;display players skills with skill bars.
Function Main()
Player = Actor()
Target = COntextActor()
CloseInput% = 0
BarAmountOpened% = Split(ActorGlobal(Player, 4), 15, "|") ; is used to count how many skill bars are opened.

            ;Get xp to display
                    MeleeXp% = Split(ActorGlobal(Player, 2), 1, "|")
                    RangingXp% = Split(ActorGlobal(Player, 2), 2, "|")
                    MagicXp% = Split(ActorGlobal(Player, 2), 3, "|")
                    AlchemyXp% = Split(ActorGlobal(Player, 2), 4, "|")
                    CraftingXp% = Split(ActorGlobal(Player, 2), 5, "|")
                    HerbingXp% = Split(ActorGlobal(Player, 2), 6, "|")
                    MiningXp% = Split(ActorGlobal(Player, 2), 7, "|")
                    PrayerXp% = Split(ActorGlobal(Player, 2), 8, "|")
                    SmeltingXp% = Split(ActorGlobal(Player, 2), 9, "|")
                    WoodCuttingXp% = Split(ActorGlobal(Player, 2), 10, "|")
                    DodgeXp% = Split(ActorGlobal(Player, 2), 11, "|")
                    DexXp% = Split(ActorGlobal(Player, 2), 12, "|")
                    FishingXp% = Split(ActorGlobal(Player, 2), 13, "|")
                    TamingXP% = Split(ActorGlobal(Player, 2), 14, "|") ;TamingXP
                    LockPickingXp% = Split(ActorGlobal(Player, 2), 15, "|")
                    
                  CloseIfRunning% = Split(ActorGlobal(Player, 3), 13, "|")
                    
 If (CloseIfRunning = 1) ;set to close

         ;set dilimiter to tell tracker to keep the flash screen going for skills.
            HealthStat% = Split(ActorGlobal(Player, 3), 1, "|")
            ManaStat% = Split(ActorGlobal(Player, 3), 2, "|")
            StrStat% = Split(ActorGlobal(Player, 3), 3, "|")
            TouStat% = Split(ActorGlobal(Player, 3), 4, "|")
            DefStat% = Split(ActorGlobal(Player, 3), 5, "|")
            AgiStat% = Split(ActorGlobal(Player, 3), 6, "|")
            WizStat% = Split(ActorGlobal(Player, 3), 7, "|")
            StatsCurr% = Split(ActorGlobal(Player, 3), 8, "|") ;set stat to 6 on first starting
            StBak% = Split(ActorGlobal(Player, 3), 9, "|")    ;bakup for stats to keep track of what is spend for points
            RepCurr% = Split(ActorGlobal(Player, 3), 10, "|")     ;player rep
            Gamble% = Split(ActorGlobal(Player, 3), 11, "|")      ;used in gambling
            ClassStored% = Split(ActorGlobal(Player, 3), 12, "|") ;stores melee, ranging and magic
            InOutCombat% = 2 ;set too 2 and hope it closes progress barss
            ;extra delimters for things that mybe needed later.
            Extra1% = Split(ActorGlobal(Player, 3), 14, "|")
            Extra2% = Split(ActorGlobal(Player, 3), 15, "|") 
            Extra3% = Split(ActorGlobal(Player, 3), 16, "|")
            Extra4% = Split(ActorGlobal(Player, 3), 17, "|")
            Extra5% = Split(ActorGlobal(Player, 3), 18, "|")
            Extra6% = Split(ActorGlobal(Player, 3), 19, "|")
            Extra7% = Split(ActorGlobal(Player, 3), 20, "|")
            Extra8% = Split(ActorGlobal(Player, 3), 21, "|")
            
    
     OtherThingsToStore$ = HealthStat + "|" + ManaStat + "|" + StrStat + "|" + TouStat + "|" +  DefStat + "|" + AgiStat + "|" + WizStat + "|" + StatsCurr + "|" + StBak + "|" + RepCurr + "|" + Gamble + "|" + ClassStored + "|" + InOutCombat + "|" + Extra1 + "|" + Extra2 + "|" + Extra3 + "|" + Extra4 + "|" + Extra5 + "|" + Extra6 + "|" + Extra7 + "|" + Extra8


SetActorGlobal(Player, 3, OtherThingsToStore) ;set dilimiter to actor global 3
            
                     
     Return               
 Else   
 
 
 
     
          SaberToothXp% = Split(ActorGlobal(Player, 4), 1, "|")
        SaberCatXp% = Split(ActorGlobal(Player, 4), 2, "|")
        VampXp% = Split(ActorGlobal(Player, 4), 3, "|")
        VampFlyXp1% = Split(ActorGlobal(Player, 4), 4, "|")
        PandoraXp% = Split(ActorGlobal(Player, 4), 5, "|")
        PandoraRageBuld% = Split(ActorGlobal(Player, 4), 6, "|")
        SkillBar1$ = Split(ActorGlobal(Player, 4), 7, "|") ;will store the skill name so that multible bars are not made
        SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|")
        SkillBar3$ = Split(ActorGlobal(Player, 4), 9, "|") 
        SkillBar4$ = Split(ActorGlobal(Player, 4), 10, "|")
        Extra1% = Split(ActorGlobal(Player, 4), 11, "|") 
        Extra2% = Split(ActorGlobal(Player, 4), 12, "|") 
        Extra3% = Split(ActorGlobal(Player, 4), 13, "|") 
        Extra4% = Split(ActorGlobal(Player, 4), 14, "|") 
        Extra5% = Split(ActorGlobal(Player, 4), 15, "|") 
        Extra6% = Split(ActorGlobal(Player, 4), 16, "|")
        Extra7% = Split(ActorGlobal(Player, 4), 17, "|")
        Extra8% = Split(ActorGlobal(Player, 4), 18, "|")
        Extra9% = Split(ActorGlobal(Player, 4), 19, "|")



                
;Get levels for create bar
MeleeLvl% = Attribute(Player, "Melee")
MeleeMaxLvl% = MaxAttribute(Player, "Melee")

RangingLvl% = Attribute(Player, "Ranging")
RangingMaxLvl% = MaxAttribute(Player, "Ranging")

MagicLvl% = Attribute(Player, "Magic")
MagicMaxLvl% = MaxAttribute(Player, "Magic")

MiningLvl% = Attribute(Player, "Mining")
MiningMaxLvl% = MaxAttribute(Player, "Mining")

AlchemyLvl% = AbilityLevel(Player, "Alchemy")
AlchemyMaxLvl% = AbilityLevel(Player, "Alchemy")

CraftingLvl% = AbilityLevel(Player, "Crafting")
CraftingMaxLvl% = AbilityLevel(Player, "Crafting")

HerbingLvl% = Attribute(Player, "Herbing")
HerbingMaxLvl% = MaxAttribute(Player, "Herbing")

DexterityLvl% = Attribute(Player, "Dexterity")
DexterityMaxLvl% = MaxAttribute(Player, "Dexterity")

PrayerLvl% = Attribute(Player, "Prayer")
PrayerMaxLvl% = MaxAttribute(Player, "Prayer")

SmeltingLvl% = AbilityLevel(Player, "Smelting")
SmeltingMaxLvl% = AbilityLevel(Player, "Smelting")

WoodCuttingLvl% = Attribute(Player, "WoodCutting")
WoodCuttingMaxLvl% = MaxAttribute(Player, "WoodCutting")

DodgeLvl% = Attribute(Player, "Dodge")
DodgeMaxLvl% = MaxAttribute(Player, "Dodge")

FishingLvl% = Attribute(Player, "Fishing")
FishingmaxLvl% = MaxAttribute(Player, "Fishing")

TamingLvl% = Attribute(Player, "Taming")
TamingMaxLvl% = MaxAttribute(Player, "Taming")

LockPickLvl% = Attribute(Player, "LockPicking")
LockPickMaxLvl% = MaxAttribute(Player, "LockPicking")

;add the others 

   
         If (CloseInput = 0) ;so this will only run once

        ChatBox$ = OpenDialog(Player, "", "Skills List", 664)

        DialogOutPut(Player, ChatBox, "What would you like to do?", 255, 127, 0)

        PDial% = DialogInput(player, ChatBox, "Skill Info,Skill Bar Options,Remove Skill Bar,Close")
        
                 If (PDial = 3) ;Remove Skill Bar
                             
                           If Not (SkillBar1 = "")
                            DeleteProgressBar(Player, SkillBar2)
                            CloseDialog(Player, ChatBox)
                            SkillBar1$ = ""
                                               ;Store skill name from above 
                             SkillXPToStore33$ = SaberToothXp + "|" + SaberCatXp + "|" + VampXp + "|" + VampFlyXP + "|" +  PandoraXp + "|" + PandoraRageBuld + "|" + SkillBar1 + "|" + SkillBar2 + "|" + SkillBar3 + "|" + SkillBar4 + "|" + Extra1 + "|" + Extra2 + "|" + Extra3 + "|" + Extra4 + "|" + Extra5 + "|" + Extra6 + "|" + Extra7 + "|" + Extra8 + "|" + Extra9
                             SetActorGlobal(Player, 4, SkillXPToStore33) ;set dilimiter to actor global 2 with new melee xp amount
                                           
                            Return
                           Else
                            CloseDialog(Player, ChatBox)
                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                            DialogOutPut(Player, ChatBox, "You have no skill bar on screen.", 255, 245, 12)
                            DialogInput(Player, ChatBox, "Continue")
                            CloseDialog(Player, ChatBox)
                           EndIf                         
                EndIf
                
           If (PDial = 4) ;Close but allow script to finish
            CloseDialog(Player, ChatBox)
           EndIf


            If (PDial = 1) ;Give skill info
            OutPut(Player, "Need to add this in", 255, 245, 23)
             CloseDialog(Player, ChatBox)
             Return
            EndIf


            ;Skill options
;Melee = 1,Ranging = 2,Magic = 3,Minning = 4,Smelting = 5,Prayer = 6,Dexterity = 7,Dodge = 8,Crafting,Alchemy = 9,Herbing = 10
;,WoodCutting = 11,Fishing = 12
                     
                 If (PDial = 2)
                    CloseDialog(Player, ChatBox)
                    ChatBox$ = OpenDialog(Player, "", "Skills List", 664)

                    DialogOutPut(Player, ChatBox, "In here you can set skills to be displayed as on screen bars. This will allow for easyer tracking of XP. Pick a skill to turn it on or off.", 255, 127, 0)
                    NewOption% = DialogInput(Player, chatBox, "Continue")
                    
                    AddSkillBar% = 0 ;when this is changed to 1 then player wants to set a skill bar on screen otherwize reopen the list of skills
               Repeat     
                    CloseDialog(Player, ChatBox)
                    ChatBox$ = OpenDialog(Player, "", "Skills List", 664)                 
                    DialogOutPut(Player, Chatbox, "Pick a skill to see info and add a bar to track the skill.", 255, 12, 234)

                    SkillPick% = DialogInput(Player, ChatBox, "Melee,Ranging,Magic,Minning,Smelting,Prayer,Dexterity,Dodge,More")

                        If (SkillPick = 9) ;show more skills
                            CloseDialog(Player, ChatBox)
                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                            SkillPickMore% = DialogInput(Player, ChatBox, "Crafting,Alchemy,Herbing,WoodCutting,Fishing,Taming,Close,Back,More")
                        EndIf

                            CloseDialog(Player, ChatBox)
                            
                            
                                If (SkillPickMore = 7) ;close
                                    DoEvents(100)
                                    Return
                                EndIf
                            
                            
                            If (SkillPickMore = 9) ;;show even more skills
                             CloseDialog(Player, ChatBox)
                             ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                             SkillPickMore1% = DialogInput(Player, ChatBox, "LockPicking,Close,Back,More")
                                If (SkillPickMore = 2) ;close 3rd list of skills
                                    DoEvents(100)
                                    Return
                                EndIf
                                CloseDialog(Player, ChatBox)
                            EndIf
                            
                            ;name of stored skill
                                SkillBar1$ = Split(ActorGlobal(Player, 4), 7, "|") ;will store the skill name so that multible bars are not made
                                SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;will store the skill bar thats displayed on screen for number 1


                        If (SkillPick = 1) ;Melee display              
                            ChatBox$ = OpenDialog(Player, "", "MELEE", 664)
                            Nextmeleelvl% = MeleeLvl * 750
                            DialogOUtPut(Player, ChatBox, "Melee level: " + MeleeLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Melee current XP: " + MeleeXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Melee XP needed: " + Nextmeleelvl, 255, 127, 0)                            
                            
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Melee" 
                                    MeleeON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Melee") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your melee bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    MeleeON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with melee?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Melee" 
                                            MeleeON% = 1  
                                            ;SkillBar1$ = ;1 for first        
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf                   
                            

                     EndIf ;end melee skill pick
                     
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPick = 2) ;Raging display  
                     
                             ChatBox$ = OpenDialog(Player, "", "Ranging", 664)
                             NextRanginglvl% = RangingLvl * 750
                             DialogOUtPut(Player, ChatBox, "Ranging level: " + RangingLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Ranging current XP: " + RangingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Ranging XP needed: " + NextRanginglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Ranging" 
                                    RangingON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Ranging") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Ranging bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    RangingON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Ranging?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Ranging" 
                                            RangingON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end ranging skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------    

;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPick = 3) ;Magic display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Magic", 664)
                            NextMagiclvl% = MagicLvl * 750
                            DialogOUtPut(Player, ChatBox, "Magic level: " + MagicLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Magic current XP: " + MagicXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Magic XP needed: " + NextMagiclvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Magic" 
                                    MagicON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Magic") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Magic bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    MagicON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Magic?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Magic" 
                                            MagicON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Magic skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  

;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPick = 4) ;Mining display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Mining", 664)
                            NextMininglvl% = MiningLvl * 750  
                            DialogOUtPut(Player, ChatBox, "Mining level: " + MiningLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Mining current XP: " + MiningXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Mining XP needed: " + NextMininglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Mining" 
                                    MiningON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Mining") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Mining bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    MiningON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Mining?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Mining" 
                                            MiningON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Mining skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  

 ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPick = 5) ;Smelting display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Smelting", 664)
                            NextSmeltinglvl% = SmeltingLvl * 750
                            DialogOUtPut(Player, ChatBox, "Smelting level: " + SmeltingLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Smelting current XP: " + SmeltingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Smelting XP needed: " + NextSmeltinglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Smelting" 
                                    SmeltingON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Smelting") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Smelting bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    SmeltingON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Smelting?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Smelting" 
                                            SmeltingON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Smelting skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  

 ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPick = 6) ;Prayer display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Prayer", 664)
                            NextPrayerlvl% = PrayerLvl * 750
                            DialogOUtPut(Player, ChatBox, "Prayer level: " + PrayerLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Prayer current XP: " + PrayerXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Prayer XP needed: " + NextPrayerlvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Prayer" 
                                    PrayerON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Prayer") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Prayer bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    PrayerON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Prayer?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Prayer" 
                                            PrayerON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Prayer skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------- 

 ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPick = 7) ;Dexterity display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Dexterity", 664)
                            NextDexteritylvl% = DexterityLvl * 750
                            DialogOUtPut(Player, ChatBox, "Dexterity level: " + DexterityLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Dexterity current XP: " + DexterityXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Dexterity XP needed: " + NextDexteritylvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Dexterity" 
                                    DexterityON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Dexterity") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Dexterity bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    DexterityON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Dexterity?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Dexterity" 
                                            DexterityON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Dexterity skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   

  ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPick = 8) ;Dodge display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Dodge", 664)
                            NextDodgelvl% = DodgeLvl * 750
                            DialogOUtPut(Player, ChatBox, "Dodge level: " + DodgeLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Dodge current XP: " + DodgeXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Dodge XP needed: " + NextDodgelvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Dodge" 
                                    DodgeON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Dodge") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Dodge bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    DodgeON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Dodge?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Dodge" 
                                            DodgeON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Dodge skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  


  ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPickMore = 1) ;Crafting display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Crafting", 664)
                            NextCraftinglvl% = CraftingLvl * 750
                            DialogOUtPut(Player, ChatBox, "Crafting level: " + CraftingLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Crafting current XP: " + CraftingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Crafting XP needed: " + NextCraftinglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Crafting" 
                                    CraftingON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Crafting") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Crafting bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    CraftingON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Crafting?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Crafting" 
                                            CraftingON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Crafting skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  

  ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPickMore = 2) ;Alchemy display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Alchemy", 664)
                            NextAlchemylvl% = AlchemyLvl * 750
                            DialogOUtPut(Player, ChatBox, "Alchemy level: " + AlchemyLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Alchemy current XP: " + AlchemyXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Alchemy XP needed: " + NextAlchemylvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Alchemy" 
                                    AlchemyON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Alchemy") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Alchemy bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    AlchemyON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Alchemy?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Alchemy" 
                                            AlchemyON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Alchemy skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  

 ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPickMore = 3) ;Herbing display  
                     
                            ChatBox$ = OpenDialog(Player, "", "Herbing", 664)
                            NextHerbinglvl% = HerbingLvl * 750
                            DialogOUtPut(Player, ChatBox, "Herbing level: " + HerbingLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Herbing current XP: " + HerbingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Herbing XP needed: " + NextHerbinglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Herbing" 
                                    HerbingON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Herbing") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Herbing bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    HerbingON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Herbing?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Herbing" 
                                            HerbingON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Herbing skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  

  ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPickMore = 4) ;WoodCutting display  
                     
                            ChatBox$ = OpenDialog(Player, "", "WoodCutting", 664)
                            NextWoodCuttinglvl% = WoodCuttingLvl * 750
                            DialogOUtPut(Player, ChatBox, "WoodCutting level: " + WoodCuttingLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "WoodCutting current XP: " + WoodCuttingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "WoodCutting XP needed: " + NextWoodCuttinglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "WoodCutting" 
                                    WoodCuttingON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "WoodCutting") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your WoodCutting bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    WoodCuttingON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with WoodCutting?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "WoodCutting" 
                                            WoodCuttingON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end WoodCutting skill pick
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------  


  ;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------   
                      If (SkillPickMore = 5) ;Fishing display  
                                           
                            
                            ChatBox$ = OpenDialog(Player, "", "Fishing", 664)
                            NextFishinglvl% = FishingLvl * 750
                            DialogOUtPut(Player, ChatBox, "Fishing level: " + FishingLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Fishing current XP: " + FishingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Fishing XP needed: " + NextFishinglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Fishing" 
                                    FishingON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Fishing") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Fishing bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    FishingON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Fishing?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Fishing" 
                                            FishingON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     
                     
                      EndIf ;end Fishing skill pick
                      
 
     If (SkillPickMore = 6) ;Taming
    
                             ChatBox$ = OpenDialog(Player, "", "Taming", 664)
                            NextTaminglvl% = TamingLvl * 750
                            DialogOUtPut(Player, ChatBox, "Taming level: " + TamingLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Taming current XP: " + TamingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Taming XP needed: " + NextTaminglvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Taming" 
                                    TamingON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Taming") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Taming bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    TamingON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Taming?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Taming" 
                                            TamingON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     



    EndIf ;End Taming Check                  
         
 
 
          If  (SkillPickMore1 = 1) ;Lockpicking skill from the 3rd page..
                            ChatBox$ = OpenDialog(Player, "", "Lockpicking", 664)
                            NextLockPicklvl% = LockPickLvl * 750
                            DialogOUtPut(Player, ChatBox, "Lockpicking level: " + LockPickLvl, 255, 127, 0)    
                            DialogOUtPut(Player, ChatBox, "Lockpicking current XP: " + LockPickingXp, 255, 127, 0)
                            DialogOUtPut(Player, ChatBox, "Lockpicking XP needed: " + NextLockPicklvl, 255, 127, 0)
                            DialogOutPut(Player, ChatBox, "Would you like to display this skill on screen?", 255, 227, 70)
                            PlayPick% = DialogInput(Player, ChatBox, "Yes,Back")
                            
                            If (PlayPick = 1)
                                If (SkillBar1 = "")                                                 
                      
                                    SkillBar1$ = "Lockpicking" 
                                    LockPickON% = 1  

                                Else ;check bar that is made
                                
                                        If (SkillBar1 = "Lockpicking") ;tell player they have this bar alread y and remove if they want
                                           CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to remove your Lockpicking bar?", 200, 130, 30)
                                            POtion2% = DialogInput(player, ChatBox, "Yes,No")
                                                If (POtion2 = 1)                                                                          
                                                    SkillBar1$ = "" 
                                                    LockPickON% = 6                         
                                                    DeleteProgressBar(Player, SkillBar2)
                                                        
                                              EndIf
                                            SkipNext% = 1
                                        EndIf
                                           If Not (SkipNext = 1)
                                            CloseDialog(Player, ChatBox)
                                            ChatBox$ = OpenDialog(Player, "", "Skills List", 664)
                                            DialogOutPut(Player, ChatBox, "You have " + SkillBar1 + " as your displayed skill bar, would you like to replace it with it with Lockpicking?", 200, 130, 30)
                                            POtion% = DialogInput(player, ChatBox, "Yes,No")
                                          EndIf  
                                        If (POtion = 1)    
                                            SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|") ;get bar that is stored
                                            DeleteProgressBar(Player, SkillBar2)  ;remove stored bar                                 
                                            SkillBar1$ = "Lockpicking" 
                                            LockPickON% = 1                                            
                                        EndIf
                                
                                EndIf
                                AddSkillBar% = 1
                         EndIf 
                     

         EndIf  ;End lockpicking                   
                      
                  Until (AddSkillBar = 1)    
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------------------------    




                   ;Store skill name from above                   
                   
                    SkillXPToStore3$ = SaberToothXp + "|" + SaberCatXp + "|" + VampXp + "|" + VampFlyXP + "|" +  PandoraXp + "|" + PandoraRageBuld + "|" + SkillBar1 + "|" + SkillBar2 + "|" + SkillBar3 + "|" + SkillBar4 + "|" + Extra1 + "|" + Extra2 + "|" + Extra3 + "|" + Extra4 + "|" + Extra5 + "|" + Extra6 + "|" + Extra7 + "|" + Extra8 + "|" + Extra9
                     SetActorGlobal(Player, 4, SkillXPToStore3) ;set dilimiter to actor global 2 with new melee xp amount
                                   
                     
                     
                    CloseDialog(Player, ChatBox)
                DoEvents(300)
                EndIf


        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------

         SaberToothXp% = Split(ActorGlobal(Player, 4), 1, "|")
        SaberCatXp% = Split(ActorGlobal(Player, 4), 2, "|")
        VampXp% = Split(ActorGlobal(Player, 4), 3, "|")
        VampFlyXp1% = Split(ActorGlobal(Player, 4), 4, "|")
        PandoraXp% = Split(ActorGlobal(Player, 4), 5, "|")
        PandoraRageBuld% = Split(ActorGlobal(Player, 4), 6, "|")
        SkillBar1$ = Split(ActorGlobal(Player, 4), 7, "|") ;will store the skill name so that multible bars are not made
        SkillBar2$ = Split(ActorGlobal(Player, 4), 8, "|")
        SkillBar3$ = Split(ActorGlobal(Player, 4), 9, "|") 
        SkillBar4$ = Split(ActorGlobal(Player, 4), 10, "|")
        Extra1% = Split(ActorGlobal(Player, 4), 11, "|") 
        Extra2% = Split(ActorGlobal(Player, 4), 12, "|") 
        Extra3% = Split(ActorGlobal(Player, 4), 13, "|") 
        Extra4% = Split(ActorGlobal(Player, 4), 14, "|") 
        Extra5% = Split(ActorGlobal(Player, 4), 15, "|") 
        Extra6% = Split(ActorGlobal(Player, 4), 16, "|")
        Extra7% = Split(ActorGlobal(Player, 4), 17, "|")
        Extra8% = Split(ActorGlobal(Player, 4), 18, "|")
        Extra9% = Split(ActorGlobal(Player, 4), 19, "|")
    
         ;Display skill bars if player has them turned on.



    ;Were the skill bar should apper on screen
        BarPossX# = 0.05
        BarPossY# = 0.80

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------    
                If (MeleeON = 6) 
                    SkillBar2$ = ""
                EndIf
                        
                    If (MeleeON = 1)
                    MeleeLvl1% = Attribute(Player, "Melee")
                    Nextmeleelvl2% = MeleeLvl1 * 750
                    MeleeXp4% = Split(ActorGlobal(Player, 2), 1, "|")                                 
                                              
                                  MakMeleeBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, Nextmeleelvl2, MeleeXp4, "Melee Skill") 
                                  SkillBar2$ = MakMeleeBar                                           
                      
                    EndIf 


        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (RangingON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (RangingON = 1)
                        RangingLvl1% = Attribute(Player, "Ranging")
                        NextRanginglvl2% = RangingLvl1 * 750
                        RangingXp4% = Split(ActorGlobal(Player, 2), 2, "|")                                 
                                                  
                                      MakRangingBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextRanginglvl2, RangingXp4, "Ranging Skill") 
                                      SkillBar2$ = MakRangingBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
        
         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (MagicON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (MagicON = 1)
                        MagicLvl1% = Attribute(Player, "Magic")
                        NextMagiclvl2% = MagicLvl1 * 750
                        MagicXp4% = Split(ActorGlobal(Player, 2), 3, "|")                                 
                                                  
                                      MakMagicBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextMagiclvl2, MagicXp4, "Magic Skill") 
                                      SkillBar2$ = MakMagicBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
        
         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (MiningON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (MiningON = 1)
                        MiningLvl1% = Attribute(Player, "Mining")
                        NextMininglvl2% = MiningLvl1 * 750
                        MiningXp4% = Split(ActorGlobal(Player, 2), 7, "|")                                 
                                                  
                                      MakMiningBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextMininglvl2, MiningXp4, "Mining Skill") 
                                      SkillBar2$ = MakMiningBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
        
           ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (SmeltingON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (SmeltingON = 1)
                        SmeltingLvl1% = Attribute(Player, "Smelting")
                        NextSmeltinglvl2% = SmeltingLvl1 * 750
                        SmeltingXp4% = Split(ActorGlobal(Player, 2), 9, "|")                                 
                                                  
                                      MakSmeltingBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextSmeltinglvl2, SmeltingXp4, "Smelting Skill") 
                                      SkillBar2$ = MakSmeltingBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
        
          ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (PrayerON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (PrayerON = 1)
                        PrayerLvl1% = Attribute(Player, "Prayer")
                        NextPrayerlvl2% = PrayerLvl1 * 750
                        PrayerXp4% = Split(ActorGlobal(Player, 2), 8, "|")                                 
                                                  
                                      MakPrayerBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextPrayerlvl2, PrayerXp4, "Prayer Skill") 
                                      SkillBar2$ = MakPrayerBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
          
         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (DexterityON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (DexterityON = 1)
                        DexterityLvl1% = Attribute(Player, "Dexterity")
                        NextDexteritylvl2% = DexterityLvl1 * 750
                        DexterityXp4% = Split(ActorGlobal(Player, 2), 12, "|")                                 
                                                  
                                      MakDexterityBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextDexteritylvl2, DexterityXp4, "Dexterity Skill") 
                                      SkillBar2$ = MakDexterityBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
        
         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (DodgeON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (DodgeON = 1)
                        DodgeLvl1% = Attribute(Player, "Dodge")
                        NextDodgelvl2% = DodgeLvl1 * 750
                       DodgeXp4% = Split(ActorGlobal(Player, 2), 11, "|")                                 
                                                  
                                      MakDodgeBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextDodgelvl2, DodgeXp4, "Dodge Skill") 
                                      SkillBar2$ = MakDodgeBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
          
         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (CraftingON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (CraftingON = 1)
                        CraftingLvl1% = Attribute(Player, "Crafting")
                        NextCraftinglvl2% = CraftingLvl1 * 750
                        CraftingXp4% = Split(ActorGlobal(Player, 2), 5, "|")                                 
                                                  
                                      MakCraftingBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextCraftinglvl2, CraftingXp4, "Crafting Skill") 
                                      SkillBar2$ = MakCraftingBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
            
          ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (AlchemygON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (AlchemyON = 1)
                        AlchemyLvl1% = Attribute(Player, "Alchemy")
                        NextAlchemylvl2% = AlchemyLvl1 * 750
                        AlchemyXp4% = Split(ActorGlobal(Player, 2), 4, "|")                                 
                                                  
                                      MakAlchemyBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextAlchemylvl2, AlchemyXp4, "Alchemy Skill") 
                                      SkillBar2$ = MakAlchemyBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;--------------------------------------------------------------------------------------------------------- 

         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (HerbingON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (HerbingON = 1)
                        HerbingLvl1% = Attribute(Player, "Herbing")
                        NextHerbinglvl2% = HerbingLvl1 * 750
                        HerbingXp4% = Split(ActorGlobal(Player, 2), 6, "|")                                 
                                                  
                                      MakHerbingBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextHerbinglvl2, HerbingXp4, "Herbing Skill") 
                                      SkillBar2$ = MakHerbingBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;--------------------------------------------------------------------------------------------------------- 

         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (WoodCuttingON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (WoodCuttingON = 1)
                        WoodCuttingLvl1% = Attribute(Player, "WoodCutting")
                        NextWoodCuttinglvl2% = WoodCuttingLvl1 * 750
                        WoodCuttingXp4% = Split(ActorGlobal(Player, 2), 10, "|")                                 
                                                  
                                      MakWoodCuttingBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextWoodCuttinglvl2, WoodCuttingXp4, "WoodCutting Skill") 
                                      SkillBar2$ = MakWoodCuttingBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;--------------------------------------------------------------------------------------------------------- 

            ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (FishingON = 6) 
                    SkillBar2$ = ""
                EndIf

                    If (FishingON = 1)
                        FishingLvl1% = Attribute(Player, "Fishing")
                        NextFishinglvl2% = FishingLvl1 * 750
                        FishingXp4% = Split(ActorGlobal(Player, 2), 13, "|")                                 
                                                  
                                      MakFishingBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextFishinglvl2, FishingXp4, "Fishing Skill") 
                                      SkillBar2$ = MakFishingBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;--------------------------------------------------------------------------------------------------------- 
        
         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (TamingON = 6)  ;Taming
                    SkillBar2$ = ""
                EndIf

                    If (TamingON = 1)
                        TamingLvl1% = Attribute(Player, "Taming")
                        NextTaminglvl2% = TamingLvl1 * 750
                        TamingXp4% = Split(ActorGlobal(Player, 2), 14, "|")                                 
                                                  
                                      MakTamingBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextTaminglvl2, TamingXp4, "Taming Skill") 
                                      SkillBar2$ = MakTamingBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;--------------------------------------------------------------------------------------------------------- 
        
         
         ;---------------------------------------------------------------------------------------------------------
        ;---------------------------------------------------------------------------------------------------------
                If (LockPickON = 6)  ;LockPicking
                    SkillBar2$ = ""
                EndIf

                    If (LockPickON = 1)
                        LockPickLvl1% = Attribute(Player, "LockPicking")
                        NextLockPicklvl2% = LockPickLvl1 * 750
                        LockPickXp4% = Split(ActorGlobal(Player, 2), 15, "|")                                 
                                                  
                                      MakLockPickBar$ = CreateProgressBar(Player, 255, 55, 30, BarPossX, BarPossY, 0.15, 0.02, NextLockPicklvl2, LockPickXp4, "LockPicking Skill") 
                                      SkillBar2$ = MakLockPickBar                                 
                          
                    EndIf 

        ;---------------------------------------------------------------------------------------------------------
        ;--------------------------------------------------------------------------------------------------------- 
                   SkillXPToStore3$ = SaberToothXp + "|" + SaberCatXp + "|" + VampXp + "|" + VampFlyXP + "|" +  PandoraXp + "|" + PandoraRageBuld + "|" + SkillBar1 + "|" + SkillBar2 + "|" + SkillBar3 + "|" + SkillBar4 + "|" + Extra1 + "|" + Extra2 + "|" + Extra3 + "|" + Extra4 + "|" + Extra5 + "|" + Extra6 + "|" + Extra7 + "|" + Extra8 + "|" + Extra9
                   SetActorGlobal(Player, 4, SkillXPToStore3) ;set dilimiter to actor global 2 with new melee xp amount
    EndIf
 EndIf
 
 
 
 return
 
 End Function