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
|
function script EvilObelisk {
mes "[Evil Obelisk]";
mes "(A mystical aura surrounds this stone. It seems to crave money.)";
next;
menu
"Pay it 200,000 gold", L_JACKO,
"Pay it 100,000 gold", L_GRAVEYARD1,
"Pay it 75,000 gold", L_GRAVEYARD2,
"Pay it 50,000 gold", L_SKULL,
"Pay it 25,000 gold", L_SNAKE,
"Don't pay it anything.", -;
close;
return;
L_JACKO:
if (zeny < 200000) goto L_NotEnough;
set zeny, zeny - 200000;
set @mob_id, 1022;
set @mob_count, rand(2) + 1;
goto L_Summon;
L_GRAVEYARD1:
if (zeny < 100000) goto L_NotEnough;
set @temp, rand(2);
if(@temp == 0) set @mob_id, 1036; // Zombie
if(@temp == 1) set @mob_id, 1045; // Fallen
set @mob_count, rand(2) + 1;
set zeny, zeny - 100000;
goto L_Summon;
L_GRAVEYARD2:
if (zeny < 75000) goto L_NotEnough;
set @temp, rand(2);
if(@temp == 0) set @mob_id, 1044; // Lady Skelly
if(@temp == 1) set @mob_id, 1043; // Normal Skelly
set @mob_count, rand(2) + 1;
set zeny, zeny - 75000;
goto L_Summon;
L_SKULL:
if (zeny < 50000) goto L_NotEnough;
set @temp, rand(2);
if(@temp == 0) set @mob_id, 1024; // Poison
if(@temp == 1) set @mob_id, 1023; // Fire
set @mob_count, rand(4) + 1;
set zeny, zeny - 50000;
goto L_Summon;
L_SNAKE:
if (zeny < 25000) goto L_NotEnough;
set @temp, rand(4);
if(@temp == 0) set @mob_id, 1034; // Grass
if(@temp == 1) set @mob_id, 1026; // Mnt.
if(@temp == 2) set @mob_id, 1010; // Normal
if(@temp == 3) set @mob_id, 1021; // Cave
set @mob_count, rand(4) + 1;
set zeny, zeny - 25000;
goto L_Summon;
L_Summon:
monster @map$, @x, @y, "Evil", @mob_id, @mob_count;
close;
return;
L_NotEnough:
mes "You don't have that much money";
close;
return;
}
|
