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
|
// Evol scripts.
// Authors:
// Reid
// Ablu
// Description:
// Rat killer NPC
000-2-2.gat,48,29,0,1 script DoorUpwards 0,0,0,{
OnTouch:
set @q, geta4(ShipQuests, ShipQuests_Peter);
if (@q == 1 || @q == 2) goto l_Check;
goto l_Warp;
l_Check:
if (getmapmobs("000-2-2.gat") > 0) goto l_Warn;
seta4 ShipQuests, ShipQuests_Peter, @q+2;
goto l_Warp;
l_Warn:
mesn;
mesq l("There are still some rats left! Do you want to abort the quest?");
menu
l("Yes."), l_Warp,
l("No."), -;
warp "000-2-2", 48, 28;
close;
l_Warp:
warp "000-2-1", 61, 36;
close;
}
000-2-2.gat,24,31,0,1 script AreaNPC 0,0,0,{
OnTouch:
mesq l("This door seems locked");
close;
}
|