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
138
139
140
|
// Author: Jenalya
// $@Flower_Pentagram_Time saves the time when the last summoning happened
017-1,176,59,0|script|#FlowerPentagram5|400
{
if (OrumQuest >= 31) goto L_PlacedFifthFlower;
if (OrumQuest == 30) goto L_FifthFlower;
message strcharinfo(0), "Something is odd about this place.";
end;
L_FifthFlower:
mes "This has to be the spot for the last magical flower. When you place it, the pentagram will be completed.";
menu
"Place the flower.", L_PlaceTheFlower,
"Leave.", L_Close;
L_PlaceTheFlower:
if (isin("017-1", 175, 58, 177, 60))
goto L_Place;
mes "This isn't working, you're too far away.";
goto L_Close;
L_Place:
set @localMonsterCount,
mobcount("013-1", "#FlowerPentagram5::OnSquirrelDeath") +
mobcount("013-1", "#FlowerPentagram5::OnMushroomDeath") +
mobcount("013-1", "#FlowerPentagram5::OnBlueparDeath") +
mobcount("013-1", "#FlowerPentagram5::OnMoubooDeath") +
mobcount("013-1", "#FlowerPentagram5::OnScorpionDeath") +
mobcount("013-1", "#FlowerPentagram5::OnRScorpionDeath") +
mobcount("013-1", "#FlowerPentagram5::OnAScorpionDeath") +
mobcount("013-1", "#FlowerPentagram5::OnBScorpionDeath") +
8; // the mobcount function has an offset of -1, so we add 8 to have the actual amount of monsters
if (@localMonsterCount > 4)
goto L_MonstersAlive;
mes "Nervous about what's going to happen, you take the last of the flowers and put it into its place.";
next;
mes "Tension builds up around you, much stronger than before. You can feel it compressing your head, and a liquid warmth spreads under your nose, leaving a metallic taste on your lips.";
set Hp, max(1, Hp - 5);
next;
callfunc "FlowerPentagramCount";
if (($@Flower_Pentagram_Time > gettimetick(2) - 3600) && ($@Flower_Pentagram_Mobcount > 15))
goto L_TooEarly;
set $@Flower_Pentagram_Time, gettimetick(2);
if (countitem("RedSummonFlower") < 1)
goto L_NoFlower;
delitem "RedSummonFlower", 1;
mes "The pressure builds to the point where you don't think you can endure it any longer; the fabric that binds your consciousness together seemingly unravels.";
set OrumQuest, 31;
close2;
areamonster "017-1", 170, 55, 190, 75, "", 1105, 3, "#FlowerPentagram5::OnSquirrelDeath";
areamonster "017-1", 170, 55, 190, 75, "", 1106, 2, "#FlowerPentagram5::OnMushroomDeath";
areamonster "017-1", 170, 55, 190, 75, "", 1107, 3, "#FlowerPentagram5::OnBlueparDeath";
areamonster "017-1", 170, 55, 190, 75, "", 1104, 2, "#FlowerPentagram5::OnMoubooDeath";
areamonster "017-1", 170, 55, 190, 75, "", 1003, 3, "#FlowerPentagram5::OnScorpionDeath";
areamonster "017-1", 170, 55, 190, 75, "", 1004, 2, "#FlowerPentagram5::OnRScorpionDeath";
areamonster "017-1", 170, 55, 190, 75, "", 1057, 2, "#FlowerPentagram5::OnAScorpionDeath";
areamonster "017-1", 170, 55, 190, 75, "", 1009, 2, "#FlowerPentagram5::OnBScorpionDeath";
set @value, 15;
callfunc "QuestSagathaAnnoy";
set @value, 0;
donpcevent "#FlowerPentagram::OnSummon";
end;
OnSquirrelDeath:
set @mobID, 1105;
callfunc "MobPoints";
end;
OnMushroomDeath:
set @mobID, 1106;
callfunc "MobPoints";
end;
OnBlueparDeath:
set @mobID, 1107;
callfunc "MobPoints";
end;
OnMoubooDeath:
set @mobID, 1104;
callfunc "MobPoints";
end;
OnScorpionDeath:
set @mobID, 1003;
callfunc "MobPoints";
end;
OnRScorpionDeath:
set @mobID, 1004;
callfunc "MobPoints";
end;
OnAScorpionDeath:
set @mobID, 1057;
callfunc "MobPoints";
end;
OnBScorpionDeath:
set @mobID, 1009;
callfunc "MobPoints";
end;
L_TooEarly:
mes "Suddenly, everything calms down again and the tension vanishes. You find yourself confused about what's going on.";
next;
mes "You pick up the flower again.";
next;
mes "Looking at the place more closely, it seems another summoning has happened just before, leaving the pathway between this world and the astral plane drained and exhausted.";
next;
mes "You should wait a while until it recharges, or go and search for the creatures that were summoned.";
goto L_Close;
L_MonstersAlive:
mes "As you get closer to the place, you feel an unnerving presence.";
mes "This place has recently been used to summon something! And the beings are still nearby!";
next;
mes "You should get rid of them before attempting the summoning yourself.";
goto L_Close;
L_NoFlower:
mes "You reach into your pocket, but you can't find the flower! You're so close to completing your task.";
mes "How could you lose the last flower? If you can't get it back, you have to tell Orum.";
goto L_Close;
L_PlacedFifthFlower:
mes "This is where you placed the last of Orum's magical flowers.";
mes "However, now that the summoning spell has been cast, everything is back to normal here.";
goto L_Close;
L_Close:
set @localMonsterCount, 0;
close;
}
|
