Now that a player got to the new swamps map...

I can flesh this out better. Add Experience gain everywhere.

* Reaching the swamps: 100k, every time.
* Cleaning all monsters and talking to Tree: 1M, every time.
* Opening the chest: 20M first time, 10M second time.
* Killing any monster: 50k~100k, every monster.

The experience for the off-tasks may look nice, but they're a drop in the
bucket compared to actually killing monsters.
(Tree can double the experience you got, but will not give you items)

2 files changed, 34 insertions, 1 deletions

diff --git a/world/map/npc/099-7/boss.txt b/world/map/npc/099-7/boss.txt
index 9ecb3ad6..f9b15449 100644
--- a/world/map/npc/099-7/boss.txt
+++ b/world/map/npc/099-7/boss.txt
@@ -637,7 +637,7 @@ OnTimer150000:
     if ($@KeshlamMc < 10)
         areamonster "099-7", 20, 20, 120, 120, "", 1149, 10-$@KeshlamMc, "Keshlam::OnDeath9";
 
-    // Boss (TODO give boss their own timer with 5 minutes)
+    // Boss (TODO maybe give boss their own timer with 5 minutes)
     set $@KeshlamMc, mobcount("099-7", "Keshlam::OnBoss")+1;
     if ($@KeshlamMc < 1)
         monster "099-7", 20, 105, "Grim Reaper", 1068, 1, "Keshlam::OnBoss";
@@ -720,3 +720,35 @@ L_Close:
     close;
 }
 
+///////////////////////////////////////////////////////////////////////////////
+// Who wants experience?
+099-7,95,117,0|script|Knowledgeable Tree|400
+{
+    mes "If you kill every monster, this tree can warp you back.";
+    mes "You will receive experience points for cleaning the map.";
+    mes "";
+    mes "But be warned, monsters respawn on their own every five minutes.";
+    mes "The boss must also be defeated.";
+    next;
+    set @KeshlamMc, mobcount("099-7", "Keshlam::OnDeath8")+1;
+    set @KeshlamMc, @KeshlamMc+mobcount("099-7", "Keshlam::OnDeath9")+1;
+    set @KeshlamMc, @KeshlamMc+mobcount("099-7", "Keshlam::OnBoss")+1;
+    if (@KeshlamMc <= 0) goto L_Done;
+    mes "There is ##B"+@KeshlamMc+" monsters##b alive.";
+    close;
+
+L_Done:
+    mes "Go back?";
+    menu
+        "Yes", L_Yes,
+        "No", L_No;
+
+L_Yes:
+    getexp 1000000, 0;
+    warp "027-2", 50, 29;
+    close;
+
+L_No:
+    close;
+}
+
diff --git a/world/map/npc/magic/level0-reapercry.txt b/world/map/npc/magic/level0-reapercry.txt
index 3757f5fe..f96c3cea 100644
--- a/world/map/npc/magic/level0-reapercry.txt
+++ b/world/map/npc/magic/level0-reapercry.txt
@@ -232,6 +232,7 @@ L_Exec5:
     // This means cast sequence complete
     // Maybe FX_MAGIC_BLUE_TELEPORT? (iilia's effect)
     set @reapercry, 0;
+    getexp 100000, 0;
     misceffect FX_MAGIC_TELEPORT, strcharinfo(0);
     warp "099-7", 75, 36;
     end;