BEGIN ~MULTIG~
//绿龙弗尔·伊司塔特
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("BAZDRA03",myself)~ THEN BEGIN BAZDRA031 // from:
  SAY @1801 
  IF ~~ THEN REPLY @1800  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("BAZDRA03",myself)~ THEN BEGIN BAZDRA032 // from:
  SAY @1801 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1800 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1802 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1803  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("BAZDRA03",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN BAZDRA033 // from:
  SAY @1804
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("BAZDRA03",myself)
~ THEN BEGIN BAZDRA034 // from:
  SAY @1805 
IF ~~ THEN REPLY @1806 GOTO BAZDRA035
IF ~~ THEN REPLY @1807 GOTO BAZDRA037
IF ~~ THEN REPLY @1808 EXIT
END
IF ~InParty(Myself)
Name("BAZDRA03",myself)~ THEN BEGIN BAZDRA035 // from:
  SAY @1809 
IF ~~ THEN REPLY @1810 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO BAZDRA036
IF ~~ THEN REPLY @1811 EXIT
END
IF ~InParty(Myself)
Name("BAZDRA03",myself)~ THEN BEGIN BAZDRA036 // from:
  SAY @1812 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("BAZDRA03",myself)~ THEN BEGIN BAZDRA037 // from:
  SAY @1813 
IF ~~ THEN REPLY @1814 DO~ChangeAIScript("M_RFGDG",OVERRIDE)
ApplySpellRES("M_rcGDE2",MYSELF)
ApplySpellRES("M_rPGD",MYSELF)~ GOTO BAZDRA038
IF ~~ THEN REPLY @1815 EXIT
END
IF ~InParty(Myself)
Name("BAZDRA03",myself)~ THEN BEGIN BAZDRA038 // from:
  SAY @1816 
IF ~~ THEN EXIT
END
//黄龙
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("DRAGYELL",myself)~ THEN BEGIN DRAGYELL1 // from:
  SAY @1701 
  IF ~~ THEN REPLY @1700  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("DRAGYELL",myself)~ THEN BEGIN DRAGYELL2 // from:
  SAY @1701 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1700 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1702 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1703  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("DRAGYELL",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN DRAGYELL3 // from:
  SAY @1704
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("DRAGYELL",myself)
~ THEN BEGIN DRAGYELL4 // from:
  SAY @1705 
IF ~~ THEN REPLY @1706 GOTO DRAGYELL5
IF ~~ THEN REPLY @1707 GOTO DRAGYELL7
IF ~~ THEN REPLY @1708 EXIT
END
IF ~InParty(Myself)
Name("DRAGYELL",myself)~ THEN BEGIN DRAGYELL5 // from:
  SAY @1709 
IF ~~ THEN REPLY @1710 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO DRAGYELL6
IF ~~ THEN REPLY @1711 EXIT
END
IF ~InParty(Myself)
Name("DRAGYELL",myself)~ THEN BEGIN DRAGYELL6 // from:
  SAY @1712 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("DRAGYELL",myself)~ THEN BEGIN DRAGYELL7 // from:
  SAY @1713 
IF ~~ THEN REPLY @1714 DO~ChangeAIScript("M_RFYDG",OVERRIDE)
ApplySpellRES("M_rcYDE2",MYSELF)
ApplySpellRES("M_rPYD",MYSELF)~ GOTO DRAGYELL8
IF ~~ THEN REPLY @1715 EXIT
END
IF ~InParty(Myself)
Name("DRAGYELL",myself)~ THEN BEGIN DRAGYELL8 // from:
  SAY @1716 
IF ~~ THEN EXIT
END
//紫龙
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("DRAGPURP",myself)~ THEN BEGIN DRAGPURP1 // from:
  SAY @1601 
  IF ~~ THEN REPLY @1600  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("DRAGPURP",myself)~ THEN BEGIN DRAGPURP2 // from:
  SAY @1601 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1600 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1602 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1603  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("DRAGPURP",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN DRAGPURP3 // from:
  SAY @1604
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("DRAGPURP",myself)
~ THEN BEGIN DRAGPURP4 // from:
  SAY @1605 
IF ~~ THEN REPLY @1606 GOTO DRAGPURP5
IF ~~ THEN REPLY @1607 GOTO DRAGPURP7
IF ~~ THEN REPLY @1608 EXIT
END
IF ~InParty(Myself)
Name("DRAGPURP",myself)~ THEN BEGIN DRAGPURP5 // from:
  SAY @1609 
IF ~~ THEN REPLY @1610 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO DRAGPURP6
IF ~~ THEN REPLY @1611 EXIT
END
IF ~InParty(Myself)
Name("DRAGPURP",myself)~ THEN BEGIN DRAGPURP6 // from:
  SAY @1612 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("DRAGPURP",myself)~ THEN BEGIN DRAGPURP7 // from:
  SAY @1613 
IF ~~ THEN REPLY @1614 DO~ChangeAIScript("M_RFPDG",OVERRIDE)
ApplySpellRES("M_rcPDE2",MYSELF)
ApplySpellRES("M_rPPD",MYSELF)~ GOTO DRAGPURP8
IF ~~ THEN REPLY @1615 EXIT
END
IF ~InParty(Myself)
Name("DRAGPURP",myself)~ THEN BEGIN DRAGPURP8 // from:
  SAY @1616 
IF ~~ THEN EXIT
END
//棕龙
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("DRAGBROW",myself)~ THEN BEGIN DRAGBROW1 // from:
  SAY @1501 
  IF ~~ THEN REPLY @1500  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("DRAGBROW",myself)~ THEN BEGIN DRAGBROW2 // from:
  SAY @1501 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1500 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1502 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1503  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("DRAGBROW",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN DRAGBROW3 // from:
  SAY @1504
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("DRAGBROW",myself)
~ THEN BEGIN DRAGBROW4 // from:
  SAY @1505 
IF ~~ THEN REPLY @1506 GOTO DRAGBROW5
IF ~~ THEN REPLY @1507 GOTO DRAGBROW7
IF ~~ THEN REPLY @1508 EXIT
END
IF ~InParty(Myself)
Name("DRAGBROW",myself)~ THEN BEGIN DRAGBROW5 // from:
  SAY @1509 
IF ~~ THEN REPLY @1510 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO DRAGBROW6
IF ~~ THEN REPLY @1511 EXIT
END
IF ~InParty(Myself)
Name("DRAGBROW",myself)~ THEN BEGIN DRAGBROW6 // from:
  SAY @1512 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("DRAGBROW",myself)~ THEN BEGIN DRAGBROW7 // from:
  SAY @1513 
IF ~~ THEN REPLY @1514 DO~ChangeAIScript("M_RFBRDG",OVERRIDE)
ApplySpellRES("M_rcBRD2",MYSELF)
ApplySpellRES("M_rPBRD",MYSELF)~ GOTO DRAGBROW8
IF ~~ THEN REPLY @1515 EXIT
END
IF ~InParty(Myself)
Name("DRAGBROW",myself)~ THEN BEGIN DRAGBROW8 // from:
  SAY @1516 
IF ~~ THEN EXIT
END
//红龙萨拉德瑞克斯
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("GORSAL",myself)~ THEN BEGIN GORSAL1 // from:
  SAY @1401 
  IF ~~ THEN REPLY @1400  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("GORSAL",myself)~ THEN BEGIN GORSAL2 // from:
  SAY @1401 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1400 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1402 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1403  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("GORSAL",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN GORSAL3 // from:
  SAY @1404
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("GORSAL",myself)
~ THEN BEGIN GORSAL4 // from:
  SAY @1405 
IF ~~ THEN REPLY @1406 GOTO GORSAL5
IF ~~ THEN REPLY @1407 GOTO GORSAL7
IF ~~ THEN REPLY @1408 EXIT
END
IF ~InParty(Myself)
Name("GORSAL",myself)~ THEN BEGIN GORSAL5 // from:
  SAY @1409 
IF ~~ THEN REPLY @1410 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO GORSAL6
IF ~~ THEN REPLY @1411 EXIT
END
IF ~InParty(Myself)
Name("GORSAL",myself)~ THEN BEGIN GORSAL6 // from:
  SAY @1412 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("GORSAL",myself)~ THEN BEGIN GORSAL7 // from:
  SAY @1413 
IF ~~ THEN REPLY @1414 DO~ChangeAIScript("M_RFRD2G",OVERRIDE)
ApplySpellRES("M_rcRD22",MYSELF)
ApplySpellRES("M_rPRD2",MYSELF)~ GOTO GORSAL8
IF ~~ THEN REPLY @1415 EXIT
END
IF ~InParty(Myself)
Name("GORSAL",myself)~ THEN BEGIN GORSAL8 // from:
  SAY @1416 
IF ~~ THEN EXIT
END
//黑龙尼兹卓曼尼亚特
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("DRAGBLAC",myself)~ THEN BEGIN DRAGBLAC1 // from:
  SAY @1301 
  IF ~~ THEN REPLY @1300  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("DRAGBLAC",myself)~ THEN BEGIN DRAGBLAC2 // from:
  SAY @1301 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1300 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1302 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1303  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("DRAGBLAC",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN DRAGBLAC3 // from:
  SAY @1304
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("DRAGBLAC",myself)
~ THEN BEGIN DRAGBLAC4 // from:
  SAY @1305 
IF ~~ THEN REPLY @1306 GOTO DRAGBLAC5
IF ~~ THEN REPLY @1307 GOTO DRAGBLAC7
IF ~~ THEN REPLY @1308 EXIT
END
IF ~InParty(Myself)
Name("DRAGBLAC",myself)~ THEN BEGIN DRAGBLAC5 // from:
  SAY @1309 
IF ~~ THEN REPLY @1310 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO DRAGBLAC6
IF ~~ THEN REPLY @1311 EXIT
END
IF ~InParty(Myself)
Name("DRAGBLAC",myself)~ THEN BEGIN DRAGBLAC6 // from:
  SAY @1312 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("DRAGBLAC",myself)~ THEN BEGIN DRAGBLAC7 // from:
  SAY @1313 
IF ~~ THEN REPLY @1314 DO~ChangeAIScript("M_RFBCDG",OVERRIDE)
ApplySpellRES("M_rcBCD2",MYSELF)
ApplySpellRES("M_rPBCD",MYSELF)~ GOTO DRAGBLAC8
IF ~~ THEN REPLY @1315 EXIT
END
IF ~InParty(Myself)
Name("DRAGBLAC",myself)~ THEN BEGIN DRAGBLAC8 // from:
  SAY @1316 
IF ~~ THEN EXIT
END
//银龙艾达隆
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("UDSILVER",myself)~ THEN BEGIN UDSILVER1 // from:
  SAY @1201 
  IF ~~ THEN REPLY @1200  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("UDSILVER",myself)~ THEN BEGIN UDSILVER2 // from:
  SAY @1201 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1200 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1202 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1203  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("UDSILVER",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN UDSILVER3 // from:
  SAY @1204
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("UDSILVER",myself)
~ THEN BEGIN UDSILVER4 // from:
  SAY @1205 
IF ~~ THEN REPLY @1206 GOTO UDSILVER5
IF ~~ THEN REPLY @1207 GOTO UDSILVER7
IF ~~ THEN REPLY @1208 EXIT
END
IF ~InParty(Myself)
Name("UDSILVER",myself)~ THEN BEGIN UDSILVER5 // from:
  SAY @1209 
IF ~~ THEN REPLY @1210 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO UDSILVER6
IF ~~ THEN REPLY @1211 EXIT
END
IF ~InParty(Myself)
Name("UDSILVER",myself)~ THEN BEGIN UDSILVER6 // from:
  SAY @1212 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("UDSILVER",myself)~ THEN BEGIN UDSILVER7 // from:
  SAY @1213 
IF ~~ THEN REPLY @1214 DO~ChangeAIScript("M_RFSIDG",OVERRIDE)
ApplySpellRES("M_rcSID2",MYSELF)
ApplySpellRES("M_rPSID",MYSELF)~ GOTO UDSILVER8
IF ~~ THEN REPLY @1215 EXIT
END
IF ~InParty(Myself)
Name("UDSILVER",myself)~ THEN BEGIN UDSILVER8 // from:
  SAY @1216 
IF ~~ THEN EXIT
END
//红龙费尔克拉格
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)~ THEN BEGIN FIRKRA1 // from:
  SAY @1101 
  IF ~~ THEN REPLY @1100  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)~ THEN BEGIN FIRKRA2 // from:
  SAY @1101 
  IF ~~ THEN REPLY @3  DO ~
SetGlobal("Waiting","LOCALS",1)
~ EXIT
  IF ~~ THEN REPLY @1100 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")~ THEN REPLY @1102 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1103  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN FIRKRA3 // from:
  SAY @1104
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)
~ THEN BEGIN FIRKRA4 // from:
  SAY @1105 
IF ~~ THEN REPLY @1106 GOTO FIRKRA5
IF ~~ THEN REPLY @1107 GOTO FIRKRA7
IF ~~ THEN REPLY @1108 EXIT
END
IF ~InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)~ THEN BEGIN FIRKRA5 // from:
  SAY @1109 
IF ~~ THEN REPLY @1110 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO FIRKRA6
IF ~~ THEN REPLY @1111 EXIT
END
IF ~InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)~ THEN BEGIN FIRKRA6 // from:
  SAY @1112 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)~ THEN BEGIN FIRKRA7 // from:
  SAY @1113 
IF ~OR(2)
Name("B#FIR02",myself)
Name("B#FIR03",myself)~ THEN REPLY @1114 DO~ChangeAIScript("M_RFRDG",OVERRIDE)
ApplySpellRES("M_rcrde4",MYSELF)
ApplySpellRES("M_rPRD",MYSELF)~ GOTO FIRKRA8
IF ~Name("FIRKRA02",myself)~ THEN REPLY @1114 DO~ChangeAIScript("M_RFRDG",OVERRIDE)
ApplySpellRES("M_rcrde2",MYSELF)
ApplySpellRES("M_rPRD",MYSELF)~ GOTO FIRKRA8
IF ~Name("B#FIR01",myself)~ THEN REPLY @1114 DO~ChangeAIScript("M_RFRDG",OVERRIDE)
ApplySpellRES("M_rcrde3",MYSELF)
ApplySpellRES("M_rPRD",MYSELF)~ GOTO FIRKRA8
IF ~Name("FIRKRA01",myself)~ THEN REPLY @1114 DO~ChangeAIScript("M_RFRDG",OVERRIDE)
ApplySpellRES("M_rcrde1",MYSELF)
ApplySpellRES("M_rPRD",MYSELF)~ GOTO FIRKRA8
IF ~~ THEN REPLY @1115 EXIT
END
IF ~InParty(Myself)
or(5)
Name("B#FIR01",myself)
Name("B#FIR02",myself)
Name("B#FIR03",myself)
Name("FIRKRA01",myself)
Name("FIRKRA02",myself)~ THEN BEGIN FIRKRA8 // from:
  SAY @1116 
IF ~~ THEN EXIT
END
//影龙萨克索西利亚
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
Name("SHADRA01",myself)
~ THEN BEGIN shadowdra1 // from:
  SAY @1001 
  IF ~~ THEN REPLY @1000  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
Name("SHADRA01",myself)
~ THEN BEGIN shadowdra2 // from:
  SAY @1001 
  IF ~~ THEN REPLY @3 /* ~You will have to wait here. I have no room for you at the moment.~ ~你得在这里等着。我目前已经没有你的位置。~ */ DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @1000 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @1002 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @1003  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
Name("SHADRA01",myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN shadowdra3 // from:
  SAY @1004
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
Name("SHADRA01",myself)
~ THEN BEGIN shadowdra4 // from:
  SAY @1005 
IF ~~ THEN REPLY @1006 GOTO shadowdra5
IF ~~ THEN REPLY @1007 GOTO shadowdra7
IF ~~ THEN REPLY @1008 EXIT
END
IF ~InParty(Myself)
Name("SHADRA01",myself)~ THEN BEGIN shadowdra5 // from:
  SAY @1009 
IF ~~ THEN REPLY @1010 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO shadowdra6
IF ~~ THEN REPLY @1011 EXIT
END
IF ~InParty(Myself)
Name("SHADRA01",myself)~ THEN BEGIN shadowdra6 // from:
  SAY @1012 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
Name("SHADRA01",myself)~ THEN BEGIN shadowdra7 // from:
  SAY @1013 
IF ~~ THEN REPLY @1014 DO~ChangeAIScript("M_RFSDG",OVERRIDE)
ApplySpellRES("M_rcsde2",MYSELF)
ApplySpellRES("M_rPSD",MYSELF)~ GOTO shadowdra8
IF ~~ THEN REPLY @1015 EXIT
END
IF ~InParty(Myself)
Name("SHADRA01",myself)~ THEN BEGIN shadowdra8 // from:
  SAY @1016 
IF ~~ THEN EXIT
END
//泛红龙
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)
~ THEN BEGIN RED_DRAGON1 // from:
  SAY @2001 
  IF ~~ THEN REPLY @2000  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)
