change *strcharinfo to use constants

4 files changed, 61 insertions, 61 deletions

diff --git a/npc/quests/newgears/2004_headgears.txt b/npc/quests/newgears/2004_headgears.txt
index 7a3757619..6a8a295bf 100644
--- a/npc/quests/newgears/2004_headgears.txt
+++ b/npc/quests/newgears/2004_headgears.txt
@@ -134,7 +134,7 @@ geffen,129,148,3	script	Argen#1	4_M_YOYOROGUE,{
 	mes "Am I bored~!";
 	mes "If I only knew more tricks with this yo-yo. Then I could really impress the ladies.";
 	next;
-	mes "[" + strcharinfo(0) + "]";
+	mes "[" + strcharinfo(PC_NAME) + "]";
 	mes "Impress the ladies...?";
 	next;
 	emotion e_gasp;
@@ -448,21 +448,21 @@ prontera,165,232,3	script	Nephia#1	4_F_ALCHE,{
 	next;
 	if (Sex == SEX_MALE) {
 		if (select("Um, lady, I'm a dude.", "^FF66CCOoh~! You're right!^000000") == 1) {
-			mes "["+ strcharinfo(0) +"]";
+			mes "["+ strcharinfo(PC_NAME) +"]";
 			mes "Woman, can't you that I'm a man?";
 			next;
 			mes "[Nephia]";
 			mes "Awww...";
 			mes "But you would look so ^FF66CCpretty~!^000000";
 			next;
-			mes "["+ strcharinfo(0) +"]";
+			mes "["+ strcharinfo(PC_NAME) +"]";
 			mes "That...";
 			mes "Was the worst";
 			mes "compliment anyone";
 			mes "has ever given me.";
 			close;
 		}
-		mes "["+ strcharinfo(0) +"]";
+		mes "["+ strcharinfo(PC_NAME) +"]";
 		mes "Oooh~!";
 		mes "That sounds great!";
 		next;
@@ -485,7 +485,7 @@ prontera,165,232,3	script	Nephia#1	4_F_ALCHE,{
 	}
 	else {
 		if (select("No thanks.", "^FF66CCOoh~! You're right!^000000") == 1) {
-			mes "["+ strcharinfo(0) +"]";
+			mes "["+ strcharinfo(PC_NAME) +"]";
 			mes "Er...";
 			mes "No thanks.";
 			next;
@@ -494,7 +494,7 @@ prontera,165,232,3	script	Nephia#1	4_F_ALCHE,{
 			mes "But you're just the cutest little thing. I just know you would look so preeeetty!";
 			close;
 		}
-		mes "["+ strcharinfo(0) +"]";
+		mes "["+ strcharinfo(PC_NAME) +"]";
 		mes "Oooh~!";
 		mes "That sounds great!";
 		next;
@@ -1044,11 +1044,11 @@ xmas,183,267,3	script	Pretty Lindsay#1	4_F_NFLOSTGIRL,{
 		mes "[Pretty Lindsay]";
 		mes "It's the bestest magic ever because it comes from my heart!";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "That...";
 		mes "That still doesn't explain anything!";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "Alright...";
 		mes "Yeah...";
 		mes "I'll come back later, kid.";
@@ -1407,10 +1407,10 @@ geffen,83,189,5	script	Seth#1	4_M_KID2,{
 			emotion e_sob;
 			close;
 		case 3:
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "Hey.";
 			next;
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "Boys aren't supposed to make flowers.";
 			next;
 			mes "[Seth]";
@@ -3579,7 +3579,7 @@ OnTouch:
 					next;
 					delitem Viking_Helm,1;
 					orcs_hero_hat = 17;
-					getnameditem 5094,strcharinfo(0); //Orc_Hero_Helm
+					getnameditem 5094,strcharinfo(PC_NAME); //Orc_Hero_Helm
 					mes "[Orc Hero]";
 					mes "There you go. I marked a small indication on it. So wear this helm from now on. Do you understand? My human Orc Hero.";
 					close;
diff --git a/npc/quests/newgears/2005_headgears.txt b/npc/quests/newgears/2005_headgears.txt
index 065e1f300..8efebb27a 100644
--- a/npc/quests/newgears/2005_headgears.txt
+++ b/npc/quests/newgears/2005_headgears.txt
@@ -1136,8 +1136,8 @@ lighthalzen,182,89,0	script	Relaxed-Looking Lady	4_F_02,{
 				mes "That is, if you don't";
 				mes "mind me asking you.";
 				next;
-				mes "[" + strcharinfo(0) + "]";
-				mes "My name is " + strcharinfo(0) + "";
+				mes "[" + strcharinfo(PC_NAME) + "]";
+				mes "My name is " + strcharinfo(PC_NAME) + "";
 				mes "and I'm an adventurer~";
 				next;
 				mes "[Achiha]";
@@ -1553,11 +1553,11 @@ gl_prison1,137,138,5	script	Zealotus#LhzHat	ZHERLTHSH,{
 					mes "Forbidden Red Candle.";
 					next;
 					mes "[Zealotus]";
-					mes "" + strcharinfo(0) + " will";
+					mes "" + strcharinfo(PC_NAME) + " will";
 					mes "forever have a share";
 					mes "in my power. Those that";
 					mes "bow to me must also bow";
-					mes "to " + strcharinfo(0) + ". It shall be done.";
+					mes "to " + strcharinfo(PC_NAME) + ". It shall be done.";
 					specialeffect EF_DEVIL;
 					specialeffect EF_POISONHIT;
 					next;
@@ -1571,7 +1571,7 @@ gl_prison1,137,138,5	script	Zealotus#LhzHat	ZHERLTHSH,{
 					delitem 7263,1;
 					delitem 660,1;
 					delitem 7099,30;
-					getnameditem 5121,strcharinfo(0);
+					getnameditem 5121,strcharinfo(PC_NAME);
 					ZLMASKQ = 8;
 					close;
 			}
@@ -1656,7 +1656,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 			close; // no whip equipped or in inventory
 
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "You're pathetic!";
 		mes "Aren't you supposed";
 		mes "to be a monster? You know";
@@ -1671,7 +1671,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 		mes "^3355FFYou nonchalantly^000000";
 		mes "^3355FFbrandish your Whip.^000000";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "That's right.";
 		next;
 		mes "^3355FF*Snap!*";
@@ -1751,7 +1751,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 					delitem 7315,369;
 					close;
 				case 2:
-					mes "[" + strcharinfo(0) + "]";
+					mes "[" + strcharinfo(PC_NAME) + "]";
 					mes "So what happens";
 					mes "if I don't decide not";
 					mes "to hurt you? Whatcha";
@@ -1793,7 +1793,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 		mes "me or make me eat those";
 		mes "weird crystals again, are you?";
 		next;
-		mes "^3131FF[" + strcharinfo(0) + "]^000000";
+		mes "^3131FF[" + strcharinfo(PC_NAME) + "]^000000";
 		switch( select( "Rybio", "Injustice", "Zealotus" ) )
 		{
 			case 1:
@@ -1886,7 +1886,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 		switch( select( "Insult him.", "Apologize." ) )
 		{
 			case 1:
-				mes "[" + strcharinfo(0) + "]";
+				mes "[" + strcharinfo(PC_NAME) + "]";
 				mes "First of all,";
 				mes "what exactly sets";
 				mes "you apart from all the";
@@ -1901,7 +1901,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 				switch( select( "Break his pride.", "Tell him you were joking." ) )
 				{
 					case 1:
-						mes "^3131FF[" + strcharinfo(0) + "]^000000";
+						mes "^3131FF[" + strcharinfo(PC_NAME) + "]^000000";
 						mes "I mean, there are guys";
 						mes "like Bloody Murderer out";
 						mes "there who are more evil";
@@ -1911,7 +1911,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 						switch( select( "Go for the low blow.", "Try to salvage his confidence." ) )
 						{
 							case 1:
-								mes "[" + strcharinfo(0) + "]";
+								mes "[" + strcharinfo(PC_NAME) + "]";
 								mes "You know, me and Zealotus";
 								mes "were actually talking about";
 								mes "you recently. She told me that";
@@ -1919,7 +1919,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 								mes "feel sick! I mean, what kind";
 								mes "of monster is afraid of humans?";
 								next;
-								mes "[" + strcharinfo(0) + "]";
+								mes "[" + strcharinfo(PC_NAME) + "]";
 								mes "Now you've reached the";
 								mes "point where even Injustice";
 								mes "is manlier than you now,";
@@ -1956,7 +1956,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 								emotion e_an;
 								close;
 							case 2:
-								mes "^3131FF[" + strcharinfo(0) + "]^000000";
+								mes "^3131FF[" + strcharinfo(PC_NAME) + "]^000000";
 								mes "But know that I think";
 								mes "about it, maybe you look";
 								mes "much tougher than that";
@@ -1969,12 +1969,12 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 								mes "...";
 								mes "......";
 								next;
-								mes "[" + strcharinfo(0) + "]";
+								mes "[" + strcharinfo(PC_NAME) + "]";
 								mes "...Yeeeeeah.";
 								close;
 						}
 					case 2:
-						mes "[" + strcharinfo(0) + "]";
+						mes "[" + strcharinfo(PC_NAME) + "]";
 						mes "But now that I think";
 						mes "about it, you actually";
 						mes "are much better than all";
@@ -1989,7 +1989,7 @@ gl_prison1,97,104,1	script	Phendark#LhzHat	PHENDARK,{
 						close;
 				}
 			case 2:
-				mes "[" + strcharinfo(0) + "]";
+				mes "[" + strcharinfo(PC_NAME) + "]";
 				mes "I...";
 				mes "I was just kidding!";
 				mes "How could she hate";
diff --git a/npc/quests/newgears/2008_headgears.txt b/npc/quests/newgears/2008_headgears.txt
index b702cbe4c..4fdd378cf 100644
--- a/npc/quests/newgears/2008_headgears.txt
+++ b/npc/quests/newgears/2008_headgears.txt
@@ -77,7 +77,7 @@ gef_fild05,80,149,3	script	Myu#08_hat	4_F_YUNYANG,{
 			mes "[Myu]";
 			mes "...It was a fruitless effort Meow...";
 			next;
-			mes "["+strcharinfo(0)+"]";
+			mes "["+strcharinfo(PC_NAME)+"]";
 			mes " (Meow again...What a weirdo.)";
 			close;
 		case 2:
@@ -168,7 +168,7 @@ gef_fild05,80,149,3	script	Myu#08_hat	4_F_YUNYANG,{
 		mes "ONE THOUSAND TIMES! -chuckles-";
 		mes "(Meow Meow Meow~)";
 		next;
-		mes "["+strcharinfo(0)+"]";
+		mes "["+strcharinfo(PC_NAME)+"]";
 		mes "(What a weirdo.. Anyways..what's with that meow meow sound?)";
 		mes "Just keep your promises.";
 		mes "after the work is done...Ok?";
@@ -246,7 +246,7 @@ morocc_in,137,102,5	script	Trainee#2008hat01	4_KID01,{
 		mes "I want to challenge my skills!!";
 		next;
 		if (countitem(Fillet) > 0 || countitem(Fillet_White) > 0 || countitem(Fillet_Red) > 0 || countitem(Fillet_Blue) > 0 || countitem(Fillet_Green) > 0) {
-			mes "["+strcharinfo(0)+"]";
+			mes "["+strcharinfo(PC_NAME)+"]";
 			mes "(I have a Cute Ribbon...what should I do..?)";
 			next;
 			switch(select("Ask Elgo to dye it.", "Leave it alone.")){
@@ -743,7 +743,7 @@ morocc_in,137,102,5	script	Trainee#2008hat01	4_KID01,{
 					mes "But you don't even have one.";
 					close;
 				case 6:
-					mes "["+strcharinfo(0)+"]";
+					mes "["+strcharinfo(PC_NAME)+"]";
 					mes "Ah, I'm not sure this time. I will come back next time.";
 					mes "Take Care.";
 					next;
@@ -752,7 +752,7 @@ morocc_in,137,102,5	script	Trainee#2008hat01	4_KID01,{
 					close;
 				}
 			case 2:
-				mes "["+strcharinfo(0)+"]";
+				mes "["+strcharinfo(PC_NAME)+"]";
 				mes "Hmm, I will bring you one next time.";
 				mes "Take Care.";
 				next;
@@ -772,11 +772,11 @@ morocc_in,137,102,5	script	Trainee#2008hat01	4_KID01,{
 in_orcs01,119,106,3	script	Orc Lady#2008hat03	ORC_LADY,2,2,{
 
 OnTouch:
-	mes "["+strcharinfo(0)+"]";
+	mes "["+strcharinfo(PC_NAME)+"]";
 	mes "This Orc Lady is absorbed in something.";
 	mes "I don't know what she's making...but she wouldn't notice me even I walk up on her.";
 	next;
-	mes "["+strcharinfo(0)+"]";
+	mes "["+strcharinfo(PC_NAME)+"]";
 	mes "Should I talk to her?...Uh..Do we even understand eachother?";
 	next;
 	mes "THe Orc Lady suddenly turns around looking surprised.";
@@ -790,7 +790,7 @@ OnTouch:
 		mes "You weirdo.";
 		mes "My name is Aite-Nah-Zir-Be.";
 		next;
-		mes "["+strcharinfo(0)+"]";
+		mes "["+strcharinfo(PC_NAME)+"]";
 		mes "Surprisingly the Orc Lady introduced herself to me.";
 		mes "How should I react?";
 		next;
@@ -821,18 +821,18 @@ OnTouch:
 			mes "1,000 Maneater Blossoms..";
 			mes "Bring me....";
 			next;
-			mes "["+strcharinfo(0)+"]";
+			mes "["+strcharinfo(PC_NAME)+"]";
 			mes "(^4d4dff Silk Ribbon and 1,000 Maneater Blossoms^000000, huh..)";
 			mes "Got it. I will go and bring back the materials.";
 			close;
 		case 2:
-			mes "["+strcharinfo(0)+"]";
+			mes "["+strcharinfo(PC_NAME)+"]";
 			mes "I nodded goodbye to her with a smile on my face saying nothing.";
 			mes "She nodded back to be as if she understood that was my good bye.";
 			close;
 		}
 	case 2:
-		mes "["+strcharinfo(0)+"]";
+		mes "["+strcharinfo(PC_NAME)+"]";
 		mes "Let's run away while she's still in shock.";
 		close2;
 		warp "gef_fild10",223,203;
diff --git a/npc/quests/newgears/2010_headgears.txt b/npc/quests/newgears/2010_headgears.txt
index bfdea103a..ec856c37f 100644
--- a/npc/quests/newgears/2010_headgears.txt
+++ b/npc/quests/newgears/2010_headgears.txt
@@ -334,7 +334,7 @@ comodo,236,164,0	script	Hat Girl#Hair_Brush	1_F_04,{
 				mes "- after emptying some of it. -";
 				close;
 			}
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "I got the Hair Brush.";
 			mes "...but it makes me sad.";
 			delitem Mixture,1; //Mixture
@@ -450,10 +450,10 @@ alberta,151,78,0	script	Bebete#Baby_Angel_Status	4W_KID,{
 			mes "See you again, my angel~!";
 			emotion e_thx;
 			next;
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "... ...";
 			next;
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "Hmm... I guess I was fooled by that little kid.";
 			close;
 		}
@@ -474,10 +474,10 @@ alberta,151,78,0	script	Bebete#Baby_Angel_Status	4W_KID,{
 	mes "Are you a real angel? Have you been to heaven?";
 	next;
 	if (select("What a bullshit!", "Let's keep the childhood innocence!") == 1) {
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "Angel and heaven? It's all made up! ";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "There's nothing. Everything is lie!";
 		emotion e_gg,1;
 		next;
@@ -486,7 +486,7 @@ alberta,151,78,0	script	Bebete#Baby_Angel_Status	4W_KID,{
 		emotion e_sigh;
 		close;
 	}
-	mes "[" + strcharinfo(0) + "]";
+	mes "[" + strcharinfo(PC_NAME) + "]";
 	mes "Of course. I used to dance with the dragon and zebra";
 	mes "on the vanilla-taste clouds.";
 	next;
@@ -522,7 +522,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 		mes "Hmm..Hm..";
 		mes "It seems my transformation into the child's appearance is succeessful.";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "... ... ... ...";
 		next;
 		mes "[???]";
@@ -550,10 +550,10 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 		mes "I need your help!";
 		next;
 		if (select("Just ignore it.", "Let's help him.") == 1) {
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "Talking frog...";
 			next;
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "Now I've seen everything.";
 			next;
 			mes "[King Froggie Vll]";
@@ -562,7 +562,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 			donpcevent "Roda Frog#Frog_Cap::OnDisable";
 			end;
 		}
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "What can I help you?";
 		next;
 		mes "[King Froggie Vll]";
@@ -570,7 +570,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 		setquest 5000;
 		2009_hat = 1;
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "Sure, I will.";
 		next;
 		mes "[King Froggie Vll]";
@@ -592,7 +592,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 		mes "Oh, you brought all of them!";
 		next;
 		mes "[King Froggie Vll]";
-		mes "Thank you so much, " + strcharinfo(0) + ".";
+		mes "Thank you so much, " + strcharinfo(PC_NAME) + ".";
 		emotion e_thx;
 		next;
 		mes "[King Froggie Vll]";
@@ -601,7 +601,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 		mes "[King Froggie Vll]";
 		mes "Frogs are healthy food to the snakes.";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "I know well.";
 		next;
 		mes "[King Froggie Vll]";
@@ -630,7 +630,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 			end;
 		}
 		else if (questprogress(5001,HUNTING) == 2) {
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "I'm back.";
 			next;
 			mes "[King Froggie Vll]";
@@ -648,7 +648,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 			changequest 5001,5002;
 			2009_hat = 3;
 			next;
-			mes "[" + strcharinfo(0) + "]";
+			mes "[" + strcharinfo(PC_NAME) + "]";
 			mes "I'm happy to be added in the history book. I'll go and get them.";
 			next;
 			mes "[King Froggie Vll]";
@@ -671,7 +671,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 		mes "[King Froggie Vll]";
 		mes "Oh, you brought Poisonous Canines! Now, I'm able to put you in the frog history book officially.";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "That's good for me.";
 		next;
 		mes "[King Froggie Vll]";
@@ -711,7 +711,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 		mes "[King Froggie Vll]";
 		mes "You are already the hero for our frogs! If I have a child, I would marry you up with my child.";
 		next;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "Ah.. No, thanks.";
 		mes "^FF0000(Are you telling me to marry with A Frog???)^000000";
 		next;
@@ -765,7 +765,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 			}
 			mes "[King Froggie Vll]";
 			mes "Frogs, do you have any objection";
