013-2,23,32,0	script	Motto#wiz	NPC400,{
    mes "Mid pleasures and palaces though we may roam,";
    mes "Be it ever so humble, there's no place like home.";
    close;
}

013-2,30,32,0	script	Note#wiz	NPC400,{
    mes "Please do not open.";
    close;
}

013-2,38,20,0	script	Saying#wiz	NPC400,{
    mes "The early bird catcheth the worm.";
    if (!getvaultid()) close; // Close this mirror lake
    if (get_nibble(##03_TMWQUEST, 0) < 2) close; // Not yet authorized
    mesc l("Should we recite this backward to travel to a different world? If yes, thinking on what?");
    select
        l("Leave it be."),
        rif(get_nibble(##03_TMWQUEST, 0) >= 2, l("Think on Mouboos and Cindy problems"));
    mes "";
    switch (@menu) {
    case 2: MirrorLakeSendTo(MLP_MOUBOOTAUR, 0); break;
    }
    close;
}

013-2,27,21,0	script	Mirror#wiz	NPC400,{
    mes "You say: \"Mirror mirror on the wall, who has the nicest haircut of them all?\"";
    next;
    mes "\"Oh fair adventurer, your hair indeed looks nice. But wouldn't it look much better, after I have rolled my dice?\"";
    next;
    mes "Your looks suddenly change...";
    next;
    @fixedMirror = 1;
    callfunc "useMirror";
    close;
}

013-2,25,23,0	script	Spell#wiz1	NPC400,{
    mes "You read: \"I see trees of green, red roses too. I see them bloom for me and you. And I think to myself: \'What a wonderful world\'\"";
    next;
    mes "You think: \"Huh?\"";
    next;
    mes "The spell fulfills its inevitable purpose...";
    next;
    @dest = rand(BaseLevel);
    if (@dest < 10)
        goto L_PlaceOne;
    if ((@dest >= 10) && (@dest <= 50))
        goto L_PlaceTwo;
    goto L_PlaceThree;

L_PlaceOne:
    warp "013-1",128,28;
    goto L_close;

L_PlaceTwo:
    warp "016-1",62,89;
    goto L_close;

L_PlaceThree:
    warp "014-1",33,35;
    goto L_close;

L_close:
    @dest = 0;
    close;
}

013-2,27,24,0	script	Spell#wiz2	NPC400,{
    mes "You read: \"You must not fear, for it is the mind-killer. That and sharp pointy things.\"";
    next;
    mes "You feel the floor disappear below your feet...";
    next;
    callfunc "MiriamCheat";
    @dest = rand(BaseLevel);
    if (@dest < 10)
        goto L_PlaceOne;
    if ((@dest >= 10) && (@dest <= 50))
        goto L_PlaceTwo;
    goto L_PlaceThree;

L_PlaceOne:
    warp "006-1",83,60;
    goto L_close;

L_PlaceTwo:
    warp "006-1",77,22;
    goto L_close;

L_PlaceThree:
    warp "006-1",33,93;
    goto L_close;

L_close:
    @dest = 0;
    close;
}

013-2,25,27,0	script	Spell#wiz3	NPC400,{
    mes "You read: \"Snow-white flakes and eminent frost - I'll go there, whatever the cost!\"";
    next;
    mes "You feel yourself getting lighter...";
    next;
    @dest = rand(BaseLevel);
    if (@dest < 10)
        goto L_FriendlyPlace;
    if ((@dest >= 10) && (@dest <= 50))
        goto L_DeepCave;
    goto L_Cave;

L_FriendlyPlace:
    warp "019-3",102,77;
    goto L_close;

L_DeepCave:
    warp "031-3",135,163;
    goto L_close;

L_Cave:
    warp "031-3",37,213;
    goto L_close;

L_close:
    @dest = 0;
    close;
}

013-2,27,27,0	script	Spell#wiz4	NPC400,{
    mes "You read: \"People and cosiness, lively and fun - that's where I've gone!\"";
    next;
    mes "The world around you slowly dissolves...";
    next;
    @dest = rand(BaseLevel);
    if (@dest < 10)
        goto L_PlaceOne;
    if ((@dest >= 10) && (@dest <= 50))
        goto L_PlaceTwo;
    goto L_PlaceThree;

L_PlaceOne:
    warp "030-2",88,24;
    goto L_close;

L_PlaceTwo:
    warp "001-2",30,29;
    goto L_close;

L_PlaceThree:
    warp "010-2",34,42;
    goto L_close;

L_close:
    @dest = 0;
    close;
}

013-2,26,28,0	script	Spell#wiz5	NPC400,{
    mes "You read: \"Darkness and legs, eight of them each - I'd rather not go there, but now it's too late...\"";
    next;
    mes "For a moment everything turns black...";
    next;
    @dest = rand(BaseLevel);
    if (@dest < 10)
        goto L_PlaceOne;
    if ((@dest >= 10) && (@dest <= 50))
        goto L_PlaceTwo;
    goto L_PlaceThree;

L_PlaceOne:
    warp "012-4",431,36;
    goto L_close;

L_PlaceTwo:
    warp "013-3",134,54;
    goto L_close;

L_PlaceThree:
    warp "013-3",178,67;
    goto L_close;

L_close:
    @dest = 0;
    close;
}

013-2,21,29,0	script	Spell#wiz6	NPC400,{
    mes "You read: \"Heart stops pumping, breath begone - life is stopping, death has come!\"";
    next;
    mes "You're losing control of your body... everything turns black... while slipping to the floor, you hear a faraway scream... suddenly, you see THE LIGHT!";
    next;
    die();
    close;
}

013-2,28,29,0	script	Spell#wiz7	NPC400,{
    mes "You read: \"Cotton, steel, leather and wool - have I ever seen a greater fool?\"";
    next;
    mes "You suddenly feel naked; you ARE naked!";
    next;
    nude;
    close;
}