~ THEN BEGIN RED_DRAGON2 // from:
  SAY @2001 
  IF ~~ THEN REPLY @3 /* ~You will have to wait here. I have no room for you at the moment.~ ~你得在这里等着。我目前已经没有你的位置。~ */ DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @2000 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @2002 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @2003  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN RED_DRAGON3 // from:
  SAY @2004
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)
~ THEN BEGIN RED_DRAGON4 // from:
  SAY @2005 
IF ~~ THEN REPLY @2006 GOTO RED_DRAGON5
IF ~~ THEN REPLY @2007 GOTO RED_DRAGON7
IF ~~ THEN REPLY @2008 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)~ THEN BEGIN RED_DRAGON5 // from:
  SAY @2009 
IF ~~ THEN REPLY @2010 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO RED_DRAGON6
IF ~~ THEN REPLY @2011 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)~ THEN BEGIN RED_DRAGON6 // from:
  SAY @2012 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)~ THEN BEGIN RED_DRAGON7 // from:
  SAY @2013 
IF ~~ THEN REPLY @2014 DO~ChangeAIScript("M_RFCRDG",OVERRIDE)
ApplySpellRES("M_rcRDEB",MYSELF)
ApplySpellRES("M_rPcRD",MYSELF)~ GOTO RED_DRAGON8
IF ~~ THEN REPLY @2015 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,RED_DRAGON)
Global("M_RFCRD","LOCALS",1)~ THEN BEGIN RED_DRAGON8 // from:
  SAY @2016 
