AR0500.bcs
---------
IF
	Global("A#IM5Quest","GLOBAL",2)
	Global("A#IM5KramSpawn","GLOBAL",0)
	Global("A#IM5Kram2Spawn","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("A#IM5KramSpawn","GLOBAL",1)
		CreateCreature("A#KRAM",[4036.168],0) // Kram
		Continue()
END

IF
	Global("D0SpawnPotion2","GLOBAL",0)
	Global("Reveal0500","AR0500",1)
THEN
	RESPONSE #100
		SetGlobal("D0SpawnPotion2","GLOBAL",1)
		CreateCreature("d0qpmom",[827.3717],6) // Sidhe
		CreateCreature("d0qpjan",[865.3684],5) // Janie
		Continue()
END

IF
	Global("D0SpawnPotion2","GLOBAL",1)
	Global("PotionJob","GLOBAL",5)
THEN
	RESPONSE #100
		SetGlobal("D0SpawnPotion2","GLOBAL",2)
		ActionOverride("D0QPPOTN",MoveToPoint([711.3720]))
END

IF
	Dead("kaypala")
	!Dead("kaypall")
	CombatCounter(0)
	Global("D0Reynald","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("D0Reynald","GLOBAL",1)
		CreateCreatureObjectOffScreen("d0kaypal",Player1,0,0,0) // Reynald de Chatillon
		ActionOverride("d0kaypal",StartDialogueNoSet(Player1))
END

IF
	Global("D0QPSpawnCowled","AR0500",0)
	Global("Reveal0500","AR0500",1)
THEN
	RESPONSE #100
		SetGlobal("D0QPSpawnCowled","AR0500",1)
		CreateCreature("d0qpcow3",[3543.866],0) // Mage
		Continue()
END

IF
	G("J#im8guardchat",3)
	Global("Reveal0500","AR0500",1)
THEN
	RESPONSE #100
		SG("J#im8guardchat",4)
		CreateCreature("J#im8gr2",[4039.276],0) // Carrack
		CreateCreature("J#im8thg",[3000.850],0) // Shadow Thief
		CreateCreature("J#im8thg",[2900.890],0) // Shadow Thief
		CreateCreature("J#im8thg",[2960.910],0) // Shadow Thief
		Continue()
END

IF
	Global("RZAR0500","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("RZAR0500","GLOBAL",1)
		Continue()
END

IF
	Global("DeSpawnItem","AR0500",0)
	Exists("kaypala")
THEN
	RESPONSE #100
		SetGlobal("DeSpawnItem","AR0500",1)
		TakeItemReplace("DeITM043","HALB02","kaypala") // Excellent Halberd
		ActionOverride("kaypala",SelectWeaponAbility(SLOT_WEAPON,0))
		Continue()
END

IF
	Global("DGAlcohExist","AR0500",0)
THEN
	RESPONSE #100
		CreateCreature("0xALCDG",[4881.2169],3) // Barney
		SetGlobal("DGAlcohExist","AR0500",1)
		SmallWait(1)
		Continue()
END

IF
	Global("DGAlcohExist","AR0500",1)
THEN
	RESPONSE #100
		ActionOverride("0xALCDG",MakeGlobal())
		SetGlobal("DGAlcohExist","AR0500",2)
		SmallWait(1)
		Continue()
END

IF
	Global("DGAlcohExist","AR0500",2)
	!GlobalGT("Playhouse","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DGAlcohExist","AR0500",3)
		MoveGlobal("AR0509","0xALCDG",[459.387])
		Continue()
END

IF
	Global("DGAlcohExist","AR0500",2)
	GlobalGT("Playhouse","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("DGAlcohExist","AR0500",3)
		MoveGlobal("AR0522","0xALCDG",[459.387])
		Continue()
END

IF
	Global("O#CrLynnQuest","GLOBAL",6)
	Global("O#CrLynnQuestSpawn6","GLOBAL",0)
THEN
	RESPONSE #100
		CreateCreature("O#CrStee",[3819.2953],0) // Oulav Steros
		CreateCreature("O#CrStG1",[3758.2954],0) // Thug
		CreateCreature("O#CrStG2",[3857.2984],0) // Thug
		SetGlobal("O#CrLynnQuestSpawn6","GLOBAL",1)
END

IF
	AreaCheck("AR0500")
	Global("O#CrLynnAmbush","GLOBAL",1)
	Global("O#CrLynnAmbushSpawn","GLOBAL",0)
THEN
	RESPONSE #100
		CreateCreatureObjectOffset("O#Lynn",Player1,[50.50]) // Lynn
		CreateCreatureObjectOffset("O#CrGoon",Player1,[80.40]) // Assassin
		CreateCreatureObjectOffset("O#CrGoon",Player1,[40.80]) // Assassin
		SetGlobal("O#CrLynnAmbushSpawn","GLOBAL",1)
END

IF
	Global("psRetrievedSpellKeyToggle","GLOBAL",1)
	Global("psSplitterSpawnToggle","GLOBAL",0)
THEN
	RESPONSE #100
		Wait(2)
		SetGlobal("psSplitterSpawnToggle","GLOBAL",1)
		StartCutSceneMode()
		StartCutScene("psCut37")
		Continue()
END

IF
	Global("WishQuest","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("WishQuest","GLOBAL",2)
		CreateCreature("LOUT",[1839.2871],8) // Vittorio
END

IF
	OnCreation()
	Global("Reveal0500","AR0500",0)
THEN
	RESPONSE #100
		SetGlobal("Reveal0500","AR0500",1)
		Explore()
		Continue()
END

IF
	OnCreation()
	!Global("Playhouse","GLOBAL",1)
	Global("firstActivate","AR0500",0)
THEN
	RESPONSE #100
		TriggerActivation("Tran0522",FALSE)
		SetGlobal("firstActivate","AR0500",1)
END

IF
	OnCreation()
	Global("Playhouse","GLOBAL",1)
	Global("firstActivate","AR0500",0)
THEN
	RESPONSE #100
		TriggerActivation("Tran0509",FALSE)
		SetGlobal("firstActivate","AR0500",2)
END

IF
	Global("Playhouse","GLOBAL",1)
	Global("firstActivate","AR0500",1)
THEN
	RESPONSE #100
		TriggerActivation("Tran0509",FALSE)
		TriggerActivation("Tran0522",TRUE)
		SetGlobal("firstActivate","AR0500",2)
END

IF
	SpellCast([PC],0)
	!GlobalTimerNotExpired("SpellsBad","GLOBAL")
	Global("BribedCowled","GLOBAL",0)
	GlobalLT("CowledWarning","GLOBAL",7)
THEN
	RESPONSE #100
		CreateCreatureObjectDoor("COWENF2",LastTrigger,0,0,0) // Cowled Enforcer
		SetGlobalTimer("SpellsBad","GLOBAL",ONE_HOUR)
END

IF
	SpellCast([PC],0)
	Global("BribedCowled","GLOBAL",0)
	GlobalTimerNotExpired("SpellsBad","GLOBAL")
THEN
	RESPONSE #100
		Wait(1)
END

IF
	InParty("Anomen")
	Global("SaerkDoor","AR0500",0)
THEN
	RESPONSE #100
		SetGlobal("SaerkDoor","AR0500",1)
		Unlock("DOOR0504")
		Unlock("DOOR0505b")
END

IF
	!InParty("Anomen")
	Global("SaerkDoor","AR0500",1)
THEN
	RESPONSE #100
		SetGlobal("SaerkDoor","AR0500",0)
		CloseDoor("DOOR0504")
		CloseDoor("DOOR0505b")
		Lock("DOOR0504")
		Lock("DOOR0505b")
END

IF
	Global("TalkedToSethle","GLOBAL",1)
	Global("AmsiSpawn","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("AmsiSpawn","GLOBAL",1)
		CreateCreature("AMSI",[1686.3521],13) // Am-Si
END

IF
	Global("CamRetiEscape","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("CamRetiRun","GLOBAL",1)
		SetGlobal("CamRetiEscape","GLOBAL",2)
END

IF
	Global("GaalSpoke","GLOBAL",1)
	Global("ProphetSpawn","AR0500",0)
THEN
	RESPONSE #100
		SetGlobal("ProphetSpawn","AR0500",1)
		CreateCreature("PROPHET2",[640.3524],0) // Prophet
END

IF
	OR(2)
		Global("KaylFallenPaladinPlot","GLOBAL",1)
		Global("D0FallenMsg","GLOBAL",3)
	Global("KaylFallenSpawn","GLOBAL",0)
THEN
	RESPONSE #100
		CreateCreature("kaypal02",[4867.711],1) // Reynald de Chatillon
		CreateCreature("kaypal03",[4819.621],1) // Fallen Paladin
		CreateCreature("kaypal03",[4853.654],1) // Fallen Paladin
		CreateCreature("kaypal03",[4934.736],1) // Fallen Paladin
		CreateCreature("kaypal03",[4983.751],1) // Fallen Paladin
		CreateCreature("kaysmg01",[4811.745],9) // Rindus
		CreateCreature("kaysmg02",[4634.704],9) // Smuggler
		CreateCreature("kaysmg02",[4850.847],9) // Smuggler
		CreateCreature("kaysmg03",[4577.650],9) // Smuggler
		CreateCreature("kaysmg03",[4509.717],9) // Smuggler
		CreateCreature("kaysmg03",[4678.807],9) // Smuggler
		CreateCreature("kaysmg04",[4526.675],9) // Smuggler
		SetGlobal("KaylFallenSpawn","GLOBAL",1)
END

IF
	Global("Clobsson","GLOBAL",2)
	Global("Creacre","AR0500",0)
THEN
	RESPONSE #100
		CreateCreature("Robemer",[4060.264],12) // Merchant
		SetGlobal("Creacre","AR0500",1)
END

IF
	Global("Crecrie","AR0500",0)
THEN
	RESPONSE #100
		CreateCreature("TellAre3",[333.3203],2) // Town Crier
		SetGlobal("Crecrie","AR0500",1)
END

IF
	Global("CreatinHamm2","GLOBAL",2)
	GlobalTimerExpired("HammCrea3","GLOBAL")
THEN
	RESPONSE #100
		CreateCreature("Hammr2",[1688.2719],9) // Haman
		CreateCreature("HamAra1",[1652.2813],12) // Aragon
		CreateCreature("HamJen1",[1614.2779],2) // Jenave
		CreateCreature("HamRob1",[1616.2741],3) // Rob
		CreateCreature("HamMan1",[1668.2783],7) // Manev
		CreateCreature("HamOlg1",[1644.2759],13) // Olga
		SetGlobal("CreatinHamm2","GLOBAL",3)
END

IF
	Global("Hammermeetings","GLOBAL",2)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		ClearAllActions()
		MoveViewObject("HamMan1",INSTANT)
		ActionOverride("Hammr2",FaceObject("HamMan1"))
		Wait(1)
		ActionOverride("HamMan1",UseItem("POTN10",Myself)) // Potion of Invisibility
		Wait(1)
		MoveViewObject("HamOlg1",VERY_FAST)
		Wait(4)
		ActionOverride("HamOlg1",DestroyItem("SW2H02")) // Excellent Two-Handed Sword
		SmallWait(5)
		ActionOverride("HamOlg1",DisplayStringHead(Myself,106042)) // What!? Where did me sword go?
		Wait(3)
		ActionOverride("HamMan1",DisplayStringHead(Myself,103134)) // Here it is, Olga.
		SmallWait(1)
		ActionOverride("HamOlg1",FaceObject("HamMan1"))
		Wait(3)
		ActionOverride("HamOlg1",EquipMostDamagingMelee())
		ActionOverride("HamOlg1",DisplayStringHead(Myself,106043)) // Dirty thief!
		Wait(3)
		SetGlobal("Hammermeetings","GLOBAL",3)
		SmallWait(1)
		UnhideGUI()
		EndCutSceneMode()
		ActionOverride("Hammr2",StartDialogueNoSet(Player1))
END

IF
	Global("Hammermeetings","GLOBAL",4)
THEN
	RESPONSE #100
		StartCutSceneMode()
		HideGUI()
		MoveViewObject("HamRob1",INSTANT)
		Wait(2)
		CreateVisualEffectObject("SPPOLYMP","HamRob1")
		Wait(2)
		ActionOverride("HamRob1",Polymorph(RABBIT))
		Wait(1)
		ActionOverride("HamRob1",DisplayStringHead(Myself,5251)) // Oops!
		Wait(1)
		ActionOverride("HamOlg1",FaceObject("HamRob1"))
		Wait(1)
		ActionOverride("HamOlg1",DisplayStringHead(Myself,106044)) // Food!
		ActionOverride("Hammr2",FaceObject("HamOlg1"))
		SmallWait(5)
		ActionOverride("HamOlg1",Swing())
		Wait(2)
		ActionOverride("HamOlg1",Kill("HamRob1"))
		Wait(5)
		ActionOverride("HamOlg1",DisplayStringHead(Myself,106045)) // Mmm...Tasty!
		Wait(3)
		ActionOverride("Hammr2",DisplayStringHead(Myself,103247)) // (Not again!) Jenave, Raise Dead...
		Wait(3)
		ActionOverride("HamJen1",FaceObject("HamRob1"))
		ActionOverride("HamJen1",ForceSpell("HamRob1",CLERIC_RAISE_DEAD))
		Wait(8)
		ActionOverride("HamOlg1",DisplayStringHead(Myself,106046)) // WHAA!? Me food came back alive!
		Wait(5)
		ActionOverride("Hammr2",DisplayStringHead(Myself,106047)) // I think itīs best if we leave now...
		Wait(5)
		ActionOverride("Hammr2",EscapeArea())
		ActionOverride("HamOlg1",EscapeArea())
		ActionOverride("HamRob1",EscapeArea())
		ActionOverride("HamAra1",EscapeArea())
		ActionOverride("HamJen1",EscapeArea())
		ActionOverride("HamMan1",EscapeArea())
		SetGlobal("Hammermeetings","GLOBAL",5)
		Wait(1)
		UnhideGUI()
		EndCutSceneMode()
END

IF
	Time(DUSK_END)
	GlobalTimerExpired("A6Sunset","GLOBAL")
THEN
	RESPONSE #100
		StartMovie("DAYNITE")
		SetGlobalTimer("A6Sunset","GLOBAL",ONE_HOUR)
END

IF
	Time(DAWN_END)
	GlobalTimerExpired("A6Sunrise","GLOBAL")
THEN
	RESPONSE #100
		StartMovie("NITEDAY")
		SetGlobalTimer("A6Sunrise","GLOBAL",ONE_HOUR)
END

IF
	!GlobalTimerNotExpired("TSPickAR0500","AR0500")
	TimeGT(8)
	TimeLT(16)
THEN
	RESPONSE #100
		SetGlobalTimer("TSPickAR0500","AR0500",4320)
		CreateCreature("TSPick8",[3736.438],14) // Peasant
		CreateCreature("TSPick4",[3011.1163],6) // Commoner
		CreateCreature("TSPick5",[2543.2418],14) // Sailor
		CreateCreature("TSPick3",[358.3387],6) // Commoner
		CreateCreature("TSPick1",[4839.2126],14) // Nobleman
END

IF
	Global("DL#BWNExists","AR0500",0)
THEN
	RESPONSE #100
		SetGlobal("DL#BWNExists","AR0500",1)
		CreateCreature("DL#BWN",[1124.3241],3) // Branwen
END

IF
	GlobalGT("AnomenDecide","GLOBAL",2)
	OR(2)
		PartyHasItem("ANOHELM") // Delryn Family Helmet
		PartyHasItem("NPSHLD") // Delryn Family Shield +2
	!GlobalTimerNotExpired("G3OSTakeStuff","MYAREA")
THEN
	RESPONSE #100
		CreateCreatureOffScreen("g3osmsgr",0) // Keep Messenger
		SetGlobalTimer("G3OSTakeStuff","MYAREA",TWELVE_HOURS)
END

IF
	Global("TannerMove","GLOBAL",1)
	Global("AlreadySpawned","Ar0500",0)
	!Difficulty(EASIEST)
THEN
	RESPONSE #100
		SetGlobal("AlreadySpawned","Ar0500",1)
		CreateCreature("TanTugn1",[2617.2252],1) // Thug
		CreateCreature("TanTugn1",[2611.2242],1) // Thug
		CreateCreature("TanTugn1",[2447.2322],0) // Thug
		CreateCreature("TanThf01",[2031.2352],1) // Rune Assassin
		CreateCreature("TanThf01",[2948.2452],1) // Rune Assassin
END

IF
	Global("AlreadySpawned","AR0500",1)
	!Difficulty(EASIEST)
	!Difficulty(EASY)
THEN
	RESPONSE #100
		SetGlobal("AlreadySpawned","AR0500",2)
		CreateCreature("TanThf01",[2409.2312],1) // Rune Assassin
		CreateCreature("TanThf01",[2612.2232],1) // Rune Assassin
END

IF
	Global("D0Wilbur","GLOBAL",1)
	GlobalTimerExpired("D0WilburTimer","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("D0Wilbur","GLOBAL",2)
		CreateCreatureObjectOffScreen("d0qpwiwi",Player1,0,0,0) // Wilbur
END

IF
	Global("D0Wilbur","GLOBAL",4)
	GlobalTimerExpired("D0WilburTimer","GLOBAL")
THEN
	RESPONSE #100
		SetGlobal("D0Wilbur","GLOBAL",5)
		CreateCreatureDoor("d0qpwigi",[168.3287],0) // Girl
END

IF
	Global("D0Wilbur","GLOBAL",6)
	GlobalTimerExpired("D0WilburTimer","GLOBAL")
	!Dead("d0qpwima") // Abraxxi
	Exists("d0qpwima")
THEN
	RESPONSE #100
		SetGlobal("D0Wilbur","GLOBAL",7)
		CreateCreatureObjectOffset("d0qpwii1","d0qpwima",[-50.-50]) // No such index
		CreateCreatureObjectOffset("d0qpwii2","d0qpwima",[50.50]) // No such index
		CreateCreatureObjectOffset("d0qpwii2","d0qpwima",[50.-50]) // No such index
		ReputationInc(-3)
END

IF
	PartyHasItem("G3DRINK1") // Bubbling Brew of Malocholis
	Global("G3ScamSaga","AR0500",0)
THEN
	RESPONSE #100
		CreateCreature("G3SCAM",[3112.2147],12) // Scam
		SetGlobal("G3ScamSaga","AR0500",1)
END

IF
	Global("G3Scam","GLOBAL",2)
	Global("G3ScamSaga","AR0500",1)
THEN
	RESPONSE #100
		CreateCreature("G3SCAM",[4109.2832],14) // Scam
		CreateCreature("G3SCAMDG",[4155.2818],14) // Scam's Dog
		GiveItemCreate("G3DRINK1","G3Scam",1,0,0) // Bubbling Brew of Malocholis
		ActionOverride("G3SCAM",DestroyItem("minhp1")) // No such index
		SetGlobal("G3ScamSaga","AR0500",2)
END

------------------------------------------------------------------------------------------------




Creatures:
D0QPCOW1
D0QPCOW2
D0QPCOW3

Script for all three: DOCOWSHT.BCS


IF
	Die()
	Global("P5Drop","LOCALS",0)
	StateCheck(Myself,STATE_FROZEN_DEATH | STATE_EXPLODING_DEATH)
THEN
	RESPONSE #100
		DropInventory()
		SetGlobal("P5Drop","LOCALS",1)
		Continue()
END

IF
	PickPocketFailed([PC])
	Allegiance(Myself,NEUTRAL)
	General(Myself,HUMANOID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(LastTrigger)
	!Allegiance(LastTrigger,FAMILIAR)
THEN
	RESPONSE #100
		StartDialogOverride("RR#PICKP",LastTrigger)
END

IF
	PickPocketFailed([FAMILIAR])
	Allegiance(Myself,NEUTRAL)
	General(Myself,HUMANOID)
	!StateCheck(Myself,CD_STATE_NOTVALID)
	See(LastTrigger)
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		FaceObject(LastTrigger)
		DisplayStringHead(Myself,221986) // Get away from me you filthy creature!
		SetSequence(SEQ_ATTACK)
		ApplySpellRES("RR#FEAR",LastTrigger) // No such index
		SetInterrupt(TRUE)
END

IF
	Name("d0qpcow3",Myself) // Mage
	Global("D0QPSpawnCowled","AR0500",1)
	Range([PC],25)
THEN
	RESPONSE #100
		SetGlobal("D0QPSpawnCowled","AR0500",2)
		ClearAllActions()
		SetCursorState(TRUE)
		MoveViewObject(Myself,FAST)
		Wait(1)
		ForceSpell(Myself,WIZARD_TRUE_DISPEL_MAGIC)
		Wait(2)
		CreateCreatureObjectDoor("d0qpcow1",Myself,0,0,0) // Cowled Enforcer
		CreateCreatureObjectDoor("d0qpcow2",Myself,0,0,0) // Cowled Apprentice
		SetGlobal("D0QSpawnCowled","AR0500",3)
		Continue()
END

IF
	Name("d0qpcow1",Myself) // Cowled Enforcer
	Global("D0QSpawnCowled","AR0500",3)
THEN
	RESPONSE #100
		SetGlobal("D0QSpawnCowled","AR0500",4)
		Wait(1)
		FaceObject("d0qpcow3")
		ActionOverride("d0qpcow3",FaceObject("d0qpcow1"))
		ActionOverride("d0qpcow2",FaceObject("d0qpcow3"))
		Wait(1)
		StartDialogueNoSet("d0qpcow3")
END