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
|
function script EvilObelisk {
mesn l("Evil Obelisk");
mes l("(A mystical aura surrounds this stone. It seems to crave money.)");
next;
.@Cost_jacko = 6500;
.@Cost_gy1 = 4000;
.@Cost_gy2 = 3000;
.@Cost_skull = 2800;
.@Cost_snake = 2500;
.@Cost_keshlam = 10000;
menu
"Don't pay it anything.", -,
"Pay it " + .@Cost_jacko + " gold.", L_JACKO,
"Pay it " + .@Cost_gy1 + " gold.", L_GRAVEYARD1,
"Pay it " + .@Cost_gy2 + " gold.", L_GRAVEYARD2,
"Pay it " + .@Cost_skull + " gold.", L_SKULL,
"Pay it " + .@Cost_snake + " gold.", L_SNAKE,
"Pay it " + .@Cost_keshlam + " gold.", L_KESHLAM;
return;
L_JACKO:
if (Zeny < .@Cost_jacko)
goto L_NotEnough;
Zeny = Zeny - .@Cost_jacko;
@mob_id = JackO;
@mob_count = rand(1,2);
goto L_Summon;
L_GRAVEYARD1:
if (Zeny < .@Cost_gy1)
goto L_NotEnough;
@temp = rand(2);
if(@temp == 0)
set @mob_id, Zombie; // Zombie
if(@temp == 1)
set @mob_id, Fallen; // Fallen
@mob_count = rand(1,2);
Zeny = Zeny - .@Cost_gy1;
goto L_Summon;
L_GRAVEYARD2:
if (Zeny < .@Cost_gy2)
goto L_NotEnough;
@temp = rand(2);
if(@temp == 0)
set @mob_id, LadySkeleton; // Lady Skelly
if(@temp == 1)
set @mob_id, Skeleton; // Normal Skelly
@mob_count = rand(1,2);
Zeny = Zeny - .@Cost_gy2;
goto L_Summon;
L_SKULL:
if (Zeny < .@Cost_skull)
goto L_NotEnough;
@temp = rand(2);
if(@temp == 0)
set @mob_id, PoisonSkull; // Poison
if(@temp == 1)
set @mob_id, FireSkull; // Fire
@mob_count = rand(1,4);
Zeny = Zeny - .@Cost_skull;
goto L_Summon;
L_SNAKE:
if (Zeny < .@Cost_snake)
goto L_NotEnough;
@temp = rand(5);
if(@temp == 0)
set @mob_id, GrassSnake; // Grass
if(@temp == 1)
set @mob_id, MountainSnake; // Mnt.
if(@temp == 2)
set @mob_id, Snake; // Normal
if(@temp == 3)
set @mob_id, CaveSnake; // Cave
if(@temp == 4)
set @mob_id, VoidSnake; // Void
@mob_count = rand(1,4);
Zeny = Zeny - .@Cost_snake;
goto L_Summon;
L_KESHLAM:
if (Zeny < .@Cost_keshlam)
goto L_NotEnough;
set @mob_id, any(Tengu, Sasquatch, ManaSlayer);
@mob_count = rand(1,3);
Zeny = Zeny - .@Cost_keshlam;
goto L_Summon;
L_Summon:
areamonster @map$, @x0, @y0, @x1, @y1, "Evil", @mob_id, @mob_count;
return;
L_NotEnough:
mes l("You don't have that much money");
return;
}
|
