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

IF
	Global("DeSpawnCreature","AR1000",0)
THEN
	RESPONSE #100
		SetGlobal("DeSpawnCreature","AR1000",1)
		CreateCreature("DeSTO#01",[2644.1058],0) // Elric Dartsman
		Continue()
END

IF
	Exists(Player1)
	!Global("DGWizardExist","AR1000",1)
THEN
	RESPONSE #100
		SetGlobal("DGWizardExist","AR1000",1)
		CreateCreature("0xWIZDG",[2980.1244],3) // Mago Misterioso
		Continue()
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIBlac") // Colore Nero
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIBlac") // Colore Nero
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIBlue") // Colore Blu
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIBlue") // Colore Blu
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIGold") // Colore Oro
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIGold") // Colore Oro
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIGray") // Colore Grigio
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIGray") // Colore Grigio
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIGree") // Colore Verde
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIGree") // Colore Verde
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIRed") // Colore Rosso
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIRed") // Colore Rosso
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGISilv") // Colore Argento
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGISilv") // Colore Argento
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIViol") // Colore Viola
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIViol") // Colore Viola
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIYell") // Colore Giallo
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIYell") // Colore Giallo
END

IF
	AreaCheck("AR1000")
	PartyHasItem("DGIAmbe") // Colore Ambra
	Global("DGColoursDream","GLOBAL",30)
THEN
	RESPONSE #100
		TakePartyItem("DGIAmbe") // Colore Ambra
		GiveItemCreate("DGIAmbe2",Player1,0,0,0) // Colore Ambra
		DisplayStringHead(Player1,129449) // Quando raggiungi i Reami Superiori, la luce avvolge la Rosa d'Ambra, che inizia a fiorire.
END