IF ~~ THEN EXIT
END
//泛黑龙
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)
~ THEN BEGIN SHADOW_DRAGON1 // from:
  SAY @2101 
  IF ~~ THEN REPLY @2100  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)
~ THEN BEGIN SHADOW_DRAGON2 // from:
  SAY @2101 
  IF ~~ THEN REPLY @3 /* ~You will have to wait here. I have no room for you at the moment.~ ~你得在这里等着。我目前已经没有你的位置。~ */ DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @2100 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @2102 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @2103  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN SHADOW_DRAGON3 // from:
  SAY @2104
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)
~ THEN BEGIN SHADOW_DRAGON4 // from:
  SAY @2105 
IF ~~ THEN REPLY @2106 GOTO SHADOW_DRAGON5
IF ~~ THEN REPLY @2107 GOTO SHADOW_DRAGON7
IF ~~ THEN REPLY @2108 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)~ THEN BEGIN SHADOW_DRAGON5 // from:
  SAY @2109 
IF ~~ THEN REPLY @2110 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO SHADOW_DRAGON6
IF ~~ THEN REPLY @2111 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)~ THEN BEGIN SHADOW_DRAGON6 // from:
  SAY @2112 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)~ THEN BEGIN SHADOW_DRAGON7 // from:
  SAY @2113 
IF ~~ THEN REPLY @2114 DO~ChangeAIScript("M_RFCBDG",OVERRIDE)
ApplySpellRES("M_rcBCDB",MYSELF)
ApplySpellRES("M_rPcBCD",MYSELF)~ GOTO SHADOW_DRAGON8
IF ~~ THEN REPLY @2115 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SHADOW_DRAGON)
Global("M_RFCBCD","LOCALS",1)~ THEN BEGIN SHADOW_DRAGON8 // from:
  SAY @2116 
IF ~~ THEN EXIT
END
//泛银龙
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)
~ THEN BEGIN SILVER_DRAGON1 // from:
  SAY @2201 
  IF ~~ THEN REPLY @2200  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)
~ THEN BEGIN SILVER_DRAGON2 // from:
  SAY @2201 
  IF ~~ THEN REPLY @3 /* ~You will have to wait here. I have no room for you at the moment.~ ~你得在这里等着。我目前已经没有你的位置。~ */ DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @2200 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @2202 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @2203  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN SILVER_DRAGON3 // from:
  SAY @2204
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)
~ THEN BEGIN SILVER_DRAGON4 // from:
  SAY @2205 
IF ~~ THEN REPLY @2206 GOTO SILVER_DRAGON5
IF ~~ THEN REPLY @2207 GOTO SILVER_DRAGON7
IF ~~ THEN REPLY @2208 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)~ THEN BEGIN SILVER_DRAGON5 // from:
  SAY @2209 
IF ~~ THEN REPLY @2210 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO SILVER_DRAGON6
IF ~~ THEN REPLY @2211 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)~ THEN BEGIN SILVER_DRAGON6 // from:
  SAY @2212 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)~ THEN BEGIN SILVER_DRAGON7 // from:
  SAY @2213 
IF ~~ THEN REPLY @2214 DO~ChangeAIScript("M_RFCSDG",OVERRIDE)
ApplySpellRES("M_rcSIDB",MYSELF)
ApplySpellRES("M_rPcSID",MYSELF)~ GOTO SILVER_DRAGON8
IF ~~ THEN REPLY @2215 EXIT
END
IF ~InParty(Myself)
OR(2)
Class(MYSELF,SILVER_DRAGON)
Global("M_RFCSID","LOCALS",1)~ THEN BEGIN SILVER_DRAGON8 // from:
  SAY @2216 
IF ~~ THEN EXIT
END
//眼魔
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(MYSELF,BEHOLDER)
~ THEN BEGIN BEHOLDER1 // from:
  SAY @3001 
  IF ~~ THEN REPLY @3000  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
IF ~~ THEN REPLY @3 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(MYSELF,BEHOLDER)
~ THEN BEGIN BEHOLDER2 // from:
  SAY @3001 
  IF ~~ THEN REPLY @3 /* ~You will have to wait here. I have no room for you at the moment.~ ~你得在这里等着。我目前已经没有你的位置。~ */ DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @3000 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @3002 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @3003  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(MYSELF,BEHOLDER)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN BEHOLDER3 // from:
  SAY @3004
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(MYSELF,BEHOLDER)
~ THEN BEGIN BEHOLDER4 // from:
  SAY @3005 
IF ~~ THEN REPLY @3006 GOTO BEHOLDER5
IF ~~ THEN REPLY @3007 GOTO BEHOLDER7
IF ~~ THEN REPLY @3008 EXIT
END
IF ~InParty(Myself)
RACE(MYSELF,BEHOLDER)
~ THEN BEGIN BEHOLDER5 // from:
  SAY @3009 
IF ~~ THEN REPLY @3010 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR1",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
ChangeAIScript("",CLASS)~ GOTO BEHOLDER6
IF ~~ THEN REPLY @3011 EXIT
END
IF ~InParty(Myself)
RACE(MYSELF,BEHOLDER)
~ THEN BEGIN BEHOLDER6 // from:
  SAY @3012 
IF ~~ THEN EXIT
END
IF ~InParty(Myself)
RACE(MYSELF,BEHOLDER)
~ THEN BEGIN BEHOLDER7 // from:
  SAY @3013 
IF ~~ THEN REPLY @3014 DO~ChangeAIScript("M_RFBH",CLASS)
ChangeAIScript("M_RFBHG",OVERRIDE)~ GOTO BEHOLDER8
IF ~~ THEN REPLY @3015 EXIT
END
IF ~InParty(Myself)
RACE(MYSELF,BEHOLDER)
~ THEN BEGIN BEHOLDER8 // from:
  SAY @3016 
