Starting Intro Script

*Created by Taz.*

```
Using "RC_Core.rcm"
; Morgance Online 0.1
; Date/Time: 7:58:02 PM on 11/24/2012
; By Dan Seguin on TAZCO-PC
;Starting doungen zone tutorial/intro.

Function Main()
Player = Actor()
Target = ContextActor()

    PLvl% = ActorLevel(Player)
    PXp% = ActorXp(Player)
   ;check first time login
   ; If (PLvl = 1) ;commented for testing
   ;   If (PXp = 0)

         ChatBox$ = OpenDialog(Player, Target, "")
        DialogOutPut(Player, ChatBox, "Welcome, so you think we can take on Iliat? you do remeber him almost killing you last time.", 255, 255, 255)
        DialogInput(Player, ChatBox, "Next")
        CloseDialog(Player, ChatBox)
        ChatBox$ = OpenDialog(Player, Target, "")
        DialogOutput(Player, Chatbox, "To this day, I still have no idea why you went in there alone, if this is some revenge thing you need to turn back now, but we have went through this, and i know you must do this..", 255, 255, 255)
        DialogInput(Player, ChatBox, "Next")
        CloseDialog(Player, ChatBox)
        ChatBox$ = OpenDialog(Player, Target, "")
        DialogOUtPut(Player, ChatBox, "Refresh my memory, what type of weapon did you have on that day?", 255, 255, 255)
        POption% = DialogInput(Player, ChatBox, "A sword of course,You should know Im always using a bow,Nothing beats a good staff,Bah a weapon i was in form")

             If (POption = 1) ;player picked melee.
                ;Give melee things
                GiveItem(Player, "Myth Sword")
                GiveItem(Player, "Myth Shield")
                GiveItem(Player, "Myth Helm")
                GiveItem(Player, "Myth Chest")
            ElseIf (POption = 2) ;player picked ranging.
             ;Give ranging things
                GiveItem(Player, "DogWood Bow")
                GiveItem(Player, "Myth Quiver")
                GiveItem(Player, "Iron Helm")
                GiveItem(Player, "Iron Chest")
                GiveItem(Player, "Myth Arrow", 250)
            ElseIf (POption = 3) ;player picked magic.
                GiveItem(Player, "Power Staff")
                GiveItem(Player, "Steel Shield")
                GiveItem(Player, "Magic Chest")
            ElseIf (POption = 4)
                CloseDialog(Player, ChatBox)
                ChatBox$ = OpenDialog(Player, Target, "")
                DialogOutPut(Player, ChatBox, "I was in... ", 255, 245, 245)
                FormOption% = DialogInput(Player, ChatBox, "Vampire form,Saber tooth form,Pandora form")

                If (FormOption = 1) ;store Vampire form
                 AddAbility(Player, "Vamp Form", 1)
                 AddAbility(Player, "Vampire Charge", 1)
                 AddAbility(Player, "Claw Strike", 1)
                 ThreadExecute("Spell_Transform_Vamp", "Main", Player, 0)
                ElseIf (FormOption = 2) ;store saber form
                 AddAbility(Player, "Saber Tooth form", 1)
                 AddAbility(Player, "Saber Spin", 1)
                 AddAbility(Player, "Saber Roll", 1)
                 ThreadExecute("Spell_Transorm Saber", "Main", Player, 0)
                ElseIf (FormOption = 3) ;store pandora form
                 AddAbility(Player, "Pandora form", 1)
                 ThreadExecute("Spell_Transform_Pandora", "Main", Player, 0)
                EndIf

            EndIf ;end weapon class pick.

         CloseDialog(Player, ChatBox)
        ChatBox$ = OpenDialog(Player, Target, "")

         DialogOutPut(Player, ChatBox, "Thats right, how could i have forgoten that. Maybe your level was abit low, what level were you?", 255, 255, 255)

         PlayerLevelSet% = Input(Player, "Enter Level", "", 2)
            If (PlayerLevelSet < 55)
                PlayerLevelSet% = 55
            EndIf

             If (PlayerLevelSet > 60)
                PlayerLevelSet% = 55
            EndIf
            SetActorLevel(Player, PlayerLevelSet)
        CloseDialog(Player, ChatBox)
        ChatBox$ = OpenDialog(Player, Target, "")
        DialogOutPut(Player, ChatBox, "Oh thats right, now that I think of it you were level " + PlayerLevelSet + "! If your ready, I would like to explain a few quick things.", 255, 255, 255)
        DialogInput(Player, ChatBox, "Ready")

        CloseDialog(Player, ChatBox)
        return

         ChatBox$ = OpenDialog(Player, Target, "")

    ;     Endif ;end xp check
   ; Endif ;end level check

     ;will need to add a if player level is greater then one, continue with this.

End Function

```