IF
	GlobalGT("DGColoursDream","GLOBAL",10)
	AreaCheck("AR1000")
	Global("HideDG","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("HideDG","GLOBAL",1)
		HideAreaOnMap("ARLDV1")
END

IF
	Global("O#CrLynnQuest","GLOBAL",9)
	Global("O#CrLynnQuestSpawn9","GLOBAL",0)
THEN
	RESPONSE #100
		CreateCreature("O#CrSoph",[2729.3507],0) // Lady Sofia
		SetGlobal("O#CrLynnQuestSpawn9","GLOBAL",1)
END

IF
	Global("CbAngryVillagersRevolt","GLOBAL",2)
	OR(2)
		GlobalGT("CbPartySidedSoldiers","AR1000",0)
		GlobalGT("CbPartySidedVillagers","AR1000",0)
THEN
	RESPONSE #100
		SetGlobal("CbAngryVillagersRevolt","GLOBAL",3)
		Continue()
END

IF
	Global("CbPartyEscapedUnderdark","GLOBAL",1)
	Global("CbAngryVillagersRevolt","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("CbAngryVillagersRevolt","GLOBAL",1)
		CreateCreature("CBAVRCWa",[2509.396],10) // Stregone Incappucciato
		CreateCreature("CBAVRCWb",[2568.425],12) // Stregone Incappucciato
		CreateCreature("CBAVRCWc",[2525.432],2) // Stregone Incappucciato
		CreateCreature("m05pcspy",[2536.402],0) // No such index
		CreateCreature("CBAVRVLa",[2462.331],5) // Paesano Arrabbiato
		CreateCreature("CBAVRVLc",[2538.307],6) // Paesano Arrabbiato
		CreateCreature("CBAVRVLd",[2605.345],8) // Paesano Arrabbiato
		CreateCreature("CBAVRVLe",[2403.384],3) // Paesano Arrabbiato
		CreateCreature("CBAVRVLd",[2420.412],1) // Paesano Arrabbiato
		CreateCreature("CBAVRVLb",[2409.453],0) // Paesano Arrabbiato
		CreateCreature("CBAVRVLc",[2439.498],15) // Paesano Arrabbiato
		CreateCreature("CBAVRVLe",[2502.471],0) // Paesano Arrabbiato
		CreateCreature("CBAVRVLd",[2518.510],12) // Paesano Arrabbiato
		CreateCreature("CBAVRVLc",[2597.486],14) // Paesano Arrabbiato
		CreateCreature("CBAVRVLf",[2666.427],9) // Paesano Arrabbiato
		CreateCreature("CBAVRVLe",[2625.335],10) // Paesano Arrabbiato
		CreateCreature("CBAVRVLc",[2683.371],8) // Paesano Arrabbiato
		CreateCreature("CBAVRSLa",[2328.498],0) // Soldato di Amn
		CreateCreature("CBAVRSLb",[2374.561],0) // Soldato di Amn
		CreateCreature("CBAVRSLc",[2522.573],0) // Soldato di Amn
		CreateCreature("CBAVRSLd",[2731.535],0) // Soldato di Amn
		CreateCreature("CBAVRSLa",[2759.403],0) // Soldato di Amn
		CreateCreature("CBAVRSLa",[2710.265],0) // Soldato di Amn
		CreateCreature("CBAVRSLa",[2486.151],0) // Soldato di Amn
		CreateCreature("CBAVRSLb",[2550.148],0) // Soldato di Amn
		CreateCreature("CBAVRSLc",[2343.270],0) // Soldato di Amn
		CreateCreature("CBAVRSLe",[2444.603],0) // Legionario dell'Amn
		CreateCreature("CBAVRSLf",[2742.318],0) // Legionario dell'Amn
		CreateCreature("CBAVRSLf",[2416.227],0) // Legionario dell'Amn
		CreateCreature("CBAVRSLf",[2605.210],0) // Legionario dell'Amn
		CreateCreature("CBAVRSLf",[2584.563],0) // Legionario dell'Amn
		CreateCreature("CBAVRSLf",[2652.538],0) // Legionario dell'Amn
		CreateCreature("CBAVRSLg",[2519.606],0) // Centurione dell'Amn
		Wait(1)
		Continue()
END

IF
	OR(2)
		GlobalGT("BodhiJob","GLOBAL",3)
		GlobalGT("CbTalkedGaelan","GLOBAL",1)
	Global("CbTaxAnnouncement","GLOBAL",0)
	!Exists("CBTAXCVA")
THEN
	RESPONSE #100
		SetGlobal("CbTaxAnnouncement","GLOBAL",1)
		CreateCreatureOffScreen("CBTAXCVA",0) // Servitore Civile - Impiegato
		Continue()
END

IF
	Global("CbTaxAnnouncement","GLOBAL",2)
	Global("CbTaxAnnouncementArea","AR1000",0)
THEN
	RESPONSE #100
		ClearAllActions()
		SetGlobal("CbTaxAnnouncementArea","AR1000",1)
		StartCutSceneMode()
		StartCutScene("CBCUTTXa")
		Continue()
END

IF
	Global("Cb_CowlsKillPC","AR1000",1)
	NumCreatureVsPartyLT("CBSCCWEN",3)
THEN
	RESPONSE #100
		CreateCreatureOffScreen("CBSCCWEN",0) // Stregone Incappucciato
		CreateCreatureOffScreen("CBSCCWEN",0) // Stregone Incappucciato
		CreateCreatureOffScreen("CBSCCWEN",0) // Stregone Incappucciato
		CreateCreatureOffScreen("CBSCCWEN",0) // Stregone Incappucciato
		CreateCreatureOffScreen("CBSCCWEN",0) // Stregone Incappucciato
		CreateCreatureOffScreen("CBSCCWEN",0) // Stregone Incappucciato
		CreateCreatureOffScreen("CBSCCWEN",0) // Stregone Incappucciato
		Continue()
END

IF
	OR(7)
		Class(Player1,MAGE)
		Class(Player1,FIGHTER_MAGE)
		Class(Player1,CLERIC_MAGE)
		Class(Player1,MAGE_THIEF)
		Class(Player1,SORCERER)
		Class(Player1,FIGHTER_MAGE_THIEF)
		Class(Player1,FIGHTER_MAGE_CLERIC)
	LevelGT(Player1,9)
	Global("CbDearPrudence","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("CbDearPrudence","GLOBAL",1)
		CreateCreatureOffScreen("CBRYBERG",6) // Ryberg
		Continue()
END

IF
	GlobalLT("CbSilenceOrSaveMadame","GLOBAL",2)
	Global("CbCowlClientsSpawned","AR1000",0)
THEN
	RESPONSE #100
		IncrementGlobal("CbSilenceOrSaveMadame","GLOBAL",1)
		SetGlobal("CbCowlClientsSpawned","AR1000",1)
		CreateCreature("CBSCCW01",[2264.1490],15) // Stregone Incappucciato
		CreateCreature("CBSCCW02",[2292.1539],10) // Stregone Incappucciato
		Continue()
END

IF
	Global("CbAngryVillagersRevolt","GLOBAL",4)
THEN
	RESPONSE #100
		ActionOverride("m05pcspy",EscapeAreaDestroy(90))
		Continue()
END

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

IF
	Global("CerndBaby","GLOBAL",1)
	Global("CerndBabyTake","AR1000",0)
THEN
	RESPONSE #100
		SetGlobal("CerndBabyTake","AR1000",1)
		TakePartyItem("misc8t") // Il bambino di Cernd
		DestroyItem("misc8t") // Il bambino di Cernd
END

IF
	SpellCast([PC],0)
	!GlobalTimerNotExpired("SpellsBad","GLOBAL")
	Global("BribedCowled","GLOBAL",0)
	GlobalLT("CowledWarning","GLOBAL",7)
THEN
	RESPONSE #100
		SetInterrupt(FALSE)
		CreateVisualEffectObject("spdimndr",LastTrigger)
		Wait(1)
		CreateCreatureObject("COWENF2",LastTrigger,0,0,0) // Tutore Incappucciato
		SetInterrupt(TRUE)
		SetGlobalTimer("SpellsBad","GLOBAL",FIVE_TURNS)
END

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

IF
	Global("TerreceSpawn","GLOBAL",1)
	Global("TalkedToCorneil","GLOBAL",1)
	!Dead("Ployer")
THEN
	RESPONSE #100
		SetGlobal("TerreceSpawn","GLOBAL",2)
		CreateCreature("TERRECE",[3068.945],0) // Terrece
END

IF
	GlobalGT("SaerkPlot","GLOBAL",0)
	InParty("Anomen")
	Global("UnlockCorDoor","AR1000",0)
THEN
	RESPONSE #100
		SetGlobal("UnlockCorDoor","AR1000",1)
		Unlock("DOOR1001")
END

IF
	Global("AnomenIsEnemy","GLOBAL",1)
	Global("UnlockCorDoor","AR1000",0)
THEN
	RESPONSE #100
		SetGlobal("UnlockCorDoor","AR1000",1)
		Unlock("DOOR1001")
END

IF
	Global("AnomenLeavesAngry","GLOBAL",1)
	Global("CloseCorDoor","AR1000",0)
THEN
	RESPONSE #100
		SetGlobal("CloseCorDoor","AR1000",1)
		CloseDoor("DOOR1001")
		Lock("DOOR1001")
END

IF
	OR(2)
		TimeLT(DAWN_START)
		TimeGT(18)
	Global("LockedDoor1005","AR1000",0)
THEN
	RESPONSE #100
		SetGlobal("LockedDoor1005","AR1000",1)
		Lock("DOOR1005")
END

IF
	TimeGT(5)
	TimeLT(19)
	Global("LockedDoor1005","AR1000",1)
THEN
	RESPONSE #100
		SetGlobal("LockedDoor1005","AR1000",0)
		Unlock("DOOR1005")
END

IF
	GlobalGT("AnomenCor","GLOBAL",0)
	Global("AnomenBreaksIn","AR1000",0)
	!Dead("delryng1")
THEN
	RESPONSE #100
		SetGlobal("AnomenBreaksIn","AR1000",1)
		ActionOverride("delryng1",Kill(Myself))
END

IF
	GlobalGT("SpawnBarg","GLOBAL",0)
	Global("IsaeaDoorUnlocked","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("IsaeaDoorUnlocked","GLOBAL",1)
		Unlock("Door1009")
END

IF
	Global("dd0300x1","GLOBAL",4)
	InParty("viconia")
THEN
	RESPONSE #100
		SetGlobal("dd0300x1","GLOBAL",5)
		SetGlobal("raperev","GLOBAL",1)
		SetGlobal("oldinfox","GLOBAL",1)
		ActionOverride("viconia",StartDialog("raperev",Player1))
END

IF
	Global("dd0300x1","GLOBAL",4)
	!InParty("viconia")
THEN
	RESPONSE #100
		SetGlobal("dd0300x1","GLOBAL",5)
		SetGlobal("oldinfox","GLOBAL",1)
END

IF
	Global("oldinfox","GLOBAL",1)
THEN
	RESPONSE #100
		CreateCreatureObject("zprize4",Player1,0,0,0) // Ladro Tenebroso
		SetGlobal("oldinfox","GLOBAL",2)
END

IF
	Global("raperev","GLOBAL",6)
THEN
	RESPONSE #100
		StartCutSceneMode()
		StartCutScene("revburn2")
END

IF
	Gender(Player1,FEMALE)
	Global("raperev","GLOBAL",7)
THEN
	RESPONSE #100
		SetGlobal("raperev","GLOBAL",8)
		ActionOverride("viconia",StartDialog("vicyrapT",Player1))
END

IF
	Global("vicylovinL","GLOBAL",1)
THEN
	RESPONSE #100
		FadeToColor([20.0],0)
		Wait(2)
		StartCutSceneMode()
		StartCutScene("vicythxl")
END

IF
	Global("sharplot","GLOBAL",0)
THEN
	RESPONSE #100
		CreateCreature("sharthug",[2529.304],4) // Tyrian
		SetGlobal("sharplot","GLOBAL",1)
END

IF
	Global("Piggg","AR1000",0)
	XPGT(Player1,999999)
	ReputationGT(Player1,13)
THEN
	RESPONSE #100
		CreateCreature("Biggs",[2986.1116],5) // Biggs
		SetGlobal("Piggg","AR1000",1)
END

IF
	Global("Crecrie","AR1000",0)
THEN
	RESPONSE #100
		CreateCreature("TellAre1",[2214.862],13) // Strillone cittadino
		SetGlobal("Crecrie","AR1000",1)
END

IF
	Global("ViconiaImport","GLOBAL",0)
	Global("ViconiaPartyBG1","GLOBAL",1)
THEN
	RESPONSE #100
		ReallyForceSpellRES("BGVIPORT","Viconia") // No such index
		ActionOverride("Viconia",SetDialog("VICONI"))
		ActionOverride("Viconia",SetNumTimesTalkedTo(0))
		ActionOverride("Viconia",ChangeAIScript("Viconia",OVERRIDE))
		ActionOverride("Viconia",ChangeAIScript("initrg10",CLASS))
		ActionOverride("Viconia",ChangeAIScript("VICX",GENERAL))
		ActionOverride("Viconia",ChangeAIScript("vicx",RACE))
		ActionOverride("Viconia",ChangeAIScript("SBTVIC",DEFAULT))
		SetGlobal("ViconiaImport","GLOBAL",1)
END

IF
	!Dead("Viconia")
	Global("ViconiaPartyBG1","GLOBAL",0)
	Global("ViconiaImport","GLOBAL",0)
	LevelLT(Player1,8)
THEN
	RESPONSE #100
		SetGlobal("ViconiaImport","GLOBAL",1)
		CreateCreature("VICONI6",[1821.1081],11) // Viconia
		SetGlobal("SPRITE_IS_DEADVICONIA","GLOBAL",0)
		ActionOverride("Viconia",MakeGlobal())
END

IF
	!Dead("Viconia")
	Global("ViconiaPartyBG1","GLOBAL",0)
	Global("ViconiaImport","GLOBAL",0)
	Level(Player1,8)
THEN
	RESPONSE #100
		SetGlobal("ViconiaImport","GLOBAL",1)
		CreateCreature("VICONI8",[1821.1081],11) // Viconia
		SetGlobal("SPRITE_IS_DEADVICONIA","GLOBAL",0)
		ActionOverride("Viconia",MakeGlobal())
END

IF
	!Dead("Viconia")
	Global("ViconiaPartyBG1","GLOBAL",0)
	Global("ViconiaImport","GLOBAL",0)
	OR(2)
		Level(Player1,9)
		Level(Player1,10)
THEN
	RESPONSE #100
		SetGlobal("ViconiaImport","GLOBAL",1)
		CreateCreature("VICONI9",[1821.1081],11) // Viconia
		SetGlobal("SPRITE_IS_DEADVICONIA","GLOBAL",0)
		ActionOverride("Viconia",MakeGlobal())
END

IF
	!Dead("Viconia")
	Global("ViconiaPartyBG1","GLOBAL",0)
	Global("ViconiaImport","GLOBAL",0)
	OR(2)
		Level(Player1,11)
		Level(Player1,12)
THEN
	RESPONSE #100
		SetGlobal("ViconiaImport","GLOBAL",1)
		CreateCreature("VICONI11",[1821.1081],11) // Viconia
		SetGlobal("SPRITE_IS_DEADVICONIA","GLOBAL",0)
		ActionOverride("Viconia",MakeGlobal())
END

IF
	!Dead("Viconia")
	Global("ViconiaPartyBG1","GLOBAL",0)
	Global("ViconiaImport","GLOBAL",0)
	LevelGT(Player1,12)
THEN
	RESPONSE #100
		SetGlobal("ViconiaImport","GLOBAL",1)
		CreateCreature("VICONI13",[1821.1081],11) // Viconia
		SetGlobal("SPRITE_IS_DEADVICONIA","GLOBAL",0)
		ActionOverride("Viconia",MakeGlobal())
END

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

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

IF
	!GlobalTimerNotExpired("TSPickAR1000","AR1000")
	TimeGT(8)
	TimeLT(16)
THEN
	RESPONSE #100
		SetGlobalTimer("TSPickAR1000","AR1000",4320)
		CreateCreature("TSPick1",[2545.625],14) // Nobiluomo
		CreateCreature("TSPick2",[2506.1135],6) // Nobildonna
		CreateCreature("TSPick1",[3172.1580],14) // Nobiluomo
		CreateCreature("TSPick2",[2045.2990],6) // Nobildonna
		CreateCreature("TSPick1",[4118.3397],14) // Nobiluomo
END

IF
	Global("TSSpawnGuards","AR1000",0)
	OR(5)
		Global("HanzThief","GLOBAL",5)
		Global("MilphThief","GLOBAL",5)
		Global("KretorThief","GLOBAL",5)
		Global("MorsaThief","GLOBAL",5)
		Global("VariaThief","GLOBAL",5)
THEN
	RESPONSE #100
		SetGlobal("TSSpawnGuards","AR1000",1)
		CreateCreature("TSGrd02",[830.1177],2) // Tutore Incappucciato
		CreateCreature("TSGrd02",[892.1223],2) // Tutore Incappucciato
		CreateCreature("TSGrd01",[910.1283],2) // Legionario dell'Amn
		CreateCreature("TSGrd01",[774.1178],2) // Legionario dell'Amn
		CreateCreature("TSGrd00",[794.1261],2) // Centurione dell'Amn
END

IF
	Global("TSSpawnGuards","AR1000",1)
	!Global("HanzThief","GLOBAL",5)
	!Global("MilphThief","GLOBAL",5)
	!Global("KretorThief","GLOBAL",5)
	!Global("MorsaThief","GLOBAL",5)
	!Global("VariaThief","GLOBAL",5)
THEN
	RESPONSE #100
		SetGlobal("TSSpawnGuards","AR1000",0)
END

IF
	InParty("Haerdalis")
	Global("DalisGardens","GLOBAL",0)
	CombatCounter(0)
	Global("DeepGardenTasksTscript","GLOBAL",1)
THEN
	RESPONSE #100
		SetGlobal("DalisGardens","GLOBAL",1)
		Wait(1)
		ActionOverride("Haerdalis",StartDialog("HAERDAJ",Player1))
END

IF
	Global("E_SpawnMystigan","GLOBAL",0)
THEN
	RESPONSE #100
		CreateCreature("E_Mystig",[2435.2550],10) // Mystigan
		SetGlobal("E_SpawnMystigan","GLOBAL",1)
END