IF ~~ THEN EXIT
END
//RACE
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(3)
RACE(myself,HUMAN)
RACE(myself,ELF)
RACE(myself,HALF_ELF)
~ THEN BEGIN 1 // from:
  SAY @1 
  IF ~~ THEN REPLY @2  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @3 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(3)
RACE(myself,HUMAN)
RACE(myself,ELF)
RACE(myself,HALF_ELF)
~ THEN BEGIN 4 // from:
  SAY @4 
  IF ~~ THEN REPLY @3 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @2 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @5  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @6 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @7  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(3)
RACE(myself,HUMAN)
RACE(myself,ELF)
RACE(myself,HALF_ELF)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 8 // from:
  SAY @8
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(3)
RACE(myself,HUMAN)
RACE(myself,ELF)
RACE(myself,HALF_ELF)
~ THEN BEGIN 9 // from:
  SAY @9
IF ~~ THEN REPLY @10 GOTO 12
IF ~~ THEN REPLY @11 EXIT
END
IF ~InParty(Myself)
OR(3)
RACE(myself,HUMAN)
RACE(myself,ELF)
RACE(myself,HALF_ELF)~ THEN BEGIN 12 // from:
  SAY @12 
IF ~~ THEN REPLY @13 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 15
IF ~~ THEN REPLY @14 EXIT
END
IF ~InParty(Myself)
OR(3)
RACE(myself,HUMAN)
RACE(myself,ELF)
RACE(myself,HALF_ELF)~ THEN BEGIN 15 // from:
  SAY @15 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,DWARF)
RACE(myself,DUERGAR)
~ THEN BEGIN 16 // from:
  SAY @16 
  IF ~~ THEN REPLY @17  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @18 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,DWARF)
RACE(myself,DUERGAR)
~ THEN BEGIN 19 // from:
  SAY @19 
  IF ~~ THEN REPLY @18 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @17 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @20  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @21 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @22  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,DWARF)
RACE(myself,DUERGAR)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 23 // from:
  SAY @23
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,DWARF)
RACE(myself,DUERGAR)
~ THEN BEGIN 24 // from:
  SAY @24
IF ~~ THEN REPLY @25 GOTO 27
IF ~~ THEN REPLY @26 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,DWARF)
RACE(myself,DUERGAR)~ THEN BEGIN 27 // from:
  SAY @27 
IF ~~ THEN REPLY @28 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 30
IF ~~ THEN REPLY @29 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,DWARF)
RACE(myself,DUERGAR)~ THEN BEGIN 30 // from:
  SAY @30 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,HALFLING)
~ THEN BEGIN 31 // from:
  SAY @31 
  IF ~~ THEN REPLY @32  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @33 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,HALFLING)
~ THEN BEGIN 34 // from:
  SAY @34 
  IF ~~ THEN REPLY @33 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @32 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @35  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @36 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @37  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,HALFLING)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 38 // from:
  SAY @38
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,HALFLING)
~ THEN BEGIN 39 // from:
  SAY @39
IF ~~ THEN REPLY @40 GOTO 42
IF ~~ THEN REPLY @41 EXIT
END
IF ~InParty(Myself)
RACE(myself,HALFLING)~ THEN BEGIN 42 // from:
  SAY @42 
IF ~~ THEN REPLY @43 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 45
IF ~~ THEN REPLY @44 EXIT
END
IF ~InParty(Myself)
RACE(myself,HALFLING)~ THEN BEGIN 45 // from:
  SAY @45 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,GNOME)
~ THEN BEGIN 46 // from:
  SAY @46 
  IF ~~ THEN REPLY @47  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @48 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,GNOME)
~ THEN BEGIN 49 // from:
  SAY @49 
  IF ~~ THEN REPLY @48 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @47 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @50  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @51 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @52  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,GNOME)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 53 // from:
  SAY @53
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,GNOME)
~ THEN BEGIN 54 // from:
  SAY @54
IF ~~ THEN REPLY @55 GOTO 57
IF ~~ THEN REPLY @56 EXIT
END
IF ~InParty(Myself)
RACE(myself,GNOME)~ THEN BEGIN 57 // from:
  SAY @57 
IF ~~ THEN REPLY @58 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 60
IF ~~ THEN REPLY @59 EXIT
END
IF ~InParty(Myself)
RACE(myself,GNOME)~ THEN BEGIN 60 // from:
  SAY @60 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(6)
RACE(myself,HALFORC)
RACE(myself,GNOLL)
RACE(myself,HOBGOBLIN)
RACE(myself,OGRE)
RACE(myself,TROLL)
RACE(myself,ORC)
~ THEN BEGIN 61 // from:
  SAY @61 
  IF ~~ THEN REPLY @62  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @63 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(6)
RACE(myself,HALFORC)
RACE(myself,GNOLL)
RACE(myself,HOBGOBLIN)
RACE(myself,OGRE)
RACE(myself,TROLL)
RACE(myself,ORC)
~ THEN BEGIN 64 // from:
  SAY @64 
  IF ~~ THEN REPLY @63 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @62 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @65  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @66 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @67  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(6)
RACE(myself,HALFORC)
RACE(myself,GNOLL)
RACE(myself,HOBGOBLIN)
RACE(myself,OGRE)
RACE(myself,TROLL)
RACE(myself,ORC)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 68 // from:
  SAY @68
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(6)
RACE(myself,HALFORC)
RACE(myself,GNOLL)
RACE(myself,HOBGOBLIN)
RACE(myself,OGRE)
RACE(myself,TROLL)
RACE(myself,ORC)
~ THEN BEGIN 69 // from:
  SAY @69
IF ~~ THEN REPLY @70 GOTO 72
IF ~~ THEN REPLY @71 EXIT
END
IF ~InParty(Myself)
OR(6)
RACE(myself,HALFORC)
RACE(myself,GNOLL)
RACE(myself,HOBGOBLIN)
RACE(myself,OGRE)
RACE(myself,TROLL)
RACE(myself,ORC)~ THEN BEGIN 72 // from:
  SAY @72 
IF ~~ THEN REPLY @73 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 75
IF ~~ THEN REPLY @74 EXIT
END
IF ~InParty(Myself)
OR(6)
RACE(myself,HALFORC)
RACE(myself,GNOLL)
RACE(myself,HOBGOBLIN)
RACE(myself,OGRE)
RACE(myself,TROLL)
RACE(myself,ORC)~ THEN BEGIN 75 // from:
  SAY @75 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(5)
RACE(myself,ANKHEG)
RACE(myself,CARRIONCRAWLER)
RACE(myself,ETTERCAP)
RACE(myself,OTYUGH)
RACE(myself,UMBERHULK)
~ THEN BEGIN 76 // from:
  SAY @76 
  IF ~~ THEN REPLY @77  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @78 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(5)
RACE(myself,ANKHEG)
RACE(myself,CARRIONCRAWLER)
RACE(myself,ETTERCAP)
RACE(myself,OTYUGH)
RACE(myself,UMBERHULK)
~ THEN BEGIN 79 // from:
  SAY @79 
  IF ~~ THEN REPLY @78 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @77 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @80  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @81 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @82  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,ANKHEG)
RACE(myself,CARRIONCRAWLER)
RACE(myself,ETTERCAP)
RACE(myself,OTYUGH)
RACE(myself,UMBERHULK)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 83 // from:
  SAY @83
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,ANKHEG)
RACE(myself,CARRIONCRAWLER)
RACE(myself,ETTERCAP)
RACE(myself,OTYUGH)
RACE(myself,UMBERHULK)
~ THEN BEGIN 84 // from:
  SAY @84
IF ~~ THEN REPLY @85 GOTO 87
IF ~~ THEN REPLY @86 EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,ANKHEG)
RACE(myself,CARRIONCRAWLER)
RACE(myself,ETTERCAP)
RACE(myself,OTYUGH)
RACE(myself,UMBERHULK)~ THEN BEGIN 87 // from:
  SAY @87 
