6 files changed, 171 insertions, 0 deletions
diff --git a/world/map/npc/009-3/_import.txt b/world/map/npc/009-3/_import.txt
index 37ec9044..fff7bf28 100644
--- a/world/map/npc/009-3/_import.txt
+++ b/world/map/npc/009-3/_import.txt
@@ -4,3 +4,4 @@ map: 009-3.gat
 npc: npc/009-3/_mobs.txt
 npc: npc/009-3/_warps.txt
 npc: npc/009-3/sword.txt
+npc: npc/009-3/warp.txt
diff --git a/world/map/npc/009-3/warp.txt b/world/map/npc/009-3/warp.txt
new file mode 100644
index 00000000..7f709abd
--- /dev/null
+++ b/world/map/npc/009-3/warp.txt
@@ -0,0 +1,23 @@
+009-3.gat,162,80,0|script|#PVPCaveBarrier|45,1,1,{
+    mes "Do you want to enter the PVP cave? It costs 150GP.";
+    menu
+        "No.", L_Exit,
+        "Yes.", -;
+    if (Zeny < 150)
+        goto L_NotEnoughMoney;
+    if (Zeny >= 150)
+        goto L_Pay;
+
+L_Exit:
+    close;
+
+L_Pay:
+    set Zeny, Zeny - 150;
+    warp "009-6.gat", 36, 47;
+    close;
+
+L_NotEnoughMoney:
+    mes "You don't have enough money!";
+    close;
+
+}
diff --git a/world/map/npc/009-5/_import.txt b/world/map/npc/009-5/_import.txt
index 5d0ebce1..72fd9af0 100644
--- a/world/map/npc/009-5/_import.txt
+++ b/world/map/npc/009-5/_import.txt
@@ -3,3 +3,4 @@
 map: 009-5.gat
 npc: npc/009-5/_mobs.txt
 npc: npc/009-5/_warps.txt
+npc: npc/009-5/mapflags.txt
diff --git a/world/map/npc/009-5/mapflags.txt b/world/map/npc/009-5/mapflags.txt
new file mode 100644
index 00000000..f581bcac
--- /dev/null
+++ b/world/map/npc/009-5/mapflags.txt
@@ -0,0 +1 @@
+009-5.gat mapflag nosave 009-3,162,82;
diff --git a/world/map/npc/009-6/_import.txt b/world/map/npc/009-6/_import.txt
index aa9d3218..47ed4ffa 100644
--- a/world/map/npc/009-6/_import.txt
+++ b/world/map/npc/009-6/_import.txt
@@ -3,3 +3,4 @@
 map: 009-6.gat
 npc: npc/009-6/_mobs.txt
 npc: npc/009-6/_warps.txt
