From d9e5e0b38c20fe7757776ce4c0f3ebf7febbeb95 Mon Sep 17 00:00:00 2001
From: jesusalva <cpntb1@ymail.com>
Date: Mon, 19 Feb 2018 19:45:28 -0300
Subject: (Untested) update Cassia so it is usable. WARNING: There are no
 rewards!

---
 npc/004-1/bgmaster.txt | 80 +++++++++++++++++++++++++++++++++++---------------
 1 file changed, 56 insertions(+), 24 deletions(-)

(limited to 'npc/004-1/bgmaster.txt')

diff --git a/npc/004-1/bgmaster.txt b/npc/004-1/bgmaster.txt
index 1e7a8062b..234bcacf9 100644
--- a/npc/004-1/bgmaster.txt
+++ b/npc/004-1/bgmaster.txt
@@ -23,7 +23,16 @@
         l("Join team 1."), L_T1,
         l("Join team 2."), L_T2;
     */
-    mesq l("Right click one of the lieutenants to join.");
+    if ($@BGMaster1) goto L_Busy;
+    mesq l("Hello! I am Cassia, Ambassator. During the Monster War outbreak, Frostia and Halirnazo felt.");
+    next;
+    mesq l("To train their soldiers, they frequently face one against other in duels. Adventurers are welcome to join their drills.");
+    next;
+    mesq l("To join a drill, right click on one of the lieutenants and join their Battle Stations. The drill can last up to 10 minutes.");
+    next;
+    mesq l("The sides accept only one adventurer. You'll also lose access to General Chat upon joining, and will have to use #world.");
+    next;
+    mesq l("Be sure to have a friend before joining, or you may have to logout in order to be able to move again!");
     close;
 
 L_T1:
@@ -82,7 +91,11 @@ L_Close:
     close;
 
 L_Busy:
-    mesq l("Sorry, registration period is over.");
+    if ($@BGMaster1 == 2) {
+        mesq l("The soldiers are resting. You can join them starting at ##B07:00, 15:00 and 23:00##b in UTC.");
+    } else {
+        mesq l("People are challenging now.");
+    }
     close;
 
 OnPcQuit:
@@ -95,17 +108,22 @@ OnPcDeath:
     bg_leave();
     end;
 
-OnTimer30000:
-    if (getmapusers("testbg") < 2) goto L_RestartTimer;
+OnTimer60000:
+    if (getmapusers("testbg") < 2 || .BGC > 10) goto L_Cancel;
+
 	mapannounce("testbg", "Reinforcements raise!", bc_map);
 	$@FKing_T1 = bg_monster($@FK_Team1, "testbg", 1, 1, "FallenGuard1", 1081, "Cassia::OnSkip");
 	$@FKing_T2 = bg_monster($@FK_Team2, "testbg", 13, 28, "FallenGuard2", 1082, "Cassia::OnSkip");
+    .BGC+=1;
 	stopnpctimer();
 	initnpctimer();
     end;
 
-OnClock2200:
-    announce "I am alive!", bc_all;
+// Arena Cooldown (every 8 hours) (CET time)
+OnClock0000:
+OnClock0800:
+OnClock1600:
+    if ($@BGMaster1 == 2) $@BGMaster1=0;
     end;
 
 OnSkip:
@@ -119,26 +137,39 @@ L_RestartTimer:
 	initnpctimer();
     end;
 
+L_Cancel:
+	stopnpctimer();
+    announce "The Fallen Kings Duel ended in a draw!", bc_all;
+    killmonsterall "testbg";
+
+    mapwarp "testbg", "004-2", 29, 23;
+    bg_destroy($@FK_Team1);
+    bg_destroy($@FK_Team2);
+    $@BGMaster1=2;
+    end;
+
 OnVictor1:
-    if (!$@BattleOn) goto L_Skip;
+    if (!$@BGMaster1) goto L_Skip;
 	stopnpctimer();
-    announce "Team 1 raises victorious!", bc_all;
-    bg_warp $@FK_Team1, "004-2", 29, 23;
-    bg_warp $@FK_Team2, "004-2", 29, 23;
+    announce "Team 1 raises victorious at the Fallen Kings Duel!", bc_all;
+    killmonsterall "testbg";
+
+    mapwarp "testbg", "004-2", 29, 23;
     bg_destroy($@FK_Team1);
     bg_destroy($@FK_Team2);
-    $@BattleOn=0;
+    $@BGMaster1=2;
     end;
 
 OnVictor2:
-    if (!$@BattleOn) goto L_Skip;
+    if (!$@BGMaster1) goto L_Skip;
 	stopnpctimer();
-    announce "Team 2 raises victorious!", bc_all;
-    bg_warp $@FK_Team1, "004-2", 29, 23;
-    bg_warp $@FK_Team2, "004-2", 29, 23;
+    announce "Team 2 raises victorious at the Fallen Kings Duel!", bc_all;
+    killmonsterall "testbg";
+
+    mapwarp "testbg", "004-2", 29, 23;
     bg_destroy($@FK_Team1);
     bg_destroy($@FK_Team2);
-    $@BattleOn=0;
+    $@BGMaster1=2;
     end;
 
 OnInit:
@@ -161,6 +192,7 @@ OnInit:
     end;
 
 OnDoEvent:
+    .BGC=0;
 	mapannounce("testbg", "May the fight begin!", bc_map);
 	$@FKing_T1 = bg_monster($@FK_Team1, "testbg", 1, 1, "OldFallen", 1079, "Cassia::OnVictor2");
 	$@FKing_T2 = bg_monster($@FK_Team2, "testbg", 13, 28, "OldFallen2", 1080, "Cassia::OnVictor1");
@@ -278,7 +310,7 @@ OnInit:
 
 
 
-004-1,115,93,0	script	Lieutenant Rundel	NPC_ELF,{
+004-1,115,93,0	script	Lt. Randy	NPC_ELF,{
     hello;
 
 OnInit:
@@ -298,7 +330,7 @@ OnEnterBG:
 	end;
 }
 
-004-1,117,93,0	script	Lieutenant Guerrit	NPC_ELF,{
+004-1,117,93,0	script	Lt. Gerry	NPC_ELF,{
     hello;
 
 OnInit:
@@ -333,19 +365,19 @@ OnCroixQuit:
 	end;
 
 OnReadyCheck:
-	if( $@TierraBG2 )
+	if( $@BGMaster1 )
 		end;
-	.@Guillaume = getwaitingroomstate(0,"Lieutenant Rundel");
-	.@Croix = getwaitingroomstate(0,"Lieutenant Guerrit");
+	.@Guillaume = getwaitingroomstate(0,"Lt. Randy");
+	.@Croix = getwaitingroomstate(0,"Lt. Gerry");
 	if( !.@Guillaume && !.@Croix ) {
 		donpcevent "#bat_a02_timer::OnStop";
 		end;
 	}
 	else if( .@Guillaume < 1 || .@Croix < 1 )
 		end;
-	$@TierraBG2 = 1;
-	donpcevent "Lieutenant Rundel::OnEnterBG";
-	donpcevent "Lieutenant Guerrit::OnEnterBG";
+	$@BGMaster1 = 1;
+	donpcevent "Lt. Randy::OnEnterBG";
+	donpcevent "Lt. Gerry::OnEnterBG";
 	donpcevent "Cassia::OnDoEvent";
 	bg_warp $@FK_Team1,"testbg",13,4;
 	bg_warp $@FK_Team2,"testbg",13,28;
-- 
cgit v1.2.3-60-g2f50