From cd078e14bfe01ffdbf011ab5835803ce13a9a650 Mon Sep 17 00:00:00 2001
From: jesusalva <cpntb1@ymail.com>
Date: Mon, 19 Feb 2018 00:32:37 -0300
Subject: Copying from Hercules, it works... somewhat.

Will need to change original purpose.
---
 npc/004-1/bgmaster.txt | 145 ++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 143 insertions(+), 2 deletions(-)

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

diff --git a/npc/004-1/bgmaster.txt b/npc/004-1/bgmaster.txt
index e9e68c29b..1e7a8062b 100644
--- a/npc/004-1/bgmaster.txt
+++ b/npc/004-1/bgmaster.txt
@@ -2,8 +2,11 @@
 // Author:
 //  Jesusalva
 
+// Original File
+
 004-1,119,96,0	script	Cassia	NPC_FEMALE,{
     mesn;
+    /*
     //if ($@BattleOn) goto L_Busy;
     mesq l("Hello! I am @@, currently in charge of the Desert Pass.", .name$);
     next;
@@ -19,6 +22,9 @@
         rif(!$@BattleOn, l("Init!")), L_Init,
         l("Join team 1."), L_T1,
         l("Join team 2."), L_T2;
+    */
+    mesq l("Right click one of the lieutenants to join.");
+    close;
 
 L_T1:
     mesn;
@@ -147,13 +153,20 @@ OnInit:
 
     .sex = G_FEMALE;
     .distance = 7;
+    /*
     // This script is TODO
     if (!debug) {
         disablenpc "Cassia";
-    }
+    }*/
     end;
-}
 
+OnDoEvent:
+	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");
+	initnpctimer();
+    end;
+}
 
 
 
@@ -212,3 +225,131 @@ OnInit:
 
 }
 */
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+004-1,115,93,0	script	Lieutenant Rundel	NPC_ELF,{
+    hello;
+
+OnInit:
+    .@npcId = getnpcid(0, .name$);
+    setunitdata(.@npcId, UDT_HEADTOP, 1312); // Light armor
+    setunitdata(.@npcId, UDT_HEADMIDDLE, 2212); // Pants
+    setunitdata(.@npcId, UDT_HEADBOTTOM, 1800); // Shoes
+    setunitdata(.@npcId, UDT_WEAPON, 3501);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 13);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 7);
+
+	waitingroom("Battle Station", 2, "start#bat_a02::OnReadyCheck", 1);
+	end;
+
+OnEnterBG:
+	$@FK_Team1 = waitingroom2bg("testbg",13, 4,"start#bat_a02::OnGuillaumeQuit","");
+	end;
+}
+
+004-1,117,93,0	script	Lieutenant Guerrit	NPC_ELF,{
+    hello;
+
+OnInit:
+    .@npcId = getnpcid(0, .name$);
+    setunitdata(.@npcId, UDT_HEADTOP, 1311); // Terranite armor
+    setunitdata(.@npcId, UDT_HEADMIDDLE, 2212); // Pants
+    setunitdata(.@npcId, UDT_HEADBOTTOM, 1800); // Shoes
+    setunitdata(.@npcId, UDT_WEAPON, 3501);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 13);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 7);
+
+	waitingroom("Battle Station", 2, "start#bat_a02::OnReadyCheck", 1);
+	end;
+
+OnEnterBG:
+	$@FK_Team2 = waitingroom2bg("testbg",13,28,"start#bat_a02::OnCroixQuit","");
+	end;
+}
+
+//== Tierra Gorge Battleground Engine ======================
+testbg,15,15,3	script	start#bat_a02	NPC_HIDDEN,{
+OnInit:
+	//mapwarp "bat_a02","bat_room",154,150;
+	end;
+
+OnEnable:
+	end;
+
+OnGuillaumeQuit:
+OnCroixQuit:
+	bg_leave;
+	end;
+
+OnReadyCheck:
+	if( $@TierraBG2 )
+		end;
+	.@Guillaume = getwaitingroomstate(0,"Lieutenant Rundel");
+	.@Croix = getwaitingroomstate(0,"Lieutenant Guerrit");
+	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";
+	donpcevent "Cassia::OnDoEvent";
+	bg_warp $@FK_Team1,"testbg",13,4;
+	bg_warp $@FK_Team2,"testbg",13,28;
+	//initnpctimer;
+	end;
+}
+
-- 
cgit v1.2.3-60-g2f50