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.";
    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;
    if (QUEST_MIRIAM_start != 0)
        goto L_Cheat;
    goto L_Warp;

L_Cheat:
    QUEST_MIRIAM_cheat = 1;
    QUEST_MIRIAM_run = gettimetick(2) - QUEST_MIRIAM_start;
    QUEST_MIRIAM_start = 0;
    message strcharinfo(0), "You were supposed to actually run to this place. You are not sure if this is going to work for Miriam...";
    goto L_Warp;

L_Warp:
    @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;
    heal -Hp, 0;
    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;
}