* instance_npcname will now error if the NPC being looked up is not found, care of ramsey.

* delitem/2 will now send the close button when failing to find all neccecary items to delete.
- Still do to, items should not be deleted as-found, and should be deleted once counted
and in the event of delitem failure, nothing should be consumed. This is a design flaw
in eathena, and should be fixed as soon as possible.
* Implemented the Endless Tower instance.
* Updated announces and dialogs in KVM.


git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@14395 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 48 insertions, 50 deletions

diff --git a/npc/battleground/kvm/kvm01.txt b/npc/battleground/kvm/kvm01.txt
index bf2a8a127..854e9bb8b 100644
--- a/npc/battleground/kvm/kvm01.txt
+++ b/npc/battleground/kvm/kvm01.txt
@@ -3,7 +3,7 @@
 //===== By: ================================================== 
 //= ???, L0ne_W0lf
 //===== Current Version: ===================================== 
-//= 1.1
+//= 1.2
 //===== Compatible With: ===================================== 
 //= eAthena 1.0
 //===== Description: ========================================= 
@@ -14,6 +14,9 @@
 //===== Additional Comments: ================================= 
 //= 1.0 First Version.
 //= 1.1 Updated using official Aegis files. [L0ne_W0lf]
+//= 1.2 Upated some announces and dialogs from iRO.
+//=     Changed how the scoreboard works slightly.
+//=     Removed the areapercentheals, and minor things.
 //============================================================
 
 // Waiting Room NPCs
@@ -143,12 +146,11 @@ OnGuillaumeDie:
 	if( $@KvM01BG == 2 )
 	{
 		set .Guillaume_Count, .Guillaume_Count - 1;
-		set .Croix_Score, .Croix_Score + 1;
-		bg_updatescore "bat_c01",.Guillaume_Score,.Croix_Score;
+		bg_updatescore "bat_c01",.Guillaume_Count,.Croix_Count;
 		if( .Guillaume_Count < 1 ) donpcevent "KvM01_BG::OnCroixWin";
 		else {
-			mapannounce "bat_c01", "Number of Guillaume survivors "+.Guillaume_Count+".",bc_map,"0x00ff00";
-			mapannounce "bat_c01", "Number of Croix survivors "+.Croix_Count+".",bc_map,"0x00ff00";
+			mapannounce "bat_c01", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00";
+			mapannounce "bat_c01", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00";
 		}
 	}
 	end;
@@ -159,12 +161,11 @@ OnCroixDie:
 	if( $@KvM01BG == 2 )
 	{
 		set .Croix_Count, .Croix_Count - 1;
-		set .Guillaume_Score, .Guillaume_Score + 1;
-		bg_updatescore "bat_c01",.Guillaume_Score,.Croix_Score;
+		bg_updatescore "bat_c01",.Guillaume_Count,.Croix_Count;
 		if( .Croix_Count < 1 ) donpcevent "KvM01_BG::OnGuillaumeWin";
 		else {
-			mapannounce "bat_c01", "Number of Guillaume survivors "+.Guillaume_Count+".",bc_map,"0x00ff00";
-			mapannounce "bat_c01", "Number of Croix survivors "+.Croix_Count+".",bc_map,"0x00ff00";
+			mapannounce "bat_c01", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00";
+			mapannounce "bat_c01", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00";
 		}
 	}
 	end;
@@ -191,9 +192,6 @@ OnStart:
 	// Warp Teams
 	bg_warp $@KvM01BG_id1,"bat_c01",53,128;
 	bg_warp $@KvM01BG_id2,"bat_c01",146,55;
-	// ScoreBoard
-	set .Guillaume_Score, 0;
-	set .Croix_Score, 0;
 	initnpctimer;
 	end;
 
@@ -255,34 +253,32 @@ OnTimer61000:
 		end;
 	}
 	set $@KvM01BG, 2; // Playing
-	areapercentheal "bat_c01",50,123,58,131,100,100;
 	bg_warp $@KvM01BG_id1,"bat_c01",61,120;
-	areapercentheal "bat_c01",141,52,149,60,100,100;
 	bg_warp $@KvM01BG_id2,"bat_c01",138,63;
 	end;
 
 OnTimer300000:
-	mapannounce "bat_c01", "KVM will be ending in 1 minute.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "1 minute remaining to finish the KVM battle.",bc_map,"0x00ff00";
 	end;
 
 OnTimer330000:
-	mapannounce "bat_c01", "KVM will be ending in 30 seconds.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "30 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00";
 	end;
 
 OnTimer345000:
-	mapannounce "bat_c01", "KVM will be ending in 15 seconds.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "15 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00";
 	end;
 
 OnTimer350000:
-	mapannounce "bat_c01", "KVM will be ending in 10 seconds.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "10 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00";
 	end;
 
 OnTimer355000:
-	mapannounce "bat_c01", "KVM will be ending in 5 seconds.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "5 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00";
 	end;
 
 OnTimer360000:
-	mapannounce "bat_c01", "KVM has ended.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "The KVM battle is over.",bc_map,"0x00ff00";
 	if( .Croix_Count > .Guillaume_Count )
 		donpcevent "KvM01_BG::OnCroixWin";
 	else if( .Croix_Count < .Guillaume_Count )
