summaryrefslogtreecommitdiff
path: root/npc/012-1/bot.txt
blob: 3a6422b7655761d5b9da0191c63722027ec0beb1 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
// TMW2 Script
// Author:
//    Jesusalva
// Description:
//    Introduces the new area ingame
// Quest:
//    TODO: Quest, requires 1× LOFCoin (obtain for free with Pyndragon)
//    Reward: Mouboo Figurine

012-1,82,59,0	script	LOFBot	NPC_PLAYER,{
    .@q=getq(HurnscaldQuest_LOFPass);
    if (rand2(1,5) % 2 == 1) {
        mesn;
        mesq l("Ah, @@ is sooo amazing!", $MOST_HEROIC$);
        next;
    }
    mesn;
    mesq l("Have you ever heard of the [@@http://landoffire.org/|Land Of Fire@@]? It is a really cool game which is being developed by Pyndragon and Pihro!");
    next;
    mesn;
    mesq l("They had a TMWA server, but the Monster King went hyperactive and... Well, it crashed here.");
    if (.@q == 0) goto L_Quest;
    if (.@q == 1) goto L_Report;
    if (.@q == 2) goto L_Report; // To accomodate Pyn's node. Not required.

L_Menu:
    mes "";
    menu
        l("How can I reach the Land Of Fire?"), L_Where,
        l("Tell me about the Land Of Fire."),  L_Fire,
        l("What are the Transcendence Gates?"),  L_Gates,
        l("Thanks for the help."), L_Close;

// TODO: Perhaps it is worth mentioning on JSaves Castle is a Mana Source and thus, magic&skills work better, and weapons work worse?
L_Where:
    mes "";
    mesn;
    mesq l("If you head west, you'll eventually reach the magical Kamelot Castle.");
    next;
    mesn;
    mesq l("Inside it, there'll be a Transcendence Gate.");
    next;
    mesn;
    mesq l("It is a really cool place. You must visit it someday!");
    next;
    goto L_Menu;

L_Fire:
    mes "";
    mesn;
    mesq l("The Land Of Fire Village was the result from the collapse of two worlds. It is a huge village.");
    next;
    mesq l("It have lots of lava caves, and some cool stuff, like the @@, can only be craft there.", getitemlink(SaviorArmor));
    next;
    mesq l("Unique monsters can be found there, and people say about staffs which shoot raw death and doom from it!");
    next;
    mesq l("It's self sufficient economically, and many fairies enjoy travelling there. In fact, rumors says the Fairy Kingdom is near it!");
    next;
    goto L_Menu;

L_Gates:
    mes "";
    mesn;
    mesq l("Ah, you'll find on the Land Of Fire Village four transcendence gates.");
    next;
    mesn;
    mesq l("People from here always look dumbfolded when they walk past them and find themselves somewhere else.");
    next;
    mesn;
    mesq l("There's usually not a lot of things to do past these gates, but some monsters which only lives on the Land of Fire can only be found there!");
    next;
    goto L_Menu;

L_Close:
    closedialog;
    npctalkonce l("Ah, @@ is so amazing!", $MOST_HEROIC$);
    close;

L_Quest:
    mesn;
    mesq l("Actually, could I ask you a favor?");
    next;
    mesn;
    mesq l("I want a %s so badly... Pyndragon, in the forge, the master blacksmith which makes powerful weapons for high levels, can give you one.", getitemlink(LOFCoin));
    next;
    mesn;
    mesq l("Just tell him that I want to reconsider, and that I want the souvenir he offered me when I moved to Hurnscald.");
    next;
    setq HurnscaldQuest_LOFPass, 1;
    goto L_Menu;

L_Report:
    mes l("Did you brought me a %s?", getitemlink(LOFCoin));
    next;
    if (askyesno() == ASK_YES) goto L_Check;
    goto L_Menu;

L_Check:
    if (!countitem(LOFCoin)) goto L_NoItem;
    inventoryplace MoubooFigurine, 1;
    delitem LOFCoin, 1;
    getitem MoubooFigurine, 1;
    getexp 400, 20;
    setq HurnscaldQuest_LOFPass, 3;
    mesn;
    mesq lg("Thanks, my friend.");
    next;
    mesn;
    mesq l("Here, you can have this souvenir.");
    mesc l("* Item obtained: %s", getitemlink(MoubooFigurine));
    next;
    goto L_Menu;

L_NoItem:
    mesn;
    mesq l("I want a %s so badly... Pyndragon, in the forge, the master blacksmith which makes powerful weapons for high levels, can give you one.", getitemlink(LOFCoin));
    next;
    mesn;
    mesq l("Just tell him that I want to reconsider, and that I want the souvenir he offered me when I moved to Hurnscald.");
    next;
    goto L_Menu;

OnInit:
    .@npcId = getnpcid(.name$);
    setunitdata(.@npcId, UDT_HEADTOP, CenturionHelmet);
    setunitdata(.@npcId, UDT_HEADMIDDLE, SaviorArmor);
    setunitdata(.@npcId, UDT_HEADBOTTOM, TulimsharGuardBoots);
    setunitdata(.@npcId, UDT_WEAPON, BromenalPants);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 1);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 1);
    npcsit;

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