From 78d9c69d88649d2d33f11a0ab4e2cb945c3fd637 Mon Sep 17 00:00:00 2001
From: KarLaeda <KarLaeda@54d463be-8e91-2dee-dedb-b68131a5f0ec>
Date: Fri, 24 Nov 2006 11:24:21 +0000
Subject: [PATCH] Cleaned up global permanent variables in Airship Quest

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@9306 54d463be-8e91-2dee-dedb-b68131a5f0ec
---
 npc/Changelog.txt              |  2 ++
 npc/airports/airships.txt      | 64 +++++++++++++++++-----------------
 npc/other/Global_Functions.txt |  8 +++++
 3 files changed, 42 insertions(+), 32 deletions(-)

diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index 5f5b020d41..0fc256747c 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -33,6 +33,8 @@ KarLaeda
 
 Date		Added
 ======
+11/24
+	* Cleaned up global permanent variables in Airship Quest [KarLaeda]
 11/23
 	* Fixed Mage Tutorial Quest [KarLaeda]
 	- Fixed typos in Ninja Quest
diff --git a/npc/airports/airships.txt b/npc/airports/airships.txt
index ab5826facc..7325d37258 100644
--- a/npc/airports/airships.txt
+++ b/npc/airports/airships.txt
@@ -394,7 +394,7 @@ airplane.gat,65,63,4	script	Maelin	714,{
 }
 
 airplane.gat,32,61,4	script	Nils::TypingContest	49,{
-
+	callfunc "F_ClearGarbage"; //Clear outdated, unused variables
 loopback:
 	mes "[Nils]";
 	mes "Welcome to the";
@@ -421,20 +421,20 @@ s_Play:
 	next;
 	//below arrays are for simplified entering of new lines ;P
 	//first lines array
-	setarray $textstringsa$[0],"^00FFFFthkelfkskeldmsiejdlsle^0000FFhfndkelsheidl",
- "^993366hfjdkeldjsieldjs^663366hfjdjeiskdlefvbd",
- "^00FFFFCoboman no chikara-yumei na",
- "^993366belief love luck grimace sweat rush",
- "^00FFFFcallipygian salacious lascivious",
- "^663366uNflAPPaBLe LoVaBLe SeCreTs AnD",
- "^00CCFFburrdingdingdilidingdingphoohudaamb",
- "^FF33CCbarapaphurarlandreamduranbatuhi^990066wooi",
- "^FF33CCLiGhTsPeEd RiGhT SPEed leFT TURn",
- "^00CCFFI'm the King of all Weirdos! Now",
- "^00CCFFBy the power of^000000",
- "^00CCFF...silence. quiet benevolence...";
+	setarray $@textstringsa$[0],"^00FFFFthkelfkskeldmsiejdlsle^0000FFhfndkelsheidl",
+	"^993366hfjdkeldjsieldjs^663366hfjdjeiskdlefvbd",
+	"^00FFFFCoboman no chikara-yumei na",
+	"^993366belief love luck grimace sweat rush",
+	"^00FFFFcallipygian salacious lascivious",
+	"^663366uNflAPPaBLe LoVaBLe SeCreTs AnD",
+	"^00CCFFburrdingdingdilidingdingphoohudaamb",
+	"^FF33CCbarapaphurarlandreamduranbatuhi^990066wooi",
+	"^FF33CCLiGhTsPeEd RiGhT SPEed leFT TURn",
+	"^00CCFFI'm the King of all Weirdos! Now",
+	"^00CCFFBy the power of^000000",
+	"^00CCFF...silence. quiet benevolence...";
 	//second lines array
-	setarray $textstringsb$[0],"skemd",
+	setarray $@textstringsb$[0],"skemd",
 	"",
 	"chikara-dalookii na chikara da ze!",
 	"folktale rodimus optimus bumblebee",
@@ -447,7 +447,7 @@ s_Play:
 	"p-po-poi-po-poi-poin-poing",
 	"soul mate... wonder. enigma...";
 	//for the few 3-liners... =X
-	setarray $textstringsc$[0],"",
+	setarray $@textstringsc$[0],"",
 	"",
 	"COBO ON!",
 	"",
@@ -458,9 +458,9 @@ s_Play:
 	"",
 	"",
 	"GOD-POING. I NEVER LOSE!",
- "cloud.";
+	"cloud.";
 	//comparisation strings
-	setarray $compstring$[0],"thkelfkskeldmsiejdlslehfndkelsheidlskemd",
+	setarray $@compstring$[0],"thkelfkskeldmsiejdlslehfndkelsheidlskemd",
 	"hfjdkeldjsieldjshfjdjeiskdlefvbd",
 	"Coboman no chikara-yumei na chikara-dalookii na chikara da ze! COBO ON",
 	"belief love luck grimace sweat rush folktale rodimus optimus bumblebee",
@@ -473,26 +473,26 @@ s_Play:
 	"By the power of p-po-poi-po-poi-poin-poing GOD-POING. I NEVER LOSE!",
 	"...silence. quiet benevolence... soul mate... wonder. enigma... cloud";
 	//lengths
-	setarray $lengths[0],20,32,73,73,65,66,67,55,67,66,67,69;
+	setarray $@lengths[0],20,32,73,73,65,66,67,55,67,66,67,69;
 	//	initnpctimer;
 	mes "[Nils]";
-	set @index,rand(1,getarraysize($textstringsa$))-1;
-	set @string1a$,$textstringsa$[@index];
-	set @string1b$,$textstringsb$[@index];
-	set @string1c$,$textstringsc$[@index];
-	set @typingstring1$,$compstring$[@index];
-	set @typingkeys,$lengths[@index];
-	set @index2,rand(1,getarraysize($textstringsa$))-1;
+	set @index,rand(1,getarraysize($@textstringsa$))-1;
+	set @string1a$,$@textstringsa$[@index];
+	set @string1b$,$@textstringsb$[@index];
+	set @string1c$,$@textstringsc$[@index];
+	set @typingstring1$,$@compstring$[@index];
+	set @typingkeys,$@lengths[@index];
+	set @index2,rand(1,getarraysize($@textstringsa$))-1;
 	while (@index2 == @index) {
-		set @index2,rand(1,getarraysize($textstringsa$))-1;
+		set @index2,rand(1,getarraysize($@textstringsa$))-1;
 	}
-	set @string2a$,$textstringsa$[@index2];
-	set @string2b$,$textstringsb$[@index2];
-	set @string2c$,$textstringsc$[@index2];
-	set @typingstring2$,$compstring$[@index2];
-	set @typingkeys,@typingkeys+$lengths[@index2];
+	set @string2a$,$@textstringsa$[@index2];
+	set @string2b$,$@textstringsb$[@index2];
+	set @string2c$,$@textstringsc$[@index2];
+	set @typingstring2$,$@compstring$[@index2];
+	set @typingkeys,@typingkeys+$@lengths[@index2];
 	set @start,gettime(3)*60*60+gettime(2)*60+gettime(1);
- mes @string1a$;
+	mes @string1a$;
 	if(@string1b$ != "")mes @string1b$;
 	if(@string1c$ != "")mes @string1c$;
 	input @comparisonvar$[1];
diff --git a/npc/other/Global_Functions.txt b/npc/other/Global_Functions.txt
index 27278fdf4d..a9d32c8ded 100644
--- a/npc/other/Global_Functions.txt
+++ b/npc/other/Global_Functions.txt
@@ -90,6 +90,14 @@ function	script	F_ClearGarbage	{
 		set num6,0;	set num7,0;	set num8,0;	set num9,0;
 		set hzdun,0; set cubekey,0; set piciburn,0;
 	}
+	//Airship
+	if($lengths){
+		cleararray $textstringsa$[0],"",getarraysize($textstringsa$);
+		cleararray $textstringsb$[0],"",getarraysize($textstringsb$);
+		cleararray $textstringsc$[0],"",getarraysize($textstringsc$);
+		cleararray $compstring$[0],"",getarraysize($compstring$);
+		cleararray $lengths[0],0,getarraysize($lengths);
+	}
 	return;
 }