IF ~~ THEN REPLY @88 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 90
IF ~~ THEN REPLY @89 EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,ANKHEG)
RACE(myself,CARRIONCRAWLER)
RACE(myself,ETTERCAP)
RACE(myself,OTYUGH)
RACE(myself,UMBERHULK)~ THEN BEGIN 90 // from:
  SAY @90 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,BASILISK)
~ THEN BEGIN 91 // from:
  SAY @91 
  IF ~~ THEN REPLY @92  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @93 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,BASILISK)
~ THEN BEGIN 94 // from:
  SAY @94 
  IF ~~ THEN REPLY @93 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @92 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @95  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @96 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @97  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,BASILISK)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 98 // from:
  SAY @98
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,BASILISK)
~ THEN BEGIN 99 // from:
  SAY @99
IF ~~ THEN REPLY @100 GOTO 102
IF ~~ THEN REPLY @101 EXIT
END
IF ~InParty(Myself)
RACE(myself,BASILISK)~ THEN BEGIN 102 // from:
  SAY @102 
IF ~~ THEN REPLY @103 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 105
IF ~~ THEN REPLY @104 EXIT
END
IF ~InParty(Myself)
RACE(myself,BASILISK)~ THEN BEGIN 105 // from:
  SAY @105 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(5)
RACE(myself,BEAR)
RACE(myself,DOG)
RACE(myself,WOLF)
RACE(myself,CAT)
RACE(myself,RABBIT)
~ THEN BEGIN 106 // from:
  SAY @106 
  IF ~~ THEN REPLY @107  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @108 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(5)
RACE(myself,BEAR)
RACE(myself,DOG)
RACE(myself,WOLF)
RACE(myself,CAT)
RACE(myself,RABBIT)
~ THEN BEGIN 109 // from:
  SAY @109 
  IF ~~ THEN REPLY @108 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @107 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @110  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @111 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @112  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,BEAR)
RACE(myself,DOG)
RACE(myself,WOLF)
RACE(myself,CAT)
RACE(myself,RABBIT)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 113 // from:
  SAY @113
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,BEAR)
RACE(myself,DOG)
RACE(myself,WOLF)
RACE(myself,CAT)
RACE(myself,RABBIT)
~ THEN BEGIN 114 // from:
  SAY @114
IF ~~ THEN REPLY @115 GOTO 117
IF ~~ THEN REPLY @116 EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,BEAR)
RACE(myself,DOG)
RACE(myself,WOLF)
RACE(myself,CAT)
RACE(myself,RABBIT)~ THEN BEGIN 117 // from:
  SAY @117 
IF ~~ THEN REPLY @118 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 120
IF ~~ THEN REPLY @119 EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,BEAR)
RACE(myself,DOG)
RACE(myself,WOLF)
RACE(myself,CAT)
RACE(myself,RABBIT)~ THEN BEGIN 120 // from:
  SAY @120 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,DOPPLEGANGER)
~ THEN BEGIN 121 // from:
  SAY @121 
  IF ~~ THEN REPLY @122  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @123 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,DOPPLEGANGER)
~ THEN BEGIN 124 // from:
  SAY @124 
  IF ~~ THEN REPLY @123 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @122 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @125  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @126 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @127  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,DOPPLEGANGER)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 128 // from:
  SAY @128
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,DOPPLEGANGER)
~ THEN BEGIN 129 // from:
  SAY @129
IF ~~ THEN REPLY @130 GOTO 132
IF ~~ THEN REPLY @131 EXIT
END
IF ~InParty(Myself)
RACE(myself,DOPPLEGANGER)
~ THEN BEGIN 132 // from:
  SAY @132 
IF ~~ THEN REPLY @133 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 135
IF ~~ THEN REPLY @134 EXIT
END
IF ~InParty(Myself)
RACE(myself,DOPPLEGANGER)
~ THEN BEGIN 135 // from:
  SAY @135 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(5)
RACE(myself,GHOUL)
RACE(myself,SKELETON)
RACE(myself,ZOMBIE)
RACE(myself,LICH)
RACE(myself,DEMILICH)
~ THEN BEGIN 136 // from:
  SAY @136 
  IF ~~ THEN REPLY @137  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @138 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(5)
RACE(myself,GHOUL)
RACE(myself,SKELETON)
RACE(myself,ZOMBIE)
RACE(myself,LICH)
RACE(myself,DEMILICH)
~ THEN BEGIN 139 // from:
  SAY @139 
  IF ~~ THEN REPLY @138 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @137 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @140  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @141 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @142  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,GHOUL)
RACE(myself,SKELETON)
RACE(myself,ZOMBIE)
RACE(myself,LICH)
RACE(myself,DEMILICH)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 143 // from:
  SAY @143
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,GHOUL)
RACE(myself,SKELETON)
RACE(myself,ZOMBIE)
RACE(myself,LICH)
RACE(myself,DEMILICH)
~ THEN BEGIN 144 // from:
  SAY @144
IF ~~ THEN REPLY @145 GOTO 147
IF ~~ THEN REPLY @146 EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,GHOUL)
RACE(myself,SKELETON)
RACE(myself,ZOMBIE)
RACE(myself,LICH)
RACE(myself,DEMILICH)~ THEN BEGIN 147 // from:
  SAY @147 
IF ~~ THEN REPLY @148 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 150
IF ~~ THEN REPLY @149 EXIT
END
IF ~InParty(Myself)
OR(5)
RACE(myself,GHOUL)
RACE(myself,SKELETON)
RACE(myself,ZOMBIE)
RACE(myself,LICH)
RACE(myself,DEMILICH)~ THEN BEGIN 150 // from:
  SAY @150 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,GIBBERLING)
RACE(myself,KOBOLD)
~ THEN BEGIN 151 // from:
  SAY @151 
  IF ~~ THEN REPLY @152  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @153 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,GIBBERLING)
RACE(myself,KOBOLD)
~ THEN BEGIN 154 // from:
  SAY @154 
  IF ~~ THEN REPLY @153 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @152 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @155  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @156 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @157  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIBBERLING)
RACE(myself,KOBOLD)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 158 // from:
  SAY @158
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIBBERLING)
RACE(myself,KOBOLD)
~ THEN BEGIN 159 // from:
  SAY @159
IF ~~ THEN REPLY @160 GOTO 162
IF ~~ THEN REPLY @161 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIBBERLING)
RACE(myself,KOBOLD)~ THEN BEGIN 162 // from:
  SAY @162 
IF ~~ THEN REPLY @163 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 165
IF ~~ THEN REPLY @164 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIBBERLING)
RACE(myself,KOBOLD)~ THEN BEGIN 165 // from:
  SAY @165 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,SPIDER)
RACE(myself,DRIDER)
~ THEN BEGIN 166 // from:
  SAY @166 
  IF ~~ THEN REPLY @167  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @168 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,SPIDER)
RACE(myself,DRIDER)
~ THEN BEGIN 169 // from:
  SAY @169 
  IF ~~ THEN REPLY @168 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @167 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @170  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @171 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @172  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SPIDER)
RACE(myself,DRIDER)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 173 // from:
  SAY @173
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SPIDER)
RACE(myself,DRIDER)
~ THEN BEGIN 174 // from:
  SAY @174
IF ~~ THEN REPLY @175 GOTO 177
IF ~~ THEN REPLY @176 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SPIDER)
RACE(myself,DRIDER)~ THEN BEGIN 177 // from:
  SAY @177 
IF ~~ THEN REPLY @178 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 180
IF ~~ THEN REPLY @179 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SPIDER)
RACE(myself,DRIDER)~ THEN BEGIN 180 // from:
  SAY @180 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,WYVERN)
~ THEN BEGIN 181 // from:
  SAY @181 
  IF ~~ THEN REPLY @182  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @183 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,WYVERN)
~ THEN BEGIN 184 // from:
  SAY @184 
  IF ~~ THEN REPLY @183 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @182 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @185  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @186 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @187  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,WYVERN)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 188 // from:
  SAY @188
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,WYVERN)
~ THEN BEGIN 189 // from:
  SAY @189
