//
013-2.gat,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.gat,30,32,0|script|Note#wiz|400,
{
mes "Please do not open.";
close;
}
013-2.gat,38,20,0|script|Saying#wiz|400,
{
mes "The early bird catcheth the worm.";
close;
}
013-2.gat,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 @style, rand(20);
set @color, rand(12);
setlook LOOK_HAIR_STYLE, @style + 1;
setlook LOOK_HAIR_COLOR, @color + 1;
close;
}
// Warp to north-eastern woods
013-2.gat,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;
warp "013-1.gat",128,28;
close;
}
// Warp to Indian in south-eastern desert
013-2.gat,27,24,0|script|Spell#wiz2|400,
{
mes "You read: \"A red-coloured fellow smoking his pipe - down in the desert - that's what I like!\"";
next;
mes "You feel the floor disappear below your feet...";
next;
warp "006-1.gat",33,93;
if (QUEST_MIRIAM_start != 0) goto L_cheat;
close;
// If you try to use the notes to warp to pachua the quest will fail.
L_cheat:
set QUEST_MIRIAM_cheat, 1;
set QUEST_MIRIAM_run, gettimetick(2) - QUEST_MIRIAM_start;
set 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...";
close;
}
// Warp to snow area
013-2.gat,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.gat",102,77;
goto L_Close;
L_DeepCave:
warp "031-3.gat",135,163;
goto L_Close;
L_Cave:
warp "031-3.gat",37,213;
goto L_Close;
L_Close:
set @dest, 0;
close;
}
// Warp to Dimond
013-2.gat,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;
warp "010-2.gat",34,42;
close;
}
// Warp to mines level 2
013-2.gat,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;
warp "013-3.gat",127,70;
close;
}
// Death
013-2.gat,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;
heal -Hp, 0;
close;
}
// Naked
013-2.gat,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;
}