-			mes "to give our hero, " + strcharinfo(0) + "";
+			mes "to give our hero, " + strcharinfo(PC_NAME) + "";
 			mes "a Frog Hat which is one of our precious treasures?";
 			next;
 			mes "[Sounds from somewhere]";
@@ -777,7 +777,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 			mes "Hmm, there is no objection.";
 			next;
 			mes "[King Froggie Vll]";
-			mes "I hearby give " + strcharinfo(0) + ", our hero, this Frog Hat.";
+			mes "I hearby give " + strcharinfo(PC_NAME) + ", our hero, this Frog Hat.";
 			specialeffect2 EF_MAPPILLAR2;
 			specialeffect2 EF_BLESSING;
 			erasequest 5004;
@@ -794,7 +794,7 @@ gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
 	}
 	else if (2009_hat == 6) {
 		mes "[King Froggie Vll]";
-		mes "All the frogs in the world, praise " + strcharinfo(0) + ", our eternal hero!";
+		mes "All the frogs in the world, praise " + strcharinfo(PC_NAME) + ", our eternal hero!";
 		emotion e_thx;
 		close2;
 		donpcevent "Roda Frog#Frog_Cap::OnDisable";
@@ -836,13 +836,13 @@ OnTouch:
 	donpcevent "Roda Frog#Frog_Cap::OnEnable";
 	if (2009_hat > 0) {
 		emotion e_dots,1;
-		mes "[" + strcharinfo(0) + "]";
+		mes "[" + strcharinfo(PC_NAME) + "]";
 		mes "It's so amazing to see";
 		mes "the frog which transforms itself.";
 		close;
 	}
 	emotion e_omg,1;
-	mes "[" + strcharinfo(0) + "]";
+	mes "[" + strcharinfo(PC_NAME) + "]";
 	mes "Oh my.. the frog transformed into a child...";
 	close;
 }