// TMW2 Script
// Authors:
//  Jesusalva
//
// Originally an Evol script authored by:
//    Ablu, Alastrim and Reid
//
// Description:
//    Doors NPCs.

002-2,33,23,0	script	0022#DoorUpwards	NPC_HIDDEN,0,0,{

OnTouch:
    if (mobcount("002-2","all") > 0) goto L_Warn;

    goto L_Warp;

L_Warn:
    .@q = getq(ShipQuests_Peter);
    if (.@q >= 15) goto L_Warp;

    mesn "Narrator";
    mesc l("There are still some monsters left! Do you want to abort the quest?");
    next;

    if (askyesno() == ASK_YES)
        goto L_Warp;

    slide 33, 25;
    closeclientdialog;
    close;

L_Warp:
    if (LOCATION$ == "")
        warp "002-1", 35, 26;
    else
        warp "002-1@"+LOCATION$, 35, 26;

    deltimer("Peter::OnLowTime");
    deltimer("Peter::OnTimeout");
    closeclientdialog;
    close;
}

002-2,43,25,0	script	#Alige0022	NPC_ALIGE_BARREL,{
    npctalkonce l("This barrel seems suspicious...");
    end;
}