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
|
// Starts the reaper quest
//027-2.gat,107,29,0 script Alacrius 313,{
if ($@FIGHT_ALACRIUS_STATUS != 0) goto L_Enjoy;
mes "[Alacrius]";
mes "\"Hello, I'm Alacrius. \"";
next;
mes "[Alacrius]";
mes "\"A very long time ago, I figured a way to cheat death and the limits of time and space. You may think it is evil, but I did it because of true love... \"";
next;
mes "[Alacrius]";
mes "\"The reaper kidnapped my beloved wife, and took her to the underworld. I had to find a way to stop him, and as time went by, I became what you can see now... But if you dare to cheat death, time and space you'll have to pay a high price... \"";
next;
mes "[Alacrius]";
mes "\"Being away from time and space doesn't allow me to try to save my beloved wife... I need your help. Do you think you have what it takes to handle the most powerful monsters over the world of Mana? \"";
next;
menu
"Let's go!",L_PLAY_OK,
"No, thank you.",-;
close;
L_PLAY_OK:
if ($@FIGHT_ALACRIUS_STATUS != 0) goto L_AlreadyStarted;
set $@FIGHT_ALACRIUS_STATUS, 1;
set $@MO_REAPER, 0;
startnpctimer;
set @PRIZE, 1;
goto L_Exit;
L_Enjoy:
if ($@MO_REAPER == 1) goto L_AllDead;
mes "[Alacrius]";
mes "\"...Please hurry up, the time is running...\"";
goto L_Exit;
L_AlreadyStarted:
mes "[Alacrius]";
mes "\"The Reaper is alive.\"";
goto L_Exit;
L_Exit:
close;
end;
// Time to fight
OnTimer10000:
monster "027-2.gat",0,0,"Reaper Quest",1111,1,"Alacrius::OnDeadReaper";
end;
OnDeadReaper:
set $@MO_REAPER, $@MO_REAPER + 1;
killmonster "027-2.gat","All";
end;
OnDeadLost:
set $@MO_LOST, $@MO_LOST + 1;
end;
OnTimer120000:
set $@MO_REAPER,0;
set $@FIGHT_ALACRIUS_STATUS, 0;
killmonster "027-2.gat","All";
stopnpctimer;
setnpctimer 0;
set @PRIZE, 0;
npctalk "Oh my beloved wife, you could not be rescued! I will have to purge my mistakes again...";
npctalk "Please, help my beloved wife!!";
end;
OnDead:
end;
L_AllDead:
if(@PRIZE == 0) goto L_NOHERO;
getinventorylist;
if (@inventorylist_count == 100) goto L_TooMany;
getitem "CasinoCoins", 1;
mes "[Alacrius]";
mes "Thank you very much, you saved my love!! Here you are, a prize according to the dangers you've been exposed to.";
set @PRIZE , 0;
set $@MO_REAPER,0;
close;
end;
L_TooMany:
mes "[Alacrius]";
mes "You have no room for the reward.";
close;
L_NOHERO:
mes "[Alacrius]";
mes "Sorry, but you didn't save my love... Try it again when you're ready...";
close;
end;
OnInit:
initnpctimer;
stopnpctimer;
}
|
