* Optimized Brasilis quests (re\quests\quests_brasilis.txt)

* Follow-up r16538, removed one more check - thanks Vali! (quests\skills\archer_skills.txt)

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

3 files changed, 138 insertions, 1423 deletions

diff --git a/doc/script_commands.txt b/doc/script_commands.txt
index a8b3f27ed..599364e8c 100644
--- a/doc/script_commands.txt
+++ b/doc/script_commands.txt
@@ -2109,49 +2109,6 @@ array, shifting all the elements beyond this towards the beginning.
 
 ---------------------------------------
 
-*bindatcmd "command","<NPC object name>::<event label>"{,<atcommand level>,<charcommand level>};
-*bindatcmd("command","<NPC object name>::<event label>"{,<atcommand level>,<charcommand level>});
-
-This command will bind a NPC event label to an atcommand. Upon execution of
-the atcommand, the user will invoke the NPC event label.
-
-Example:
-When a user types the command "@test", an angel effect will be shown.
-
--	script	atcmd_example	-1,{
-OnInit:
-	bindatcmd("test","atcmd_example::OnAtcommand");
-	end;
-OnAtcommand:
-	specialeffect2 338;
-	end;
-}
-
----------------------------------------
-
-*unbindatcmd "command";
-*unbindatcmd("command");
-
-This command will unbind a NPC event label from an atcommand.
-
----------------------------------------
-
-*useatcmd "command";
-*useatcmd("command");
-
-This command will execute a custom atcommand on the attached RID from a script.
-Whether invoked by a script or command, an array .@atcmd_parameters$[] will be
-filled with the given parameters, starting with an index of 0.
-
-Example:
-   @test Testing Command
-
-The following array values will be generated:
-   .@atcmd_parameters$[0] = "Testing"
-   .@atcmd_parameters$[1] = "Command"
-
----------------------------------------
-
 ======================================
 |2.- Information-retrieving commands.|
 ======================================
@@ -6515,6 +6472,49 @@ Example(s):
 
 ---------------------------------------
 
+*bindatcmd "command","<NPC object name>::<event label>"{,<atcommand level>,<charcommand level>};
+*bindatcmd("command","<NPC object name>::<event label>"{,<atcommand level>,<charcommand level>});
+
+This command will bind a NPC event label to an atcommand. Upon execution of
+the atcommand, the user will invoke the NPC event label.
+
+Example:
+When a user types the command "@test", an angel effect will be shown.
+
+-	script	atcmd_example	-1,{
+OnInit:
+	bindatcmd("test","atcmd_example::OnAtcommand");
+	end;
+OnAtcommand:
+	specialeffect2 338;
+	end;
+}
+
+---------------------------------------
+
+*unbindatcmd "command";
+*unbindatcmd("command");
+
+This command will unbind a NPC event label from an atcommand.
+
+---------------------------------------
+
+*useatcmd "command";
+*useatcmd("command");
+
+This command will execute a custom atcommand on the attached RID from a script.
+Whether invoked by a script or command, an array .@atcmd_parameters$[] will be
+filled with the given parameters, starting with an index of 0.
+
+Example:
+   @test Testing Command
+
+The following array values will be generated:
+   .@atcmd_parameters$[0] = "Testing"
+   .@atcmd_parameters$[1] = "Command"
+
+---------------------------------------
+
 *unitskilluseid <GID>,<skill id>,<skill lvl>{,<target id>};
 *unitskilluseid <GID>,"<skill name>",<skill lvl>{,<target id>};
 *unitskillusepos <GID>,<skill id>,<skill lvl>,<x>,<y>;
