Entirely experimental, Candor Battle

1 files changed, 230 insertions, 0 deletions

diff --git a/npc/006-1/crazyfefe.txt b/npc/006-1/crazyfefe.txt
new file mode 100644
index 000000000..d41a145a1
--- /dev/null
+++ b/npc/006-1/crazyfefe.txt
@@ -0,0 +1,230 @@
+// TMW2 Script
+// Author:
+//    TMW Org. (original code)
+//    Jesusalva
+// Description:
+//    Crazyfefe will wake up when he smells battle
+// Variables:
+//      $@FIGHT_CAVE_LEVEL
+//          Tracks if a fight is going on, and the current round if true.
+//      $@FEFE_DELAY
+//          Tracks the delay between challenges. Also used to start the combat.
+//      $@FIGHT_CAVE_HERO$
+//          Whoever started a fight. Also used to know if a fight is about to begin.
+//      $@FIGHT_CAVE_PLAYER_COUNT
+//          How many players are there
+
+006-1,50,52,0	script	Crazyfefe	NPC_STATUE_EVILMAN,{
+    if ($@FIGHT_CAVE_LEVEL) goto L_Enjoy;
+    if ($@FEFE_DELAY < gettimetick(2)) goto L_Wait;
+    mesn;
+    mesq l("Who dares to disturb my slumber?");
+    next;
+    menu
+        l("Sorry, sorry! Please rest, great Crazyfefe!"), L_Exit,
+         l("I do. I want to challenge the Candor Cave!"), L_Next,
+         l("What is this place anyway?"), L_Explain;
+
+L_Next:
+    mesn;
+    mesq l("Very well, but for a fee of @@ GP. There's no free lunch, after all!", .price);
+    select
+         l("Sorry, I misclicked the first button. Have a nice nap, great Crazyfefe!"),
+         l("Yeah, I have money to throw away. Give me ##Bfive##b minutes, and Bring it on!"),
+         l("Yeah, I have money to throw away. Give me ##Bten##b minutes, and Bring it on!"),
+         l("Yeah, I have money to throw away. Give me ##Bfifteen##b minutes, and Bring it on!"),
+         "","",
+         rif(is_gm(), l("I'm GM and got the money. Gimme HALF HOUR to invite everybody!"));
+
+    // Cancel?
+    if (@menu == 1)
+        goto L_Exit;
+
+    // Already started?
+    if ($@FIGHT_CAVE_LEVEL || $@FIGHT_CAVE_HERO$ != "")
+        goto L_AlreadyStarted;
+
+    // Enough money?
+    if (Zeny < .price)
+        goto L_NotEnough;
+
+    Zeny = Zeny - .price;
+    // Time delay
+    $@FEFE_DELAY = gettimetick(2)+300*(@menu-1);
+    $@FIGHT_CAVE_HERO$ = strcharinfo(0);
+    initnpctimer;
+    mesn;
+    mesq l("Please wait the designed time.");
+    close;
+
+L_StartFight:
+    if (getmapusers("006-1") < 3)
+        goto L_NotEnoughPlayers;
+    $@FIGHT_CAVE_LEVEL = 1;
+    $@FEFE_DELAY = gettimetick(2)+.delay;
+    $@FIGHT_CAVE_PLAYER_COUNT = getmapusers("006-1");
+    mapannounce("006-1", "Let the battle begin!", bc_map);
+    initnpctimer;
+    end;
+
+L_Enjoy:
+    npctalk3 l("Pay attention to the fight, @@!", strcharinfo(0));
+    end;
+
+L_NotEnough:
+    mesn;
+    mesq l("You lack money. Go sell your stuff. And don't ask why a statue needs money!");
+    close;
+
+L_AlreadyStarted:
+    mesn;
+    mesq l("Sorry, @@ already started the fight.", $@FIGHT_CAVE_HERO$);
+    close;
+
+L_Wait:
+    .@time$=FuzzyTime($@FEFE_DELAY,2,2);
+    mesn;
+    mesq l("Be Patient... You still need to wait @@.", .@time$);
+    goto L_Exit;
+
+L_NotEnoughPlayers:
+    mapannounce("006-1", "Oh noes! There's not enough players. Fight aborted, no refunds!", bc_map);
+    goto L_CleanUp;
+
+L_Explain:
+    mesn;
+    mesq l("I am @@, guardian of Candor Cave. Below this cave, lies the legendary Fefe, arch-wizard from the Great War.", .name$);
+    next;
+    mesn;
+    mesq l("During the war, the Monster King cursed the place where he died, but he fought back, and cursed the curse.");
+    next;
+    mesn;
+    mesq l("For short, they had a fight with curses, and now there's a talking statue over his grave which can spawn monsters here.");
+    next;
+    mesn;
+    mesq l("If you pay the fee, I'll spawn them. You should not fight alone, instead, you need a group of at least three, because, you know, the curse. Or something.");
+    next;
+    menu
+        l("I need to think about this."), L_Exit,
+        l("I'm interested."), L_Next;
+
+L_Exit:
+    close;
+
+
+
+
+
+
+
+// Check if we're ready for next wave. Otherwise, do this check again after 5 seconds.
+L_CaveLogic:
+    $@FIGHT_CAVE_PLAYER_COUNT = getmapusers("006-1");
+    if (mobcount("006-1", "Crazyfefe::OnPetDeath") <= 0)
+        goto L_NextRound;
+    // reset timer
+    initnpctimer;
+    end;
+
+// TODO
+L_NextRound:
+    $@FIGHT_CAVE_LEVEL = $@FIGHT_CAVE_LEVEL + $@FIGHT_CAVE_PLAYER_COUNT;
+    if ($@FIGHT_CAVE_LEVEL >= 2200)
+        goto L_CleanUp;
+
+    mapannounce "006-1", "The next round, with level " + $@FIGHT_CAVE_LEVEL + ", is starting with " + $@FIGHT_CAVE_PLAYER_COUNT + " player(s) left alive." , 0;
+    goto L_Summon;
+
+// TODO
+L_Summon:
+    .@amount=($@FIGHT_CAVE_LEVEL/3);
+	for (.@i = 0; .@i < .@amount; ++.@i) {
+        .@mid=rand(1,15);
+        .@monsterId=Piou;
+        switch (.@mid) {
+            case 1:
+                .@monsterId = CaveMaggot ; break;
+            case 2:
+                .@monsterId = Wolvern ; break;
+            case 3:
+                .@monsterId = DarkLizard ; break;
+            case 4:
+                .@monsterId = MagicGoblin ; break;
+            case 5:
+                .@monsterId = Bandit ; break;
+            case 6:
+                .@monsterId = GreenSlime ; break;
+            case 7:
+                .@monsterId = LavaSlime ; break;
+            case 8:
+                .@monsterId = Snake ; break;
+            case 9:
+                .@monsterId = DesertBandit ; break;
+            case 10:
+                .@monsterId = Sarracenus ; break;
+            case 11:
+                .@monsterId = AngryRedScorpion ; break;
+            case 12:
+                .@monsterId = BlackScorpion ; break;
+            case 13:
+                .@monsterId = FallenGuard1 ; break;
+            case 14:
+                .@monsterId = Yeti ; break;
+            default:
+                .@monsterId = AngryScorpion ; break;
+        }
+        areamonster "006-1", 20, 20, 70, 60, "", .@monsterId, .@amount, "Crazyfefe::OnPetDeath";
+    }
+    close;
+
+L_CleanUp:
+    npctalk3 "Game Over!";
+    mapannounce "006-1", "Who will be the next to fall on Crazyfefe's Cave?", 0;
+
+    areatimer 0, "006-1", 20, 20, 70, 60, 10, "Crazyfefe::OnReward";
+    $@FIGHT_CAVE_LEVEL = 0;
+    $@FIGHT_CAVE_HERO$ = "";
+    killmonster "006-1", "Crazyfefe::OnPetDeath";
+    stopnpctimer;
+    end;
+
+
+
+
+
+
+
+
+// Rewards surviving players, according to performance
+OnReward:
+    if (ispcdead())
+        end;
+    // TODO
+    Zeny=Zeny+($@FIGHT_CAVE_LEVEL);
+    getexp $@FIGHT_CAVE_LEVEL, 0;
+    dispbottom l("You've gained @@ GP and EXP", ($@FIGHT_CAVE_LEVEL));
+    end;
+
+// Announces and attempts to start the fight once time run out
+OnTimer300000:
+    if ($@FEFE_DELAY <= gettimetick(2)) goto L_StartFight;
+    announce $@FIGHT_CAVE_HERO$+" invites everyone to a challenge against Candor Cave. It'll start in "+FuzzyTime($@FEFE_DELAY,2,2)+". Prepare yourselves!", bc_all|bc_npc;
+    inittimer;
+    end;
+
+// Every 5 seconds, handle cave, if fighting. Does nothing when waiting.
+OnTimer5000:
+    if ($@FIGHT_CAVE_LEVEL)
+        goto L_CaveLogic;
+    end;
+
+OnPetDeath:
+    end;
+
+OnInit:
+    .sex=G_OTHER;
+    .distance=5;
+    .price=8000;
+    .delay=(60*60*4);
+    end;
+}