path: root/npc/003-1/tinris.txt

// TMW2 Script
// Author:
//    Saulc
//    Jesusalva
// Description:
//    Part of Anwar Field quest

003-1,66,30,0	script	Tinris	NPC_ELF,{
    .@q=getq(TulimsharQuest_AnwarField);

    if (.@q == 3) goto L_Back;
    if (.@q == 2) goto L_Start;
    if (.@q == 1) goto L_Refuse;

    // Placeholder dialog
    mesn;
    mesq l("We elves have greater affinity for magic than humans.");
    next;
    mesq l("However, our skill growth rate is much smaller than those of humans.");
    next;
    mesq l("In the end, elves would have quite the age to rivalize with human wizards.");
    close;

// READ THE HOLY DIALOGS!!
L_Refuse:
    mesn strcharinfo(0);
    mesq l("Hello! Anwar sent me to get fertilizer to save Tulimshar from famine, could you help me?");
    next;
    mesn;
    mesq l("No.");
    close;

L_Start:
    mesn strcharinfo(0);
    mesq l("Hello, could I help you in exchanger of fertilizer?");
    next;
    mesn;
    mesq l("I like people like you, straight to the subject.");
    next;
    mesn;
    mesq l("The birthday of me and my girlfriend is coming up. Bring me 12 @@ and I'll make the fertilizer for you.", getitemlink(CherryCake));
    setq TulimsharQuest_AnwarField, 3;
    close;

L_Back:
    mesn;
    mesq l("So, did you brought me the cherry cakes?");
    mes "";
    mesn strcharinfo(0);
    if (askyesno() != ASK_YES) {
        close;
    }
    mes "";
    if (countitem("CherryCake") < 12)
        goto L_Lying;

    delitem CherryCake, 12;
    getexp 300, 10;
    setq TulimsharQuest_AnwarField, 3;
    mesn;
    mesq l("Okay, that is very useful. However, I do need a few reagents to make it.");
    next;

    mesq l("Unfinished script, blame Jesusalva, he decided to work on Hurnscald before my cherry cakes.");
    mesq l("And they say I am the greedy one. Hmpf.");
    close;

L_Lying:
    mesn;
    mesq l("Ah, so you think you can fool me?");
    next;
    percentheal -5, -5;
    warp "Save", 0, 0;
    dispbottom l("Ah... Was I warped?");
    closedialog;
    close;

OnInit:
    .@npcId = getnpcid(0, .name$);
    //setunitdata(.@npcId, UDT_HEADTOP, 2929); // TODO: This NPC is an Elf and therefore, CANNOT use NPCEyes.
    setunitdata(.@npcId, UDT_HEADMIDDLE, ForestArmor);
    setunitdata(.@npcId, UDT_HEADBOTTOM, CottonTrousers);
    setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots); // Boots
    setunitdata(.@npcId, UDT_HAIRSTYLE, 3);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 19);

    .sex = G_MALE;
    .distance = 5;
    end;
}