+npc: npc/009-6/brodomir.txt
diff --git a/world/map/npc/009-6/brodomir.txt b/world/map/npc/009-6/brodomir.txt
new file mode 100644
index 00000000..d7b8895d
--- /dev/null
+++ b/world/map/npc/009-6/brodomir.txt
@@ -0,0 +1,144 @@
+// Last Man Standing PvP Event NPC
+// Author: tux9th
+// many thanks to Jenalaya, o11c, Ablu :)
+//  CAVE: this script requires a patch by o11c that makes it possible for
+//  getareausers to check if players are alive or dead.
+
+009-6.gat,36,40,0|script|Brodomir|116,{
+    if ($@PVP_STATUS == 2)
+        goto L_Alreadystarted;
+    if ($@PVP_STATUS == 1)
+        goto L_Wait;
+    mes "[Brodomir]";
+    mes "\"Hi Warrior.\"";
+    mes "\"Do you know me? I'm pretty old and I have never been good with faces?\"";
+    menu
+        "Yes of course! Don't you remember me?", L_Shorttalk,
+        "No, who are you?", L_Longtalk,
+        "I don't want to know you!", -;
+    close;
+
+L_Longtalk:
+    mes "[Brodomir]";
+    mes "\"I'm Brodomir\"";
+    mes "Brodomir sighs.";
+    mes "\"Once I as well was a powerful warrior. It's been quite a while. But before that I was a miner in Tonori. I can still remember it very good. The Earth was shaking for hours and everything was torn apart. Many many of my friends and beloved ones were devoured by the crevasses which opened up. It was horrific and I am very lucky to have survived that.\"";
+    next;
+    mes "\"Then everything was pure chaos and I had to fight to survive. We had hardly anything to eat, therefore the strongest survived. I turned out to be a very good warrior. I fought hard. When I felt strong enough to defend others I created a school of martial arts. I took in the weak and tended to them and made them stronger.\"";
+    next;
+    mes "\"I trained them to fight with all weapons and how to fight bare handed. Taught them how to make their own weapons and what could be used as a weapon. Those were dark times. I'm happy that those times are over and you do not have to live through it.\"";
+    next;
+    mes "\"When my shelter was no longer required I started to wander around. Now I ended up here old and wrinkly. I'm only able to drive away those weak creatures who try to enter my home all the time. Slowly they learn to leave me alone or I'll squish them.\"";
+    next;
+    mes "\"I am sorry but I cannot teach you anything anymore. I am too old. But I am still quite good with my pickaxe and I made a cave where you can fight against your friends.\"";
+    mes "\"The only things you need are 5000GP and two of your friends. If you pay me I will give you about five minutes and after that I will bring you to the cave where you can fight. I will reward the winner. Do you want to give it a shot?\"";
+    goto L_Menu;
+
+L_Shorttalk:
+    mes "Well... I'm sorry I cannot remember. I'm old. I hope you can forgive me. Well then. Do you want to fight with your friends in my cave? All you need are 5000GP and at least two of your friends.";
+    goto L_Menu;
+
+L_Menu:
+    menu
+        "No.", L_Exit,
+        "Yes.", -;
+    if (Zeny < 5000)
+        goto L_NotEnoughMoney;
+    if (Zeny >= 5000)
+        goto L_Pay;
+
+L_Exit:
+    mes "[Brodomir]";
+    mes "\"Okay, you can come back anytime.\"";
+    close;
+
+L_Pay:
+    if ($@PVP_STATUS == 1)
+        goto L_Wait;
+    if (getareausers("009-6.gat", 20, 20, 80, 80, 1) < 3)
+        goto L_NotEnoughPlayers;
+    if (Zeny >= 5000)
+        goto L_Go;
+
+L_Go:
+    set Zeny, Zeny - 5000;
+    set $@PVP_STATUS, 1;
+    mapannounce "009-6.gat", "In 5 minutes I will bring you all to the PvP cave. If there are less than 3 Players here the event will not start.", 0;
+    mes "[Brodomir]";
+    mes "\"In 5 minutes I will bring you all to the PvP cave. If there are less than 3 Players here the event will not start and your money will be lost.\"";
+    set $@ANNOUNCE_TIME, gettimetick(2) + 300;
+    initnpctimer;
+    close;
+
+L_Wait:
+    set $@seconds, ($@ANNOUNCE_TIME - gettimetick(2));
+    mes "[Brodomir]";
+    if ($@seconds/60 == 0)
+        mes "\"Just a little longer. I will bring you there in " + $@seconds + " seconds.\"";
+    if ($@seconds/60 > 0)
+        mes "\"Just a little longer. I will bring you there in " + $@seconds/60 + " minute(s).\"";
+    close;
+
+OnTimer5000:
+    setnpctimer 0;
+    if ($@PVP_STATUS > 1)
+        goto L_Check;
+    if (gettimetick(2) >= $@ANNOUNCE_TIME)
+        goto L_Warp;
+    end;
+
+L_Warp:
+    if (getareausers("009-6.gat", 20, 20, 80, 80, 1) < 3)
+        goto L_Warpfail;
+    set $@PVP_STATUS, $@PVP_STATUS + 1;
+    set $@PRICE, getareausers("009-6.gat", 20, 20, 80, 80, 1);
+    mapwarp "009-6.gat", "009-5.gat", 0, 0;
+    mapannounce "009-5.gat", "PvP On!", 0;
+    pvpon "009-5.gat";
+    end;
+
+L_Warpfail:
+    mapannounce "009-6.gat", "There are not enough Players around to start!", 0;
+    goto L_Cleanup;
+
+L_Check:
+    if (getareausers("009-5.gat", 20, 20, 80, 80, 1) > 1)
+        end;
+    areatimer "009-5.gat", 20, 20, 80, 80, 10, "Brodomir::onReward";
+    goto L_End;
+
+onReward:
+    if (isdead())
+        end;
+    message strcharinfo(0), "Congratulations you won!";
+    set Zeny, Zeny + (5000 + 150 * $@PRICE);
+    end;
+
+L_End:
+    mapwarp "009-5.gat", "009-6.gat", 162, 81;
+    goto L_Cleanup;
+
+L_NotEnoughPlayers:
+    mes "[Brodomir]";
+    mes "\"There aren't enough players here to start.\"";
+    close;
+
+L_Alreadystarted:
+    mes "[Brodomir]";
+    mes "\"Please wait until the cave is clear again.\"";
+    close;
+
+L_NotEnoughMoney:
+    mes "[Brodomir]";
+    mes "\"You don't have enough money.\"";
+    close;
+
+L_Cleanup:
+    pvpoff "009-5.gat";    
+    set $@PVP_STATUS , 0;
+    set $@ANNOUNCE_TIME, 0;
+    stopnpctimer;
+    end;
+
+
+}