//

013-2,23,32,0|script|Motto#wiz|400
{
    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|400
{
    mes "Please do not open.";
    close;
}

013-2,38,20,0|script|Saying#wiz|400
{
    mes "The early bird catcheth the worm.";
    close;
}

013-2,27,21,0|script|Mirror#wiz|400
{
    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;
    set @fixedMirror, 1;
    callfunc "useMirror";
    close;
}

// Warp to wood clearings
013-2,25,23,0|script|Spell#wiz1|400
{
    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;
    set @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:
    set @dest, 0;
    close;
}

// Warp to desert
013-2,27,24,0|script|Spell#wiz2|400
{
    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";
    set @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:
    set @dest, 0;
    close;
}

// Warp to snow area
013-2,25,27,0|script|Spell#wiz3|400
{
    mes "You read: \"Snow-white flakes and eminent frost - I'll go there, whatever the cost!\"";
    next;
    mes "You feel yourself getting lighter...";
    next;
    set @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:
    set @dest, 0;
    close;
}

// Warp to Inns
013-2,27,27,0|script|Spell#wiz4|400
{
    mes "You read: \"People and cosiness, lively and fun - that's where I've gone!\"";
    next;
    mes "The world around you slowly dissolves...";
    next;
    set @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:
    set @dest, 0;
    close;
}

// Warp to mines
013-2,26,28,0|script|Spell#wiz5|400
{
    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;
    set @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:
    set @dest, 0;
    close;
}

// Death
013-2,21,29,0|script|Spell#wiz6|400
{
    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;
    set Hp, 1;
    warp getsavepoint(0), getsavepoint(1), getsavepoint(2);
    close;
}

// Naked
013-2,28,29,0|script|Spell#wiz7|400
{
    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;
}