summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorj-tkay <j-tkay@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-08-12 19:39:03 +0000
committerj-tkay <j-tkay@54d463be-8e91-2dee-dedb-b68131a5f0ec>2012-08-12 19:39:03 +0000
commit145b15cfd59ed5afe76ca19010c99fa356be2a28 (patch)
tree7271c73ec109c32449c2d6a4e7b8288b7679b636
parent2d2daf56dfd6e6f7e88192154baba2ba80636043 (diff)
downloadhercules-145b15cfd59ed5afe76ca19010c99fa356be2a28.tar.gz
hercules-145b15cfd59ed5afe76ca19010c99fa356be2a28.tar.bz2
hercules-145b15cfd59ed5afe76ca19010c99fa356be2a28.tar.xz
hercules-145b15cfd59ed5afe76ca19010c99fa356be2a28.zip
- Optimized and fixed Medal Distributor (Dual Race) disappears accordingly. (other/monster_race.txt)
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16626 54d463be-8e91-2dee-dedb-b68131a5f0ec
-rw-r--r--npc/other/monster_race.txt7948
1 files changed, 1098 insertions, 6850 deletions
diff --git a/npc/other/monster_race.txt b/npc/other/monster_race.txt
index 3fd668380..d5b7d08b5 100644
--- a/npc/other/monster_race.txt
+++ b/npc/other/monster_race.txt
@@ -3,11 +3,11 @@
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
-//= 1.7
+//= 1.8
//===== Compatible With: =====================================
//= rAthena SVN (Trunk, r12752+)
//===== Description: =========================================
-//= [Aegis Conversion]
+//= [Official Conversion]
//= - Hugel Monster Races (Single and Double)
//= - Prize Medal Exchanging, and Monster Track NPCs.
//= - Contains both euRO and iRO dialog.
@@ -21,6 +21,8 @@
//= 1.5 Updated Dialog. [L0ne_W0lf]
//= 1.6 Updated experience rewards. [L0ne_W0lf]
//= 1.7 Optimization, -4000 lines (more can still be done). [Euphy]
+//= 1.8 Optimized.
+//= Fixed Medal Distributor (Dual Race) disappears accordingly. [Joseph]
//============================================================
//============================================================
@@ -28,11 +30,6 @@
//============================================================
hugel,51,61,0 script #race_timer1-1 -1,{
OnInit:
- enablenpc "#race_timer1-1";
- set $@mon_time_1_1,2;
- initnpctimer;
- end;
-
OnEnable:
enablenpc "#race_timer1-1";
set $@mon_time_1_1,2;
@@ -75,819 +72,68 @@ OnTimer330000:
set $@mon_time_1_1,0;
donpcevent "#race_timer1-1::OnDisable";
stopnpctimer;
-
end;
}
p_track01,58,0,0 script Race Progress Timer -1,{
-OnInit:
- disablenpc "Race Progress Timer";
- end;
-
OnEnable:
enablenpc "Race Progress Timer";
initnpctimer;
- enablenpc "starting#1";
- enablenpc "starting#2";
- enablenpc "starting#3";
- enablenpc "starting#4";
- enablenpc "starting#5";
- enablenpc "starting#6";
-
- set .@1st_line,rand(1,70);
- if ((.@1st_line > 0) && (.@1st_line < 11)) {
- set $@mr_1_luk1,.@1st_line;
- enablenpc "Luk#5";
- enablenpc "Luk#6";
- set .@tired1,rand(50,60);
- if (.@tired1 > 49) && (.@tired1 < 61) {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- }
- }
- else if ((.@1st_line > 10) && (.@1st_line < 31)) {
- set $@mr_1_luk1,.@1st_line;
-
- enablenpc "Luk#5";
- set .@tired1,rand(40,60);
- if (.@tired1 > 49) && (.@tired1 < 61) {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- }
- else {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- }
- }
- else if ((.@1st_line > 20) && (.@1st_line < 41)) {
- set $@mr_1_luk1,.@1st_line;
- enablenpc "Luk#1";
- set .@tired1,rand(30,50);
- if (.@tired1 > 39) && (.@tired1 < 51) {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- }
- else {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- }
- }
- else if ((.@1st_line > 40) && (.@1st_line < 51)) {
- set $@mr_1_luk1,.@1st_line;
- enablenpc "Luk#1";
- enablenpc "Luk#2";
- set .@tired1,rand(20,40);
- if (.@tired1 > 29) && (.@tired1 < 41) {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- }
- else {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- }
- }
- else if ((.@1st_line > 50) && (.@1st_line < 61)) {
- set $@mr_1_luk1,.@1st_line;
- enablenpc "Luk#1";
- enablenpc "Luk#2";
- enablenpc "Luk#3";
- set .@tired1,rand(10,30);
- if (.@tired1 > 19) && (.@tired1 < 31) {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- }
- else {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- enablenpc "Tire#5";
- }
- }
- else if ((.@1st_line > 60) && (.@1st_line < 71)) {
- set $@mr_1_luk1,.@1st_line;
- enablenpc "Luk#1";
- enablenpc "Luk#2";
- enablenpc "Luk#3";
- enablenpc "Luk#4";
- set .@tired1,rand(0,20);
- if (.@tired1 > 9) && (.@tired1 < 21) {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- enablenpc "Tire#5";
- }
- else {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- enablenpc "Tire#5";
- enablenpc "Tire#6";
- }
- }
- else {
- set $@mr_1_luk1,.@1st_line;
- enablenpc "Luk#1";
- enablenpc "Luk#2";
- enablenpc "Luk#3";
- enablenpc "Luk#4";
- set .@tired1,rand(0,20);
- if (.@tired1 > 9) && (.@tired1 < 21) {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- enablenpc "Tire#5";
- }
- else {
- set $@mr_1_tire1,.@tired1;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- enablenpc "Tire#5";
- enablenpc "Tire#6";
- }
- }
- set .@2nd_line,rand(1,70);
- if ((.@2nd_line > 0) && (.@2nd_line < 11)) {
- set $@mr_1_luk2,.@2nd_line;
- enablenpc "Luk2#5";
- enablenpc "Luk2#6";
- set .@tired2,rand(50,60);
- if (.@tired2 > 49) && (.@tired2 < 61) {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#2";
- }
- }
- else if ((.@2nd_line > 10) && (.@2nd_line < 31)) {
- set $@mr_1_luk2,.@2nd_line;
- enablenpc "Luk2#5";
- set .@tired2,rand(40,60);
- if (.@tired2 > 49) && (.@tired2 < 61) {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- }
- else {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- }
- }
- else if ((.@2nd_line > 20) && (.@2nd_line < 41)) {
- set $@mr_1_luk2,.@2nd_line;
- enablenpc "Luk2#1";
- set .@tired2,rand(30,50);
- if (.@tired2 > 39) && (.@tired2 < 51) {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- }
- else {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- }
- }
- else if ((.@2nd_line > 40) && (.@2nd_line < 51)) {
- set $@mr_1_luk2,.@2nd_line;
- enablenpc "Luk2#1";
- enablenpc "Luk2#2";
- set .@tired2,rand(20,40);
- if (.@tired2 > 29) && (.@tired2 < 41) {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- }
- else {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- enablenpc "Tire2#4";
- }
- }
- else if ((.@2nd_line > 50) && (.@2nd_line < 61)) {
- set $@mr_1_luk2,.@2nd_line;
- enablenpc "Luk2#1";
- enablenpc "Luk2#2";
- enablenpc "Luk2#3";
- set .@tired2,rand(10,30);
- if (.@tired2 > 19) && (.@tired2 < 31) {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- enablenpc "Tire2#4";
- }
- else {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- enablenpc "Tire2#4";
- enablenpc "Tire2#5";
- }
- }
- else if ((.@2nd_line > 60) && (.@2nd_line < 71)) {
- set $@mr_1_luk2,.@2nd_line;
- enablenpc "Luk2#1";
- enablenpc "Luk2#2";
- enablenpc "Luk2#3";
- enablenpc "Luk2#4";
- set .@tired2,rand(0,20);
- if (.@tired2 > 9) && (.@tired2 < 21) {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- enablenpc "Tire2#4";
- enablenpc "Tire2#5";
- }
- else {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- enablenpc "Tire2#4";
- enablenpc "Tire2#5";
- enablenpc "Tire2#6";
- }
- }
- else {
- set $@mr_1_luk2,.@2nd_line;
- enablenpc "Luk2#1";
- enablenpc "Luk2#2";
- enablenpc "Luk2#3";
- enablenpc "Luk2#4";
- set .@tired2,rand(0,20);
- if (.@tired2 > 9) && (.@tired2 < 21) {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- enablenpc "Tire2#4";
- enablenpc "Tire2#5";
- }
- else {
- set $@mr_1_tire2,.@tired2;
- enablenpc "Tire2#1";
- enablenpc "Tire2#2";
- enablenpc "Tire2#3";
- enablenpc "Tire2#4";
- enablenpc "Tire2#5";
- enablenpc "Tire2#6";
- }
- }
- set .@3rd_line,rand(1,70);
- if ((.@3rd_line > 0) && (.@3rd_line < 11)) {
- set $@mr_1_luk3,.@3rd_line;
- enablenpc "Luk3#5";
- enablenpc "Luk3#6";
- set .@tired3,rand(50,60);
- if (.@tired3 > 49) && (.@tired3 < 61) {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- }
-
- }
- else if ((.@3rd_line > 10) && (.@3rd_line < 31)) {
- set $@mr_1_luk3,.@3rd_line;
- enablenpc "Luk3#5";
- set .@tired3,rand(40,60);
- if (.@tired3 > 49) && (.@tired3 < 61) {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- }
- else {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- }
-
- }
- else if ((.@3rd_line > 20) && (.@3rd_line < 41)) {
- set $@mr_1_luk3,.@3rd_line;
- enablenpc "Luk3#1";
- set .@tired3,rand(30,50);
- if (.@tired3 > 39) && (.@tired3 < 51) {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- }
- else {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- }
- }
- else if ((.@3rd_line > 40) && (.@3rd_line < 51)) {
- set $@mr_1_luk3,.@3rd_line;
- enablenpc "Luk3#1";
- enablenpc "Luk3#2";
- set .@tired3,rand(20,40);
- if (.@tired3 > 29) && (.@tired3 < 41) {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- }
- else {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- enablenpc "Tire3#4";
- }
- }
- else if ((.@3rd_line > 50) && (.@3rd_line < 61)) {
- set $@mr_1_luk3,.@3rd_line;
- enablenpc "Luk3#1";
- enablenpc "Luk3#2";
- enablenpc "Luk3#3";
- set .@tired3,rand(10,30);
- if (.@tired3 > 19) && (.@tired3 < 31) {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- enablenpc "Tire3#4";
- }
- else {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- enablenpc "Tire#3";
- enablenpc "Tire#4";
- enablenpc "Tire#5";
- }
- }
- else if ((.@3rd_line > 60) && (.@3rd_line < 71)) {
- set $@mr_1_luk3,.@3rd_line;
- enablenpc "Luk3#1";
- enablenpc "Luk3#2";
- enablenpc "Luk3#3";
- enablenpc "Luk3#4";
- set .@tired3,rand(0,20);
- if (.@tired3 > 9) && (.@tired3 < 21) {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- enablenpc "Tire3#4";
- enablenpc "Tire3#5";
- }
- else {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- enablenpc "Tire3#4";
- enablenpc "Tire3#5";
- enablenpc "Tire3#6";
- }
- }
- else {
- set $@mr_1_luk3,.@3rd_line;
- enablenpc "Luk3#1";
- enablenpc "Luk3#2";
- enablenpc "Luk3#3";
- enablenpc "Luk3#4";
- set .@tired3,rand(0,20);
- if (.@tired3 > 9) && (.@tired3 < 21) {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- enablenpc "Tire3#4";
- enablenpc "Tire3#5";
- }
- else {
- set $@mr_1_tire3,.@tired3;
- enablenpc "Tire3#1";
- enablenpc "Tire3#2";
- enablenpc "Tire3#3";
- enablenpc "Tire3#4";
- enablenpc "Tire3#5";
- enablenpc "Tire3#6";
- }
- }
- set .@4th_line,rand(1,70);
- if ((.@4th_line > 0) && (.@4th_line < 11)) {
- set $@mr_1_luk4,.@4th_line;
- enablenpc "Luk4#5";
- enablenpc "Luk4#6";
- set .@tired4,rand(50,60);
- if (.@tired4 > 49) && (.@tired4 < 61) {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- }
- }
- else if ((.@4th_line > 10) && (.@4th_line < 31)) {
- set $@mr_1_luk4,.@4th_line;
- enablenpc "Luk4#5";
- set .@tired4,rand(40,60);
- if (.@tired4 > 49) && (.@tired4 < 61) {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire#1";
- }
- else {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire#1";
- enablenpc "Tire#2";
- }
- }
- else if ((.@4th_line > 20) && (.@4th_line < 41)) {
- set $@mr_1_luk4,.@4th_line;
- enablenpc "Luk4#1";
- set .@tired4,rand(30,50);
- if (.@tired4 > 39) && (.@tired4 < 51) {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- }
- else {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- }
- }
- else if ((.@4th_line > 40) && (.@4th_line < 51)) {
- set $@mr_1_luk4,.@4th_line;
- enablenpc "Luk4#1";
- enablenpc "Luk4#2";
- set .@tired4,rand(20,40);
- if (.@tired4 > 29) && (.@tired4 < 41) {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- }
- else {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- enablenpc "Tire4#4";
- }
- }
- else if ((.@4th_line > 50) && (.@4th_line < 61)) {
- set $@mr_1_luk4,.@4th_line;
- enablenpc "Luk#1";
- enablenpc "Luk#2";
- enablenpc "Luk#3";
- set .@tired4,rand(10,30);
- if (.@tired4 > 19) && (.@tired4 < 31) {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- enablenpc "Tire4#4";
- }
- else {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- enablenpc "Tire4#4";
- enablenpc "Tire4#5";
- }
- }
- else if ((.@4th_line > 60) && (.@4th_line < 71)) {
- set $@mr_1_luk4,.@4th_line;
- enablenpc "Luk4#1";
- enablenpc "Luk4#2";
- enablenpc "Luk4#3";
- enablenpc "Luk4#4";
- set .@tired4,rand(0,20);
- if (.@tired4 > 9) && (.@tired4 < 21) {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- enablenpc "Tire4#4";
- enablenpc "Tire4#5";
- }
- else {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- enablenpc "Tire4#4";
- enablenpc "Tire4#5";
- enablenpc "Tire4#6";
- }
- }
- else {
- set $@mr_1_luk4,.@4th_line;
- enablenpc "Luk4#1";
- enablenpc "Luk4#2";
- enablenpc "Luk4#3";
- enablenpc "Luk4#4";
- set .@tired4,rand(0,20);
- if (.@tired4 > 9) && (.@tired4 < 21) {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- enablenpc "Tire4#4";
- enablenpc "Tire4#5";
- }
- else {
- set $@mr_1_tire4,.@tired4;
- enablenpc "Tire4#1";
- enablenpc "Tire4#2";
- enablenpc "Tire4#3";
- enablenpc "Tire4#4";
- enablenpc "Tire4#5";
- enablenpc "Tire4#6";
- }
- }
- set .@5th_line,rand(1,70);
- if ((.@5th_line > 0) && (.@5th_line < 11)) {
- set $@mr_1_luk5,.@5th_line;
- enablenpc "Luk5#5";
- enablenpc "Luk5#6";
- set .@tired5,rand(50,60);
- if (.@tired5 > 49) && (.@tired5 < 61) {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- }
- }
- else if ((.@5th_line > 10) && (.@5th_line < 31)) {
- set $@mr_1_luk5,.@5th_line;
- enablenpc "Luk5#5";
- set .@tired5,rand(40,60);
- if (.@tired5 > 49) && (.@tired5 < 61) {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- }
- else {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- }
- }
- else if ((.@5th_line > 20) && (.@5th_line < 41)) {
- set $@mr_1_luk5,.@5th_line;
- enablenpc "Luk5#1";
- set .@tired5,rand(30,50);
- if (.@tired5 > 39) && (.@tired5 < 51) {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- }
- else {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- }
- }
- else if ((.@5th_line > 40) && (.@5th_line < 51)) {
- set $@mr_1_luk5,.@5th_line;
- enablenpc "Luk5#1";
- enablenpc "Luk5#2";
- set .@tired5,rand(20,40);
- if (.@tired5 > 29) && (.@tired5 < 41) {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- }
- else {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- enablenpc "Tire5#4";
- }
- }
- else if ((.@5th_line > 50) && (.@5th_line < 61)) {
- set $@mr_1_luk5,.@5th_line;
- enablenpc "Luk5#1";
- enablenpc "Luk5#2";
- enablenpc "Luk5#3";
- set .@tired5,rand(10,30);
- if (.@tired5 > 19) && (.@tired5 < 31) {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- enablenpc "Tire5#4";
- }
- else {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- enablenpc "Tire5#4";
- enablenpc "Tire5#5";
- }
- }
- else if ((.@5th_line > 60) && (.@5th_line < 71)) {
- set $@mr_1_luk5,.@5th_line;
- enablenpc "Luk5#1";
- enablenpc "Luk5#2";
- enablenpc "Luk5#3";
- enablenpc "Luk5#4";
- set .@tired5,rand(0,20);
- if (.@tired5 > 9) && (.@tired5 < 21) {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- enablenpc "Tire5#4";
- enablenpc "Tire5#5";
- }
- else {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- enablenpc "Tire5#4";
- enablenpc "Tire5#5";
- enablenpc "Tire5#6";
- }
- }
- else {
- set $@mr_1_luk5,.@5th_line;
- enablenpc "Luk5#1";
- enablenpc "Luk5#2";
- enablenpc "Luk5#3";
- enablenpc "Luk5#4";
- set .@tired5,rand(0,20);
- if (.@tired5 > 9) && (.@tired5 < 21) {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- enablenpc "Tire5#4";
- enablenpc "Tire5#5";
- }
- else {
- set $@mr_1_tire5,.@tired5;
- enablenpc "Tire5#1";
- enablenpc "Tire5#2";
- enablenpc "Tire5#3";
- enablenpc "Tire5#4";
- enablenpc "Tire5#5";
- enablenpc "Tire5#6";
- }
- }
- set .@6th_line,rand(1,70);
- if ((.@6th_line > 0) && (.@6th_line < 11)) {
- set $@mr_1_luk6,.@6th_line;
- enablenpc "Luk6#5";
- enablenpc "Luk6#6";
- set .@tired6,rand(50,60);
- if (.@tired6 > 49) && (.@tired6 < 61) {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- }
- }
- else if ((.@6th_line > 10) && (.@6th_line < 31)) {
- set $@mr_1_luk6,.@6th_line;
- enablenpc "Luk6#5";
- set .@tired6,rand(40,60);
- if (.@tired6 > 49) && (.@tired6 < 61) {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- }
- else {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- }
- }
- else if ((.@6th_line > 20) && (.@6th_line < 41)) {
- set $@mr_1_luk6,.@6th_line;
- enablenpc "Luk6#1";
- set .@tired6,rand(30,50);
- if (.@tired6 > 39) && (.@tired6 < 51) {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- }
- else {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- }
- }
- else if ((.@6th_line > 40) && (.@6th_line < 51)) {
- set $@mr_1_luk6,.@6th_line;
- enablenpc "Luk6#1";
- enablenpc "Luk6#2";
- set .@tired6,rand(20,40);
- if (.@tired6 > 29) && (.@tired6 < 41) {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- }
- else {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- enablenpc "Tire6#4";
- }
- }
- else if ((.@6th_line > 50) && (.@6th_line < 61)) {
- set $@mr_1_luk6,.@6th_line;
- enablenpc "Luk6#1";
- enablenpc "Luk6#2";
- enablenpc "Luk6#3";
- set .@tired6,rand(10,30);
- if (.@tired6 > 19) && (.@tired6 < 31) {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- enablenpc "Tire6#4";
- }
- else {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- enablenpc "Tire6#4";
- enablenpc "Tire6#5";
- }
- }
- else if ((.@6th_line > 60) && (.@6th_line < 71)) {
- set $@mr_1_luk6,.@6th_line;
- enablenpc "Luk6#1";
- enablenpc "Luk6#2";
- enablenpc "Luk6#3";
- enablenpc "Luk6#4";
- set .@tired6,rand(0,20);
- if (.@tired6 > 9) && (.@tired6 < 21) {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- enablenpc "Tire6#4";
- enablenpc "Tire6#5";
- }
- else {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- enablenpc "Tire6#4";
- enablenpc "Tire6#5";
- enablenpc "Tire6#6";
- }
- }
- else {
- set $@mr_1_luk6,.@6th_line;
- enablenpc "Luk6#1";
- enablenpc "Luk6#2";
- enablenpc "Luk6#3";
- enablenpc "Luk6#4";
- set .@tired6,rand(0,20);
- if (.@tired6 > 9) && (.@tired6 < 21) {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- enablenpc "Tire6#4";
- enablenpc "Tire6#5";
- }
- else {
- set $@mr_1_tire6,.@tired6;
- enablenpc "Tire6#1";
- enablenpc "Tire6#2";
- enablenpc "Tire6#3";
- enablenpc "Tire6#4";
- enablenpc "Tire6#5";
- enablenpc "Tire6#6";
- }
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ enablenpc "starting#"+.@i;
+ set .@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 "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);
+ 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);
+ 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);
+ enablenpc "Luk"+.@c+"#1";
+ enablenpc "Luk"+.@c+"#2";
+ set getd(".@tired"+.@c),rand(20,40);
+ setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
+ for (set .@i, 1; .@i <= 3; set .@i, .@i + 1)
+ 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);
+ for (set .@i, 1; .@i <= 3; set .@i, .@i + 1)
+ enablenpc "Luk"+.@c+"#"+.@i;
+ set getd(".@tired"+.@c),rand(10,30);
+ setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
+ for (set .@i, 1; .@i <= 4; set .@i, .@i + 1)
+ 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);
+ for (set .@i, 1; .@i <= 4; set .@i, .@i + 1)
+ enablenpc "Luk"+.@c+"#"+.@i;
+ set getd(".@tired"+.@c),rand(0,20);
+ setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c);
+ for (set .@i, 1; .@i <= 5; set .@i, .@i + 1)
+ enablenpc "Tire"+.@c+"#"+.@i;
+ if (getd(".@tired"+.@c) < 10) enablenpc "Tire"+.@c+"#6";
+ }
+ set .@c, .@c + 1;
}
end;
@@ -929,34 +175,17 @@ OnTimer300000:
set $@mon_time_1_1,0;
set $@monster_race,0;
disablenpc "Ticket Helper#single";
- donpcevent "Runner No. 1::OnEnable";
- donpcevent "Runner No. 2::OnEnable";
- donpcevent "Runner No. 3::OnEnable";
- donpcevent "Runner No. 4::OnEnable";
- donpcevent "Runner No. 5::OnEnable";
- donpcevent "Runner No. 6::OnEnable";
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ donpcevent "Runner No. "+.@i+"::OnEnable";
stopnpctimer;
end;
+
+OnInit:
+ disablenpc "Race Progress Timer";
+ end;
}
p_track01,73,22,1 script Ticket Helper#single 899,{
- if (checkweight(908,200) == 0) {
- mes "[Ticket Helper]";
- mes "Welcome to the";
- mes "Monster Race Arena.";
- mes "If you'd like to participate";
- mes "in the ^3131FFSingle Monster Race^000000,";
- mes "then please select 1 out of";
- mes "the 6 monsters from the list.";
- next;
- mes "[Ticket Helper]";
- mes "Wait, wait...";
- mes "I can't give you";
- mes "anything right now.";
- mes "You're carrying way";
- mes "too many things...";
- close;
- }
mes "[Ticket Helper]";
mes "Welcome to the";
mes "Monster Race Arena.";
@@ -965,174 +194,25 @@ p_track01,73,22,1 script Ticket Helper#single 899,{
mes "then please select 1 out of";
mes "the 6 monsters from the list.";
next;
- switch(select("Monster Status:Monster 1:Monster 2:Monster 3:Monster 4:Monster 5:Monster 6")) {
- case 1:
- mes "Monster 1 [^CC6600Luck^000000: " + $@mr_1_luk1 + "] [^EE0000HP^000000: " + $@mr_1_tire1 + "]";
- mes "Monster 2 [^CC6600Luck^000000: " + $@mr_1_luk2 + "] [^EE0000HP^000000: " + $@mr_1_tire2 + "]";
- mes "Monster 3 [^CC6600Luck^000000: " + $@mr_1_luk3 + "] [^EE0000HP^000000: " + $@mr_1_tire3 + "]";
- mes "Monster 4 [^CC6600Luck^000000: " + $@mr_1_luk4 + "] [^EE0000HP^000000: " + $@mr_1_tire4 + "]";
- mes "Monster 5 [^CC6600Luck^000000: " + $@mr_1_luk5 + "] [^EE0000HP^000000: " + $@mr_1_tire5 + "]";
- mes "Monster 6 [^CC6600Luck^000000: " + $@mr_1_luk6 + "] [^EE0000HP^000000: " + $@mr_1_tire6 + "]";
+ if (!checkweight(908,200)) {
+ mes "[Ticket Helper]";
+ mes "Wait, wait...";
+ mes "I can't give you";
+ mes "anything right now.";
+ mes "You're carrying way";
+ mes "too many things...";
close;
- case 2:
- if ($@mon_time_1_1 == 1) {
- if (monster_race_1 > 0) {
- mes "[Ticket Helper]";
- mes "You have selected";
- mes "Monster ^FF0000"+ monster_race_1 +"^000000 for the";
- mes "Single Monster Race.";
- mes "The start of the race";
- mes "will be announced soon,";
- mes "so please wait. Thank you.";
- close;
- }
- else {
- mes "[Ticket Helper]";
- mes "You've chosen Monster 1?";
- mes "Alright then, please wait";
- mes "until the start of the race is";
- mes "announced. If the monster you";
- mes "picked wins, then please use this ticket to redeem your prize.";
- getitem 7514,1; //Monster_Ticket
- set monster_race_1,1;
- close;
- }
- }
- else {
- mes "[Ticket Helper]";
- mes "I'm sorry, but a Monster";
- mes "Race is now in progress.";
- mes "If you'd like to participate, then please wait for the next race.";
- close;
- }
- case 3:
- if ($@mon_time_1_1 == 1) {
- if (monster_race_1 > 0) {
- mes "[Ticket Helper]";
- mes "You have selected";
- mes "Monster ^FF0000"+ monster_race_1 +"^000000 for the";
- mes "Single Monster Race.";
- mes "The start of the race";
- mes "will be announced soon,";
- mes "so please wait. Thank you.";
- close;
- }
- else {
- mes "[Ticket Helper]";
- mes "You've chosen Monster 2?";
- mes "Alright then, please wait";
- mes "until the start of the race is";
- mes "announced. If the monster you";
- mes "picked wins, then please use";
- mes "this ticket to redeem your prize.";
- getitem 7514,1; //Monster_Ticket
- set monster_race_1,2;
- close;
- }
- }
- else {
- mes "[Ticket Helper]";
- mes "I'm sorry, but a Monster";
- mes "Race is now in progress.";
- mes "If you'd like to participate, then please wait for the next race.";
- close;
- }
- case 4:
- if ($@mon_time_1_1 == 1) {
- if (monster_race_1 > 0) {
- mes "[Ticket Helper]";
- mes "You have selected";
- mes "Monster ^FF0000"+ monster_race_1 +"^000000 for the";
- mes "Single Monster Race.";
- mes "The start of the race";
- mes "will be announced soon,";
- mes "so please wait. Thank you.";
- close;
- }
- else {
- mes "[Ticket Helper]";
- mes "You've chosen Monster 3?";
- mes "Alright then, please wait";
- mes "until the start of the race is";
- mes "announced. If the monster you";
- mes "picked wins, then please use this ticket to redeem your prize.";
- getitem 7514,1; //Monster_Ticket
- set monster_race_1,3;
- close;
- }
- }
- else {
- mes "[Ticket Helper]";
- mes "I'm sorry, but a Monster";
- mes "Race is now in progress.";
- mes "If you'd like to participate, then please wait for the next race.";
- close;
- }
- case 5:
- if ($@mon_time_1_1 == 1) {
- if (monster_race_1 > 0) {
- mes "[Ticket Helper]";
- mes "You have selected";
- mes "Monster ^FF0000"+ monster_race_1 +"^000000 for the";
- mes "Single Monster Race.";
- mes "The start of the race";
- mes "will be announced soon,";
- mes "so please wait. Thank you.";
- close;
- }
- else {
- mes "[Ticket Helper]";
- mes "You've chosen Monster 4?";
- mes "Alright then, please wait";
- mes "until the start of the race is";
- mes "announced. If the monster you";
- mes "picked wins, then please use this ticket to redeem your prize.";
- getitem 7514,1; //Monster_Ticket
- set monster_race_1,4;
- close;
- }
- }
- else {
- mes "[Ticket Helper]";
- mes "I'm sorry, but a Monster";
- mes "Race is now in progress.";
- mes "If you'd like to participate, then please wait for the next race.";
- close;
- }
- case 6:
- if ($@mon_time_1_1 == 1) {
- if (monster_race_1 > 0) {
- mes "[Ticket Helper]";
- mes "You have selected";
- mes "Monster ^FF0000"+ monster_race_1 +"^000000 for the";
- mes "Single Monster Race.";
- mes "The start of the race";
- mes "will be announced soon,";
- mes "so please wait. Thank you.";
- close;
- }
- else {
- mes "[Ticket Helper]";
- mes "You've chosen Monster 5?";
- mes "Alright then, please wait";
- mes "until the start of the race is";
- mes "announced. If the monster you";
- mes "picked wins, then please use this ticket to redeem your prize.";
- getitem 7514,1; //Monster_Ticket
- set monster_race_1,5;
- close;
- }
- }
- else {
- mes "[Ticket Helper]";
- mes "I'm sorry, but a Monster";
- mes "Race is now in progress.";
- mes "If you'd like to participate, then please wait for the next race.";
- close;
- }
- case 7:
+ }
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ set .@m$, .@m$ + "Monster "+.@i+":";
+ set .@m, select ("Monster Status:"+.@m$) - 1;
+ if (!.@m) {
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ mes "Monster "+.@i+" [^CC6600Luck^000000: " + getd("$@mr_1_luk"+.@i) + "] [^EE0000HP^000000: " + getd("$@mr_1_tire"+.@i) + "]";
+ close;
+ } else {
if ($@mon_time_1_1 == 1) {
- if (monster_race_1 > 0) {
+ if (monster_race_1) {
mes "[Ticket Helper]";
mes "You have selected";
mes "Monster ^FF0000"+ monster_race_1 +"^000000 for the";
@@ -1142,267 +222,51 @@ p_track01,73,22,1 script Ticket Helper#single 899,{
mes "so please wait. Thank you.";
close;
}
- else {
- mes "[Ticket Helper]";
- mes "You've chosen Monster 6?";
- mes "Alright then, please wait";
- mes "until the start of the race is";
- mes "announced. If the monster you";
- mes "picked wins, then please use this ticket to redeem your prize.";
- getitem 7514,1; //Monster_Ticket
- set monster_race_1,6;
- close;
- }
- }
- else {
mes "[Ticket Helper]";
- mes "I'm sorry, but a Monster";
- mes "Race is now in progress.";
- mes "If you'd like to participate, then please wait for the next race.";
+ mes "You've chosen Monster "+.@m+"?";
+ mes "Alright then, please wait";
+ mes "until the start of the race is";
+ mes "announced. If the monster you";
+ mes "picked wins, then please use this ticket to redeem your prize.";
+ getitem 7514,1; //Monster_Ticket
+ set monster_race_1,.@m;
close;
}
+ mes "[Ticket Helper]";
+ mes "I'm sorry, but a Monster";
+ mes "Race is now in progress.";
+ mes "If you'd like to participate, then please wait for the next race.";
+ close;
}
- close;
OnInit:
disablenpc "Ticket Helper#single";
end;
}
-p_track01,30,38,0 script Runner No. 1 -1,1,0,{
- end;
-
-OnInit:
- disablenpc "Runner No. 1";
- end;
-
+- script Runner#main -1,{
+ function WN;
OnEnable:
emotion e_gasp;
- enablenpc "Runner No. 1";
- monster "p_track01",58,38,"The 1st Racer",1725,1,"Runner No. 1::OnMyMobDead";
+ 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";
end;
OnDisable:
- disablenpc "Runner No. 1";
- killmonster "p_track01","Runner No. 1::OnMyMobDead";
- end;
-
-OnTouchNPC:
- initnpctimer;
- set $@monster_race,1;
- donpcevent "Runner No. 2::OnDisable";
- donpcevent "Runner No. 3::OnDisable";
- donpcevent "Runner No. 4::OnDisable";
- donpcevent "Runner No. 5::OnDisable";
- donpcevent "Runner No. 6::OnDisable";
- end;
-
-OnTimer1000:
- mapannounce "p_track01","We have a winner...!",bc_map,"0x33FF66";
- end;
-
-OnTimer2000:
- mapannounce "p_track01","Monster 1 is the winner of this race!",bc_map,"0x33FF66";
- end;
-
-OnTimer6000:
- mapannounce "p_track01","If you wagered on Monster 1 in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
- end;
-
-OnTimer8000:
- mapannounce "p_track01","Please remember that we can distribute Prize Medals for only 5 minutes after each race.",bc_map,"0x33FF66";
- end;
-
-OnTimer9000:
- donpcevent "Medal Distributor#single::OnEnable";
- donpcevent "Runner No. 1::OnDisable";
- killmonster "p_track01","Runner No. 1::OnMyMobDead";
- stopnpctimer;
- end;
-}
-
-p_track01,30,36,0 script Runner No. 2 -1,1,0,{
- end;
-
-OnInit:
- disablenpc "Runner No. 2";
- end;
-
-OnEnable:
- emotion e_gasp;
- enablenpc "Runner No. 2";
- monster "p_track01",58,36,"The 2nd Racer",1726,1,"Runner No. 2::OnMyMobDead";
- end;
-
-OnDisable:
- disablenpc "Runner No. 2";
- killmonster "p_track01","Runner No. 2::OnMyMobDead";
- end;
-
-OnTouchNPC:
- initnpctimer;
- set $@monster_race,2;
- donpcevent "Runner No. 1::OnDisable";
- donpcevent "Runner No. 3::OnDisable";
- donpcevent "Runner No. 4::OnDisable";
- donpcevent "Runner No. 5::OnDisable";
- donpcevent "Runner No. 6::OnDisable";
- end;
-
-OnTimer1000:
- mapannounce "p_track01","We have a winner...!",bc_map,"0x33FF66";
- end;
-
-OnTimer2000:
- mapannounce "p_track01","Monster 2 is the winner of this race!",bc_map,"0x33FF66";
- end;
-
-OnTimer6000:
- mapannounce "p_track01","If you wagered on Monster 2 in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
- end;
-
-OnTimer8000:
- mapannounce "p_track01","Please remember that we can distribute Prize Medals for only 5 minutes after each race.",bc_map,"0x33FF66";
- end;
-
-OnTimer9000:
- donpcevent "Medal Distributor#single::OnEnable";
- donpcevent "Runner No. 2::OnDisable";
- killmonster "p_track01","Runner No. 2::OnMyMobDead";
- stopnpctimer;
- end;
-}
-
-p_track01,30,34,0 script Runner No. 3 -1,1,0,{
- end;
-
-OnInit:
- disablenpc "Runner No. 3";
- end;
-
-OnEnable:
- emotion e_gasp;
- enablenpc "Runner No. 3";
- monster "p_track01",58,34,"The 3rd Racer",1727,1,"Runner No. 3::OnMyMobDead";
- end;
-
-OnDisable:
- disablenpc "Runner No. 3";
- killmonster "p_track01","Runner No. 3::OnMyMobDead";
- end;
-
-OnTouchNPC:
- initnpctimer;
- set $@monster_race,3;
- donpcevent "Runner No. 1::OnDisable";
- donpcevent "Runner No. 2::OnDisable";
- donpcevent "Runner No. 4::OnDisable";
- donpcevent "Runner No. 5::OnDisable";
- donpcevent "Runner No. 6::OnDisable";
- end;
-
-OnTimer1000:
- mapannounce "p_track01","We have a winner...!",bc_map,"0x33FF66";
- end;
-
-OnTimer2000:
- mapannounce "p_track01","Monster 3 is the winner of this race!",bc_map,"0x33FF66";
- end;
-
-OnTimer6000:
- mapannounce "p_track01","If you wagered on Monster 3 in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
- end;
-
-OnTimer8000:
- mapannounce "p_track01","Please remember that we can distribute Prize Medals for only 5 minutes after each race.",bc_map,"0x33FF66";
- end;
-
-OnTimer9000:
- donpcevent "Medal Distributor#single::OnEnable";
- donpcevent "Runner No. 3::OnDisable";
- killmonster "p_track01","Runner No. 3::OnMyMobDead";
- stopnpctimer;
- end;
-}
-
-p_track01,30,32,0 script Runner No. 4 -1,1,0,{
- end;
-
-OnInit:
- disablenpc "Runner No. 4";
- end;
-
-OnEnable:
- emotion e_gasp;
- enablenpc "Runner No. 4";
- monster "p_track01",58,32,"The 4th Racer",1728,1,"Runner No. 4::OnMyMobDead";
- end;
-
-OnDisable:
- disablenpc "Runner No. 4";
- killmonster "p_track01","Runner No. 4::OnMyMobDead";
- end;
-
-OnTouchNPC:
- initnpctimer;
- set $@monster_race,4;
- donpcevent "Runner No. 1::OnDisable";
- donpcevent "Runner No. 2::OnDisable";
- donpcevent "Runner No. 3::OnDisable";
- donpcevent "Runner No. 5::OnDisable";
- donpcevent "Runner No. 6::OnDisable";
- end;
-
-OnTimer1000:
- mapannounce "p_track01","We have a winner...!",bc_map,"0x33FF66";
- end;
-
-OnTimer2000:
- mapannounce "p_track01","Monster 4 is the winner of this race!",bc_map,"0x33FF66";
- end;
-
-OnTimer6000:
- mapannounce "p_track01","If you wagered on Monster 4 in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
- end;
-
-OnTimer8000:
- mapannounce "p_track01","Please remember that we can distribute Prize Medals for only 5 minutes after each race.",bc_map,"0x33FF66";
- end;
-
-OnTimer9000:
- donpcevent "Medal Distributor#single::OnEnable";
- donpcevent "Runner No. 4::OnDisable";
- killmonster "p_track01","Runner No. 4::OnMyMobDead";
- stopnpctimer;
- end;
-}
-
-p_track01,30,30,0 script Runner No. 5 -1,1,0,{
- end;
-
-OnInit:
- disablenpc "Runner No. 5";
- end;
-
-OnEnable:
- emotion e_gasp;
- enablenpc "Runner No. 5";
- monster "p_track01",58,30,"The 5th Racer",1730,1,"Runner No. 5::OnMyMobDead";
- end;
-
-OnDisable:
- disablenpc "Runner No. 5";
- killmonster "p_track01","Runner No. 5::OnMyMobDead";
+ disablenpc strnpcinfo(0);
+ killmonster "p_track01",strnpcinfo(0)+"::OnMyMobDead";
end;
OnTouchNPC:
initnpctimer;
- set $@monster_race,5;
- donpcevent "Runner No. 1::OnDisable";
- donpcevent "Runner No. 2::OnDisable";
- donpcevent "Runner No. 3::OnDisable";
- donpcevent "Runner No. 4::OnDisable";
- donpcevent "Runner No. 6::OnDisable";
+ set .@n, WN(0);
+ set $@monster_race,.@n;
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) {
+ if (.@n == .@i) continue;
+ donpcevent "Runner No. "+.@i+"::OnDisable";
+ }
end;
OnTimer1000:
@@ -1410,11 +274,11 @@ OnTimer1000:
end;
OnTimer2000:
- mapannounce "p_track01","Monster 5 is the winner of this race!",bc_map,"0x33FF66";
+ 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 5 in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
+ 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:
@@ -1423,66 +287,31 @@ OnTimer8000:
OnTimer9000:
donpcevent "Medal Distributor#single::OnEnable";
- donpcevent "Runner No. 5::OnDisable";
- killmonster "p_track01","Runner No. 5::OnMyMobDead";
+ donpcevent strnpcinfo(0)+"::OnDisable";
+ killmonster "p_track01",strnpcinfo(0)+"::OnMyMobDead";
stopnpctimer;
end;
-}
-
-p_track01,30,28,0 script Runner No. 6 -1,1,0,{
- end;
-
+
+ function WN {
+ set .@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");
+ }
+
OnInit:
- disablenpc "Runner No. 6";
- end;
-
-OnEnable:
- emotion e_gasp;
- enablenpc "Runner No. 6";
- monster "p_track01",58,28,"The 6th Racer",1729,1,"Runner No. 6::OnMyMobDead";
- end;
-
-OnDisable:
- disablenpc "Runner No. 6";
- killmonster "p_track01","Runner No. 6::OnMyMobDead";
- end;
-
-OnTouchNPC:
- initnpctimer;
- set $@monster_race,6;
- donpcevent "Runner No. 1::OnDisable";
- donpcevent "Runner No. 2::OnDisable";
- donpcevent "Runner No. 3::OnDisable";
- donpcevent "Runner No. 4::OnDisable";
- donpcevent "Runner No. 5::OnDisable";
- end;
-
-OnTimer1000:
- mapannounce "p_track01","We have a winner...!",bc_map,"0x33FF66";
- end;
-
-OnTimer2000:
- mapannounce "p_track01","Monster 6 is the winner of this race!",bc_map,"0x33FF66";
- end;
-
-OnTimer6000:
- mapannounce "p_track01","If you wagered on Monster 6 in this race, talk to the Medal Distributor to receive your prize!",bc_map,"0x33FF66";
- end;
-
-OnTimer8000:
- mapannounce "p_track01","Please remember that we can distribute Prize Medals for only 5 minutes after each race.",bc_map,"0x33FF66";
- end;
-
-OnTimer9000:
- donpcevent "Medal Distributor#single::OnEnable";
- donpcevent "Runner No. 6::OnDisable";
- killmonster "p_track01","Runner No. 6::OnMyMobDead";
- stopnpctimer;
+ if (compare(strnpcinfo(0),"main")) end;
+ 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,67,45,5 script Medal Distributor#single 845,{
- if (checkweight(908,200) == 0) {
+ if (!checkweight(908,200)) {
mes "[Medal Distributor]";
mes "I'm sorry, but I can't";
mes "reward you with any medals";
@@ -1491,7 +320,7 @@ p_track01,67,45,5 script Medal Distributor#single 845,{
close;
}
set .@insa,rand(1,1000);
- if (countitem(7514) > 0) {
+ if (countitem(7514)) {
mes "[Medal Distributor]";
mes "Hello there~";
mes "If you've wagered on the";
@@ -1507,9 +336,9 @@ p_track01,67,45,5 script Medal Distributor#single 845,{
mes "after the race finishes. Prize";
mes "Medals may be given to Wayne";
mes "in Hugel in exchange for items.";
- next;
- if ($@monster_race == 1) {
- if (monster_race_1 == 1) {
+ next;
+ if ($@monster_race) {
+ if (monster_race_1 == $@monster_race) {
mes "[Medal Distributor]";
mes "Oh, congratulations, you";
mes "have a winning ticket for";
@@ -1517,161 +346,7 @@ p_track01,67,45,5 script Medal Distributor#single 845,{
mes "would you like to exchange your";
mes "Racing Ticket for Prize Medals?";
next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Let me see your ticket...";
- mes "Oh! Congratulations, you";
- mes "won! May I have your name?";
- next;
- input .@input$;
- if (.@input$ == strcharinfo(0)) {
- mes "[Medal Distributor]";
- mes "Ah, "+strcharinfo(0)+".";
- mes "You can exchange this";
- mes "ticket for a Prize Medal by";
- mes "entering your ticket exchange";
- mes "number now. Your ticket";
- mes "exchange number is ^FF0000" + .@insa + "^000000.";
- next;
- input .@input; //,0,1000;
- if (.@input == 0) {
- mes "[Medal Distributor]";
- mes "Oh? You don't want";
- mes "to exchange your";
- mes "winning ticket?";
- close;
- }
- else if (.@input == .@insa) {
- mes "[Medal Distributor]";
- mes "Thank you! You entered";
- mes "the correct number...";
- mes "Everything seems to";
- mes "be in order. Alright!";
- next;
- }
- else {
- mes "[Medal Distributor]";
- mes "I'm sorry, but it seems";
- mes "that you entered the";
- mes "incorrect ticket number.";
- mes "Would you mind coming";
- mes "back again in a while?";
- close;
- }
- }
- else {
- mes "[Medal Distributor]";
- mes "What's this...?";
- mes "I think there's a problem...";
- mes "Did you enter your name";
- mes "incorrectly? Please check";
- mes "your name, and then try again.";
- close;
- }
- mes "[Medal Distributor]";
- mes "Now please accept your";
- mes "Prize Medals! You can";
- mes "exchange these with";
- mes "Wayne in Hugel for some";
- mes "interesting items. Thank you~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_1,0;
- getitem 7515,4; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if ($@monster_race == 2) {
- if (monster_race_1 == 2) {
- mes "[Medal Distributor]";
- mes "Oh, congratulations, you";
- mes "have a winning ticket for";
- mes "a Single Monster Race! So ";
- mes "would you like to exchange your";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Let me see your ticket...";
- mes "Oh! Congratulations, you";
- mes "won! May I have your name?";
- next;
- input .@input$;
- if (.@input$ == strcharinfo(0)) {
- mes "[Medal Distributor]";
- mes "Ah, "+strcharinfo(0)+".";
- mes "You can exchange this";
- mes "ticket for a Prize Medal by";
- mes "entering your ticket exchange";
- mes "number now. Your ticket";
- mes "exchange number is ^FF0000" + .@insa + "^000000.";
- next;
- input .@input; //,0,1000;
- if (.@input == 0) {
- mes "[Medal Distributor]";
- mes "Oh? You don't want";
- mes "to exchange your";
- mes "winning ticket?";
- close;
- }
- else if (.@input == .@insa) {
- mes "[Medal Distributor]";
- mes "[Medal Distributor]";
- mes "Thank you! You entered";
- mes "the correct number...";
- mes "Everything seems to";
- mes "be in order. Alright!";
- next;
- }
- else {
- mes "[Medal Distributor]";
- mes "I'm sorry, but it seems";
- mes "that you entered the";
- mes "incorrect ticket number.";
- mes "Would you mind coming";
- mes "back again in a while?";
- close;
- }
- }
- else {
- mes "[Medal Distributor]";
- mes "What's this...?";
- mes "I think there's a problem...";
- mes "Did you enter your name";
- mes "incorrectly? Please check";
- mes "your name, and then try again.";
- close;
- }
- mes "[Medal Distributor]";
- mes "Now please accept your";
- mes "Prize Medals! You can";
- mes "exchange these with";
- mes "Wayne in Hugel for some";
- mes "interesting items. Thank you~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_1,0;
- getitem 7515,4; //Marvelous_Medal
- close;
- case 2:
+ if (select("Yes, please.:No, thanks.") == 2) {
mes "[Medal Distributor]";
mes "Um, are you sure? You ";
mes "can only exchange a winning";
@@ -1680,427 +355,86 @@ p_track01,67,45,5 script Medal Distributor#single 845,{
mes "should ask me again quickly.";
close;
}
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if ($@monster_race == 3) {
- if (monster_race_1 == 3) {
mes "[Medal Distributor]";
- mes "Oh, congratulations, you";
- mes "have a winning ticket for";
- mes "a Single Monster Race! So ";
- mes "would you like to exchange your";
- mes "Racing Ticket for Prize Medals?";
+ mes "Let me see your ticket...";
+ mes "Oh! Congratulations, you";
+ mes "won! May I have your name?";
next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
+ input .@input$;
+ if (.@input$ == strcharinfo(0)) {
mes "[Medal Distributor]";
- mes "Let me see your ticket...";
- mes "Oh! Congratulations, you";
- mes "won! May I have your name?";
+ mes "Ah, "+strcharinfo(0)+".";
+ mes "You can exchange this";
+ mes "ticket for a Prize Medal by";
+ mes "entering your ticket exchange";
+ mes "number now. Your ticket";
+ mes "exchange number is ^FF0000" + .@insa + "^000000.";
next;
- input .@input$;
- if (.@input$ == strcharinfo(0)) {
+ input .@input; //,0,1000;
+ if (!.@input) {
mes "[Medal Distributor]";
- mes "Ah, "+strcharinfo(0)+".";
- mes "You can exchange this";
- mes "ticket for a Prize Medal by";
- mes "entering your ticket exchange";
- mes "number now. Your ticket";
- mes "exchange number is ^FF0000" + .@insa + "^000000.";
- next;
- input .@input; //,0,1000;
- if (.@input == 0) {
- mes "[Medal Distributor]";
- mes "Oh? You don't want";
- mes "to exchange your";
- mes "winning ticket?";
- close;
- }
- else if (.@input == .@insa) {
- mes "[Medal Distributor]";
- mes "[Medal Distributor]";
- mes "Thank you! You entered";
- mes "the correct number...";
- mes "Everything seems to";
- mes "be in order. Alright!";
- next;
- }
- else {
- mes "[Medal Distributor]";
- mes "I'm sorry, but it seems";
- mes "that you entered the";
- mes "incorrect ticket number.";
- mes "Would you mind coming";
- mes "back again in a while?";
- close;
- }
- }
- else {
- mes "[Medal Distributor]";
- mes "What's this...?";
- mes "I think there's a problem...";
- mes "Did you enter your name";
- mes "incorrectly? Please check";
- mes "your name, and then try again.";
+ mes "Oh? You don't want";
+ mes "to exchange your";
+ mes "winning ticket?";
close;
- }
- mes "[Medal Distributor]";
- mes "Now please accept your";
- mes "Prize Medals! You can";
- mes "exchange these with";
- mes "Wayne in Hugel for some";
- mes "interesting items. Thank you~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_1,0;
- getitem 7515,4; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if ($@monster_race == 4) {
- if (monster_race_1 == 4) {
- mes "[Medal Distributor]";
- mes "Oh, congratulations, you";
- mes "have a winning ticket for";
- mes "a Single Monster Race! So ";
- mes "would you like to exchange your";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Let me see your ticket...";
- mes "Oh! Congratulations, you";
- mes "won! May I have your name?";
- next;
- input .@input$;
- if (.@input$ == strcharinfo(0)) {
+ } else if (.@input == .@insa) {
mes "[Medal Distributor]";
- mes "Ah, "+strcharinfo(0)+".";
- mes "You can exchange this";
- mes "ticket for a Prize Medal by";
- mes "entering your ticket exchange";
- mes "number now. Your ticket";
- mes "exchange number is ^FF0000" + .@insa + "^000000.";
+ mes "Thank you! You entered";
+ mes "the correct number...";
+ mes "Everything seems to";
+ mes "be in order. Alright!";
next;
- input .@input; //,0,1000;
- if (.@input == 0) {
- mes "[Medal Distributor]";
- mes "Oh? You don't want";
- mes "to exchange your";
- mes "winning ticket?";
- close;
- }
- else if (.@input == .@insa) {
- mes "[Medal Distributor]";
- mes "[Medal Distributor]";
- mes "Thank you! You entered";
- mes "the correct number...";
- mes "Everything seems to";
- mes "be in order. Alright!";
- next;
- }
- else {
- mes "[Medal Distributor]";
- mes "I'm sorry, but it seems";
- mes "that you entered the";
- mes "incorrect ticket number.";
- mes "Would you mind coming";
- mes "back again in a while?";
- close;
- }
- }
- else {
mes "[Medal Distributor]";
- mes "What's this...?";
- mes "I think there's a problem...";
- mes "Did you enter your name";
- mes "incorrectly? Please check";
- mes "your name, and then try again.";
+ mes "Now please accept your";
+ mes "Prize Medals! You can";
+ mes "exchange these with";
+ mes "Wayne in Hugel for some";
+ mes "interesting items. Thank you~";
+ delitem 7514,1; //Monster_Ticket
+ set monster_race_1,0;
+ getitem 7515,4; //Marvelous_Medal
close;
}
mes "[Medal Distributor]";
- mes "Now please accept your";
- mes "Prize Medals! You can";
- mes "exchange these with";
- mes "Wayne in Hugel for some";
- mes "interesting items. Thank you~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_1,0;
- getitem 7515,4; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
+ mes "I'm sorry, but it seems";
+ mes "that you entered the";
+ mes "incorrect ticket number.";
+ mes "Would you mind coming";
+ mes "back again in a while?";
close;
}
- close;
- }
- else {
mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
+ mes "What's this...?";
+ mes "I think there's a problem...";
+ mes "Did you enter your name";
+ mes "incorrectly? Please check";
+ mes "your name, and then try again.";
close;
}
- }
- else if ($@monster_race == 5) {
- if (monster_race_1 == 5) {
- mes "[Medal Distributor]";
- mes "Oh, congratulations, you";
- mes "have a winning ticket for";
- mes "a Single Monster Race! So ";
- mes "would you like to exchange your";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Let me see your ticket...";
- mes "Oh! Congratulations, you";
- mes "won! May I have your name?";
- next;
- input .@input$;
- if (.@input$ == strcharinfo(0)) {
- mes "[Medal Distributor]";
- mes "Ah, "+strcharinfo(0)+".";
- mes "You can exchange this";
- mes "ticket for a Prize Medal by";
- mes "entering your ticket exchange";
- mes "number now. Your ticket";
- mes "exchange number is ^FF0000" + .@insa + "^000000.";
- next;
- input .@input; //,0,1000;
- if (.@input == 0) {
- mes "[Medal Distributor]";
- mes "Oh? You don't want";
- mes "to exchange your";
- mes "winning ticket?";
- close;
- }
- else if (.@input == .@insa) {
- mes "[Medal Distributor]";
- mes "[Medal Distributor]";
- mes "Thank you! You entered";
- mes "the correct number...";
- mes "Everything seems to";
- mes "be in order. Alright!";
- next;
- }
- else {
- mes "[Medal Distributor]";
- mes "I'm sorry, but it seems";
- mes "that you entered the";
- mes "incorrect ticket number.";
- mes "Would you mind coming";
- mes "back again in a while?";
- close;
- }
- }
- else {
- mes "[Medal Distributor]";
- mes "What's this...?";
- mes "I think there's a problem...";
- mes "Did you enter your name";
- mes "incorrectly? Please check";
- mes "your name, and then try again.";
- close;
- }
- mes "[Medal Distributor]";
- mes "Now please accept your";
- mes "Prize Medals! You can";
- mes "exchange these with";
- mes "Wayne in Hugel for some";
- mes "interesting items. Thank you~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_1,0;
- getitem 7515,4; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if ($@monster_race == 6) {
- if (monster_race_1 == 6) {
- mes "[Medal Distributor]";
- mes "Oh, congratulations, you";
- mes "have a winning ticket for";
- mes "a Single Monster Race! So ";
- mes "would you like to exchange your";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Let me see your ticket...";
- mes "Oh! Congratulations, you";
- mes "won! May I have your name?";
- next;
- input .@input$;
- if (.@input$ == strcharinfo(0)) {
- mes "[Medal Distributor]";
- mes "Ah, "+strcharinfo(0)+".";
- mes "You can exchange this";
- mes "ticket for a Prize Medal by";
- mes "entering your ticket exchange";
- mes "number now. Your ticket";
- mes "exchange number is ^FF0000" + .@insa + "^000000.";
- next;
- input .@input; //,0,1000;
- if (.@input == 0) {
- mes "[Medal Distributor]";
- mes "Oh? You don't want";
- mes "to exchange your";
- mes "winning ticket?";
- close;
- }
- else if (.@input == .@insa) {
- mes "[Medal Distributor]";
- mes "[Medal Distributor]";
- mes "Thank you! You entered";
- mes "the correct number...";
- mes "Everything seems to";
- mes "be in order. Alright!";
- next;
- }
- else {
- mes "[Medal Distributor]";
- mes "I'm sorry, but it seems";
- mes "that you entered the";
- mes "incorrect ticket number.";
- mes "Would you mind coming";
- mes "back again in a while?";
- close;
- }
- }
- else {
- mes "[Medal Distributor]";
- mes "What's this...?";
- mes "I think there's a problem...";
- mes "Did you enter your name";
- mes "incorrectly? Please check";
- mes "your name, and then try again.";
- close;
- }
- mes "[Medal Distributor]";
- mes "Now please accept your";
- mes "Prize Medals! You can";
- mes "exchange these with";
- mes "Wayne in Hugel for some";
- mes "interesting items. Thank you~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_1,0;
- getitem 7515,4; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else {
- mes "[Medal Distributor]";
- mes "Hello there~";
- mes "If you've wagered on the";
- mes "winning monster in a recent";
- mes "race, then you can exchange";
- mes "your game ticket here for";
- mes "some Prize Medals.";
- next;
mes "[Medal Distributor]";
- mes "Please remember that you can";
- mes "only exchange winning Game";
- mes "Tickets for Prize Medals right";
- mes "after the race finishes. Prize";
- mes "Medals may be given to Wayne";
- mes "in Hugel in exchange for items.";
+ mes "You may not have wagered";
+ mes "on the winning monster in";
+ mes "the last race, but I hope that";
+ mes "you get lucky next time~";
close;
}
}
- else {
- mes "[Medal Distributor]";
- mes "Hello there~";
- mes "If you've wagered on the";
- mes "winning monster in a recent";
- mes "race, then you can exchange";
- mes "your game ticket here for";
- mes "some Prize Medals.";
- next;
- mes "[Medal Distributor]";
- mes "Please remember that you can";
- mes "only exchange winning Game";
- mes "Tickets for Prize Medals right";
- mes "after the race finishes. Prize";
- mes "Medals may be given to Wayne";
- mes "in Hugel in exchange for items.";
- close;
- }
- end;
-
-OnInit:
- disablenpc "Medal Distributor#single";
- end;
+ mes "[Medal Distributor]";
+ mes "Hello there~";
+ mes "If you've wagered on the";
+ mes "winning monster in a recent";
+ mes "race, then you can exchange";
+ mes "your game ticket here for";
+ mes "some Prize Medals.";
+ next;
+ mes "[Medal Distributor]";
+ mes "Please remember that you can";
+ mes "only exchange winning Game";
+ mes "Tickets for Prize Medals right";
+ mes "after the race finishes. Prize";
+ mes "Medals may be given to Wayne";
+ mes "in Hugel in exchange for items.";
+ close;
OnEnable:
emotion e_gasp;
@@ -2146,11 +480,19 @@ OnTimer249000:
OnTimer252000:
mapannounce "p_track01","We hope that you enjoyed the Monster Race arena. Come back again soon~",bc_map,"0xFFFF00";
- donpcevent "starting#1::OnDisable";
- donpcevent "starting#2::OnDisable";
- donpcevent "starting#3::OnDisable";
- donpcevent "starting#5::OnDisable";
- donpcevent "starting#6::OnDisable";
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) {
+ donpcevent "starting#"+.@i+"::OnDisable";
+ setd "$@mr_1_luk"+.@i,0;
+ setd "$@mr_1_tire"+.@i,0;
+ }
+ set .@c, 1;
+ while (.@c <= 6) {
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) {
+ disablenpc "Tire"+.@c+"#"+.@i;
+ disablenpc "Luk"+.@c+"#"+.@i;
+ }
+ set .@c, .@c + 1;
+ }
end;
OnTimer300000:
@@ -2168,6 +510,10 @@ OnTimer342000:
disablenpc "Medal Distributor#single";
stopnpctimer;
end;
+
+OnInit:
+ disablenpc "Medal Distributor#single";
+ end;
}
p_track01,76,36,1 script Exit Guide#single 798,{
@@ -2184,30 +530,7 @@ p_track01,76,36,1 script Exit Guide#single 798,{
mes "you outside. Would you like";
mes "to leave the arena right now?";
next;
- switch(select("Yes:No")) {
- case 1:
- if (countitem(7514) == 0) {
- mes "[Exit Guide]";
- mes "Thank you for";
- mes "your patronage, and";
- mes "I hope that you come";
- mes "visit us again soon~";
- }
- else {
- mes "[Exit Guide]";
- mes "In accordance with our";
- mes "policies, I must take your";
- mes "Racing Ticket before you leave.";
- mes "Thank you for your patronage,";
- mes "and I hope you enjoy your time";
- mes "here in the Monster Race Arena.";
- delitem 7514,1; //Monster_Ticket
- }
- set monster_race_1,0;
- close2;
- warp "hugel",63,73;
- end;
- case 2:
+ if (select("Yes:No") == 2) {
mes "[Exit Guide]";
mes "Alright, then.";
mes "Just let me know";
@@ -2215,6 +538,26 @@ p_track01,76,36,1 script Exit Guide#single 798,{
mes "ready to leave.";
close;
}
+ if (!countitem(7514)) {
+ mes "[Exit Guide]";
+ mes "Thank you for";
+ mes "your patronage, and";
+ mes "I hope that you come";
+ mes "visit us again soon~";
+ } else {
+ mes "[Exit Guide]";
+ mes "In accordance with our";
+ mes "policies, I must take your";
+ mes "Racing Ticket before you leave.";
+ mes "Thank you for your patronage,";
+ mes "and I hope you enjoy your time";
+ mes "here in the Monster Race Arena.";
+ delitem 7514,1; //Monster_Ticket
+ }
+ set monster_race_1,0;
+ close2;
+ warp "hugel",63,73;
+ end;
}
hugel,58,72,6 script Eckar Ellebird#single 798,{
@@ -2224,8 +567,7 @@ hugel,58,72,6 script Eckar Ellebird#single 798,{
mes "Monster Race Arena.";
mes "How may I help you today?";
next;
- switch(select("Monster Race Info:Enter Monster Race")) {
- case 1:
+ if (select("Monster Race Info:Enter Monster Race") == 1) {
mes "[Eckar Ellebird]";
mes "Monster Races originated from";
mes "simple children's games in which";
@@ -2264,9 +606,6 @@ hugel,58,72,6 script Eckar Ellebird#single 798,{
mes "Keep in mind that winning Racing Tickets can only be exchanged for";
mes "Prize Medals during a 5 minute window after the end of the race.";
next;
- break;
- case 2:
- break;
}
mes "[Eckar Ellebird]";
mes "The entrance fee for all races";
@@ -2282,188 +621,122 @@ hugel,58,72,6 script Eckar Ellebird#single 798,{
mes "Would you like wager on";
mes "a Single Monster Race?";
next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- if (checkweight(908,700) == 0) {
+ if (select("Yes, please.:No, thanks.") == 2) {
+ mes "[Eckar Ellebird]";
+ mes "Very well. I hope that";
+ mes "you enjoy your time here";
+ mes "in the Monster Race Arena~";
+ close;
+ }
+ if (!checkweight(908,700)) {
+ mes "[Eckar Ellebird]";
+ mes "Oh, wow. You're carrying";
+ mes "an awful lot of stuff... Yeah,";
+ mes "you better put some of it away";
+ mes "in Kafra Storage or something.";
+ close;
+ }
+ 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;
+ }
+ if (countitem(7514)) {
+ mes "[Eckar Ellebird]";
+ mes "Hm? What are you doing";
+ mes "with an expired Racing Ticket?";
+ mes "Well, I better get rid of it for you before it can get mixed up";
+ mes "with your new Racing Ticket.";
+ delitem 7514,1; //Monster_Ticket
+ next;
+ if ($@mon_time_1_1 == 1) {
mes "[Eckar Ellebird]";
- mes "Oh, wow. You're carrying";
- mes "an awful lot of stuff... Yeah,";
- mes "you better put some of it away";
- mes "in Kafra Storage or something.";
+ mes "Alright, I think you";
+ mes "should be all set. I hope";
+ mes "that you enjoy the race~";
+ mes "Let me guide you inside";
+ mes "the Monster Race Arena now.";
+ set zeny,zeny-2000;
+ set 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.";
+ close;
+ }
+ } else {
+ if ($@mon_time_1_1 == 1) {
+ 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.";
+ set zeny,zeny-2000;
+ set 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...";
close;
}
- if (Zeny > 1999) {
- if (countitem(7514) > 0) {
- mes "[Eckar Ellebird]";
- mes "Hm? What are you doing";
- mes "with an expired Racing Ticket?";
- mes "Well, I better get rid of it for you before it can get mixed up";
- mes "with your new Racing Ticket.";
- delitem 7514,1; //Monster_Ticket
- next;
- if ($@mon_time_1_1 == 1) {
- mes "[Eckar Ellebird]";
- mes "Alright, I think you";
- mes "should be all set. I hope";
- mes "that you enjoy the race~";
- mes "Let me guide you inside";
- mes "the Monster Race Arena now.";
- set zeny,zeny-2000;
- set 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.";
- close;
- }
- else {
- if (.@monster_race == 0) {
- 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";
- mes "to watch, the fee is 500 zeny";
- mes "for spectators. Would you like to enter the Monster Race Arena?";
- next;
- switch(select("Enter:Cancel")) {
- case 1:
- if (Zeny > 499) {
- mes "[Eckar Ellebird]";
- mes "Thank you~";
- mes "I hope you enjoy";
- mes "watching this race!";
- set zeny,zeny-500;
- set monster_race_1,0;
- close2;
- warp "p_track01",75,41;
- end;
- }
- else {
- mes "[Eckar Ellebird]";
- mes "I'm sorry, but you don't";
- mes "have enough money to pay";
- mes "the 500 zeny spectator fee.";
- close;
- }
- case 2:
- mes "[Eckar Ellebird]";
- mes "Alright, then. If you'd like";
- mes "to wager on a monster";
- mes "race, please wait for the";
- mes "current race to finish. I hope";
- mes "that you enjoy your time here";
- mes "in the Monster Race Arena~";
- close;
- }
- }
- else {
- mes "[Eckar Ellebird]";
- mes "I'm sorry, but a monster";
- mes "race has just ended, so we're";
- mes "having the 5 minute period in";
- mes "which the winners can claim";
- mes "their Prize Medals. The gate";
- mes "will open soon, so please wait.";
- close;
- }
- }
- }
- else {
- if ($@mon_time_1_1 == 1) {
- 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.";
- set zeny,zeny-2000;
- set 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...";
- close;
- }
- else {
- if ($@monster_race == 0) {
- 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";
- mes "to watch, the fee is 500 zeny";
- mes "for spectators. Would you like to enter the Monster Race Arena?";
- next;
- switch(select("Enter:Cancel")) {
- case 1:
- if (Zeny > 499) {
- mes "[Eckar Ellebird]";
- mes "Thank you~";
- mes "I hope you enjoy";
- mes "watching this race!";
- set zeny,zeny-500;
- set monster_race_1,0;
- close2;
- warp "p_track01",75,41;
- end;
- }
- else {
- mes "[Eckar Ellebird]";
- mes "I'm sorry, but you don't";
- mes "have enough money to pay";
- mes "the 500 zeny spectator fee.";
- close;
- }
- case 2:
- mes "[Eckar Ellebird]";
- mes "Alright, then. If you'd like";
- mes "to wager on a monster";
- mes "race, please wait for the";
- mes "current race to finish. I hope";
- mes "that you enjoy your time here";
- mes "in the Monster Race Arena~";
- close;
- }
- }
- else {
- mes "[Eckar Ellebird]";
- mes "I'm sorry, but a monster";
- mes "race has just ended, so we're";
- mes "having the 5 minute period in";
- mes "which the winners can claim";
- mes "their Prize Medals. The gate";
- mes "will open soon, so please wait.";
- close;
- }
- }
- }
- }
- else {
+ }
+ 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";
+ mes "to watch, the fee is 500 zeny";
+ mes "for spectators. Would you like to enter the Monster Race Arena?";
+ next;
+ if (select("Enter:Cancel") == 2) {
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. ";
+ mes "Alright, then. If you'd like";
+ mes "to wager on a monster";
+ mes "race, please wait for the";
+ mes "current race to finish. I hope";
+ mes "that you enjoy your time here";
+ mes "in the Monster Race Arena~";
close;
}
- case 2:
+ if (Zeny > 499) {
+ mes "[Eckar Ellebird]";
+ mes "Thank you~";
+ mes "I hope you enjoy";
+ mes "watching this race!";
+ set zeny,zeny-500;
+ set monster_race_1,0;
+ close2;
+ warp "p_track01",75,41;
+ end;
+ }
mes "[Eckar Ellebird]";
- mes "Very well. I hope that";
- mes "you enjoy your time here";
- mes "in the Monster Race Arena~";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 500 zeny spectator fee.";
close;
}
- close;
+ mes "[Eckar Ellebird]";
+ mes "I'm sorry, but a monster";
+ mes "race has just ended, so we're";
+ mes "having the 5 minute period in";
+ mes "which the winners can claim";
+ mes "their Prize Medals. The gate";
+ mes "will open soon, so please wait.";
+ close;
}
p_track01,39,49,3 script Game Guide#single 845,{
@@ -2565,21 +838,15 @@ p_track01,39,49,3 script Game Guide#single 845,{
}
- script starting_1 -1,{
- end;
-
OnDisable:
for(set .@i,1; .@i<7; set .@i,.@i+1)
- enablenpc "Luk"+((strnpcinfo(2)=="1")?"":strnpcinfo(2))+"#"+.@i;
+ enablenpc "Luk1#"+.@i;
for(set .@i,1; .@i<7; set .@i,.@i+1)
- enablenpc "Tire"+((strnpcinfo(2)=="1")?"":strnpcinfo(2))+"#"+.@i;
+ enablenpc "Tire1#"+.@i;
setd "$@mr_1_luk"+strnpcinfo(2),0;
setd "$@mr_1_tire"+strnpcinfo(2),0;
end;
-OnInit:
- disablenpc strnpcinfo(0);
- end;
-
OnTouchNPC:
set .@start,rand(1,100);
if (.@start < 11) set .@speed,60;
@@ -2594,15 +861,14 @@ OnTouchNPC:
else set .@speed,150;
sc_start SC_WALKSPEED,5000,.@speed;
end;
-}
-
-- script Luk_1 -1,{
- end;
-
+
OnInit:
disablenpc strnpcinfo(0);
end;
+}
+
+- script Luk_1 -1,{
OnTouchNPC:
set .@start,rand(1,100);
if (.@start < 61) set .@speed,110;
@@ -2612,15 +878,13 @@ OnTouchNPC:
else set .@speed,150;
sc_start SC_WALKSPEED,10000,.@speed;
end;
-}
-
-- script Luk_2 -1,{
- end;
-
+
OnInit:
disablenpc strnpcinfo(0);
end;
+}
+- script Luk_2 -1,{
OnTouchNPC:
set .@start,rand(1,100);
if (.@start < 61) set .@time,1000;
@@ -2629,14 +893,13 @@ OnTouchNPC:
else if (.@start < 91) set .@time,4000;
if (.@time) sc_start SC_STUN,.@time,0;
end;
-}
-
-- script Tire_1 -1,{
- end;
+
OnInit:
disablenpc strnpcinfo(0);
end;
+}
+- script Tire_1 -1,{
OnTouchNPC:
set .@start,rand(1,100);
if (.@start < 61) set .@time,1000;
@@ -2645,6 +908,10 @@ OnTouchNPC:
else if (.@start < 91) set .@time,4000;
if (.@time) sc_start SC_SLEEP,.@time,0;
end;
+
+OnInit:
+ disablenpc strnpcinfo(0);
+ end;
}
p_track01,56,38,0 duplicate(starting_1) starting#1 -1,0,0
@@ -2654,10 +921,10 @@ p_track01,56,32,0 duplicate(starting_1) starting#4 -1,0,0
p_track01,56,30,0 duplicate(starting_1) starting#5 -1,0,0
p_track01,56,28,0 duplicate(starting_1) starting#6 -1,0,0
-p_track01,33,38,0 duplicate(Luk_1) Luk#1 -1,0,0
-p_track01,37,38,0 duplicate(Luk_1) Luk#2 -1,0,0
-p_track01,53,38,0 duplicate(Luk_1) Luk#3 -1,0,0
-p_track01,45,38,0 duplicate(Luk_1) Luk#4 -1,0,0
+p_track01,33,38,0 duplicate(Luk_1) Luk1#1 -1,0,0
+p_track01,37,38,0 duplicate(Luk_1) Luk1#2 -1,0,0
+p_track01,53,38,0 duplicate(Luk_1) Luk1#3 -1,0,0
+p_track01,45,38,0 duplicate(Luk_1) Luk1#4 -1,0,0
p_track01,33,36,0 duplicate(Luk_1) Luk2#1 -1,0,0
p_track01,37,36,0 duplicate(Luk_1) Luk2#2 -1,0,0
p_track01,53,36,0 duplicate(Luk_1) Luk2#3 -1,0,0
@@ -2679,8 +946,8 @@ p_track01,37,28,0 duplicate(Luk_1) Luk6#2 -1,0,0
p_track01,53,28,0 duplicate(Luk_1) Luk6#3 -1,0,0
p_track01,45,28,0 duplicate(Luk_1) Luk6#4 -1,0,0
-p_track01,49,38,0 duplicate(Luk_2) Luk#5 -1,0,0
-p_track01,41,38,0 duplicate(Luk_2) Luk#6 -1,0,0
+p_track01,49,38,0 duplicate(Luk_2) Luk1#5 -1,0,0
+p_track01,41,38,0 duplicate(Luk_2) Luk1#6 -1,0,0
p_track01,49,36,0 duplicate(Luk_2) Luk2#5 -1,0,0
p_track01,41,36,0 duplicate(Luk_2) Luk2#6 -1,0,0
p_track01,49,34,0 duplicate(Luk_2) Luk3#5 -1,0,0
@@ -2692,12 +959,12 @@ p_track01,41,30,0 duplicate(Luk_2) Luk5#6 -1,0,0
p_track01,49,28,0 duplicate(Luk_2) Luk6#5 -1,0,0
p_track01,41,28,0 duplicate(Luk_2) Luk6#6 -1,0,0
-p_track01,43,38,0 duplicate(Tire_1) Tire#1 -1,0,0
-p_track01,39,38,0 duplicate(Tire_1) Tire#2 -1,0,0
-p_track01,35,38,0 duplicate(Tire_1) Tire#3 -1,0,0
-p_track01,55,38,0 duplicate(Tire_1) Tire#4 -1,0,0
-p_track01,51,38,0 duplicate(Tire_1) Tire#5 -1,0,0
-p_track01,47,38,0 duplicate(Tire_1) Tire#6 -1,0,0
+p_track01,43,38,0 duplicate(Tire_1) Tire1#1 -1,0,0
+p_track01,39,38,0 duplicate(Tire_1) Tire1#2 -1,0,0
+p_track01,35,38,0 duplicate(Tire_1) Tire1#3 -1,0,0
+p_track01,55,38,0 duplicate(Tire_1) Tire1#4 -1,0,0
+p_track01,51,38,0 duplicate(Tire_1) Tire1#5 -1,0,0
+p_track01,47,38,0 duplicate(Tire_1) Tire1#6 -1,0,0
p_track01,43,36,0 duplicate(Tire_1) Tire2#1 -1,0,0
p_track01,39,36,0 duplicate(Tire_1) Tire2#2 -1,0,0
p_track01,35,36,0 duplicate(Tire_1) Tire2#3 -1,0,0
@@ -2733,12 +1000,6 @@ p_track01,47,28,0 duplicate(Tire_1) Tire6#6 -1,0,0
// Monstrer Race - Dual Monster Race
//============================================================
hugel,47,56,0 script #race_timer2-1 -1,{
-OnInit:
- enablenpc "#race_timer2-1";
- set $@mon_time_2_1,2;
- initnpctimer;
- end;
-
OnEnable:
enablenpc "#race_timer2-1";
set $@mon_time_2_1,2;
@@ -2784,14 +1045,15 @@ OnTimer330000:
donpcevent "#race_timer2-1::OnDisable";
stopnpctimer;
end;
-}
-
-p_track02,42,23,0 script #race_timer2-2 -1,{
+
OnInit:
- disablenpc "#race_timer2-2";
- set $@mon_time_2_2,0;
+ enablenpc "#race_timer2-1";
+ set $@mon_time_2_1,2;
+ initnpctimer;
end;
+}
+p_track02,42,23,0 script #race_timer2-2 -1,{
OnEnable:
enablenpc "#race_timer2-2";
set $@mon_time_2_2,0;
@@ -2841,6 +1103,11 @@ OnTimer300000:
donpcevent "#baphomet1::OnEnable";
stopnpctimer;
end;
+
+OnInit:
+ disablenpc "#race_timer2-2";
+ set $@mon_time_2_2,0;
+ end;
}
p_track02,80,43,0 script #race_timer2-3 -1,{
@@ -2900,7 +1167,7 @@ OnTimer252000:
OnTimer300000:
mapwarp "p_track02","hugel",63,73;
- enablenpc "Medal Distributor#medal";
+ disablenpc "Medal Distributor#medal";
donpcevent "#race_timer2-1::OnEnable";
set $@mon_race_2_1,0;
set $@mon_race_2_2,0;
@@ -2917,8 +1184,7 @@ hugel,62,69,1 script Eckar Erenes#double 798,{
mes "the village of Hugel!";
mes "How may I help you?";
next;
- switch(select("Monster Race Info:Enter Monster Race")) {
- case 1:
+ if (select("Monster Race Info:Enter Monster Race") == 1) {
mes "[Eckar Erenes]";
mes "Monster Races originated from";
mes "simple children's games in which";
@@ -2957,9 +1223,6 @@ hugel,62,69,1 script Eckar Erenes#double 798,{
mes "Keep in mind that winning Racing Tickets can only be exchanged for";
mes "Prize Medals during a 5 minute window after the end of the race.";
next;
- break;
- case 2:
- break;
}
mes "[Eckar Erenes]";
mes "The entrance fee for all races";
@@ -2975,197 +1238,132 @@ hugel,62,69,1 script Eckar Erenes#double 798,{
mes "Would you like to wager";
mes "on a Dual Monster Race?";
next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- if (checkweight(909,700) == 0) {
+ if (select("Yes, please.:No, thanks.") == 2) {
+ mes "[Eckar Erenes]";
+ mes "Very well. I hope that";
+ mes "you enjoy your time here";
+ mes "in the Monster Race Arena~";
+ close;
+ }
+ if (!checkweight(909,700)) {
+ mes "[Eckar Erenes]";
+ mes "Hmm... You're toting";
+ mes "too many things with you";
+ mes "right now. You better put";
+ mes "some of your stuff away in";
+ mes "Kafra Storage before you can";
+ mes "wager on any monster races...";
+ close;
+ }
+ if (Zeny < 2000) {
+ mes "[Eckar Erenes]";
+ mes "I'm sorry, but you";
+ mes "don't have enough";
+ mes "money to pay the";
+ mes "2,000 zeny entrance fee. ";
+ close;
+ }
+ if (countitem(7514)) {
+ mes "[Eckar Erenes]";
+ mes "Hm? What are you doing";
+ mes "with an expired Racing Ticket?";
+ mes "Well, I better get rid of it for you before it can get mixed up";
+ mes "with your new Racing Ticket.";
+ delitem 7514,1; //Monster_Ticket
+ next;
+ if ($@mon_time_2_1 == 1) {
mes "[Eckar Erenes]";
- mes "Hmm... You're toting";
- mes "too many things with you";
- mes "right now. You better put";
- mes "some of your stuff away in";
- mes "Kafra Storage before you can";
- mes "wager on any monster races...";
+ mes "Alright, I think you";
+ mes "should be all set. I hope";
+ mes "that you enjoy the race~";
+ mes "Let me guide you inside";
+ mes "the Monster Race Arena now.";
+ set zeny,zeny-2000;
+ set monster_race_2_1,0;
+ set monster_race_2_2,0;
+ close2;
+ warp "p_track02",75,41;
+ end;
+ }
+ else if ($@mon_time_2_1 == 2) {
+ mes "[Eckar Erenes]";
+ mes "We're still finishing our";
+ mes "preparations for the next";
+ mes "Double Monster Race, so";
+ mes "we ask that you please";
+ mes "wait a little while longer...";
close;
}
- if (Zeny > 1999) {
- if (countitem(7514) > 0) {
- mes "[Eckar Erenes]";
- mes "Hm? What are you doing";
- mes "with an expired Racing Ticket?";
- mes "Well, I better get rid of it for you before it can get mixed up";
- mes "with your new Racing Ticket.";
- delitem 7514,1; //Monster_Ticket
- next;
- if ($@mon_time_2_1 == 1) {
- mes "[Eckar Erenes]";
- mes "Alright, I think you";
- mes "should be all set. I hope";
- mes "that you enjoy the race~";
- mes "Let me guide you inside";
- mes "the Monster Race Arena now.";
- set zeny,zeny-2000;
- set monster_race_2_1,0;
- set monster_race_2_2,0;
- close2;
- warp "p_track02",75,41;
- end;
- }
- else if ($@mon_time_2_1 == 2) {
- mes "[Eckar Erenes]";
- mes "We're still finishing our";
- mes "preparations for the next";
- mes "Double Monster Race, so";
- mes "we ask that you please";
- mes "wait a little while longer...";
- close;
- }
- else {
- if (($@mon_time_2_1 == 0) || ($@mon_time_2_2 == 0)) {
- 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";
- mes "to watch, the fee is 500 zeny";
- mes "for spectators. Would you like to enter the Monster Race Arena?";
- next;
- switch(select("Enter:Cancel")) {
- case 1:
- if (Zeny > 499) {
- mes "[Eckar Erenes]";
- mes "Thank you~";
- mes "I hope you enjoy";
- mes "watching this race!";
- set zeny,zeny-500;
- set monster_race_2_1,0;
- set monster_race_2_2,0;
- close2;
- warp "p_track02",75,41;
- end;
- }
- else {
- mes "[Eckar Erenes]";
- mes "I'm sorry, but you don't";
- mes "have enough money to pay";
- mes "the 500 zeny spectator fee.";
- close;
- }
- case 2:
- mes "[Eckar Erenes]";
- mes "Alright, then. If you'd like";
- mes "to wager on a monster";
- mes "race, please wait for the";
- mes "current race to finish. I hope";
- mes "that you enjoy your time here";
- mes "in the Monster Race Arena~";
- close;
- }
- }
- else {
- mes "[Eckar Erenes]";
- mes "I'm sorry, but a monster";
- mes "race has just ended, so we're";
- mes "having the 5 minute period in";
- mes "which the winners can claim";
- mes "their Prize Medals. The gate";
- mes "will open soon, so please wait.";
- close;
- }
- }
- }
- else {
- if ($@mon_time_2_1 == 1) {
- mes "[Eckar Erenes]";
- mes "Thanks, I hope that";
- mes "you enjoy this race.";
- mes "Let me guide you now";
- mes "to the Monster Race Arena.";
- set zeny,zeny-2000;
- set monster_race_2_1,0;
- set monster_race_2_2,0;
- close2;
- warp "p_track02",75,41;
- end;
- }
- else if ($@mon_time_2_1 == 2) {
- mes "[Eckar Erenes]";
- mes "We're still finishing our";
- mes "preparations for the next";
- mes "Double Monster Race, so";
- mes "we ask that you please";
- mes "wait a little while longer...";
- close;
- }
- else {
- if (($@mon_time_2_1 == 0) || ($@mon_time_2_2 == 0)) {
- 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";
- mes "to watch, the fee is 500 zeny";
- mes "for spectators. Would you like to enter the Monster Race Arena?";
- next;
- switch(select("Enter:Cancel")) {
- case 1:
- if (Zeny > 499) {
- mes "[Eckar Erenes]";
- mes "Thank you~";
- mes "I hope you enjoy";
- mes "watching this race!";
- set zeny,zeny-500;
- set monster_race_2_1,0;
- set monster_race_2_2,0;
- close2;
- warp "p_track02",75,41;
- end;
- }
- else {
- mes "[Eckar Erenes]";
- mes "I'm sorry, but you don't";
- mes "have enough money to pay";
- mes "the 500 zeny spectator fee.";
- close;
- }
- case 2:
- mes "[Eckar Erenes]";
- mes "Alright, then. If you'd like";
- mes "to wager on a monster";
- mes "race, please wait for the";
- mes "current race to finish. I hope";
- mes "that you enjoy your time here";
- mes "in the Monster Race Arena~";
- close;
- }
- }
- else {
- mes "[Eckar Erenes]";
- mes "I'm sorry, but a monster";
- mes "race has just ended, so we're";
- mes "having the 5 minute period in";
- mes "which the winners can claim";
- mes "their Prize Medals. The gate";
- mes "will open soon, so please wait.";
- close;
- }
- }
- }
+ } else {
+ if ($@mon_time_2_1 == 1) {
+ mes "[Eckar Erenes]";
+ mes "Thanks, I hope that";
+ mes "you enjoy this race.";
+ mes "Let me guide you now";
+ mes "to the Monster Race Arena.";
+ set zeny,zeny-2000;
+ set monster_race_2_1,0;
+ set monster_race_2_2,0;
+ close2;
+ warp "p_track02",75,41;
+ end;
+ } else if ($@mon_time_2_1 == 2) {
+ mes "[Eckar Erenes]";
+ mes "We're still finishing our";
+ mes "preparations for the next";
+ mes "Double Monster Race, so";
+ mes "we ask that you please";
+ mes "wait a little while longer...";
+ close;
}
- else {
+ }
+ if (!$@mon_time_2_1 || !$@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";
+ mes "to watch, the fee is 500 zeny";
+ mes "for spectators. Would you like to enter the Monster Race Arena?";
+ next;
+ if (select("Enter:Cancel") == 2) {
mes "[Eckar Erenes]";
- mes "I'm sorry, but you";
- mes "don't have enough";
- mes "money to pay the";
- mes "2,000 zeny entrance fee. ";
+ mes "Alright, then. If you'd like";
+ mes "to wager on a monster";
+ mes "race, please wait for the";
+ mes "current race to finish. I hope";
+ mes "that you enjoy your time here";
+ mes "in the Monster Race Arena~";
close;
}
- case 2:
+ if (Zeny > 499) {
+ mes "[Eckar Erenes]";
+ mes "Thank you~";
+ mes "I hope you enjoy";
+ mes "watching this race!";
+ set zeny,zeny-500;
+ set monster_race_2_1,0;
+ set monster_race_2_2,0;
+ close2;
+ warp "p_track02",75,41;
+ end;
+ }
mes "[Eckar Erenes]";
- mes "Very well. I hope that";
- mes "you enjoy your time here";
- mes "in the Monster Race Arena~";
- close;
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 500 zeny spectator fee.";
+ close;
}
+ mes "[Eckar Erenes]";
+ mes "I'm sorry, but a monster";
+ mes "race has just ended, so we're";
+ mes "having the 5 minute period in";
+ mes "which the winners can claim";
+ mes "their Prize Medals. The gate";
+ mes "will open soon, so please wait.";
+ close;
}
p_track02,73,22,1 script Ticket Helper#2 899,{
- if (checkweight(908,200) == 0) {
+ if (!checkweight(908,200)) {
mes "[Ticket Helper]";
mes "Welcome to the";
mes "Monster Race Arena.";
@@ -3182,7 +1380,7 @@ p_track02,73,22,1 script Ticket Helper#2 899,{
mes "too many things...";
close;
}
- if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
+ if (!monster_race_2_1 && !monster_race_2_2) {
mes "[Ticket Helper]";
mes "Hello there!";
mes "Interested in wagering on";
@@ -3193,12 +1391,8 @@ p_track02,73,22,1 script Ticket Helper#2 899,{
next;
switch(select("Check Monster Status:Wager on Race:Monster Race?:Cancel")) {
case 1:
- mes "Monster 1 [^CC6600Luck^000000: " + $@mon_r02_Luk1 + "] [^EE0000HP^000000: " + $@mon_r02_tire1 + "]";
- mes "Monster 2 [^CC6600Luck^000000: " + $@mon_r02_Luk2 + "] [^EE0000HP^000000: " + $@mon_r02_Tire2 + "]";
- mes "Monster 3 [^CC6600Luck^000000: " + $@mon_r02_Luk3 + "] [^EE0000HP^000000: " + $@mon_r02_Tire3 + "]";
- mes "Monster 4 [^CC6600Luck^000000: " + $@mon_r02_Luk4 + "] [^EE0000HP^000000: " + $@mon_r02_Tire4 + "]";
- mes "Monster 5 [^CC6600Luck^000000: " + $@mon_r02_Luk5 + "] [^EE0000HP^000000: " + $@mon_r02_Tire5 + "]";
- mes "Monster 6 [^CC6600Luck^000000: " + $@mon_r02_Luk6 + "] [^EE0000HP^000000: " + $@mon_r02_Tire6 + "]";
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ mes "Monster "+.@i+" [^CC6600Luck^000000: " + getd("$@mon_r02_Luk"+.@i) + "] [^EE0000HP^000000: " + getd("$@mon_r02_tire"+.@i) + "]";
close;
case 2:
mes "[Ticket Helper]";
@@ -3215,473 +1409,37 @@ p_track02,73,22,1 script Ticket Helper#2 899,{
mes "of the monsters that";
mes "will win this race.";
next;
- switch(select("Monster 1:Monster 2:Monster 3:Monster 4:Monster 5:Monster 6")) {
- case 1:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 1^000000, a friendly";
- mes "Poring type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- mes "[Ticket Helper]";
- mes "Now, please make";
- mes "your second choice";
- mes "for the monster that";
- mes "you think will place";
- mes "1st or 2nd in this race.";
- next;
- switch(select("Monster 2:Monster 3:Monster 4:Monster 5:Monster 6")) {
- case 1:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 2^000000, an adorable";
- mes "Lunatic type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 1^000000 and ^0000FFMonster 2^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,1;
- set monster_race_2_2,2;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 3^000000, a darling";
- mes "Savage Bebe monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 1^000000 and ^0000FFMonster 3^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,1;
- set monster_race_2_2,3;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 3:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 4^000000, a gentle Baby";
- mes "Desert Wolf monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 1^000000 and";
- mes "^0000FFMonster 4^000000.";
- mes "I wish you good luck.";
- emotion e_kis;
- set monster_race_2_1,1;
- set monster_race_2_2,4;
- 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;
- }
- break;
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 4:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 5^000000, a small, yet";
- mes "demonic, Deviruchi.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 1^000000 and ^0000FFMonster 5^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,1;
- set monster_race_2_2,5;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 5:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 6^000000, a naughty";
- mes "Baphomet Jr. monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 1^000000 and ^0000FFMonster 6^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,1;
- set monster_race_2_2,6;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
+ while (1) {
+ set .@m$, "";
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ set .@m$, .@m$ + ((.@i != .@m1)?"Monster "+.@i:"")+":";
+ set .@m, 0;
+ set .@m, select (.@m$);
+ 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 2:
mes "[Ticket Helper]";
mes "You've chosen";
- mes "^0000FFMonster 2^000000, an adorable";
- mes "Lunatic type monster.";
+ mes "^0000FFMonster "+.@m+"^000000, "+.@w$[0];
+ mes .@w$[1]+".";
mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- mes "[Ticket Helper]";
- mes "Now, please make";
- mes "your second choice";
- mes "for the monster that";
- mes "you think will place";
- mes "1st or 2nd in this race.";
- next;
- switch(select("Monster 1:Monster 3:Monster 4:Monster 5:Monster 6")) {
- case 1:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 1^000000, a friendly";
- mes "Poring type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 2^000000 and ^0000FFMonster 1^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,2;
- set monster_race_2_2,1;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 3^000000, a darling";
- mes "Savage Bebe monster.";
- mes "Are you sure you want";
- mes "to choose this monster?.";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 2^000000 and ^0000FFMonster 3^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,2;
- set monster_race_2_2,3;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 3:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 4^000000, a gentle Baby";
- mes "Desert Wolf monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 2^000000 and ^0000FFMonster 4^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,2;
- set monster_race_2_2,4;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 4:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 5^000000, a small, yet";
- mes "demonic, Deviruchi.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 2^000000 and ^0000FFMonster 5^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,2;
- set monster_race_2_2,5;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 5:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 6^000000, a naughty";
- mes "Baphomet Jr. monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 2^000000 and ^0000FFMonster 6^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,2;
- set monster_race_2_2,6;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- }
- case 2:
+ mes "to choose this monster?";
+ if (select("Yes:No") == 2) {
mes "[Ticket Helper]";
mes "You have canceled";
mes "your wager. Okay,";
mes "I understand. Perhaps";
mes "you'd feel more comfortable";
mes "checking the monsters first?";
- close;
+ close;
}
- case 3:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 3^000000, a darling";
- mes "Savage Bebe monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
next;
- switch(select("Yes:No")) {
- case 1:
+ if (!.@m1) {
mes "[Ticket Helper]";
mes "Now, please make";
mes "your second choice";
@@ -3689,897 +1447,28 @@ p_track02,73,22,1 script Ticket Helper#2 899,{
mes "you think will place";
mes "1st or 2nd in this race.";
next;
- switch(select("Monster 1:Monster 2:Monster 4:Monster 5:Monster 6")) {
- case 1:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 1^000000, a friendly";
- mes "Poring type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 3^000000 and ^0000FFMonster 1^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,3;
- set monster_race_2_2,1;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 2^000000, an adorable";
- mes "Lunatic type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 3^000000 and ^0000FFMonster 2^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,3;
- set monster_race_2_2,2;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 3:
+ set .@m1, .@m;
+ } else {
+ if (!$@mon_time_2_2) {
mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 4^000000, a gentle Baby";
- mes "Desert Wolf monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 3^000000 and ^0000FFMonster 4^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,3;
- set monster_race_2_2,4;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 4:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 5^000000, a small, yet";
- mes "demonic, Deviruchi.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 3^000000 and ^0000FFMonster 5^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,3;
- set monster_race_2_2,5;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 5:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 6^000000, a naughty";
- mes "Baphomet Jr. monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 3^000000 and ^0000FFMonster 6^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,3;
- set monster_race_2_2,6;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 4:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 4^000000, a gentle Baby";
- mes "Desert Wolf monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- mes "[Ticket Helper]";
- mes "Now, please make";
- mes "your second choice";
- mes "for the monster that";
- mes "you think will place";
- mes "1st or 2nd in this race.";
- next;
- switch(select("Monster 1:Monster 2:Monster 3:Monster 5:Monster 6")) {
- case 1:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 1^000000, a friendly";
- mes "Poring type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 4^000000 and ^0000FFMonster 1^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,4;
- set monster_race_2_2,1;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 2^000000, an adorable";
- mes "Lunatic type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 4^000000 and ^0000FFMonster 2^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,4;
- set monster_race_2_2,2;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 3:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 3^000000, a darling";
- mes "Savage Bebe monster.";
- mes "Are you sure you want";
- mes "to choose this monster?.";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 4^000000 and ^0000FFMonster 3^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,4;
- set monster_race_2_2,3;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- break;
- case 4:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 5^000000, a small, yet";
- mes "demonic, Deviruchi.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 4^000000 and ^0000FFMonster 5^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,4;
- set monster_race_2_2,5;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 5:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 6^000000, a naughty";
- mes "Baphomet Jr. monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 4^000000 and ^0000FFMonster 6^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,4;
- set monster_race_2_2,6;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 5:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 5^000000, a small, yet";
- mes "demonic, Deviruchi.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- mes "[Ticket Helper]";
- mes "Now, please make";
- mes "your second choice";
- mes "for the monster that";
- mes "you think will place";
- mes "1st or 2nd in this race.";
- next;
- switch(select("Monster 1:Monster 2:Monster 3:Monster 4:Monster 6")) {
- case 1:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 1^000000, a friendly";
- mes "Poring type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 5^000000 and ^0000FFMonster 1^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,5;
- set monster_race_2_2,1;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 2^000000, an adorable";
- mes "Lunatic type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 5^000000 and ^0000FFMonster 2^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,5;
- set monster_race_2_2,2;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 3:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 3^000000, a darling";
- mes "Savage Bebe monster.";
- mes "Are you sure you want";
- mes "to choose this monster?.";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 5^000000 and ^0000FFMonster 3^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,5;
- set monster_race_2_2,3;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 4:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 4^000000, a gentle Baby";
- mes "Desert Wolf monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 5^000000 and ^0000FFMonster 4^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,5;
- set monster_race_2_2,4;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 5:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 6^000000, a small, yet";
- mes "demonic, Deviruchi.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 5^000000 and ^0000FFMonster 6^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,5;
- set monster_race_2_2,6;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 6:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 6^000000, a naughty";
- mes "Baphomet Jr. monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- mes "[Ticket Helper]";
- mes "Then, please pick your 2nd choice.";
- next;
- switch(select("Monster 1:Monster 2:Monster 3:Monster 4:Monster 5")) {
- case 1:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 1^000000, a friendly";
- mes "Poring type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 6^000000 and ^0000FFMonster 1^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,6;
- set monster_race_2_2,1;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 2^000000, an adorable";
- mes "Lunatic type monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 6^000000 and ^0000FFMonster 2^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,6;
- set monster_race_2_2,2;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 3:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 3^000000, a darling";
- mes "Savage Bebe monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 6^000000 and ^0000FFMonster 3^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,6;
- set monster_race_2_2,3;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 4:
- mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 4^000000, a gentle Baby";
- mes "Desert Wolf monster.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 6^000000 and ^0000FFMonster 4^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,6;
- set monster_race_2_2,4;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
- case 5:
+ 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;
+ set monster_race_2_1,.@m1;
+ set monster_race_2_2,.@m;
+ getitem 7514,1; //Monster_Ticket
+ close;
+ } else {
mes "[Ticket Helper]";
- mes "You've chosen";
- mes "^0000FFMonster 5^000000, a small, yet";
- mes "demonic, Deviruchi.";
- mes "Are you sure you want";
- mes "to choose this monster?";
- next;
- switch(select("Yes:No")) {
- case 1:
- if ($@mon_time_2_2 == 0) {
- mes "[Ticket Helper]";
- mes "You've wagered on";
- mes "^0000FFMonster 6^000000 and ^0000FFMonster 5^000000";
- mes "to win this race. Good luck!";
- mes "I really hope that the odds";
- mes "work out in your favor~";
- emotion e_kis;
- set monster_race_2_1,6;
- set monster_race_2_2,5;
- 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;
- }
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
- }
+ 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;
}
- case 2:
- mes "[Ticket Helper]";
- mes "You have canceled";
- mes "your wager. Okay,";
- mes "I understand. Perhaps";
- mes "you'd feel more comfortable";
- mes "checking the monsters first?";
- close;
}
}
case 3:
@@ -4637,35 +1526,23 @@ p_track02,73,22,1 script Ticket Helper#2 899,{
mes "checking the monsters first?";
close;
}
- }
- else {
- if (countitem(7514) > 0) {
+ } else {
+ if (countitem(7514)) {
mes "[Ticket Helper]";
mes "You've wagered on";
mes "^0000FFMonster " + monster_race_2_1 + "^000000 and ^0000FFMonster " + monster_race_2_2 + "^000000";
mes "for this Dual Monster Race.";
next;
- mes "[Ticket Helper]";
- mes "The start of the race will be";
- mes "announced through a broadcast.";
- mes "You can refer to your Mini-Map";
- mes "to track the monsters' race";
- mes "positions. Thank you, and";
- mes "have a good time!";
- viewpoint 1,43,35,0,0xFF0000;
- close;
- }
- else {
- mes "[Ticket Helper]";
- mes "The start of the race will be";
- mes "announced through a broadcast.";
- mes "You can refer to your Mini-Map";
- mes "to track the monsters' race";
- mes "positions. Thank you, and";
- mes "have a good time!";
- viewpoint 1,43,35,0,0xFF0000;
- close;
- }
+ }
+ mes "[Ticket Helper]";
+ mes "The start of the race will be";
+ mes "announced through a broadcast.";
+ mes "You can refer to your Mini-Map";
+ mes "to track the monsters' race";
+ mes "positions. Thank you, and";
+ mes "have a good time!";
+ viewpoint 1,43,35,0,0xFF0000;
+ close;
}
OnInit:
@@ -4772,7 +1649,7 @@ p_track02,39,49,3 script Game Guide#double 845,{
}
p_track02,67,45,5 script Medal Distributor#medal 845,{
- if (checkweight(909,20) == 0) {
+ if (!checkweight(909,20)) {
mes "[Medal Distributor]";
mes "I'm sorry, but I can't";
mes "reward you with any medals";
@@ -4780,15 +1657,15 @@ p_track02,67,45,5 script Medal Distributor#medal 845,{
mes "available in your Inventory.";
close;
}
- if (countitem(7514) > 0) {
- mes "[Medal Distributor]";
- mes "Hello there~";
- mes "If you've wagered on the";
- mes "winning monster in a recent";
- mes "race, then you can exchange";
- mes "your game ticket here for";
- mes "some Prize Medals.";
- next;
+ mes "[Medal Distributor]";
+ mes "Hello there~";
+ mes "If you've wagered on the";
+ mes "winning monster in a recent";
+ mes "race, then you can exchange";
+ mes "your game ticket here for";
+ mes "some Prize Medals.";
+ next;
+ if (!countitem(7514)) {
mes "[Medal Distributor]";
mes "Please remember that you can";
mes "only exchange winning Game";
@@ -4796,930 +1673,69 @@ p_track02,67,45,5 script Medal Distributor#medal 845,{
mes "after the race finishes. Prize";
mes "Medals may be given to Wayne";
mes "in Hugel in exchange for items.";
+ close;
+ }
+ mes "[Medal Distributor]";
+ mes "Please remember that you can";
+ mes "only exchange winning Game";
+ mes "Tickets for Prize Medals right";
+ mes "after the race finishes. Prize";
+ mes "Medals may be given to Wayne";
+ mes "in Hugel in exchange for items.";
+ next;
+ if (monster_race_2_1 == $@mon_race_2_1 && monster_race_2_2 == $@mon_race_2_2) {
+ mes "[Medal Distributor]";
+ mes "Congratulations! It's really";
+ mes "difficult to guess the winners";
+ mes "of a Dual Monster Race, so you";
+ mes "must be really lucky! Would you";
+ mes "like to exchange your winning";
+ mes "Racing Ticket for Prize Medals?";
next;
- if (($@mon_race_2_1 == 1) && ($@mon_race_2_2 == 2)) || (($@mon_race_2_1 == 2) && ($@mon_race_2_2 == 1)) {
- if ((monster_race_2_1 == 1) && (monster_race_2_2 == 2)) || ((monster_race_2_1 == 2) && (monster_race_2_2 == 1)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 1) && ($@mon_race_2_2 == 3)) || (($@mon_race_2_1 == 3) && ($@mon_race_2_2 == 1)) {
- if ((monster_race_2_1 == 1) && (monster_race_2_2 == 3)) || ((monster_race_2_1 == 3) && (monster_race_2_2 == 1)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 1) && ($@mon_race_2_2 == 4)) || (($@mon_race_2_1 == 4) && ($@mon_race_2_2 == 1)) {
- if ((monster_race_2_1 == 1) && (monster_race_2_2 == 4)) || ((monster_race_2_1 == 4) && (monster_race_2_2 == 1)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 1) && ($@mon_race_2_2 == 5)) || (($@mon_race_2_1 == 5) && ($@mon_race_2_2 == 1)) {
- if ((monster_race_2_1 == 1) && (monster_race_2_2 == 5)) || ((monster_race_2_1 == 5) && (monster_race_2_2 == 1)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 1) && ($@mon_race_2_2 == 6)) || (($@mon_race_2_1 == 6) && ($@mon_race_2_2 == 1)) {
- if ((monster_race_2_1 == 1) && (monster_race_2_2 == 6)) || ((monster_race_2_1 == 6) && (monster_race_2_2 == 1)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 2) && ($@mon_race_2_2 == 3)) || (($@mon_race_2_1 == 3) && ($@mon_race_2_2 == 2)) {
- if ((monster_race_2_1 == 2) && (monster_race_2_2 == 3)) || ((monster_race_2_1 == 3) && (monster_race_2_2 == 2)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 2) && ($@mon_race_2_2 == 4)) || (($@mon_race_2_1 == 4) && ($@mon_race_2_2 == 2)) {
- if ((monster_race_2_1 == 2) && (monster_race_2_2 == 4)) || ((monster_race_2_1 == 4) && (monster_race_2_2 == 2)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 2) && ($@mon_race_2_2 == 5)) || (($@mon_race_2_1 == 5) && ($@mon_race_2_2 == 2)) {
- if ((monster_race_2_1 == 2) && (monster_race_2_2 == 5)) || ((monster_race_2_1 == 5) && (monster_race_2_2 == 2)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 2) && ($@mon_race_2_2 == 6)) || (($@mon_race_2_1 == 6) && ($@mon_race_2_2 == 2)) {
- if ((monster_race_2_1 == 2) && (monster_race_2_2 == 6)) || ((monster_race_2_1 == 6) && (monster_race_2_2 == 2)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 3) && ($@mon_race_2_2 == 4)) || (($@mon_race_2_1 == 4) && ($@mon_race_2_2 == 3)) {
- if ((monster_race_2_1 == 3) && (monster_race_2_2 == 4)) || ((monster_race_2_1 == 4) && (monster_race_2_2 == 3)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 3) && ($@mon_race_2_2 == 5)) || (($@mon_race_2_1 == 5) && ($@mon_race_2_2 == 3)) {
- if ((monster_race_2_1 == 3) && (monster_race_2_2 == 5)) || ((monster_race_2_1 == 5) && (monster_race_2_2 == 3)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 3) && ($@mon_race_2_2 == 6)) || (($@mon_race_2_1 == 6) && ($@mon_race_2_2 == 3)) {
- if ((monster_race_2_1 == 3) && (monster_race_2_2 == 6)) || ((monster_race_2_1 == 6) && (monster_race_2_2 == 3)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 4) && ($@mon_race_2_2 == 5)) || (($@mon_race_2_1 == 5) && ($@mon_race_2_2 == 4)) {
- if ((monster_race_2_1 == 4) && (monster_race_2_2 == 5)) || ((monster_race_2_1 == 5) && (monster_race_2_2 == 4)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 4) && ($@mon_race_2_2 == 6)) || (($@mon_race_2_1 == 6) && ($@mon_race_2_2 == 4)) {
- if ((monster_race_2_1 == 4) && (monster_race_2_2 == 6)) || ((monster_race_2_1 == 6) && (monster_race_2_2 == 4)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else if (($@mon_race_2_1 == 5) && ($@mon_race_2_2 == 6)) || (($@mon_race_2_1 == 6) && ($@mon_race_2_2 == 5)) {
- if ((monster_race_2_1 == 5) && (monster_race_2_2 == 6)) || ((monster_race_2_1 == 6) && (monster_race_2_2 == 5)) {
- mes "[Medal Distributor]";
- mes "Congratulations! It's really";
- mes "difficult to guess the winners";
- mes "of a Dual Monster Race, so you";
- mes "must be really lucky! Would you";
- mes "like to exchange your winning";
- mes "Racing Ticket for Prize Medals?";
- next;
- switch(select("Yes, please.:No, thanks.")) {
- case 1:
- mes "[Medal Distributor]";
- mes "Okay, everything looks good,";
- mes "so here's your Prize Medals~";
- mes "If you want to trade these";
- mes "medals for items, please";
- mes "visit Wayne in Hugel. We hope";
- mes "you enjoyed the Monster Race~";
- delitem 7514,1; //Monster_Ticket
- set monster_race_2_1,7;
- set monster_race_2_2,7;
- getitem 7515,15; //Marvelous_Medal
- close;
- case 2:
- mes "[Medal Distributor]";
- mes "Um, are you sure? You ";
- mes "can only exchange a winning";
- mes "Racing Ticket for Prize Medals";
- mes "for a short time after the race. If you made a mistake, you";
- mes "should ask me again quickly.";
- close;
- }
- }
- else if ((monster_race_2_1 == 0) && (monster_race_2_2 == 0)) {
- mes "[Medal Distributor]";
- mes "Well, better luck next time...";
- mes "Although you can't always";
- mes "be lucky, it's always fun to";
- mes "wager on the monster races!";
- close;
- }
- else if ((monster_race_2_1 == 7) && (monster_race_2_2 == 7)) {
- mes "[Medal Distributor]";
- mes "Thanks for visiting the";
- mes "Monster Race Arena, and";
- mes "I hope you enjoy your time";
- mes "here. I'll see you next time~";
- close;
- }
- else {
- mes "[Medal Distributor]";
- mes "You may not have wagered";
- mes "on the winning monster in";
- mes "the last race, but I hope that";
- mes "you get lucky next time~";
- close;
- }
- }
- else {
- mes "[Medal Distributor]";
- mes "Hello there~";
- mes "If you've wagered on the";
- mes "winning monster in a recent";
- mes "race, then you can exchange";
- mes "your game ticket here for";
- mes "some Prize Medals.";
- next;
+ if (select("Yes, please.:No, thanks.") == 1) {
mes "[Medal Distributor]";
- mes "Please remember that you can";
- mes "only exchange winning Game";
- mes "Tickets for Prize Medals right";
- mes "after the race finishes. Prize";
- mes "Medals may be given to Wayne";
- mes "in Hugel in exchange for items.";
+ mes "Okay, everything looks good,";
+ mes "so here's your Prize Medals~";
+ mes "If you want to trade these";
+ mes "medals for items, please";
+ mes "visit Wayne in Hugel. We hope";
+ mes "you enjoyed the Monster Race~";
+ delitem 7514,1; //Monster_Ticket
+ set monster_race_2_1,7;
+ set monster_race_2_2,7;
+ getitem 7515,15; //Marvelous_Medal
close;
}
- }
- else {
mes "[Medal Distributor]";
- mes "Hello there~";
- mes "If you've wagered on the";
- mes "winning monster in a recent";
- mes "race, then you can exchange";
- mes "your game ticket here for";
- mes "some Prize Medals.";
- next;
+ mes "Um, are you sure? You ";
+ mes "can only exchange a winning";
+ mes "Racing Ticket for Prize Medals";
+ mes "for a short time after the race. If you made a mistake, you";
+ mes "should ask me again quickly.";
+ close;
+ } else if (!monster_race_2_1 && !monster_race_2_2) {
mes "[Medal Distributor]";
- mes "Please remember that you can";
- mes "only exchange winning Game";
- mes "Tickets for Prize Medals right";
- mes "after the race finishes. Prize";
- mes "Medals may be given to Wayne";
- mes "in Hugel in exchange for items.";
+ mes "Well, better luck next time...";
+ mes "Although you can't always";
+ mes "be lucky, it's always fun to";
+ mes "wager on the monster races!";
+ close;
+ } else if (monster_race_2_1 == 7 && monster_race_2_2 == 7) {
+ mes "[Medal Distributor]";
+ mes "Thanks for visiting the";
+ mes "Monster Race Arena, and";
+ mes "I hope you enjoy your time";
+ mes "here. I'll see you next time~";
+ close;
+ } else if (monster_race_2_1 != $@mon_race_2_1 || monster_race_2_2 != $@mon_race_2_2) {
+ mes "[Medal Distributor]";
+ mes "You may not have wagered";
+ mes "on the winning monster in";
+ mes "the last race, but I hope that";
+ mes "you get lucky next time~";
close;
}
-
+
OnInit:
disablenpc "Medal Distributor#medal";
end;
@@ -5739,31 +1755,7 @@ p_track02,76,38,1 script Exit Guide#double 798,{
mes "you outside. Would you like";
mes "to leave the arena right now?";
next;
- switch(select("Yes:No")) {
- case 1:
- if (countitem(7514) == 0) {
- mes "[Exit Guide]";
- mes "Thank you for";
- mes "your patronage, and";
- mes "I hope that you come";
- mes "visit us again soon~";
- }
- else {
- mes "[Exit Guide]";
- mes "In accordance with our";
- mes "policies, I must take your";
- mes "Racing Ticket before you leave.";
- mes "Thank you for your patronage,";
- mes "and I hope you enjoy your time";
- mes "here in the Monster Race Arena.";
- delitem 7514,1; //Monster_Ticket
- }
- set monster_race_2_1,0;
- set monster_race_2_2,0;
- close2;
- warp "hugel",63,73;
- end;
- case 2:
+ if (select("Yes:No") == 2) {
mes "[Exit Guide]";
mes "Alright, then.";
mes "Just let me know";
@@ -5771,35 +1763,56 @@ p_track02,76,38,1 script Exit Guide#double 798,{
mes "ready to leave.";
close;
}
-}
-
-p_track02,30,38,0 script #poring1 139,0,0,{
-OnInit:
- disablenpc "#poring1";
+ if (!countitem(7514)) {
+ mes "[Exit Guide]";
+ mes "Thank you for";
+ mes "your patronage, and";
+ mes "I hope that you come";
+ mes "visit us again soon~";
+ } else {
+ mes "[Exit Guide]";
+ mes "In accordance with our";
+ mes "policies, I must take your";
+ mes "Racing Ticket before you leave.";
+ mes "Thank you for your patronage,";
+ mes "and I hope you enjoy your time";
+ mes "here in the Monster Race Arena.";
+ delitem 7514,1; //Monster_Ticket
+ }
+ set monster_race_2_1,0;
+ set monster_race_2_2,0;
+ close2;
+ warp "hugel",63,73;
end;
+}
+- script mob1#main -1,{
+ function MN;
OnEnable:
- enablenpc "#poring1";
- monster "p_track02",58,38,"Monster 1",1725,1,"#poring1::OnMyMobDead";
+ enablenpc strnpcinfo(0);
+ setarray .@n[1], 1725,1726,1727,1728,1730,1729;
+ getmapxy(.@m$,.@x,.@y,1);
+ set .@i, MN;
+ monster "p_track02",58,.@y,"Monster "+.@i,.@n[.@i],1,strnpcinfo(0)+"::OnMyMobDead";
end;
OnDisable:
- killmonster "p_track02","#poring1::OnMyMobDead";
- disablenpc "#poring1";
+ killmonster "p_track02",strnpcinfo(0)+"::OnMyMobDead";
+ disablenpc strnpcinfo(0);
end;
OnTouchNPC:
- if ($@mon_race_2_1 == 0) {
+ set .@i, MN;
+ if (!$@mon_race_2_1) {
emotion e_lv;
specialeffect EF_MVP;
- mapannounce "p_track02","Monster 1 has reached the Finish Line!",bc_map,"0x66FFCC";
+ mapannounce "p_track02","Monster "+.@i+" has reached the Finish Line!",bc_map,"0x66FFCC";
set $@mon_race_2_1,1;
- donpcevent "#poring1::OnDisable";
- }
- else {
+ donpcevent strnpcinfo(0)+"::OnDisable";
+ } else {
emotion e_lv;
specialeffect EF_MVP;
- mapannounce "p_track02","The race is over! Monster 1 has reached the Finish Line!",bc_map,"0x66FFCC";
+ mapannounce "p_track02","The race is over! Monster "+.@i+" has reached the Finish Line!",bc_map,"0x66FFCC";
set $@mon_race_2_2,1;
donpcevent "#poring1::OnDisable";
donpcevent "#lunatic1::OnDisable";
@@ -5815,1081 +1828,105 @@ OnTouchNPC:
OnMyMobDead:
end;
-}
-
-p_track02,30,36,0 script #lunatic1 139,0,0,{
-OnInit:
- disablenpc "#lunatic1";
- end;
-
-OnEnable:
- enablenpc "#lunatic1";
- monster "p_track02",58,36,"Monster No. 2",1726,1,"#lunatic1::OnMyMobDead";
- end;
-
-OnDisable:
- killmonster "p_track02","#lunatic1::OnMyMobDead";
- disablenpc "#lunatic1";
- end;
-
-OnTouchNPC:
- if ($@mon_race_2_1 == 0) {
- emotion e_ho;
- specialeffect EF_MVP;
- mapannounce "p_track02","Monster 2 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_1,2;
- donpcevent "#lunatic1::OnDisable";
- }
- else {
- emotion e_ho;
- specialeffect EF_MVP;
- mapannounce "p_track02","The race is over! Monster 2 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_2,2;
- donpcevent "#lunatic1::OnDisable";
- donpcevent "#poring1::OnDisable";
- donpcevent "#savagebebe1::OnDisable";
- donpcevent "#desertwolf1::OnDisable";
- donpcevent "#deviruchi1::OnDisable";
- donpcevent "#baphomet1::OnDisable";
- donpcevent "TrapGlobal#race02::OnDisable";
- enablenpc "Medal Distributor#medal";
- donpcevent "#race_timer2-3::OnEnable";
- }
- end;
-
-OnMyMobDead:
- end;
-}
-
-p_track02,30,34,0 script #savagebebe1 139,0,0,{
-OnInit:
- disablenpc "#savagebebe1";
- end;
-
-OnEnable:
- enablenpc "#savagebebe1";
- monster "p_track02",58,34,"Monster No. 3",1727,1,"#savagebebe1::OnMyMobDead";
- end;
-
-OnDisable:
- killmonster "p_track02","#savagebebe1::OnMyMobDead";
- disablenpc "#savagebebe1";
- end;
-
-OnTouchNPC:
- if ($@mon_race_2_1 == 0) {
- emotion e_heh;
- specialeffect EF_MVP;
- mapannounce "p_track02","Monster 3 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_1,3;
- donpcevent "#savagebebe1::OnDisable";
- }
- else {
- emotion e_heh;
- specialeffect EF_MVP;
- mapannounce "p_track02","The race is over! Monster 3 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_2,3;
- donpcevent "#savagebebe1::OnDisable";
- donpcevent "#poring1::OnDisable";
- donpcevent "#lunatic1::OnDisable";
- donpcevent "#desertwolf1::OnDisable";
- donpcevent "#deviruchi1::OnDisable";
- donpcevent "#baphomet1::OnDisable";
- donpcevent "TrapGlobal#race02::OnDisable";
- enablenpc "Medal Distributor#medal";
- donpcevent "#race_timer2-3::OnEnable";
- }
- end;
-
-OnMyMobDead:
- end;
-}
-
-p_track02,30,32,0 script #desertwolf1 139,0,0,{
-OnInit:
- disablenpc "#desertwolf1";
- end;
-
-OnEnable:
- enablenpc "#desertwolf1";
- monster "p_track02",58,32,"Monster No. 4",1728,1,"#desertwolf1::OnMyMobDead";
- end;
-
-OnDisable:
- killmonster "p_track02","#desertwolf1::OnMyMobDead";
- disablenpc "#desertwolf1";
- end;
-
-OnTouchNPC:
- if ($@mon_race_2_1 == 0) {
- emotion e_kis;
- specialeffect EF_MVP;
- mapannounce "p_track02","Monster 4 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_1,4;
- donpcevent "#desertwolf1::OnDisable";
- }
- else {
- emotion e_kis;
- specialeffect EF_MVP;
- mapannounce "p_track02","The race is over! Monster 4 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_2,4;
- donpcevent "#desertwolf1::OnDisable";
- donpcevent "#poring1::OnDisable";
- donpcevent "#lunatic1::OnDisable";
- donpcevent "#savagebebe1::OnDisable";
- donpcevent "#deviruchi1::OnDisable";
- donpcevent "#baphomet1::OnDisable";
- donpcevent "TrapGlobal#race02::OnDisable";
- enablenpc "Medal Distributor#medal";
- donpcevent "#race_timer2-3::OnEnable";
- }
- end;
-
-OnMyMobDead:
- end;
-}
-
-p_track02,30,30,0 script #deviruchi1 139,0,0,{
-OnInit:
- disablenpc "#deviruchi1";
- end;
-
-OnEnable:
- enablenpc "#deviruchi1";
- monster "p_track02",58,30,"Monster No. 5",1730,1,"#deviruchi1::OnMyMobDead";
- end;
-
-OnDisable:
- killmonster "p_track02","#deviruchi1::OnMyMobDead";
- disablenpc "#deviruchi1";
- end;
-
-OnTouchNPC:
- if ($@mon_race_2_1 == 0) {
- emotion e_gg;
- specialeffect EF_MVP;
- mapannounce "p_track02","Monster 5 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_1,5;
- donpcevent "#deviruchi1::OnDisable";
- }
- else {
- emotion e_gg;
- specialeffect EF_MVP;
- mapannounce "p_track02","The race is over! Monster 5 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_2,5;
- donpcevent "#deviruchi1::OnDisable";
- donpcevent "#poring1::OnDisable";
- donpcevent "#lunatic1::OnDisable";
- donpcevent "#savagebebe1::OnDisable";
- donpcevent "#desertwolf1::OnDisable";
- donpcevent "#baphomet1::OnDisable";
- donpcevent "TrapGlobal#race02::OnDisable";
- enablenpc "Medal Distributor#medal";
- donpcevent "#race_timer2-3::OnEnable";
+
+ function MN {
+ setarray .@n$[1], "poring","lunatic","savagebebe","desertwolf","deviruchi","baphomet";
+ for (set .@i, 1; .@i <= getarraysize(.@n$); set .@i, .@i + 1) {
+ if (compare(strnpcinfo(0),.@n$[.@i]))
+ break;
+ }
+ return .@i;
}
- end;
-OnMyMobDead:
- end;
-}
-
-p_track02,30,28,0 script #baphomet1 139,0,0,{
OnInit:
- disablenpc "#baphomet1";
- end;
-
-OnEnable:
- enablenpc "#baphomet1";
- monster "p_track02",58,28,"Monster No. 6",1729,1,"#baphomet1::OnMyMobDead";
- end;
-
-OnDisable:
- killmonster "p_track02","#baphomet1::OnMyMobDead";
- disablenpc "#baphomet1";
- end;
-
-OnTouchNPC:
- if ($@mon_race_2_1 == 0) {
- emotion e_pif;
- specialeffect EF_MVP;
- mapannounce "p_track02","Monster 6 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_1,6;
- donpcevent "#baphomet1::OnDisable";
- }
- else {
- emotion e_pif;
- specialeffect EF_MVP;
- mapannounce "p_track02","The race is over! Monster 6 has reached the Finish Line!",bc_map,"0x66FFCC";
- set $@mon_race_2_2,6;
- donpcevent "#baphomet1::OnDisable";
- donpcevent "#poring1::OnDisable";
- donpcevent "#lunatic1::OnDisable";
- donpcevent "#savagebebe1::OnDisable";
- donpcevent "#desertwolf1::OnDisable";
- donpcevent "#deviruchi1::OnDisable";
- donpcevent "TrapGlobal#race02::OnDisable";
- enablenpc "Medal Distributor#medal";
- donpcevent "#race_timer2-3::OnEnable";
- }
- end;
-
-OnMyMobDead:
+ if (compare(strnpcinfo(0),"main")) end;
+ disablenpc strnpcinfo(0);
end;
}
+p_track02,30,38,0 duplicate(mob1#main) #poring1 139,0,0
+p_track02,30,36,0 duplicate(mob1#main) #lunatic1 139,0,0
+p_track02,30,34,0 duplicate(mob1#main) #savagebebe1 139,0,0
+p_track02,30,32,0 duplicate(mob1#main) #desertwolf1 139,0,0
+p_track02,30,30,0 duplicate(mob1#main) #deviruchi1 139,0,0
+p_track02,30,28,0 duplicate(mob1#main) #baphomet1 139,0,0
p_track02,19,48,0 script TrapGlobal#race02 -1,{
-OnInit:
- set $@mon_r02_luk1,0;
- set $@mon_r02_luk2,0;
- set $@mon_r02_luk3,0;
- set $@mon_r02_luk4,0;
- set $@mon_r02_luk5,0;
- set $@mon_r02_luk6,0;
- set $@mon_r02_tire1,0;
- set $@mon_r02_tire2,0;
- set $@mon_r02_tire3,0;
- set $@mon_r02_tire4,0;
- set $@mon_r02_tire5,0;
- set $@mon_r02_tire6,0;
- end;
-
OnEnable:
enablenpc "TrapGlobal#race02";
- enablenpc "starting#race02_1";
- enablenpc "starting#race02_2";
- enablenpc "starting#race02_3";
- enablenpc "starting#race02_4";
- enablenpc "starting#race02_5";
- enablenpc "starting#race02_6";
- //-------------------------------------------------------------
- // Monster No. 1, Poring
- //-------------------------------------------------------------
- set .@firstline,rand(1,70);
- if ((.@firstline > 0) && (.@firstline < 11)) {
- set $@mon_r02_luk1,.@firstline;
- enablenpc "Luk#race02_1_5";
- enablenpc "Luk#race02_1_6";
- set .@firsttired,rand(50,60);
- if (.@firsttired > 49) && (.@firsttired < 61) {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- }
- }
- else if ((.@firstline > 10) && (.@firstline < 31)) {
- set $@mon_r02_luk1,.@firstline;
- enablenpc "Luk#race02_1_5";
- set .@firsttired,rand(40,60);
- if (.@firsttired > 49) && (.@firsttired < 61) {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- }
- else {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- }
- }
- else if ((.@firstline > 20) && (.@firstline < 41)) {
- set $@mon_r02_luk1,.@firstline;
- enablenpc "Luk#race02_1_1";
- set .@firsttired,rand(30,50);
- if (.@firsttired > 39) && (.@firsttired < 51) {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- }
- else {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- }
- }
- else if ((.@firstline > 40) && (.@firstline < 51)) {
- set $@mon_r02_luk1,.@firstline;
- enablenpc "Luk#race02_1_1";
- enablenpc "Luk#race02_1_2";
- set .@firsttired,rand(20,40);
- if (.@firsttired > 29) && (.@firsttired < 41) {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- }
- else {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- enablenpc "Tire#race02_1_4";
- }
- }
- else if ((.@firstline > 50) && (.@firstline < 61)) {
- set $@mon_r02_luk1,.@firstline;
- enablenpc "Luk#race02_1_1";
- enablenpc "Luk#race02_1_2";
- enablenpc "Luk#race02_1_3";
- set .@firsttired,rand(10,30);
- if (.@firsttired > 19) && (.@firsttired < 31) {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- enablenpc "Tire#race02_1_4";
- }
- else {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- enablenpc "Tire#race02_1_4";
- enablenpc "Tire#race02_1_5";
- }
- }
- else if ((.@firstline > 60) && (.@firstline < 71)) {
- set $@mon_r02_luk1,.@firstline;
- enablenpc "Luk#race02_1_1";
- enablenpc "Luk#race02_1_2";
- enablenpc "Luk#race02_1_3";
- enablenpc "Luk#race02_1_4";
- set .@firsttired,rand(0,20);
- if (.@firsttired > 9) && (.@firsttired < 21) {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- enablenpc "Tire#race02_1_4";
- enablenpc "Tire#race02_1_5";
- }
- else {
- set $@mon_r02_tire1,.@firsttired;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- enablenpc "Tire#race02_1_4";
- enablenpc "Tire#race02_1_5";
- enablenpc "Tire#race02_1_6";
- }
- }
- else {
- set $@mon_r02_luk1,.@firstline;
- enablenpc "Luk#race02_1_1";
- enablenpc "Luk#race02_1_2";
- enablenpc "Luk#race02_1_3";
- enablenpc "Luk#race02_1_4";
- set .@firsttired,rand(0,20);
- if (.@firsttired > 9) && (.@firsttired < 21) {
- set $@mon_r02_tire1,.@firstline;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- enablenpc "Tire#race02_1_4";
- enablenpc "Tire#race02_1_5";
- }
- else {
- set $@mon_r02_tire1,.@firstline;
- enablenpc "Tire#race02_1_1";
- enablenpc "Tire#race02_1_2";
- enablenpc "Tire#race02_1_3";
- enablenpc "Tire#race02_1_4";
- enablenpc "Tire#race02_1_5";
- enablenpc "Tire#race02_1_6";
- }
- }
- //-------------------------------------------------------------
- // Monster No. 2, Lunatic
- //-------------------------------------------------------------
- set .@secondline,rand(1,70);
- if ((.@secondline > 0) && (.@secondline < 11)) {
- set $@mon_r02_luk2,.@secondline;
- enablenpc "Luk#race02_2_5";
- enablenpc "Luk#race02_2_6";
- set .@secondtired,rand(50,60);
- if (.@secondtired > 49) && (.@secondtired < 61) {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- }
- }
- else if ((.@secondline > 10) && (.@secondline < 31)) {
- set $@mon_r02_luk2,.@secondline;
- enablenpc "Luk#race02_2_5";
- set .@secondtired,rand(40,60);
- if (.@secondtired > 49) && (.@secondtired < 61) {
- set $@mon_r02_tire2,.@secondline;
- enablenpc "Tire#race02_2_1";
- }
- else {
- set $@mon_r02_tire2,.@secondline;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- }
- }
- else if ((.@secondline > 20) && (.@secondline < 41)) {
- set $@mon_r02_luk2,.@secondline;
- enablenpc "Luk#race02_2_1";
- set .@secondtired,rand(30,50);
- if (.@secondtired > 39) && (.@secondtired < 51) {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- }
- else {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- }
- }
- else if ((.@secondline > 40) && (.@secondline < 51)) {
- set $@mon_r02_luk2,.@secondline;
- enablenpc "Luk#race02_2_1";
- enablenpc "Luk#race02_2_2";
- set .@secondtired,rand(20,40);
- if (.@secondtired > 29) && (.@secondtired < 41) {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- }
- else {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- enablenpc "Tire#race02_2_4";
- }
- }
- else if ((.@secondline > 50) && (.@secondline < 61)) {
- set $@mon_r02_luk2,.@secondline;
- enablenpc "Luk#race02_2_1";
- enablenpc "Luk#race02_2_2";
- enablenpc "Luk#race02_2_3";
- set .@secondtired,rand(10,30);
- if (.@secondtired > 19) && (.@secondtired < 31) {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- enablenpc "Tire#race02_2_4";
- }
- else {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- enablenpc "Tire#race02_2_4";
- enablenpc "Tire#race02_2_5";
- }
- }
- else if ((.@secondline > 60) && (.@secondline < 71)) {
- set $@mon_r02_luk2,.@secondline;
- enablenpc "Luk#race02_2_1";
- enablenpc "Luk#race02_2_2";
- enablenpc "Luk#race02_2_3";
- enablenpc "Luk#race02_2_4";
- set .@secondtired,rand(0,20);
- if (.@secondtired > 9) && (.@secondtired < 21) {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- enablenpc "Tire#race02_2_4";
- enablenpc "Tire#race02_2_5";
- }
- else {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- enablenpc "Tire#race02_2_4";
- enablenpc "Tire#race02_2_5";
- enablenpc "Tire#race02_2_6";
- }
- }
- else {
- set $@mon_r02_luk2,.@secondline;
- enablenpc "Luk#race02_2_1";
- enablenpc "Luk#race02_2_2";
- enablenpc "Luk#race02_2_3";
- enablenpc "Luk#race02_2_4";
- set .@secondtired,rand(0,20);
- if (.@secondtired > 9) && (.@secondtired < 21) {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- enablenpc "Tire#race02_2_4";
- enablenpc "Tire#race02_2_5";
- }
- else {
- set $@mon_r02_tire2,.@secondtired;
- enablenpc "Tire#race02_2_1";
- enablenpc "Tire#race02_2_2";
- enablenpc "Tire#race02_2_3";
- enablenpc "Tire#race02_2_4";
- enablenpc "Tire#race02_2_5";
- enablenpc "Tire#race02_2_6";
- }
- }
- //-------------------------------------------------------------
- // Monster No. 3, Savage Babe
- //-------------------------------------------------------------
- set .@thirdline,rand(1,70);
- if ((.@thirdline > 0) && (.@thirdline < 11)) {
- set $@mon_r02_luk3,.@thirdline;
- enablenpc "Luk#race02_3_5";
- enablenpc "Luk#race02_3_6";
- set .@thridtired,rand(50,60);
- if (.@thridtired > 49) && (.@thridtired < 61) {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- }
- }
- else if ((.@thirdline > 10) && (.@thirdline < 31)) {
- set $@mon_r02_luk3,.@thirdline;
- enablenpc "Luk#race02_3_5";
- set .@thridtired,rand(40,60);
- if (.@thridtired > 49) && (.@thridtired < 61) {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- }
- else {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- }
- }
- else if ((.@thirdline > 20) && (.@thirdline < 41)) {
- set $@mon_r02_luk3,.@thirdline;
- enablenpc "Luk#race02_3_1";
- set .@thridtired,rand(30,50);
- if (.@thridtired > 39) && (.@thridtired < 51) {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- }
- else {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- }
- }
- else if ((.@thirdline > 40) && (.@thirdline < 51)) {
- set $@mon_r02_luk3,.@thirdline;
- enablenpc "Luk#race02_3_1";
- enablenpc "Luk#race02_3_2";
- set .@thridtired,rand(20,40);
- if (.@thridtired > 29) && (.@thridtired < 41) {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- }
- else {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- enablenpc "Tire#race02_3_4";
- }
- }
- else if ((.@thirdline > 50) && (.@thirdline < 61)) {
- set $@mon_r02_luk3,.@thirdline;
- enablenpc "Luk#race02_3_1";
- enablenpc "Luk#race02_3_2";
- enablenpc "Luk#race02_3_3";
- set .@thridtired,rand(10,30);
- if (.@thridtired > 19) && (.@thridtired < 31) {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- enablenpc "Tire#race02_3_4";
- }
- else {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- enablenpc "Tire#race02_3_4";
- enablenpc "Tire#race02_3_5";
- }
- }
- else if ((.@thirdline > 60) && (.@thirdline < 71)) {
- set $@mon_r02_luk3,.@thirdline;
- enablenpc "Luk#race02_3_1";
- enablenpc "Luk#race02_3_2";
- enablenpc "Luk#race02_3_3";
- enablenpc "Luk#race02_3_4";
- set .@thridtired,rand(0,20);
- if (.@thridtired > 9) && (.@thridtired < 21) {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- enablenpc "Tire#race02_3_4";
- enablenpc "Tire#race02_3_5";
- }
- else {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- enablenpc "Tire#race02_3_4";
- enablenpc "Tire#race02_3_5";
- enablenpc "Tire#race02_3_6";
- }
- }
- else {
- set $@mon_r02_luk3,.@thirdline;
- enablenpc "Luk#race02_3_1";
- enablenpc "Luk#race02_3_2";
- enablenpc "Luk#race02_3_3";
- enablenpc "Luk#race02_3_4";
- set .@thridtired,rand(0,20);
- if (.@thridtired > 9) && (.@thridtired < 21) {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- enablenpc "Tire#race02_3_4";
- enablenpc "Tire#race02_3_5";
- }
- else {
- set $@mon_r02_tire3,.@thridtired;
- enablenpc "Tire#race02_3_1";
- enablenpc "Tire#race02_3_2";
- enablenpc "Tire#race02_3_3";
- enablenpc "Tire#race02_3_4";
- enablenpc "Tire#race02_3_5";
- enablenpc "Tire#race02_3_6";
- }
- }
- //-------------------------------------------------------------
- // Monster No. 4, Baby Desert Wolf
- //-------------------------------------------------------------
- set .@fourthline,rand(1,70);
- if ((.@fourthline > 0) && (.@fourthline < 11)) {
- set $@mon_r02_luk4,.@fourthline;
- enablenpc "Luk#race02_4_5";
- enablenpc "Luk#race02_4_6";
- set .@fourthtired,rand(50,60);
- if (.@fourthtired > 49) && (.@fourthtired < 61) {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- }
- }
- else if ((.@fourthline > 10) && (.@fourthline < 31)) {
- set $@mon_r02_luk4,.@fourthline;
- enablenpc "Luk#race02_4_5";
- set .@fourthtired,rand(40,60);
- if (.@fourthtired > 49) && (.@fourthtired < 61) {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- }
- else {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- }
- }
- else if ((.@fourthline > 20) && (.@fourthline < 41)) {
- set $@mon_r02_luk4,.@fourthline;
- enablenpc "Luk#race02_4_1";
- set .@fourthtired,rand(30,50);
- if (.@fourthtired > 39) && (.@fourthtired < 51) {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- }
- else {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- }
- }
- else if ((.@fourthline > 40) && (.@fourthline < 51)) {
- set $@mon_r02_luk4,.@fourthline;
- enablenpc "Luk#race02_4_1";
- enablenpc "Luk#race02_4_2";
- set .@fourthtired,rand(20,40);
- if (.@fourthtired > 29) && (.@fourthtired < 41) {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- }
- else {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- enablenpc "Tire#race02_4_4";
- }
- }
- else if ((.@fourthline > 50) && (.@fourthline < 61)) {
- set $@mon_r02_luk4,.@fourthline;
- enablenpc "Luk#race02_4_1";
- enablenpc "Luk#race02_4_2";
- enablenpc "Luk#race02_4_3";
- set .@fourthtired,rand(10,30);
- if (.@fourthtired > 19) && (.@fourthtired < 31) {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- enablenpc "Tire#race02_4_4";
- }
- else {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- enablenpc "Tire#race02_4_4";
- enablenpc "Tire#race02_4_5";
- }
- }
- else if ((.@fourthline > 60) && (.@fourthline < 71)) {
- set $@mon_r02_luk4,.@fourthline;
- enablenpc "Luk#race02_4_1";
- enablenpc "Luk#race02_4_2";
- enablenpc "Luk#race02_4_3";
- enablenpc "Luk#race02_4_4";
- set .@fourthtired,rand(0,20);
- if (.@fourthtired > 9) && (.@fourthtired < 21) {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- enablenpc "Tire#race02_4_4";
- enablenpc "Tire#race02_4_5";
- }
- else {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- enablenpc "Tire#race02_4_4";
- enablenpc "Tire#race02_4_5";
- enablenpc "Tire#race02_4_6";
- }
- }
- else {
- set $@mon_r02_luk4,.@fourthline;
- enablenpc "Luk#race02_4_1";
- enablenpc "Luk#race02_4_2";
- enablenpc "Luk#race02_4_3";
- enablenpc "Luk#race02_4_4";
- set .@fourthtired,rand(0,20);
- if (.@fourthtired > 9) && (.@fourthtired < 21) {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- enablenpc "Tire#race02_4_4";
- enablenpc "Tire#race02_4_5";
- }
- else {
- set $@mon_r02_tire4,.@fourthtired;
- enablenpc "Tire#race02_4_1";
- enablenpc "Tire#race02_4_2";
- enablenpc "Tire#race02_4_3";
- enablenpc "Tire#race02_4_4";
- enablenpc "Tire#race02_4_5";
- enablenpc "Tire#race02_4_6";
- }
- }
- //-------------------------------------------------------------
- // Monster No. 5, Deviruchi
- //-------------------------------------------------------------
- set .@fifthline,rand(1,70);
- if ((.@fifthline > 0) && (.@fifthline < 11)) {
- set $@mon_r02_luk5,.@fifthline;
- enablenpc "Luk#race02_5_5";
- set .@fifthtired,rand(50,60);
- if (.@fifthtired > 49) && (.@fifthtired < 61) {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- }
- }
- else if ((.@fifthline > 10) && (.@fifthline < 31)) {
- set $@mon_r02_luk5,.@fifthline;
- enablenpc "Luk#race02_5_5";
- set .@fifthtired,rand(40,60);
- if (.@fifthtired > 49) && (.@fifthtired < 61) {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- }
- else {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- }
- }
- else if ((.@fifthline > 20) && (.@fifthline < 41)) {
- set $@mon_r02_luk5,.@fifthline;
- enablenpc "Luk#race02_5_1";
- set .@fifthtired,rand(30,50);
- if (.@fifthtired > 39) && (.@fifthtired < 51) {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- }
- else {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- }
- }
- else if ((.@fifthline > 40) && (.@fifthline < 51)) {
- set $@mon_r02_luk5,.@fifthline;
- enablenpc "Luk#race02_5_1";
- enablenpc "Luk#race02_5_2";
- set .@fifthtired,rand(20,40);
- if (.@fifthtired > 29) && (.@fifthtired < 41) {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- }
- else {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- enablenpc "Tire#race02_5_4";
- }
- }
- else if ((.@fifthline > 50) && (.@fifthline < 61)) {
- set $@mon_r02_luk5,.@fifthline;
- enablenpc "Luk#race02_5_1";
- enablenpc "Luk#race02_5_2";
- enablenpc "Luk#race02_5_3";
- set .@fifthtired,rand(10,30);
- if (.@fifthtired > 19) && (.@fifthtired < 31) {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- enablenpc "Tire#race02_5_4";
- }
- else {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- enablenpc "Tire#race02_5_4";
- enablenpc "Tire#race02_5_5";
- }
- }
- else if ((.@fifthline > 60) && (.@fifthline < 71)) {
- set $@mon_r02_luk5,.@fifthline;
- enablenpc "Luk#race02_5_1";
- enablenpc "Luk#race02_5_2";
- enablenpc "Luk#race02_5_3";
- enablenpc "Luk#race02_5_4";
- set .@fifthtired,rand(0,20);
- if (.@fifthtired > 9) && (.@fifthtired < 21) {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- enablenpc "Tire#race02_5_4";
- enablenpc "Tire#race02_5_5";
- }
- else {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- enablenpc "Tire#race02_5_4";
- enablenpc "Tire#race02_5_5";
- enablenpc "Tire#race02_5_6";
- }
- }
- else {
- set $@mon_r02_luk5,.@fifthline;
- enablenpc "Luk#race02_5_1";
- enablenpc "Luk#race02_5_2";
- enablenpc "Luk#race02_5_3";
- enablenpc "Luk#race02_5_4";
- set .@fifthtired,rand(0,20);
- if (.@fifthtired > 9) && (.@fifthtired < 21) {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- enablenpc "Tire#race02_5_4";
- enablenpc "Tire#race02_5_5";
- }
- else {
- set $@mon_r02_tire5,.@fifthtired;
- enablenpc "Tire#race02_5_1";
- enablenpc "Tire#race02_5_2";
- enablenpc "Tire#race02_5_3";
- enablenpc "Tire#race02_5_4";
- enablenpc "Tire#race02_5_5";
- enablenpc "Tire#race02_5_6";
- }
- }
- //-------------------------------------------------------------
- // Monster No. 6, Baphomet Jr.
- //-------------------------------------------------------------
- set .@sixthline,rand(1,70);
- if ((.@sixthline > 0) && (.@sixthline < 11)) {
- set $@mon_r02_luk6,.@sixthline;
- enablenpc "Luk#race02_6_5";
- enablenpc "Luk#race02_6_6";
- set .@sixthtired,rand(50,60);
- if (.@sixthtired > 49) && (.@sixthtired < 61) {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- }
- }
- else if ((.@sixthline > 10) && (.@sixthline < 31)) {
- set $@mon_r02_luk6,.@sixthline;
- enablenpc "Luk#race02_6_5";
- set .@sixthtired,rand(40,60);
- if (.@sixthtired > 49) && (.@sixthtired < 61) {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- }
- else {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- }
- }
- else if ((.@sixthline > 20) && (.@sixthline < 41)) {
- set $@mon_r02_luk6,.@sixthline;
- enablenpc "Luk#race02_6_1";
- set .@sixthtired,rand(30,50);
- if (.@sixthtired > 39) && (.@sixthtired < 51) {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- }
- else {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- }
- }
- else if ((.@sixthline > 40) && (.@sixthline < 51)) {
- set $@mon_r02_luk6,.@sixthline;
- enablenpc "Luk#race02_6_1";
- enablenpc "Luk#race02_6_2";
- set .@sixthtired,rand(20,40);
- if (.@sixthtired > 29) && (.@sixthtired < 41) {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- }
- else {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- enablenpc "Tire#race02_6_4";
- }
- }
- else if ((.@sixthline > 50) && (.@sixthline < 61)) {
- set $@mon_r02_luk6,.@sixthline;
- enablenpc "Luk#race02_6_1";
- enablenpc "Luk#race02_6_2";
- enablenpc "Luk#race02_6_3";
- set .@sixthtired,rand(10,30);
- if (.@sixthtired > 19) && (.@sixthtired < 31) {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- enablenpc "Tire#race02_6_4";
- }
- else {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- enablenpc "Tire#race02_6_4";
- enablenpc "Tire#race02_6_5";
- }
- }
- else if ((.@sixthline > 60) && (.@sixthline < 71)) {
- set $@mon_r02_luk6,.@sixthline;
- enablenpc "Luk#race02_6_1";
- enablenpc "Luk#race02_6_2";
- enablenpc "Luk#race02_6_3";
- enablenpc "Luk#race02_6_4";
- set .@sixthtired,rand(0,20);
- if (.@sixthtired > 9) && (.@sixthtired < 21) {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- enablenpc "Tire#race02_6_4";
- enablenpc "Tire#race02_6_5";
- }
- else {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- enablenpc "Tire#race02_6_4";
- enablenpc "Tire#race02_6_5";
- enablenpc "Tire#race02_6_6";
- }
- }
- else {
- set $@mon_r02_luk6,.@sixthline;
- enablenpc "Luk#race02_6_1";
- enablenpc "Luk#race02_6_2";
- enablenpc "Luk#race02_6_3";
- enablenpc "Luk#race02_6_4";
- set .@sixthtired,rand(0,20);
- if (.@sixthtired > 9) && (.@sixthtired < 21) {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- enablenpc "Tire#race02_6_4";
- enablenpc "Tire#race02_6_5";
- }
- else {
- set $@mon_r02_tire6,.@sixthtired;
- enablenpc "Tire#race02_6_1";
- enablenpc "Tire#race02_6_2";
- enablenpc "Tire#race02_6_3";
- enablenpc "Tire#race02_6_4";
- enablenpc "Tire#race02_6_5";
- enablenpc "Tire#race02_6_6";
- }
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ enablenpc "starting#race02_"+.@i;
+ set .@c, 1;
+ while (.@c <= 6) {
+ setd ".@line_"+.@c,rand(1,70);
+ if (getd(".@line_"+.@c) <= 10) {
+ setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c);
+ 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);
+ 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);
+ 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);
+ 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 (set .@i, 1; .@i <= 3; set .@i, .@i + 1)
+ 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);
+ for (set .@i, 1; .@i <= 3; set .@i, .@i + 1)
+ enablenpc "Luk#race02_"+.@c+"_"+.@i;
+ setd ".@tired_"+.@c,rand(10,30);
+ setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
+ for (set .@i, 1; .@i <= 4; set .@i, .@i + 1)
+ 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);
+ for (set .@i, 1; .@i <= 4; set .@i, .@i + 1)
+ enablenpc "Luk#race02_"+.@c+"_"+.@i;
+ setd ".@tired_"+.@c,rand(0,20);
+ setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c);
+ for (set .@i, 1; .@i <= 5; set .@i, .@i + 1)
+ enablenpc "Tire#race02_"+.@c+"_"+.@i;
+ if (getd(".@tired_"+.@c) < 10) enablenpc "Tire#race02_"+.@c+"_6";
+ }
+ set .@c, .@c + 1;
}
end;
OnDisable:
disablenpc "TrapGlobal#race02";
- donpcevent "starting#race02_1::OnDisable";
- donpcevent "starting#race02_2::OnDisable";
- donpcevent "starting#race02_3::OnDisable";
- donpcevent "starting#race02_4::OnDisable";
- donpcevent "starting#race02_5::OnDisable";
- donpcevent "starting#race02_6::OnDisable";
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1)
+ donpcevent "starting#race02_"+.@i+"::OnDisable";
end;
-}
-
-- script starting_2 -1,{
- end;
-
+
OnInit:
- disablenpc strnpcinfo(0);
+ for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) {
+ setd "$@mon_r02_luk"+.@i,0;
+ setd "$@mon_r02_tire"+.@i,0;
+ }
end;
+}
+- script starting_2 -1,{
OnDisable:
disablenpc strnpcinfo(0);
for(set .@i,1; .@i<7; set .@i,.@i+1)
@@ -6912,6 +1949,10 @@ OnTouchNPC:
else set .@speed,150;
sc_start SC_WALKSPEED,5000,.@speed;
end;
+
+OnInit:
+ disablenpc strnpcinfo(0);
+ end;
}
p_track02,56,38,0 duplicate(starting_2) starting#race02_1 -1,0,0
@@ -7000,7 +2041,7 @@ p_track02,47,28,0 duplicate(Tire_1) Tire#race02_6_6 -1,0,0
// NPCs for Redeeming Price Medals (Einbroch and Hugel)
//============================================================
ein_in01,85,208,5 script Ei'felle#repay01 854,{
- if (ein_medal01 < 1) {
+ if (!ein_medal01) {
mes "[Ei'felle]";
mes "Curses! We need to deliver";
mes "what our customers ordered,";
@@ -7033,7 +2074,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 854,{
mes "but so far, none of us have";
mes "been able to get any medals...";
next;
- if (countitem(7515) > 0) {
+ if (countitem(7515)) {
mes "["+ strcharinfo(0) +"]";
mes "Oh! Are you talking";
mes "about the medals that";
@@ -7052,59 +2093,24 @@ ein_in01,85,208,5 script Ei'felle#repay01 854,{
callsub S_Reward;
end;
}
- else {
- mes "[Ei'felle]";
- mes "If you happen to obtain any";
- mes "medals from the Monster";
- mes "Race Arena in Hugel, then";
- mes "please bring some of them";
- mes "to me. I'll be sure to repay";
- mes "you for your kindness...";
- close;
- }
- }
- else if ((ein_medal01 > 499) && (ein_medal01 < 1000)) {
- if (checkweight(1201,1) == 0) {
- mes "[Ei'felle]";
- mes "Goodness, you're carrying";
- mes "so many things with you!";
- mes "You'd better put some of";
- mes "it away in Kafra Storage";
- mes "before you're overwhelmed";
- mes "by the bulk of your items!";
- close;
- }
mes "[Ei'felle]";
- mes "Ah, welcome back! I've finally";
- mes "made a breakthrough in my";
- mes "metal research! Look, I've";
- mes "developed this Glittering";
- mes "Jacket! It's lightweight and";
- mes "very durable, you see?";
- next;
+ mes "If you happen to obtain any";
+ mes "medals from the Monster";
+ mes "Race Arena in Hugel, then";
+ mes "please bring some of them";
+ mes "to me. I'll be sure to repay";
+ mes "you for your kindness...";
+ close;
+ } else if (ein_medal01 < 500) {
mes "[Ei'felle]";
- mes "I wouldn't be able to have";
- mes "completed this without your";
- mes "help. Now, would you like to";
- mes "receive this Glittering Jacket";
- mes "as my way of repaying you?";
+ mes "Oh, how have you been?";
+ mes "Thank you so much for";
+ mes "donating so many medals,";
+ mes "they've been helpful in my";
+ mes "research. Still, I need more";
+ mes "and more of them everyday...";
next;
- switch(select("Accept:Wait for Further Development")) {
- case 1:
- callsub S_BonusReward,500,2319;
- end;
- case 2:
- mes "[Ei'felle]";
- mes "Ah, I see. You'd rather wait";
- mes "until we develop something";
- mes "more to your liking. In that";
- mes "case, would you please donate";
- mes "more medals to my research?";
- mes "We're always low on them...";
- next;
- break;
- }
- if (countitem(7515) > 0) {
+ if (countitem(7515)) {
mes "[Ei'felle]";
mes "The other Blacksmith";
mes "Guildsmen are doing their";
@@ -7116,78 +2122,46 @@ ein_in01,85,208,5 script Ei'felle#repay01 854,{
callsub S_Reward;
end;
}
- else {
- mes "[Ei'felle]";
- mes "If you happen to obtain any";
- mes "medals from the Monster";
- mes "Race Arena in Hugel, then";
- mes "please bring some of them";
- mes "to me. I'll be sure to repay";
- mes "you for your kindness...";
- close;
- }
- }
- else if ((ein_medal01 > 999) && (ein_medal01 < 1500)) {
- if (checkweight(1201,1) == 0) {
- mes "[Ei'felle]";
- mes "Goodness, you're carrying";
- mes "so many things with you!";
- mes "You'd better put some of";
- mes "it away in Kafra Storage";
- mes "before you're overwhelmed";
- mes "by the bulk of your items!";
- close;
- }
mes "[Ei'felle]";
- mes "Oh, you're back!";
- mes "Thanks to all the medals";
- mes "that you've donated, I'm now";
- mes "able to manufacture a set";
- mes "of slotted armor imbued";
- mes "with a property of your choice.";
- next;
+ mes "If you happen to obtain any";
+ mes "medals from the Monster";
+ mes "Race Arena in Hugel, then";
+ mes "please bring some of them";
+ mes "to me. I'll be sure to repay";
+ mes "you for your kindness...";
+ close;
+ }
+ if (!checkweight(1201,1)) {
mes "[Ei'felle]";
- mes "If you'd like, I can repay you";
- mes "now by creating a set of slotted elemental armor for you, or we";
- mes "can wait for you to donate more";
- mes "medals until I can develop";
- mes "something else for you.";
- next;
- switch(select("Accept Armor:Can I have something else?:Wait for Further Development")) {
- case 1:
+ mes "Goodness, you're carrying";
+ mes "so many things with you!";
+ mes "You'd better put some of";
+ mes "it away in Kafra Storage";
+ mes "before you're overwhelmed";
+ mes "by the bulk of your items!";
+ close;
+ }
+ if (ein_medal01 > 499 && ein_medal01 < 1500) {
+ if (ein_medal01 < 1000) {
mes "[Ei'felle]";
- mes "I can manufacture one set of";
- mes "slotted Armor imbued with the";
- mes "Fire, Earth, Wind, or Water";
- mes "property. Which property would";
- mes "you like your armor to have?";
+ mes "Ah, welcome back! I've finally";
+ mes "made a breakthrough in my";
+ mes "metal research! Look, I've";
+ mes "developed this Glittering";
+ mes "Jacket! It's lightweight and";
+ mes "very durable, you see?";
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 2:
mes "[Ei'felle]";
- mes "Something else...?";
- mes "Oh, you must mean";
- mes "the Glittering Jacket that";
- mes "I developed earlier. After";
- mes "all, I have any other items";
- mes "to offer you for now...";
+ mes "I wouldn't be able to have";
+ mes "completed this without your";
+ mes "help. Now, would you like to";
+ mes "receive this Glittering Jacket";
+ mes "as my way of repaying you?";
next;
- callsub S_BonusReward,500,2319;
- end;
- case 3:
+ if (select("Accept:Wait for Further Development") == 1) {
+ callsub S_BonusReward,500,2319;
+ end;
+ }
mes "[Ei'felle]";
mes "Ah, I see. You'd rather wait";
mes "until we develop something";
@@ -7196,9 +2170,61 @@ ein_in01,85,208,5 script Ei'felle#repay01 854,{
mes "more medals to my research?";
mes "We're always low on them...";
next;
- break;
+ } else if (ein_medal01 < 1500) {
+ mes "[Ei'felle]";
+ mes "Oh, you're back!";
+ mes "Thanks to all the medals";
+ mes "that you've donated, I'm now";
+ mes "able to manufacture a set";
+ mes "of slotted armor imbued";
+ mes "with a property of your choice.";
+ next;
+ mes "[Ei'felle]";
+ mes "If you'd like, I can repay you";
+ mes "now by creating a set of slotted elemental armor for you, or we";
+ mes "can wait for you to donate more";
+ mes "medals until I can develop";
+ mes "something else for you.";
+ next;
+ switch(select("Accept Armor:Can I have something else?:Wait for Further Development")) {
+ case 1:
+ mes "[Ei'felle]";
+ mes "I can manufacture one set of";
+ mes "slotted Armor imbued with the";
+ mes "Fire, Earth, Wind, or Water";
+ mes "property. Which property would";
+ 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 2:
+ mes "[Ei'felle]";
+ mes "Something else...?";
+ mes "Oh, you must mean";
+ mes "the Glittering Jacket that";
+ mes "I developed earlier. After";
+ mes "all, I have any other items";
+ mes "to offer you for now...";
+ next;
+ callsub S_BonusReward,500,2319;
+ end;
+ case 3:
+ mes "[Ei'felle]";
+ mes "Ah, I see. You'd rather wait";
+ mes "until we develop something";
+ mes "more to your liking. In that";
+ mes "case, would you please donate";
+ mes "more medals to my research?";
+ mes "We're always low on them...";
+ next;
+ break;
+ }
}
- if (countitem(7515) > 0) {
+ if (countitem(7515)) {
mes "[Ei'felle]";
mes "The other Blacksmith";
mes "Guildsmen are doing their";
@@ -7210,28 +2236,15 @@ ein_in01,85,208,5 script Ei'felle#repay01 854,{
callsub S_Reward;
end;
}
- else {
- mes "[Ei'felle]";
- mes "If you happen to obtain any";
- mes "medals from the Monster";
- mes "Race Arena in Hugel, then";
- mes "please bring some of them";
- mes "to me. I'll be sure to repay";
- mes "you for your kindness...";
- close;
- }
- }
- else if (ein_medal01 > 1499) {
- if (checkweight(1201,1) == 0) {
- mes "[Ei'felle]";
- mes "Goodness, you're carrying";
- mes "so many things with you!";
- mes "You'd better put some of";
- mes "it away in Kafra Storage";
- mes "before you're overwhelmed";
- mes "by the bulk of your items!";
- close;
- }
+ mes "[Ei'felle]";
+ mes "If you happen to obtain any";
+ mes "medals from the Monster";
+ mes "Race Arena in Hugel, then";
+ mes "please bring some of them";
+ mes "to me. I'll be sure to repay";
+ mes "you for your kindness...";
+ close;
+ } else if (ein_medal01 > 1499) {
mes "[Ei'felle]";
mes "Ah, you're back! I've";
mes "extracted all the metal";
@@ -7246,511 +2259,112 @@ ein_in01,85,208,5 script Ei'felle#repay01 854,{
mes "as my way of repaying you for";
mes "your help. What do you think?";
next;
- switch(select("Yes, I want a Level 4 Weapon.:Can I have something else?")) {
- case 1:
+ if (select("Yes, I want a Level 4 Weapon.:Can I have something else?") == 2) {
mes "[Ei'felle]";
- mes "Great, great!";
- mes "Now, which kind of";
- mes "Level 4 Weapon would";
- mes "you like? It won't do";
- mes "you much good if you";
- mes "can't equip it, right?";
+ mes "Something else?";
+ mes "Oh, alright then, would";
+ mes "you like to have a Glittering";
+ mes "Jacket, or a set of slotted";
+ mes "elemental Armor? Please go";
+ mes "ahead and make your choice~";
next;
- switch(select("Dagger:One Handed Sword:Two Handed Sword:Axe:Mace:Bow:Staff:Book:Spear:Katar:Knuckle:Whip:Musical Instrument")) {
- case 1:
- mes "[Ei'felle]";
- mes "So you want a Dagger?";
- mes "Which Level 4 Dagger";
- mes "would you like me to create?";
- next;
- switch(select("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:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,13002;
- end;
- case 2:
- callsub S_BonusReward,1500,1237;
- end;
- case 3:
- callsub S_BonusReward,1500,13001;
- end;
- case 4:
- callsub S_BonusReward,1500,1225;
- end;
- case 5:
- callsub S_BonusReward,1500,1231;
- end;
- case 6:
- callsub S_BonusReward,1500,1224;
- end;
- case 7:
- callsub S_BonusReward,1500,1230;
- end;
- case 8:
- callsub S_BonusReward,1500,1236;
- end;
- case 9:
- callsub S_BonusReward,1500,1229;
- end;
- case 10:
- callsub S_BonusReward,1500,1235;
- end;
- case 11:
- callsub S_BonusReward,1500,1233;
- end;
- case 12:
- callsub S_BonusReward,1500,1232;
- end;
- case 13:
- callsub S_BonusReward,1500,1234;
- end;
- case 14:
- callsub S_BonusReward,1500,1227;
- end;
- case 15:
- callsub S_BonusReward,1500,1241;
- end;
- case 16:
- callsub S_BonusReward,1500,1242;
- end;
- case 17:
- callsub S_BonusReward,1500,1228;
- end;
- case 18:
- callsub S_BonusReward,1500,1223;
- end;
- case 19:
- break;
- }
- break;
- case 2:
- mes "[Ei'felle]";
- mes "So you'd like to have";
- mes "a One Handed Sword?";
- mes "Please choose which";
- mes "Level 4 Weapon that";
- mes "you want me to create.";
- next;
- switch(select("Nagan:Immaterial Sword:Mysteltainn:Byeollungum:Star Dust Blade:Caesar's Sword:Ice Falchion:Excalibur:Edge:Cutlus:Solar Sword:Tirfing:Fireblend:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1130;
- end;
- case 2:
- callsub S_BonusReward,1500,1141;
- end;
- case 3:
- callsub S_BonusReward,1500,1138;
- end;
- case 4:
- callsub S_BonusReward,1500,1140;
- end;
- case 5:
- callsub S_BonusReward,1500,1148;
- end;
- case 6:
- callsub S_BonusReward,1500,1134;
- end;
- case 7:
- callsub S_BonusReward,1500,1131;
- end;
- case 8:
- callsub S_BonusReward,1500,1137;
- end;
- case 9:
- callsub S_BonusReward,1500,1132;
- end;
- case 10:
- callsub S_BonusReward,1500,1135;
- end;
- case 11:
- callsub S_BonusReward,1500,1136;
- end;
- case 12:
- callsub S_BonusReward,1500,1139;
- end;
- case 13:
- callsub S_BonusReward,1500,1133;
- end;
- case 14:
- break;
- }
- break;
- case 3:
- mes "[Ei'felle]";
- mes "So you'd like to have";
- mes "a Two Handed Sword?";
- mes "Please choose which";
- mes "Level 4 Weapon that";
- mes "you want me to create.";
- next;
- switch(select("Dragon Slayer:Masamune:Muramasa:Schweizersabel:Executioner:Zweihander:Katzbalger:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1166;
- end;
- case 2:
- callsub S_BonusReward,1500,1165;
- end;
- case 3:
- callsub S_BonusReward,1500,1164;
- end;
- case 4:
- callsub S_BonusReward,1500,1167;
- end;
- case 5:
- callsub S_BonusReward,1500,1169;
- end;
- case 6:
- callsub S_BonusReward,1500,1168;
- end;
- case 7:
- callsub S_BonusReward,1500,1170;
- end;
- case 8:
- break;
- }
+ switch (select("Glittering Jacket:Fire Property Armor:Earth Property Armor:Wind Property Armor:Water Property Armor:Cancel")) {
+ case 1: callsub S_BonusReward,500,2319; end;
+ case 2: callsub S_BonusReward,1000,2345; end;
+ case 3: callsub S_BonusReward,1000,2351; end;
+ case 4: callsub S_BonusReward,1000,2349; end;
+ case 5: callsub S_BonusReward,1000,2347; end;
+ case 6: close;
+ }
+ }
+ setarray .@m$, "Dagger","One Handed Sword","Two Handed Sword","Axe","Mace","Bow","Staff","Book","Spear","Katar","Knuckle","Whip","Musical Instrument";
+ set .@m, select (implode(.@m$,":")) - 1;
+ mes "[Ei'felle]";
+ mes "So you'd like to have a";
+ mes .@m$[.@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;
break;
- case 4:
- mes "[Ei'felle]";
- mes "So you'd like to have";
- mes "an Axe? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Great Axe:Guillotine:Light Epsilon:Bloody Axe:Sabbath:Slaughter:Cleaver:Tomahawk:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1364;
- end;
- case 2:
- callsub S_BonusReward,1500,1369;
- end;
- case 3:
- callsub S_BonusReward,1500,1366;
- end;
- case 4:
- callsub S_BonusReward,1500,1363;
- end;
- case 5:
- callsub S_BonusReward,1500,1365;
- end;
- case 6:
- callsub S_BonusReward,1500,1367;
- end;
- case 7:
- callsub S_BonusReward,1500,1305;
- end;
- case 8:
- callsub S_BonusReward,1500,1368;
- end;
- case 9:
- 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;
break;
- case 5:
- mes "[Ei'felle]";
- mes "So you'd like to have";
- mes "a Mace? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Golden Mace:Grand Cross:Long Mace:Spike:Slash:Quadrille:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1524;
- end;
- case 2:
- callsub S_BonusReward,1500,1528;
- end;
- case 3:
- callsub S_BonusReward,1500,1525;
- end;
- case 4:
- callsub S_BonusReward,1500,1523;
- end;
- case 5:
- callsub S_BonusReward,1500,1526;
- end;
- case 6:
- callsub S_BonusReward,1500,1527;
- end;
- case 7:
- break;
- }
- break;
- case 6:
- mes "[Ei'felle]";
- mes "So you'd like to have";
- mes "a Bow? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Roguemaster's Bow:Dragon Wing:Rudra's Bow:Ballista:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1719;
- end;
- case 2:
- callsub S_BonusReward,1500,1724;
- end;
- case 3:
- callsub S_BonusReward,1500,1720;
- end;
- case 4:
- callsub S_BonusReward,1500,1722;
- end;
- case 5:
- break;
- }
+ Case 2:
+ setarray .@mw$, "Dragon Slayer:Masamune:Muramasa:Schweizersabel:Executioner:Zweihander:Katzbalger";
+ setarray .@mw, 1166,1165,1164,1167,1169,1168,1170;
break;
- case 7:
- mes "[Ei'felle]";
- mes "So you'd like to have";
- mes "a Staff? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Wing Staff:Wizardry Staff:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1616;
- end;
- case 2:
- callsub S_BonusReward,1500,1473;
- end;
- case 3:
- 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;
break;
- case 8:
- mes "[Ei'felle]";
- mes "So you'd like to have";
- mes "a Book? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Legacy of Dragon:Book of the Apocalypse:Girl's Diary:Hardcover Book:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1559;
- end;
- case 2:
- callsub S_BonusReward,1500,1557;
- end;
- case 3:
- callsub S_BonusReward,1500,1558;
- end;
- case 4:
- callsub S_BonusReward,1500,1561;
- end;
- case 5:
- break;
- }
+ Case 4:
+ setarray .@mw$, "Golden Mace:Grand Cross:Long Mace:Spike:Slash:Quadrille";
+ setarray .@mw, 1524,1528,1525,1523,1526,1527;
break;
- case 9:
- mes "[Ei'felle]";
- mes "So you'd like to have a";
- mes "Spear? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Gae Bolg:Gelerdria:Gungnir:Skewer:Longinus's Spear:Brionac:Bill Guisarme:Zephyrus:Crescent Scythe:Tjungkuletti:Hellfire:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1474;
- end;
- case 2:
- callsub S_BonusReward,1500,1414;
- end;
- case 3:
- callsub S_BonusReward,1500,1413;
- end;
- case 4:
- callsub S_BonusReward,1500,1415;
- end;
- case 5:
- callsub S_BonusReward,1500,1469;
- end;
- case 6:
- callsub S_BonusReward,1500,1470;
- end;
- case 7:
- callsub S_BonusReward,1500,1467;
- end;
- case 8:
- callsub S_BonusReward,1500,1468;
- end;
- case 9:
- callsub S_BonusReward,1500,1466;
- end;
- case 10:
- callsub S_BonusReward,1500,1416;
- end;
- case 11:
- callsub S_BonusReward,1500,1471;
- end;
- case 12:
- break;
- }
+ Case 5:
+ setarray .@mw$, "Roguemaster's Bow:Dragon Wing:Rudra's Bow:Ballista";
+ setarray .@mw, 1719,1724,1720,1722;
break;
- case 10:
- mes "[Ei'felle]";
- mes "So you'd like to have a";
- mes "Katar? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Infiltrator:Bloody Roar:Unholy Touch:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1261;
- end;
- case 2:
- callsub S_BonusReward,1500,1265;
- end;
- case 3:
- callsub S_BonusReward,1500,1263;
- end;
- case 4:
- break;
- }
+ Case 6:
+ setarray .@mw$, "Wing Staff:Wizardry Staff";
+ setarray .@mw, 1616,1473;
+ Case 7:
+ setarray .@mw$, "Legacy of Dragon:Book of the Apocalypse:Girl's Diary:Hardcover Book";
+ setarray .@mw, 1559,1557,1558,1561;
break;
- case 11:
- mes "[Ei'felle]";
- mes "So you'd like to have a";
- mes "Knuckle? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Hatii Claw:Berserk:Kaiser Knuckle:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1815;
- end;
- case 2:
- callsub S_BonusReward,1500,1814;
- end;
- case 3:
- callsub S_BonusReward,1500,1813;
- end;
- case 4:
- 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;
break;
- case 12:
- mes "[Ei'felle]";
- mes "So you'd like to have a";
- mes "Whip? Please choose";
- mes "which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Lariat:Rapture Rose:Blade Whip:Chemeti:Queen's Whip:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1962;
- end;
- case 2:
- callsub S_BonusReward,1500,1963;
- end;
- case 3:
- callsub S_BonusReward,1500,1969;
- end;
- case 4:
- callsub S_BonusReward,1500,1964;
- end;
- case 5:
- callsub S_BonusReward,1500,1970;
- end;
- case 6:
- break;
- }
+ Case 9:
+ setarray .@mw$, "Infiltrator:Bloody Roar:Unholy Touch";
+ setarray .@mw, 1261,1265,1263;
break;
- case 13:
- mes "[Ei'felle]";
- mes "So you'd like to have a";
- mes "Musical Instrument? Please";
- mes "choose which Level 4 Weapon";
- mes "that you want me to create.";
- next;
- switch(select("Oriental Lute:Electric Guitar:Cancel")) {
- case 1:
- callsub S_BonusReward,1500,1918;
- end;
- case 2:
- callsub S_BonusReward,1500,1913;
- end;
- case 3:
- break;
- }
+ Case 10:
+ setarray .@mw$, "Hatii Claw:Berserk:Kaiser Knuckle";
+ setarray .@mw, 1815,1814,1813;
break;
- }
- break;
- case 2:
- mes "[Ei'felle]";
- mes "Something else?";
- mes "Oh, alright then, would";
- mes "you like to have a Glittering";
- mes "Jacket, or a set of slotted";
- mes "elemental Armor? Please go";
- mes "ahead and make your choice~";
- next;
- switch(select("Glittering Jacket:Fire Property Armor:Earth Property Armor:Wind Property Armor:Water Property Armor:Cancel")) {
- case 1:
- callsub S_BonusReward,500,2319;
- end;
- case 2:
- callsub S_BonusReward,1000,2345;
- end;
- case 3:
- callsub S_BonusReward,1000,2351;
- end;
- case 4:
- callsub S_BonusReward,1000,2349;
- end;
- case 5:
- callsub S_BonusReward,1000,2347;
- end;
- case 6:
+ Case 11:
+ setarray .@mw$, "Lariat:Rapture Rose:Blade Whip:Chemeti:Queen's Whip";
+ setarray .@mw, 1962,1963,1969,1964,1970;
break;
- }
- break;
- }
- }
- else {
- mes "[Ei'felle]";
- mes "Oh, how have you been?";
- mes "Thank you so much for";
- mes "donating so many medals,";
- mes "they've been helpful in my";
- mes "research. Still, I need more";
- mes "and more of them everyday...";
- next;
- if (countitem(7515) > 0) {
- mes "[Ei'felle]";
- mes "The other Blacksmith";
- mes "Guildsmen are doing their";
- mes "best to collect Prize Medals";
- mes "in Hugel, but they keep failing";
- mes "to win them! If you have any";
- mes "medals, then may I have some?";
- next;
- callsub S_Reward;
- end;
- }
- else {
- mes "[Ei'felle]";
- mes "If you happen to obtain any";
- mes "medals from the Monster";
- mes "Race Arena in Hugel, then";
- mes "please bring some of them";
- mes "to me. I'll be sure to repay";
- mes "you for your kindness...";
- close;
- }
+ Case 12:
+ setarray .@mw$, "Oriental Lute:Electric Guitar";
+ setarray .@mw, 1918,1913;
+ break;
+ }
+ set .@j, select (.@mw$+":Cancel") - 1;
+ explode(.@mw$,.@mw$,":");
+ if (.@j == getarraysize(.@mw$)) close;
+ callsub S_BonusReward,1500,.@mw[.@j];
+ end;
}
- close;
-
+
S_Reward:
- switch(select("Sure:No")) {
- case 1:
+ if (select("Sure:No") == 2) {
mes "[Ei'felle]";
- mes "Oh, thank you so much!";
- mes "I can use the metal in those";
- mes "medals to produce some high";
- mes "quality products. Now, how";
- mes "shall I repay you for giving me";
- mes "some of your Prize Medals?";
- next;
- switch(select("Base Experience:Job Experience:No, I'm just glad to help.:How's your research progressing?")) {
+ mes "Oh, alright...";
+ mes "Still, I really need";
+ mes "those medals, so if you";
+ mes "change your mind, please";
+ mes "come back as soon as you can.";
+ emotion e_sob;
+ close;
+ }
+ mes "[Ei'felle]";
+ mes "Oh, thank you so much!";
+ mes "I can use the metal in those";
+ mes "medals to produce some high";
+ mes "quality products. Now, how";
+ mes "shall I repay you for giving me";
+ mes "some of your Prize Medals?";
+ next;
+ switch(select("Base Experience:Job Experience:No, I'm just glad to help.:How's your research progressing?")) {
case 1:
mes "[Ei'felle]";
mes "You just want to improve";
@@ -7774,30 +2388,18 @@ S_Reward:
mes "Now do you see the";
mes "power of hope?";
delitem 7515,1; //Marvelous_Medal
- if (BaseLevel < 21)
- getexp 200,0;
- else if ((BaseLevel > 20) && (BaseLevel < 31))
- getexp 300,0;
- else if ((BaseLevel > 30) && (BaseLevel < 41))
- getexp 1000,0;
- else if ((BaseLevel > 40) && (BaseLevel < 51))
- getexp 1800,0;
- else if ((BaseLevel > 50) && (BaseLevel < 61))
- getexp 2500,0;
- else if ((BaseLevel > 60) && (BaseLevel < 71))
- getexp 4700,0;
- else if ((BaseLevel > 70) && (BaseLevel < 81))
- getexp 5500,0;
- else if ((BaseLevel > 80) && (BaseLevel < 96))
- getexp 7000,0;
- else if ((BaseLevel > 95) && (BaseLevel < 111))
- getexp 8800,0;
- else if ((BaseLevel > 110) && (BaseLevel < 126))
- getexp 10900,0;
- else if ((BaseLevel > 125) && (BaseLevel < 141))
- getexp 13300,0;
- else
- getexp 16000,0;
+ if (BaseLevel < 21) getexp 200,0;
+ else if ((BaseLevel > 20) && (BaseLevel < 31)) getexp 300,0;
+ else if ((BaseLevel > 30) && (BaseLevel < 41)) getexp 1000,0;
+ else if ((BaseLevel > 40) && (BaseLevel < 51)) getexp 1800,0;
+ else if ((BaseLevel > 50) && (BaseLevel < 61)) getexp 2500,0;
+ else if ((BaseLevel > 60) && (BaseLevel < 71)) getexp 4700,0;
+ else if ((BaseLevel > 70) && (BaseLevel < 81)) getexp 5500,0;
+ else if ((BaseLevel > 80) && (BaseLevel < 96)) getexp 7000,0;
+ else if ((BaseLevel > 95) && (BaseLevel < 111)) getexp 8800,0;
+ else if ((BaseLevel > 110) && (BaseLevel < 126)) getexp 10900,0;
+ else if ((BaseLevel > 125) && (BaseLevel < 141)) getexp 13300,0;
+ else getexp 16000,0;
close;
case 2:
mes "[Ei'felle]";
@@ -7825,30 +2427,18 @@ S_Reward:
mes "whatever you feed it.";
mes "Placebos and psychosomatic symptoms-- it all ties together.";
delitem 7515,1; //Marvelous_Medal
- if (BaseLevel < 21)
- getexp 0,150;
- else if ((BaseLevel > 20) && (BaseLevel < 31))
- getexp 0,200;
- else if ((BaseLevel > 30) && (BaseLevel < 41))
- getexp 0,750;
- else if ((BaseLevel > 40) && (BaseLevel < 51))
- getexp 0,1800;
- else if ((BaseLevel > 50) && (BaseLevel < 61))
- getexp 0,2500;
- else if ((BaseLevel > 60) && (BaseLevel < 71))
- getexp 0,3525;
- else if ((BaseLevel > 70) && (BaseLevel < 81))
- getexp 0,4125;
- else if ((BaseLevel > 80) && (BaseLevel < 96))
- getexp 0,5250;
- else if ((BaseLevel > 95) && (BaseLevel < 111))
- getexp 0,6600;
- else if ((BaseLevel > 110) && (BaseLevel < 126))
- getexp 0,8175;
- else if ((BaseLevel > 125) && (BaseLevel < 141))
- getexp 0,9975;
- else
- getexp 0,12000;
+ if (BaseLevel < 21) getexp 0,150;
+ else if ((BaseLevel > 20) && (BaseLevel < 31)) getexp 0,200;
+ else if ((BaseLevel > 30) && (BaseLevel < 41)) getexp 0,750;
+ else if ((BaseLevel > 40) && (BaseLevel < 51)) getexp 0,1800;
+ else if ((BaseLevel > 50) && (BaseLevel < 61)) getexp 0,2500;
+ else if ((BaseLevel > 60) && (BaseLevel < 71)) getexp 0,3525;
+ else if ((BaseLevel > 70) && (BaseLevel < 81)) getexp 0,4125;
+ else if ((BaseLevel > 80) && (BaseLevel < 96)) getexp 0,5250;
+ else if ((BaseLevel > 95) && (BaseLevel < 111)) getexp 0,6600;
+ else if ((BaseLevel > 110) && (BaseLevel < 126)) getexp 0,8175;
+ else if ((BaseLevel > 125) && (BaseLevel < 141)) getexp 0,9975;
+ else getexp 0,12000;
close;
case 3:
mes "[Ei'felle]";
@@ -7905,7 +2495,7 @@ S_Reward:
next;
while(1) {
input .@input;
- if (.@input == 0) {
+ if (!.@input) {
mes "[Ei'felle]";
mes "Aw, so you've decided";
mes "to cancel? Well, it's your";
@@ -7913,8 +2503,7 @@ S_Reward:
mes "disappointed. Please come";
mes "back if you change your mind...";
close;
- }
- else if (.@input < 0 || .@input > 100) {
+ } else if (.@input < 1 || .@input > 100) {
mes "[Ei'felle]";
mes "Remember, you can only";
mes "enter a number from 1 to 100.";
@@ -7922,9 +2511,7 @@ S_Reward:
mes "medals, then perhaps you";
mes "should just give them all to me~ ^FFFFFF ^000000";
next;
- }
- else
- break;
+ } else break;
}
if (countitem(7515) < .@input) {
mes "[Ei'felle]";
@@ -7935,8 +2522,7 @@ S_Reward:
mes "medals that you actually have.";
emotion e_heh;
close;
- }
- else {
+ } else {
mes "[Ei'felle]";
mes "Th-thank you!";
mes "Thank you so much!";
@@ -7975,16 +2561,6 @@ S_Reward:
mes "you've donated to me. The more";
mes "that you bring, the closer I can get to making a new breakthrough!";
close;
- }
- case 2:
- mes "[Ei'felle]";
- mes "Oh, alright...";
- mes "Still, I really need";
- mes "those medals, so if you";
- mes "change your mind, please";
- mes "come back as soon as you can.";
- emotion e_sob;
- close;
}
S_BonusReward:
@@ -7995,23 +2571,17 @@ S_BonusReward:
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 ((getarg(1) == 2345) || (getarg(1) == 2347) || (getarg(1) == 2349) || (getarg(1) == 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 (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,";
mes "I'll need more medals from you";
mes "to make further advancements";
mes "in my manufacturing research.";
- }
- else {
+ } else {
mes "So you wish to have a";
mes getitemname(getarg(1))+"? If you choose";
mes "to have this Level 4 Weapon,";
@@ -8020,8 +2590,7 @@ S_BonusReward:
mes "to me. Shall we proceed?";
}
next;
- switch(select("Decline:Accept")) {
- case 1:
+ if (select("Decline:Accept") == 1) {
mes "["+ strcharinfo(0) +"]";
mes "W-wait, I changed my";
mes "mind. Would it be fine";
@@ -8035,55 +2604,47 @@ S_BonusReward:
mes "more medals to me, then";
mes "I'll be able to create items";
mes "of higher quality for you~";
- }
- else {
+ } else {
mes "I don't think I can develop";
mes "anything better than these Level 4 Weapons, but after making";
mes "such a big investment, you should decide on what you want carefully.";
}
close;
- case 2:
- mes "[Ei'felle]";
- if (getarg(1) == 2319) {
- mes "Here you are, I trust that";
- mes "this "+getitemname(getarg(1))+" 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)) {
- 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";
- mes "property Armor will serve you";
- mes "well. Thank you for your help,";
- mes "and if you get more medals,";
- mes "please donate them to me~";
- }
- else {
- mes "Once again, I'd like to";
- mes "thank you for providing";
- mes "me with all of those medals.";
- mes "I imagine it must have been";
- mes "difficult. In any case, I would";
- mes "appreciate your continued help~";
- }
- set ein_medal01,ein_medal01-getarg(0);
- getitem getarg(1),1;
- close;
}
-
+ mes "[Ei'felle]";
+ if (getarg(1) == 2319) {
+ mes "Here you are, I trust that";
+ mes "this "+getitemname(getarg(1))+" 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)) {
+ 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";
+ mes "property Armor will serve you";
+ mes "well. Thank you for your help,";
+ mes "and if you get more medals,";
+ mes "please donate them to me~";
+ } else {
+ mes "Once again, I'd like to";
+ mes "thank you for providing";
+ mes "me with all of those medals.";
+ mes "I imagine it must have been";
+ mes "difficult. In any case, I would";
+ mes "appreciate your continued help~";
+ }
+ set ein_medal01,ein_medal01-getarg(0);
+ getitem getarg(1),1;
+ close;
}
hugel,71,83,4 script Wayne 900,{
- if (checkweight(1201,1) == 0) {
+ if (!checkweight(1201,1)) {
mes "[Wayne]";
mes "Hold on a second...";
mes "If you want to exchange";
@@ -8106,400 +2667,7 @@ hugel,71,83,4 script Wayne 900,{
mes "now, with me. As always, the";
mes "choice is really up to you.";
next;
- switch(select("Prize Medal Exchange:Cancel")) {
- case 1:
- if (checkweight(909,550) == 0) {
- mes "[Wayne]";
- mes "Hold on a second...";
- mes "If you want to exchange";
- mes "your Prize Medals for items,";
- 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;
- switch(select("1 Prize Medal:3 Prize Medals:7 Prize Medals:8 Prize Medals:16 Prize Medals:25 Prize Medals:42 Prize Medals:59 Prize Medals")) {
- case 1:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 1 Prize Medal.";
- next;
- switch(select("2 Hinale Leaflets:2 Aloe Leaflets:1 Mastela Fruit:5 Witch Starsands:4 Condensed Red Potions")) {
- case 1:
- if (countitem(7515) < 1) {
- 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;
- }
- else {
- 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,1; //Marvelous_Medal
- getitem 520,2; //Leaflet_Of_Hinal
- close;
- }
- case 2:
- if (countitem(7515) < 1) {
- 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;
- }
- else {
- 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,1; //Marvelous_Medal
- getitem 521,2; //Leaflet_Of_Aloe
- close;
- }
- case 3:
- if (countitem(7515) < 1) {
- 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;
- }
- else {
- 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,1; //Marvelous_Medal
- getitem 522,1; //Fruit_Of_Mastela
- close;
- }
- case 4:
- if (countitem(7515) < 1) {
- 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;
- }
- else {
- 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,1; //Marvelous_Medal
- getitem 1061,5; //Starsand_Of_Witch
- close;
- }
- case 5:
- if (countitem(7515) < 1) {
- 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;
- }
- else {
- 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,1; //Marvelous_Medal
- getitem 545,4; //Red_Slim_Potion
- close;
- }
- }
- case 2:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 3 Prize Medals.";
- next;
- switch(select("1 Royal Jelly:6 Holy Waters")) {
- case 1:
- if (countitem(7515) < 3) {
- 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;
- }
- else {
- 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,3; //Marvelous_Medal
- getitem 526,1; //Royal_Jelly
- close;
- }
- case 2:
- if (countitem(7515) < 3) {
- 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;
- }
- else {
- 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,3; //Marvelous_Medal
- getitem 523,6; //Holy_Water
- close;
- }
- }
- case 3:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 7 Prize Medals.";
- next;
- switch(select("1 Cookie Bag:1 First Aid Kit")) {
- case 1:
- if (countitem(7515) < 7) {
- 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;
- }
- else {
- 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,7; //Marvelous_Medal
- getitem 12130,1; //Cookie_Bag
- close;
- }
- case 2:
- if (countitem(7515) < 7) {
- 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;
- }
- else {
- 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,7; //Marvelous_Medal
- getitem 12110,1; //First_Aid_Kit
- close;
- }
- }
- case 4:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 8 Prize Medals. Well, we have only 1 set, but...";
- next;
- select("1 Gift Box");
- if (countitem(7515) < 8) {
- 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;
- }
- else {
- 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,8; //Marvelous_Medal
- getitem 644,1; //Gift_Box
- close;
- }
- case 5:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 16 Prize Medals. Well, we have only 1 set, but...";
- next;
- select("1 Old Blue Box");
- if (countitem(7515) < 16) {
- 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;
- }
- else {
- 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,16; //Marvelous_Medal
- getitem 603,1; //Old_Blue_Box
- close;
- }
- case 6:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 25 Prize Medals. Well, we have only 1 set, but...";
- next;
- select("1 Taming Gift Set");
- if (countitem(7515) < 25) {
- 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;
- }
- else {
- 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,25; //Marvelous_Medal
- getitem 12105,1; //Set_Of_Taiming_Item
- close;
- }
- case 7:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 42 Prize Medals. Well, we have only 1 set, but...";
- next;
- select("1 Old Purple Box");
- if (countitem(7515) < 42) {
- 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;
- }
- else {
- 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,42; //Marvelous_Medal
- getitem 617,1; //Old_Violet_Box
- close;
- }
- case 8:
- mes "[Wayne]";
- mes "Now, please choose";
- mes "which of the following item";
- mes "sets that you'd like to receive";
- mes "in exchange for 59 Prize Medals. Well, we have only 1 set, but...";
- next;
- select("1 Poring Box");
- if (countitem(7515) < 59) {
- 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;
- }
- else {
- 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,59; //Marvelous_Medal
- getitem 12109,1; //Poring_Box
- close;
- }
- }
- }
- case 2:
+ if (select("Prize Medal Exchange:Cancel") == 2) {
mes "[Wayne]";
mes "Well, just keep in mind";
mes "that you can always come";
@@ -8517,6 +2685,88 @@ hugel,71,83,4 script Wayne 900,{
mes "all your effort, you know?";
close;
}
+ if (!checkweight(909,550)) {
+ mes "[Wayne]";
+ mes "Hold on a second...";
+ mes "If you want to exchange";
+ mes "your Prize Medals for items,";
+ 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 (set .@i, 0; .@i < getarraysize(.@pm); set .@i, .@i + 1)
+ set .@m$, .@m$ + .@pm[.@i] + " Prize medal:";
+ set .@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:
+ set .@mr$, "1 Gift Box";
+ setarray .@mr, 644,1;
+ break;
+ Case 4:
+ set .@mr$, "1 Old Blue Box";
+ setarray .@mr, 603,1;
+ break;
+ Case 5:
+ set .@mr$, "1 Taming Gift Set";
+ setarray .@mr, 12105,1;
+ break;
+ Case 6:
+ set .@mr$, "1 Old Purple Box";
+ setarray .@mr, 617,1;
+ break;
+ Case 7:
+ set .@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;
+ set .@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 "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)];
+ close;
+ }
}
//============================================================
@@ -8604,7 +2854,7 @@ p_track02,32,45,5 script Eccentric Scholar#double 755,{
}
p_track02,69,31,1 script Blacksmith Guildsman#dou 726,{
- if ($@mon_time_2_2 == 0) {
+ if (!$@mon_time_2_2) {
mes "[Blacksmith Guildsman]";
mes "How many times must";
mes "I wager on these races?!";
@@ -8622,17 +2872,15 @@ p_track02,69,31,1 script Blacksmith Guildsman#dou 726,{
mes "It's too hard for me to win~!";
emotion e_swt2;
close;
- }
- else {
- mes "[Blacksmith Guildsman]";
- mes "Run! Go go go!";
- mes "I need to win some";
- mes "medals! Otherwise, I'll";
- mes "be too ashamed to return";
- mes "home to Einbroch! F-faster!";
- emotion e_korea;
- close;
- }
+ }
+ mes "[Blacksmith Guildsman]";
+ mes "Run! Go go go!";
+ mes "I need to win some";
+ mes "medals! Otherwise, I'll";
+ mes "be too ashamed to return";
+ mes "home to Einbroch! F-faster!";
+ emotion e_korea;
+ close;
}
p_track02,53,45,3 script Valiant Knight#double 733,{
@@ -8720,4 +2968,4 @@ p_track01,45,42,3 script Absent Minded Man#single 881,{
mes "I should win at least once,";
mes "right? What's going on?!";
close;
-}
+} \ No newline at end of file