path: root/world/map/npc/013-2/notes.txt

//

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

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

013-2.gat,27,21,0|script|Mirror|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|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|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|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|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|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|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|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;
}