IF ~~ THEN REPLY @190 GOTO 192
IF ~~ THEN REPLY @191 EXIT
END
IF ~InParty(Myself)
RACE(myself,WYVERN)~ THEN BEGIN 192 // from:
  SAY @192 
IF ~~ THEN REPLY @193 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 195
IF ~~ THEN REPLY @194 EXIT
END
IF ~InParty(Myself)
RACE(myself,WYVERN)~ THEN BEGIN 195 // from:
  SAY @195 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,SLIME)
~ THEN BEGIN 196 // from:
  SAY @196 
  IF ~~ THEN REPLY @197  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @198 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,SLIME)
~ THEN BEGIN 199 // from:
  SAY @199 
  IF ~~ THEN REPLY @198 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @197 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @200  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @201 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @202 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,SLIME)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 203 // from:
  SAY @203
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,SLIME)
~ THEN BEGIN 204 // from:
  SAY @204
IF ~~ THEN REPLY @205 GOTO 207
IF ~~ THEN REPLY @206 EXIT
END
IF ~InParty(Myself)
RACE(myself,SLIME)~ THEN BEGIN 207 // from:
  SAY @207 
IF ~~ THEN REPLY @208 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 210
IF ~~ THEN REPLY @209 EXIT
END
IF ~InParty(Myself)
RACE(myself,SLIME)~ THEN BEGIN 210 // from:
  SAY @210 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,FAIRY)
RACE(myself,SUCCUBUS)
~ THEN BEGIN 211 // from:
  SAY @211 
  IF ~~ THEN REPLY @212  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @213 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,FAIRY)
RACE(myself,SUCCUBUS)
~ THEN BEGIN 214 // from:
  SAY @214 
  IF ~~ THEN REPLY @213 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @212 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @215  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @216 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @217 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,FAIRY)
RACE(myself,SUCCUBUS)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 218 // from:
  SAY @218
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,FAIRY)
RACE(myself,SUCCUBUS)
~ THEN BEGIN 219 // from:
  SAY @219
IF ~~ THEN REPLY @220 GOTO 222
IF ~~ THEN REPLY @221 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,FAIRY)
RACE(myself,SUCCUBUS)~ THEN BEGIN 222 // from:
  SAY @222 
IF ~~ THEN REPLY @223 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 225
IF ~~ THEN REPLY @224 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,FAIRY)
RACE(myself,SUCCUBUS)~ THEN BEGIN 225 // from:
  SAY @225 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,DEMONIC)
~ THEN BEGIN 226 // from:
  SAY @226 
  IF ~~ THEN REPLY @227  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @228 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,DEMONIC)
~ THEN BEGIN 229 // from:
  SAY @229 
  IF ~~ THEN REPLY @228 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @227 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @230  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @231 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @232 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,DEMONIC)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 233 // from:
  SAY @233
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,DEMONIC)
~ THEN BEGIN 234 // from:
  SAY @234
IF ~~ THEN REPLY @235 GOTO 237
IF ~~ THEN REPLY @236 EXIT
END
IF ~InParty(Myself)
RACE(myself,DEMONIC)~ THEN BEGIN 237 // from:
  SAY @237 
IF ~~ THEN REPLY @238 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 240
IF ~~ THEN REPLY @239 EXIT
END
IF ~InParty(Myself)
RACE(myself,DEMONIC)~ THEN BEGIN 240 // from:
  SAY @240 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,LYCANTHROPE)
~ THEN BEGIN 241 // from:
  SAY @241 
  IF ~~ THEN REPLY @242  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @243 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,LYCANTHROPE)
~ THEN BEGIN 244 // from:
  SAY @244 
  IF ~~ THEN REPLY @243 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @242 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @245  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @246 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @247 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,LYCANTHROPE)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 248 // from:
  SAY @248
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,LYCANTHROPE)
~ THEN BEGIN 249 // from:
  SAY @249
IF ~~ THEN REPLY @250 GOTO 252
IF ~~ THEN REPLY @251 EXIT
END
IF ~InParty(Myself)
RACE(myself,LYCANTHROPE)~ THEN BEGIN 252 // from:
  SAY @252 
IF ~~ THEN REPLY @253 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 255
IF ~~ THEN REPLY @254 EXIT
END
IF ~InParty(Myself)
RACE(myself,LYCANTHROPE)~ THEN BEGIN 255 // from:
  SAY @255 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,MIND_FLAYER)
~ THEN BEGIN 256 // from:
  SAY @256 
  IF ~~ THEN REPLY @257  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @258 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,MIND_FLAYER)
~ THEN BEGIN 259 // from:
  SAY @259 
  IF ~~ THEN REPLY @258 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @257 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @260  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @261 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @262 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,MIND_FLAYER)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 263 // from:
  SAY @263
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,MIND_FLAYER)
~ THEN BEGIN 264 // from:
  SAY @264
IF ~~ THEN REPLY @265 GOTO 267
IF ~~ THEN REPLY @266 EXIT
END
IF ~InParty(Myself)
RACE(myself,MIND_FLAYER)~ THEN BEGIN 267 // from:
  SAY @267 
IF ~~ THEN REPLY @268 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 270
IF ~~ THEN REPLY @269 EXIT
END
IF ~InParty(Myself)
RACE(myself,MIND_FLAYER)~ THEN BEGIN 270 // from:
  SAY @270 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,VAMPIRE)
RACE(myself,VAMPYRE)
~ THEN BEGIN 271 // from:
  SAY @271 
  IF ~~ THEN REPLY @272  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @273 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,VAMPIRE)
RACE(myself,VAMPYRE)
~ THEN BEGIN 274 // from:
  SAY @274 
  IF ~~ THEN REPLY @273 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @272 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @275  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @276 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @277 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,VAMPIRE)
RACE(myself,VAMPYRE)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 278 // from:
  SAY @278
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,VAMPIRE)
RACE(myself,VAMPYRE)
~ THEN BEGIN 279 // from:
  SAY @279
IF ~~ THEN REPLY @280 GOTO 282
IF ~~ THEN REPLY @281 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,VAMPIRE)
RACE(myself,VAMPYRE)~ THEN BEGIN 282 // from:
  SAY @282 
IF ~~ THEN REPLY @283 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 285
IF ~~ THEN REPLY @284 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,VAMPIRE)
RACE(myself,VAMPYRE)~ THEN BEGIN 285 // from:
  SAY @285 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,RAKSHASA)
~ THEN BEGIN 286 // from:
  SAY @286 
  IF ~~ THEN REPLY @287  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @288 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,RAKSHASA)
~ THEN BEGIN 289 // from:
  SAY @289 
  IF ~~ THEN REPLY @288 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @287 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @290  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @291 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @292 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,RAKSHASA)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 293 // from:
  SAY @293
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,RAKSHASA)
~ THEN BEGIN 294 // from:
  SAY @294
IF ~~ THEN REPLY @295 GOTO 297
IF ~~ THEN REPLY @296 EXIT
END
IF ~InParty(Myself)
RACE(myself,RAKSHASA)~ THEN BEGIN 297 // from:
  SAY @297 
IF ~~ THEN REPLY @298 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 300
IF ~~ THEN REPLY @299 EXIT
END
IF ~InParty(Myself)
RACE(myself,RAKSHASA)~ THEN BEGIN 300 // from:
  SAY @300 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,SAHUAGIN)
RACE(myself,KUO-TOA)
~ THEN BEGIN 301 // from:
  SAY @301 
  IF ~~ THEN REPLY @302  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @303 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,SAHUAGIN)
RACE(myself,KUO-TOA)
~ THEN BEGIN 304 // from:
  SAY @304 
  IF ~~ THEN REPLY @303 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @302 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @305  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @306 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @307 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SAHUAGIN)
RACE(myself,KUO-TOA)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 308 // from:
  SAY @308
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SAHUAGIN)
RACE(myself,KUO-TOA)
~ THEN BEGIN 309 // from:
  SAY @309
IF ~~ THEN REPLY @310 GOTO 312
IF ~~ THEN REPLY @311 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SAHUAGIN)
RACE(myself,KUO-TOA)~ THEN BEGIN 312 // from:
  SAY @312 
