// 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, 36;
    close;
}

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

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

}