summaryrefslogtreecommitdiff
path: root/npc/other
diff options
context:
space:
mode:
Diffstat (limited to 'npc/other')
-rw-r--r--npc/other/CashShop_Functions.txt2
-rw-r--r--npc/other/Global_Functions.txt44
-rw-r--r--npc/other/arena/arena_party.txt2
-rw-r--r--npc/other/auction.txt15
-rw-r--r--npc/other/books.txt5
-rw-r--r--npc/other/comodo_gambling.txt4
-rw-r--r--npc/other/fortune.txt2
-rw-r--r--npc/other/hugel_bingo.txt8
-rw-r--r--npc/other/item_merge.txt71
-rw-r--r--npc/other/marriage.txt2
-rw-r--r--npc/other/monster_museum.txt56
-rw-r--r--npc/other/monster_race.txt907
-rw-r--r--npc/other/poring_war.txt2
-rw-r--r--npc/other/pvp.txt2
-rw-r--r--npc/other/turbo_track.txt55
15 files changed, 600 insertions, 577 deletions
diff --git a/npc/other/CashShop_Functions.txt b/npc/other/CashShop_Functions.txt
index f71245ad6..f87b191b3 100644
--- a/npc/other/CashShop_Functions.txt
+++ b/npc/other/CashShop_Functions.txt
@@ -233,7 +233,7 @@ function script F_CashTele {
//============================================================
// - Warp player to selected guild castle.
// - No arguments.
-function script F_CashSeigeTele {
+function script F_CashSiegeTele {
switch(select("Neuschwanstein (aldeg_cas01):Hohenschwangau (aldeg_cas02):Nuernberg (aldeg_cas03):Wuerzburg (aldeg_cas04):Rothenburg (aldeg_cas05):Repherion (gefg_cas01):Eeyorbriggar (gefg_cas02):Yesnelph (gefg_cas03):Bergel (gefg_cas04):Mersetzdeitz (gefg_cas05):Bright Arbor (payg_cas01):Sacred Altar (payg_cas02):Holy Shadow (payg_cas03):Scarlet Palace (payg_cas04):Bamboo Grove Hill (payg_cas05):Kriemhild (prtg_cas01):Swanhild (prtg_cas02):Fadhgridh (prtg_cas03):Skoegul (prtg_cas04):Gondul (prtg_cas05)")) {
case 1: warp "alde_gld",48,91; end;
case 2: warp "alde_gld",103,245; end;
diff --git a/npc/other/Global_Functions.txt b/npc/other/Global_Functions.txt
index 4e9060419..ff5b78b2d 100644
--- a/npc/other/Global_Functions.txt
+++ b/npc/other/Global_Functions.txt
@@ -39,8 +39,33 @@
//= 2.16 Added F_GetWeaponType, and F_GetArmorType. [L0ne_W0lf]
//= 2.17 Renamed 'F_RandMes' to 'F_Rand'. [Euphy]
//= 2.18 Removed useless 'getJobName' function. [Euphy]
+//= 2.19 Improved 'F_InsertComma' function. [Emistry]
//============================================================
+//////////////////////////////////////////////////////////////////////////////////
+// Returns a number with commas based on precision of digits and custom separator.
+// -- callfunc "F_InsertComma",<number>{,<precision>,<separator>}
+// Examples:
+// callfunc("F_InsertComma",7777777{,<precision>,<separator>}) // returns "7,777,777"
+// callfunc("F_InsertComma",1000000000,3,","}) // returns "1,000,000,000"
+// callfunc("F_InsertComma",1000000000,3,"_"}) // returns "1_000_000_000"
+// callfunc("F_InsertComma",1000000000,4) // returns "10,0000,0000"
+//////////////////////////////////////////////////////////////////////////////////
+function script F_InsertComma {
+ .@value = getarg(0);
+ .@precision = getarg(1,3);
+ .@separator$ = getarg( 2,"," );
+
+ .@str$ = ""+.@value;
+ .@is_negative = ( .@value < 0 );
+
+ .@length = getstrlen( .@str$ ) - .@precision - .@is_negative;
+ while ( .@length > 0 ) {
+ .@str$ = insertchar( .@str$, .@separator$ , ( .@length + .@is_negative ) );
+ .@length -= .@precision;
+ }
+ return .@str$;
+}
//////////////////////////////////////////////////////////////////////////////////
// Function that clears job quest variables
@@ -98,10 +123,10 @@ function script F_ClearGarbage {
RES_SKILL = 0;
//Here you put outdated variables from your outdated EVENTS
//e.g. Is XMAS done? Add the EVENT var clearing code here.
-
+
//due to bugs in BS quest:
wizard_m2 = 0;
-
+
// Old Novice Ground Variables.
NEW_MES_FLAG0 = 0;
NEW_MES_FLAG1 = 0;
@@ -112,11 +137,11 @@ function script F_ClearGarbage {
NEW_LVUP0 = 0;
NEW_LVUP1 = 0;
NEW_JOBLVUP = 0;
-
+
// Old DTS variables that are no longer used.
dtseligible = 0;
MISC_QUEST = MISC_QUEST & ~128;
-
+
return;
}
@@ -133,7 +158,6 @@ function script Job_Change {
return;
}
-
//////////////////////////////////////////////////////////////////////////////////
// Functions used to spiff up dialoges [Lupus]
//////////////////////////////////////////////////////////////////////////////////
@@ -150,7 +174,6 @@ function script F_Rand {
return getarg(rand(getargcount()));
}
-
//////////////////////////////////////////////////////////////////////////////////
// *** Function "F_Sex"
//////////////////////////////////////////////////////////////////////////////////
@@ -161,7 +184,6 @@ function script F_SexMes {
return getarg(Sex);
}
-
//////////////////////////////////////////////////////////////////////////////////
// *** Function "F_Hi"
//////////////////////////////////////////////////////////////////////////////////
@@ -171,7 +193,6 @@ function script F_Hi {
return callfunc("F_Rand","Hi!","Hello!","Good day!","How are you?","Hello there.");
}
-
//////////////////////////////////////////////////////////////////////////////////
// *** Function "F_Bye"
//////////////////////////////////////////////////////////////////////////////////
@@ -181,7 +202,6 @@ function script F_Bye {
return callfunc("F_Rand","Bye. See you again.","Later.","Goodbye.","Good luck!","Have a nice day!","Byebye!!!");
}
-
//////////////////////////////////////////////////////////////////////////////////
// *** Function "F_ItemName"
//////////////////////////////////////////////////////////////////////////////////
@@ -310,14 +330,14 @@ function script F_GetArmorType {
// *********************************************************************
function script Time2Str {
.@time_left = getarg(0) - gettimetick(2);
-
+
.@Days = .@time_left / 86400;
.@time_left -= (.@Days * 86400);
.@Hours = .@time_left / 3600;
.@time_left -= (.@Hours * 3600);
.@Minutes = .@time_left / 60;
.@time_left -= (.@Minutes * 60);
-
+
.@Time$ = "";
if( .@Days > 1 )
.@Time$ += .@Days + " days, ";
@@ -338,6 +358,6 @@ function script Time2Str {
.@Time$ += .@time_left + " seconds";
else if( .@time_left == 1 )
.@Time$ += .@time_left + " second";
-
+
return .@Time$;
}
diff --git a/npc/other/arena/arena_party.txt b/npc/other/arena/arena_party.txt
index ca4b74388..717e69fd3 100644
--- a/npc/other/arena/arena_party.txt
+++ b/npc/other/arena/arena_party.txt
@@ -38,7 +38,7 @@ OnStart:
end;
}
-prt_are_in,76,87,3 script Helper#party 67,4,4,{
+prt_are_in,76,87,3 script Helper#party 1_F_02,4,4,{
if($arn_partywait == 0) {
$arn_partywait = 1;
emotion e_gasp,0;
diff --git a/npc/other/auction.txt b/npc/other/auction.txt
index eb4eb7bc4..df76daa32 100644
--- a/npc/other/auction.txt
+++ b/npc/other/auction.txt
@@ -98,11 +98,16 @@ auction_02,43,17,0 warp auction_enterance_lhz 1,1,lighthalzen,209,169
next;
if (select("Yes:No") == 1) {
mes "[Auction Broker]";
- mes "Very well.";
- mes "Please take";
- mes "a look, and see";
- mes "What's being offered~";
- openauction;
+ if ( getbattleflag( "feature.auction" ) ) {
+ mes "Very well.";
+ mes "Please take";
+ mes "a look, and see";
+ mes "What's being offered~";
+ openauction;
+ }
+ else {
+ mes "Auction feature isn't enabled.";
+ }
close;
}
mes "[Auction Broker]";
diff --git a/npc/other/books.txt b/npc/other/books.txt
index fed26bfeb..aef8a4079 100644
--- a/npc/other/books.txt
+++ b/npc/other/books.txt
@@ -391,7 +391,7 @@ prt_in,168,56,4 script Monster Encyclopedia#prt HIDDEN_NPC,{
}
}
}
-
+
prt_in,159,56,4 script Monster Encyclopedia#2pr HIDDEN_NPC,{
mes "^FF0000[Monster Encyclopedia]^000000";
mes "This is a Monster Encyclopedia";
@@ -871,7 +871,7 @@ prt_in,159,56,4 script Monster Encyclopedia#2pr HIDDEN_NPC,{
}
}
-prt_in,161,50,4 script Monster Encyclopedia#3pr 111,{
+prt_in,161,50,4 script Monster Encyclopedia#3pr HIDDEN_NPC,{
mes "^FF0000[Monster Encyclopedia]^000000";
mes "This is a Monster Encyclopedia";
mes "containing information on Dark,";
@@ -1720,7 +1720,6 @@ prt_in,172,96,4 script Monster Encyclopedia#4pr HIDDEN_NPC,{
}
}
-
prt_in,164,96,4 script Monster Encyclopedia#5pr HIDDEN_NPC,{
mes "^FF0000[Dungeon Monster Encyclopedia]^000000";
mes "This is an Encyclopedia describing";
diff --git a/npc/other/comodo_gambling.txt b/npc/other/comodo_gambling.txt
index ea354e490..3d0e2b389 100644
--- a/npc/other/comodo_gambling.txt
+++ b/npc/other/comodo_gambling.txt
@@ -71,7 +71,7 @@ comodo,219,158,6 script Kachua 4_F_02,{
mes "you something from one of my";
mes "collections~";
next;
-
+
if (MaxWeight - Weight < 5500) {
cutin "katsua01.bmp",255;
cutin "katsua03.bmp",2;
@@ -379,7 +379,7 @@ comodo,219,158,6 script Kachua 4_F_02,{
close;
break;
}
-
+
getitem .@item,1;
cutin "katsua01.bmp",255;
diff --git a/npc/other/fortune.txt b/npc/other/fortune.txt
index a14f63fc9..dad407482 100644
--- a/npc/other/fortune.txt
+++ b/npc/other/fortune.txt
@@ -3525,7 +3525,7 @@ payon_in03,75,129,5 script Poring Fortune Teller 4_M_BIBI,{
}
close;
}
-
+
payon_in03,118,119,1 script Ascetic 4W_F_01,2,2,{
mes "[Kissy-Kissy]";
mes "NyangNyangNyang~";
diff --git a/npc/other/hugel_bingo.txt b/npc/other/hugel_bingo.txt
index 15b87b117..a31a8f47a 100644
--- a/npc/other/hugel_bingo.txt
+++ b/npc/other/hugel_bingo.txt
@@ -406,7 +406,7 @@ OnInit:
disablenpc "24e#bingo";
disablenpc "25e#bingo";
end;
-
+
OnTouch:
if(@bingoplate[1] == $bingo[$@bingoresult -1]){ @bingo_a1$ = "^ff0000- -^000000"; setarray @bingoplate[1],99; }
else if(@bingoplate[2] == $bingo[$@bingoresult -1]){ @bingo_a2$ = "^ff0000- -^000000"; setarray @bingoplate[2],99; }
@@ -951,7 +951,7 @@ que_bingo,54,17,5 script Arcade Owner 4_M_05,{
mes "game, you will be rewarded";
mes "with ''Marvelous Medals,''";
mes "which can only be used within";
- mes "this arcade. You also can't^FFFFFF ^000000 trade medals with other players.";
+ mes "this arcade. You also can't trade medals with other players.";
next;
mes "[Arcade Owner]";
mes "You usually get 1 Marvelous";
@@ -964,8 +964,8 @@ que_bingo,54,17,5 script Arcade Owner 4_M_05,{
mes "[Arcade Owner]";
mes "Collect as many Marvelous";
mes "Medals as you can, and trade";
- mes "them for products in the Monster^FFFFFF ^000000 Racing Arena. I hear there's also";
- mes "a place in Einbroch where you can^FFFFFF ^000000 use them, but I wouldn't know.";
+ mes "them for products in the Monster Racing Arena. I hear there's also";
+ mes "a place in Einbroch where you can use them, but I wouldn't know.";
close;
}
}
diff --git a/npc/other/item_merge.txt b/npc/other/item_merge.txt
new file mode 100644
index 000000000..151251edc
--- /dev/null
+++ b/npc/other/item_merge.txt
@@ -0,0 +1,71 @@
+//===== Hercules Script ======================================
+//= Mergician
+//===== By: ==================================================
+//= Euphy
+//===== Current Version: =====================================
+//= 1.0
+//===== Description: =========================================
+//= [Official Conversion]
+//= Merges items taking up multiple slots in a player's
+//= inventory.
+//===== Additional Comments: =================================
+//= 1.0 First version, currently useless/disabled.
+//= 1.1 Add support for merging items
+//============================================================
+
+prontera,146,95,3 script Mergician#pron 1_M_WIZARD,{
+ if (checkweight(1301,1) == 0) {
+ mes "- Wait a second !! -";
+ mes "- You are carrying too many items -";
+ mes "- or too much weight to proceed. -";
+ mes "- Come back after -";
+ mes "- arranging your inventory. -";
+ close;
+ }
+ mes "[Mergician]";
+ mes "Do you believe in the miracle of Merge god?? If so, repeat my spell loudly as I pronunce it!!!";
+ mes "Merge Merge, Merrrrge!!!";
+ next;
+ switch(select("What is the miracle of Merge?:Merrrrge!!!!:Abandon...")) {
+ case 1:
+ mes "[Mergician]";
+ mes "There is an order which rules the world and keeps the world to go well.";
+ next;
+ mes "[Mergician]";
+ mes "But there has been a bad factor which totally jeopardised this rule!!";
+ next;
+ mes "[Mergician]";
+ mes "Those things which are separated even if they are composed by the same material!!";
+ next;
+ mes "[Mergician]";
+ mes "Have you never experienced this bad incident??";
+ mes "The fact that I had ^3131FFthe same potion, but appearing more than twice in your inventory!!^000000 So unpleasant!!!";
+ next;
+ mes "[Mergician]";
+ mes "Believe in Mergism. That is the truth.";
+ mes "Then I can help you be happy and content.";
+ close;
+ case 2:
+ mes "[Mergician]";
+ mes "This is the total holy ritual to pray to the Great God, Merge! and I am borrowing the power for a while!!";
+ next;
+ mes "[Mergician]";
+ mes "And if you eagerly want to be blessed by Merge, be humble and shout out loud! Merge Merge, Merrrrge!!!";
+ next;
+ switch(select("Merrrrge!:Don't follow what he says.")) {
+ case 1:
+ mes "[Mergician]";
+ mes "Merge just heard your wish and let it be realised!";
+ mes "Open your inventory to check the miracle!";
+ close2;
+ mergeitem();
+ end;
+ case 2:
+ mes "[Mergician]";
+ mes "You jerk!!! You just broke the whole rhythm! Why can't you get my flow and follow me?! Idiot!";
+ close;
+ }
+ case 3:
+ close;
+ }
+}
diff --git a/npc/other/marriage.txt b/npc/other/marriage.txt
index dead8d61b..80d6a675f 100644
--- a/npc/other/marriage.txt
+++ b/npc/other/marriage.txt
@@ -787,7 +787,7 @@ S_Busy:
mes "I'm conducting a wedding";
mes "for another couple now, so";
mes "please wait patiently for your";
- mes "turn. Thanks for understanding... ^FFFFFF ^000000";
+ mes "turn. Thanks for understanding... ";
goto L_End;
OnStop:
diff --git a/npc/other/monster_museum.txt b/npc/other/monster_museum.txt
index fae93fd3e..d39b034da 100644
--- a/npc/other/monster_museum.txt
+++ b/npc/other/monster_museum.txt
@@ -59,7 +59,7 @@ yuno_in03,32,15,3 script Museum Guide 1_F_02,{
mes "Feel free to talk to me anytime.";
close;
}
-
+
yuno_in03,36,21,3 script Deviace#yuno DEVIACE,{
end;
}
@@ -85,7 +85,7 @@ yuno_in03,33,21,1 script #DEVIACE HIDDEN_NPC,{
mes "it's better to be careful with this monster.";
close;
}
-
+
yuno_in03,36,27,3 script Seal#yuno FUR_SEAL,{
end;
}
@@ -111,7 +111,7 @@ yuno_in03,33,27,1 script #FUR_SEAL HIDDEN_NPC,{
mes "for people to produce winter coats.";
close;
}
-
+
yuno_in03,36,33,3 script Sage Worm#yuno SAGEWORM,{
end;
}
@@ -133,7 +133,7 @@ yuno_in03,33,33,1 script #SAGEWORM HIDDEN_NPC,{
mes "indicates, it's usually seen near books or book shelves.";
close;
}
-
+
yuno_in03,39,39,3 script Penomena#yuno PENOMENA,{
end;
}
@@ -159,7 +159,7 @@ yuno_in03,38,39,1 script #PENOMANA HIDDEN_NPC,{
mes "enough to kill its enemy at once.";
close;
}
-
+
yuno_in03,39,44,3 script Galapago#yuno GALAPAGO,{
end;
}
@@ -180,7 +180,7 @@ yuno_in03,37,44,3 script #GALAPAGO HIDDEN_NPC,{
mes "generally laid back monster.";
close;
}
-
+
yuno_in03,15,21,5 script Raydric#yuno RAYDRIC,{
end;
}
@@ -201,7 +201,7 @@ yuno_in03,19,21,1 script #RAYDRIC HIDDEN_NPC,{
mes "and powerful attack strength.";
close;
}
-
+
yuno_in03,15,27,5 script Chepet#yuno CHEPET,{
end;
}
@@ -220,7 +220,7 @@ yuno_in03,19,27,1 script #CHEPET HIDDEN_NPC,{
mes "only a few places.";
close;
}
-
+
yuno_in03,15,33,5 script Violy#yuno VIOLY,{
end;
}
@@ -237,7 +237,7 @@ yuno_in03,19,33,1 script #VIOLY HIDDEN_NPC,{
mes "Exercise extreme caution upon encountering a Violy. Otherwise, it will snatch your soul in no time with its charming song.";
close;
}
-
+
yuno_in03,10,39,5 script Alice#yuno ALICE,{
end;
}
@@ -259,7 +259,7 @@ yuno_in03,12,39,1 script #ALICE HIDDEN_NPC,{
mes "is still a scientific mystery.";
close;
}
-
+
yuno_in03,10,45,5 script Assulter#yuno ASSULTER,{
end;
}
@@ -284,7 +284,7 @@ yuno_in03,12,45,1 script #ASSULTER HIDDEN_NPC,{
mes "is more threatening.";
close;
}
-
+
yuno_in03,38,50,3 script PecoPeco Egg#yuno PECOPECO_EGG,{
end;
}
@@ -316,7 +316,7 @@ yuno_in03,20,96,1 script #WANDER_MAN HIDDEN_NPC,{
mes "stroke of its sword.";
close;
}
-
+
yuno_in03,16,100,5 script Caterpillar#yuno CATERPILLAR,{
end;
}
@@ -338,7 +338,7 @@ yuno_in03,18,100,1 script #CATERPILLAR HIDDEN_NPC,{
mes "Creamy.";
close;
}
-
+
yuno_in03,16,104,5 script Male Thiefbug#yuno THIEF_BUG__,{
end;
}
@@ -356,7 +356,7 @@ yuno_in03,18,104,1 script #THIEF_BUG__ HIDDEN_NPC,{
mes "However, it is stronger than other Thief Bugs because it's designated to protect the females and babies from danger.";
close;
}
-
+
yuno_in03,16,108,5 script Tri Joint#yuno TRI_JOINT,{
end;
}
@@ -376,7 +376,7 @@ yuno_in03,18,108,1 script #TRI_JOINT HIDDEN_NPC,{
mes "Recently, since many Tri Joints have been discovered inside many caves, Sages are very excited to study them to learn more about the evolution of monsters in Rune-Midgard.";
close;
}
-
+
yuno_in03,16,111,5 script Arclouz#yuno ARCLOUSE,{
end;
}
@@ -399,7 +399,7 @@ yuno_in03,18,111,1 script #ARCLOUSE HIDDEN_NPC,{
mes "compared to PecoPecos.";
close;
}
-
+
yuno_in03,16,117,5 script Dragon Tail#yuno DRAGON_TAIL,{
end;
}
@@ -418,7 +418,7 @@ yuno_in03,18,116,1 script #DRAGON_TAIL HIDDEN_NPC,{
mes "a sleeping poison.";
close;
}
-
+
yuno_in03,46,96,3 script Owl Duke#yuno OWL_DUKE,{
end;
}
@@ -443,7 +443,7 @@ yuno_in03,44,96,1 script #OWL_DUKE HIDDEN_NPC,{
mes "aristocratic pompousness.";
close;
}
-
+
yuno_in03,48,100,3 script Marine Sphere#yuno MARINE_SPHERE,{
end;
}
@@ -467,7 +467,7 @@ yuno_in03,46,101,1 script #MARINE_SPHERE HIDDEN_NPC,{
mes "a dangerous chain reaction.";
close;
}
-
+
yuno_in03,48,104,3 script Mandragora#yuno MANDRAGORA,{
end;
}
@@ -498,7 +498,7 @@ yuno_in03,46,105,1 script #MANDRAGORA HIDDEN_NPC,{
mes "from useful in attracting prey.";
close;
}
-
+
yuno_in03,48,108,3 script Geographer#yuno GEOGRAPHER,{
end;
}
@@ -532,7 +532,7 @@ yuno_in03,46,108,1 script #GEOGRAPHER HIDDEN_NPC,{
mes "never be forgotten...";
close;
}
-
+
yuno_in03,48,112,3 script Rafflesia#yuno RAFFLESIA,{
end;
}
@@ -557,7 +557,7 @@ yuno_in03,46,112,1 script #RAFFLESIA HIDDEN_NPC,{
mes "cultivate and save the Rafflesias.";
close;
}
-
+
yuno_in03,48,116,3 script Stem Worm#yuno STEM_WORM,{
end;
}
@@ -601,7 +601,7 @@ yuno_in03,24,122,1 script #BLAZZER HIDDEN_NPC,{
mes "form of communication.";
close;
}
-
+
yuno_in03,28,124,5 script Ride Word#yuno RIDEWORD,{
end;
}
@@ -616,7 +616,7 @@ yuno_in03,28,122,1 script #RIDEWORD HIDDEN_NPC,{
mes "sharp teeth. It exists to attack any living thing nearby.";
close;
}
-
+
yuno_in03,31,124,3 script Megalodon#yuno MEGALODON,{
end;
}
@@ -634,7 +634,7 @@ yuno_in03,31,122,1 script #MEGALODON HIDDEN_NPC,{
mes "undersea travellers outright.";
close;
}
-
+
yuno_in03,35,124,3 script Sleeper#yuno SLEEPER,{
end;
}
@@ -655,7 +655,7 @@ yuno_in03,35,122,1 script #SLEEPER HIDDEN_NPC,{
mes "cause indirect attacks by causing a sand storm.";
close;
}
-
+
yuno_in03,39,124,3 script Ancient Mummy#yuno ANCIENT_MUMMY,{
end;
}
@@ -684,7 +684,7 @@ yuno_in03,39,122,1 script #ANCIENT_MUMMY HIDDEN_NPC,{
mes "attack any living thing nearby.";
close;
}
-
+
yuno_in03,18,122,5 script Incubus#yuno INCUBUS,{
end;
}
@@ -706,7 +706,7 @@ yuno_in03,19,120,1 script #INCUBUS HIDDEN_NPC,{
mes "it can eventually take them to hell.";
close;
}
-
+
yuno_in03,44,120,3 script Succubus#yuno SUCCUBUS,{
end;
}
diff --git a/npc/other/monster_race.txt b/npc/other/monster_race.txt
index 2dc89052e..af54e7388 100644
--- a/npc/other/monster_race.txt
+++ b/npc/other/monster_race.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 2.0
+//= 2.1
//===== Description: =========================================
//= [Official Conversion]
//= - Hugel Monster Races (Single and Double)
@@ -22,23 +22,19 @@
//= Fixed Medal Distributor (Dual Race) disappears accordingly. [Joseph]
//= 1.9 Updated RE/Pre-RE EXP. [Euphy]
//= 2.0 Added GM management NPC. [Euphy]
+//= 2.1 Fixed prize in dual race and optimization. [Capuche]
//============================================================
// Monster Race - Single Monster Race
//============================================================
hugel,51,61,0 script #race_timer1-1 -1,{
-OnInit:
OnEnable:
enablenpc "#race_timer1-1";
+OnInit:
$@mon_time_1_1 = 2;
initnpctimer;
end;
-OnDisable:
- disablenpc "#race_timer1-1";
- stopnpctimer;
- end;
-
OnTimer10000:
mapannounce "hugel","The Single Monster Race will soon begin. We hope to see many of you participate!",bc_map,"0x87ceeb";
end;
@@ -68,78 +64,64 @@ OnTimer272000:
OnTimer330000:
mapannounce "hugel","The race is now starting. If you missed your chance to enter this race, please try again next time~!",bc_map,"0x87ceeb";
$@mon_time_1_1 = 0;
- donpcevent "#race_timer1-1::OnDisable";
+ disablenpc "#race_timer1-1";
stopnpctimer;
end;
}
p_track01,58,0,0 script Race Progress Timer -1,{
OnEnable:
- enablenpc "Race Progress Timer";
initnpctimer;
- for (.@i = 1; .@i <= 6; ++.@i)
- enablenpc "starting#"+.@i;
- .@c = 1;
- while (.@c <= 6) {
- setd ".@line_"+.@c,rand(1,70);
- if (getd(".@line_"+.@c) <= 10) {
- setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c);
+ enablenpc "Race Progress Timer";
+ for (.@c = 1; .@c <= 6; ++.@c) {
+ .@line = rand(1,70);
+ enablenpc "starting#"+.@c;
+ enablenpc "Tire"+.@c+"#1";
+ if (.@line <= 10) {
+ .@tired = rand(50,60);
enablenpc "Luk"+.@c+"#5";
enablenpc "Luk"+.@c+"#6";
- setd "$@mr_1_tire"+.@c,rand(50,60);
- enablenpc "Tire"+.@c+"#1";
- } else if (getd(".@line_"+.@c) <= 30) {
- setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c);
+ } else if (.@line <= 30) {
+ .@tired = rand(40,60);
enablenpc "Luk"+.@c+"#5";
- set getd(".@tired"+.@c),rand(40,60);
- setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
- enablenpc "Tire"+.@c+"#1";
- if (getd(".@tired"+.@c) >= 50) enablenpc "Tire"+.@c+"#2";
- } else if (getd(".@line_"+.@c) <= 40) {
- setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c);
+ if (.@tired >= 50)
+ enablenpc "Tire"+.@c+"#2";
+ } else if (.@line <= 40) {
+ .@tired = rand(30,50);
enablenpc "Luk"+.@c+"#1";
- set getd(".@tired"+.@c),rand(30,50);
- setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
- enablenpc "Tire"+.@c+"#1";
enablenpc "Tire"+.@c+"#2";
- if (getd(".@tired"+.@c) < 40) enablenpc "Tire"+.@c+"#3";
- } else if (getd(".@line_"+.@c) <= 50) {
- setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c);
+ if (.@tired < 40)
+ enablenpc "Tire"+.@c+"#3";
+ } else if (.@line <= 50) {
+ .@tired = rand(20,40);
enablenpc "Luk"+.@c+"#1";
enablenpc "Luk"+.@c+"#2";
- set getd(".@tired"+.@c),rand(20,40);
- setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
- for (.@i = 1; .@i <= 3; ++.@i)
- enablenpc "Tire"+.@c+"#"+.@i;
- if (getd(".@tired"+.@c) < 30) enablenpc "Tire"+.@c+"#4";
- } else if (getd(".@line_"+.@c)) <= 60 {
- setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c);
+ enablenpc "Tire"+.@c+"#2";
+ enablenpc "Tire"+.@c+"#3";
+ if (.@tired < 30)
+ enablenpc "Tire"+.@c+"#4";
+ } else if (.@line <= 60) {
+ .@tired = rand(10,30);
for (.@i = 1; .@i <= 3; ++.@i)
enablenpc "Luk"+.@c+"#"+.@i;
- set getd(".@tired"+.@c),rand(10,30);
- setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
- for (.@i = 1; .@i <= 4; ++.@i)
+ for (.@i = 2; .@i <= 4; ++.@i)
enablenpc "Tire"+.@c+"#"+.@i;
- if (getd(".@tired"+.@c) < 20) enablenpc "Tire"+.@c+"#5";
- } else if (getd(".@line_"+.@c) <= 70) {
- setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c);
+ if (.@tired < 20)
+ enablenpc "Tire"+.@c+"#5";
+ } else if (.@line <= 70) {
+ .@tired = rand(0,20);
for (.@i = 1; .@i <= 4; ++.@i)
enablenpc "Luk"+.@c+"#"+.@i;
- set getd(".@tired"+.@c),rand(0,20);
- setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
- for (.@i = 1; .@i <= 5; ++.@i)
+ for (.@i = 2; .@i <= 5; ++.@i)
enablenpc "Tire"+.@c+"#"+.@i;
- if (getd(".@tired"+.@c) < 10) enablenpc "Tire"+.@c+"#6";
+ if (.@tired < 10)
+ enablenpc "Tire"+.@c+"#6";
}
- ++.@c;
+ $@mr_1_luk[.@c] = .@line;
+ $@mr_1_tire[.@c] = .@tired;
}
end;
-OnDisable:
- disablenpc "Race Progress Timer";
- stopnpctimer;
- end;
-
OnTimer1000:
enablenpc "Ticket Helper#single";
end;
@@ -170,14 +152,14 @@ OnTimer243000:
OnTimer300000:
mapannounce "p_track01","The Monster Race has already begun. Good luck to all the participants.",bc_map,"0xffb6c1";
- $@mon_time_1_1 = 0;
$@monster_race = 0;
disablenpc "Ticket Helper#single";
for (.@i = 1; .@i <= 6; ++.@i)
- donpcevent "Runner No. "+.@i+"::OnEnable";
+ donpcevent "Runner No. "+.@i+"#"+ .@i +"::OnEnable";
stopnpctimer;
end;
-
+
+OnDisable:
OnInit:
disablenpc "Race Progress Timer";
end;
@@ -192,7 +174,7 @@ p_track01,73,22,1 script Ticket Helper#single 4_M_HUMAN_02,{
mes "then please select 1 out of";
mes "the 6 monsters from the list.";
next;
- if (!checkweight(908,200)) {
+ if (!checkweight(Spawn,200)) {
mes "[Ticket Helper]";
mes "Wait, wait...";
mes "I can't give you";
@@ -201,12 +183,10 @@ p_track01,73,22,1 script Ticket Helper#single 4_M_HUMAN_02,{
mes "too many things...";
close;
}
- for (.@i = 1; .@i <= 6; ++.@i)
- .@m$ += "Monster "+.@i+":";
- .@m = select ("Monster Status:"+.@m$) - 1;
- if (!.@m) {
+ .@m = select ("Monster Status", "Monster 1", "Monster 2", "Monster 3", "Monster 4", "Monster 5", "Monster 6") - 1;
+ if (.@m == 0) {
for (.@i = 1; .@i <= 6; ++.@i)
- mes "Monster "+.@i+" [^CC6600Luck^000000: " + getd("$@mr_1_luk"+.@i) + "] [^EE0000HP^000000: " + getd("$@mr_1_tire"+.@i) + "]";
+ mes "Monster "+.@i+" [^CC6600Luck^000000: " + $@mr_1_luk[.@i] + "] [^EE0000HP^000000: " + $@mr_1_tire[.@i] + "]";
close;
} else {
if ($@mon_time_1_1 == 1) {
@@ -242,14 +222,17 @@ OnInit:
end;
}
-- script Runner#main -1,{
- function WN;
+- script Runner_main -1,{
+ function F_Num;
+ function F_Ord;
+ end;
+
OnEnable:
emotion e_gasp;
enablenpc strnpcinfo(0);
getmapxy(.@m$,.@x,.@y,1);
- setarray .@mob[1], 1725,1726,1727,1728,1730,1729;
- monster "p_track01",58,.@y,"The "+WN(1)+" Racer",.@mob[WN(0)],1,strnpcinfo(0)+"::OnMyMobDead";
+ setarray .@mob[1], R_PORING,R_LUNATIC,R_SAVAGE_BABE,R_DESERT_WOLF_B,R_DEVIRUCHI,R_BAPHOMET_;
+ monster "p_track01",58,.@y,"The "+ F_Ord() +" Racer", .@mob[F_Num()],1,strnpcinfo(0)+"::OnMyMobDead";
end;
OnDisable:
@@ -258,58 +241,55 @@ OnDisable:
end;
OnTouchNPC:
- initnpctimer;
- .@n = WN(0);
+ .@n = F_Num();
$@monster_race = .@n;
for (.@i = 1; .@i <= 6; ++.@i) {
if (.@n == .@i) continue;
- donpcevent "Runner No. "+.@i+"::OnDisable";
+ donpcevent "Runner No. "+.@i+"#"+.@i+"::OnDisable";
}
- end;
-
-OnTimer1000:
+ sleep 1000;
mapannounce "p_track01","We have a winner...!",bc_map,"0x33FF66";
- end;
-
-OnTimer2000:
- mapannounce "p_track01","Monster "+WN(0)+" is the winner of this race!",bc_map,"0x33FF66";
- end;
-
-OnTimer6000:
- mapannounce "p_track01","If you wagered on Monster "+WN(0)+" in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
- end;
-
-OnTimer8000:
+ sleep 1000;
+ mapannounce "p_track01","Monster "+.@n+" is the winner of this race!",bc_map,"0x33FF66";
+ sleep 4000;
+ mapannounce "p_track01","If you wagered on Monster "+.@n+" in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
+ sleep 2000;
mapannounce "p_track01","Please remember that we can distribute Prize Medals for only 5 minutes after each race.",bc_map,"0x33FF66";
- end;
-
-OnTimer9000:
+ sleep 1000;
donpcevent "Medal Distributor#single::OnEnable";
donpcevent strnpcinfo(0)+"::OnDisable";
killmonster "p_track01",strnpcinfo(0)+"::OnMyMobDead";
- stopnpctimer;
end;
-
- function WN {
- .@n = charat(strnpcinfo(0),getstrlen(strnpcinfo(0))-1);
- if (!getarg(0)) return .@n;
- return ((.@n <= 3)?((.@n == 1)?"1st":((.@n == 2)?"2nd":"3rd")):.@n+"th");
+
+ function F_Num {
+ return atoi(strnpcinfo(2));
+ }
+
+ function F_Ord {
+ .@n = F_Num();
+ if (.@n == 1)
+ return "1st";
+ if (.@n == 2)
+ return "2nd";
+ if (.@n == 3)
+ return "3rd";
+ return .@n + "th";
}
-
+
OnInit:
- if (compare(strnpcinfo(0),"main")) end;
- disablenpc strnpcinfo(0);
+ if (strnpcinfo(2) != "" )
+ disablenpc strnpcinfo(0);
end;
}
-p_track01,30,38,0 duplicate(Runner#main) Runner No. 1 -1,1,0
-p_track01,30,36,0 duplicate(Runner#main) Runner No. 2 -1,1,0
-p_track01,30,34,0 duplicate(Runner#main) Runner No. 3 -1,1,0
-p_track01,30,32,0 duplicate(Runner#main) Runner No. 4 -1,1,0
-p_track01,30,30,0 duplicate(Runner#main) Runner No. 5 -1,1,0
-p_track01,30,28,0 duplicate(Runner#main) Runner No. 6 -1,1,0
+p_track01,30,38,0 duplicate(Runner_main) Runner No. 1#1 -1,1,0
+p_track01,30,36,0 duplicate(Runner_main) Runner No. 2#2 -1,1,0
+p_track01,30,34,0 duplicate(Runner_main) Runner No. 3#3 -1,1,0
+p_track01,30,32,0 duplicate(Runner_main) Runner No. 4#4 -1,1,0
+p_track01,30,30,0 duplicate(Runner_main) Runner No. 5#5 -1,1,0
+p_track01,30,28,0 duplicate(Runner_main) Runner No. 6#6 -1,1,0
p_track01,67,45,5 script Medal Distributor#single 4_F_RACING,{
- if (!checkweight(908,200)) {
+ if (!checkweight(Spawn,200)) {
mes "[Medal Distributor]";
mes "I'm sorry, but I can't";
mes "reward you with any medals";
@@ -317,8 +297,7 @@ p_track01,67,45,5 script Medal Distributor#single 4_F_RACING,{
mes "available in your Inventory.";
close;
}
- .@insa = rand(1,1000);
- if (countitem(7514)) {
+ if (countitem(Monster_Ticket)) { // 7514
mes "[Medal Distributor]";
mes "Hello there~";
mes "If you've wagered on the";
@@ -360,6 +339,7 @@ p_track01,67,45,5 script Medal Distributor#single 4_F_RACING,{
next;
input .@input$;
if (.@input$ == strcharinfo(0)) {
+ .@insa = rand(1,1000);
mes "[Medal Distributor]";
mes "Ah, "+strcharinfo(0)+".";
mes "You can exchange this";
@@ -435,8 +415,8 @@ p_track01,67,45,5 script Medal Distributor#single 4_F_RACING,{
close;
OnEnable:
- emotion e_gasp;
enablenpc "Medal Distributor#single";
+ emotion e_gasp;
initnpctimer;
end;
@@ -479,36 +459,25 @@ OnTimer249000:
OnTimer252000:
mapannounce "p_track01","We hope that you enjoyed the Monster Race arena. Come back again soon~",bc_map,"0xFFFF00";
for (.@i = 1; .@i <= 6; ++.@i) {
- donpcevent "starting#"+.@i+"::OnDisable";
- setd "$@mr_1_luk"+.@i,0;
- setd "$@mr_1_tire"+.@i,0;
- }
- .@c = 1;
- while (.@c <= 6) {
- for (.@i = 1; .@i <= 6; ++.@i) {
- disablenpc "Tire"+.@c+"#"+.@i;
- disablenpc "Luk"+.@c+"#"+.@i;
+ for (.@j = 2; .@j <= 6; ++.@j) {
+ disablenpc "Tire"+.@j+"#"+.@i;
+ disablenpc "Luk"+.@j+"#"+.@i;
}
- ++.@c;
+ enablenpc "Luk1#"+.@i;
+ enablenpc "Tire1#"+.@i;
+ $@mr_1_luk[.@i] = 0;
+ $@mr_1_tire[.@i] = 0;
}
end;
OnTimer300000:
donpcevent "#race_timer1-1::OnEnable";
- $@mon_time_1_1 = 2;
$@monster_race = 0;
mapwarp "p_track01","hugel",63,73;
end;
-OnTimer306000:
- donpcevent "Race Progress Timer::OnEnable";
- end;
-
OnTimer342000:
- disablenpc "Medal Distributor#single";
stopnpctimer;
- end;
-
OnInit:
disablenpc "Medal Distributor#single";
end;
@@ -626,7 +595,7 @@ hugel,58,72,6 script Eckar Ellebird#single 4_M_NFMAN,{
mes "in the Monster Race Arena~";
close;
}
- if (!checkweight(908,700)) {
+ if (!checkweight(Spawn,700)) {
mes "[Eckar Ellebird]";
mes "Oh, wow. You're carrying";
mes "an awful lot of stuff... Yeah,";
@@ -642,7 +611,7 @@ hugel,58,72,6 script Eckar Ellebird#single 4_M_NFMAN,{
mes "2,000 zeny entrance fee. ";
close;
}
- if (countitem(7514)) {
+ if (countitem(Monster_Ticket)) {
mes "[Eckar Ellebird]";
mes "Hm? What are you doing";
mes "with an expired Racing Ticket?";
@@ -651,6 +620,14 @@ hugel,58,72,6 script Eckar Ellebird#single 4_M_NFMAN,{
delitem 7514,1; //Monster_Ticket
next;
if ($@mon_time_1_1 == 1) {
+ if (Zeny < 2000) {
+ mes "[Eckar Ellebird]";
+ mes "I'm sorry, but you";
+ mes "don't have enough";
+ mes "money to pay the";
+ mes "2,000 zeny entrance fee. ";
+ close;
+ }
mes "[Eckar Ellebird]";
mes "Alright, I think you";
mes "should be all set. I hope";
@@ -662,38 +639,37 @@ hugel,58,72,6 script Eckar Ellebird#single 4_M_NFMAN,{
close2;
warp "p_track01",75,41;
end;
- } else if ($@mon_time_1_1 == 2) {
- mes "[Eckar Ellebird]";
- mes "We're still finishing our";
- mes "preparations for the next";
- mes "Single Monster Race, so";
- mes "we ask that you please";
- mes "wait a little while longer.";
- close;
}
- } else {
- if ($@mon_time_1_1 == 1) {
+ } else if ($@mon_time_1_1 == 1) {
+ if (Zeny < 2000) {
mes "[Eckar Ellebird]";
- mes "Thanks, I hope that";
- mes "you enjoy this race.";
- mes "Let me guide you now";
- mes "to the Monster Race Arena.";
- Zeny -= 2000;
- monster_race_1 = 0;
- close2;
- warp "p_track01",75,41;
- end;
- } else if ($@mon_time_1_1 == 2) {
- mes "[Eckar Ellebird]";
- mes "We're still finishing our";
- mes "preparations for the next";
- mes "Single Monster Race, so";
- mes "we ask that you please";
- mes "wait a little while longer...";
+ mes "I'm sorry, but you";
+ mes "don't have enough";
+ mes "money to pay the";
+ mes "2,000 zeny entrance fee. ";
close;
}
+ mes "[Eckar Ellebird]";
+ mes "Thanks, I hope that";
+ mes "you enjoy this race.";
+ mes "Let me guide you now";
+ mes "to the Monster Race Arena.";
+ Zeny -= 2000;
+ monster_race_1 = 0;
+ close2;
+ warp "p_track01",75,41;
+ end;
+ }
+ if ($@mon_time_1_1 == 2) {
+ mes "[Eckar Ellebird]";
+ mes "We're still finishing our";
+ mes "preparations for the next";
+ mes "Single Monster Race, so";
+ mes "we ask that you please";
+ mes "wait a little while longer...";
+ close;
}
- if (!.@monster_race) {
+ if (!$@monster_race) {
mes "[Eckar Ellebird]";
mes "Right now, a Monster Race";
mes "is in progress. It's too late to place a wager, but if you'd like";
@@ -842,15 +818,6 @@ p_track01,39,49,3 script Game Guide#single 4_F_RACING,{
}
- script starting_1 -1,{
-OnDisable:
- for(.@i = 1; .@i<7; ++.@i)
- enablenpc "Luk1#"+.@i;
- for(.@i = 1; .@i<7; ++.@i)
- enablenpc "Tire1#"+.@i;
- setd "$@mr_1_luk"+strnpcinfo(2),0;
- setd "$@mr_1_tire"+strnpcinfo(2),0;
- end;
-
OnTouchNPC:
.@start = rand(1,100);
if (.@start < 11) .@speed = 60;
@@ -865,11 +832,10 @@ OnTouchNPC:
else .@speed = 150;
sc_start SC_WALKSPEED,5000,.@speed;
end;
-
+
OnInit:
disablenpc strnpcinfo(0);
end;
-
}
- script Luk_1 -1,{
@@ -882,7 +848,7 @@ OnTouchNPC:
else .@speed = 150;
sc_start SC_WALKSPEED,10000,.@speed;
end;
-
+
OnInit:
disablenpc strnpcinfo(0);
end;
@@ -897,7 +863,7 @@ OnTouchNPC:
else if (.@start < 91) .@time = 4000;
if (.@time) sc_start SC_STUN,.@time,0;
end;
-
+
OnInit:
disablenpc strnpcinfo(0);
end;
@@ -912,7 +878,7 @@ OnTouchNPC:
else if (.@start < 91) .@time = 4000;
if (.@time) sc_start SC_SLEEP,.@time,0;
end;
-
+
OnInit:
disablenpc strnpcinfo(0);
end;
@@ -1005,15 +971,11 @@ p_track01,47,28,0 duplicate(Tire_1) Tire6#6 -1,0,0
hugel,47,56,0 script #race_timer2-1 -1,{
OnEnable:
enablenpc "#race_timer2-1";
+OnInit:
$@mon_time_2_1 = 2;
initnpctimer;
end;
-OnDisable:
- disablenpc "#race_timer2-1";
- stopnpctimer;
- end;
-
OnTimer10000:
mapannounce "hugel","The Dual Monster Race will soon begin. We hope to see many of you participate!",bc_map,"0xffb6c1";
end;
@@ -1022,8 +984,8 @@ OnTimer30000:
mapannounce "hugel","The Dual Monster Race Arena has just opened.",bc_map,"0xffb6c1";
$@mon_time_2_1 = 1;
donpcevent "#race_timer2-2::OnEnable";
- enablenpc "Ticket Helper#2";
donpcevent "TrapGlobal#race02::OnEnable";
+ enablenpc "Ticket Helper#2";
end;
OnTimer90000:
@@ -1045,15 +1007,9 @@ OnTimer272000:
OnTimer330000:
mapannounce "hugel","The race is now starting. If you missed your chance to enter this race, please try again next time~!",bc_map,"0xffb6c1";
$@mon_time_2_1 = 0;
- donpcevent "#race_timer2-1::OnDisable";
+ disablenpc "#race_timer2-1";
stopnpctimer;
end;
-
-OnInit:
- enablenpc "#race_timer2-1";
- $@mon_time_2_1 = 2;
- initnpctimer;
- end;
}
p_track02,42,23,0 script #race_timer2-2 -1,{
@@ -1063,11 +1019,6 @@ OnEnable:
initnpctimer;
end;
-OnDisable:
- disablenpc "#race_timer2-2";
- stopnpctimer;
- end;
-
OnTimer5000:
mapannounce "p_track02","Welcome to the Monster Race Arena.",bc_map,"0x87ceeb";
end;
@@ -1095,8 +1046,6 @@ OnTimer242000:
OnTimer300000:
mapannounce "p_track02","The Monster Race is starting now. Good luck, everybody!",bc_map,"0x87ceeb";
$@mon_time_2_2 = 1;
- $@mon_race_2_1 = 0;
- $@mon_race_2_2 = 0;
disablenpc "Ticket Helper#2";
donpcevent "#poring1::OnEnable";
donpcevent "#lunatic1::OnEnable";
@@ -1105,8 +1054,9 @@ OnTimer300000:
donpcevent "#deviruchi1::OnEnable";
donpcevent "#baphomet1::OnEnable";
stopnpctimer;
+ disablenpc "#race_timer2-2";
end;
-
+
OnInit:
disablenpc "#race_timer2-2";
$@mon_time_2_2 = 0;
@@ -1114,20 +1064,11 @@ OnInit:
}
p_track02,80,43,0 script #race_timer2-3 -1,{
-OnInit:
- disablenpc "#race_timer2-3";
- end;
-
OnEnable:
enablenpc "#race_timer2-3";
initnpctimer;
end;
-OnDisable:
- disablenpc "#race_timer2-3";
- stopnpctimer;
- end;
-
OnTimer3000:
mapannounce "p_track02","The Monster Race is finished! Congratulations to all the winners!",bc_map,"0xFFFF00";
end;
@@ -1172,10 +1113,11 @@ OnTimer300000:
mapwarp "p_track02","hugel",63,73;
disablenpc "Medal Distributor#medal";
donpcevent "#race_timer2-1::OnEnable";
+ stopnpctimer;
+OnInit:
$@mon_race_2_1 = 0;
$@mon_race_2_2 = 0;
- donpcevent "#race_timer2-3::OnDisable";
- stopnpctimer;
+ disablenpc "#race_timer2-3";
end;
}
@@ -1248,7 +1190,7 @@ hugel,62,69,1 script Eckar Erenes#double 4_M_NFMAN,{
mes "in the Monster Race Arena~";
close;
}
- if (!checkweight(909,700)) {
+ if (!checkweight(Jellopy,700)) {
mes "[Eckar Erenes]";
mes "Hmm... You're toting";
mes "too many things with you";
@@ -1320,7 +1262,7 @@ hugel,62,69,1 script Eckar Erenes#double 4_M_NFMAN,{
close;
}
}
- if (!$@mon_time_2_1 || !$@mon_time_2_2) {
+ if (!$@mon_time_2_2) {
mes "[Eckar Erenes]";
mes "Right now, a Monster Race";
mes "is in progress. It's too late to place a wager, but if you'd like";
@@ -1372,7 +1314,7 @@ OnDisable:
}
p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{
- if (!checkweight(908,200)) {
+ if (!checkweight(Spawn,200)) {
mes "[Ticket Helper]";
mes "Welcome to the";
mes "Monster Race Arena.";
@@ -1401,7 +1343,7 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{
switch(select("Check Monster Status:Wager on Race:Monster Race?:Cancel")) {
case 1:
for (.@i = 1; .@i <= 6; ++.@i)
- mes "Monster "+.@i+" [^CC6600Luck^000000: " + getd("$@mon_r02_Luk"+.@i) + "] [^EE0000HP^000000: " + getd("$@mon_r02_tire"+.@i) + "]";
+ mes "Monster "+.@i+" [^CC6600Luck^000000: " + $@mon_r02_luk[.@i] + "] [^EE0000HP^000000: " + $@mon_r02_tire[.@i] + "]";
close;
case 2:
mes "[Ticket Helper]";
@@ -1418,25 +1360,26 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{
mes "of the monsters that";
mes "will win this race.";
next;
- while (1) {
- .@m$ = "";
+ while (true) {
+ .@list$ = "";
for (.@i = 1; .@i <= 6; ++.@i)
- .@m$ += ((.@i != .@m1)?"Monster "+.@i:"")+":";
- .@m = select (.@m$);
+ .@list$ += (.@i != .@m1 ? "Monster " + .@i:"") + ":";
+ .@m = select (.@list$);
switch (.@m) {
- case 1: setarray .@w$, "a friendly","Poring type monster"; break;
- case 2: setarray .@w$, "an adorable","Lunatic type monster"; break;
- case 3: setarray .@w$, "a darling","Savage Babe monster"; break;
- case 4: setarray .@w$, "a gentle baby","Desert Wolf monster"; break;
- case 5: setarray .@w$, "a small, yet","demonic, Deviruchi"; break;
- case 6: setarray .@w$, "a naughty","Baphomet Jr. monster"; break;
+ case 1: setarray .@string$, "a friendly","Poring type monster"; break;
+ case 2: setarray .@string$, "an adorable","Lunatic type monster"; break;
+ case 3: setarray .@string$, "a darling","Savage Babe monster"; break;
+ case 4: setarray .@string$, "a gentle baby","Desert Wolf monster"; break;
+ case 5: setarray .@string$, "a small, yet","demonic, Deviruchi"; break;
+ case 6: setarray .@string$, "a naughty","Baphomet Jr. monster"; break;
}
mes "[Ticket Helper]";
mes "You've chosen";
- mes "^0000FFMonster "+.@m+"^000000, "+.@w$[0];
- mes .@w$[1]+".";
+ mes "^0000FFMonster "+.@m+"^000000, "+.@string$[0];
+ mes .@string$[1]+".";
mes "Are you sure you want";
mes "to choose this monster?";
+ next;
if (select("Yes:No") == 2) {
mes "[Ticket Helper]";
mes "You have canceled";
@@ -1446,7 +1389,6 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{
mes "checking the monsters first?";
close;
}
- next;
if (!.@m1) {
mes "[Ticket Helper]";
mes "Now, please make";
@@ -1456,28 +1398,27 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{
mes "1st or 2nd in this race.";
next;
.@m1 = .@m;
- } else {
- if (!$@mon_time_2_2) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster "+.@m1+"^000000 and ^0000FFMonster "+.@m+"^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- monster_race_2_1 = .@m1;
- monster_race_2_2 = .@m;
- getitem 7514,1; //Monster_Ticket
- close;
- } else {
- mes "[Ticket Helper]";
- mes "I'm very sorry, but a";
- mes "monster race is underway.";
- mes "Please wait, and then place";
- mes "your wager for the next race.";
- close;
- }
+ continue;
+ }
+ if ($@mon_time_2_2 != 0) {
+ mes "[Ticket Helper]";
+ mes "I'm very sorry, but a";
+ mes "monster race is underway.";
+ mes "Please wait, and then place";
+ mes "your wager for the next race.";
+ close;
}
+ mes "[Ticket Helper]";
+ mes "You've wagered on";
+ mes "^0000FFMonster "+.@m1+"^000000 and ^0000FFMonster "+.@m+"^000000";
+ mes "to win this race. Good luck!";
+ mes "I really hope that the odds";
+ mes "work out in your favor~";
+ emotion e_kis;
+ monster_race_2_1 = .@m1;
+ monster_race_2_2 = .@m;
+ getitem Monster_Ticket,1;
+ close;
}
case 3:
mes "[Ticket Helper]";
@@ -1535,7 +1476,7 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{
close;
}
} else {
- if (countitem(7514)) {
+ if (countitem(Monster_Ticket)) {
mes "[Ticket Helper]";
mes "You've wagered on";
mes "^0000FFMonster " + monster_race_2_1 + "^000000 and ^0000FFMonster " + monster_race_2_2 + "^000000";
@@ -1657,7 +1598,7 @@ p_track02,39,49,3 script Game Guide#double 4_F_RACING,{
}
p_track02,67,45,5 script Medal Distributor#medal 4_F_RACING,{
- if (!checkweight(909,20)) {
+ if (!checkweight(Jellopy,20)) {
mes "[Medal Distributor]";
mes "I'm sorry, but I can't";
mes "reward you with any medals";
@@ -1743,7 +1684,7 @@ p_track02,67,45,5 script Medal Distributor#medal 4_F_RACING,{
mes "you get lucky next time~";
close;
}
-
+
OnInit:
disablenpc "Medal Distributor#medal";
end;
@@ -1798,30 +1739,25 @@ p_track02,76,38,1 script Exit Guide#double 4_M_NFMAN,{
function MN;
OnEnable:
enablenpc strnpcinfo(0);
- setarray .@n[1], 1725,1726,1727,1728,1730,1729;
+ setarray .@mob[1], R_PORING,R_LUNATIC,R_SAVAGE_BABE,R_DESERT_WOLF_B,R_DEVIRUCHI,R_BAPHOMET_;
getmapxy(.@m$,.@x,.@y,1);
- .@i = MN;
- monster "p_track02",58,.@y,"Monster "+.@i,.@n[.@i],1,strnpcinfo(0)+"::OnMyMobDead";
- end;
-
-OnDisable:
- killmonster "p_track02",strnpcinfo(0)+"::OnMyMobDead";
- disablenpc strnpcinfo(0);
+ .@num = MN();
+ monster "p_track02",58,.@y,"Monster "+.@num,.@mob[.@num],1,strnpcinfo(0)+"::OnMyMobDead";
end;
OnTouchNPC:
- .@i = MN;
+ .@i = MN();
if (!$@mon_race_2_1) {
emotion e_lv;
specialeffect EF_MVP;
mapannounce "p_track02","Monster "+.@i+" has reached the Finish Line!",bc_map,"0x66FFCC";
- $@mon_race_2_1 = 1;
+ $@mon_race_2_1 = .@i;
donpcevent strnpcinfo(0)+"::OnDisable";
} else {
emotion e_lv;
specialeffect EF_MVP;
mapannounce "p_track02","The race is over! Monster "+.@i+" has reached the Finish Line!",bc_map,"0x66FFCC";
- $@mon_race_2_2 = 1;
+ $@mon_race_2_2 = .@i;
donpcevent "#poring1::OnDisable";
donpcevent "#lunatic1::OnDisable";
donpcevent "#savagebebe1::OnDisable";
@@ -1836,7 +1772,17 @@ OnTouchNPC:
OnMyMobDead:
end;
-
+
+OnDisable:
+ killmonster "p_track02",strnpcinfo(0)+"::OnMyMobDead";
+ disablenpc strnpcinfo(0);
+ end;
+
+OnInit:
+ if (strnpcinfo(2) != "main")
+ disablenpc strnpcinfo(0);
+ end;
+
function MN {
setarray .@n$[1], "poring","lunatic","savagebebe","desertwolf","deviruchi","baphomet";
for (.@i = 1; .@i <= getarraysize(.@n$); ++.@i) {
@@ -1846,10 +1792,6 @@ OnMyMobDead:
return .@i;
}
-OnInit:
- if (compare(strnpcinfo(0),"main")) end;
- disablenpc strnpcinfo(0);
- end;
}
p_track02,30,38,0 duplicate(mob1#main) #poring1 HIDDEN_WARP_NPC,0,0
p_track02,30,36,0 duplicate(mob1#main) #lunatic1 HIDDEN_WARP_NPC,0,0
@@ -1861,62 +1803,52 @@ p_track02,30,28,0 duplicate(mob1#main) #baphomet1 HIDDEN_WARP_NPC,0,0
p_track02,19,48,0 script TrapGlobal#race02 -1,{
OnEnable:
enablenpc "TrapGlobal#race02";
- for (.@i = 1; .@i <= 6; ++.@i)
- enablenpc "starting#race02_"+.@i;
- .@c = 1;
- while (.@c <= 6) {
- setd ".@line_"+.@c,rand(1,70);
- if (getd(".@line_"+.@c) <= 10) {
- setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c);
+ for (.@c = 1; .@c <= 6; ++.@c) {
+ .@line = rand(1,70);
+ enablenpc "starting#race02_"+.@c;
+ enablenpc "Tire#race02_"+.@c+"_1";
+ if (.@line <= 10) {
+ .@tired = rand(50,60);
enablenpc "Luk#race02_"+.@c+"_5";
enablenpc "Luk#race02_"+.@c+"_6";
- setd ".@tired_"+.@c,rand(50,60);
- setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
- enablenpc "Tire#race02_"+.@c+"_1";
- } else if (getd(".@line_"+.@c) <= 30) {
- setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c);
+ } else if (.@line <= 30) {
+ .@tired = rand(40,60);
enablenpc "Luk#race02_"+.@c+"_5";
- setd ".@tired_"+.@c,rand(40,60);
- setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
- enablenpc "Tire#race02_"+.@c+"_1";
- if (getd(".@tired_"+.@c) < 50) enablenpc "Tire#race02_"+.@c+"_2";
- } else if (getd(".@line_"+.@c) <= 40) {
- setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c);
+ if (.@tired < 50)
+ enablenpc "Tire#race02_"+.@c+"_2";
+ } else if (.@line <= 40) {
+ .@tired = rand(30,50);
enablenpc "Luk#race02_"+.@c+"_1";
- setd ".@tired_"+.@c,rand(30,50);
- setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
- enablenpc "Tire#race02_"+.@c+"_1";
enablenpc "Tire#race02_"+.@c+"_2";
- if (getd(".@tired_"+.@c) < 40) enablenpc "Tire#race02_"+.@c+"_3";
- } else if (getd(".@line_"+.@c) <= 50) {
- setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c);
+ if (.@tired < 40)
+ enablenpc "Tire#race02_"+.@c+"_3";
+ } else if (.@line <= 50) {
+ .@tired = rand(20,40);
enablenpc "Luk#race02_"+.@c+"_1";
enablenpc "Luk#race02_"+.@c+"_2";
- setd ".@tired_"+.@c,rand(20,40);
- setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
- for (.@i = 1; .@i <= 3; ++.@i)
- enablenpc "Tire#race02_"+.@c+"_"+.@i;
- if (getd(".@tired_"+.@c) < 30) enablenpc "Tire#race02_"+.@c+"_4";
- } else if (getd(".@line_"+.@c) <= 60) {
- setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c);
+ enablenpc "Tire#race02_"+.@c+"_2";
+ enablenpc "Tire#race02_"+.@c+"_3";
+ if (.@tired < 30)
+ enablenpc "Tire#race02_"+.@c+"_4";
+ } else if (.@line <= 60) {
+ .@tired = rand(10,30);
for (.@i = 1; .@i <= 3; ++.@i)
enablenpc "Luk#race02_"+.@c+"_"+.@i;
- setd ".@tired_"+.@c,rand(10,30);
- setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
- for (.@i = 1; .@i <= 4; ++.@i)
+ for (.@i = 2; .@i <= 4; ++.@i)
enablenpc "Tire#race02_"+.@c+"_"+.@i;
- if (getd(".@tired_"+.@c) < 20) enablenpc "Tire#race02_"+.@c+"_5";
- } else if (getd(".@line_"+.@c) <= 70) {
- setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c);
+ if (.@tired < 20)
+ enablenpc "Tire#race02_"+.@c+"_5";
+ } else if (.@line <= 70) {
+ .@tired = rand(0,20);
for (.@i = 1; .@i <= 4; ++.@i)
enablenpc "Luk#race02_"+.@c+"_"+.@i;
- setd ".@tired_"+.@c,rand(0,20);
- setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
- for (.@i = 1; .@i <= 5; ++.@i)
+ for (.@i = 2; .@i <= 5; ++.@i)
enablenpc "Tire#race02_"+.@c+"_"+.@i;
- if (getd(".@tired_"+.@c) < 10) enablenpc "Tire#race02_"+.@c+"_6";
+ if (.@tired < 10)
+ enablenpc "Tire#race02_"+.@c+"_6";
}
- ++.@c;
+ $@mon_r02_luk[.@c] = .@line;
+ $@mon_r02_tire[.@c] = .@tired;
}
end;
@@ -1925,24 +1857,16 @@ OnDisable:
for (.@i = 1; .@i <= 6; ++.@i)
donpcevent "starting#race02_"+.@i+"::OnDisable";
end;
-
+
OnInit:
for (.@i = 1; .@i <= 6; ++.@i) {
- setd "$@mon_r02_luk"+.@i,0;
- setd "$@mon_r02_tire"+.@i,0;
+ $@mon_r02_luk[.@i] = 0;
+ $@mon_r02_tire[.@i] = 0;
}
end;
}
- script starting_2 -1,{
-OnDisable:
- disablenpc strnpcinfo(0);
- for(.@i = 1; .@i<7; ++.@i)
- disablenpc "Luk#"+strnpcinfo(2)+"_"+.@i;
- for(.@i = 1; .@i<7; ++.@i)
- disablenpc "Tire#"+strnpcinfo(2)+"_"+.@i;
- end;
-
OnTouchNPC:
.@start = rand(1,100);
if (.@start < 11) .@speed = 60;
@@ -1957,7 +1881,15 @@ OnTouchNPC:
else .@speed = 150;
sc_start SC_WALKSPEED,5000,.@speed;
end;
-
+
+OnDisable:
+ for(.@i = 1; .@i < 7; ++.@i) {
+ disablenpc "Luk#"+strnpcinfo(2)+"_"+.@i;
+ disablenpc "Tire#"+strnpcinfo(2)+"_"+.@i;
+ }
+ disablenpc strnpcinfo(0);
+ end;
+
OnInit:
disablenpc strnpcinfo(0);
end;
@@ -2081,7 +2013,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{
mes "but so far, none of us have";
mes "been able to get any medals...";
next;
- if (countitem(7515)) {
+ if (countitem(Marvelous_Medal)) {
mes "["+ strcharinfo(0) +"]";
mes "Oh! Are you talking";
mes "about the medals that";
@@ -2117,7 +2049,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{
mes "research. Still, I need more";
mes "and more of them everyday...";
next;
- if (countitem(7515)) {
+ if (countitem(Marvelous_Medal)) {
mes "[Ei'felle]";
mes "The other Blacksmith";
mes "Guildsmen are doing their";
@@ -2138,7 +2070,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{
mes "you for your kindness...";
close;
}
- if (!checkweight(1201,1)) {
+ if (!checkweight(Knife,1)) {
mes "[Ei'felle]";
mes "Goodness, you're carrying";
mes "so many things with you!";
@@ -2166,7 +2098,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{
mes "as my way of repaying you?";
next;
if (select("Accept:Wait for Further Development") == 1) {
- callsub S_BonusReward,500,2319;
+ callsub S_BonusReward,500,Glittering_Clothes;
end;
}
mes "[Ei'felle]";
@@ -2203,10 +2135,10 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{
mes "you like your armor to have?";
next;
switch(select("Fire Property:Earth Property:Wind Property:Water Property")) {
- case 1: callsub S_BonusReward,1000,2345; end;
- case 2: callsub S_BonusReward,1000,2351; end;
- case 3: callsub S_BonusReward,1000,2349; end;
- case 4: callsub S_BonusReward,1000,2347; end;
+ case 1: callsub S_BonusReward,1000,Flame_Sprits_Armor_; end;
+ case 2: callsub S_BonusReward,1000,Earth_Sprits_Armor_; end;
+ case 3: callsub S_BonusReward,1000,Wind_Sprits_Armor_; end;
+ case 4: callsub S_BonusReward,1000,Water_Sprits_Armor_; end;
}
case 2:
mes "[Ei'felle]";
@@ -2231,7 +2163,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{
break;
}
}
- if (countitem(7515)) {
+ if (countitem(Marvelous_Medal)) {
mes "[Ei'felle]";
mes "The other Blacksmith";
mes "Guildsmen are doing their";
@@ -2284,74 +2216,74 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{
case 6: close;
}
}
- setarray .@m$, "Dagger","One Handed Sword","Two Handed Sword","Axe","Mace","Bow","Staff","Book","Spear","Katar","Knuckle","Whip","Musical Instrument";
- .@m = select (implode(.@m$,":")) - 1;
+ setarray .@type$, "Dagger","One Handed Sword","Two Handed Sword","Axe","Mace","Bow","Staff","Book","Spear","Katar","Knuckle","Whip","Musical Instrument";
+ .@m = select(implode(.@type$,":")) - 1;
mes "[Ei'felle]";
mes "So you'd like to have a";
- mes .@m$[.@m]+"? Please choose";
+ mes .@type$[.@m]+"? Please choose";
mes "which Level 4 Weapon";
mes "that you want me to create.";
next;
switch (.@m) {
case 0:
- setarray .@mw$, "Ginnungagap:Grimtooth:Dragon Killer:Mail Breaker:Bazerald:Sword Breaker:Ice Pick:Sucsamad:Kitchen Knife:Azoth:Exorciser:Assassin Dagger:Moonlight Dagger:Weeder Knife:Cursed Dagger:Dagger of Counter:Combat Knife:Fortune Sword";
- setarray .@mw, 13002,1237,13001,1225,1231,1224,1230,1236,1229,1235,1233,1232,1234,1227,1241,1242,1228,1223;
+ .@weapon$ = "Ginnungagap:Grimtooth:Dragon Killer:Mail Breaker:Bazerald:Sword Breaker:Ice Pick:Sucsamad:Kitchen Knife:Azoth:Exorciser:Assassin Dagger:Moonlight Dagger:Weeder Knife:Cursed Dagger:Dagger of Counter:Combat Knife:Fortune Sword";
+ setarray .@weapon_id, 13002,1237,13001,1225,1231,1224,1230,1236,1229,1235,1233,1232,1234,1227,1241,1242,1228,1223;
break;
case 1:
- setarray .@mw$, "Nagan:Immaterial Sword:Mysteltainn:Byeollungum:Star Dust Blade:Caesar's Sword:Ice Falchion:Excalibur:Edge:Cutlus:Solar Sword:Tirfing:Fireblend";
- setarray .@mw, 1130,1141,1138,1140,1148,1134,1131,1137,1132,1135,1136,1139,1133;
+ .@weapon$ = "Nagan:Immaterial Sword:Mysteltainn:Byeollungum:Star Dust Blade:Caesar's Sword:Ice Falchion:Excalibur:Edge:Cutlus:Solar Sword:Tirfing:Fireblend";
+ setarray .@weapon_id, 1130,1141,1138,1140,1148,1134,1131,1137,1132,1135,1136,1139,1133;
break;
case 2:
- setarray .@mw$, "Dragon Slayer:Masamune:Muramasa:Schweizersabel:Executioner:Zweihander:Katzbalger";
- setarray .@mw, 1166,1165,1164,1167,1169,1168,1170;
+ .@weapon$ = "Dragon Slayer:Masamune:Muramasa:Schweizersabel:Executioner:Zweihander:Katzbalger";
+ setarray .@weapon_id, 1166,1165,1164,1167,1169,1168,1170;
break;
case 3:
- setarray .@mw$, "Great Axe:Guillotine:Light Epsilon:Bloody Axe:Sabbath:Slaughter:Cleaver:Tomahawk";
- setarray .@mw, 1364,1369,1366,1363,1365,1367,1305,1368;
+ .@weapon$ = "Great Axe:Guillotine:Light Epsilon:Bloody Axe:Sabbath:Slaughter:Cleaver:Tomahawk";
+ setarray .@weapon_id, 1364,1369,1366,1363,1365,1367,1305,1368;
break;
case 4:
- setarray .@mw$, "Golden Mace:Grand Cross:Long Mace:Spike:Slash:Quadrille";
- setarray .@mw, 1524,1528,1525,1523,1526,1527;
+ .@weapon$ = "Golden Mace:Grand Cross:Long Mace:Spike:Slash:Quadrille";
+ setarray .@weapon_id, 1524,1528,1525,1523,1526,1527;
break;
case 5:
- setarray .@mw$, "Roguemaster's Bow:Dragon Wing:Rudra's Bow:Ballista";
- setarray .@mw, 1719,1724,1720,1722;
+ .@weapon$ = "Roguemaster's Bow:Dragon Wing:Rudra's Bow:Ballista";
+ setarray .@weapon_id, 1719,1724,1720,1722;
break;
case 6:
- setarray .@mw$, "Wing Staff:Wizardry Staff";
- setarray .@mw, 1616,1473;
+ .@weapon$ = "Wing Staff:Wizardry Staff";
+ setarray .@weapon_id, 1616,1473;
case 7:
- setarray .@mw$, "Legacy of Dragon:Book of the Apocalypse:Girl's Diary:Hardcover Book";
- setarray .@mw, 1559,1557,1558,1561;
+ .@weapon$ = "Legacy of Dragon:Book of the Apocalypse:Girl's Diary:Hardcover Book";
+ setarray .@weapon_id, 1559,1557,1558,1561;
break;
case 8:
- setarray .@mw$, "Gae Bolg:Gelerdria:Gungnir:Skewer:Longinus's Spear:Brionac:Bill Guisarme:Zephyrus:Crescent Scythe:Tjungkuletti:Hellfire";
- setarray .@mw, 1474,1414,1413,1415,1469,1470,1467,1468,1466,1416,1471;
+ .@weapon$ = "Gae Bolg:Gelerdria:Gungnir:Skewer:Longinus's Spear:Brionac:Bill Guisarme:Zephyrus:Crescent Scythe:Tjungkuletti:Hellfire";
+ setarray .@weapon_id, 1474,1414,1413,1415,1469,1470,1467,1468,1466,1416,1471;
break;
case 9:
- setarray .@mw$, "Infiltrator:Bloody Roar:Unholy Touch";
- setarray .@mw, 1261,1265,1263;
+ .@weapon$ = "Infiltrator:Bloody Roar:Unholy Touch";
+ setarray .@weapon_id, 1261,1265,1263;
break;
case 10:
- setarray .@mw$, "Hatii Claw:Berserk:Kaiser Knuckle";
- setarray .@mw, 1815,1814,1813;
+ .@weapon$ = "Hatii Claw:Berserk:Kaiser Knuckle";
+ setarray .@weapon_id, 1815,1814,1813;
break;
case 11:
- setarray .@mw$, "Lariat:Rapture Rose:Blade Whip:Chemeti:Queen's Whip";
- setarray .@mw, 1962,1963,1969,1964,1970;
+ .@weapon$ = "Lariat:Rapture Rose:Blade Whip:Chemeti:Queen's Whip";
+ setarray .@weapon_id, 1962,1963,1969,1964,1970;
break;
case 12:
- setarray .@mw$, "Oriental Lute:Electric Guitar";
- setarray .@mw, 1918,1913;
+ .@weapon$ = "Oriental Lute:Electric Guitar";
+ setarray .@weapon_id, 1918,1913;
break;
}
- .@j = select (.@mw$+":Cancel") - 1;
- explode(.@mw$,.@mw$,":");
- if (.@j == getarraysize(.@mw$)) close;
- callsub S_BonusReward,1500,.@mw[.@j];
+ .@choice = select (.@weapon$+":Cancel") - 1;
+ if (.@choice == getarraysize(.@weapon_id))
+ close;
+ callsub S_BonusReward,1500,.@weapon_id[.@choice];
end;
}
-
+
S_Reward:
if (select("Sure:No") == 2) {
mes "[Ei'felle]";
@@ -2580,8 +2512,8 @@ S_Reward:
mes "advance my research,";
mes "and I promise to repay";
mes "you as soon as I can!";
- .@medals = countitem(7515);
- delitem 7515,.@medals; //Marvelous_Medal
+ .@medals = countitem(Marvelous_Medal);
+ delitem Marvelous_Medal,.@medals;
ein_medal01 += .@medals;
close;
case 2:
@@ -2592,7 +2524,7 @@ S_Reward:
mes "Please don't enter any";
mes "number greater than 100.";
next;
- while(1) {
+ while (true) {
input .@input;
if (!.@input) {
mes "[Ei'felle]";
@@ -2612,7 +2544,7 @@ S_Reward:
next;
} else break;
}
- if (countitem(7515) < .@input) {
+ if (countitem(Marvelous_Medal) < .@input) {
mes "[Ei'felle]";
mes "I'm sorry, but I don't";
mes "think you have that many";
@@ -2621,18 +2553,17 @@ S_Reward:
mes "medals that you actually have.";
emotion e_heh;
close;
- } else {
- mes "[Ei'felle]";
- mes "Th-thank you!";
- mes "Thank you so much!";
- mes "Your help will greatly";
- mes "advance my research,";
- mes "and I promise to repay";
- mes "you as soon as I can!";
- delitem 7515,.@input; //Marvelous_Medal
- ein_medal01 += .@input;
- close;
}
+ mes "[Ei'felle]";
+ mes "Th-thank you!";
+ mes "Thank you so much!";
+ mes "Your help will greatly";
+ mes "advance my research,";
+ mes "and I promise to repay";
+ mes "you as soon as I can!";
+ delitem Marvelous_Medal,.@input;
+ ein_medal01 += .@input;
+ close;
case 3:
mes "[Ei'felle]";
mes "Oh, alright...";
@@ -2661,25 +2592,26 @@ S_Reward:
S_BonusReward:
mes "[Ei'felle]";
- if (getarg(1) == 2319) {
+ .@arg1 = getarg(1);
+ if (.@arg1 == 2319) {
mes "Do you really want";
- mes "this "+getitemname(getarg(1))+"?";
+ mes "this "+getitemname(.@arg1)+"?";
mes "You may want to forego this";
mes "reward in favor of getting";
mes "something better later...";
- } else if ((getarg(1) == 2345) || (getarg(1) == 2347) || (getarg(1) == 2349) || (getarg(1) == 2351)) {
+ } else if (.@arg1 == 2345 || .@arg1 == 2347 || .@arg1 == 2349 || .@arg1 == 2351) {
mes "Are you sure that you want";
mes "to accept this set of slotted";
- if (getarg(1) == 2345) mes "Fire property Armor? If you do,";
- else if (getarg(1) == 2351) mes "Earth property Armor? If you do,";
- else if (getarg(1) == 2349) mes "Wind property Armor? If you do,";
- else if (getarg(1) == 2347) mes "Water property Armor? If you do,";
+ if (.@arg1 == 2345) mes "Fire property Armor? If you do,";
+ else if (.@arg1 == 2351) mes "Earth property Armor? If you do,";
+ else if (.@arg1 == 2349) mes "Wind property Armor? If you do,";
+ else if (.@arg1 == 2347) mes "Water property Armor? If you do,";
mes "I'll need more medals from you";
mes "to make further advancements";
mes "in my manufacturing research.";
} else {
mes "So you wish to have a";
- mes getitemname(getarg(1))+"? If you choose";
+ mes getitemname(.@arg1)+"? If you choose";
mes "to have this Level 4 Weapon,";
mes "I'll need to melt many of the";
mes "medals that you've donated";
@@ -2694,7 +2626,7 @@ S_BonusReward:
mes "me a reward later?";
next;
mes "[Ei'felle]";
- if (!getiteminfo(getarg(1),13)) { //use item level to determine if the item is armor (no weapon level)
+ if (!getiteminfo(.@arg1,13)) { //use item level to determine if the item is armor (no weapon level)
mes "Of course, of course.";
mes "Remember, if you donate";
mes "more medals to me, then";
@@ -2708,20 +2640,19 @@ S_BonusReward:
close;
}
mes "[Ei'felle]";
- if (getarg(1) == 2319) {
+ if (.@arg1 == 2319) {
mes "Here you are, I trust that";
- mes "this "+getitemname(getarg(1))+" will";
+ mes "this "+getitemname(.@arg1)+" will";
mes "serve you well. Thank you";
mes "for your help, and I hope that";
mes "you'll continue to donate your";
mes "medals for my metal research~";
- }
- else if ((getarg(1) == 2345) || (getarg(1) == 2347) || (getarg(1) == 2349) || (getarg(1) == 2351)) {
+ } else if (.@arg1 == 2345 || .@arg1 == 2347 || .@arg1 == 2349 || .@arg1 == 2351) {
mes "Great choice! I'm sure";
- if (getarg(1) == 2345) mes "that this set of slotted Fire";
- else if (getarg(1) == 2351) mes "that this set of slotted Earth";
- else if (getarg(1) == 2349) mes "that this set of slotted Wind";
- else if (getarg(1) == 2347) mes "that this set of slotted Water";
+ if (.@arg1 == 2345) mes "that this set of slotted Fire";
+ else if (.@arg1 == 2351) mes "that this set of slotted Earth";
+ else if (.@arg1 == 2349) mes "that this set of slotted Wind";
+ else if (.@arg1 == 2347) mes "that this set of slotted Water";
mes "property Armor will serve you";
mes "well. Thank you for your help,";
mes "and if you get more medals,";
@@ -2735,12 +2666,12 @@ S_BonusReward:
mes "appreciate your continued help~";
}
ein_medal01 -= getarg(0);
- getitem getarg(1),1;
+ getitem .@arg1,1;
close;
}
-
+
hugel,71,83,4 script Wayne 4_M_HUMERCHANT,{
- if (!checkweight(1201,1)) {
+ if (!checkweight(Knife,1)) {
mes "[Wayne]";
mes "Hold on a second...";
mes "If you want to exchange";
@@ -2781,7 +2712,7 @@ hugel,71,83,4 script Wayne 4_M_HUMERCHANT,{
mes "all your effort, you know?";
close;
}
- if (!checkweight(909,550)) {
+ if (!checkweight(Jellopy,550)) {
mes "[Wayne]";
mes "Hold on a second...";
mes "If you want to exchange";
@@ -2789,80 +2720,80 @@ hugel,71,83,4 script Wayne 4_M_HUMERCHANT,{
mes "you'd better free up more space";
mes "in your Inventory first. Why don't you use your Kafra Storage?";
close;
- } else {
- mes "[Wayne]";
- mes "Now, how many Prize Medals";
- mes "would you like to exchange?";
- mes "It doesn't take a genius to";
- mes "figure out that you can get";
- mes "more valuable items by trading";
- mes "more Prize Medals at a time.";
- next;
- setarray .@pm, 1,3,7,8,16,25,42,59;
- for (.@i = 0; .@i < getarraysize(.@pm); ++.@i)
- .@m$ += .@pm[.@i] + " Prize medal:";
- .@m = select (.@m$) - 1;
- switch (.@m) {
- case 0:
- setarray .@mr$, "2 Hinale Leaflets:2 Aloe Leaflets:1 Mastela Fruit:5 Witch Starsands:4 Condensed Red Potions";
- setarray .@mr, 520,2,521,2,522,1,1061,5,545,4;
- break;
- case 1:
- setarray .@mr$, "1 Royal Jelly:6 Holy Waters";
- setarray .@mr, 526,1,523,6;
- break;
- case 2:
- setarray .@mr$, "1 Cookie Bag:1 First Aid Kit";
- setarray .@mr, 12130,1,12110,1;
- break;
- case 3:
- .@mr$ = "1 Gift Box";
- setarray .@mr, 644,1;
- break;
- case 4:
- .@mr$ = "1 Old Blue Box";
- setarray .@mr, 603,1;
- break;
- case 5:
- .@mr$ = "1 Taming Gift Set";
- setarray .@mr, 12105,1;
- break;
- case 6:
- .@mr$ = "1 Old Purple Box";
- setarray .@mr, 617,1;
- break;
- case 7:
- .@mr$ = "1 Poring Box";
- setarray .@mr, 12109,1;
- break;
- }
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for "+.@pm[.@m]+" Prize Medal."+((getarraysize(.@mr)<3)?" Well, we have only 1 set, but...":"");
- next;
- .@m2 = select (.@mr$) - 1;
- if (countitem(7515) < .@pm[.@m]) {
- mes "[Wayne]";
- mes "Hey, you don't have";
- mes "enough Prize Medals with";
- mes "you. Go and get some more";
- mes "if you want to exchange";
- mes "them with me for anything.";
- close;
- }
+ }
+ mes "[Wayne]";
+ mes "Now, how many Prize Medals";
+ mes "would you like to exchange?";
+ mes "It doesn't take a genius to";
+ mes "figure out that you can get";
+ mes "more valuable items by trading";
+ mes "more Prize Medals at a time.";
+ next;
+ setarray .@pm, 1,3,7,8,16,25,42,59;
+ .@list$ = "";
+ for (.@i = 0; .@i < getarraysize(.@pm); ++.@i)
+ .@list$ += .@pm[.@i] + " Prize medal:";
+ .@m = select(.@list$) - 1;
+ switch (.@m) {
+ case 0:
+ .@items$ = "2 Hinale Leaflets:2 Aloe Leaflets:1 Mastela Fruit:5 Witch Starsands:4 Condensed Red Potions";
+ setarray .@item_array, 520,2,521,2,522,1,1061,5,545,4;
+ break;
+ case 1:
+ .@items$ = "1 Royal Jelly:6 Holy Waters";
+ setarray .@item_array, 526,1,523,6;
+ break;
+ case 2:
+ .@items$ = "1 Cookie Bag:1 First Aid Kit";
+ setarray .@item_array, 12130,1,12110,1;
+ break;
+ case 3:
+ .@items$ = "1 Gift Box";
+ setarray .@item_array, 644,1;
+ break;
+ case 4:
+ .@items$ = "1 Old Blue Box";
+ setarray .@item_array, 603,1;
+ break;
+ case 5:
+ .@items$ = "1 Taming Gift Set";
+ setarray .@item_array, 12105,1;
+ break;
+ case 6:
+ .@items$ = "1 Old Purple Box";
+ setarray .@item_array, 617,1;
+ break;
+ case 7:
+ .@items$ = "1 Poring Box";
+ setarray .@item_array, 12109,1;
+ break;
+ }
+ mes "[Wayne]";
+ mes "Now, please choose";
+ mes "which of the following item";
+ mes "sets that you'd like to receive";
+ mes "in exchange for "+.@pm[.@m]+" Prize Medal."+((getarraysize(.@item_array)<3)?" Well, we have only 1 set, but...":"");
+ next;
+ .@m2 = select(.@items$) - 1;
+ if (countitem(Marvelous_Medal) < .@pm[.@m]) {
mes "[Wayne]";
- mes "There you go~";
- mes "Thanks for using my";
- mes "service, and I hope that";
- mes "you come visit me again";
- mes "soon. Enjoy the monster";
- mes "races, fair adventurer~";
- delitem 7515,.@pm[.@m];
- getitem .@mr[.@m2*2],.@mr[((.@m2*2)+1)];
+ mes "Hey, you don't have";
+ mes "enough Prize Medals with";
+ mes "you. Go and get some more";
+ mes "if you want to exchange";
+ mes "them with me for anything.";
close;
}
+ mes "[Wayne]";
+ mes "There you go~";
+ mes "Thanks for using my";
+ mes "service, and I hope that";
+ mes "you come visit me again";
+ mes "soon. Enjoy the monster";
+ mes "races, fair adventurer~";
+ delitem Marvelous_Medal,.@pm[.@m];
+ getitem .@item_array[.@m2*2], .@item_array[.@m2*2+1];
+ close;
}
// Monster Race Affiliated NPCs
@@ -3083,35 +3014,37 @@ hugel,5,5,3 script Monster Race Manager 4_M_LGTGUARD,{
mes "[Monster Race Manager]";
mes "Error.";
close;
- } else if (.@i == -1) {
+ }
+ if (.@i == -1) {
mes "[Monster Race Manager]";
mes "Incorrect password.";
close;
- } else if (.@i == 0) {
+ }
+ if (.@i == 0) {
+ close;
+ }
+ mes "[Monster Race Manager]";
+ switch(.@select) {
+ case 1:
+ mes "The Single Monster";
+ mes "Race Entry NPC is ON.";
+ donpcevent "Eckar Ellebird#single::OnEnable";
+ close;
+ case 2:
+ mes "The Dual Monster";
+ mes "Race Entry NPC is ON.";
+ donpcevent "Eckar Erenes#double::OnEnable";
+ close;
+ case 3:
+ mes "The Single Monster";
+ mes "Race Entry NPC is OFF.";
+ donpcevent "Eckar Ellebird#single::OnDisable";
+ close;
+ case 4:
+ mes "The Dual Monster";
+ mes "Race Entry NPC is OFF.";
+ donpcevent "Eckar Erenes#double::OnDisable";
close;
- } else {
- mes "[Monster Race Manager]";
- switch(.@select) {
- case 1:
- mes "The Single Monster";
- mes "Race Entry NPC is ON.";
- donpcevent "Eckar Ellebird#single::OnEnable";
- close;
- case 2:
- mes "The Dual Monster";
- mes "Race Entry NPC is ON.";
- donpcevent "Eckar Erenes#double::OnEnable";
- close;
- case 3:
- mes "The Single Monster";
- mes "Race Entry NPC is OFF.";
- donpcevent "Eckar Ellebird#single::OnDisable";
- close;
- case 4:
- mes "The Dual Monster";
- mes "Race Entry NPC is OFF.";
- donpcevent "Eckar Erenes#double::OnDisable";
- close;
- }
}
+ close;
}
diff --git a/npc/other/poring_war.txt b/npc/other/poring_war.txt
index 5e99c97d8..6b52dd870 100644
--- a/npc/other/poring_war.txt
+++ b/npc/other/poring_war.txt
@@ -356,7 +356,7 @@ OnInit:
//============================================================
poring_w01,91,97,3 script Poring#wop_door_all PORING,{
end;
-
+
OnInit:
waitingroom "[Recruiting 10 Battle Participants]",11,"Poring#wop_door_all::OnStartArena",10,500,9;
enablewaitingroomevent;
diff --git a/npc/other/pvp.txt b/npc/other/pvp.txt
index b8d104ce2..70c02d1bc 100644
--- a/npc/other/pvp.txt
+++ b/npc/other/pvp.txt
@@ -314,8 +314,6 @@ function script F_PVP_FSRS {
end;
}
-
-
// Event Contestant Entrance
//============================================================
pvp_room,54,85,4 script Registration Staff#1 8W_SOLDIER,{
diff --git a/npc/other/turbo_track.txt b/npc/other/turbo_track.txt
index e2dd1d661..36a1b4fe1 100644
--- a/npc/other/turbo_track.txt
+++ b/npc/other/turbo_track.txt
@@ -45,7 +45,7 @@ OnStartArena:
donpcevent "Broadcast#"+.@in$+.@in+"::OnEnable";
disablewaitingroomevent strnpcinfo(0);
end;
-
+
OnInit:
if (compare(strnpcinfo(0),"main")) end;
if (compare(strnpcinfo(2),"n1")) {
@@ -66,7 +66,7 @@ turbo_room,77,135,3 duplicate(entrance#tt_main) Normal mode - 4 person 4_F_TELEP
turbo_room,84,135,3 duplicate(entrance#tt_main) Normal mode - 8 person 4_F_TELEPORTER
turbo_room,91,135,3 duplicate(entrance#tt_main) Normal mode - 16 person 4_F_TELEPORTER
turbo_room,72,132,3 duplicate(entrance#tt_main) Solo Mode#n1 4_F_TELEPORTER
-
+
turbo_e_4,298,167,3 script Helper#tt_main 4_F_TELEPORTER,{
mes "[Helper]";
mes "You are now in the";
@@ -96,7 +96,7 @@ OnTouch:
else
warp strnpcinfo(4),59,364;
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
disablenpc "Point Give-Away Guy#"+.@w$;
@@ -391,12 +391,12 @@ OnTimer927000:
disablenpc "Flasher_Exit_1#"+.@w$;
disablenpc "Flasher_Exit_2#"+.@w$;
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
disablenpc "Master#"+.@w$;
end;
-
+
function RName {
.@s = (getstrlen(getarg(0)) > 2)?(substr(getarg(0),1,2)):(charat(getarg(0),getstrlen(getarg(0))-1));
.@rn$ = ((compare(strnpcinfo(4),"_e_"+.@s))?"Expert mode":"Normal mode")+" - "+.@s+" person";
@@ -1641,7 +1641,6 @@ turbo_n_8,332,279,0 duplicate(snake02#tt_main) snake02#n8 WARPNPC,1,1
turbo_n_16,332,279,0 duplicate(snake02#tt_main) snake02#n16 WARPNPC,1,1
turbo_n_1,332,279,0 duplicate(snake02#tt_main) snake02#n1 WARPNPC,1,1
-
- script snake03#tt_main WARPNPC,1,1,{
OnTouch:
.@turbo2 = rand(1,8);
@@ -1659,7 +1658,6 @@ turbo_n_8,324,270,0 duplicate(snake03#tt_main) snake03#n8 WARPNPC,1,1
turbo_n_16,324,270,0 duplicate(snake03#tt_main) snake03#n16 WARPNPC,1,1
turbo_n_1,324,270,0 duplicate(snake03#tt_main) snake03#n1 WARPNPC,1,1
-
- script snake04#tt_main WARPNPC,1,1,{
OnTouch:
.@turbo2 = rand(1,7);
@@ -1679,7 +1677,7 @@ turbo_n_1,332,270,0 duplicate(snake04#tt_main) snake04#n1 WARPNPC,1,1
- script SnakeHunt#tt_main -1,{
end;
-
+
OnReset:
killmonsterall strnpcinfo(4);
end;
@@ -1947,7 +1945,7 @@ OnTouch:
}
disablenpc "#cos_"+.@w$+"_end";
end;
-
+
function GetNumber {
setarray .@w_n$[1], "n4","n8","n16","e4","e8","e16";
for (.@i = 1; .@i <= getarraysize(.@w_n$); ++.@i) {
@@ -1955,7 +1953,7 @@ OnTouch:
return .@i;
}
}
-
+
OnInit:
.@w$ = callfunc("F_tt");
enablenpc "#cos_"+.@w$+"_end";
@@ -1980,7 +1978,7 @@ OnTouch:
disablenpc "#cos_"+.@w$+"_end2";
enablenpc "#cos_"+.@w$+"_end3";
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
disablenpc "#cos_"+.@w$+"_end2";
@@ -2038,7 +2036,7 @@ OnTouch:
mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Flasher Maze!",bc_map,"0x70DBDB";
warp strnpcinfo(4),185,227;
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
disablenpc strnpcinfo(0);
@@ -2361,7 +2359,7 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1
end;
}
}
-
+
OnEnable:
.@w$ = callfunc("F_tt");
enablenpc "Winner Helper#TBT_"+.@w$;
@@ -2403,12 +2401,12 @@ OnTimer25000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"In the meantime, winners must procceed to receive their rewards as soon as possible.",bc_map,"0x33FF66";
end;
-
+
OnTimer28000:
.@w$ = callfunc("F_tt");
if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Al De Baran Turbo Track is brought to you by...",bc_map,"0x33FF66";
end;
-
+
OnTimer30000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"Thank you for visiting Al De Baran Turbo Track.",bc_map,"0x33FF66";
@@ -2422,7 +2420,7 @@ OnTimer35000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"Al De Baran Turbo Track is brought to you by...",bc_map,"0x33FF66";
end;
-
+
OnTimer36000:
.@w$ = callfunc("F_tt");
if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"[Al De Baran Guild Castle Management Luina]",bc_map,"0x33FF66";
@@ -2450,7 +2448,7 @@ OnTimer48000:
.@w$ = callfunc("F_tt");
if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Once again, we'd like to thank our sponsors.",bc_map,"0x33FF66";
end;
-
+
OnTimer50000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"[Blacksmith Union]",bc_map,"0x33FF66";
@@ -2460,7 +2458,7 @@ OnTimer52000:
.@w$ = callfunc("F_tt");
if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Have a good day.",bc_map,"0x33FF66";
end;
-
+
OnTimer55000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"And [Comodo Casino].",bc_map,"0x33FF66";
@@ -2492,17 +2490,17 @@ OnTimer60000:
mapannounce strnpcinfo(4),"Once again, we'd like to thank our sponsors.",bc_map,"0x33FF66";
}
end;
-
+
OnTimer65000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"Have a good day.",bc_map,"0x33FF66";
end;
-
+
OnTimer70000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) mapwarp strnpcinfo(4),"turbo_room",72,89;
end;
-
+
OnTimer71000:
.@w$ = callfunc("F_tt");
if (!compare(.@w$,"4")) {
@@ -2525,13 +2523,13 @@ OnTimer71000:
stopnpctimer;
}
end;
-
+
function RName {
.@s = (getstrlen(getarg(0)) > 2)?(substr(getarg(0),1,2)):(charat(getarg(0),getstrlen(getarg(0))-1));
.@rn$ = ((compare(strnpcinfo(4),"_e_"+.@s))?"Expert mode":"Normal mode")+" - "+.@s+" person";
return .@rn$;
}
-
+
OnInit:
.@w$ = callfunc("F_tt");
disablenpc "Winner Helper#TBT_"+.@w$;
@@ -2672,7 +2670,7 @@ turbo_n_1,384,167,1 script Guide#TBT_n1 1_M_01,{
end;
}
}
-
+
OnEnable:
.@w$ = callfunc("F_tt");
enablenpc "Guide#TBT_"+.@w$;
@@ -2752,7 +2750,7 @@ OnTimer60000:
donpcevent "Solo Mode#"+.@w$+"::OnEnable";
stopnpctimer;
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
disablenpc "Guide#TBT_"+.@w$;
@@ -2766,7 +2764,7 @@ OnTouch:
donpcevent "Turbo Track Guide::OnEnd_"+.@w$;
disablenpc "Notice_Maker1#TBT_"+.@w$;
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
enablenpc "Notice_Maker1#TBT_"+.@w$;
@@ -2786,7 +2784,7 @@ OnTouch:
mapannounce strnpcinfo(4),strcharinfo(0) +" is now entering the Single Snail! " + strcharinfo(0) +" is now in the lead!",bc_map,"0xFFFF00";
disablenpc "Notice_Maker3#TBT_"+.@w$;
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
enablenpc "Notice_Maker3#TBT_"+.@w$;
@@ -3625,7 +3623,7 @@ OnTouch:
default: break;
}
end;
-
+
OnInit:
.@w$ = callfunc("F_tt");
disablenpc "bing2#"+.@w$;
@@ -4251,7 +4249,6 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{
mes "Points you have earned before";
mes "redeeming your points again.";
close;
-
}
tt_point -= 40;
if (BaseLevel < 70) getexp 3000,0;
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2025-06-06 02:26:22 +0000