IF ~~ THEN REPLY @313 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 315
IF ~~ THEN REPLY @314 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SAHUAGIN)
RACE(myself,KUO-TOA)~ THEN BEGIN 315 // from:
  SAY @315 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(4)
RACE(myself,SHADOW)
RACE(myself,SPECTRE)
RACE(myself,WRAITH)
RACE(myself,MIST)
~ THEN BEGIN 316 // from:
  SAY @316 
  IF ~~ THEN REPLY @317  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @318 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(4)
RACE(myself,SHADOW)
RACE(myself,SPECTRE)
RACE(myself,WRAITH)
RACE(myself,MIST)
~ THEN BEGIN 319 // from:
  SAY @319 
  IF ~~ THEN REPLY @318 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @317 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @320  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @321 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @322 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(4)
RACE(myself,SHADOW)
RACE(myself,SPECTRE)
RACE(myself,WRAITH)
RACE(myself,MIST)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 323 // from:
  SAY @323
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(4)
RACE(myself,SHADOW)
RACE(myself,SPECTRE)
RACE(myself,WRAITH)
RACE(myself,MIST)
~ THEN BEGIN 324 // from:
  SAY @324
IF ~~ THEN REPLY @325 GOTO 327
IF ~~ THEN REPLY @326 EXIT
END
IF ~InParty(Myself)
OR(4)
RACE(myself,SHADOW)
RACE(myself,SPECTRE)
RACE(myself,WRAITH)
RACE(myself,MIST)~ THEN BEGIN 327 // from:
  SAY @327 
IF ~~ THEN REPLY @328 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 330
IF ~~ THEN REPLY @329 EXIT
END
IF ~InParty(Myself)
OR(4)
RACE(myself,SHADOW)
RACE(myself,SPECTRE)
RACE(myself,WRAITH)
RACE(myself,MIST)~ THEN BEGIN 330 // from:
  SAY @330 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,MEPHIT)
RACE(myself,IMP)
~ THEN BEGIN 331 // from:
  SAY @331 
  IF ~~ THEN REPLY @332  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @333 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,MEPHIT)
RACE(myself,IMP)
~ THEN BEGIN 334 // from:
  SAY @334 
  IF ~~ THEN REPLY @333 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @332 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @335  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @336 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @337 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,MEPHIT)
RACE(myself,IMP)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 338 // from:
  SAY @338
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,MEPHIT)
RACE(myself,IMP)
~ THEN BEGIN 339 // from:
  SAY @339
IF ~~ THEN REPLY @340 GOTO 342
IF ~~ THEN REPLY @341 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,MEPHIT)
RACE(myself,IMP)~ THEN BEGIN 342 // from:
  SAY @342 
IF ~~ THEN REPLY @343 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 345
IF ~~ THEN REPLY @344 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,MEPHIT)
RACE(myself,IMP)~ THEN BEGIN 345 // from:
  SAY @345 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,MIMIC)
~ THEN BEGIN 346 // from:
  SAY @346 
  IF ~~ THEN REPLY @347  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @348 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,MIMIC)
~ THEN BEGIN 349 // from:
  SAY @349 
  IF ~~ THEN REPLY @348 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @347 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @350  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @351 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @352 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,MIMIC)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 353 // from:
  SAY @353
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,MIMIC)
~ THEN BEGIN 354 // from:
  SAY @354
IF ~~ THEN REPLY @355 GOTO 357
IF ~~ THEN REPLY @356 EXIT
END
IF ~InParty(Myself)
RACE(myself,MIMIC)~ THEN BEGIN 357 // from:
  SAY @357 
IF ~~ THEN REPLY @358 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 360
IF ~~ THEN REPLY @359 EXIT
END
IF ~InParty(Myself)
RACE(myself,MIMIC)~ THEN BEGIN 360 // from:
  SAY @360 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,GIANT)
RACE(myself,ETTIN)
~ THEN BEGIN 361 // from:
  SAY @361 
  IF ~~ THEN REPLY @362  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @363 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,GIANT)
RACE(myself,ETTIN)
~ THEN BEGIN 364 // from:
  SAY @364 
  IF ~~ THEN REPLY @363 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @362 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @365  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @366 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @367 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIANT)
RACE(myself,ETTIN)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 368 // from:
  SAY @368
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIANT)
RACE(myself,ETTIN)
~ THEN BEGIN 369 // from:
  SAY @369
IF ~~ THEN REPLY @370 GOTO 372
IF ~~ THEN REPLY @371 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIANT)
RACE(myself,ETTIN)~ THEN BEGIN 372 // from:
  SAY @372 
IF ~~ THEN REPLY @373 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 375
IF ~~ THEN REPLY @374 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GIANT)
RACE(myself,ETTIN)~ THEN BEGIN 375 // from:
  SAY @375 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,GOLEM)
RACE(myself,STATUE)
~ THEN BEGIN 376 // from:
  SAY @376 
  IF ~~ THEN REPLY @377  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @378 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,GOLEM)
RACE(myself,STATUE)
~ THEN BEGIN 379 // from:
  SAY @379 
  IF ~~ THEN REPLY @378 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @377 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @380  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @381 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @382 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GOLEM)
RACE(myself,STATUE)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 383 // from:
  SAY @383
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GOLEM)
RACE(myself,STATUE)
~ THEN BEGIN 384 // from:
  SAY @384
IF ~~ THEN REPLY @385 GOTO 387
IF ~~ THEN REPLY @386 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GOLEM)
RACE(myself,STATUE)~ THEN BEGIN 387 // from:
  SAY @387 
IF ~~ THEN REPLY @388 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 390
IF ~~ THEN REPLY @389 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GOLEM)
RACE(myself,STATUE)~ THEN BEGIN 390 // from:
  SAY @390 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,ELEMENTAL)
~ THEN BEGIN 391 // from:
  SAY @391 
  IF ~~ THEN REPLY @392  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @393 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,ELEMENTAL)
~ THEN BEGIN 394 // from:
  SAY @394 
  IF ~~ THEN REPLY @393 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @392 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @395  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @396 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @397 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,ELEMENTAL)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 398 // from:
  SAY @398
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,ELEMENTAL)
~ THEN BEGIN 399 // from:
  SAY @399
IF ~~ THEN REPLY @400 GOTO 402
IF ~~ THEN REPLY @401 EXIT
END
IF ~InParty(Myself)
RACE(myself,ELEMENTAL)~ THEN BEGIN 402 // from:
  SAY @402 
IF ~~ THEN REPLY @403 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 405
IF ~~ THEN REPLY @404 EXIT
END
IF ~InParty(Myself)
RACE(myself,ELEMENTAL)~ THEN BEGIN 405 // from:
  SAY @405 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,GENIE)
~ THEN BEGIN 406 // from:
  SAY @406 
  IF ~~ THEN REPLY @407  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @408 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,GENIE)
~ THEN BEGIN 409 // from:
  SAY @409 
  IF ~~ THEN REPLY @408 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @407 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @410  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @411 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @412 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,GENIE)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 413 // from:
  SAY @413
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,GENIE)
~ THEN BEGIN 414 // from:
  SAY @414
IF ~~ THEN REPLY @415 GOTO 417
IF ~~ THEN REPLY @416 EXIT
END
IF ~InParty(Myself)
RACE(myself,GENIE)~ THEN BEGIN 417 // from:
  SAY @417 
IF ~~ THEN REPLY @418 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 420
IF ~~ THEN REPLY @419 EXIT
END
IF ~InParty(Myself)
RACE(myself,GENIE)~ THEN BEGIN 420 // from:
  SAY @420 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,GITHYANKI)
RACE(myself,TIEFLING)
~ THEN BEGIN 421 // from:
  SAY @421 
  IF ~~ THEN REPLY @422  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @423 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,GITHYANKI)
RACE(myself,TIEFLING)
~ THEN BEGIN 424 // from:
  SAY @424 
  IF ~~ THEN REPLY @423 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @422 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @425  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @426 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @427 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GITHYANKI)
