Mirroristas/rathena
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleaned up global permanent variables in Airship Quest

Browse Source 
git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@9306 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
KarLaeda 2006-11-24 11:24:21 +00:00
parent 05b2d83b43
commit 78d9c69d88
3 changed files with 42 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
npc/Changelog.txt
View File

@ -33,6 +33,8 @@ KarLaeda
Date Added Date Added
====== ======
11/24
* Cleaned up global permanent variables in Airship Quest [KarLaeda]
11/23 11/23
* Fixed Mage Tutorial Quest [KarLaeda] * Fixed Mage Tutorial Quest [KarLaeda]
- Fixed typos in Ninja Quest - Fixed typos in Ninja Quest

64
npc/airports/airships.txt
View File

@ -394,7 +394,7 @@ airplane.gat,65,63,4 script Maelin 714,{
} }
airplane.gat,32,61,4 script Nils::TypingContest 49,{ airplane.gat,32,61,4 script Nils::TypingContest 49,{
callfunc "F_ClearGarbage"; //Clear outdated, unused variables
loopback: loopback:
mes "[Nils]"; mes "[Nils]";
mes "Welcome to the"; mes "Welcome to the";
@ -421,20 +421,20 @@ s_Play:
next; next;
//below arrays are for simplified entering of new lines ;P //below arrays are for simplified entering of new lines ;P
//first lines array //first lines array
setarray $textstringsa$[0],"^00FFFFthkelfkskeldmsiejdlsle^0000FFhfndkelsheidl", setarray $@textstringsa$[0],"^00FFFFthkelfkskeldmsiejdlsle^0000FFhfndkelsheidl",
"^993366hfjdkeldjsieldjs^663366hfjdjeiskdlefvbd", "^993366hfjdkeldjsieldjs^663366hfjdjeiskdlefvbd",
"^00FFFFCoboman no chikara-yumei na", "^00FFFFCoboman no chikara-yumei na",
"^993366belief love luck grimace sweat rush", "^993366belief love luck grimace sweat rush",
"^00FFFFcallipygian salacious lascivious", "^00FFFFcallipygian salacious lascivious",
"^663366uNflAPPaBLe LoVaBLe SeCreTs AnD", "^663366uNflAPPaBLe LoVaBLe SeCreTs AnD",
"^00CCFFburrdingdingdilidingdingphoohudaamb", "^00CCFFburrdingdingdilidingdingphoohudaamb",
"^FF33CCbarapaphurarlandreamduranbatuhi^990066wooi", "^FF33CCbarapaphurarlandreamduranbatuhi^990066wooi",
"^FF33CCLiGhTsPeEd RiGhT SPEed leFT TURn", "^FF33CCLiGhTsPeEd RiGhT SPEed leFT TURn",
"^00CCFFI'm the King of all Weirdos! Now", "^00CCFFI'm the King of all Weirdos! Now",
"^00CCFFBy the power of^000000", "^00CCFFBy the power of^000000",
"^00CCFF...silence. quiet benevolence..."; "^00CCFF...silence. quiet benevolence...";
//second lines array //second lines array
setarray $textstringsb$[0],"skemd", setarray $@textstringsb$[0],"skemd",
"", "",
"chikara-dalookii na chikara da ze!", "chikara-dalookii na chikara da ze!",
"folktale rodimus optimus bumblebee", "folktale rodimus optimus bumblebee",
@ -447,7 +447,7 @@ s_Play:
"p-po-poi-po-poi-poin-poing", "p-po-poi-po-poi-poin-poing",
"soul mate... wonder. enigma..."; "soul mate... wonder. enigma...";
//for the few 3-liners... =X //for the few 3-liners... =X
setarray $textstringsc$[0],"", setarray $@textstringsc$[0],"",
"", "",
"COBO ON!", "COBO ON!",
"", "",
@ -458,9 +458,9 @@ s_Play:
"", "",
"", "",
"GOD-POING. I NEVER LOSE!", "GOD-POING. I NEVER LOSE!",
"cloud."; "cloud.";
//comparisation strings //comparisation strings
setarray $compstring$[0],"thkelfkskeldmsiejdlslehfndkelsheidlskemd", setarray $@compstring$[0],"thkelfkskeldmsiejdlslehfndkelsheidlskemd",
"hfjdkeldjsieldjshfjdjeiskdlefvbd", "hfjdkeldjsieldjshfjdjeiskdlefvbd",
"Coboman no chikara-yumei na chikara-dalookii na chikara da ze! COBO ON", "Coboman no chikara-yumei na chikara-dalookii na chikara da ze! COBO ON",
"belief love luck grimace sweat rush folktale rodimus optimus bumblebee", "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!", "By the power of p-po-poi-po-poi-poin-poing GOD-POING. I NEVER LOSE!",
"...silence. quiet benevolence... soul mate... wonder. enigma... cloud"; "...silence. quiet benevolence... soul mate... wonder. enigma... cloud";
//lengths //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; // initnpctimer;
mes "[Nils]"; mes "[Nils]";
set @index,rand(1,getarraysize($textstringsa$))-1; set @index,rand(1,getarraysize($@textstringsa$))-1;
set @string1a$,$textstringsa$[@index]; set @string1a$,$@textstringsa$[@index];
set @string1b$,$textstringsb$[@index]; set @string1b$,$@textstringsb$[@index];
set @string1c$,$textstringsc$[@index]; set @string1c$,$@textstringsc$[@index];
set @typingstring1$,$compstring$[@index]; set @typingstring1$,$@compstring$[@index];
set @typingkeys,$lengths[@index]; set @typingkeys,$@lengths[@index];
set @index2,rand(1,getarraysize($textstringsa$))-1; set @index2,rand(1,getarraysize($@textstringsa$))-1;
while (@index2 == @index) { while (@index2 == @index) {
set @index2,rand(1,getarraysize($textstringsa$))-1; set @index2,rand(1,getarraysize($@textstringsa$))-1;
} }
set @string2a$,$textstringsa$[@index2]; set @string2a$,$@textstringsa$[@index2];
set @string2b$,$textstringsb$[@index2]; set @string2b$,$@textstringsb$[@index2];
set @string2c$,$textstringsc$[@index2]; set @string2c$,$@textstringsc$[@index2];
set @typingstring2$,$compstring$[@index2]; set @typingstring2$,$@compstring$[@index2];
set @typingkeys,@typingkeys+$lengths[@index2]; set @typingkeys,@typingkeys+$@lengths[@index2];
set @start,gettime(3)*60*60+gettime(2)*60+gettime(1); set @start,gettime(3)*60*60+gettime(2)*60+gettime(1);
mes @string1a$; mes @string1a$;
if(@string1b$ != "")mes @string1b$; if(@string1b$ != "")mes @string1b$;
if(@string1c$ != "")mes @string1c$; if(@string1c$ != "")mes @string1c$;
input @comparisonvar$[1]; input @comparisonvar$[1];

8
npc/other/Global_Functions.txt
View File

@ -90,6 +90,14 @@ function script F_ClearGarbage {
set num6,0; set num7,0; set num8,0; set num9,0; set num6,0; set num7,0; set num8,0; set num9,0;
set hzdun,0; set cubekey,0; set piciburn,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; return;
} }