@@ -291,9 +287,9 @@ OnTimer360000:
 	{ // Draw Game
 		set $@KvM01BG, 3;
 		set $@KvM01BG_Victory, 3;
-		mapannounce "bat_c01", "Number of Guillaume survivors "+.Guillaume_Count+".",bc_map,"0x00ff00";
-		mapannounce "bat_c01", "Number of Croix survivors "+.Croix_Count+".",bc_map,"0x00ff00";
-		mapannounce "bat_c01", "Regardless of the outcome of the two camps.",bc_map,"0x00ff00";
+		mapannounce "bat_c01", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00";
+		mapannounce "bat_c01", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00";
+		mapannounce "bat_c01", "This battle has ended in a draw.",bc_map,"0x00ff00";
 		donpcevent "KvM01_BG::OnStop";
 	}
 	end;
@@ -301,18 +297,18 @@ OnTimer360000:
 OnGuillaumeWin:
 	set $@KvM01BG, 3;
 	set $@KvM01BG_Victory, 1;
-	mapannounce "bat_c01", "Guillaume camp victory.",bc_map,"0x00ff00";
-	mapannounce "bat_c01", "Congratulations to all Guillaume members.",bc_map,"0x00ff00";
-	mapannounce "bat_c01", "All personnel move to the starting zone.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Guillaume wins!",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Congratulations to Guillaume members.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Everyone will be moved to the start point.",bc_map,"0x00ff00";
 	donpcevent "KvM01_BG::OnStop";
 	end;
 
 OnCroixWin:
 	set $@KvM01BG, 3;
 	set $@KvM01BG_Victory, 2;
-	mapannounce "bat_c01", "Croix camp victory.",bc_map,"0x00ff00";
-	mapannounce "bat_c01", "Congratulations to all Croix members.",bc_map,"0x00ff00";
-	mapannounce "bat_c01", "All personnel move to the starting zone.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Croix wins!",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Congratulations to Croix members.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Everyone will be moved to the start point.",bc_map,"0x00ff00";
 	donpcevent "KvM01_BG::OnStop";
 	end;
 
@@ -329,8 +325,6 @@ OnStop:
 OnReset:
 	set .Croix_Count, 0;
 	set .Guillaume_Count, 0;
-	set .Croix_Score, 0;
-	set .Guillaume_Score, 0;
 	set $@KvM01BG_Victory, 0;
 	if( $@KvM01BG_id1 ) { bg_destroy $@KvM01BG_id1; set $@KvM01BG_id1, 0; }
 	if( $@KvM01BG_id2 ) { bg_destroy $@KvM01BG_id2; set $@KvM01BG_id2, 0; }
@@ -338,7 +332,7 @@ OnReset:
 	disablenpc "KVM Officer#KVM01B";
 	mapwarp "bat_c01","bat_room",154,150;
 	maprespawnguildid "bat_c01",0,3; // Just in case someone else
-	bg_updatescore "bat_c01",0,0;
+	bg_updatescore "bat_c01",5,5;
 	set $@KvM01BG, 0;
 	donpcevent "KvM01_BG::OnReadyCheck"; // Maybe a game is ready to start
 	end;
@@ -361,8 +355,12 @@ OnTimer3000:
 	end;
 
 OnTimer5000:
-	mapannounce "bat_c01", "If you do not claim your points now, you will not be able to.",bc_map,"0x00ff00";
-	mapannounce "bat_c01", "Please make sure to collect before the time expires.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Unless you talk to the Officer, you cannot gain the points.",bc_map,"0x00ff00";
+	mapannounce "bat_c01", "Please be careful.",bc_map,"0x00ff00";
+	end;
+
+OnTimer:55000:
+	mapannounce "bat_c01", "You will be sent back.",bc_map,"0x00ff00";
 	end;
 
 OnTimer60000:
@@ -379,19 +377,19 @@ bat_c01,51,130,5	script	KVM Officer#KVM01A	419,{
 		if( $@KvM01BG_Victory == Bat_Team )
 		{ // Victory
 			set kvm_point,kvm_point + 5;
-			mes "[Swandery]";
-			mes "Blessed Guillaume!!";
-			mes "Let's enjoy our glorious victory!";
-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			mes "[KVM Officer]";
+			mes "Good Game.";
+			mes "May the glory of KVM be with you.";
+			mes "You aquire the winning points: 5";
 			close2;
 		}
 		else
 		{ // 
 			set kvm_point,kvm_point + 1;
-			mes "[Swandery]";
-			mes "You lost, but you're dedicated to this battle.";
-			mes "This is a reward for your great dedication by Guillaume Marollo!";
-			mes "Just take this defeat a lesson, and later you would definitely learn.";
+			mes "[KVM Officer]";
+			mes "I am so sorry.";
+			mes "I wish you better luck next time.";
+			mes "You aquire the losing points: 1";
 			close2;
 		}
 		bg_leave;
@@ -408,19 +406,19 @@ bat_c01,148,53,1	script	KVM Officer#KVM01B	415,{
 		if( $@KvM01BG_Victory == Bat_Team )
 		{ // Victory
 			set kvm_point,kvm_point + 5;
-			mes "[Swandery]";
-			mes "Blessed Croax!!";
-			mes "Let's enjoy our glorious victory!";
-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			mes "[KVM Officer]";
+			mes "Good Game.";
+			mes "May the glory of KVM be with you.";
+			mes "You aquire the winning points: 5";
 			close2;
 		}
 		else
 		{ // 
 			set kvm_point,kvm_point + 1;
-			mes "[Swandery]";
-			mes "Oh, " + strcharinfo(0) + ". Don't be sad.";
-			mes "Even though we didn't win, we did our best.";
-			mes "This is a Royal gift from Croix, and please don't forget this battle. We can win the next.";
+			mes "[KVM Officer]";
+			mes "I am so sorry.";
+			mes "I wish you better luck next time.";
+			mes "You aquire the losing points: 1";
 			close2;
 		}
 		bg_leave;