summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
authorDastgir <dastgirpojee@rocketmail.com>2015-06-12 18:32:04 +0530
committerHaru <haru@dotalux.com>2015-06-25 16:57:14 +0200
commitea408ffbeac975f6555cb7b389795cf51a1fe641 (patch)
tree27261cfff4f7dfeeb062a5a4b3daa9de8234a480 /npc
parent7086fd48cc2ddf99497271d2a04411b6ea8c7c81 (diff)
downloadhercules-ea408ffbeac975f6555cb7b389795cf51a1fe641.tar.gz
hercules-ea408ffbeac975f6555cb7b389795cf51a1fe641.tar.bz2
hercules-ea408ffbeac975f6555cb7b389795cf51a1fe641.tar.xz
hercules-ea408ffbeac975f6555cb7b389795cf51a1fe641.zip
Fix Issue in Dual Race.
Reference: rathena/rathena@be1fd7b1 Also synchronized previous updates to the same script. Signed-off-by: Haru <haru@dotalux.com>
Diffstat (limited to 'npc')
-rw-r--r--npc/other/monster_race.txt907
1 files changed, 420 insertions, 487 deletions
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;
}