path: root/npc/000-2-2/doors.txt

// Evol scripts.
// Authors:
//		Reid
//		Ablu
// Description:
//    Rat killer NPC

000-2-2.gat,48,29,0,1	script	DoorUpwards	0,0,0,{

OnTouch:
	set @q, geta4(ShipQuests, ShipQuests_Peter);
	if (@q == 1 || @q == 2) goto l_Check;
	goto l_Warp;

l_Check:
	if (getmapmobs("000-2-2.gat") > 0) goto l_Warn;
	seta4 ShipQuests, ShipQuests_Peter, @q+2;
	goto l_Warp;

l_Warn:
	mesn;
	mesq l("There are still some rats left! Do you want to abort the quest?");
	menu
	  l("Yes."), l_Warp,
	  l("No."), -;
	warp "000-2-2", 48, 28;
	close;

l_Warp:
	warp "000-2-1", 61, 35;
	close;
}

000-2-2.gat,24,31,0,1	script	AreaNPC	0,0,0,{

OnTouch:

	mesq l("This door seems locked");
	close;

}