RACE(myself,TIEFLING)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 428 // from:
  SAY @428
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GITHYANKI)
RACE(myself,TIEFLING)
~ THEN BEGIN 429 // from:
  SAY @429
IF ~~ THEN REPLY @430 GOTO 432
IF ~~ THEN REPLY @431 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GITHYANKI)
RACE(myself,TIEFLING)~ THEN BEGIN 432 // from:
  SAY @432 
IF ~~ THEN REPLY @433 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 435
IF ~~ THEN REPLY @434 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,GITHYANKI)
RACE(myself,TIEFLING)~ THEN BEGIN 435 // from:
  SAY @435 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
RACE(myself,YUANTI)
~ THEN BEGIN 436 // from:
  SAY @436 
  IF ~~ THEN REPLY @437  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @438 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
RACE(myself,YUANTI)
~ THEN BEGIN 439 // from:
  SAY @439 
  IF ~~ THEN REPLY @438 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @437 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @440  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @441 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @442 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
RACE(myself,YUANTI)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 443 // from:
  SAY @443
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
RACE(myself,YUANTI)
~ THEN BEGIN 444 // from:
  SAY @444
IF ~~ THEN REPLY @445 GOTO 447
IF ~~ THEN REPLY @446 EXIT
END
IF ~InParty(Myself)
RACE(myself,YUANTI)~ THEN BEGIN 447 // from:
  SAY @447 
IF ~~ THEN REPLY @448 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 450
IF ~~ THEN REPLY @449 EXIT
END
IF ~InParty(Myself)
RACE(myself,YUANTI)~ THEN BEGIN 450 // from:
  SAY @450 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,SOLAR)
RACE(myself,PLANATAR)
~ THEN BEGIN 451 // from:
  SAY @451 
  IF ~~ THEN REPLY @452  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @453 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,SOLAR)
RACE(myself,PLANATAR)
~ THEN BEGIN 454 // from:
  SAY @454 
  IF ~~ THEN REPLY @453 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @452 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @455  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @456 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @457 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SOLAR)
RACE(myself,PLANATAR)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 458 // from:
  SAY @458
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SOLAR)
RACE(myself,PLANATAR)
~ THEN BEGIN 459 // from:
  SAY @459
IF ~~ THEN REPLY @460 GOTO 462
IF ~~ THEN REPLY @461 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SOLAR)
RACE(myself,PLANATAR)~ THEN BEGIN 462 // from:
  SAY @462 
IF ~~ THEN REPLY @463 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 465
IF ~~ THEN REPLY @464 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,SOLAR)
RACE(myself,PLANATAR)~ THEN BEGIN 465 // from:
  SAY @465 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
OR(2)
RACE(myself,ANTISOLAR)
RACE(myself,DARKPLANATAR)
~ THEN BEGIN 466 // from:
  SAY @466 
  IF ~~ THEN REPLY @467  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @468 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
OR(2)
RACE(myself,ANTISOLAR)
RACE(myself,DARKPLANATAR)
~ THEN BEGIN 469 // from:
  SAY @469 
  IF ~~ THEN REPLY @468 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @467 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @470  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @471 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @472 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,ANTISOLAR)
RACE(myself,DARKPLANATAR)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 473 // from:
  SAY @473
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,ANTISOLAR)
RACE(myself,DARKPLANATAR)
~ THEN BEGIN 474 // from:
  SAY @474
IF ~~ THEN REPLY @475 GOTO 477
IF ~~ THEN REPLY @476 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,ANTISOLAR)
RACE(myself,DARKPLANATAR)~ THEN BEGIN 477 // from:
  SAY @477 
IF ~~ THEN REPLY @478 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 480
IF ~~ THEN REPLY @479 EXIT
END
IF ~InParty(Myself)
OR(2)
RACE(myself,ANTISOLAR)
RACE(myself,DARKPLANATAR)~ THEN BEGIN 480 // from:
  SAY @480 
IF ~~ THEN EXIT
END
//
IF ~Global("Waiting","LOCALS",1)
!InParty(Myself)
~ THEN BEGIN 971 // from:
  SAY @971 
  IF ~~ THEN REPLY @972  DO ~SetGlobal("Waiting","LOCALS",0)
JoinParty()~ EXIT
  IF ~~ THEN REPLY @973 /*  ~你得在这里等着。我目前已经没有你的位置。~ */ 
EXIT
END
IF ~Global("Waiting","LOCALS",0)
!InParty(Myself)
~ THEN BEGIN 974// from:
  SAY @974 
  IF ~~ THEN REPLY @973 DO ~
SetGlobal("Waiting","LOCALS",1)~ EXIT
  IF ~~ THEN REPLY @972 DO ~JoinParty()
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
OR(2)
GlobalLT("Chapter","GLOBAL",8)
Global("M_BABG2","GLOBAL",1)
!AreaCheck("AR0406")
~ THEN REPLY @975  DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR0406",689,1127,0)
~ EXIT
  
IF ~!Global("EndOfBG1","GLOBAL",0)
!GlobalLT("Chapter","GLOBAL",8)
GlobalLT("Chapter","GLOBAL",11)
!AreaCheck("AR4500")
!AreaCheck("AR4000")
!AreaCheck("AR6200")
~ THEN REPLY @976 /* ~I'll send you back to the pocket plane... wait for me there.~ */ DO ~
CreateVisualEffectObject("SPDIMNDR",Myself)
SetGlobal("Waiting","LOCALS",1)
Wait(2)
MoveBetweenAreas("AR4500",[2552.1445],2)
~ EXIT
  
IF ~OR(2)
Global("EndOfBG1","GLOBAL",0)
Global("M_BABG1","GLOBAL",1)
!AreaCheck("ARD006")
!AreaCheck("ARD007")
!AreaCheck("ARD008")
!AreaCheck("ARD009")
!AreaCheck("ARD010")
!AreaCheck("ARD011")
!AreaCheck("ARD012")
!AreaCheck("ARD013")
!AreaCheck("ARD014")
!AreaCheck("ARD015")
!AreaCheck("ARD016")
!AreaCheck("ARU008")
!AreaCheck("ARU009")
!AreaCheck("ARW500")
!AreaCheck("ARW501")
!AreaCheck("ARW502")
!AreaCheck("ARW503")
!AreaCheck("ARW504")
!AreaCheck("ARW505")
!AreaCheck("ARW000")
!AreaCheck("ARW001")
!AreaCheck("ARW002")
!AreaCheck("ARW003")
!AreaCheck("ARW004")
!AreaCheck("ARW005")
!AreaCheck("ARW006")
!AreaCheck("ARW007")
!AreaCheck("ARW008")
!AreaCheck("ARW009")
!AreaCheck("ARW010")
!AreaCheck("ARW011")
!AreaCheck("ARW012")
!AreaCheck("AR6515")
!AreaCheck("AR6519")
!AreaCheck("AR6560")
!AreaCheck("AR6801")
~ THEN REPLY @977 DO ~
SetGlobal("Waiting","LOCALS",1)
EscapeAreaMove("AR6801",311,715,0)
~ EXIT
END
IF ~InParty(Myself)
HappinessLT(Myself,-290)
GlobalLT("M_RNPC","LOCALS",85)
Global("Waiting","LOCALS",0)
~ THEN BEGIN 978 // from:
  SAY @978
  IF ~~ THEN DO ~LeaveParty()
ChangeAIScript("",DEFAULT)
SetGlobal("Waiting","LOCALS",1)
~
EXIT
END
IF ~InParty(Myself)
~ THEN BEGIN 979// from:
  SAY @979
IF ~~ THEN REPLY @980 GOTO 982
IF ~~ THEN REPLY @981 EXIT
END
IF ~InParty(Myself)
~ THEN BEGIN 982 // from:
  SAY @982 
IF ~~ THEN REPLY @983 DO~ChangeAIScript("",OVERRIDE)
ChangeAIScript("M_RNPCR",SPECIFICS)
ApplySpellRES("M_rPCBAG",Myself)
~ GOTO 985
IF ~~ THEN REPLY @984 EXIT
END
IF ~InParty(Myself)
~ THEN BEGIN 985 // from:
  SAY @985 
IF ~~ THEN EXIT
END