path: root/npc/017-10/airship.txt

// TMW-2 Script.
// Author:
//    Jesusalva
// Notes:
//    Fortress Island South (Lv 70~150 Area)

017-10,63,22,0	script	#ToFortress	NPC_NO_SPRITE,1,0,{
    end;
OnTouch:
    .@q=getq(General_Narrator);
    if (.@q < 20)
        end;

	mesc l(".:: Fortress Island ::."), 1;
	mes "";
    if ($GAME_STORYLINE < 3) {
        mesc l("Travel to this area is impossible, due to the hordes of Monster Armies."), 1;
        mes "";
        mesc l("If only we defeated their generals and put the army in disarray... It would be possible to visit there.");
        close;
    }
    if (BaseLevel < 70) {
        mesc l("This area is only for level 70 upwards."), 1;
        close;
    }
	mesc l("Do you want to go to Fortress Island, where the Monster King lives?!"), 1;
    removespecialeffect(FX_CIRCLE, SELF, getcharid(3)); // FIXME :(
	next;
    mesc l("WARNING: HIGH LEVEL AREA. COME PREPARED."), 1;
    mesc l("Note: This travel takes a whole minute to complete!!");
    mesc l("Note 2: If you leave this plataform, it'll reset!");
    mesc l("Note 3: All maps in Fortress Island have penalty, even towns!");
    next;
    mesc l("BEGIN WARP PROCEDURES?"), 1;
    if (askyesno() == ASK_YES) {
        specialeffect FX_CIRCLE, SELF, getcharid(3);
        addtimer2 70000, "#ToFortress::OnWarper";
        addtimer2 60000, "#ToFortress::OnNotif";
    }
    close;

OnNotif:
    specialeffect FX_MAGIC, SELF, getcharid(3);
    dispbottom l("WARPING IN 10 SECONDS");
    end;

OnWarper:
    removespecialeffect(FX_CIRCLE, SELF, getcharid(3));
    if (getmap() != "017-10")
        end;
    warp "025-2", 97, 119;
    specialeffect FX_SUCCESS, SELF, getcharid(3);
    dispbottom l("You have arrived at Fortress Island.");
    end;
}

017-10,63,28,0	script	#ToFortressAbort	NPC_NO_SPRITE,5,0,{
    end;
OnTouch:
    removespecialeffect(FX_CIRCLE, SELF, getcharid(3));
    atcommand("@refresh"); // FIXME :(
    deltimer "#ToFortress::OnWarper";
    deltimer "#ToFortress::OnNotif";
    end;
}