diff --git a/npc/quests/skills/archer_skills.txt b/npc/quests/skills/archer_skills.txt
index 0fbb4d270..2e27cf900 100644
--- a/npc/quests/skills/archer_skills.txt
+++ b/npc/quests/skills/archer_skills.txt
@@ -40,7 +40,7 @@ moc_ruins,118,99,5	script	Roberto	88,{
 			mes " ";
 			mes "You are...";
 			next;
-			if ((countitem(907) > 19) && (countitem(921) > 6) && (countitem(906) > 40) && (countitem(1019) > 12) && (countitem(501) > 0) && (BaseClass == Job_Archer) && (JobLevel >= 30)) {
+			if ((countitem(907) > 19) && (countitem(921) > 6) && (countitem(906) > 40) && (countitem(1019) > 12) && (countitem(501) > 0)) {
 				mes "[Roberto]";
 				mes "You brought them!";
 				mes "Thank you very much.";
@@ -120,12 +120,7 @@ moc_ruins,118,99,5	script	Roberto	88,{
 				close;
 			case 2:
 				mes "[Roberto]";
-				if (Sex > 1) {
-					mes "...hey miss.";
-				}
-				else {
-					mes "...hey mister.";
-				}
+				mes "...hey "+((Sex)?"mister":"miss")+".";
 				mes "...be careful at night.";
 				close;
 			}
diff --git a/npc/re/quests/quests_brasilis.txt b/npc/re/quests/quests_brasilis.txt
index 19f9f8881..88b021a0f 100644
--- a/npc/re/quests/quests_brasilis.txt
+++ b/npc/re/quests/quests_brasilis.txt
@@ -3,13 +3,13 @@
 //===== By ===================================================
 //= L0ne_W0lf
 //===== Version ==============================================
-//= 1.1
+//= 1.2
 //===== Compatible With ======================================
 //= rAthena SVN
 //===== Description ==========================================
 //= [Translated from the Official]
 //= Lost Puppies (Repeatable, 24 hours.)
-//= Suspicious Beach (Repeatable, 24 hours / iRO/cRO version.)
+//= Suspicious Beach (Repeatable, 24 hours. iRO/cRO version.)
 //= Guarana Candy Quest
 //= Brasilis Water Lily Quest
 //= Brasilis Dungeon Access Quest
@@ -17,6 +17,7 @@
 //===== Comments =============================================
 //= 1.0 First version.
 //= 1.1 Hydra Ball (12408)
+//= 1.2 Optimization. [Euphy]
 //============================================================
 
 // Lost Puppies, Original file: dogdog.sc
@@ -51,19 +52,11 @@ brasilis,297,307,5	script	Angelo#br	50,{
 		getexp 50000,0;
 		erasequest 9031;
 		setquest 9032;
+		specialeffect2 EF_ASSUMPTIO;
+		percentheal 100,100;
 		set .@rand,rand(1,10);
-		if (.@rand < 5) {
-			specialeffect2 EF_ASSUMPTIO;
-			//ConsumeSpecialItem Yggdrasilberry
-		} else if (.@rand < 9) {
-			specialeffect2 EF_ASSUMPTIO;
-			//ConsumeSpecialItem Yggdrasilberry
-			getitem 504,2; //White_Potion
-		} else {
-			specialeffect2 EF_ASSUMPTIO;
-			//ConsumeSpecialItem Yggdrasilberry
-			getitem 608,1; //Seed_Of_Yggdrasil
-		}
+		if (.@rand > 4 && .@rand < 9) getitem 504,2; //White_Potion
+		else if (.@rand > 8) getitem 608,1; //Seed_Of_Yggdrasil
 		close;
 	}
 	mes "[Angelo]";
@@ -92,664 +85,62 @@ OnGo:
 	end;
 }
 
-bra_fild01,98,96,3	script	Puppy#a1	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#a2::OnEnable";
-					hideonnpc "Puppy#a1";
-				} else {
-					donpcevent "Puppy#a3::OnEnable";
-					hideonnpc "Puppy#a1";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#a2::OnEnable";
-				hideonnpc "Puppy#a1";
-			} else {
-				donpcevent "Puppy#a3::OnEnable";
-				hideonnpc "Puppy#a1";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnEnable:
-	hideoffnpc "Puppy#a1";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#a1";
-	end;
-}
-
-bra_fild01,59,116,5	script	Puppy#a2	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#a1::OnEnable";
-					hideonnpc "Puppy#a2";
-				} else {
-					donpcevent "Puppy#a3::OnEnable";
-					hideonnpc "Puppy#a2";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#a1::OnEnable";
-				hideonnpc "Puppy#a2";
-			} else {
-				donpcevent "Puppy#a3::OnEnable";
-				hideonnpc "Puppy#a2";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnInit:
-	hideonnpc "Puppy#a2";
-	end;
-
-OnEnable:
-	hideoffnpc "Puppy#a2";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#a2";
-	end;
-}
-
-bra_fild01,62,142,3	script	Puppy#a3	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#a1::OnEnable";
-					hideonnpc "Puppy#a3";
-				} else {
-					donpcevent "Puppy#a2::OnEnable";
-					hideonnpc "Puppy#a3";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#a1::OnEnable";
-				hideonnpc "Puppy#a3";
-			} else {
-				donpcevent "Puppy#a2::OnEnable";
-				hideonnpc "Puppy#a3";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnInit:
-	hideonnpc "Puppy#a3";
-	end;
-
-OnEnable:
-	hideoffnpc "Puppy#a3";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#a3";
-	end;
-}
-
-bra_fild01,80,163,3	script	Puppy#b1	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#b2::OnEnable";
-					hideonnpc "Puppy#b1";
-				} else {
-					donpcevent "Puppy#b3::OnEnable";
-					hideonnpc "Puppy#b1";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#b2::OnEnable";
-				hideonnpc "Puppy#b1";
-			} else {
-				donpcevent "Puppy#b3::OnEnable";
-				hideonnpc "Puppy#b1";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnEnable:
-	hideoffnpc "Puppy#b1";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#b1";
-	end;
-}
-
-bra_fild01,73,210,3	script	Puppy#b2	81,{
+-	script	Puppy#bra	-1,{
 	if (checkquest(9030) == 1) {
 		if (brazil_kid < 3) {
 			mes "[Puppy]";
 			mes "bow wow bow wow!!";
 			next;
 			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#b1::OnEnable";
-					hideonnpc "Puppy#b2";
-				} else {
-					donpcevent "Puppy#b3::OnEnable";
-					hideonnpc "Puppy#b2";
-				}
-				close;
-			}
 			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#b1::OnEnable";
-				hideonnpc "Puppy#b2";
-			} else {
-					donpcevent "Puppy#b3::OnEnable";
-					hideonnpc "Puppy#b2";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnInit:
-	hideonnpc "Puppy#b2";
-	end;
-
-OnEnable:
-	hideoffnpc "Puppy#b2";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#b2";
-	end;
-}
-
-bra_fild01,80,210,3	script	Puppy#b3	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
 			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
 				mes "Good. I found all 3 puppies.";
 				mes "Now I need to go tell Angelo.";
 				set brazil_kid,0;
 				erasequest 9030;
 				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#b1::OnEnable";
-					hideonnpc "Puppy#b3";
-				} else {
-					donpcevent "Puppy#b2::OnEnable";
-					hideonnpc "Puppy#b3";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#b1::OnEnable";
-				hideonnpc "Puppy#b3";
-			} else {
-				donpcevent "Puppy#b2::OnEnable";
-				hideonnpc "Puppy#b3";
 			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnInit:
-	hideonnpc "Puppy#b3";
-	end;
-
-OnEnable:
-	hideoffnpc "Puppy#b3";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#b3";
-	end;
-}
-
-bra_fild01,38,235,3	script	Puppy#c1	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				set rand(1,2), rand(1,2);
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#c2::OnEnable";
-					hideonnpc "Puppy#c1";
-				} else {
-					donpcevent "Puppy#c3::OnEnable";
-					hideonnpc "Puppy#c1";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			set rand(1,2), rand(1,2);
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#c2::OnEnable";
-				hideonnpc "Puppy#c1";
-			} else {
-				donpcevent "Puppy#c3::OnEnable";
-				hideonnpc "Puppy#c1";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnEnable:
-	hideoffnpc "Puppy#c1";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#c1";
-	end;
-}
-
-bra_fild01,307,64,3	script	Puppy#c2	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#c1::OnEnable";
-					hideonnpc "Puppy#c2";
-				} else {
-					donpcevent "Puppy#c3::OnEnable";
-					hideonnpc "Puppy#c2";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			set rand(1,2), rand(1,2);
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#c1::OnEnable";
-				hideonnpc "Puppy#c2";
-			} else {
-				donpcevent "Puppy#c3::OnEnable";
-				hideonnpc "Puppy#c2";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnInit:
-	hideonnpc "Puppy#c2";
-	end;
-
-OnEnable:
-	hideoffnpc "Puppy#c2";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#c2";
-	end;
-}
-
-bra_fild01,260,60,3	script	Puppy#c3	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#c1::OnEnable";
-					hideonnpc "Puppy#c3";
-				} else {
-					donpcevent "Puppy#c2::OnEnable";
-					hideonnpc "Puppy#c3";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#c1::OnEnable";
-				hideonnpc "Puppy#c3";
-			} else {
-				donpcevent "Puppy#c2::OnEnable";
-				hideonnpc "Puppy#c3";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnInit:
-	hideonnpc "Puppy#c3";
-	end;
-
-OnEnable:
-	hideoffnpc "Puppy#c3";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#c3";
-	end;
-}
-
-bra_fild01,234,101,3	script	Puppy#d1	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#d2::OnEnable";
-					hideonnpc "Puppy#d1";
-				} else {
-					donpcevent "Puppy#d3::OnEnable";
-					hideonnpc "Puppy#d1";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#d2::OnEnable";
-				hideonnpc "Puppy#d1";
-			} else {
-				donpcevent "Puppy#d3::OnEnable";
-				hideonnpc "Puppy#d1";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnEnable:
-	hideoffnpc "Puppy#d1";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#d1";
-	end;
-}
-
-bra_fild01,200,84,3	script	Puppy#d2	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#d1::OnEnable";
-					hideonnpc "Puppy#d2";
-				} else {
-					donpcevent "Puppy#d3::OnEnable";
-					hideonnpc "Puppy#d2";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#d1::OnEnable";
-				hideonnpc "Puppy#d2";
-			} else {
-				donpcevent "Puppy#d3::OnEnable";
-				hideonnpc "Puppy#d2";
+			else {
+				mes "Ah... who's a good puppy?";
+				mes "Ok, where are the others?";
 			}
+			if (compare(strnpcinfo(2),"1")) setarray .@i[0],2,3;
+			else if (compare(strnpcinfo(2),"2")) setarray .@i[0],1,3;
+			else setarray .@i[0],1,2;
+			donpcevent "Puppy#"+charat(strnpcinfo(2),0)+.@i[rand(2)]+"::OnEnable";
+			hideonnpc strnpcinfo(0);
 			close;
 		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
 	}
 	mes "[Puppy]";
 	mes "bow! wow wow!";
 	close;
 
 OnInit:
-	hideonnpc "Puppy#d2";
+	if (!compare(strnpcinfo(2),"1")) hideonnpc strnpcinfo(0);
 	end;
 
 OnEnable:
-	hideoffnpc "Puppy#d2";
+	hideoffnpc strnpcinfo(0);
 	end;
 
 OnDisable:
-	hideonnpc "Puppy#d2";
+	hideonnpc strnpcinfo(0);
 	end;
 }
 
-bra_fild01,176,63,5	script	Puppy#d3	81,{
-	if (checkquest(9030) == 1) {
-		if (brazil_kid < 3) {
-			mes "[Puppy]";
-			mes "bow wow bow wow!!";
-			next;
-			set brazil_kid,brazil_kid+1;
-			if (brazil_kid == 3) {
-				mes "[" + strcharinfo(0) + "]";
-				mes "Good. I found all 3 puppies.";
-				mes "Now I need to go tell Angelo.";
-				set brazil_kid,0;
-				erasequest 9030;
-				setquest 9031;
-				if (rand(1,2) == 1) {
-					donpcevent "Puppy#d1::OnEnable";
-					hideonnpc "Puppy#d3";
-				} else {
-					donpcevent "Puppy#d2::OnEnable";
-					hideonnpc "Puppy#d3";
-				}
-				close;
-			}
-			mes "[" + strcharinfo(0) + "]";
-			mes "Ah... who's a good puppy?";
-			mes "Ok, where are the others?";
-			if (rand(1,2) == 1) {
-				donpcevent "Puppy#d1::OnEnable";
-				hideonnpc "Puppy#d3";
-			} else {
-				donpcevent "Puppy#d2::OnEnable";
-				hideonnpc "Puppy#d3";
-			}
-			close;
-		}
-		mes "[Puppy]";
-		mes "bow! wow wow!";
-		close;
-	}
-	mes "[Puppy]";
-	mes "bow! wow wow!";
-	close;
-
-OnInit:
-	hideonnpc "Puppy#d3";
-	end;
-
-OnEnable:
-	hideoffnpc "Puppy#d3";
-	end;
-
-OnDisable:
-	hideonnpc "Puppy#d3";
-	end;
-}
+bra_fild01,98,96,3	duplicate(Puppy#bra)	Puppy#a1	81
+bra_fild01,59,116,5	duplicate(Puppy#bra)	Puppy#a2	81
+bra_fild01,62,142,3	duplicate(Puppy#bra)	Puppy#a3	81
+bra_fild01,80,163,3	duplicate(Puppy#bra)	Puppy#b1	81
+bra_fild01,73,210,3	duplicate(Puppy#bra)	Puppy#b2	81
+bra_fild01,80,210,3	duplicate(Puppy#bra)	Puppy#b3	81
+bra_fild01,38,235,3	duplicate(Puppy#bra)	Puppy#c1	81
+bra_fild01,307,64,3	duplicate(Puppy#bra)	Puppy#c2	81
+bra_fild01,260,60,3	duplicate(Puppy#bra)	Puppy#c3	81
+bra_fild01,234,101,3	duplicate(Puppy#bra)	Puppy#d1	81
+bra_fild01,200,84,3	duplicate(Puppy#bra)	Puppy#d2	81
+bra_fild01,176,63,5	duplicate(Puppy#bra)	Puppy#d3	81
 
 // Suspicious Beach, original file: Suspicious_Beach.sc
 //============================================================
@@ -835,13 +226,9 @@ brasilis,192,133,6	script	Lucia#brasilis	478,{
 					//recall_completequest 9029;
 					if (.@nQState2 > -1) erasequest 9029;
 					setquest 9029;
-					//ConsumeSpecialItem Yggdrasilberry
 					percentheal 100,100;
-					//ConsumeSpecialItem Luk_Dish05
 					sc_start SC_LUKFOOD, 1200000, 5; percentheal 5,2;
-					//ConsumeSpecialItem Vit_Dish05
 					sc_start SC_VITFOOD, 1200000, 5; percentheal 10,0;
-					//ConsumeSpecialItem Dex_Dish05
 					sc_start SC_DEXFOOD, 1200000, 5; percentheal 5,5;
 					getitem 11502,3; //Light_Blue_Pot
 					close;
@@ -1277,10 +664,7 @@ brasilis,203,64,3	script	Strange Kid#bra	706,{
 		mes "[Strange Kid]";
 		mes "................";
 		next;
-		switch(select("Try to talk.:Pretend to pass by.")) {
-		case 1:
-			break;
-		case 2:
+		if(select("Try to talk.:Pretend to pass by.") == 2) {
 			mes "[Strange Kid]";
 			mes "................";
 			close;
@@ -1426,98 +810,50 @@ brasilis,203,64,3	script	Strange Kid#bra	706,{
 }
 
 brasilis,56,224,7	script	Mage Paje#bra	704,{
-	if (brazil_gua < 5) {
-		mes "[Mage Paje]";
-		mes "Abracadabra~";
-		set .@cspr_bra,rand(1,3);
-		if (.@cspr_bra == 1) {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",876;
-		}
-		else if (.@cspr_bra == 2) {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",800;
-		}
-		else {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",909;
-		}
-		close;
-	}
-	else if (brazil_gua == 5) {
-		mes "[Mage Paje]";
-		mes "Abracadabra~";
-		set .@cspr_bra,rand(1,3);
-		if (.@cspr_bra == 1) {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",876;
-		}
-		else if (.@cspr_bra == 2) {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",800;
-		}
-		else {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",909;
-		}
-		next;
-		mes "[Mage Paje]";
-		mes "Ohoooh~!";
-		mes "I have a guest.";
-		mes "Good to see you.";
-		mes "I am the Mage Paje.";
-		next;
-		mes "["+strcharinfo(0)+"]";
-		mes "Hello. Mr. Cherto told me to find you.";
-		next;
-		mes "[Mage Paje]";
-		mes "Um.. Mr. Cherto? What's happened?";
-		mes "Have you come here to ask about lots of weird rumors?";
-		next;
-		mes "- You give the note to Paje-";
-		next;
-		mes "[Mage Paje]";
-		mes "Ohoooh~";
-		mes "Hmm gosh.. that's what happened.";
-		next;
-		mes "[Mage Paje]";
-		mes "I can't help you directly.";
-		mes "But I will give you simple magic so you can figure it out by yourself.";
-		next;
-		select("What kind of magic?");
-		mes "[Mage Paje]";
-		mes "It's a magic that will make you appear as an animal to other animals. Pretty cool huh?";
-		next;
-		mes "[Mage Paje]";
-		mes "Ok~ I will give you the magic.";
-		mes "Most animals are really sensitive so they might be aware of it. Find a Toucan in the field that's oblivious to the spell. You'll know when you talk to it.";
-		next;
-		mes "[Mage Paje]";
-		mes "Good luck~!";
-		set brazil_gua,6;
-		changequest 2195,2196;
-		specialeffect2 EF_ASSUMPTIO;
-		close;
-	}
-	else {
-		mes "[Mage Paje]";
-		mes "Abrakatabra~";
-		set .@cspr_bra,rand(1,3);
-		if (.@cspr_bra == 1) {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",876;
-		}
-		else if (.@cspr_bra == 2) {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",800;
-		}
-		else {
-			specialeffect EF_POISONHIT,AREA,"Poring#bra";
-			setnpcdisplay "Poring#bra",909;
-		}
-		close;
-	}
-	end;
+	mes "[Mage Paje]";
+	mes "Abracadabra~";
+	specialeffect EF_POISONHIT,AREA,"Poring#bra";
+	setarray .@display[0],800,876,909;
+	setnpcdisplay "Poring#bra",.@display[rand(3)];
+	if (brazil_gua != 5) close;
+	next;
+	mes "[Mage Paje]";
+	mes "Ohoooh~!";
+	mes "I have a guest.";
+	mes "Good to see you.";
+	mes "I am the Mage Paje.";
+	next;
+	mes "["+strcharinfo(0)+"]";
+	mes "Hello. Mr. Cherto told me to find you.";
+	next;
+	mes "[Mage Paje]";
+	mes "Um.. Mr. Cherto? What's happened?";
+	mes "Have you come here to ask about lots of weird rumors?";
+	next;
+	mes "- You give the note to Paje-";
+	next;
+	mes "[Mage Paje]";
+	mes "Ohoooh~";
+	mes "Hmm gosh.. that's what happened.";
+	next;
+	mes "[Mage Paje]";
+	mes "I can't help you directly.";
+	mes "But I will give you simple magic so you can figure it out by yourself.";
+	next;
+	select("What kind of magic?");
+	mes "[Mage Paje]";
+	mes "It's a magic that will make you appear as an animal to other animals. Pretty cool huh?";
+	next;
+	mes "[Mage Paje]";
+	mes "Ok~ I will give you the magic.";
+	mes "Most animals are really sensitive so they might be aware of it. Find a Toucan in the field that's oblivious to the spell. You'll know when you talk to it.";
+	next;
+	mes "[Mage Paje]";
+	mes "Good luck~!";
+	set brazil_gua,6;
+	changequest 2195,2196;
+	specialeffect2 EF_ASSUMPTIO;
+	close;
 }
 
 brasilis,59,226,3	script	Poring#bra	909,{
@@ -1635,7 +971,6 @@ OnTouch_:
 		set brazil_gua,8;
 		changequest 2197,2198;
 		close2;
-		//ConsumeSpecialItem Speed_Up_Potion
 		sc_start SC_SpeedUp1,5000,0;
 		end;
 	}
@@ -1713,10 +1048,7 @@ brasilis,203,286,3	script	Botanist Karmen#bra	893,{
 		mes "One of them, a Water Lily, is a really gorgeous and unique plant.";
 		mes "This flower is quite sensitive so it doesn't bloom everywhere.";
 		next;
-		switch(select("Interesting.:End conversation.")) {
-		case 1:
-			break;
-		case 2:
+		if(select("Interesting.:End conversation.") == 2) {
 			mes "[Karmen]";
 			mes "I guess you aren't interested in botany.";
 			close;
@@ -2104,25 +1436,19 @@ brasilis,270,145,5	script	Brasilis Girl#bra	473,5,5,{
 		mes "What's up? Why are you looking at me?";
 		mes "I don't want to be a showgirl!! Get out!!";
 		next;
-		switch(select("Nothing, sorry.:What's wrong?")) {
-		case 1:
+		if(select("Nothing, sorry.:What's wrong?") == 1) {
 			mes "[Brasilis Girl]";
 			mes "I am so sad!!!";
 			close;
-		case 2:
-			break;
 		}
 		mes "[Brasilis Girl]";
 		mes "It's not your business.";
 		mes "You are just an outsider!";
 		next;
-		switch(select("How rude!:Just trying to help.")) {
-		case 1:
+		if(select("How rude!:Just trying to help.") == 1) {
 			mes "[Brasilis Girl]";
 			mes "What's it matter to you that I'm rude??!!";
 			close;
-		case 2:
-			break;
 		}
 		mes "["+strcharinfo(0)+"]";
 		mes "I know that I'm just passing by but I might be able to help you. What do you think?";
@@ -2214,10 +1540,7 @@ brasilis,270,145,5	script	Brasilis Girl#bra	473,5,5,{
 		mes ".................";
 		mes "I wanna see him right now...";
 		next;
-		switch(select("Help Jasira.:Ignore her.")) {
-		case 1:
-			break;
-		case 2:
+		if(select("Help Jasira.:Ignore her.") == 2) {
 			mes "["+strcharinfo(0)+"]";
 			mes "Sorry I can't help you. Cheer up!";
 			next;
@@ -2344,13 +1667,8 @@ brasilis,270,145,5	script	Brasilis Girl#bra	473,5,5,{
 		delitem 7553,1; //Lotus_Flower
 		set brazil_regia,9;
 		changequest 2206,2207;
-		set .@regiahat,rand(1,3);
-		if (.@regiahat == 1)
-			getitem2 5302,1,1,0,0,4195,0,0,0; //Lotus_Flower_Hat, Leaf_Cat_Card
-		else if (.@regiahat == 2)
-			getitem2 5302,1,1,0,0,4177,0,0,0; //Lotus_Flower_Hat, Dryad_Card
-		else
-			getitem2 5302,1,1,0,0,4188,0,0,0; //Lotus_Flower_Hat, Leib_Olmai_Card
+		setarray .@card[0],4195,4177,4188; //Leaf_Cat_Card, Dryad_Card, Leib_Olmai_Card
+		getitem2 5302,1,1,0,0,.@card[rand(3)],0,0,0; //Lotus_Flower_Hat
 		close;
 	}
 	else if (brazil_regia > 8) {
@@ -2373,9 +1691,8 @@ brasilis,270,145,5	script	Brasilis Girl#bra	473,5,5,{
 	end;
 
 OnTouch:
-	if (brazil_regia == 2) {
+	if (brazil_regia == 2)
 		emotion e_an;
-	}
 	end;
 }
 
@@ -2384,13 +1701,10 @@ bra_dun02,67,205,5	script	Recluse#bra	475,3,3,{
 		mes "[Recluse]";
 		mes "Oh, I haven't seen another person in such a long time.";
 		next;
-		switch(select("Keep going.:Are you the moon?")) {
-		case 1:
+		if(select("Keep going.:Are you the moon?") == 1) {
 			mes "[Recluse]";
 			mes "You don't have specific business with me.";
 			close;
-		case 2:
-			break;
 		}
 		mes "[Recluse]";
 		mes "Moon?";
@@ -2510,10 +1824,7 @@ bra_dun02,71,200,3	script	Water lily#bra	111,{
 	if (brazil_regia == 4) {
 		mes "An unusual Water lily is blooming here. You can't stop staring at it, knowing that few people have seen this flower bloom.";
 		next;
-		switch(select("Pick up the flower.:Keep gazing.")) {
-		case 1:
-			break;
-		case 2:
+		if(select("Pick up the flower.:Keep gazing.") == 2) {
 			mes "- You can't avoid staring at it's beauty. -";
 			close;
 		}
@@ -2622,6 +1933,7 @@ bra_dun02,71,200,3	script	Water lily#bra	111,{
 //============================================================
 brasilis,185,246,5	script	Pedro#bra	62,{
 	if (brazil_ghost == 0) {
+		OnTalk:
 		mes "[Pedro]";
 		mes "Wow it's really a great statue!";
 		next;
@@ -2692,16 +2004,13 @@ brasilis,185,246,5	script	Pedro#bra	62,{
 		mes "[Daniel]";
 		mes "kkkickkkkkkkk";
 		next;
-		switch(select("Walk by.:Ask about the gossip.")) {
-		case 1:
+		if(select("Walk by.:Ask about the gossip.") == 1) {
 			mes "[Fabio]";
 			mes "Mariana~ smells~ Nya nya~";
 			next;
 			mes "[Daniel]";
 			mes "Oh man you stink too~! Nya nya~";
 			close;
-		case 2:
-			break;
 		}
 		mes "[Fabio]";
 		mes "Haven't you heard?";
@@ -2850,204 +2159,8 @@ brasilis,185,246,5	script	Pedro#bra	62,{
 
 brasilis,187,244,1	script	Mariana#bra	72,{
 	if (brazil_ghost == 0) {
-		mes "[Pedro]";
-		mes "Wow it's really a great statue!";
-		next;
-		mes "[Mariana]";
-		mes "It is, isn't it?";
-		mes "This statue is called Verass Monument.";
-		next;
-		mes "[Mariana]";
-		mes "A long time ago there was a really brave adventurer named Verass, thanks to his dedicated exploration, Brasilis was able to develop into this great city.";
-		next;
-		mes "[Pedro]";
-		mes "Awesome!!";
-		mes "i wanna become a real man like Verass.";
-		next;
-		mes "[Mariana]";
-		mes "Pedro, you can become whatever you want.";
-		next;
-		mes "[Pedro]";
-		mes "Mariana is so smart, isn't she? hehe.";
-		next;
-		mes "[Fabio]";
-		mes "Ooooh! You love her don't you!";
-		next;
-		mes "[Daniel]";
-		mes "Wooooaaaa Pedro and Mari sitting in a tree!";
-		next;
-		mes "[Fabio]";
-		mes "Woooo k-i-s-s-i-n-g~!!!";
-		next;
-		mes "[Daniel]";
-		mes "Nya nya nya!";
-		next;
-		mes "[Fabio]";
-		mes "Hahahahaha.";
-		next;
-		mes "[Pedro]";
-		mes "Stop acting like babies!";
-		next;
-		mes "[Mariana]";
-		mes "Boys~!";
-		next;
-		mes "[Daniel]";
-		mes "Yah yah...";
-		mes "Hey guys, did you hear that something happened a few days ago?";
-		next;
-		mes "[Mariana]";
-		mes "Oh yeah~ I heard that something really scary happened.";
-		next;
-		mes "[Fabio]";
-		mes "Uh, yeah that's why Mariana got scared of going ot the bathroom for 3 days and everything was stinky. Ewwww~";
-		next;
-		mes "[Daniel]";
-		mes "Ha ha ha! Smelly Mari!";
-		next;
-		mes "[Mariana]";
-		mes "I hate you~!";
-		mes "Stop spreading rumors about me. I'm not scared of the bathroom.";
-		mes "Pedro, do you think that I stink?";
-		next;
-		mes "[Pedro]";
-		mes "Uh? Uh?";
-		mes "N......no... no way.";
-		mes "Hey guys~ be nice to her~";
-		next;
-		mes "[Fabio]";
-		mes "kkkickkkkkkkkick";
-		next;
-		mes "[Daniel]";
-		mes "kkkickkkkkkkk";
-		next;
-		switch(select("Walk by.:Ask about the gossip.")) {
-		case 1:
-			mes "[Fabio]";
-			mes "Mariana~ smells~ Nya nya~";
-			next;
-			mes "[Daniel]";
-			mes "Oh man you stink too~! Nya nya~";
-			close;
-		case 2:
-			break;
-		}
-		mes "[Fabio]";
-		mes "Haven't you heard?";
-		mes "The ghost story in the art museum.";
-		next;
-		mes "[Daniel]";
-		mes "Ooohhhh! Scary~~~!";
-		next;
-		select("Can you tell me more?");
-		mes "[Fabio]";
-		mes "A coupla days ago we went to the art museum for a picnic at school.";
-		mes "You know nothing special, just a ordinary field trip.";
-		next;
-		mes "[Fabio]";
-		mes "Museums are boring so me and some friends snuck away from the group~!";
-		next;
-		mes "[Fabio]";
-		mes "That's when we heard a scream echoing through the whole museum.";
-		next;
-		mes "[Daniel]";
-		mes "kkakkakkaaaah!!";
-		mes "kkieeeeeeh!";
-		mes "kehkeh..";
-		next;
-		mes "[Mariana]";
-		mes "I heard the scream too...";
-		mes "You boys are always making noises where you're not supposed to.";
-		next;
-		mes "[Pedro]";
-		mes "What else are we supposed to do? If we don't do it someone else will.";
-		next;
-		emotion e_an,0,"Mariana#bra";
-		mes "[Mariana]";
-		mes "Argh~ Boys are so frustrating sometimes.";
-		next;
-		select("So then what happened?");
-		mes "[Fabio]";
-		mes "Daniel and me guessed something weird was goin' on so we ran to where we thought the screams were comin' from.";
-		next;
-		mes "[Fabio]";
-		mes "They were coming from the bathroom.";
-		mes "Some kids got so scared that they started screaming too and closing their eyes. It got pretty bad.";
-		next;
-		mes "[Daniel]";
-		mes "I think you pissed or pooped your pants. It smelled freakin' gross.";
-		next;
-		mes "[Fabio]";
-		mes "Nah uh~ Your mom pissed her pants~ Nyah!";
-		next;
-		mes "[Daniel]";
-		mes "Nah uh~ You~ pissed your pants~";
-		next;
-		mes "[Fabio]";
-		mes "Anyway, so yeah, anyway that's how the rumor of the ghost in the museum started.";
-		next;
-		mes "[Daniel]";
-		mes "Liar, there's no such thing as ghosts~";
-		next;
-		select("So was it a ghost?");
-		mes "[Fabio]";
-		mes "How should I know?";
-		mes "No one could say they saw one and no one wanted to get in trouble from the teachers.";
-		next;
-		mes "[Pedro]";
-		mes "I heard if you say special magic words that the ghost will come out.";
-		next;
-		mes "[Daniel]";
-		mes "Quit butting into our conversation Pedro.";
-		next;
-		mes "[Fabio]";
-		mes "Yah, what are you talking about, Pedro?";
-		mes "So did you see the ghost?";
-		next;
-		mes "[Pedro]";
-		mes "N... no. I'm scared of ghosts.";
-		mes "But my friends said they saw one and they're not liars.";
-		next;
-		select("Did anyone tell you the magic words?");
-		mes "[Pedro]";
-		mes "I heard it in a kind of song.";
-		mes "the special magic words are...";
-		next;
-		mes "[Pedro]";
-		mes "'^3131FFMother the door won't open!^000000'";
-		mes "'^FF0000Turn the key as many times as there are colors in the rainbow.^000000'";
-		mes "";
-		mes "'^3131FFMother the water is flooding!^000000'";
-		mes "'^FF0000If the moon disappears 3 times, don't worry.^000000'";
-		mes "";
-		mes "'^3131FFMother the drought has started!^000000'";
-		mes "'^FF0000Don't worry, the waterfall will help it.^000000'";
-		mes "";
-		mes "'^3131FFMother where are my friends?^000000'";
-		mes "'^FF0000Your 7 friends are sleeping. now it's time to wake them.^000000'";
-		mes "";
-		mes "'^3131FFWhere are you mom?^000000'";
-		next;
-		mes "[Mariana]";
-		mes "Umm it seems like a riddle.";
-		next;
-		select("Wanna help me find this ghost?");
-		mes "[Pedro]";
-		mes "You're on your own pal~.";
-		next;
-		mes "[Mariana]";
-		mes "I don't like scary things!";
-		next;
-		mes "[Fabio]";
-		mes "Pfft, I can't believe you're gonna believe that story.";
-		next;
-		mes "[Daniel]";
-		mes "I'll do whatever Fabio does, as always!";
-		next;
-		mes "[Fabio]";
-		mes "Maybe you're just scared...";
-		set brazil_ghost,1;
-		setquest 2208;
-		close;
+		doevent "Pedro#bra::OnTalk";
+		end;
 	}
 	else if (brazil_ghost == 1) {
 		mes "[Mariana]";
@@ -3064,204 +2177,8 @@ brasilis,187,244,1	script	Mariana#bra	72,{
 
 brasilis,181,250,5	script	Fabio#bra	706,{
 	if (brazil_ghost == 0) {
-		mes "[Pedro]";
-		mes "Wow it's really a great statue!";
-		next;
-		mes "[Mariana]";
-		mes "It is, isn't it?";
-		mes "This statue is called Verass Monument.";
-		next;
-		mes "[Mariana]";
-		mes "A long time ago there was a really brave adventurer named Verass, thanks to his dedicated exploration, Brasilis was able to develop into this great city.";
-		next;
-		mes "[Pedro]";
-		mes "Awesome!!";
-		mes "i wanna become a real man like Verass.";
-		next;
-		mes "[Mariana]";
-		mes "Pedro, you can become whatever you want.";
-		next;
-		mes "[Pedro]";
-		mes "Mariana is so smart, isn't she? hehe.";
-		next;
-		mes "[Fabio]";
-		mes "Ooooh! You love her don't you!";
-		next;
-		mes "[Daniel]";
-		mes "Wooooaaaa Pedro and Mari sitting in a tree!";
-		next;
-		mes "[Fabio]";
-		mes "Woooo k-i-s-s-i-n-g~!!!";
-		next;
-		mes "[Daniel]";
-		mes "Nya nya nya!";
-		next;
-		mes "[Fabio]";
-		mes "Hahahahaha.";
-		next;
-		mes "[Pedro]";
-		mes "Stop acting like babies!";
-		next;
-		mes "[Mariana]";
-		mes "Boys~!";
-		next;
-		mes "[Daniel]";
-		mes "Yah yah...";
-		mes "Hey guys, did you hear that something happened a few days ago?";
-		next;
-		mes "[Mariana]";
-		mes "Oh yeah~ I heard that something really scary happened.";
-		next;
-		mes "[Fabio]";
-		mes "Uh, yeah that's why Mariana got scared of going ot the bathroom for 3 days and everything was stinky. Ewwww~";
-		next;
-		mes "[Daniel]";
-		mes "Ha ha ha! Smelly Mari!";
-		next;
-		mes "[Mariana]";
-		mes "I hate you~!";
-		mes "Stop spreading rumors about me. I'm not scared of the bathroom.";
-		mes "Pedro, do you think that I stink?";
-		next;
-		mes "[Pedro]";
-		mes "Uh? Uh?";
-		mes "N......no... no way.";
-		mes "Hey guys~ be nice to her~";
-		next;
-		mes "[Fabio]";
-		mes "kkkickkkkkkkkick";
-		next;
-		mes "[Daniel]";
-		mes "kkkickkkkkkkk";
-		next;
-		switch(select("Walk by.:Ask about the gossip.")) {
-		case 1:
-			mes "[Fabio]";
-			mes "Mariana~ smells~ Nya nya~";
-			next;
-			mes "[Daniel]";
-			mes "Oh man you stink too~! Nya nya~";
-			close;
-		case 2:
-			break;
-		}
-		mes "[Fabio]";
-		mes "Haven't you heard?";
-		mes "The ghost story in the art museum.";
-		next;
-		mes "[Daniel]";
-		mes "Ooohhhh! Scary~~~!";
-		next;
-		select("Can you tell me more?");
-		mes "[Fabio]";
-		mes "A coupla days ago we went to the art museum for a picnic at school.";
-		mes "You know nothing special, just a ordinary field trip.";
-		next;
-		mes "[Fabio]";
-		mes "Museums are boring so me and some friends snuck away from the group~!";
-		next;
-		mes "[Fabio]";
-		mes "That's when we heard a scream echoing through the whole museum.";
-		next;
-		mes "[Daniel]";
-		mes "kkakkakkaaaah!!";
-		mes "kkieeeeeeh!";
-		mes "kehkeh..";
-		next;
-		mes "[Mariana]";
-		mes "I heard the scream too...";
-		mes "You boys are always making noises where you're not supposed to.";
-		next;
-		mes "[Pedro]";
-		mes "What else are we supposed to do? If we don't do it someone else will.";
-		next;
-		emotion e_an,0,"Mariana#bra";
-		mes "[Mariana]";
-		mes "Argh~ Boys are so frustrating sometimes.";
-		next;
-		select("So then what happened?");
-		mes "[Fabio]";
-		mes "Daniel and me guessed something weird was goin' on so we ran to where we thought the screams were comin' from.";
-		next;
-		mes "[Fabio]";
-		mes "They were coming from the bathroom.";
-		mes "Some kids got so scared that they started screaming too and closing their eyes. It got pretty bad.";
-		next;
-		mes "[Daniel]";
-		mes "I think you pissed or pooped your pants. It smelled freakin' gross.";
-		next;
-		mes "[Fabio]";
-		mes "Nah uh~ Your mom pissed her pants~ Nyah!";
-		next;
-		mes "[Daniel]";
-		mes "Nah uh~ You~ pissed your pants~";
-		next;
-		mes "[Fabio]";
-		mes "Anyway, so yeah, anyway that's how the rumor of the ghost in the museum started.";
-		next;
-		mes "[Daniel]";
-		mes "Liar, there's no such thing as ghosts~";
-		next;
-		select("So was it a ghost?");
-		mes "[Fabio]";
-		mes "How should I know?";
-		mes "No one could say they saw one and no one wanted to get in trouble from the teachers.";
-		next;
-		mes "[Pedro]";
-		mes "I heard if you say special magic words that the ghost will come out.";
-		next;
-		mes "[Daniel]";
-		mes "Quit butting into our conversation Pedro.";
-		next;
-		mes "[Fabio]";
-		mes "Yah, what are you talking about, Pedro?";
-		mes "So did you see the ghost?";
-		next;
-		mes "[Pedro]";
-		mes "N... no. I'm scared of ghosts.";
-		mes "But my friends said they saw one and they're not liars.";
-		next;
-		select("Did anyone tell you the magic words?");
-		mes "[Pedro]";
-		mes "I heard it in a kind of song.";
-		mes "the special magic words are...";
-		next;
-		mes "[Pedro]";
-		mes "'^3131FFMother the door won't open!^000000'";
-		mes "'^FF0000Turn the key as many times as there are colors in the rainbow.^000000'";
-		mes "";
-		mes "'^3131FFMother the water is flooding!^000000'";
-		mes "'^FF0000If the moon disappears 3 times, don't worry.^000000'";
-		mes "";
-		mes "'^3131FFMother the drought has started!^000000'";
-		mes "'^FF0000Don't worry, the waterfall will help it.^000000'";
-		mes "";
-		mes "'^3131FFMother where are my friends?^000000'";
-		mes "'^FF0000Your 7 friends are sleeping. now it's time to wake them.^000000'";
-		mes "";
-		mes "'^3131FFWhere are you mom?^000000'";
-		next;
-		mes "[Mariana]";
-		mes "Umm it seems like a riddle.";
-		next;
-		select("Wanna help me find this ghost?");
-		mes "[Pedro]";
-		mes "You're on your own pal~.";
-		next;
-		mes "[Mariana]";
-		mes "I don't like scary things!";
-		next;
-		mes "[Fabio]";
-		mes "Pfft, I can't believe you're gonna believe that story.";
-		next;
-		mes "[Daniel]";
-		mes "I'll do whatever Fabio does, as always!";
-		next;
-		mes "[Fabio]";
-		mes "Maybe you're just scared...";
-		set brazil_ghost,1;
-		setquest 2208;
-		close;
+		doevent "Pedro#bra::OnTalk";
+		end;
 	}
 	else if (brazil_ghost == 1) {
 		mes "[Fabio]";
@@ -3280,204 +2197,8 @@ brasilis,181,250,5	script	Fabio#bra	706,{
 
 brasilis,180,249,5	script	Daniel#bra	706,{
 	if (brazil_ghost == 0) {
-		mes "[Pedro]";
-		mes "Wow it's really a great statue!";
-		next;
-		mes "[Mariana]";
-		mes "It is, isn't it?";
-		mes "This statue is called Verass Monument.";
-		next;
-		mes "[Mariana]";
-		mes "A long time ago there was a really brave adventurer named Verass, thanks to his dedicated exploration, Brasilis was able to develop into this great city.";
-		next;
-		mes "[Pedro]";
-		mes "Awesome!!";
-		mes "i wanna become a real man like Verass.";
-		next;
-		mes "[Mariana]";
-		mes "Pedro, you can become whatever you want.";
-		next;
-		mes "[Pedro]";
-		mes "Mariana is so smart, isn't she? hehe.";
-		next;
-		mes "[Fabio]";
-		mes "Ooooh! You love her don't you!";
-		next;
-		mes "[Daniel]";
-		mes "Wooooaaaa Pedro and Mari sitting in a tree!";
-		next;
-		mes "[Fabio]";
-		mes "Woooo k-i-s-s-i-n-g~!!!";
-		next;
-		mes "[Daniel]";
-		mes "Nya nya nya!";
-		next;
-		mes "[Fabio]";
-		mes "Hahahahaha.";
-		next;
-		mes "[Pedro]";
-		mes "Stop acting like babies!";
-		next;
-		mes "[Mariana]";
-		mes "Boys~!";
-		next;
-		mes "[Daniel]";
-		mes "Yah yah...";
-		mes "Hey guys, did you hear that something happened a few days ago?";
-		next;
-		mes "[Mariana]";
-		mes "Oh yeah~ I heard that something really scary happened.";
-		next;
-		mes "[Fabio]";
-		mes "Uh, yeah that's why Mariana got scared of going ot the bathroom for 3 days and everything was stinky. Ewwww~";
-		next;
-		mes "[Daniel]";
-		mes "Ha ha ha! Smelly Mari!";
-		next;
-		mes "[Mariana]";
-		mes "I hate you~!";
-		mes "Stop spreading rumors about me. I'm not scared of the bathroom.";
-		mes "Pedro, do you think that I stink?";
-		next;
-		mes "[Pedro]";
-		mes "Uh? Uh?";
-		mes "N......no... no way.";
-		mes "Hey guys~ be nice to her~";
-		next;
-		mes "[Fabio]";
-		mes "kkkickkkkkkkkick";
-		next;
-		mes "[Daniel]";
-		mes "kkkickkkkkkkk";
-		next;
-		switch(select("Walk by.:Ask about the gossip.")) {
-		case 1:
-			mes "[Fabio]";
-			mes "Mariana~ smells~ Nya nya~";
-			next;
-			mes "[Daniel]";
-			mes "Oh man you stink too~! Nya nya~";
-			close;
-		case 2:
-			break;
-		}
-		mes "[Fabio]";
-		mes "Haven't you heard?";
-		mes "The ghost story in the art museum.";
-		next;
-		mes "[Daniel]";
-		mes "Ooohhhh! Scary~~~!";
-		next;
-		select("Can you tell me more?");
-		mes "[Fabio]";
-		mes "A coupla days ago we went to the art museum for a picnic at school.";
-		mes "You know nothing special, just a ordinary field trip.";
-		next;
-		mes "[Fabio]";
-		mes "Museums are boring so me and some friends snuck away from the group~!";
-		next;
-		mes "[Fabio]";
-		mes "That's when we heard a scream echoing through the whole museum.";
-		next;
-		mes "[Daniel]";
-		mes "kkakkakkaaaah!!";
-		mes "kkieeeeeeh!";
-		mes "kehkeh..";
-		next;
-		mes "[Mariana]";
-		mes "I heard the scream too...";
-		mes "You boys are always making noises where you're not supposed to.";
-		next;
-		mes "[Pedro]";
-		mes "What else are we supposed to do? If we don't do it someone else will.";
-		next;
-		emotion e_an,0,"Mariana#bra";
-		mes "[Mariana]";
-		mes "Argh~ Boys are so frustrating sometimes.";
-		next;
-		select("So then what happened?");
-		mes "[Fabio]";
-		mes "Daniel and me guessed something weird was goin' on so we ran to where we thought the screams were comin' from.";
-		next;
-		mes "[Fabio]";
-		mes "They were coming from the bathroom.";
-		mes "Some kids got so scared that they started screaming too and closing their eyes. It got pretty bad.";
-		next;
-		mes "[Daniel]";
-		mes "I think you pissed or pooped your pants. It smelled freakin' gross.";
-		next;
-		mes "[Fabio]";
-		mes "Nah uh~ Your mom pissed her pants~ Nyah!";
-		next;
-		mes "[Daniel]";
-		mes "Nah uh~ You~ pissed your pants~";
-		next;
-		mes "[Fabio]";
-		mes "Anyway, so yeah, anyway that's how the rumor of the ghost in the museum started.";
-		next;
-		mes "[Daniel]";
-		mes "Liar, there's no such thing as ghosts~";
-		next;
-		select("So was it a ghost?");
-		mes "[Fabio]";
-		mes "How should I know?";
-		mes "No one could say they saw one and no one wanted to get in trouble from the teachers.";
-		next;
-		mes "[Pedro]";
-		mes "I heard if you say special magic words that the ghost will come out.";
-		next;
-		mes "[Daniel]";
-		mes "Quit butting into our conversation Pedro.";
-		next;
-		mes "[Fabio]";
-		mes "Yah, what are you talking about, Pedro?";
-		mes "So did you see the ghost?";
-		next;
-		mes "[Pedro]";
-		mes "N... no. I'm scared of ghosts.";
-		mes "But my friends said they saw one and they're not liars.";
-		next;
-		select("Did anyone tell you the magic words?");
-		mes "[Pedro]";
-		mes "I heard it in a kind of song.";
-		mes "the special magic words are...";
-		next;
-		mes "[Pedro]";
-		mes "'^3131FFMother the door won't open!^000000'";
-		mes "'^FF0000Turn the key as many times as there are colors in the rainbow.^000000'";
-		mes "";
-		mes "'^3131FFMother the water is flooding!^000000'";
-		mes "'^FF0000If the moon disappears 3 times, don't worry.^000000'";
-		mes "";
-		mes "'^3131FFMother the drought has started!^000000'";
-		mes "'^FF0000Don't worry, the waterfall will help it.^000000'";
-		mes "";
-		mes "'^3131FFMother where are my friends?^000000'";
-		mes "'^FF0000Your 7 friends are sleeping. now it's time to wake them.^000000'";
-		mes "";
-		mes "'^3131FFWhere are you mom?^000000'";
-		next;
-		mes "[Mariana]";
-		mes "Umm it seems like a riddle.";
-		next;
-		select("Wanna help me find this ghost?");
-		mes "[Pedro]";
-		mes "You're on your own pal~.";
-		next;
-		mes "[Mariana]";
-		mes "I don't like scary things!";
-		next;
-		mes "[Fabio]";
-		mes "Pfft, I can't believe you're gonna believe that story.";
-		next;
-		mes "[Daniel]";
-		mes "I'll do whatever Fabio does, as always!";
-		next;
-		mes "[Fabio]";
-		mes "Maybe you're just scared...";
-		set brazil_ghost,1;
-		setquest 2208;
-		close;
+		doevent "Pedro#bra::OnTalk";
+		end;
 	}
 	else if (brazil_ghost == 1) {
 		mes "[Daniel]";
@@ -4349,7 +3070,6 @@ bra_dun02,157,74,5	script	Iara#nk	478,2,2,{
 			mes "Get away from me quickly.";
 			delitem 11517,1; //Puri_Potion
 			percentheal 100,100;
-			// may requitre new SCs
 			sc_start SC_INCFLEE,3600000,20;
 			sc_start SC_INCCRI,3600000,10;
 			sc_start SC_STRFOOD,1200000,3;