;;;;;;;;;;;;;;;;;;;;;;
[@GroupTest]
{

#IF
   CheckJob Warrior
#ACT
   Mov A1 ""
   Mov A0 %USERNAME
   LoadValue A2 "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Taoist
   LoadValue A3 "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Wizard
   LoadValue A4 "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Password
#ELSESAY
\
Would you like to join a group?\
<[ Enter Warriors Name ]/@@EnterWarName>\\
\
#ELSEACT
Break
#IF
   !Equal A4 ""
#SAY
\
Hi, your group is setup ready\
#ELSESAY
\
Would you like to start a new group?\
<[ Create Group ]/@StartGroup>\
<[ Exit ]/@exit>\\
\
#ELSEACT
   Break
#IF
   !Equal A2 ""
#SAY
Your Taoist {FCOLOR/1}<$OUTPUT(A2)>{FCOLOR/12} is ready\
<[ Replace Taoist ]/@ClearTaoist>\
#ELSESAY
You still require a Taoist\
#IF
   !Equal A3 ""
#SAY
Your Wizard {FCOLOR/1}<$OUTPUT(A3)>{FCOLOR/12} is ready\
<[ Replace Wizard ]/@ClearWizard>\\
#ELSESAY
You still require a Wizard\\
#IF
   !Equal A2 ""
   !Equal A3 ""
   !Equal A4 ""
#SAY
Would you like to enter this cave with your group?\
<[ Yes Please ]/@EnterFullGroup>\\
<[ Wait a While ]/@Exit>\\
\\\
#ELSESAY
Your password is {FCOLOR/1}<$OUTPUT(A4)>{FCOLOR/12} \
Your group members must enter this to join your group\
<[ Thanks ]/@exit>\
\\\

[@EnterFullGroup]
#IF
!CheckHum D006_A 1
!CheckHum D007_A 1
!CheckHum D2900_A 1
#ACT
MapTing NPCRoom1 D006_A 32 15
Break

#IF
!CheckHum D006_B 1
!CheckHum D007_B 1
!CheckHum D2900_B 1
#ACT
MapTing NPCRoom1 D006_B 32 15
Break

#IF
!CheckHum D006_C 1
!CheckHum D007_C 1
!CheckHum D2900_C 1
#ACT
MapTing NPCRoom1 D006_C 32 15
Break

#IF
!CheckHum D006_D 1
!CheckHum D007_D 1
!CheckHum D2900_D 1
#ACT
MapTing NPCRoom1 D006_D 32 15
Break

#IF
!CheckHum D006_E 1
!CheckHum D007_E 1
!CheckHum D2900_E 1
#ACT
MapTing NPCRoom1 D006_E 32 15
Break

#IF
!CheckHum D006_F 1
!CheckHum D007_F 1
!CheckHum D2900_F 1
#ACT
MapTing NPCRoom1 D006_F 32 15
Break

#IF
!CheckHum D006_G 1
!CheckHum D007_G 1
!CheckHum D2900_G 1
#ACT
MapTing NPCRoom1 D006_G 32 15
Break

#IF
!CheckHum D006_H 1
!CheckHum D007_H 1
!CheckHum D2900_H 1
#ACT
MapTing NPCRoom1 D006_H 32 15
Break

#IF
!CheckHum D006_I 1
!CheckHum D007_I 1
!CheckHum D2900_I 1
#ACT
MapTing NPCRoom1 D006_I 32 15
Break

#IF
!CheckHum D006_J 1
!CheckHum D007_J 1
!CheckHum D2900_J 1
#ACT
MapTing NPCRoom1 D006_J 32 15
Break

#IF
#SAY
Sorry, all the rooms are full at the moment\
Please try again shortly\\
<[ Exit ]/@exit>\\

[@ClearWizard]
#ACT
   SaveValue "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Wizard ""
#SAY
\
All Cleared - <[ Main Menu ]/@Main>\
\

[@ClearTaoist]
#ACT
   SaveValue "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Taoist ""
#SAY
\
All Cleared - <[ Main Menu ]/@Main>\
\

[@StartGroup]
#IF
#SAY
\
Please Enter a new password for your group\
<[ Enter Password ]/@@NewPassword>\
\

[@@NewPassword]
#ACT
   Mov A0 %USERNAME
   Mov A1 %INPUTSTR
   SaveValue "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Password %A1
   SaveValue "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Taoist ""
   SaveValue "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Wizard ""
#SAY
\
Group has been created\
You must now speak to your Wizard and Taoist\
to set the rest of the group up before you\
can teleport into the cave\\
<[ Thanks ]/@exit>\
\

[@@EnterWarName]
#ACT
   Mov A0 %INPUTSTR
   LoadValue A1 "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Password
#IF
   !Equal A1 ""
#SAY
\
Now Please Enter the Group Password\
<[ Enter Group Password ]/@@EnterPassword>\\
\
#ELSESAY
\
This group has not been created\
The warrior must set this group up first\
<[ Thanks ]/@exit>\\
\

[@@EnterPassword]
#IF
CheckJob Wizard
#ACT
   Mov A2 %INPUTSTR
   LoadValue A3 "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Wizard
#IF
   CheckJob Taoist
#ACT
   Mov A2 %INPUTSTR
   LoadValue A3 "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Taoist
#IF 
   Equal A3 %USERNAME
#SAY
\
You are already setup\
<[ Thanks ]/@exit>\\
\
#ACT
   Break

#IF
   CheckJob Wizard
   !Equal A3 ""
#SAY
\
There is already a Wizard setup in this Group\
Your Warrior must remove this Wizard first\
<[ Thanks ]/@exit>\\
\
#ACT
   Break
#IF
   CheckJob Taoist
   !Equal A3 ""
#SAY
\
There is already a Taoist setup in this Group\
Your Warrior must remove this Taoist first\
<[ Thanks ]/@exit>\\
\
#ACT
   Break
#IF
   Checkjob Wizard
#ACT
   SaveValue "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Wizard %USERNAME
#IF
   Checkjob Taoist
#ACT
   SaveValue "QuestDiary\EventSystem\GroupCave\Groups.txt" [%A0] Taoist %USERNAME
#IF
#SAY
\
All Set up\
<[ Thanks ]/@exit>\\
\
}

