summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
Diffstat (limited to 'npc')
-rw-r--r--npc/warps/other/arena.txt48
1 files changed, 46 insertions, 2 deletions
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