From 85c4ccd29f42e758a2311f0bb5e91d55e9c14852 Mon Sep 17 00:00:00 2001
From: SinSloth <SinSloth@54d463be-8e91-2dee-dedb-b68131a5f0ec>
Date: Wed, 31 Oct 2007 11:58:30 +0000
Subject: * Forgot Arena warps file ~~

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@11623 54d463be-8e91-2dee-dedb-b68131a5f0ec
---
 npc/warps/other/arena.txt | 48 +++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 46 insertions(+), 2 deletions(-)

(limited to 'npc/warps/other/arena.txt')

diff --git a/npc/warps/other/arena.txt b/npc/warps/other/arena.txt
index 1ff42c441..e23e1f50f 100644
--- a/npc/warps/other/arena.txt
+++ b/npc/warps/other/arena.txt
@@ -3,14 +3,15 @@
 //===== By: ==================================================
 //= SinSloth
 //===== Current Version: =====================================
-//= 1.1
+//= 1.2
 //===== Compatible With: =====================================
 //= Any Athena Version
 //===== Description: =========================================
-//= Warp Points related to Izlude Arena && Control Panel(to come)
+//= Warp Points related to Izlude Arena && Control Panel
 //===== Additional Comments: =================================
 //= 1.0 First version, done by SinSloth. [MasterOfMuppets]
 //= 1.1 updated welcome_arena warp coords (was 128,126) [Lupus]
+//= 1.2 Made some updates due to Izlude Battle Arena release. [SinSloth]
 //============================================================
 
 izlude,128,226,0	warp	welcome_arena	1,1,arena_room,100,30
@@ -26,3 +27,46 @@ arena_room,136,53,0	warp	arn_room_5_2	1,1,arena_room,113,74
 arena_room,123,88,0	warp	arn_room_3_1	1,1,arena_room,153,87
 arena_room,150,87,0	warp	arn_room_3_2	1,1,arena_room,120,87
 prt_are_in,54,13,0	warp	toarn_room	1,1,arena_room,100,77
+
+sec_in02,79,180,3	script	#arenacontrol	81,{
+
+DLGTEMP:
+	input @input_arena;
+	if (@input_arena < 0 || @input_arena > 2000) goto DLGTEMP;	//CHECK
+	if (@input == 0)
+	{
+		mes "Error!";
+		close;
+	}
+	else if (@input_arena == 1357)
+	{
+		mes "Opening Control Panel";	
+		mes "' A - R - E - N - A '";	
+		next;
+		mes "Please select a";	
+		mes "state for the arena.";	
+		next;
+		switch( select( "Open.","Closed.") )
+		{
+			case 1:
+				mes "Currently";	
+				mes "opening arena.";	
+				misceffect EF_ENHANCE;	//CHECK
+				enablenpc "welcome_arena";
+				next;
+				break;
+			case 2:
+				mes "Currently";	
+				mes "closing arena.";	
+				misceffect EF_EXIT;	//CHECK
+				disablenpc "welcome_arena";
+				next;
+				break;
+		}
+	}
+	else
+	{
+		mes "Closing control panel.";	
+		close;
+	}
+}
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2