Adds the evil obelisk function, which summons evil monsters for a price

4 files changed, 82 insertions, 0 deletions

diff --git a/npc/018-3_Cave/_import.txt b/npc/018-3_Cave/_import.txt
index 2f30ca7c..74377757 100644
--- a/npc/018-3_Cave/_import.txt
+++ b/npc/018-3_Cave/_import.txt
@@ -3,3 +3,4 @@ npc: npc/018-3_Cave/_mobs.txt
 npc: npc/018-3_Cave/_warps.txt
 npc: npc/018-3_Cave/bookcase.txt
 npc: npc/018-3_Cave/sword.txt
+npc: npc/018-3_Cave/evil-obelisk.txt
diff --git a/npc/018-3_Cave/evil-obelisk.txt b/npc/018-3_Cave/evil-obelisk.txt
new file mode 100644
index 00000000..4893cfeb
--- /dev/null
+++ b/npc/018-3_Cave/evil-obelisk.txt
@@ -0,0 +1,10 @@
+//
+
+018-3.gat,67,28,0	script	Evil Obelisk	185, {
+	callfunc "ClearVariables";
+	set @map$, "018-3.gat";
+	set @x, 67;
+	set @y, 28;
+	callfunc "EvilObelisk";
+	close;
+}
diff --git a/npc/functions/evil_obelisk.txt b/npc/functions/evil_obelisk.txt
new file mode 100644
index 00000000..c544058a
--- /dev/null
+++ b/npc/functions/evil_obelisk.txt
@@ -0,0 +1,70 @@
+function	script	EvilObelisk	{
+	mes "[Evil Obelisk]";
+	mes "(A mystical aura surrounds this stone.  To 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;
+}
diff --git a/npc/scripts.conf b/npc/scripts.conf
index b61e0c62..ca45c7fe 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -13,6 +13,7 @@ npc: npc/functions/process_equip.txt
 npc: npc/functions/slot_machine.txt
 npc: npc/functions/soul_menhir.txt
 npc: npc/functions/water_bottle.txt
+npc: npc/functions/evil_obelisk.txt
 
 // Item Functions
 npc: npc/items/purification_potion.txt