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
|
// TMW2 scripts.
// Authors:
// Jesusalva
// Description:
// Sagratha
// SaggyScoreUpdate( amount )
function script SaggyScoreUpdate {
.@val=getarg(0);
SAGRATHA_SCORE=max(-50, min(50, SAGRATHA_SCORE+.@val));
return;
}
function script SaggyMobCount {
switch (killedrid) {
// She gets angry
case Mouboo:
case AlphaMouboo:
SaggyScoreUpdate(-5);
break;
case Pollet:
case Fluffy:
case IcedFluffy:
SaggyScoreUpdate(-3);
break;
case PoisonSpikyMushroom:
case LogHead:
case ForestMushroom:
SaggyScoreUpdate(-2);
break;
case Squirrel:
case SpringSquirrel:
case LofSquirrel:
case FrozenSquirrel:
case FairysSquirrel:
SaggyScoreUpdate(-1);
break;
// She may get happy. Who knows.
case ViciousSquirrel:
case WickedMushroom:
case Bluepar:
case BlackScorpion:
case AngryScorpion:
case AngryRedScorpion:
SaggyScoreUpdate(any(0,0,1));
break;
}
return;
}
014-5-1,33,37,0 script Sagratha NPC_SAGRATHA,{
if (array_find(.SaggyHats, getequipid(EQI_HEAD_TOP)) >= 0)
goto L_HatAttack;
if (SAGRATHA_SCORE < 0)
goto L_Unhappy;
mesn;
if (.@good >= 2)
mesc l("@@ nods as she notices you.", .name$);
if (.@good == 1)
mesc l("@@ raises an eyebrow as you address her.", .name$);
if (.@good == 0)
mesc l("@@ glances at you, suspicion evident in her eyes.", .name$);
mesq l("Hello.");
// TODO: Handle the curse (menu option)
// TODO: Collect reward (set quest status to 7)
// TODO: Allow to return to the Sealed Shrine
// TODO: Learn Magic
// TODO: Request help with stuff (eg. protecting mouboos?)
// TODO: Get Mouboo Milk :>
// TODO: Maybe never update her score with kills and make her more pacifist?
close;
L_HatAttack:
mesn;
mesc l("@@ seems to be trembling with disgust as she stares at your headgear.", .name$);
mes l("\"Do you think that is funny?\" she snarls.");
next;
mesn;
mesq l("You have no idea what that poor creature felt!");
next;
mesn;
mesc l("She snaps her fingers.");
mesq l("Let me show you...");
specialeffect 312, SELF, getcharid(3);
heal -300, 0;
close;
L_Unhappy:
mesn;
mesc l("@@ glares at you in anger.", .name$);
mesq l("I wonder if you can still sleep after killing those innocent forest creatures!");
next;
mesn;
mesq l("I am sure that they will come back to haunt you in your dreams!");
close;
OnInit:
setarray .SaggyHats, FluffyHat, MoubooHat, AlphaMoubooHat;
.distance=5;
npcsit;
end;
OnInstanceInit:
disablenpc instance_npcname(.name$);
end;
}
|
