Update to last rAthena npc.

Fix some typos
change sc_bleeding to -> sc_blooding
Updated RE EXP for quests_brasilis.txt

1 files changed, 354 insertions, 448 deletions

diff --git a/npc/other/arena/arena_room.txt b/npc/other/arena/arena_room.txt
index 925976f3b..2e067cd28 100644
--- a/npc/other/arena/arena_room.txt
+++ b/npc/other/arena/arena_room.txt
@@ -3,26 +3,28 @@
 //===== By: ==================================================
 //= SinSloth
 //===== Current Version: =====================================
-//= 1.1
+//= 1.4
 //===== Description: =========================================
 //= Izlude Battle Arena Main Room
 //===== Additional Comments: =================================
 //= 1.0 First version.
 //= 1.1 Fixed a small reward typo (was giving potato.) [L0ne_W0lf]
+//= 1.2 Label standardization, disabled GM NPCs. [Euphy]
+//= 1.2a Added Renewal level checksk. [Euphy]
+//= 1.3 Script updates. [Euphy]
+//= 1.4 Added GM management function. [Euphy]
 //============================================================
 
 arena_room,94,93,5	script	Vendigos	97,{
-
 	mes "[Vendigos]";
 	mes "Welcome to the world of Arena, the battle against a time limit.";
 	mes "My name is Vendigos, I am here to help you.";
 	next;
 	mes "[Vendigos]";
 	mes "If you have any questions, feel free to ask me.";
-L_Menu:
 	next;
-	switch( select( "How to challenge","About Arena Points","My Current Arena Points","Cancel" ) )
-	{
+	while(1) {
+		switch(select("How to challenge:About Arena Points:My Current Arena Points:Cancel")) {
 		case 1:
 			mes "[Vendigos]";
 			mes "There are two different kinds of arena mode such as ^3131FFPlayer Mode^000000 and ^3131FFParty Mode^000000.";
@@ -38,7 +40,6 @@ L_Menu:
 			mes "There are the NPCs for Player Mode Stages from 12 o'clock direction to the reversed clock direction.";
 			mes "While you're waiting in a chat room, you will be automatically guided to an arena room by the waiting order.";
 			break;
-
 		case 2:
 			mes "[Vendigos]";
 			mes "Let me explain about the ^3131FFArena Point^000000.";
@@ -51,7 +52,6 @@ L_Menu:
 			mes "Regarding the use of Arena Points,";
 			mes "we are providing various services such as souvenir photograph services through an NPC named Givu.";
 			break;
-
 		case 3:
 			mes "[Vendigos]";
 			mes "Let me check "+strcharinfo(0)+"'s current arena points.";
@@ -62,45 +62,46 @@ L_Menu:
 			mes "[Vendigos]";
 			mes "If you wish to know how to use arena points, please refer to the 2nd menu ^3131FF'About Arena Points'^000000.";
 			break;
-
 		case 4:
 			mes "[Vendigos]";
-			mes "Okay, please have a good time.";
+			mes "Okay then,";
+			mes "please have";
+			mes "a good time.";
 			close;
+		}
+		next;
+		mes "[Vendigos]";
+		mes "Is there anything";
+		mes "more I can help you with?";
+		next;
 	}
-	next;
-	mes "[Vendigos]";
-	mes "Is there anything I can help you more?";
-	goto L_Menu;
+	close;
 
-Onlinerec_50:
+OnLineRec_50:
 	mapannounce "arena_room",""+$arena_50topn$+" has renewed the top record in the Arena Time Force Battle level 50. Congratulations!",0;
 	end;
 
-Onlinerec_60:
+OnLineRec_60:
 	mapannounce "arena_room",""+$arena_60topn$+" has renewed the top record in the Arena Time Force Battle level 60. Congratulations!",0;
 	end;
 
-Onlinerec_70:
+OnLineRec_70:
 	mapannounce "arena_room",""+$arena_70topn$+" has renewed the top record in the Arena Time Force Battle level 70. Congratulations!",0;
 	end;
-Onlinerec_80:
+OnLineRec_80:
 	mapannounce "arena_room",""+$arena_80topn$+" has renewed the top record in the Arena Time Force Battle level 80. Congratulations!",0;
 	end;
 
-Onlinerec_pt:
+OnLineRec_pt:
 	mapannounce "arena_room","Party "+$arena_pttopn$+" has renewed the top record in the Arena Time Force Battle. Congratulations!",0;
 	end;
 
-//OnCommand: "linerec_vs"
-// var vs_winner = GetGlobalStr "040611_arn_vstopn"
-// broadcastinmap "Party "+vs_winner+" has renewed the top record in the Arena Time Force Battle. Congratulations!"
-// end;
-
+//OnLineRec_vs:
+//	mapannounce "arena_room","Party "+$040611_arn_vstopn$+" has renewed the top record in the Arena Time Force Battle. Congratulations!",0;
+//	end;
 }
 
 arena_room,105,82,5	script	Arena Record Staff	57,{
-
 	mes "[Owen Kheuv]";
 	mes "Hello, my name is Own Kheuv";
 	mes "in charge of every arena stage record of players.";
@@ -109,43 +110,37 @@ arena_room,105,82,5	script	Arena Record Staff	57,{
 	mes "Would you like to check the top record players in each stage?";
 	mes "If so, please choose a menu below.";
 	next;
-	switch( select( "lvl 50 Stage","lvl 60 Stage","lvl 70 Stage","lvl 80 Stage","Party Stage" ) )
-	{
-		case 1:
-			mes "[Owen Kheuv]";
-			mes "Currently the top player of the arena lvl 50 stage is ^3131FF "+$arena_50topn$+"^000000, the top record is ^3131FF"+$top_50min+"^000000 minutes ^3131FF"+$top_50sec+"^000000 seconds.";
-			close;
-
-		case 2:
-			mes "[Owen Kheuv]";
-			mes "Currenly the top player of the arena lvl 60 stage is ^3131FF"+$arena_60topn$+"^000000, the top record is ^3131FF"+$top_60min+"^000000 minutes ^3131FF"+$top_60sec+"^000000 seconds.";
-			close;
-
-		case 3:
-			mes "[Owen Kheuv]";
-			mes "Currenly the top player of the arena lvl 70 stage is ^3131FF"+$arena_70topn$+"^000000, the top record is ^3131FF"+$top_70min+"^000000 minutes ^3131FF"+$top_70sec+"^000000 seconds.";
-			close;
-
-		case 4:
-			mes "[Owen Kheuv]";
-			mes "Currenly the top player of the arena lvl 80 stage is ^3131FF"+$arena_80topn$+"^000000, the top record is ^3131FF"+$top_80min+"^000000 minutes ^3131FF"+$top_80sec+"^000000 seconds.";
-			close;
-
-		case 5:
-			mes "[Owen Kheuv]";
-			mes "Currenly the top party is ^3131FF"+$arena_pttopn$+"^000000, the top record is ^3131FF"+$top_ptmin+"^000000 minutes ^3131FF"+$top_ptsec+"^000000 seconds.";
-			close;
+	switch(select("Lv 50 Stage:Lv 60 Stage:Lv 70 Stage:Lv 80 Stage:Party Stage")) {
+	case 1:
+		mes "[Owen Kheuv]";
+		mes "Currently the top player of the arena Lv 50 stage is ^3131FF "+$arena_50topn$+"^000000, the top record is ^3131FF"+$top_50min+"^000000 minutes ^3131FF"+$top_50sec+"^000000 seconds.";
+		close;
+	case 2:
+		mes "[Owen Kheuv]";
+		mes "Currenly the top player of the arena Lv 60 stage is ^3131FF"+$arena_60topn$+"^000000, the top record is ^3131FF"+$top_60min+"^000000 minutes ^3131FF"+$top_60sec+"^000000 seconds.";
+		close;
+	case 3:
+		mes "[Owen Kheuv]";
+		mes "Currenly the top player of the arena Lv 70 stage is ^3131FF"+$arena_70topn$+"^000000, the top record is ^3131FF"+$top_70min+"^000000 minutes ^3131FF"+$top_70sec+"^000000 seconds.";
+		close;
+	case 4:
+		mes "[Owen Kheuv]";
+		mes "Currenly the top player of the arena Lv 80 stage is ^3131FF"+$arena_80topn$+"^000000, the top record is ^3131FF"+$top_80min+"^000000 minutes ^3131FF"+$top_80sec+"^000000 seconds.";
+		close;
+	case 5:
+		mes "[Owen Kheuv]";
+		mes "Currenly the top party is ^3131FF"+$arena_pttopn$+"^000000, the top record is ^3131FF"+$top_ptmin+"^000000 minutes ^3131FF"+$top_ptsec+"^000000 seconds.";
+		close;
 	}
 }
 
 arena_room,68,135,3	script	Helper Pat	726,{
-
 	mes "[Pat]";
 	mes "Welcome, welcome.";
-	mes "I am a helper of the lvl 50 arena stage.";
+	mes "I am a helper of the Lv 50 arena stage.";
 	next;
 	mes "[Pat]";
-	mes "This ^3131FFlvl 50 arena stage^000000";
+	mes "This ^3131FFLv 50 arena stage^000000";
 	mes "is accessable to characters from ^FF0000level 50^000000 to ^FF0000level 69^000000.";
 	next;
 	mes "[Pat]";
@@ -179,13 +174,12 @@ arena_room,68,135,3	script	Helper Pat	726,{
 }
 
 arena_room,41,93,5	script	Helper Ben	750,{
-
 	mes "[Ben]";
 	mes "Welcome, welcome.";
-	mes "I am a helper of the lvl 60 arena stage.";
+	mes "I am a helper of the Lv 60 arena stage.";
 	next;
 	mes "[Ben]";
-	mes "This ^3131FFlvl 60 arena stage^000000";
+	mes "This ^3131FFLv 60 arena stage^000000";
 	mes "is accessable to characters from ^FF0000level 60^000000 to ^FF0000level 79^000000.";
 	next;
 	mes "[Ben]";
@@ -219,14 +213,13 @@ arena_room,41,93,5	script	Helper Ben	750,{
 }
 
 arena_room,53,49,5	script	Helper Vicious	730,{
-
 	mes "[Vicious]";
 	mes "Hey there.";
-	mes "My name is Vicious, I am a helper of lvl 70 arena stage.";
+	mes "My name is Vicious, I am a helper of Lv 70 arena stage.";
 	mes "(...I have no clue how the hell I put myself into this crappy work...mumble mumble...grumble grumble..)";
 	next;
 	mes "[Vicious]";
-	mes "This ^3131FFlvl 70 arena stage^000000";
+	mes "This ^3131FFLv 70 arena stage^000000";
 	mes "is accessable to characters from ^FF0000level 70^000000 to ^FF0000level 89^000000.";
 	next;
 	mes "[Vicious]";
@@ -260,10 +253,9 @@ arena_room,53,49,5	script	Helper Vicious	730,{
 }
 
 arena_room,147,49,3	script	Helper Epin	727,{
-
 	mes "[Epin]";
 	mes "Good day,";
-	mes "I am a helper of lvl 80 arena stage and my name is Epin.";
+	mes "I am a helper of Lv 80 arena stage and my name is Epin.";
 	mes "I like reading and I am 19 years old...huh...? Don't you want to hear about me...?";
 	next;
 	emotion e_cry,0;
@@ -271,8 +263,8 @@ arena_room,147,49,3	script	Helper Epin	727,{
 	mes "Okay...";
 	next;
 	mes "[Epin]";
-	mes "This ^3131FFlvl 80 arena stage^000000";
-	mes "is accessable to characters from ^FF0000level 80^000000 to ^FF0000level 99^000000.";
+	mes "This ^3131FFLv 80 arena stage^000000";
+	mes "is accessable to characters from ^FF0000level 80^000000 to ^FF0000level "+(checkre(0)?"160":"99")+"^000000.";
 	next;
 	mes "[Epin]";
 	mes "This level limitation is to prevent high level characters abusing low level arena stages. I hope you will understand.";
@@ -305,7 +297,6 @@ arena_room,147,49,3	script	Helper Epin	727,{
 }
 
 arena_room,158,93,5	script	Helper Lunic	828,{
-
 	mes "[Lunic]";
 	mes "Welcome to party arena stage.";
 	mes "I hope you will listen carefully to my introduction";
@@ -313,7 +304,7 @@ arena_room,158,93,5	script	Helper Lunic	828,{
 	next;
 	mes "[Lunic]";
 	mes "^3131FFParty Arena Stage^000000";
-	mes "is accessible to players from ^FF0000level 10^000000 to ^FF0000level 99^000000.";
+	mes "is accessible to players from ^FF0000level 10^000000 to ^FF0000level "+(checkre(0)?"160":"99")+"^000000.";
 	next;
 	mes "[Lunic]";
 	mes "Also, arena will be not be started until all of 5 party members enter the room. We accept an entrance fee 1,000 zeny.";
@@ -375,7 +366,6 @@ arena_room,158,93,5	script	Helper Lunic	828,{
 }
 
 arena_room,158,82,1	script	Helper Lonik	828,{
-
 	emotion e_no1,0;
 	mes "[Lonik]";
 	mes "Tah dah! Here I am!";
@@ -386,17 +376,14 @@ arena_room,158,82,1	script	Helper Lonik	828,{
 	mes "[Lonik]";
 	mes "My answer is...";
 	mes ".............";
-	if(getmapusers("force_1-2"))
-	{
+	if (getmapusers("force_1-2")) {
 		emotion e_oh,0;
 		mes "Yes!";
 		mes "There is someone inside.";
 		next;
 		mes "[Lonik]";
 		mes "You'd better wait a little bit longer!";
-	}
-	else
-	{
+	} else {
 		emotion e_x,0;
 		mes "No!";
 		mes "Go for it, good luck!";
@@ -405,235 +392,185 @@ arena_room,158,82,1	script	Helper Lonik	828,{
 }
 
 sec_in02,72,180,3	script	Arena Manager#arena	802,{
-
-	if (!getgmlevel()) end;
-
-	input .@arena;
-	if(!.@arena)
-	{
+	set .@i, callfunc("F_GM_NPC",1357,0);
+	if (.@i == -1) {
 		mes "[Arena Manager]";
 		mes "Command has been canceled.";
 		close;
-	}
-	else if(.@arena == 1357)
-	{
+	} else if (.@i == 0) {
+		mes "Password is incorrect.";
+		close;
+	} else {
 		mes "[Arena Manager]";
 		mes "Select an option.";
 		next;
-		switch( select( "Restart arena","Rearrange the Ranking Time" ) )
-		{
+		switch(select("Restart arena:Rearrange the Ranking Time")) {
+		case 1:
+			switch(select("Lv 50:Lv 60:Lv 70:Lv 80:Party Mode")) {
 			case 1:
-				switch( select( "lvl 50","lvl 60","lvl 70","lvl 80","Party Mode" ) ) 
-				{
-					case 1:
-						set .@arena,50;
-						break;
-					case 2:
-						set .@arena,60;
-						break;
-					case 3:
-						set .@arena,70;
-						break;
-					case 4:
-						set .@arena,80;
-						break;
-					case 5:
-						mes "[Arena Manager]";
-						mes "== Caution ==";
-						mes "You have chosen to restart party arena stage.";
-						mes "Do you wish to proceed?";
-						next;
-						switch( select( "Yes","No" ) )
-						{
-							case 1:
-								donpcevent "Ponox::Onstart";
-								mes "[Arena Manager]";
-								mes "The arena stage has been successfuly reactivated.";
-								close;
-
-							case 2:
-								mes "[Arena Manager]";
-								mes "Command has been canceled.";
-								close;
-						}
-				}
+				set .@arena,50;
+				break;
+			case 2:
+				set .@arena,60;
+				break;
+			case 3:
+				set .@arena,70;
+				break;
+			case 4:
+				set .@arena,80;
+				break;
+			case 5:
 				mes "[Arena Manager]";
 				mes "== Caution ==";
-				mes "You have chosen to restart lvl "+.@arena+" arena stage.";
+				mes "You have chosen to restart party arena stage.";
 				mes "Do you wish to proceed?";
 				next;
-				switch( select( "Yes","No" ) )
-				{
-					case 1:
-						donpcevent "lvl "+.@arena+"s Waiting Room::Onstart";
-						mes "[Arena Manager]";
-						mes "The arena stage has been successfuly reactivated.";
-						close;
+				switch(select("Yes:No")) {
+				case 1:
+					donpcevent "Ponox::OnStart";
+					mes "[Arena Manager]";
+					mes "The arena stage has been successfuly reactivated.";
+					close;
 
-					case 2:
-						mes "[Arena Manager]";
-						mes "Command has been canceled.";
-						close;
+				case 2:
+					mes "[Arena Manager]";
+					mes "Command has been canceled.";
+					close;
 				}
-
+			}
+			mes "[Arena Manager]";
+			mes "== Caution ==";
+			mes "You have chosen to restart Lv "+.@arena+" arena stage.";
+			mes "Do you wish to proceed?";
+			next;
+			switch(select("Yes:No")) {
+			case 1:
+				donpcevent "Lv"+.@arena+" Waiting Room::OnStart";
+				mes "[Arena Manager]";
+				mes "The arena stage has been successfuly reactivated.";
+				close;
 			case 2:
 				mes "[Arena Manager]";
-				mes "== Caution ==";
-				mes "^CE0000You have chosen to rearrange the ranking time. Make sure this is not a good decision unless if something serious was happened!^000000";
-				next;
+				mes "Command has been canceled.";
+				close;
+			}
+		case 2:
+			mes "[Arena Manager]";
+			mes "== Caution ==";
+			mes "^CE0000You have chosen to rearrange the ranking time. Make sure this is not a good decision unless if something serious was happened!^000000";
+			next;
+			mes "[Arena Manager]";
+			mes "Are you sure you want to rearrange the ranking time?";
+			next;
+			switch(select("No:Yes")) {
+			case 1:
 				mes "[Arena Manager]";
-				mes "Are you sure you want to rearrange the ranking time?";
-				next;
-				switch( select( "No","Yes" ) )
-				{
-					case 1:
-						mes "[Arena Manager]";
-						mes "Phew~ :)";
-						close;
-
-					case 2:
-						switch( select( "lvl 50","lvl 60","lvl 70","lvl 80","Party Mode" ) )
-						{
-							case 1:
-								mes "[Arena Manager]";
-								mes "Please enter 0 to cancel.";
-								mes "If not, please enter a value for minutes first and then seconds.";
-								next;
-								input .@arenamin;
-								set $top_50min,.@arenamin;
-								input .@arenasec;
-								set $top_50sec,.@arenasec;
-								mes "[Arena Manager]";
-								mes "Current lvl 50 ranker's play time has been rearranged to ^FF0000"+$top_50min+"^000000 minutes and ^FF0000"+$top_50sec+"^000000 seconds.";
-								close;
-							case 2:
-								mes "[Arena Manager]";
-								mes "Please enter 0 to cancel.";
-								mes "If not, please enter a value for minutes first and then seconds.";
-								next;
-								input .@arenamin;
-								set $top_60min,.@arenamin;
-								input .@arenasec;
-								set $top_60sec,.@arenasec;
-								mes "[Arena Manager]";
-								mes "Current lvl 60 ranker's play time has been rearranged to ^FF0000"+$top_60min+"^000000 minutes and ^FF0000"+$top_60sec+"^000000 seconds.";
-								close;
-							case 3:
-								mes "[Arena Manager]";
-								mes "Please enter 0 to cancel.";
-								mes "If not, please enter a value for minutes first and then seconds.";
-								next;
-								input .@arenamin;
-								set $top_70min,.@arenamin;
-								input .@arenasec;
-								set $top_70sec,.@arenasec;
-								mes "[Arena Manager]";
-								mes "Current lvl 70 ranker's play time has been rearranged to ^FF0000"+$top_70min+"^000000 minutes and ^FF0000"+$top_70sec+"^000000 seconds.";
-								close;
-							case 4:
-								mes "[Arena Manager]";
-								mes "Please enter 0 to cancel.";
-								mes "If not, please enter a value for minutes first and then seconds.";
-								next;
-								input .@arenamin;
-								set $top_80min,.@arenamin;
-								input .@arenasec;
-								set $top_80sec,.@arenasec;
-								mes "[Arena Manager]";
-								mes "Current lvl 80 ranker's play time has been rearranged to ^FF0000"+$top_80min+"^000000 minutes and ^FF0000"+$top_80sec+"^000000 seconds.";
-								close;
-							case 5:
-								mes "[Arena Manager]";
-								mes "Please enter 0 to cancel.";
-								mes "If not, please enter a value for minutes first and then seconds.";
-								next;
-								input .@arenamin;
-								set $top_ptmin,.@arenamin;
-								input .@arenasec;
-								set $top_ptsec,.@arenasec;
-								mes "[Arena Manager]";
-								mes "Current party ranker's play time has been rearranged to ^FF0000"+$top_ptmin+"^000000 minutes and ^FF0000"+$top_ptsec+"^000000 seconds.";
-								close;
-						}
+				mes "Phew~ :)";
+				close;
+			case 2:
+				switch(select("Lv 50:Lv 60:Lv 70:Lv 80:Party Mode")) {
+				case 1:
+					set .@min$,"$top50min";
+					set .@sec$,"$top50sec";
+					set .@mode$,"Lv 50";
+					break;
+				case 2:
+					set .@min$,"$top60min";
+					set .@sec$,"$top60sec";
+					set .@mode$,"Lv 60";
+					break;
+				case 3:
+					set .@min$,"$top70min";
+					set .@sec$,"$top70sec";
+					set .@mode$,"Lv 70";
+					break;
+				case 4:
+					set .@min$,"$top80min";
+					set .@sec$,"$top80sec";
+					set .@mode$,"Lv 80";
+					break;
+				case 5:
+					set .@min$,"$top_ptmin";
+					set .@sec$,"$top_ptsec";
+					set .@mode$,"party";
+					break;
 				}
+				mes "[Arena Manager]";
+				// Doesn't work with Athena's implementation.
+				//mes "Please enter 0 to cancel.";
+				//mes "If not, please enter a value for minutes first and then seconds.";
+				mes "Please enter a value for minutes first and then seconds.";
+				next;
+				input .@arenamin;
+				setd .@min$,.@arenamin;
+				input .@arenasec;
+				setd .@sec$,.@arenasec;
+				mes "[Arena Manager]";
+				mes "Current "+.@mode$+" ranker's play time has been rearranged to ^FF0000"+getd(.@min$)+"^000000 minutes and ^FF0000"+getd(.@sec$)+"^000000 seconds.";
+				close;
+			}
 		}
 	}
-	mes "Password is incorrect.";
-	close;
 }
 
 sec_in02,79,171,3	script	Reward Manager#arena	802,{
-
-	if (!getgmlevel()) end;
-
-	input .@arena;
-	if(!.@arena)
-	{
+	set .@i, callfunc("F_GM_NPC",1357,0);
+	if (.@i == -1) {
 		mes "[Reward Manager]";
 		mes "Command has been canceled.";
 		close;
-	}
-	else if(.@arena == 1357)
-	{
+	} else if (.@i == 0) {
+		mes "[Reward Manager]";
+		mes "Password is incorrect.";
+		close;
+	} else {
 		mes "[Reward Manager]";
 		mes "You have chosen to hide the teleporter NPC.";
 		next;
-		switch( select( "Cancel","Yes","Turn on" ) )
-		{
-			case 1:
-				mes "[Reward Manager]";
-				mes "You have canceled the command.";
-				close;
-
-			case 2:
-				mes "[Reward Manager]";
-				mes "NPC has been hidden";
-				disablenpc "Teleporter#arena";
-				close;
-
-			case 3:
-				mes "[Reward Manager]";
-				mes "NPC has been enabled.";
-				enablenpc "Teleporter#arena";
-				close;
+		switch(select("Cancel:Yes:Turn on")) {
+		case 1:
+			mes "[Reward Manager]";
+			mes "You have canceled the command.";
+			close;
+		case 2:
+			mes "[Reward Manager]";
+			mes "NPC has been hidden.";
+			disablenpc "Teleporter#arena";
+			close;
+		case 3:
+			mes "[Reward Manager]";
+			mes "NPC has been enabled.";
+			enablenpc "Teleporter#arena";
+			close;
 		}
 	}
-	mes "[Reward Manager]";
-	mes "Password is incorrect.";
-	close;
 }
 
 arena_room,105,93,5	script	Teleporter#arena	55,{
-
 	mes "[Teleporter]";
 	mes "I can move you to the reward arena!";
 	mes "Would you like to go there?";
 	next;
-	switch( select( "Yes.","No." ) )
-	{
-		case 1:
-			mes "[Teleporter]";
-			mes "Let me guide you.";
-			close2;
-			warp "prt_are_in",60,14;
-			end;
-
-		case 2:
-			mes "[Teleporter]";
-			mes "No problem, feel free to come back any time.";
-			close;
+	switch(select("Yes:No.")) {
+	case 1:
+		mes "[Teleporter]";
+		mes "Let me guide you.";
+		close2;
+		warp "prt_are_in",60,14;
+		end;
+	case 2:
+		mes "[Teleporter]";
+		mes "No problem, feel free to come back any time.";
+		close;
 	}
 }
 
 prt_are_in,98,14,3	script	Givu#arena	728,{
-
-
-	if(checkweight(526,5) != 1)
-	{
+	if (checkweight(526,5) == 0) {
 		mes "- Wait a moment! -";
 		mes "- Currently you're carrying -";
 		mes "- too many items with you. -";
-		mes "- Please enlighten your weight -";
+		mes "- Please lighten your weight -";
 		mes "- and try again. -";
 		close;
 	}
@@ -645,149 +582,139 @@ prt_are_in,98,14,3	script	Givu#arena	728,{
 	mes "You can exchange your arena points with various stuffs.";
 	mes "Please choose a menu below.";
 	next;
-	switch( select( "Exchange with Consumable items","Exchange with EXP points","Take a Souvenir Picture","Check Current Arena Points" ) )
-	{
+	switch(select("Exchange with Consumable items:Exchange with EXP points:Take a Souvenir Picture:Check Current Arena Points")) {
+	case 1:
+		mes "[Givu]";
+		mes "What consumable item do you wish to exchange?";
+		next;
+		switch(select("Honey:Royal Jelly:Mastela Fruit:Condensed White Potion:Anodyne:Yggdrasil Seed:Yggdrasilberry:Old Blue Box:Old Purple Box:Old Card Album")) {
+			case 1: callfunc "Func_Are_Rew",518,5,20;
+			case 2: callfunc "Func_Are_Rew",526,5,30;
+			case 3: callfunc "Func_Are_Rew",522,5,30;
+			case 4: callfunc "Func_Are_Rew",547,8,30;
+			case 5: callfunc "Func_Are_Rew",605,3,20;
+			case 6: callfunc "Func_Are_Rew",608,1,20;
+			case 7: callfunc "Func_Are_Rew",607,1,40;
+			case 8: callfunc "Func_Are_Rew",603,1,100;
+			case 9: callfunc "Func_Are_Rew",617,1,300;
+			case 10: callfunc "Func_Are_Rew",616,1,1000;
+		}
+	case 2:
+		mes "[Givu]";
+		mes "Would you like to exchange your arena points with experience points?";
+		mes "It requires 40 arena points.";
+		next;
+		switch(select("Cancel:Yes")) {
 		case 1:
 			mes "[Givu]";
-			mes "What consumable item do you wish to exchange?";
-			next;
-			switch( select( "Honey","Royal Jelly","Mastela Fruit","Condensed White Potion","Anodyne","Yggdrasil Seed","Yggdrasilberry","Old Blue Box","Old Purple Box","Old Card Album" ) )
-			{
-				case 1: callfunc "Func_Are_Rew",518,5,20;
-				case 2: callfunc "Func_Are_Rew",526,5,30;
-				case 3: callfunc "Func_Are_Rew",522,5,30;
-				case 4: callfunc "Func_Are_Rew",547,8,30;
-				case 5: callfunc "Func_Are_Rew",605,3,20;
-				case 6: callfunc "Func_Are_Rew",608,1,20;
-				case 7: callfunc "Func_Are_Rew",607,1,40;
-				case 8: callfunc "Func_Are_Rew",603,1,100;
-				case 9: callfunc "Func_Are_Rew",617,1,300;
-				case 10: callfunc "Func_Are_Rew",616,1,1000;
-			}
-
+			mes "You have canceled your request.";
+			close;
 		case 2:
+			if (arena_point < 40) {
+				mes "[Givu]";
+				mes "You do not have enough arena points.";
+				mes "Please check the total amount of arena points you have.";
+				close;
+			}
+			set arena_point, arena_point-40;
+			if (checkre(3)) {
+				if (BaseLevel < 70) getexp 300,0;
+				else if (BaseLevel < 80) getexp 900,0;
+				else if (BaseLevel < 90) getexp 1000,0;
+				else getexp 3000,0;
+			} else {
+				if (BaseLevel < 70) getexp 3000,0;
+				else if (BaseLevel < 80) getexp 9000,0;
+				else if (BaseLevel < 90) getexp 10000,0;
+				else getexp 30000,0;
+			}
 			mes "[Givu]";
-			mes "Would you like to exchange your arena points with experience points?";
-			mes "It requires 40 arena points.";
+			mes "You have gained experience points. Thank you.";
+			close;
+		}
+	case 3:
+		mes "[Givu]";
+		mes "You have chosen a souvenir picture services.";
+		next;
+		switch(select("About souvenir Picture Services:Take a picture")) {
+		case 1:
+			mes "[Givu]";
+			mes "Do you see stairs at the right side of me?";
 			next;
-			switch( select( "Cancel","Yes" ) )
-			{
-				case 1:
-					mes "[Givu]";
-					mes "You have canceled your request.";
-					close;
-
-				case 2:
-					if(arena_point < 40)
-					{
-						mes "[Givu]";
-						mes "You do not have enough arena points.";
-						mes "Please check the total amount of arena points you have.";
-						close;
-					}
-					set arena_point,arena_point -40;
-					if(BaseLevel < 70) getexp 3000,0;
-					else if(BaseLevel < 80) getexp 9000,0;
-					else if(BaseLevel < 90) getexp 10000,0;
-					else if(BaseLevel < 100) getexp 30000,0;
-					mes "[Givu]";
-					mes "You have gained experience points. Thank you.";
-					close;
-			}
-
-		case 3:
 			mes "[Givu]";
-			mes "You have chosen a souvenir picture services.";
+			mes "At the stairs, you can take a screenshot with an NPC or a monster.";
 			next;
-			switch( select( "About souvenir Picture Services","Take a picture" ) )
-			{
-				case 1:
-					mes "[Givu]";
-					mes "Do you see stairs at the right side of me?";
-					next;
-					mes "[Givu]";
-					mes "At the stairs, you can take a screenshot with an NPC or a monster.";
-					next;
-					mes "[Givu]";
-					mes "When you choose an NPC or a monster, it will show some emotion icons ^FF0000for 1 minute^000000.";
-					next;
-					mes "[Givu]";
-					mes "Don't miss the chance to take a picture with your favorite NPC!";
-					close;
-
-				case 2:
-					if($arenapic)
-					{
-						mes "[Givu]";
-						mes "A souvenir picture services is on progress. Please wait.";
-						close;
-					}
-					mes "[Givu]";
-					mes "Please choose an NPC at below.";
-					mes "The NPC will appear for 1 minute and this service requires 10 arena points.";
-					next;
-					switch( select( "Baphomet","Dark Lord","Doppelganger","Eddga","Dracula","Samurai","Stormy Knight","Phreeoni","Girl","Valkyrie" ) )
-					{
-						case 1: set $@arenapic,1039; break;
-						case 2: set $@arenapic,1272; break;
-						case 3: set $@arenapic,1046; break;
-						case 4: set $@arenapic,1115; break;
-						case 5: set $@arenapic,1389; break;
-						case 6: set $@arenapic,1492; break;
-						case 7: set $@arenapic,1251; break;
-						case 8: set $@arenapic,1159; break;
-						case 9: set $@arenapic,6969; break;
-						case 10: set $@arenapic,7777; break;
-					}
-					if(arena_point < 10)
-					{
-						mes "[Givu]";
-						mes "You do not have enough arena points.";
-						mes "Please check the total amount of arena points you have.";
-						close;
-					}
-					mes "[Givu]";
-					if($@arenapic == 6969) mes "Would you like to take a picture with pretty girls?";
-					else if($@arenapic == 7777) mes "Would you like to take a picture with a Valkyrie?";
-					else mes "Would you like to take a picture with a "+getmonsterinfo($@arenapic,0)+"?";
-					next;
-					switch( select( "Yes","No" ) )
-					{
-						case 1:
-							set arena_point,arena_point -10;
-							set $arenapic,1;
-							enablenpc "#arena_"+$@arenapic+"";
-							movenpc "#arena_"+$@arenapic+"",96,28;
-							if($@arenapic == 6969)
-							{
-								enablenpc "#arena_ss_2";
-								enablenpc "#arena_ss_3";
-								enablenpc "#arena_ss_4";
-							}
-							donpcevent "npctime#arena::OnStart";
-							mes "[Givu]";
-							mes "Thank you.";
-							close;
-
-						case 2:
-							mes "[Givu]";
-							mes "Would you like to consider a little longer?";
-							close;
-					}
-			}
-
-		case 4:
 			mes "[Givu]";
-			mes "Let me check "+strcharinfo(0)+"'s current arena points.";
+			mes "When you choose an NPC or a monster, it will show some emotion icons ^FF0000for 1 minute^000000.";
 			next;
 			mes "[Givu]";
-			mes ""+strcharinfo(0)+" has total ^3131FF"+arena_point+"^000000 points.";
+			mes "Don't miss the chance to take a picture with your favorite NPC!";
 			close;
+		case 2:
+			if ($@arena_picture) {
+				mes "[Givu]";
+				mes "A souvenir picture services is on progress. Please wait.";
+				close;
+			}
+			mes "[Givu]";
+			mes "Please choose an NPC at below.";
+			mes "The NPC will appear for 1 minute and this service requires 10 arena points.";
+			next;
+			switch(select("Baphomet:Dark Lord:Doppelganger:Eddga:Dracula:Samurai:Stormy Knight:Phreeoni:Girl:Valkyrie")) {
+				case 1: set $@arena_picture_id,1039; break;
+				case 2: set $@arena_picture_id,1272; break;
+				case 3: set $@arena_picture_id,1046; break;
+				case 4: set $@arena_picture_id,1115; break;
+				case 5: set $@arena_picture_id,1389; break;
+				case 6: set $@arena_picture_id,1492; break;
+				case 7: set $@arena_picture_id,1251; break;
+				case 8: set $@arena_picture_id,1159; break;
+				case 9: set $@arena_picture_id,6969; break;
+				case 10: set $@arena_picture_id,7777; break;
+			}
+			if (arena_point < 10) {
+				mes "[Givu]";
+				mes "You do not have enough arena points.";
+				mes "Please check the total amount of arena points you have.";
+				close;
+			}
+			mes "[Givu]";
+			if ($@arena_picture_id == 6969)
+				mes "Would you like to take a picture with pretty girls?";
+			else if ($@arena_picture_id == 7777)
+				mes "Would you like to take a picture with a Valkyrie?";
+			else
+				mes "Would you like to take a picture with a "+getmonsterinfo($@arena_picture_id,0)+"?";
+			next;
+			switch(select("Yes:No")) {
+			case 1:
+				set arena_point, arena_point-10;
+				set $@arena_picture,1;
+				enablenpc "#arena_"+$@arena_picture_id+"";
+				movenpc "#arena_"+$@arena_picture_id+"",96,28;
+				if ($@arena_picture_id == 6969) {
+					enablenpc "#arena_ss_2";
+					enablenpc "#arena_ss_3";
+					enablenpc "#arena_ss_4";
+				}
+				donpcevent "npctime#arena::OnStart";
+				mes "[Givu]";
+				mes "Thank you.";
+				close;
+			case 2:
+				mes "[Givu]";
+				mes "Would you like to consider a little longer?";
+				close;
+			}
+		}
+	case 4:
+		mes "[Givu]";
+		mes "Let me check "+strcharinfo(0)+"'s current arena points.";
+		next;
+		mes "[Givu]";
+		mes ""+strcharinfo(0)+" has total ^3131FF"+arena_point+"^000000 points.";
+		close;
 	}
-
-OnInit:
-	set $arenapic,0;
-	end;
 }
 
 prt_are_in,1,1,5	script	#arena_1039	1039,{
@@ -828,7 +755,6 @@ OnKis:
 	emotion e_kis,0;
 	end;
 }
-
 prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_6969	714
 prt_are_in,94,26,5	duplicate(#arena_1039)	#arena_ss_2	714
 prt_are_in,100,28,3	duplicate(#arena_1039)	#arena_ss_3	714
@@ -843,7 +769,6 @@ prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1159	1159
 prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_7777	811
 
 -	script	npctime#arena	-1,{
-
 OnStop:
 	stopnpctimer;
 	end;
@@ -874,9 +799,8 @@ OnTimer9000:
 
 OnTimer10000:
 	mapannounce "prt_are_in"," ",1,0xFFCE00;
-	donpcevent "#arena_"+$@arenapic+"::OnHeart";
-	if($@arenapic == 6969)
-	{
+	donpcevent "#arena_"+$@arena_picture_id+"::OnHeart";
+	if ($@arena_picture_id == 6969) {
 		donpcevent "#arena_ss_2::OnHeart";
 		donpcevent "#arena_ss_3::OnHeart";
 		donpcevent "#arena_ss_4::OnHeart";
@@ -901,9 +825,8 @@ OnTimer19000:
 
 OnTimer20000:
 	mapannounce "prt_are_in"," ",1,0xFFCE00;
-	donpcevent "#arena_"+$@arenapic+"::OnSci";
-	if($@arenapic == 6969)
-	{
+	donpcevent "#arena_"+$@arena_picture_id+"::OnSci";
+	if ($@arena_picture_id == 6969) {
 		donpcevent "#arena_ss_2::OnSci";
 		donpcevent "#arena_ss_3::OnSci";
 		donpcevent "#arena_ss_4::OnSci";
@@ -928,9 +851,8 @@ OnTimer29000:
 
 OnTimer30000:
 	mapannounce "prt_are_in"," ",1,0xFFCE00;
-	donpcevent "#arena_"+$@arenapic+"::OnBest";
-	if($@arenapic == 6969)
-	{
+	donpcevent "#arena_"+$@arena_picture_id+"::OnBest";
+	if ($@arena_picture_id == 6969) {
 		donpcevent "#arena_ss_2::OnBest";
 		donpcevent "#arena_ss_3::OnBest";
 		donpcevent "#arena_ss_4::OnBest";
@@ -955,9 +877,8 @@ OnTimer39000:
 
 OnTimer40000:
 	mapannounce "prt_are_in"," ",1,0xFFCE00;
-	donpcevent "#arena_"+$@arenapic+"::OnOmg";
-	if($@arenapic == 6969)
-	{
+	donpcevent "#arena_"+$@arena_picture_id+"::OnOmg";
+	if ($@arena_picture_id == 6969) {
 		donpcevent "#arena_ss_2::OnOmg";
 		donpcevent "#arena_ss_3::OnOmg";
 		donpcevent "#arena_ss_4::OnOmg";
@@ -982,9 +903,8 @@ OnTimer49000:
 
 OnTimer50000:
 	mapannounce "prt_are_in"," ",1,0xFFCE00;
-	donpcevent "#arena_"+$@arenapic+"::OnKik";
-	if($@arenapic == 6969)
-	{
+	donpcevent "#arena_"+$@arena_picture_id+"::OnKik";
+	if ($@arena_picture_id == 6969) {
 		donpcevent "#arena_ss_2::OnKik";
 		donpcevent "#arena_ss_3::OnKik";
 		donpcevent "#arena_ss_4::OnKik";
@@ -1009,9 +929,8 @@ OnTimer59000:
 
 OnTimer60000:
 	mapannounce "prt_are_in"," ",1,0xFFCE00;
-	donpcevent "#arena_"+$@arenapic+"::OnKis";
-	if($@arenapic == 6969)
-	{
+	donpcevent "#arena_"+$@arena_picture_id+"::OnKis";
+	if ($@arena_picture_id == 6969) {
 		donpcevent "#arena_ss_2::OnKis";
 		donpcevent "#arena_ss_3::OnKis";
 		donpcevent "#arena_ss_4::OnKis";
@@ -1020,89 +939,76 @@ OnTimer60000:
 
 OnTimer62000:
 	mapannounce "prt_are_in","Time is over. Thank you for using my services.",1,0xFFCE00;
-	movenpc "#arena_"+$@arenapic+"",1,1;
+	movenpc "#arena_"+$@arena_picture_id+"",1,1;
 	donpcevent "#arena_1039::OnInit";
-	set $arenapic,0;
+	set $@arena_picture,0;
 	stopnpctimer;
 	end;
 }
 
 sec_in02,72,171,3	script	Picture Manager#arena	802,{
-
-	if (!getgmlevel()) end;
-
-	input .@arena;
-	if(!.@arena)
-	{
+	set .@i, callfunc("F_GM_NPC",1357,0);
+	if (.@i == -1) {
 		mes "[Picture Manager]";
 		mes "Command has been canceled.";
 		close;
-	}
-	else if(.@arena == 1357)
-	{
+	} else if (.@i == 0) {
+		mes "[Picture Manager]";
+		mes "Password is incorrect.";
+		close;
+	} else {
 		mes "[Picture Manager]";
 		mes "Would you like to reset Picture Reward variable to 0?";
 		next;
-		switch( select( "Cancel","Yes" ) )
-		{
-			case 1:
-				mes "[Picture Manager]";
-				mes "You have canceled your request.";
-				close;
-
-			case 2:
-				mes "[Picture Manager]";
-				mes "Picture rewarding reseted.";
-				set $arenapic,0;
-				close;
+		switch(select("Cancel:Yes")) {
+		case 1:
+			mes "[Picture Manager]";
+			mes "You have canceled your request.";
+			close;
+		case 2:
+			mes "[Picture Manager]";
+			mes "Picture rewarding reseted.";
+			set $@arena_picture,0;
+			close;
 		}
 	}
-	mes "[Picture Manager]";
-	mes "Password is incorrect.";
-	close;
 }
 
 sec_in02,76,176,5	script	Live Broadcast#arena	802,{
-
+	callfunc "F_GM_NPC";
 	mes "[Live Broadcast]";
-	mes "Currently there are "+getmapusers("force_1-1")+" people in lvl 50s map.";
-	mes "Currently there are "+getmapusers("force_2-1")+" people in lvl 60s map.";
-	mes "Currently there are "+getmapusers("force_3-1")+" people in lvl 70s map.";
-	mes "Currently there are "+getmapusers("force_4-1")+" people in lvl 80s map.";
+	mes "Currently there are "+getmapusers("force_1-1")+" people in Lv 50s map.";
+	mes "Currently there are "+getmapusers("force_2-1")+" people in Lv 60s map.";
+	mes "Currently there are "+getmapusers("force_3-1")+" people in Lv 70s map.";
+	mes "Currently there are "+getmapusers("force_4-1")+" people in Lv 80s map.";
 	mes "Currently there are "+getmapusers("force_1-2")+" people in party map.";
 	mes "Currently there are "+getmapusers("arena_room")+" people in the waiting room.";
 	close;
 }
 
 function	script	Func_Are_Rew	{
-
 	mes "[Givu]";
 	mes "Would you like to exchange your arena points with "+getitemname(getarg(0))+"?";
 	mes "You can exchange ^3131FF"+getarg(2)+" arena points with "+getarg(1)+" "+getitemname(getarg(0))+"^000000.";
 	mes "If you wish to cancel, please enter 0. If you don't, please enter how many ^3131FFtimes^000000 of arena points you wish to spend.";
 	next;
 	input .@reward;
-	if(!.@reward)
-	{
+	if (.@reward == 0) {
 		mes "[Givu]";
 		mes "You have canceled your request.";
 		close;
-
-	}
-	else if(.@reward > 1500)
-	{
+	} else if (.@reward > 1500) {
 		mes "[Givu]";
 		mes "You have exceeded the maximum capacity.";
 		close;
 	}
-	if(arena_point < .@reward * getarg(2))
-	{
+	if (arena_point < .@reward * getarg(2)) {
 		mes "[Givu]";
 		mes "You do not have enough arena points.";
 		mes "Please check the total amount of arena points you have.";
 		close;
 	}
-	set arena_point,arena_point - (.@reward * getarg(2));
+	set arena_point, arena_point - (.@reward * getarg(2));
 	getitem getarg(0),.@reward * getarg(1);
 	mes "[Givu]";
 	mes "Thank you, please come again.";