[@CheckQtyNOW]
{
#ACT
Goto @CheckQtyNow1

[@CheckQtyNOW1]
#IF
#ACT
ClearDelaygoto 10034

#IF
!CheckHum NPCRoom1 3
or CheckHum NPCRoom1 4
#ACT
MapTing NPCRoom1 10 298 266
;Eventmsg Grobal "Group Cave Starter Room Cleared"


#IF
!CheckHum D006_A 3
or CheckHum D006_A 4
#ACT
MapTing D006_A 10 298 266

#IF
!CheckHum D007_A 3
or CheckHum D007_A 4
#ACT
MapTing D007_A 10 298 266

#IF
!CheckHum D2900_A 3
or CheckHum D2900_A 4
#ACT
MapTing D2900_A 10 298 266

#IF
!CheckHum D006_B 3
or CheckHum D006_B 4
#ACT
MapTing D006_B 10 298 266

#IF
!CheckHum D007_B 3
or CheckHum D007_B 4
#ACT
MapTing D007_B 10 298 266

#IF
!CheckHum D2900_B 3
or CheckHum D2900_B 4
#ACT
MapTing D2900_B 10 298 266

#IF
!CheckHum D006_C 3
or CheckHum D006_C 4
#ACT
MapTing D006_C 10 298 266

#IF
!CheckHum D007_C 3
or CheckHum D007_C 4
#ACT
MapTing D007_C 10 298 266

#IF
!CheckHum D2900_C 3
or CheckHum D2900_C 4
#ACT
MapTing D2900_C 10 298 266

#IF
!CheckHum D006_D 3
or CheckHum D006_D 4
#ACT
MapTing D006_D 10 298 266

#IF
!CheckHum D007_D 3
or CheckHum D007_D 4
#ACT
MapTing D007_D 10 298 266

#IF
!CheckHum D2900_D 3
or CheckHum D2900_D 4
#ACT
MapTing D2900_D 10 298 266

#IF
!CheckHum D006_E 3
or CheckHum D006_E 4
#ACT
MapTing D006_E 10 298 266

#IF
!CheckHum D007_E 3
or CheckHum D007_E 4
#ACT
MapTing D007_E 10 298 266

#IF
!CheckHum D2900_E 3
or CheckHum D2900_E 4
#ACT
MapTing D2900_E 10 298 266

#IF
!CheckHum D006_F 3
or CheckHum D006_F 4
#ACT
MapTing D006_F 10 298 266

#IF
!CheckHum D007_F 3
or CheckHum D007_F 4
#ACT
MapTing D007_F 10 298 266

#IF
!CheckHum D2900_F 3
or CheckHum D2900_F 4
#ACT
MapTing D2900_F 10 298 266

#IF
!CheckHum D006_G 3
or CheckHum D006_G 4
#ACT
MapTing D006_G 10 298 266

#IF
!CheckHum D007_G 3
or CheckHum D007_G 4
#ACT
MapTing D007_G 10 298 266

#IF
!CheckHum D2900_G 3
or CheckHum D2900_G 4
#ACT
MapTing D2900_G 10 298 266

#IF
!CheckHum D006_H 3
or CheckHum D006_H 4
#ACT
MapTing D006_H 10 298 266

#IF
!CheckHum D007_H 3
or CheckHum D007_H 4
#ACT
MapTing D007_H 10 298 266

#IF
!CheckHum D2900_H 3
or CheckHum D2900_H 4
#ACT
MapTing D2900_H 10 298 266

#IF
!CheckHum D006_I 3
or CheckHum D006_I 4
#ACT
MapTing D006_I 10 298 266

#IF
!CheckHum D007_I 3
or CheckHum D007_I 4
#ACT
MapTing D007_I 10 298 266

#IF
!CheckHum D2900_I 3
or CheckHum D2900_I 4
#ACT
MapTing D2900_I 10 298 266

#IF
!CheckHum D006_J 3
or CheckHum D006_J 4
#ACT
MapTing D006_J 10 298 266

#IF
!CheckHum D007_J 3
or CheckHum D007_J 4
#ACT
MapTing D007_J 10 298 266

#IF
!CheckHum D2900_J 3
or CheckHum D2900_J 4
#ACT
MapTing D2900_J 10 298 266

DelayGoto [Grobal] 60 @CheckQtyNOW1 10034

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;