diff options
Diffstat (limited to 'npc/other')
27 files changed, 1258 insertions, 1272 deletions
diff --git a/npc/other/CashShop_Functions.txt b/npc/other/CashShop_Functions.txt index 76056cb52..39bfa3c97 100644 --- a/npc/other/CashShop_Functions.txt +++ b/npc/other/CashShop_Functions.txt @@ -59,10 +59,10 @@ function script F_CashPartyCall { // - Reset players skills. Weight must be 0, options must be off. // - No arguments. function script F_CashReset { - if (Class != Job_Novice && Weight == 0 && !checkriding() && !checkfalcon() && !checkcart() && !ismounting()) { + if (Class != Job_Novice && Weight == 0 && !checkmount() && !checkfalcon() && !checkcart() && !hascashmount()) { resetskill; sc_end SC_ALL; - if (countitem(12213)) delitem 12213,1; + if (countitem(Neuralizer)) delitem Neuralizer,1; } return; } diff --git a/npc/other/Global_Functions.txt b/npc/other/Global_Functions.txt index 559ba151f..4e9060419 100644 --- a/npc/other/Global_Functions.txt +++ b/npc/other/Global_Functions.txt @@ -48,74 +48,74 @@ function script F_ClearJobVar { // Misc --------------------------------- - set JBLVL,0; - set FIRSTAID,0; - set PLAYDEAD,0; - set got_bandage,0; - set got_novnametag,0; + JBLVL = 0; + FIRSTAID = 0; + PLAYDEAD = 0; + got_bandage = 0; + got_novnametag = 0; // First Class Jobs --------------------- - set job_acolyte_q,0; set job_acolyte_q2,0; - set job_archer_q,0; - set job_magician_q,0; - set job_merchant_q,0; set job_merchant_q2,0; set job_merchant_q3,0; - set job_sword_q,0; set SWTEST, 0; - set job_thief_q,0; + job_acolyte_q = 0; job_acolyte_q2 = 0; + job_archer_q = 0; + job_magician_q = 0; + job_merchant_q = 0; job_merchant_q2 = 0; job_merchant_q3 = 0; + job_sword_q = 0; SWTEST = 0; + job_thief_q = 0; // Super Novice - set SUPNOV_Q,0; + SUPNOV_Q = 0; // 2-1 Jobs ------------------------------ - set ASSIN_Q,0; set ASSIN_Q2,0; set ASSIN_Q3,0; - set BSMITH_Q,0; set BSMITH_Q2,0; - set HNTR_Q,0; set HNTR_Q2,0; - set KNIGHT_Q,0; set KNIGHT_Q2,0; - set PRIEST_Q,0; set PRIEST_Q2,0; set PRIEST_Q3,0; - set WIZ_Q,0; set WIZ_Q2,0; + ASSIN_Q = 0; ASSIN_Q2 = 0; ASSIN_Q3 = 0; + BSMITH_Q = 0; BSMITH_Q2 = 0; + HNTR_Q = 0; HNTR_Q2 = 0; + KNIGHT_Q = 0; KNIGHT_Q2 = 0; + PRIEST_Q = 0; PRIEST_Q2 = 0; PRIEST_Q3 = 0; + WIZ_Q = 0; WIZ_Q2 = 0; // 2-2 Jobs ------------------------------ - set ROGUE_Q,0; set ROGUE_Q2,0; - set ALCH_Q,0; set ALCH_Q2,0; - set CRUS_Q,0; - set MONK_Q,0; set JOB_MONK_C,0; - set SAGE_Q,0; set SAGE_Q2,0; - set DANC_Q,0; - set BARD_Q,0; + ROGUE_Q = 0; ROGUE_Q2 = 0; + ALCH_Q = 0; ALCH_Q2 = 0; + CRUS_Q = 0; + MONK_Q = 0; JOB_MONK_C = 0; + SAGE_Q = 0; SAGE_Q2 = 0; + DANC_Q = 0; + BARD_Q = 0; // Extended Classes - set TAEK_Q,0; set TK_Q,0; - set STGL_Q,0; - set SOUL_Q,0; - set GUNS_Q,0; - set NINJ_Q,0; + TAEK_Q = 0; TK_Q = 0; + STGL_Q = 0; + SOUL_Q = 0; + GUNS_Q = 0; + NINJ_Q = 0; return; } function script F_ClearGarbage { // Clear outdated global VARS //Clear TURTLE var if the Turtle Islans Quest is already done - if(TURTLE==20) set MISC_QUEST,MISC_QUEST | 65536; - if(MISC_QUEST & 65536) set TURTLE,0; //now clear the var if the quest is over + if(TURTLE==20) MISC_QUEST |= 65536; + if(MISC_QUEST & 65536) TURTLE = 0; //now clear the var if the quest is over //Clear previously saved Quest Skills (now it isn't used) - set ADV_QSK,0; - set ADV_QSK2,0; + ADV_QSK = 0; + ADV_QSK2 = 0; //Old Seset Skill Event used to use RES_SKILL var - set RES_SKILL,0; + RES_SKILL = 0; //Here you put outdated variables from your outdated EVENTS //e.g. Is XMAS done? Add the EVENT var clearing code here. //due to bugs in BS quest: - set wizard_m2,0; + wizard_m2 = 0; // Old Novice Ground Variables. - set NEW_MES_FLAG0,0; - set NEW_MES_FLAG1,0; - set NEW_MES_FLAG2,0; - set NEW_MES_FLAG3,0; - set NEW_MES_FLAG4,0; - set NEW_MES_FLAG5,0; - set NEW_LVUP0,0; - set NEW_LVUP1,0; - set NEW_JOBLVUP,0; + NEW_MES_FLAG0 = 0; + NEW_MES_FLAG1 = 0; + NEW_MES_FLAG2 = 0; + NEW_MES_FLAG3 = 0; + NEW_MES_FLAG4 = 0; + NEW_MES_FLAG5 = 0; + NEW_LVUP0 = 0; + NEW_LVUP1 = 0; + NEW_JOBLVUP = 0; // Old DTS variables that are no longer used. - set dtseligible,0; - set MISC_QUEST,MISC_QUEST & ~128; + dtseligible = 0; + MISC_QUEST = MISC_QUEST & ~128; return; } @@ -144,7 +144,7 @@ function script Job_Change { //returns random argument // Example: check F_Bye or F_Hi functions // READ AND THINK: You can use it to pick a random number from a list: -// set @itemIDfromList, callfunc("F_Rand",1129,1222,1163,1357,1360,1522,1811,1410); +// @itemIDfromList = callfunc("F_Rand",1129,1222,1163,1357,1360,1522,1811,1410); function script F_Rand { return getarg(rand(getargcount())); @@ -196,20 +196,20 @@ function script F_Bye { function script F_ItemName { if(getarg(3)) - set .@t$,.@t$+"+"+getarg(3)+" "; + .@t$ += "+"+getarg(3)+" "; switch(getarg(2)) { case 0: break; - case 1: set .@t$,.@t$+"VS "; break; - case 2: set .@t$,.@t$+"VVS "; break; - case 3: set .@t$,.@t$+"VVVS "; break; - default: set .@t$,.@t$+getarg(2)+"xVS "; break; + case 1: .@t$ += "VS "; break; + case 2: .@t$ += "VVS "; break; + case 3: .@t$ += "VVVS "; break; + default: .@t$ += getarg(2)+"xVS "; break; } switch(getarg(1)) { - case 1: set .@t$,.@t$+"Ice "; break; - case 2: set .@t$,.@t$+"Earth "; break; - case 3: set .@t$,.@t$+"Fire "; break; - case 4: set .@t$,.@t$+"Wind "; break; - default: set .@t$,.@t$+"Strange "; break; + case 1: .@t$ += "Ice "; break; + case 2: .@t$ += "Earth "; break; + case 3: .@t$ += "Fire "; break; + case 4: .@t$ += "Wind "; break; + default: .@t$ += "Strange "; break; } return "^000090"+.@t$+getitemname(getarg(0))+"^000000"; } @@ -218,14 +218,14 @@ function script F_ItemName { // *** Function "F_SaveQuestSkills": Store learnt quest skills ////////////////////////////////////////////////////////////////////////////////// function script F_SaveQuestSkills { - set ADV_QSK,0; set ADV_QSK2,0; + ADV_QSK = 0; ADV_QSK2 = 0; //1st classes quest skills - for(set .@i, 0; .@i < 14; set .@i, .@i + 1){ - if(getskilllv(144+.@i)) set ADV_QSK,ADV_QSK|pow(2,.@i); + for (.@i = 0; .@i < 14; ++.@i) { + if(getskilllv(144+.@i)) ADV_QSK |= pow(2,.@i); } //2nd classes quest skills - for(set .@i, 0; .@i < 19; set .@i, .@i + 1){ - if(getskilllv(1001+.@i)) set ADV_QSK2,ADV_QSK2|pow(2,.@i); + for (.@i = 0; .@i < 19; ++.@i) { + if(getskilllv(1001+.@i)) ADV_QSK2 |= pow(2,.@i); } return; } @@ -235,10 +235,10 @@ function script F_SaveQuestSkills { ////////////////////////////////////////////////////////////////////////////////// function script F_Load1Skills { //1st classes quest skills - for(set .@i, 0; .@i < 14; set .@i, .@i + 1){ + for(.@i = 0; .@i < 14; ++.@i) { if(ADV_QSK|pow(2,.@i) == ADV_QSK) skill 144+.@i,1,0; } - set ADV_QSK,0; //Clear var + ADV_QSK = 0; //Clear var return; } @@ -247,10 +247,10 @@ function script F_Load1Skills { ////////////////////////////////////////////////////////////////////////////////// function script F_Load2Skills { //2nd classes quest skills - for(set .@i, 0; .@i < 19; set .@i, .@i + 1){ + for (.@i = 0; .@i < 19; ++.@i) { if(ADV_QSK2|pow(2,.@i) == ADV_QSK2) skill 1001+.@i,1,0; } - set ADV_QSK2,0; //Clear var + ADV_QSK2 = 0; //Clear var return; } @@ -309,35 +309,35 @@ function script F_GetArmorType { // Time calculation Function // ********************************************************************* function script Time2Str { - set .@time_left, getarg(0) - gettimetick(2); + .@time_left = getarg(0) - gettimetick(2); - set .@Days, .@time_left / 86400; - set .@time_left, .@time_left - (.@Days * 86400); - set .@Hours, .@time_left / 3600; - set .@time_left, .@time_left - (.@Hours * 3600); - set .@Minutes, .@time_left / 60; - set .@time_left, .@time_left - (.@Minutes * 60); + .@Days = .@time_left / 86400; + .@time_left -= (.@Days * 86400); + .@Hours = .@time_left / 3600; + .@time_left -= (.@Hours * 3600); + .@Minutes = .@time_left / 60; + .@time_left -= (.@Minutes * 60); - set .@Time$, ""; + .@Time$ = ""; if( .@Days > 1 ) - set .@Time$, .@Time$ + .@Days + " days, "; + .@Time$ += .@Days + " days, "; else if( .@Days > 0 ) - set .@Time$, .@Time$ + .@Days + " day, "; + .@Time$ += .@Days + " day, "; if( .@Hours > 1 ) - set .@Time$, .@Time$ + .@Hours + " hours, "; + .@Time$ += .@Hours + " hours, "; else if( .@Hours > 0 ) - set .@Time$, .@Time$ + .@Hours + " hour, "; + .@Time$ += .@Hours + " hour, "; if( .@Minutes > 1 ) - set .@Time$, .@Time$ + .@Minutes + " minutes, "; + .@Time$ += .@Minutes + " minutes, "; else if( .@Minutes > 0 ) - set .@Time$, .@Time$ + .@Minutes + " minute, "; + .@Time$ += .@Minutes + " minute, "; if( .@time_left > 1 || .@time_left == 0 ) - set .@Time$, .@Time$ + .@time_left + " seconds"; + .@Time$ += .@time_left + " seconds"; else if( .@time_left == 1 ) - set .@Time$, .@Time$ + .@time_left + " second"; + .@Time$ += .@time_left + " second"; return .@Time$; } diff --git a/npc/other/acolyte_warp.txt b/npc/other/acolyte_warp.txt index 10cd72124..9760d4e67 100644 --- a/npc/other/acolyte_warp.txt +++ b/npc/other/acolyte_warp.txt @@ -41,10 +41,10 @@ prontera,98,121,4 script Acolyte#Prtclear 4_F_01,{ setarray .@maps$[0], "izlude", "geffen", "payon", "morocc", "alberta", "aldebaran", "comodo", "umbala", "yuno"; setarray .@cost[0], 600, 1200, 1200, 1200, 1800, 2200, 2200, 2200, 1800; - set .@size, getarraysize(.@towns$); - for(set .@i,0; .@i<.@size; set .@i,.@i+1) - set .@menu$, .@menu$+.@towns$[.@i]+" -> "+.@cost[.@i]+"z:"; - set .@i, select(.@menu$+"Cancel")-1; + .@size = getarraysize(.@towns$); + for(.@i = 0; .@i<.@size; ++.@i) + .@menu$ += .@towns$[.@i]+" -> "+.@cost[.@i]+"z:"; + .@i = select(.@menu$+"Cancel")-1; if (.@i == .@size) close; if (Zeny < .@cost[.@i]) { @@ -104,10 +104,10 @@ yuno,142,184,6 script Acolyte#Junoclear 4_F_01,{ setarray .@maps$[0], "einbroch", "lighthalzen", "hugel", "rachel", "prontera"; setarray .@cost[0], 2200, 2200, 2200, 2200, 1800; - set .@size, getarraysize(.@towns$); - for(set .@i,0; .@i<.@size; set .@i,.@i+1) - set .@menu$, .@menu$+.@towns$[.@i]+" -> "+.@cost[.@i]+"z:"; - set .@i, select(.@menu$+"Cancel")-1; + .@size = getarraysize(.@towns$); + for(.@i = 0; .@i<.@size; ++.@i) + .@menu$ += .@towns$[.@i]+" -> "+.@cost[.@i]+"z:"; + .@i = select(.@menu$+"Cancel")-1; if (.@i == .@size) close; if (Zeny < .@cost[.@i]) { diff --git a/npc/other/arena/arena_aco.txt b/npc/other/arena/arena_aco.txt index cc0b4b640..65ed3c6e3 100644 --- a/npc/other/arena/arena_aco.txt +++ b/npc/other/arena/arena_aco.txt @@ -113,7 +113,7 @@ OnReset_09: - script Trocco#aco1 -1,{ OnEnable: initnpctimer; - set $@arn_1,gettimetick(2); + $@arn_1 = gettimetick(2); end; OnTimer2000: @@ -302,7 +302,7 @@ OnMyMobDead: force_5-1,25,69,0 script force_02start#aco -1,1,1,{ OnTouch: - set $@drop_gate,0; + $@drop_gate = 0; donpcevent "force_02mob#aco::OnEnable"; disablenpc "force_02start#aco"; end; @@ -320,7 +320,7 @@ OnReset: OnMyMobDead: if ((mobcount("force_5-1","force_02mob#aco::OnMyMobDead") < 11) && ($@drop_gate == 0)) { - set $@drop_gate,1; + $@drop_gate = 1; donpcevent "Trocco#aco1::On02_End"; donpcevent "arena_aco1::OnReset_02"; } @@ -482,7 +482,7 @@ OnReset: OnMyMobDead: if (mobcount("force_5-1","force_09mob#aco::OnMyMobDead") < 1) { donpcevent "Trocco#aco1::On09_End"; - set $@arn_2,gettimetick(2); + $@arn_2 = gettimetick(2); donpcevent "arena_aco1::OnReset_09"; } end; @@ -541,7 +541,7 @@ OnReset_09: - script Trocco#aco2 -1,{ OnEnable: initnpctimer; - set $@arn_1,gettimetick(2); + $@arn_1 = gettimetick(2); end; OnTimer2000: @@ -1018,7 +1018,7 @@ OnReset: OnMyMobDead: if (mobcount("force_5-1","force_09mob#pri::OnMyMobDead") < 1) { donpcevent "Trocco#aco2::On09_End"; - set $@arn_2,gettimetick(2); + $@arn_2 = gettimetick(2); donpcevent "arena_aco2::OnReset_09"; } end; @@ -1062,7 +1062,7 @@ prt_are_in,181,83,3 script Staff#aco-1 1_F_02,{ next; } else { - set arena_point,arena_point+1; + ++arena_point; } mes "[Staff]"; mes "Well, let me guide"; @@ -1076,23 +1076,23 @@ prt_are_in,181,83,3 script Staff#aco-1 1_F_02,{ } prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ - set .@start_timeaco, $@arn_1; - set .@hour_startaco, .@start_timeaco / 10000; - set .@min_startaco, ((.@start_timeaco % 10000) / 100); - set .@sec_startaco, .@start_timeaco % 100; - set .@end_timeaco, $@arn_2; - set .@hour_endaco, .@end_timeaco / 10000; - set .@min_endaco, ((.@end_timeaco % 10000) / 100); - set .@sec_endaco, .@end_timeaco % 100; + .@start_timeaco = $@arn_1; + .@hour_startaco = .@start_timeaco / 10000; + .@min_startaco = ((.@start_timeaco % 10000) / 100); + .@sec_startaco = .@start_timeaco % 100; + .@end_timeaco = $@arn_2; + .@hour_endaco = .@end_timeaco / 10000; + .@min_endaco = ((.@end_timeaco % 10000) / 100); + .@sec_endaco = .@end_timeaco % 100; if ((.@hour_startaco == 23) && (.@hour_endaco == 0)) { - set .@hour_endaco,24; + .@hour_endaco = 24; } - set .@st_to_secaco, ((.@hour_startaco * 3600) + (.@min_startaco * 60) + (.@sec_startaco)); - set .@et_to_secaco, ((.@hour_endaco * 3600) + (.@min_endaco * 60) + (.@sec_endaco)); - set .@record_timeaco, (.@et_to_secaco - .@st_to_secaco); - set .@record_houraco, .@record_timeaco / 3600; - set .@record_minaco, ((.@record_timeaco % 3600) / 60); - set .@record_secaco, .@record_timeaco % 60; + .@st_to_secaco = ((.@hour_startaco * 3600) + (.@min_startaco * 60) + (.@sec_startaco)); + .@et_to_secaco = ((.@hour_endaco * 3600) + (.@min_endaco * 60) + (.@sec_endaco)); + .@record_timeaco = (.@et_to_secaco - .@st_to_secaco); + .@record_houraco = .@record_timeaco / 3600; + .@record_minaco = ((.@record_timeaco % 3600) / 60); + .@record_secaco = .@record_timeaco % 60; if ((.@record_timeaco < 0 ) || (.@record_houraco < 0) || (.@record_minaco < 0 ) || (.@record_secaco < 0)) { emotion e_omg; mes "[Staff]"; @@ -1126,7 +1126,7 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "your time in the Arena~"; close2; if (arena_point < 29981) { - set arena_point,arena_point+20; + arena_point += 20; warp "arena_room",100,75; donpcevent "#arn_timer_aco::OnStop"; donpcevent "Acolyte Waiting Room::OnStart"; @@ -1140,30 +1140,30 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ } else { if (BaseJob == Job_Acolyte) { - set .@acotop_t,$arn_acotop; - set .@acotop_n$,$arn_acotopn$; + .@acotop_t = $arn_acotop; + .@acotop_n$ = $arn_acotopn$; } else { if (BaseLevel < 70) { - set .@acotop_t,$arn_pritop60; - set .@acotop_n$,$arn_pritopn60$; + .@acotop_t = $arn_pritop60; + .@acotop_n$ = $arn_pritopn60$; } else if (BaseLevel < 80) { - set .@acotop_t,$arn_pritop70; - set .@acotop_n$,$arn_pritopn70$; + .@acotop_t = $arn_pritop70; + .@acotop_n$ = $arn_pritopn70$; } else if (BaseLevel < 90) { - set .@acotop_t,$arn_pritop80; - set .@acotop_n$,$arn_pritopn80$; + .@acotop_t = $arn_pritop80; + .@acotop_n$ = $arn_pritopn80$; } else { - set .@acotop_t,$arn_pritop90; - set .@acotop_n$,$arn_pritopn90$; + .@acotop_t = $arn_pritop90; + .@acotop_n$ = $arn_pritopn90$; } } - set .@topbunaco, ((.@acotop_t % 3600) / 60); - set .@topchoaco, .@acotop_t % 60; - set .@gapaco, .@acotop_t - .@record_timeaco; + .@topbunaco = ((.@acotop_t % 3600) / 60); + .@topchoaco = .@acotop_t % 60; + .@gapaco = .@acotop_t - .@record_timeaco; mes "[Staff]"; mes "^3131FF"+strcharinfo(0)+"^000000, right?"; mes "Hey, you did great! You"; @@ -1196,26 +1196,26 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "under the Time Force Battle"; mes "Arena - Acolyte Class Record!"; if (BaseJob == Job_Acolyte) { - set $arn_acotop,.@record_timeaco; - set $arn_acotopn$, strcharinfo(0); + $arn_acotop = .@record_timeaco; + $arn_acotopn$ = strcharinfo(0); donpcevent "Vendigos::OnLineRec_aco"; } else { if (BaseLevel < 70) { - set $arn_pritop60,.@record_timeaco; - set $arn_pritopn60$, strcharinfo(0); + $arn_pritop60 = .@record_timeaco; + $arn_pritopn60$ = strcharinfo(0); } else if (BaseLevel < 80) { - set $arn_pritop70,.@record_timeaco; - set $arn_pritopn70$, strcharinfo(0); + $arn_pritop70 = .@record_timeaco; + $arn_pritopn70$ = strcharinfo(0); } else if (BaseLevel < 90) { - set $arn_pritop80,.@record_timeaco; - set $arn_pritopn80$, strcharinfo(0); + $arn_pritop80 = .@record_timeaco; + $arn_pritopn80$ = strcharinfo(0); } else { - set $arn_pritop90,.@record_timeaco; - set $arn_pritopn90$, strcharinfo(0); + $arn_pritop90 = .@record_timeaco; + $arn_pritopn90$ = strcharinfo(0); } donpcevent "Vendigos::OnLineRec_pri"; } @@ -1251,7 +1251,7 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "Now let me guide you"; mes "back to the Arena Lobby..."; close2; - set arena_point,30000; + arena_point = 30000; } else { mes "[Staff]"; @@ -1268,7 +1268,7 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "Now let me guide you"; mes "back to the Arena Lobby..."; close2; - set arena_point,arena_point+50; + arena_point += 50; } specialeffect2 EF_EXIT; warp "arena_room",100,75; @@ -1315,7 +1315,7 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "Now let me guide you"; mes "back to the Arena Lobby..."; close2; - set arena_point,30000; + arena_point = 30000; } else { mes "[Staff]"; @@ -1332,7 +1332,7 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "Now let me guide you"; mes "back to the Arena Lobby..."; close2; - set arena_point,arena_point+20; + arena_point += 20; } specialeffect2 EF_EXIT; warp "arena_room",100,75; @@ -1355,29 +1355,29 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "Acolyte Class Records."; mes "Congratulations~"; if (BaseJob == Job_Acolyte) { - set $arn_acotop,.@record_timeaco; - set $arn_acotopn$, strcharinfo(0); + $arn_acotop = .@record_timeaco; + $arn_acotopn$ = strcharinfo(0); donpcevent "#Vendigos::OnLineRec_aco"; } else { if (BaseLevel < 70) { - set $arn_pritop60,.@record_timeaco; - set $arn_pritopn60$, strcharinfo(0); + $arn_pritop60 = .@record_timeaco; + $arn_pritopn60$ = strcharinfo(0); donpcevent "#Vendigos::OnLineRec_pri60"; } else if (BaseLevel < 80) { - set $arn_pritop70,.@record_timeaco; - set $arn_pritopn70$, strcharinfo(0); + $arn_pritop70 = .@record_timeaco; + $arn_pritopn70$ = strcharinfo(0); donpcevent "#Vendigos::OnLineRec_pri70"; } else if (BaseLevel < 90) { - set $arn_pritop80,.@record_timeaco; - set $arn_pritopn80$, strcharinfo(0); + $arn_pritop80 = .@record_timeaco; + $arn_pritopn80$ = strcharinfo(0); donpcevent "#Vendigos::OnLineRec_pri80"; } else { - set $arn_pritop90,.@record_timeaco; - set $arn_pritopn90$, strcharinfo(0); + $arn_pritop90 = .@record_timeaco; + $arn_pritopn90$ = strcharinfo(0); donpcevent "#Vendigos::OnLineRec_pri90"; } } @@ -1413,7 +1413,7 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "Now let me guide you"; mes "back to the Arena Lobby..."; close2; - set arena_point,30000; + arena_point = 30000; } else { mes "[Staff]"; @@ -1430,7 +1430,7 @@ prt_are_in,25,31,3 script Staff#aco-2 1_F_02,{ mes "Now let me guide you"; mes "back to the Arena Lobby..."; close2; - set arena_point,arena_point+20; + arena_point += 20; } specialeffect2 EF_EXIT; warp "arena_room",100,75; @@ -1570,10 +1570,10 @@ arena_room,94,82,7 script Arena Record Staff#aco 1_F_PRIEST,{ next; switch(select("Acolyte Mode:Priest - Level 70 or lower:Priest - Level 80 or lower:Priest - Level 90 or lower:Priest - Level 91 ~ "+(checkre(0)?"160":"99"))) { case 1: - set .@acotop_t,$arn_acotop; - set .@acotop_n$,$arn_acotopn$; - set .@acotopbun, ((.@acotop_t % 3600) / 60 ); - set .@acotopcho, (.@acotop_t % 60); + .@acotop_t = $arn_acotop; + .@acotop_n$ = $arn_acotopn$; + .@acotopbun = ((.@acotop_t % 3600) / 60 ); + .@acotopcho = (.@acotop_t % 60); mes "[Mathea]"; mes "^3131FF"+.@acotop_n$+"^000000"; mes "is the top player of the"; @@ -1583,24 +1583,24 @@ arena_room,94,82,7 script Arena Record Staff#aco 1_F_PRIEST,{ mes "for participating in the Arena."; close; case 2: - set .@pritop_t,$arn_pritop60; - set .@pritop_n$,$arn_pritopn60$; + .@pritop_t = $arn_pritop60; + .@pritop_n$ = $arn_pritopn60$; break; case 3: - set .@pritop_t,$arn_pritop70; - set .@pritop_n$,$arn_pritopn70$; + .@pritop_t = $arn_pritop70; + .@pritop_n$ = $arn_pritopn70$; break; case 4: - set .@pritop_t,$arn_pritop80; - set .@pritop_n$,$arn_pritopn80$; + .@pritop_t = $arn_pritop80; + .@pritop_n$ = $arn_pritopn80$; break; case 5: - set .@pritop_t,$arn_pritop90; - set .@pritop_n$,$arn_pritopn90$; + .@pritop_t = $arn_pritop90; + .@pritop_n$ = $arn_pritopn90$; break; } - set .@pritopbun, ((.@pritop_t % 3600) / 60 ); - set .@pritopcho, (.@pritop_t % 60); + .@pritopbun = ((.@pritop_t % 3600) / 60 ); + .@pritopcho = (.@pritop_t % 60); mes "[Mathea]"; mes "^3131FF"+.@pritop_n$+"^000000"; mes "is the top player of this"; @@ -1612,16 +1612,16 @@ arena_room,94,82,7 script Arena Record Staff#aco 1_F_PRIEST,{ OnInit: if ($arn_acotopn$ == "") { - set $arn_pritop60, 480; - set $arn_pritop70, 480; - set $arn_pritop80, 480; - set $arn_pritop90, 480; - set $arn_acotop, 480; - set $arn_pritopn60$, "Default"; - set $arn_pritopn70$, "Default"; - set $arn_pritopn80$, "Default"; - set $arn_pritopn90$, "Default"; - set $arn_acotopn$, "Default"; + $arn_pritop60 = 480; + $arn_pritop70 = 480; + $arn_pritop80 = 480; + $arn_pritop90 = 480; + $arn_acotop = 480; + $arn_pritopn60$ = "Default"; + $arn_pritopn70$ = "Default"; + $arn_pritopn80$ = "Default"; + $arn_pritopn90$ = "Default"; + $arn_acotopn$ = "Default"; } end; } @@ -1709,7 +1709,7 @@ arena_room,140,136,3 script Guide Alias 4_F_NOVICE,{ } arena_room,195,5,3 script log-on-aco#arena 4_NFWISP,{ - set .@i, callfunc("F_GM_NPC",1357,0); + .@i = callfunc("F_GM_NPC",1357,0); if (.@i == -1) { mes "^3355FFIncorrect Password.^000000"; close; @@ -1728,24 +1728,24 @@ arena_room,195,5,3 script log-on-aco#arena 4_NFWISP,{ mes "been canceled.^000000"; close; case 2: - set $arn_acotop, 480; - set $arn_acotopn$, "Default"; + $arn_acotop = 480; + $arn_acotopn$ = "Default"; break; case 3: - set $arn_pritop60, 480; - set $arn_pritopn60$, "Default"; + $arn_pritop60 = 480; + $arn_pritopn60$ = "Default"; break; case 4: - set $arn_pritop70, 480; - set $arn_pritopn70$, "Default"; + $arn_pritop70 = 480; + $arn_pritopn70$ = "Default"; break; case 5: - set $arn_pritop80, 480; - set $arn_pritopn80$, "Default"; + $arn_pritop80 = 480; + $arn_pritopn80$ = "Default"; break; case 6: - set $arn_pritop90, 480; - set $arn_pritopn90$, "Default"; + $arn_pritop90 = 480; + $arn_pritopn90$ = "Default"; break; } close; @@ -1753,7 +1753,7 @@ arena_room,195,5,3 script log-on-aco#arena 4_NFWISP,{ } arena_room,195,10,3 script acolink#arena 4_NFWISP,{ - set .@i, callfunc("F_GM_NPC",1357,0); + .@i = callfunc("F_GM_NPC",1357,0); if (.@i == -1) { mes "Command has"; mes "been canceled."; diff --git a/npc/other/arena/arena_lvl50.txt b/npc/other/arena/arena_lvl50.txt index e1e98d3b2..9c91c684c 100644 --- a/npc/other/arena/arena_lvl50.txt +++ b/npc/other/arena/arena_lvl50.txt @@ -37,8 +37,8 @@ force_1-1,99,20,4 script Heel and Toe#arena 4_F_TELEPORTER,{ OnStart: initnpctimer; - set $arena_min50st,gettime(2); - set $arena_sec50st,gettime(1); + $arena_min50st = gettime(2); + $arena_sec50st = gettime(1); end; OnTimer3000: @@ -774,8 +774,8 @@ OnMyMobDead: donpcevent "Heel and Toe#arena::On09_End"; donpcevent "arena#50::OnReset_09"; donpcevent "arena#50::OnReset_All"; - set $arena_min50end,gettime(2); - set $arena_sec50end,gettime(1); + $arena_min50end = gettime(2); + $arena_sec50end = gettime(1); } end; } @@ -791,8 +791,9 @@ prt_are_in,129,188,3 script Staff#50-1 1_F_02,{ mes "You already have enough arena points."; mes "Please spend some arena points later. When I see you next time, I will make sure to give you some reward."; next; + } else { + ++arena_point; } - else set arena_point, arena_point + 1; mes "[Staff]"; mes "Let me guide you outside. I hope you had a good time."; close2; @@ -804,22 +805,22 @@ prt_are_in,129,188,3 script Staff#50-1 1_F_02,{ prt_are_in,25,188,3 script Staff#50-2 1_F_02,{ if($arena_min50end < $arena_min50st) { if($arena_sec50end < $arena_sec50st) { - set @record_min50,60 - $arena_min50st + $arena_min50end -1; - set @record_sec50,60 - $arena_sec50st + $arena_sec50end; + @record_min50 = 60 - $arena_min50st + $arena_min50end -1; + @record_sec50 = 60 - $arena_sec50st + $arena_sec50end; } else { - set @record_min50,60 - $arena_min50st + $arena_min50end; - set @record_sec50,$arena_sec50end - $arena_sec50st; + @record_min50 = 60 - $arena_min50st + $arena_min50end; + @record_sec50 = $arena_sec50end - $arena_sec50st; } } else { if($arena_sec50end < $arena_sec50st) { - set @record_min50,$arena_min50end - $arena_min50st -1; - set @record_sec50,60 - $arena_sec50st + $arena_sec50end; + @record_min50 = $arena_min50end - $arena_min50st -1; + @record_sec50 = 60 - $arena_sec50st + $arena_sec50end; } else { - set @record_min50,$arena_min50end - $arena_min50st; - set @record_sec50,$arena_sec50end - $arena_sec50st; + @record_min50 = $arena_min50end - $arena_min50st; + @record_sec50 = $arena_sec50end - $arena_sec50st; } } - set @gap50,(60 * $top_50min + $top_50sec) - (60 * @record_min50 + @record_sec50); + @gap50 = (60 * $top_50min + $top_50sec) - (60 * @record_min50 + @record_sec50); mes "[Staff]"; mes "Wow, you did a good job~ "; mes "Your name is...^3131FF" + strcharinfo(0) +"^000000, isn't it?"; @@ -852,7 +853,7 @@ prt_are_in,25,188,3 script Staff#50-2 1_F_02,{ mes "Thank you."; close2; } else { - set arena_point, arena_point + 20; + arena_point += 20; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -877,9 +878,9 @@ prt_are_in,25,188,3 script Staff#50-2 1_F_02,{ next; mes "[Staff]"; mes "You have been recorded as the fastest player among people who cleared ^FF0000Arena Time Force Battle lvl 50s^000000, ^3131FF"+strcharinfo(0)+"^000000."; - set $top_50min, @record_min50; - set $top_50sec, @record_sec50; - set $arena_50topn$,strcharinfo(0); + $top_50min = @record_min50; + $top_50sec = @record_sec50; + $arena_50topn$ = strcharinfo(0); donpcevent "Vendigos::OnLineRec_50"; next; if (arena_point > 29950) { @@ -899,7 +900,7 @@ prt_are_in,25,188,3 script Staff#50-2 1_F_02,{ mes "Let me reward you with some arena points."; mes "At the same time, since you have renewed the record you will receive an extra amount of the points this time."; next; - set arena_point, arena_point + 50; + arena_point += 50; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -1007,6 +1008,6 @@ OnEnable: end; OnInit: - if(!$top_50min && !$top_50sec) set $top_50min,5; + if(!$top_50min && !$top_50sec) $top_50min = 5; end; } diff --git a/npc/other/arena/arena_lvl60.txt b/npc/other/arena/arena_lvl60.txt index c3d33f333..51c29def1 100644 --- a/npc/other/arena/arena_lvl60.txt +++ b/npc/other/arena/arena_lvl60.txt @@ -38,8 +38,8 @@ force_2-1,99,20,4 script Minilover#arena 4_F_TELEPORTER,{ OnStart: initnpctimer; - set $arena_min60st,gettime(2); - set $arena_sec60st,gettime(1); + $arena_min60st = gettime(2); + $arena_sec60st = gettime(1); end; OnTimer3000: @@ -784,8 +784,8 @@ OnMyMobDead: donpcevent "Minilover#arena::On09_End"; donpcevent "arena#60::OnReset_09"; donpcevent "arena#60::OnReset_All"; - set $arena_min60end,gettime(2); - set $arena_sec60end,gettime(1); + $arena_min60end = gettime(2); + $arena_sec60end = gettime(1); } end; } @@ -801,8 +801,9 @@ prt_are_in,129,135,3 script Staff#60-1 1_F_02,{ mes "You already have enough arena points."; mes "Please spend some arena points later. When I see you next time, I will make sure to give you some reward."; next; + } else { + ++arena_point; } - else set arena_point, arena_point + 1; mes "[Staff]"; mes "Let me guide you outside. I hope you had a good time."; close2; @@ -814,22 +815,22 @@ prt_are_in,129,135,3 script Staff#60-1 1_F_02,{ prt_are_in,25,135,3 script Staff#60-2 1_F_02,{ if($arena_min60end < $arena_min60st) { if($arena_sec60end < $arena_sec60st) { - set @record_min60,60 - $arena_min60st + $arena_min60end -1; - set @record_sec60,60 - $arena_sec60st + $arena_sec60end; + @record_min60 = 60 - $arena_min60st + $arena_min60end -1; + @record_sec60 = 60 - $arena_sec60st + $arena_sec60end; } else { - set @record_min60,60 - $arena_min60st + $arena_min60end; - set @record_sec60,$arena_sec60end - $arena_sec60st; + @record_min60 = 60 - $arena_min60st + $arena_min60end; + @record_sec60 = $arena_sec60end - $arena_sec60st; } } else { if($arena_sec60end < $arena_sec60st) { - set @record_min60,$arena_min60end - $arena_min60st -1; - set @record_sec60,60 - $arena_sec60st + $arena_sec60end; + @record_min60 = $arena_min60end - $arena_min60st -1; + @record_sec60 = 60 - $arena_sec60st + $arena_sec60end; } else { - set @record_min60,$arena_min60end - $arena_min60st; - set @record_sec60,$arena_sec60end - $arena_sec60st; + @record_min60 = $arena_min60end - $arena_min60st; + @record_sec60 = $arena_sec60end - $arena_sec60st; } } - set @gap60,(60 * $top_60min + $top_60sec) - (60 * @record_min60 + @record_sec60); + @gap60 = (60 * $top_60min + $top_60sec) - (60 * @record_min60 + @record_sec60); mes "[Staff]"; mes "Wow, you did a good job~ "; mes "Your name is...^3131FF" + strcharinfo(0) +"^000000, isn't it?"; @@ -862,7 +863,7 @@ prt_are_in,25,135,3 script Staff#60-2 1_F_02,{ mes "Thank you."; close2; } else { - set arena_point, arena_point + 20; + arena_point += 20; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -887,9 +888,9 @@ prt_are_in,25,135,3 script Staff#60-2 1_F_02,{ next; mes "[Staff]"; mes "You have been recorded as the fastest player among people who cleared ^FF0000Arena Time Force Battle lvl 60s^000000, ^3131FF"+strcharinfo(0)+"^000000."; - set $top_60min, @record_min60; - set $top_60sec, @record_sec60; - set $arena_60topn$,strcharinfo(0); + $top_60min = @record_min60; + $top_60sec = @record_sec60; + $arena_60topn$ = strcharinfo(0); donpcevent "Vendigos::OnLineRec_60"; next; if (arena_point > 29950) { @@ -909,7 +910,7 @@ prt_are_in,25,135,3 script Staff#60-2 1_F_02,{ mes "Let me reward you with some arena points."; mes "At the same time, since you have renewed the record you will receive an extra amount of the points this time."; next; - set arena_point, arena_point + 50; + arena_point += 50; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -1020,6 +1021,6 @@ OnEnable: end; OnInit: - if(!$top_60min && !$top_60sec) set $top_60min,6; + if(!$top_60min && !$top_60sec) $top_60min = 6; end; } diff --git a/npc/other/arena/arena_lvl70.txt b/npc/other/arena/arena_lvl70.txt index e50113e74..68805437f 100644 --- a/npc/other/arena/arena_lvl70.txt +++ b/npc/other/arena/arena_lvl70.txt @@ -37,8 +37,8 @@ force_3-1,99,20,4 script Cadillac#arena 4_F_TELEPORTER,{ OnStart: initnpctimer; - set $arena_min70st,gettime(2); - set $arena_sec70st,gettime(1); + $arena_min70st = gettime(2); + $arena_sec70st = gettime(1); end; OnTimer3000: @@ -749,8 +749,8 @@ OnMyMobDead: donpcevent "Cadillac#arena::On09_End"; donpcevent "arena#70::OnReset_09"; donpcevent "arena#70::OnReset_All"; - set $arena_min70end,gettime(2); - set $arena_sec70end,gettime(1); + $arena_min70end = gettime(2); + $arena_sec70end = gettime(1); } end; } @@ -766,8 +766,9 @@ prt_are_in,129,83,3 script Staff#70-1 1_F_02,{ mes "You already have enough arena points."; mes "Please spend some arena points later. When I see you next time, I will make sure to give you some reward."; next; + } else { + ++arena_point; } - else set arena_point, arena_point + 1; mes "[Staff]"; mes "Let me guide you outside. I hope you had a good time."; close2; @@ -779,22 +780,22 @@ prt_are_in,129,83,3 script Staff#70-1 1_F_02,{ prt_are_in,25,84,3 script Staff#70-2 1_F_02,{ if($arena_min70end < $arena_min70st) { if($arena_sec70end < $arena_sec70st) { - set @record_min70,60 - $arena_min70st + $arena_min70end -1; - set @record_sec70,60 - $arena_sec70st + $arena_sec70end; + @record_min70 = 60 - $arena_min70st + $arena_min70end -1; + @record_sec70 = 60 - $arena_sec70st + $arena_sec70end; } else { - set @record_min70,60 - $arena_min70st + $arena_min70end; - set @record_sec70,$arena_sec70end - $arena_sec70st; + @record_min70 = 60 - $arena_min70st + $arena_min70end; + @record_sec70 = $arena_sec70end - $arena_sec70st; } } else { if($arena_sec70end < $arena_sec70st) { - set @record_min70,$arena_min70end - $arena_min70st -1; - set @record_sec70,60 - $arena_sec70st + $arena_sec70end; + @record_min70 = $arena_min70end - $arena_min70st -1; + @record_sec70 = 60 - $arena_sec70st + $arena_sec70end; } else { - set @record_min70,$arena_min70end - $arena_min70st; - set @record_sec70,$arena_sec70end - $arena_sec70st; + @record_min70 = $arena_min70end - $arena_min70st; + @record_sec70 = $arena_sec70end - $arena_sec70st; } } - set @gap70,(60 * $top_70min + $top_70sec) - (60 * @record_min70 + @record_sec70); + @gap70 = (60 * $top_70min + $top_70sec) - (60 * @record_min70 + @record_sec70); mes "[Staff]"; mes "Wow, you did a good job~ "; mes "Your name is...^3131FF" + strcharinfo(0) +"^000000, isn't it?"; @@ -827,7 +828,7 @@ prt_are_in,25,84,3 script Staff#70-2 1_F_02,{ mes "Thank you."; close2; } else { - set arena_point, arena_point + 20; + arena_point += 20; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -852,9 +853,9 @@ prt_are_in,25,84,3 script Staff#70-2 1_F_02,{ next; mes "[Staff]"; mes "You have been recorded as the fastest player among people who cleared ^FF0000Arena Time Force Battle lvl 70s^000000, ^3131FF"+strcharinfo(0)+"^000000."; - set $top_70min, @record_min70; - set $top_70sec, @record_sec70; - set $arena_70topn$,strcharinfo(0); + $top_70min = @record_min70; + $top_70sec = @record_sec70; + $arena_70topn$ = strcharinfo(0); donpcevent "Vendigos::OnLineRec_70"; next; if (arena_point > 29970) { @@ -874,7 +875,7 @@ prt_are_in,25,84,3 script Staff#70-2 1_F_02,{ mes "Let me reward you with some arena points."; mes "At the same time, since you have renewed the record you will receive an extra amount of the points this time."; next; - set arena_point, arena_point + 50; + arena_point += 50; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -984,6 +985,6 @@ OnEnable: end; OnInit: - if(!$top_70min && !$top_70sec) set $top_70min,7; + if(!$top_70min && !$top_70sec) $top_70min = 7; end; } diff --git a/npc/other/arena/arena_lvl80.txt b/npc/other/arena/arena_lvl80.txt index 773175a11..f610619b7 100644 --- a/npc/other/arena/arena_lvl80.txt +++ b/npc/other/arena/arena_lvl80.txt @@ -37,8 +37,8 @@ force_4-1,99,20,4 script Octus#arena 4_F_TELEPORTER,{ OnStart: initnpctimer; - set $arena_min80st,gettime(2); - set $arena_sec80st,gettime(1); + $arena_min80st = gettime(2); + $arena_sec80st = gettime(1); end; OnTimer3000: @@ -730,8 +730,8 @@ OnMyMobDead: donpcevent "Octus#arena::On09_End"; donpcevent "arena#80::OnReset_09"; donpcevent "arena#80::OnReset_All"; - set $arena_min80end,gettime(2); - set $arena_sec80end,gettime(1); + $arena_min80end = gettime(2); + $arena_sec80end = gettime(1); } end; } @@ -747,8 +747,9 @@ prt_are_in,181,188,3 script Staff#80-1 1_F_02,{ mes "You already have enough arena points."; mes "Please spend some arena points later. When I see you next time, I will make sure to give you some reward."; next; + } else { + ++arena_point; } - else set arena_point, arena_point + 1; mes "[Staff]"; mes "Let me guide you outside. I hope you had a good time."; close2; @@ -760,22 +761,22 @@ prt_are_in,181,188,3 script Staff#80-1 1_F_02,{ prt_are_in,77,187,3 script Staff#80-2 1_F_02,{ if($arena_min80end < $arena_min80st) { if($arena_sec80end < $arena_sec80st) { - set @record_min80,60 - $arena_min80st + $arena_min80end -1; - set @record_sec80,60 - $arena_sec80st + $arena_sec80end; + @record_min80 = 60 - $arena_min80st + $arena_min80end -1; + @record_sec80 = 60 - $arena_sec80st + $arena_sec80end; } else { - set @record_min80,60 - $arena_min80st + $arena_min80end; - set @record_sec80,$arena_sec80end - $arena_sec80st; + @record_min80 = 60 - $arena_min80st + $arena_min80end; + @record_sec80 = $arena_sec80end - $arena_sec80st; } } else { if($arena_sec80end < $arena_sec80st) { - set @record_min80,$arena_min80end - $arena_min80st -1; - set @record_sec80,60 - $arena_sec80st + $arena_sec80end; + @record_min80 = $arena_min80end - $arena_min80st -1; + @record_sec80 = 60 - $arena_sec80st + $arena_sec80end; } else { - set @record_min80,$arena_min80end - $arena_min80st; - set @record_sec80,$arena_sec80end - $arena_sec80st; + @record_min80 = $arena_min80end - $arena_min80st; + @record_sec80 = $arena_sec80end - $arena_sec80st; } } - set @gap80,(60 * $top_80min + $top_80sec) - (60 * @record_min80 + @record_sec80); + @gap80 = (60 * $top_80min + $top_80sec) - (60 * @record_min80 + @record_sec80); mes "[Staff]"; mes "Wow, you did a good job~ "; mes "Your name is...^3131FF" + strcharinfo(0) +"^000000, isn't it?"; @@ -808,7 +809,7 @@ prt_are_in,77,187,3 script Staff#80-2 1_F_02,{ mes "Thank you."; close2; } else { - set arena_point, arena_point + 20; + arena_point += 20; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -833,9 +834,9 @@ prt_are_in,77,187,3 script Staff#80-2 1_F_02,{ next; mes "[Staff]"; mes "You have been recorded as the fastest player among people who cleared ^FF0000Arena Time Force Battle lvl 80s^000000, ^3131FF"+strcharinfo(0)+"^000000."; - set $top_80min, @record_min80; - set $top_80sec, @record_sec80; - set $arena_80topn$,strcharinfo(0); + $top_80min = @record_min80; + $top_80sec = @record_sec80; + $arena_80topn$ = strcharinfo(0); donpcevent "Vendigos::OnLineRec_80"; next; if (arena_point > 29980) { @@ -855,7 +856,7 @@ prt_are_in,77,187,3 script Staff#80-2 1_F_02,{ mes "Let me reward you with some arena points."; mes "At the same time, since you have renewed the record you will receive an extra amount of the points this time."; next; - set arena_point, arena_point + 50; + arena_point += 50; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -963,6 +964,6 @@ OnEnable: end; OnInit: - if(!$top_80min && !$top_80sec) set $top_80min,8; + if(!$top_80min && !$top_80sec) $top_80min = 8; end; } diff --git a/npc/other/arena/arena_party.txt b/npc/other/arena/arena_party.txt index 218a6de90..ca4b74388 100644 --- a/npc/other/arena/arena_party.txt +++ b/npc/other/arena/arena_party.txt @@ -40,7 +40,7 @@ OnStart: prt_are_in,76,87,3 script Helper#party 67,4,4,{ if($arn_partywait == 0) { - set $arn_partywait,1; + $arn_partywait = 1; emotion e_gasp,0; mes "[Helper Iriff]"; mes "Good day, challengers!"; @@ -52,7 +52,7 @@ prt_are_in,76,87,3 script Helper#party 67,4,4,{ next; switch( select( "No","Yes" ) ) { case 1: - set $arn_partywait,0; + $arn_partywait = 0; mes "[Helper Iriff]"; mes "I see."; mes "However, please remember you have only a limited amount of time."; @@ -80,7 +80,7 @@ OnStop: end; OnInit: - set $arn_partywait,0; + $arn_partywait = 0; end; } @@ -94,7 +94,7 @@ OnTouch: warp "arena_room",100,75; else { Zeny -= 1000; - set $arn_partywait,0; + $arn_partywait = 0; donpcevent "toout#party::OnStop"; warp "force_1-2",99,26; } @@ -114,7 +114,7 @@ OnTimer: end; OnTimer60000: - set $arn_partywait,0; + $arn_partywait = 0; enablenpc "toout#party"; end; @@ -124,7 +124,7 @@ OnTimer70000: disablenpc "toout#party"; OnTouch: - set $arn_partywait,0; + $arn_partywait = 0; warp "arena_room",100,75; OnEnter: @@ -139,7 +139,7 @@ OnStop: prt_are_in,73,74,0 script arena_out -1,1,1,{ OnTouch: - set $arn_partywait,0; + $arn_partywait = 0; warp "arena_room",100,75; end; } @@ -147,8 +147,8 @@ OnTouch: force_1-2,99,31,4 script Slipslowrun#party 4_F_TELEPORTER,{ OnStart: initnpctimer; - set $arena_minptst,gettime(2); - set $arena_secptst,gettime(1); + $arena_minptst = gettime(2); + $arena_secptst = gettime(1); end; OnTimer2000: @@ -354,8 +354,8 @@ OnStart: donpcevent "force_10mob-2#party::OnReset"; donpcevent "force_exitmob#party::OnReset"; donpcevent "Slipslowrun#party::OnStart"; - set $arn_partyc,0; - set $arn_partywait,0; + $arn_partyc = 0; + $arn_partywait = 0; end; On04_Start: @@ -412,8 +412,8 @@ OnReset: force_1-2,95,187,0 script force_09_exit WARPNPC,1,1,{ OnTouch: - set $arena_minptend,gettime(2); - set $arena_secptend,gettime(1); + $arena_minptend = gettime(2); + $arena_secptend = gettime(1); warp "prt_are_in",73,139; donpcevent "#arn_timer_pt::OnEnter"; donpcevent "arena_p::OnReset"; @@ -466,7 +466,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_01mob#party::OnMyMobDead") < 1) { enablenpc "force_01_00"; donpcevent "Slipslowrun#party::On01_End"; - set $arn_partyc,$arn_partyc +1; + ++$arn_partyc; if($arn_partyc == 3) { donpcevent "Slipslowrun#party::On04_Start"; enablenpc "force_03_04"; @@ -525,7 +525,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_02mob#party::OnMyMobDead") < 1) { enablenpc "force_02_00"; donpcevent "Slipslowrun#party::On02_End"; - set $arn_partyc,$arn_partyc +1; + ++$arn_partyc; if($arn_partyc == 3) { donpcevent "Slipslowrun#party::On04_Start"; enablenpc "force_03_04"; @@ -580,7 +580,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_03mob#party::OnMyMobDead") < 1) { enablenpc "force_03_00"; donpcevent "Slipslowrun#party::On03_End"; - set $arn_partyc,$arn_partyc +1; + ++$arn_partyc; if($arn_partyc == 3) { donpcevent "Slipslowrun#party::On04_Start"; enablenpc "force_03_04"; @@ -725,7 +725,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_06mob#party::OnMyMobDead") < 1) { donpcevent "arena_p::On07_Start"; donpcevent "Slipslowrun#party::On06_End"; - set $arn_partyc,$arn_partyc +1; + ++$arn_partyc; } end; } @@ -761,7 +761,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_07mob#party::OnMyMobDead") < 1) { donpcevent "arena_p::On08_Start"; donpcevent "Slipslowrun#party::On07_End"; - set $arn_partyc,$arn_partyc +1; + ++$arn_partyc; } end; } @@ -778,20 +778,20 @@ OnEnable: monster "force_1-2",172,154,"Khalitzburg",1438,1,"force_08mob#party::OnMyMobDead"; monster "force_1-2",174,145,"Ghostring",1576,1,"force_08mob#party::OnMyMobDead"; monster "force_1-2",174,145,"Chimera",1456,1,"force_08mob#party::OnMyMobDead"; - for(set .@i,0; .@i<5; set .@i,.@i+1) { + for(.@i = 0; .@i<5; ++.@i) { monster "force_1-2",rand(162,184),rand(122,185),"Injustice",1446,1,"force_08mob#party::OnMyMobDead"; } monster "force_1-2",rand(162,184),rand(122,185),"Raydric Archer",1453,1,"force_08mob#party::OnMyMobDead"; - for(set .@i,0; .@i<5; set .@i,.@i+1) { + for(.@i = 0; .@i<5; ++.@i) { monster "force_1-2",rand(162,184),rand(122,185),"Nightmare Terror",1554,1,"force_08mob#party::OnMyMobDead"; } - for(set .@i,0; .@i<6; set .@i,.@i+1) { + for(.@i = 0; .@i<6; ++.@i) { monster "force_1-2",rand(162,184),rand(122,185),"Ancient Mummy",1522,1,"force_08mob#party::OnMyMobDead"; } - for(set .@i,0; .@i<10; set .@i,.@i+1) { + for(.@i = 0; .@i<10; ++.@i) { monster "force_1-2",rand(162,184),rand(122,185),"Skel Prisoner",1479,1,"force_08mob#party::OnMyMobDead"; } - for(set .@i,0; .@i<5; set .@i,.@i+1) { + for(.@i = 0; .@i<5; ++.@i) { monster "force_1-2",rand(162,184),rand(122,185),"Hunter Fly",1422,1,"force_08mob#party::OnMyMobDead"; } end; @@ -804,7 +804,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_08mob#party::OnMyMobDead") < 1) { donpcevent "arena_p::On09_Start"; donpcevent "Slipslowrun#party::On08_End"; - set $arn_partyc,$arn_partyc +1; + ++$arn_partyc; } end; } @@ -833,7 +833,7 @@ OnEnable: monster "force_1-2",122,178,"Anolian",1488,1,"force_09mob#party::OnMyMobDead"; monster "force_1-2",121,177,"Anolian",1488,1,"force_09mob#party::OnMyMobDead"; monster "force_1-2",122,177,"Anolian",1488,1,"force_09mob#party::OnMyMobDead"; - set $force_09_pt,15; + $force_09_pt = 15; end; OnReset: @@ -844,7 +844,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_09mob#party::OnMyMobDead") < 1) { donpcevent "arena_p::On10_Start"; donpcevent "Slipslowrun#party::On09_End"; - set $arn_partyc,$arn_partyc +1; + ++$arn_partyc; } end; } @@ -896,7 +896,7 @@ OnMyMobDead: if (mobcount("force_1-2","force_10mob-2#party::OnMyMobDead") < 1) { donpcevent "arena_p::OnExit"; donpcevent "Slipslowrun#party::On10_End"; - set $arn_partyc,0; + $arn_partyc = 0; } end; } @@ -960,8 +960,9 @@ prt_are_in,181,135,3 script Staff#party-1 1_F_02,{ mes "You already have enough arena points."; mes "Please spend some arena points later. When I see you next time, I will make sure to give you some reward."; next; + } else { + ++arena_point; } - else set arena_point, arena_point + 1; mes "[Staff]"; mes "Let me guide you outside. I hope you had a good time."; close2; @@ -973,22 +974,22 @@ prt_are_in,181,135,3 script Staff#party-1 1_F_02,{ prt_are_in,77,135,3 script Staff#party-2 1_F_02,{ if($arena_minptend < $arena_minptst) { if($arena_secptend < $arena_secptst) { - set @record_minpt,60 - $arena_minptst + $arena_minptend -1; - set @record_secpt,60 - $arena_secptst + $arena_secptend; + @record_minpt = 60 - $arena_minptst + $arena_minptend -1; + @record_secpt = 60 - $arena_secptst + $arena_secptend; } else { - set @record_minpt,60 - $arena_minptst + $arena_minptend; - set @record_secpt,$arena_secptend - $arena_secptst; + @record_minpt = 60 - $arena_minptst + $arena_minptend; + @record_secpt = $arena_secptend - $arena_secptst; } } else { if($arena_secptend < $arena_secptst) { - set @record_minpt,$arena_minptend - $arena_minptst -1; - set @record_secpt,60 - $arena_secptst + $arena_secptend; + @record_minpt = $arena_minptend - $arena_minptst -1; + @record_secpt = 60 - $arena_secptst + $arena_secptend; } else { - set @record_minpt,$arena_minptend - $arena_minptst; - set @record_secpt,$arena_secptend - $arena_secptst; + @record_minpt = $arena_minptend - $arena_minptst; + @record_secpt = $arena_secptend - $arena_secptst; } } - set @gappt,(60 * $top_ptmin + $top_ptsec) - (60 * @record_minpt + @record_secpt); + @gappt = (60 * $top_ptmin + $top_ptsec) - (60 * @record_minpt + @record_secpt); mes "[Staff]"; mes "Wow, you did a good job~ "; mes "Your name is...^3131FF" + strcharinfo(0) +"^000000, isn't it?"; @@ -1004,7 +1005,7 @@ prt_are_in,77,135,3 script Staff#party-2 1_F_02,{ mes "[Staff]"; mes "^3131FF"+$arena_pttopn$+"^000000's running time was ^3131FF"+$top_ptmin+"^000000minutes ^3131FF"+$top_ptsec+"^000000seconds."; next; - set .arn_party,getcharid(1); + .arn_party = getcharid(1); if (@gappt < 0) { mes "[Staff]"; mes "Although you failed to make a new record, I hope you will succeed next time."; @@ -1022,7 +1023,7 @@ prt_are_in,77,135,3 script Staff#party-2 1_F_02,{ mes "Thank you."; close2; } else { - set arena_point, arena_point + 40; + arena_point += 40; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -1063,9 +1064,9 @@ prt_are_in,77,135,3 script Staff#party-2 1_F_02,{ next; switch( select( "Yes","No" ) ) { case 1: - set $top_ptmin, @record_minpt; - set $top_ptsec, @record_secpt; - set $arena_pttopn$,.@arnparty$; + $top_ptmin = @record_minpt; + $top_ptsec = @record_secpt; + $arena_pttopn$ = .@arnparty$; donpcevent "Vendigos::OnLineRec_pt"; mes "[Staff]"; mes "Your record has been entered."; @@ -1100,7 +1101,7 @@ prt_are_in,77,135,3 script Staff#party-2 1_F_02,{ mes "Let me reward you with some arena points."; mes "At the same time, since you have renewed the record you will receive an extra amount of the points this time."; next; - set arena_point, arena_point + 100; + arena_point += 100; mes "[Staff]"; mes "Let me reward you some arena points."; mes "If you wish to check the amount of arena points you have, please go talk to ^3131FFVendigos^000000 at the arena entrance."; @@ -1230,14 +1231,14 @@ OnEnable: donpcevent "Slipslowrun#party::OnTimerOff"; disablenpc "Slipslowrun#party"; disablenpc "arn_warp_pt"; - set $arn_partywait,0; - set $arn_partyc,0; + $arn_partywait = 0; + $arn_partyc = 0; donpcevent "#arn_timer_pt::OnStop"; enablenpc "Slipslowrun#party"; enablenpc "arena_p"; end; OnInit: - if(!$top_ptmin && !$top_ptsec) set $top_ptmin,10; + if(!$top_ptmin && !$top_ptsec) $top_ptmin = 10; end; } diff --git a/npc/other/arena/arena_point.txt b/npc/other/arena/arena_point.txt index 3b49596c0..e61db7f78 100644 --- a/npc/other/arena/arena_point.txt +++ b/npc/other/arena/arena_point.txt @@ -75,10 +75,10 @@ prt_are_in,103,11,3 script Arena Point Manager 4_M_JOB_HUNTER,{ close; } else { - set .@want_point1,10 * .@input; - set .@want_point,5 * .@input; - set .@my_arena_all,arena_point + .@want_point; - set .@my_turbo_all,tt_point - .@want_point1; + .@want_point1 = 10 * .@input; + .@want_point = 5 * .@input; + .@my_arena_all = arena_point + .@want_point; + .@my_turbo_all = tt_point - .@want_point1; if (.@my_arena_all > 28999) { mes "[Arena Point Manager]"; mes "You will exceed the"; @@ -111,8 +111,8 @@ prt_are_in,103,11,3 script Arena Point Manager 4_M_JOB_HUNTER,{ mes "into 5 Arena Points " + .@input + " times."; mes "A total of " + .@want_point1 + " Turbo Track Points were converted into"; mes "" + .@want_point +" Arena Points."; - set tt_point,tt_point - .@want_point1; - set arena_point,arena_point+.@want_point; + tt_point -= .@want_point1; + arena_point += .@want_point; next; mes "[Arena Point Manager]"; mes "" + strcharinfo(0) + ","; @@ -158,8 +158,8 @@ S_ExchangePoints: mes "" + strcharinfo(0) + ","; mes "you've converted "+getarg(1)+" Track"; mes "Points into "+getarg(2)+" Arena Point."; - set tt_point,tt_point-getarg(1); - set arena_point,arena_point+getarg(2); + tt_point -= getarg(1); + arena_point += getarg(2); next; mes "[Arena Point Manager]"; mes "" + strcharinfo(0) + ","; diff --git a/npc/other/arena/arena_room.txt b/npc/other/arena/arena_room.txt index 9330fcf6a..c06aef63d 100644 --- a/npc/other/arena/arena_room.txt +++ b/npc/other/arena/arena_room.txt @@ -392,7 +392,7 @@ arena_room,158,82,1 script Helper Lonik 4_M_ROGUE,{ } sec_in02,72,180,3 script Arena Manager#arena 4_NFWISP,{ - set .@i, callfunc("F_GM_NPC",1357,0); + .@i = callfunc("F_GM_NPC",1357,0); if (.@i == -1) { mes "[Arena Manager]"; mes "Command has been canceled."; @@ -408,16 +408,16 @@ sec_in02,72,180,3 script Arena Manager#arena 4_NFWISP,{ case 1: switch(select("Lv 50:Lv 60:Lv 70:Lv 80:Party Mode")) { case 1: - set .@arena,50; + .@arena = 50; break; case 2: - set .@arena,60; + .@arena = 60; break; case 3: - set .@arena,70; + .@arena = 70; break; case 4: - set .@arena,80; + .@arena = 80; break; case 5: mes "[Arena Manager]"; @@ -470,29 +470,29 @@ sec_in02,72,180,3 script Arena Manager#arena 4_NFWISP,{ case 2: switch(select("Lv 50:Lv 60:Lv 70:Lv 80:Party Mode")) { case 1: - set .@min$,"$top50min"; - set .@sec$,"$top50sec"; - set .@mode$,"Lv 50"; + .@min$ = "$top50min"; + .@sec$ = "$top50sec"; + .@mode$ = "Lv 50"; break; case 2: - set .@min$,"$top60min"; - set .@sec$,"$top60sec"; - set .@mode$,"Lv 60"; + .@min$ = "$top60min"; + .@sec$ = "$top60sec"; + .@mode$ = "Lv 60"; break; case 3: - set .@min$,"$top70min"; - set .@sec$,"$top70sec"; - set .@mode$,"Lv 70"; + .@min$ = "$top70min"; + .@sec$ = "$top70sec"; + .@mode$ = "Lv 70"; break; case 4: - set .@min$,"$top80min"; - set .@sec$,"$top80sec"; - set .@mode$,"Lv 80"; + .@min$ = "$top80min"; + .@sec$ = "$top80sec"; + .@mode$ = "Lv 80"; break; case 5: - set .@min$,"$top_ptmin"; - set .@sec$,"$top_ptsec"; - set .@mode$,"party"; + .@min$ = "$top_ptmin"; + .@sec$ = "$top_ptsec"; + .@mode$ = "party"; break; } mes "[Arena Manager]"; @@ -514,7 +514,7 @@ sec_in02,72,180,3 script Arena Manager#arena 4_NFWISP,{ } sec_in02,79,171,3 script Reward Manager#arena 4_NFWISP,{ - set .@i, callfunc("F_GM_NPC",1357,0); + .@i = callfunc("F_GM_NPC",1357,0); if (.@i == -1) { mes "[Reward Manager]"; mes "Command has been canceled."; @@ -616,7 +616,7 @@ prt_are_in,98,14,3 script Givu#arena 4_F_JOB_KNIGHT,{ mes "Please check the total amount of arena points you have."; close; } - set arena_point, arena_point-40; + arena_point -= 40; if (checkre(3)) { if (BaseLevel < 70) getexp 300,0; else if (BaseLevel < 80) getexp 900,0; @@ -661,16 +661,16 @@ prt_are_in,98,14,3 script Givu#arena 4_F_JOB_KNIGHT,{ mes "The NPC will appear for 1 minute and this service requires 10 arena points."; next; switch(select("Baphomet:Dark Lord:Doppelganger:Eddga:Dracula:Samurai:Stormy Knight:Phreeoni:Girl:Valkyrie")) { - case 1: set $@arena_picture_id,1039; break; - case 2: set $@arena_picture_id,1272; break; - case 3: set $@arena_picture_id,1046; break; - case 4: set $@arena_picture_id,1115; break; - case 5: set $@arena_picture_id,1389; break; - case 6: set $@arena_picture_id,1492; break; - case 7: set $@arena_picture_id,1251; break; - case 8: set $@arena_picture_id,1159; break; - case 9: set $@arena_picture_id,6969; break; - case 10: set $@arena_picture_id,7777; break; + case 1: $@arena_picture_id = 1039; break; + case 2: $@arena_picture_id = 1272; break; + case 3: $@arena_picture_id = 1046; break; + case 4: $@arena_picture_id = 1115; break; + case 5: $@arena_picture_id = 1389; break; + case 6: $@arena_picture_id = 1492; break; + case 7: $@arena_picture_id = 1251; break; + case 8: $@arena_picture_id = 1159; break; + case 9: $@arena_picture_id = 6969; break; + case 10: $@arena_picture_id = 7777; break; } if (arena_point < 10) { mes "[Givu]"; @@ -688,8 +688,8 @@ prt_are_in,98,14,3 script Givu#arena 4_F_JOB_KNIGHT,{ next; switch(select("Yes:No")) { case 1: - set arena_point, arena_point-10; - set $@arena_picture,1; + arena_point -= 10; + $@arena_picture = 1; enablenpc "#arena_"+$@arena_picture_id+""; movenpc "#arena_"+$@arena_picture_id+"",96,28; if ($@arena_picture_id == 6969) { @@ -941,13 +941,13 @@ OnTimer62000: mapannounce "prt_are_in","Time is over. Thank you for using my services.",1,0xFFCE00; movenpc "#arena_"+$@arena_picture_id+"",1,1; donpcevent "#arena_1039::OnInit"; - set $@arena_picture,0; + $@arena_picture = 0; stopnpctimer; end; } sec_in02,72,171,3 script Picture Manager#arena 4_NFWISP,{ - set .@i, callfunc("F_GM_NPC",1357,0); + .@i = callfunc("F_GM_NPC",1357,0); if (.@i == -1) { mes "[Picture Manager]"; mes "Command has been canceled."; @@ -968,7 +968,7 @@ sec_in02,72,171,3 script Picture Manager#arena 4_NFWISP,{ case 2: mes "[Picture Manager]"; mes "Picture rewarding reseted."; - set $@arena_picture,0; + $@arena_picture = 0; close; } } @@ -1008,7 +1008,7 @@ function script Func_Are_Rew { mes "Please check the total amount of arena points you have."; close; } - set arena_point, arena_point - (.@reward * getarg(2)); + arena_point -= (.@reward * getarg(2)); getitem getarg(0),.@reward * getarg(1); mes "[Givu]"; mes "Thank you, please come again."; diff --git a/npc/other/books.txt b/npc/other/books.txt index 6f83ace1b..fed26bfeb 100644 --- a/npc/other/books.txt +++ b/npc/other/books.txt @@ -18,9 +18,9 @@ prt_in,168,56,4 script Monster Encyclopedia#prt HIDDEN_NPC,{ mes "containing information on Water,"; mes "Wind and Ghost property monsters."; next; - set .@loop1,1; + .@loop1 = 1; while(.@loop1) { - set .@loop2,1; + .@loop2 = 1; switch(select("Water Property Monsters:Wind Property Monsters:Spritual Property Monsters:Cancel")) { case 1: while(.@loop2) { @@ -213,7 +213,7 @@ prt_in,168,56,4 script Monster Encyclopedia#prt HIDDEN_NPC,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } @@ -325,7 +325,7 @@ prt_in,168,56,4 script Monster Encyclopedia#prt HIDDEN_NPC,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } @@ -379,14 +379,14 @@ prt_in,168,56,4 script Monster Encyclopedia#prt HIDDEN_NPC,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } case 4: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -399,9 +399,9 @@ prt_in,159,56,4 script Monster Encyclopedia#2pr HIDDEN_NPC,{ mes "Fire and Neutral property"; mes "monsters."; next; - set .@loop1,1; + .@loop1 = 1; while(.@loop1) { - set .@loop2,1; + .@loop2 = 1; switch(select("Earth Property Monsters:Fire Property Monsters:Neutral Property Monsters:Cancel")) { case 1: while(.@loop2) { @@ -648,7 +648,7 @@ prt_in,159,56,4 script Monster Encyclopedia#2pr HIDDEN_NPC,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } @@ -783,7 +783,7 @@ prt_in,159,56,4 script Monster Encyclopedia#2pr HIDDEN_NPC,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } @@ -858,14 +858,14 @@ prt_in,159,56,4 script Monster Encyclopedia#2pr HIDDEN_NPC,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } case 4: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -877,9 +877,9 @@ prt_in,161,50,4 script Monster Encyclopedia#3pr 111,{ mes "containing information on Dark,"; mes "Poison and Undead monsters."; next; - set .@loop1,1; + .@loop1 = 1; while(.@loop1) { - set .@loop2,1; + .@loop2 = 1; switch(select("Dark Property Monsters:Poison Property Monsters:Undead Property Monsters:Cancel")) { case 1: while(.@loop2) { @@ -1011,7 +1011,7 @@ prt_in,161,50,4 script Monster Encyclopedia#3pr 111,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } @@ -1099,7 +1099,7 @@ prt_in,161,50,4 script Monster Encyclopedia#3pr 111,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } @@ -1226,14 +1226,14 @@ prt_in,161,50,4 script Monster Encyclopedia#3pr 111,{ break; case 4: close2; - set .@loop2,0; + .@loop2 = 0; end; } } case 4: close2; - set .@loop,0; + .@loop = 0; end; } } @@ -1244,7 +1244,7 @@ prt_in,172,96,4 script Monster Encyclopedia#4pr HIDDEN_NPC,{ mes "This is an Encyclopedia describing"; mes "monsters living in Dungeons."; next; - set .@loop1,1; + .@loop1 = 1; switch(select("Ant Hell:Geffen Tower:Sphinx:Cancel")) { case 1: while(.@loop1) { @@ -1350,7 +1350,7 @@ prt_in,172,96,4 script Monster Encyclopedia#4pr HIDDEN_NPC,{ break; case 3: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -1547,7 +1547,7 @@ prt_in,172,96,4 script Monster Encyclopedia#4pr HIDDEN_NPC,{ break; case 5: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -1710,7 +1710,7 @@ prt_in,172,96,4 script Monster Encyclopedia#4pr HIDDEN_NPC,{ break; case 6: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -1726,7 +1726,7 @@ prt_in,164,96,4 script Monster Encyclopedia#5pr HIDDEN_NPC,{ mes "This is an Encyclopedia describing"; mes "Monsters living in Dungeons."; next; - set .@loop1,1; + .@loop1 = 1; switch(select("Orc Dungeon:Byalan Cave near Izlude:Prontera Culvert")){ case 1: while(.@loop1) { @@ -1803,7 +1803,7 @@ prt_in,164,96,4 script Monster Encyclopedia#5pr HIDDEN_NPC,{ break; case 3: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -2065,7 +2065,7 @@ prt_in,164,96,4 script Monster Encyclopedia#5pr HIDDEN_NPC,{ break; case 6: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -2290,7 +2290,7 @@ prt_in,164,96,4 script Monster Encyclopedia#5pr HIDDEN_NPC,{ break; case 5: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -2304,7 +2304,7 @@ prt_in,172,102,4 script Monster Encyclopedia#6pr HIDDEN_NPC,{ mes "This is an Encyclopedia describing"; mes "Monsters living in Dungeons."; next; - set .@loop1,1; + .@loop1 = 1; switch(select("Mjolnir Dead Pit:Payon Cave:Pyramid")) { case 1: while(.@loop1) { @@ -2405,7 +2405,7 @@ prt_in,172,102,4 script Monster Encyclopedia#6pr HIDDEN_NPC,{ break; case 4: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -2583,7 +2583,7 @@ prt_in,172,102,4 script Monster Encyclopedia#6pr HIDDEN_NPC,{ break; case 6: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -2797,7 +2797,7 @@ prt_in,172,102,4 script Monster Encyclopedia#6pr HIDDEN_NPC,{ break; case 7: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -2812,7 +2812,7 @@ prt_in,164,102,4 script Monster Encyclopedia#7pr HIDDEN_NPC,{ mes "This is an Encyclopedia describing"; mes "Monsters living in Dungeons."; next; - set .@loop1,1; + .@loop1 = 1; switch(select("Sunken Ship near Alberta:Prontera Maze")) { case 1: while(.@loop1) { @@ -2947,7 +2947,7 @@ prt_in,164,102,4 script Monster Encyclopedia#7pr HIDDEN_NPC,{ break; case 3: close2; - set .@loop1,0; + .@loop1 = 0; end; } } @@ -3442,7 +3442,7 @@ prt_in,164,102,4 script Monster Encyclopedia#7pr HIDDEN_NPC,{ break; case 3: close2; - set .@loop1,0; + .@loop1 = 0; end; } } diff --git a/npc/other/card_trader.txt b/npc/other/card_trader.txt index 8838bafb9..871dd805a 100644 --- a/npc/other/card_trader.txt +++ b/npc/other/card_trader.txt @@ -57,7 +57,7 @@ prontera,115,90,0 script Putty 4_F_01,{ 4453; setarray .card[1], getarraysize(.card1), getarraysize(.card2), getarraysize(.card3); } - set .@points,oversea_event9; + .@points = oversea_event9; if (!.@points) { mes "[Putty]"; mes "Hi there."; @@ -103,20 +103,20 @@ prontera,115,90,0 script Putty 4_F_01,{ mes "Please tell me what card you want to exchange."; next; input .@i$; - set .@input$, "_"+.@i$; - set .@card,0; + .@input$ = "_"+.@i$; + .@card = 0; freeloop(1); - for(set .@j,1; .@j<4; set .@j,.@j+1) { - for(set .@i,0; .@i<.card[.@j]; set .@i,.@i+1) + for(.@j = 1; .@j<4; ++.@j) { + for(.@i = 0; .@i<.card[.@j]; ++.@i) if (compare(.@input$,"_"+getitemname(getd(".card"+.@j+"["+.@i+"]")))) { - set .@card, getd(".card"+.@j+"["+.@i+"]"); break; } + .@card = getd(".card"+.@j+"["+.@i+"]"); break; } sleep2 10; // For good measure if (.@card) break; } freeloop(0); mes "[Putty]"; if (!.@card) mes "Please, come back here if you want to exchange a monster card."; else { - set .@count, countitem(.@card); + .@count = countitem(.@card); if (!.@count) { mes "You don't have any ^0055FF"+getitemname(.@card)+"s^000000 with you!"; close; } @@ -127,7 +127,7 @@ prontera,115,90,0 script Putty 4_F_01,{ switch(select("Yes, please!","No, thank you.")) { case 1: delitem .@card,.@count; - set oversea_event9, (.@points+.@count); + oversea_event9 = (.@points+.@count); mes "[Putty]"; mes "Alright, you have received ^CC0000"+.@count+"^000000 points."; break; @@ -150,7 +150,7 @@ prontera,115,90,0 script Putty 4_F_01,{ mes "Great, I wish you the best"; mes "of luck with this album. I have a"; mes "very good feeling about this one!"; - set oversea_event9, .@points - 100; + oversea_event9 = .@points - 100; getitem 616,1; close; case 2: @@ -158,7 +158,7 @@ prontera,115,90,0 script Putty 4_F_01,{ mes "[Putty]"; mes "Oh, you must like adventures."; mes "Here you go, just what you need!"; - set oversea_event9, .@points - 50; + oversea_event9 = .@points - 50; getitem 607,20; close; case 3: @@ -166,7 +166,7 @@ prontera,115,90,0 script Putty 4_F_01,{ mes "[Putty]"; mes "Blue Potions? Are you sure?"; mes "If that's what you want, here they are!"; - set oversea_event9, .@points - 20; + oversea_event9 = .@points - 20; getitem 505,10; close; case 4: @@ -175,7 +175,7 @@ prontera,115,90,0 script Putty 4_F_01,{ mes "It took many bees"; mes "to make all of this."; mes "Make good use of it."; - set oversea_event9, .@points - 1; + oversea_event9 = .@points - 1; getitem 518,4; close; case 5: diff --git a/npc/other/comodo_gambling.txt b/npc/other/comodo_gambling.txt index 28a2e799d..ea354e490 100644 --- a/npc/other/comodo_gambling.txt +++ b/npc/other/comodo_gambling.txt @@ -100,279 +100,279 @@ comodo,219,158,6 script Kachua 4_F_02,{ switch (select("Weapon", "Armor", "Garment", "Helmet", "Shoes", "Shield")) { case 1: // Weapons - set .@gamble1,rand(1,1000); + .@gamble1 = rand(1,1000); if ((.@gamble1 > 920) && (.@gamble1 < 931)) { - set .@gamble2,rand(1,85); - if (.@gamble2 == 1) set .@item,1128; // Haedonggum[2] - else if (.@gamble2 == 2) set .@item,1120; // Tsurugi[2] - else if (.@gamble2 == 3) set .@item,1127; // Saber[3] - else if (.@gamble2 == 4) set .@item,1158; // Two-Handed Sword[2] - else if (.@gamble2 == 5) set .@item,1155; // Bastard Sword[3] - else if (.@gamble2 == 6) set .@item,1220; // Gladius[3] - else if (.@gamble2 == 7) set .@item,1222; // Damascus[1] - else if (.@gamble2 == 8) set .@item,1253; // Katar[2] - else if (.@gamble2 == 9) set .@item,1529; // Iron Driver - else if (.@gamble2 == 10) set .@item,1251; // Jur[3] - else if (.@gamble2 == 11) set .@item,1361; // Two-Handed Axe[2] - else if (.@gamble2 == 12) set .@item,1258; // Katar of Raging Blaze - else if (.@gamble2 == 13) set .@item,1257; // Katar of Quaking - else if (.@gamble2 == 14) set .@item,1256; // Katar of Frozen Icicle - else if (.@gamble2 == 15) set .@item,1259; // Katar of Piercing Wind - else if (.@gamble2 == 16) set .@item,1260; // Sharpened Legbone of Ghoul - else if (.@gamble2 == 17) set .@item,1716; // Gakkung Bow[2] - else if (.@gamble2 == 18) set .@item,1715; // Arbalest[2] - else if (.@gamble2 == 19) set .@item,1711; // Crossbow[3] - else if (.@gamble2 == 20) set .@item,1702; // Bow[4] - else if (.@gamble2 == 21) set .@item,1520; // Chain[3] - else if (.@gamble2 == 22) set .@item,1610; // Arc Wand[1] - else if (.@gamble2 == 23) set .@item,1615; // Evil Bone Wand - else if (.@gamble2 == 24) set .@item,1602; // Rod[4] - else if (.@gamble2 == 25) set .@item,1461; // Trident[3] - else if (.@gamble2 == 26) set .@item,1402; // Javelin[4] - else if (.@gamble2 == 27) set .@item,1961; // Whip[2] - else if (.@gamble2 == 28) set .@item,1957; // Rante Whip[1] - else if (.@gamble2 == 29) set .@item,1552; // Tablet[1] - else if (.@gamble2 == 30) set .@item,1551; // Bible[2] - else if (.@gamble2 == 31) set .@item,1553; // Book of Billows - else if (.@gamble2 == 32) set .@item,1554; // Book of Mother Earth - else if (.@gamble2 == 33) set .@item,1555; // Book of the Blazing Sun - else if (.@gamble2 == 34) set .@item,1556; // Book of Gust of Wind - else if (.@gamble2 == 35) set .@item,1951; // Rope[4] - else if (.@gamble2 == 36) set .@item,1959; // Tail Whip[2] - else if (.@gamble2 == 37) set .@item,1953; // Whip[3] - else if (.@gamble2 == 38) set .@item,1955; // Wire Whip[3] - else if (.@gamble2 == 39) set .@item,1810; // Claw[2] - else if (.@gamble2 == 40) set .@item,1910; // Harp[2] - else if (.@gamble2 == 41) set .@item,1906; // Lute[3] - else if (.@gamble2 == 42) set .@item,1902; // Violin[4] - else if (.@gamble2 == 43) set .@item,1904; // Mandolin[3] - else if (.@gamble2 == 44) set .@item,1912; // Gumoongoh[2] - else if (.@gamble2 == 45) set .@item,1908; // Guitar[1] - else if (.@gamble2 == 46) set .@item,1808; // Fist[1] - else if (.@gamble2 == 47) set .@item,1802; // Waghnak[4] - else if (.@gamble2 == 48) set .@item,1812; // Finger[2] - else if (.@gamble2 == 49) set .@item,1806; // Studded Knuckles[3] - else if (.@gamble2 == 50) set .@item,1804; // Knuckle Duster[3] - else if (.@gamble2 == 51) set .@item,1550; // Book[3] - else if (.@gamble2 == 52) set .@item,1246; // Cinquedea[2] - else if (.@gamble2 == 53) set .@item,1147; // Town Sword - else if (.@gamble2 > 53 && .@gamble2 < 56) set .@item,1264; // Specialty Jur[4] - else if (.@gamble2 > 55 && .@gamble2 < 58) set .@item,1262; // Loki's Nail - else if (.@gamble2 > 57 && .@gamble2 < 60) set .@item,1622; // Hypnotist's Staff[2] - else if (.@gamble2 == 60) set .@item,1723; // Luna Bow[2] - else if (.@gamble2 > 60 && .@gamble2 < 63) set .@item,1965; // Red Flame Whip - else if (.@gamble2 > 62 && .@gamble2 < 65) set .@item,1966; // Icicle Whip - else if (.@gamble2 > 64 && .@gamble2 < 67) set .@item,1967; // Gaia Whip - else if (.@gamble2 > 66 && .@gamble2 < 69) set .@item,1968; // Skipping Rope - else if (.@gamble2 > 68 && .@gamble2 < 71) set .@item,1914; // Burning Passion Guitar - else if (.@gamble2 > 70 && .@gamble2 < 73) set .@item,1915; // Loner's Guitar - else if (.@gamble2 > 72 && .@gamble2 < 75) set .@item,1916; // Green Acre Guitar - else if (.@gamble2 > 74 && .@gamble2 < 77) set .@item,1917; // Gentle Breeze Guitar - else if (.@gamble2 > 76 && .@gamble2 < 79) set .@item,13004; // Cowardice Blade[2] - else if (.@gamble2 > 78 && .@gamble2 < 81) set .@item,1307; // Windhawk - else if (.@gamble2 == 81) set .@item,1560; // Sage's Diary[2] - else if (.@gamble2 == 82) set .@item,1618; // Survivor's Rod[1] - else if (.@gamble2 == 83) set .@item,1620; // Survivor's Rod[1] - else if (.@gamble2 > 83 && .@gamble2 < 86) set .@item,1971; // Electric Wire + .@gamble2 = rand(1,85); + if (.@gamble2 == 1) .@item = 1128; // Haedonggum[2] + else if (.@gamble2 == 2) .@item = 1120; // Tsurugi[2] + else if (.@gamble2 == 3) .@item = 1127; // Saber[3] + else if (.@gamble2 == 4) .@item = 1158; // Two-Handed Sword[2] + else if (.@gamble2 == 5) .@item = 1155; // Bastard Sword[3] + else if (.@gamble2 == 6) .@item = 1220; // Gladius[3] + else if (.@gamble2 == 7) .@item = 1222; // Damascus[1] + else if (.@gamble2 == 8) .@item = 1253; // Katar[2] + else if (.@gamble2 == 9) .@item = 1529; // Iron Driver + else if (.@gamble2 == 10) .@item = 1251; // Jur[3] + else if (.@gamble2 == 11) .@item = 1361; // Two-Handed Axe[2] + else if (.@gamble2 == 12) .@item = 1258; // Katar of Raging Blaze + else if (.@gamble2 == 13) .@item = 1257; // Katar of Quaking + else if (.@gamble2 == 14) .@item = 1256; // Katar of Frozen Icicle + else if (.@gamble2 == 15) .@item = 1259; // Katar of Piercing Wind + else if (.@gamble2 == 16) .@item = 1260; // Sharpened Legbone of Ghoul + else if (.@gamble2 == 17) .@item = 1716; // Gakkung Bow[2] + else if (.@gamble2 == 18) .@item = 1715; // Arbalest[2] + else if (.@gamble2 == 19) .@item = 1711; // Crossbow[3] + else if (.@gamble2 == 20) .@item = 1702; // Bow[4] + else if (.@gamble2 == 21) .@item = 1520; // Chain[3] + else if (.@gamble2 == 22) .@item = 1610; // Arc Wand[1] + else if (.@gamble2 == 23) .@item = 1615; // Evil Bone Wand + else if (.@gamble2 == 24) .@item = 1602; // Rod[4] + else if (.@gamble2 == 25) .@item = 1461; // Trident[3] + else if (.@gamble2 == 26) .@item = 1402; // Javelin[4] + else if (.@gamble2 == 27) .@item = 1961; // Whip[2] + else if (.@gamble2 == 28) .@item = 1957; // Rante Whip[1] + else if (.@gamble2 == 29) .@item = 1552; // Tablet[1] + else if (.@gamble2 == 30) .@item = 1551; // Bible[2] + else if (.@gamble2 == 31) .@item = 1553; // Book of Billows + else if (.@gamble2 == 32) .@item = 1554; // Book of Mother Earth + else if (.@gamble2 == 33) .@item = 1555; // Book of the Blazing Sun + else if (.@gamble2 == 34) .@item = 1556; // Book of Gust of Wind + else if (.@gamble2 == 35) .@item = 1951; // Rope[4] + else if (.@gamble2 == 36) .@item = 1959; // Tail Whip[2] + else if (.@gamble2 == 37) .@item = 1953; // Whip[3] + else if (.@gamble2 == 38) .@item = 1955; // Wire Whip[3] + else if (.@gamble2 == 39) .@item = 1810; // Claw[2] + else if (.@gamble2 == 40) .@item = 1910; // Harp[2] + else if (.@gamble2 == 41) .@item = 1906; // Lute[3] + else if (.@gamble2 == 42) .@item = 1902; // Violin[4] + else if (.@gamble2 == 43) .@item = 1904; // Mandolin[3] + else if (.@gamble2 == 44) .@item = 1912; // Gumoongoh[2] + else if (.@gamble2 == 45) .@item = 1908; // Guitar[1] + else if (.@gamble2 == 46) .@item = 1808; // Fist[1] + else if (.@gamble2 == 47) .@item = 1802; // Waghnak[4] + else if (.@gamble2 == 48) .@item = 1812; // Finger[2] + else if (.@gamble2 == 49) .@item = 1806; // Studded Knuckles[3] + else if (.@gamble2 == 50) .@item = 1804; // Knuckle Duster[3] + else if (.@gamble2 == 51) .@item = 1550; // Book[3] + else if (.@gamble2 == 52) .@item = 1246; // Cinquedea[2] + else if (.@gamble2 == 53) .@item = 1147; // Town Sword + else if (.@gamble2 > 53 && .@gamble2 < 56) .@item = 1264; // Specialty Jur[4] + else if (.@gamble2 > 55 && .@gamble2 < 58) .@item = 1262; // Loki's Nail + else if (.@gamble2 > 57 && .@gamble2 < 60) .@item = 1622; // Hypnotist's Staff[2] + else if (.@gamble2 == 60) .@item = 1723; // Luna Bow[2] + else if (.@gamble2 > 60 && .@gamble2 < 63) .@item = 1965; // Red Flame Whip + else if (.@gamble2 > 62 && .@gamble2 < 65) .@item = 1966; // Icicle Whip + else if (.@gamble2 > 64 && .@gamble2 < 67) .@item = 1967; // Gaia Whip + else if (.@gamble2 > 66 && .@gamble2 < 69) .@item = 1968; // Skipping Rope + else if (.@gamble2 > 68 && .@gamble2 < 71) .@item = 1914; // Burning Passion Guitar + else if (.@gamble2 > 70 && .@gamble2 < 73) .@item = 1915; // Loner's Guitar + else if (.@gamble2 > 72 && .@gamble2 < 75) .@item = 1916; // Green Acre Guitar + else if (.@gamble2 > 74 && .@gamble2 < 77) .@item = 1917; // Gentle Breeze Guitar + else if (.@gamble2 > 76 && .@gamble2 < 79) .@item = 13004; // Cowardice Blade[2] + else if (.@gamble2 > 78 && .@gamble2 < 81) .@item = 1307; // Windhawk + else if (.@gamble2 == 81) .@item = 1560; // Sage's Diary[2] + else if (.@gamble2 == 82) .@item = 1618; // Survivor's Rod[1] + else if (.@gamble2 == 83) .@item = 1620; // Survivor's Rod[1] + else if (.@gamble2 > 83 && .@gamble2 < 86) .@item = 1971; // Electric Wire } - else if ((.@gamble1 > 0) && (.@gamble1 < 201)) set .@item,1201; // Knife[3] - else if ((.@gamble1 > 200) && (.@gamble1 < 301)) set .@item,1101; // Sword[3] - else if ((.@gamble1 > 300) && (.@gamble1 < 401)) set .@item,1601; // Rod[3] - else if ((.@gamble1 > 400) && (.@gamble1 < 501)) set .@item,1116; // Katana[3] - else if ((.@gamble1 > 500) && (.@gamble1 < 601)) set .@item,1250; // Jur[2] - else if ((.@gamble1 > 600) && (.@gamble1 < 701)) set .@item,1301; // Axe[3] - else if ((.@gamble1 > 700) && (.@gamble1 < 801)) set .@item,1701; // Bow[3] - else if ((.@gamble1 > 800) && (.@gamble1 < 851)) set .@item,1504; // Mace[3] - else if ((.@gamble1 > 850) && (.@gamble1 < 901)) set .@item,1604; // Wand[2] - else if ((.@gamble1 > 900) && (.@gamble1 < 911)) set .@item,1108; // Blade[4] - else if ((.@gamble1 > 910) && (.@gamble1 < 921)) set .@item,1163; // Claymore - else if ((.@gamble1 > 930) && (.@gamble1 < 961)) set .@item,1522; // Stunner - else if ((.@gamble1 > 960) && (.@gamble1 < 971)) set .@item,1608; // Staff[3] - else if ((.@gamble1 > 970) && (.@gamble1 < 981)) set .@item,1408; // Pike[4] - else if ((.@gamble1 > 980) && (.@gamble1 < 991)) set .@item,1452; // Guisarme[3] - else if ((.@gamble1 > 990) && (.@gamble1 < 1001)) set .@item,1208; // Main Gauche[4] + else if ((.@gamble1 > 0) && (.@gamble1 < 201)) .@item = 1201; // Knife[3] + else if ((.@gamble1 > 200) && (.@gamble1 < 301)) .@item = 1101; // Sword[3] + else if ((.@gamble1 > 300) && (.@gamble1 < 401)) .@item = 1601; // Rod[3] + else if ((.@gamble1 > 400) && (.@gamble1 < 501)) .@item = 1116; // Katana[3] + else if ((.@gamble1 > 500) && (.@gamble1 < 601)) .@item = 1250; // Jur[2] + else if ((.@gamble1 > 600) && (.@gamble1 < 701)) .@item = 1301; // Axe[3] + else if ((.@gamble1 > 700) && (.@gamble1 < 801)) .@item = 1701; // Bow[3] + else if ((.@gamble1 > 800) && (.@gamble1 < 851)) .@item = 1504; // Mace[3] + else if ((.@gamble1 > 850) && (.@gamble1 < 901)) .@item = 1604; // Wand[2] + else if ((.@gamble1 > 900) && (.@gamble1 < 911)) .@item = 1108; // Blade[4] + else if ((.@gamble1 > 910) && (.@gamble1 < 921)) .@item = 1163; // Claymore + else if ((.@gamble1 > 930) && (.@gamble1 < 961)) .@item = 1522; // Stunner + else if ((.@gamble1 > 960) && (.@gamble1 < 971)) .@item = 1608; // Staff[3] + else if ((.@gamble1 > 970) && (.@gamble1 < 981)) .@item = 1408; // Pike[4] + else if ((.@gamble1 > 980) && (.@gamble1 < 991)) .@item = 1452; // Guisarme[3] + else if ((.@gamble1 > 990) && (.@gamble1 < 1001)) .@item = 1208; // Main Gauche[4] break; case 2: // Armors - set .@gamble1,rand(1,500); + .@gamble1 = rand(1,500); if ((.@gamble1 > 299) && (.@gamble1 < 303)) { - set .@gamble2,rand(1,30); - if ((.@gamble2 > 0) && (.@gamble2 < 3)) set .@item,2315; // Chain Mail[1] - else if ((.@gamble2 > 2) && (.@gamble2 < 5)) set .@item,2336; // Thief Clothes[1] - else if ((.@gamble2 > 4) && (.@gamble2 < 7)) set .@item,2318; // Lord's Clothes[1] - else if ((.@gamble2 > 6) && (.@gamble2 < 9)) set .@item,2326; // Saint's Robe[1] - else if ((.@gamble2 > 8) && (.@gamble2 < 11)) set .@item,2327; // Holy Robe - else if ((.@gamble2 > 10) && (.@gamble2 < 13)) set .@item,2342; // Legion Plate Armor[1] - else if ((.@gamble2 > 12) && (.@gamble2 < 15)) set .@item,2331; // Tights[1] - else if ((.@gamble2 > 14) && (.@gamble2 < 17)) set .@item,2342; // Legion Plate Armor[1] - else if ((.@gamble2 > 16) && (.@gamble2 < 19)) set .@item,2311; // Mink Coat[1] - else if ((.@gamble2 > 18) && (.@gamble2 < 21)) set .@item,2320; // Formal Suit[1] - else if ((.@gamble2 > 20) && (.@gamble2 < 23)) set .@item,2319; // Glittering Jacket[1] - else if ((.@gamble2 > 22) && (.@gamble2 < 25)) set .@item,2344; // Lucius's Fierce Armor of Volcano - else if ((.@gamble2 > 24) && (.@gamble2 < 27)) set .@item,2346; // Saphien's Armor of Ocean - else if ((.@gamble2 > 26) && (.@gamble2 < 29)) set .@item,2348; // Aebeccee's Raging Typhoon Armor - else if ((.@gamble2 > 28) && (.@gamble2 < 31)) set .@item,2350; // Claytos Cracking Earth Armor + .@gamble2 = rand(1,30); + if ((.@gamble2 > 0) && (.@gamble2 < 3)) .@item = 2315; // Chain Mail[1] + else if ((.@gamble2 > 2) && (.@gamble2 < 5)) .@item = 2336; // Thief Clothes[1] + else if ((.@gamble2 > 4) && (.@gamble2 < 7)) .@item = 2318; // Lord's Clothes[1] + else if ((.@gamble2 > 6) && (.@gamble2 < 9)) .@item = 2326; // Saint's Robe[1] + else if ((.@gamble2 > 8) && (.@gamble2 < 11)) .@item = 2327; // Holy Robe + else if ((.@gamble2 > 10) && (.@gamble2 < 13)) .@item = 2342; // Legion Plate Armor[1] + else if ((.@gamble2 > 12) && (.@gamble2 < 15)) .@item = 2331; // Tights[1] + else if ((.@gamble2 > 14) && (.@gamble2 < 17)) .@item = 2342; // Legion Plate Armor[1] + else if ((.@gamble2 > 16) && (.@gamble2 < 19)) .@item = 2311; // Mink Coat[1] + else if ((.@gamble2 > 18) && (.@gamble2 < 21)) .@item = 2320; // Formal Suit[1] + else if ((.@gamble2 > 20) && (.@gamble2 < 23)) .@item = 2319; // Glittering Jacket[1] + else if ((.@gamble2 > 22) && (.@gamble2 < 25)) .@item = 2344; // Lucius's Fierce Armor of Volcano + else if ((.@gamble2 > 24) && (.@gamble2 < 27)) .@item = 2346; // Saphien's Armor of Ocean + else if ((.@gamble2 > 26) && (.@gamble2 < 29)) .@item = 2348; // Aebeccee's Raging Typhoon Armor + else if ((.@gamble2 > 28) && (.@gamble2 < 31)) .@item = 2350; // Claytos Cracking Earth Armor } - else if ((.@gamble1 > 0) && (.@gamble1 < 51)) set .@item,2301; // Cotton Shirt - else if ((.@gamble1 > 50) && (.@gamble1 < 101)) set .@item,2302; // Cotton Shirt[1] - else if ((.@gamble1 > 100) && (.@gamble1 < 151)) set .@item,2303; // Jacket - else if ((.@gamble1 > 150) && (.@gamble1 < 201)) set .@item,2304; // Jacket[1] - else if ((.@gamble1 > 200) && (.@gamble1 < 251)) set .@item,2305; // Adventurer's Suit - else if ((.@gamble1 > 250) && (.@gamble1 < 300)) set .@item,2301; // Cotton Shirt - else if ((.@gamble1 > 301) && (.@gamble1 < 351)) set .@item,2307; // Mantle - else if ((.@gamble1 > 350) && (.@gamble1 < 401)) set .@item,2309; // Coat - else if ((.@gamble1 > 400) && (.@gamble1 < 402)) set .@item,2322; // Silk Robe[1] - else if ((.@gamble1 > 401) && (.@gamble1 < 403)) set .@item,2310; // Coat[1] - else if ((.@gamble1 > 402) && (.@gamble1 < 411)) set .@item,2306; // Adventurer's Suit[1] - else if ((.@gamble1 > 410) && (.@gamble1 < 416)) set .@item,2308; // Mantle[1] - else if ((.@gamble1 > 415) && (.@gamble1 < 421)) set .@item,2313; // Padded Armor[1] - else if ((.@gamble1 > 420) && (.@gamble1 < 426)) set .@item,2337; // Ninja Suit - else if ((.@gamble1 > 425) && (.@gamble1 < 431)) set .@item,2341; // Legion Plate Armor - else if ((.@gamble1 > 430) && (.@gamble1 < 436)) set .@item,2325; // Saint's Robe - else if ((.@gamble1 > 435) && (.@gamble1 < 441)) set .@item,2317; // Full Plate - else if ((.@gamble1 > 440) && (.@gamble1 < 446)) set .@item,2330; // Tights - else if ((.@gamble1 > 445) && (.@gamble1 < 451)) set .@item,2314; // Chain Mail - else if ((.@gamble1 > 450) && (.@gamble1 < 456)) set .@item,2335; // Thief Clothes - else if ((.@gamble1 > 455) && (.@gamble1 < 461)) set .@item,2324; // Scapulare[1] - else if ((.@gamble1 > 460) && (.@gamble1 < 466)) set .@item,2329; // Wooden Mail[1] - else if ((.@gamble1 > 465) && (.@gamble1 < 471)) set .@item,2340; // Novice Breastplate[1] - else if ((.@gamble1 > 470) && (.@gamble1 < 476)) set .@item,2312; // Padded Armor - else if ((.@gamble1 > 475) && (.@gamble1 < 481)) set .@item,2339; // Pantie - else if ((.@gamble1 > 480) && (.@gamble1 < 486)) set .@item,2328; // Wooden Mail - else if ((.@gamble1 > 485) && (.@gamble1 < 491)) set .@item,2321; // Silk Robe - else if ((.@gamble1 > 490) && (.@gamble1 < 501)) set .@item,2323; // Scapulare + else if ((.@gamble1 > 0) && (.@gamble1 < 51)) .@item = 2301; // Cotton Shirt + else if ((.@gamble1 > 50) && (.@gamble1 < 101)) .@item = 2302; // Cotton Shirt[1] + else if ((.@gamble1 > 100) && (.@gamble1 < 151)) .@item = 2303; // Jacket + else if ((.@gamble1 > 150) && (.@gamble1 < 201)) .@item = 2304; // Jacket[1] + else if ((.@gamble1 > 200) && (.@gamble1 < 251)) .@item = 2305; // Adventurer's Suit + else if ((.@gamble1 > 250) && (.@gamble1 < 300)) .@item = 2301; // Cotton Shirt + else if ((.@gamble1 > 301) && (.@gamble1 < 351)) .@item = 2307; // Mantle + else if ((.@gamble1 > 350) && (.@gamble1 < 401)) .@item = 2309; // Coat + else if ((.@gamble1 > 400) && (.@gamble1 < 402)) .@item = 2322; // Silk Robe[1] + else if ((.@gamble1 > 401) && (.@gamble1 < 403)) .@item = 2310; // Coat[1] + else if ((.@gamble1 > 402) && (.@gamble1 < 411)) .@item = 2306; // Adventurer's Suit[1] + else if ((.@gamble1 > 410) && (.@gamble1 < 416)) .@item = 2308; // Mantle[1] + else if ((.@gamble1 > 415) && (.@gamble1 < 421)) .@item = 2313; // Padded Armor[1] + else if ((.@gamble1 > 420) && (.@gamble1 < 426)) .@item = 2337; // Ninja Suit + else if ((.@gamble1 > 425) && (.@gamble1 < 431)) .@item = 2341; // Legion Plate Armor + else if ((.@gamble1 > 430) && (.@gamble1 < 436)) .@item = 2325; // Saint's Robe + else if ((.@gamble1 > 435) && (.@gamble1 < 441)) .@item = 2317; // Full Plate + else if ((.@gamble1 > 440) && (.@gamble1 < 446)) .@item = 2330; // Tights + else if ((.@gamble1 > 445) && (.@gamble1 < 451)) .@item = 2314; // Chain Mail + else if ((.@gamble1 > 450) && (.@gamble1 < 456)) .@item = 2335; // Thief Clothes + else if ((.@gamble1 > 455) && (.@gamble1 < 461)) .@item = 2324; // Scapulare[1] + else if ((.@gamble1 > 460) && (.@gamble1 < 466)) .@item = 2329; // Wooden Mail[1] + else if ((.@gamble1 > 465) && (.@gamble1 < 471)) .@item = 2340; // Novice Breastplate[1] + else if ((.@gamble1 > 470) && (.@gamble1 < 476)) .@item = 2312; // Padded Armor + else if ((.@gamble1 > 475) && (.@gamble1 < 481)) .@item = 2339; // Pantie + else if ((.@gamble1 > 480) && (.@gamble1 < 486)) .@item = 2328; // Wooden Mail + else if ((.@gamble1 > 485) && (.@gamble1 < 491)) .@item = 2321; // Silk Robe + else if ((.@gamble1 > 490) && (.@gamble1 < 501)) .@item = 2323; // Scapulare break; case 3: // Garments - set .@gamble1,rand(1,500); + .@gamble1 = rand(1,500); if ((.@gamble1 > 200) && (.@gamble1 < 204)) { - set .@gamble2,rand(1,16); - if ((.@gamble2 > 0) && (.@gamble2 < 3)) set .@item,2506; // Manteau[1] - else if ((.@gamble2 > 2) && (.@gamble2 < 5)) set .@item,2504; // Muffler[1] - else if ((.@gamble2 > 4) && (.@gamble2 < 8)) set .@item,2508; // Ragamuffin Manteau - else if ((.@gamble2 > 7) && (.@gamble2 < 11)) set .@item,2507; // Ancient Cape - else if (.@gamble2 == 11) set .@item,2513; // Heavenly Maiden Robe[1] - else if (.@gamble2 == 12) set .@item,2514; // Pauldron[1] - else if (.@gamble2 == 13) set .@item,2523; // Undershirt[1] - else if (.@gamble2 == 14) set .@item,2530; // Rider Insigna[1] - else if (.@gamble2 == 15) set .@item,2509; // Survivor's Manteau - else if (.@gamble2 == 16) set .@item,2515; // Eagle Wing[1] + .@gamble2 = rand(1,16); + if ((.@gamble2 > 0) && (.@gamble2 < 3)) .@item = 2506; // Manteau[1] + else if ((.@gamble2 > 2) && (.@gamble2 < 5)) .@item = 2504; // Muffler[1] + else if ((.@gamble2 > 4) && (.@gamble2 < 8)) .@item = 2508; // Ragamuffin Manteau + else if ((.@gamble2 > 7) && (.@gamble2 < 11)) .@item = 2507; // Ancient Cape + else if (.@gamble2 == 11) .@item = 2513; // Heavenly Maiden Robe[1] + else if (.@gamble2 == 12) .@item = 2514; // Pauldron[1] + else if (.@gamble2 == 13) .@item = 2523; // Undershirt[1] + else if (.@gamble2 == 14) .@item = 2530; // Rider Insigna[1] + else if (.@gamble2 == 15) .@item = 2509; // Survivor's Manteau + else if (.@gamble2 == 16) .@item = 2515; // Eagle Wing[1] } - else if ((.@gamble1 > 0) && (.@gamble1 < 101)) set .@item,2503; // Muffler - else if ((.@gamble1 > 100) && (.@gamble1 < 201)) set .@item,2505; // Manteau - else if ((.@gamble1 > 203) && (.@gamble1 < 451)) set .@item,2501; // Hood - else if ((.@gamble1 > 450) && (.@gamble1 < 501)) set .@item,2502; // Hood[1] + else if ((.@gamble1 > 0) && (.@gamble1 < 101)) .@item = 2503; // Muffler + else if ((.@gamble1 > 100) && (.@gamble1 < 201)) .@item = 2505; // Manteau + else if ((.@gamble1 > 203) && (.@gamble1 < 451)) .@item = 2501; // Hood + else if ((.@gamble1 > 450) && (.@gamble1 < 501)) .@item = 2502; // Hood[1] break; case 4: // Headgears - set .@gamble1,rand(1,1000); + .@gamble1 = rand(1,1000); if ((.@gamble1 > 299) && (.@gamble1 < 304)) { - set .@gamble2,rand(1,93); - if ((.@gamble2 > 0) && (.@gamble2 < 3)) set .@item,2251; // Monk Hat - else if ((.@gamble2 > 2) && (.@gamble2 < 5)) set .@item,2285; // Apple of Archer - else if ((.@gamble2 > 4) && (.@gamble2 < 7)) set .@item,2255; // Evil Wing - else if ((.@gamble2 > 6) && (.@gamble2 < 9)) set .@item,5045; // Magician Hat - else if ((.@gamble2 > 8) && (.@gamble2 < 11)) set .@item,2233; // Circlet[1] - else if ((.@gamble2 > 10) && (.@gamble2 < 13)) set .@item,2231; // Gemmed Sallet[1] - else if ((.@gamble2 > 12) && (.@gamble2 < 15)) set .@item,2217; // Biretta[1] - else if ((.@gamble2 > 14) && (.@gamble2 < 17)) set .@item,2206; // Wedding Veil - else if ((.@gamble2 > 16) && (.@gamble2 < 19)) set .@item,2246; // Golden Gear - else if ((.@gamble2 > 18) && (.@gamble2 < 21)) set .@item,2261; // Army Cap - else if ((.@gamble2 > 20) && (.@gamble2 < 23)) set .@item,2287; // Pirate Bandana - else if ((.@gamble2 > 22) && (.@gamble2 < 25)) set .@item,5012; // Ph.D Hat - else if ((.@gamble2 > 24) && (.@gamble2 < 27)) set .@item,2244; // Big Ribbon - else if ((.@gamble2 > 26) && (.@gamble2 < 29)) set .@item,2213; // Kitty Band - else if ((.@gamble2 > 28) && (.@gamble2 < 31)) set .@item,2248; // Western Grace - else if ((.@gamble2 > 30) && (.@gamble2 < 33)) set .@item,2223; // Turban[1] - else if ((.@gamble2 > 32) && (.@gamble2 < 35)) set .@item,2247; // Romantic Gent - else if ((.@gamble2 > 34) && (.@gamble2 < 37)) set .@item,2245; // Sweet Gent - else if ((.@gamble2 > 36) && (.@gamble2 < 39)) set .@item,5003; // Joker Jester - else if ((.@gamble2 > 38) && (.@gamble2 < 41)) set .@item,2225; // Goggles[1] - else if ((.@gamble2 > 40) && (.@gamble2 < 43)) set .@item,5017; // Bone Helm - else if ((.@gamble2 > 42) && (.@gamble2 < 45)) set .@item,5030; // Panda Hat - else if ((.@gamble2 > 44) && (.@gamble2 < 47)) set .@item,5035; // Poring Hat - else if ((.@gamble2 > 46) && (.@gamble2 < 49)) set .@item,2250; // Cute Ribbon - else if ((.@gamble2 > 48) && (.@gamble2 < 51)) set .@item,2277; // Nurse Cap - else if ((.@gamble2 > 50) && (.@gamble2 < 53)) set .@item,5011; // Aerial - else if ((.@gamble2 > 52) && (.@gamble2 < 55)) set .@item,2290; // Funeral Hat - else if ((.@gamble2 > 54) && (.@gamble2 < 57)) set .@item,5010; // Indian Fillet - else if ((.@gamble2 > 56) && (.@gamble2 < 60)) set .@item,2259; // Mini Propeller - else if ((.@gamble2 > 59) && (.@gamble2 < 62)) set .@item,5008; // Puppy Love - else if ((.@gamble2 > 61) && (.@gamble2 < 63)) set .@item,2249; // Coronet - else if ((.@gamble2 > 62) && (.@gamble2 < 65)) set .@item,2229; // Helm[1] - else if (.@gamble2 == 65) set .@item,2258; // Spiky Band - else if (.@gamble2 == 66) set .@item,2274; // Ghost Bandana - else if (.@gamble2 == 67) set .@item,5019; // Corsair - else if (.@gamble2 == 68) set .@item,2254; // Angel Wing - else if (.@gamble2 == 69) set .@item,5007; // Grand Circlet - else if (.@gamble2 == 70) set .@item,5066; // Succubus Horn - else if (.@gamble2 == 71) set .@item,2235; // Crown - else if (.@gamble2 == 72) set .@item,2234; // Tiara - else if (.@gamble2 == 73) set .@item,2256; // Majestic Goat - else if (.@gamble2 == 74) set .@item,5093; // Coif[1] - else if (.@gamble2 == 75) set .@item,5072; // Incubus Horn - else if (.@gamble2 == 76) set .@item,5002; // Jewel Crown - else if (.@gamble2 > 76 && .@gamble2 < 80) set .@item,5118; // Puppy Headband - else if (.@gamble2 > 79 && .@gamble2 < 83) set .@item,5120; // Bucket Hat[1] - else if (.@gamble2 > 82 && .@gamble2 < 86) set .@item,5111; // Galapago Cap - else if (.@gamble2 > 85 && .@gamble2 < 89) set .@item,5116; // Banana Hat - else if (.@gamble2 > 88 && .@gamble2 < 92) set .@item,5119; // Super Novice Hat[1] - else if (.@gamble2 > 91 && .@gamble2 < 94) set .@item,5141; // Marionetta Doll[1] + .@gamble2 = rand(1,93); + if ((.@gamble2 > 0) && (.@gamble2 < 3)) .@item = 2251; // Monk Hat + else if ((.@gamble2 > 2) && (.@gamble2 < 5)) .@item = 2285; // Apple of Archer + else if ((.@gamble2 > 4) && (.@gamble2 < 7)) .@item = 2255; // Evil Wing + else if ((.@gamble2 > 6) && (.@gamble2 < 9)) .@item = 5045; // Magician Hat + else if ((.@gamble2 > 8) && (.@gamble2 < 11)) .@item = 2233; // Circlet[1] + else if ((.@gamble2 > 10) && (.@gamble2 < 13)) .@item = 2231; // Gemmed Sallet[1] + else if ((.@gamble2 > 12) && (.@gamble2 < 15)) .@item = 2217; // Biretta[1] + else if ((.@gamble2 > 14) && (.@gamble2 < 17)) .@item = 2206; // Wedding Veil + else if ((.@gamble2 > 16) && (.@gamble2 < 19)) .@item = 2246; // Golden Gear + else if ((.@gamble2 > 18) && (.@gamble2 < 21)) .@item = 2261; // Army Cap + else if ((.@gamble2 > 20) && (.@gamble2 < 23)) .@item = 2287; // Pirate Bandana + else if ((.@gamble2 > 22) && (.@gamble2 < 25)) .@item = 5012; // Ph.D Hat + else if ((.@gamble2 > 24) && (.@gamble2 < 27)) .@item = 2244; // Big Ribbon + else if ((.@gamble2 > 26) && (.@gamble2 < 29)) .@item = 2213; // Kitty Band + else if ((.@gamble2 > 28) && (.@gamble2 < 31)) .@item = 2248; // Western Grace + else if ((.@gamble2 > 30) && (.@gamble2 < 33)) .@item = 2223; // Turban[1] + else if ((.@gamble2 > 32) && (.@gamble2 < 35)) .@item = 2247; // Romantic Gent + else if ((.@gamble2 > 34) && (.@gamble2 < 37)) .@item = 2245; // Sweet Gent + else if ((.@gamble2 > 36) && (.@gamble2 < 39)) .@item = 5003; // Joker Jester + else if ((.@gamble2 > 38) && (.@gamble2 < 41)) .@item = 2225; // Goggles[1] + else if ((.@gamble2 > 40) && (.@gamble2 < 43)) .@item = 5017; // Bone Helm + else if ((.@gamble2 > 42) && (.@gamble2 < 45)) .@item = 5030; // Panda Hat + else if ((.@gamble2 > 44) && (.@gamble2 < 47)) .@item = 5035; // Poring Hat + else if ((.@gamble2 > 46) && (.@gamble2 < 49)) .@item = 2250; // Cute Ribbon + else if ((.@gamble2 > 48) && (.@gamble2 < 51)) .@item = 2277; // Nurse Cap + else if ((.@gamble2 > 50) && (.@gamble2 < 53)) .@item = 5011; // Aerial + else if ((.@gamble2 > 52) && (.@gamble2 < 55)) .@item = 2290; // Funeral Hat + else if ((.@gamble2 > 54) && (.@gamble2 < 57)) .@item = 5010; // Indian Fillet + else if ((.@gamble2 > 56) && (.@gamble2 < 60)) .@item = 2259; // Mini Propeller + else if ((.@gamble2 > 59) && (.@gamble2 < 62)) .@item = 5008; // Puppy Love + else if ((.@gamble2 > 61) && (.@gamble2 < 63)) .@item = 2249; // Coronet + else if ((.@gamble2 > 62) && (.@gamble2 < 65)) .@item = 2229; // Helm[1] + else if (.@gamble2 == 65) .@item = 2258; // Spiky Band + else if (.@gamble2 == 66) .@item = 2274; // Ghost Bandana + else if (.@gamble2 == 67) .@item = 5019; // Corsair + else if (.@gamble2 == 68) .@item = 2254; // Angel Wing + else if (.@gamble2 == 69) .@item = 5007; // Grand Circlet + else if (.@gamble2 == 70) .@item = 5066; // Succubus Horn + else if (.@gamble2 == 71) .@item = 2235; // Crown + else if (.@gamble2 == 72) .@item = 2234; // Tiara + else if (.@gamble2 == 73) .@item = 2256; // Majestic Goat + else if (.@gamble2 == 74) .@item = 5093; // Coif[1] + else if (.@gamble2 == 75) .@item = 5072; // Incubus Horn + else if (.@gamble2 == 76) .@item = 5002; // Jewel Crown + else if (.@gamble2 > 76 && .@gamble2 < 80) .@item = 5118; // Puppy Headband + else if (.@gamble2 > 79 && .@gamble2 < 83) .@item = 5120; // Bucket Hat[1] + else if (.@gamble2 > 82 && .@gamble2 < 86) .@item = 5111; // Galapago Cap + else if (.@gamble2 > 85 && .@gamble2 < 89) .@item = 5116; // Banana Hat + else if (.@gamble2 > 88 && .@gamble2 < 92) .@item = 5119; // Super Novice Hat[1] + else if (.@gamble2 > 91 && .@gamble2 < 94) .@item = 5141; // Marionetta Doll[1] } - else if ((.@gamble1 > 0) && (.@gamble1 < 101)) set .@item,2226; // Cap - else if ((.@gamble1 > 100) && (.@gamble1 < 201)) set .@item,2211; // Bandana - else if ((.@gamble1 > 200) && (.@gamble1 < 300)) set .@item,2209; // Ribbon[1] - else if ((.@gamble1 > 303) && (.@gamble1 < 401)) set .@item,2220; // Hat - else if ((.@gamble1 > 400) && (.@gamble1 < 501)) set .@item,2232; // Circlet - else if ((.@gamble1 > 500) && (.@gamble1 < 601)) set .@item,2216; // Biretta - else if ((.@gamble1 > 600) && (.@gamble1 < 701)) set .@item,2230; // Gemmed Sallet - else if ((.@gamble1 > 700) && (.@gamble1 < 801)) set .@item,2224; // Goggles - else if ((.@gamble1 > 800) && (.@gamble1 < 901)) set .@item,2222; // Turban - else if ((.@gamble1 > 900) && (.@gamble1 < 906)) set .@item,2228; // Helm - else if ((.@gamble1 > 905) && (.@gamble1 < 911)) set .@item,2252; // Wizard Hat - else if ((.@gamble1 > 910) && (.@gamble1 < 916)) set .@item,2227; // Cap[1] - else if ((.@gamble1 > 915) && (.@gamble1 < 921)) set .@item,2221; // Hat[1] - else if ((.@gamble1 > 920) && (.@gamble1 < 926)) set .@item,2299; // Orc Helm - else if ((.@gamble1 > 925) && (.@gamble1 < 931)) set .@item,2236; // Santa Hat - else if ((.@gamble1 > 930) && (.@gamble1 < 936)) set .@item,2275; // Red Bandana - else if ((.@gamble1 > 935) && (.@gamble1 < 941)) set .@item,5015; // Egg Shell - else if ((.@gamble1 > 940) && (.@gamble1 < 946)) set .@item,2215; // Flower Band - else if ((.@gamble1 > 945) && (.@gamble1 < 951)) set .@item,5092; // Coif - else if ((.@gamble1 > 950) && (.@gamble1 < 1001)) set .@item,2226; // Cap + else if ((.@gamble1 > 0) && (.@gamble1 < 101)) .@item = 2226; // Cap + else if ((.@gamble1 > 100) && (.@gamble1 < 201)) .@item = 2211; // Bandana + else if ((.@gamble1 > 200) && (.@gamble1 < 300)) .@item = 2209; // Ribbon[1] + else if ((.@gamble1 > 303) && (.@gamble1 < 401)) .@item = 2220; // Hat + else if ((.@gamble1 > 400) && (.@gamble1 < 501)) .@item = 2232; // Circlet + else if ((.@gamble1 > 500) && (.@gamble1 < 601)) .@item = 2216; // Biretta + else if ((.@gamble1 > 600) && (.@gamble1 < 701)) .@item = 2230; // Gemmed Sallet + else if ((.@gamble1 > 700) && (.@gamble1 < 801)) .@item = 2224; // Goggles + else if ((.@gamble1 > 800) && (.@gamble1 < 901)) .@item = 2222; // Turban + else if ((.@gamble1 > 900) && (.@gamble1 < 906)) .@item = 2228; // Helm + else if ((.@gamble1 > 905) && (.@gamble1 < 911)) .@item = 2252; // Wizard Hat + else if ((.@gamble1 > 910) && (.@gamble1 < 916)) .@item = 2227; // Cap[1] + else if ((.@gamble1 > 915) && (.@gamble1 < 921)) .@item = 2221; // Hat[1] + else if ((.@gamble1 > 920) && (.@gamble1 < 926)) .@item = 2299; // Orc Helm + else if ((.@gamble1 > 925) && (.@gamble1 < 931)) .@item = 2236; // Santa Hat + else if ((.@gamble1 > 930) && (.@gamble1 < 936)) .@item = 2275; // Red Bandana + else if ((.@gamble1 > 935) && (.@gamble1 < 941)) .@item = 5015; // Egg Shell + else if ((.@gamble1 > 940) && (.@gamble1 < 946)) .@item = 2215; // Flower Band + else if ((.@gamble1 > 945) && (.@gamble1 < 951)) .@item = 5092; // Coif + else if ((.@gamble1 > 950) && (.@gamble1 < 1001)) .@item = 2226; // Cap break; case 5: // Footgear - set .@gamble1,rand(1,500); + .@gamble1 = rand(1,500); if ((.@gamble1 > 299) && (.@gamble1 < 303)) { - set .@gamble2,rand(1,10); - if ((.@gamble2 > 0) && (.@gamble2 < 3)) set .@item,2406; // Boots[1] - else if ((.@gamble2 > 2) && (.@gamble2 < 5)) set .@item,2412; // Greaves[1] - else if ((.@gamble2 > 4) && (.@gamble2 < 8)) set .@item,2404; // Shoes[1] - else if ((.@gamble2 > 7) && (.@gamble2 < 11)) set .@item,2407; // Crystal Pumps + .@gamble2 = rand(1,10); + if ((.@gamble2 > 0) && (.@gamble2 < 3)) .@item = 2406; // Boots[1] + else if ((.@gamble2 > 2) && (.@gamble2 < 5)) .@item = 2412; // Greaves[1] + else if ((.@gamble2 > 4) && (.@gamble2 < 8)) .@item = 2404; // Shoes[1] + else if ((.@gamble2 > 7) && (.@gamble2 < 11)) .@item = 2407; // Crystal Pumps } - else if ((.@gamble1 > 0) && (.@gamble1 < 201)) set .@item,2401; // Sandals - else if ((.@gamble1 > 200) && (.@gamble1 < 300)) set .@item,2408; // Shackles - else if ((.@gamble1 > 302) && (.@gamble1 < 351)) set .@item,2411; // Greaves - else if ((.@gamble1 > 350) && (.@gamble1 < 401)) set .@item,2403; // Shoes - else if ((.@gamble1 > 400) && (.@gamble1 < 451)) set .@item,2405; // Boots - else if ((.@gamble1 > 450) && (.@gamble1 < 476)) set .@item,2409; // High Heels - else if ((.@gamble1 > 475) && (.@gamble1 < 501)) set .@item,2402; // Sandals[1] + else if ((.@gamble1 > 0) && (.@gamble1 < 201)) .@item = 2401; // Sandals + else if ((.@gamble1 > 200) && (.@gamble1 < 300)) .@item = 2408; // Shackles + else if ((.@gamble1 > 302) && (.@gamble1 < 351)) .@item = 2411; // Greaves + else if ((.@gamble1 > 350) && (.@gamble1 < 401)) .@item = 2403; // Shoes + else if ((.@gamble1 > 400) && (.@gamble1 < 451)) .@item = 2405; // Boots + else if ((.@gamble1 > 450) && (.@gamble1 < 476)) .@item = 2409; // High Heels + else if ((.@gamble1 > 475) && (.@gamble1 < 501)) .@item = 2402; // Sandals[1] break; case 6: // Shields - set .@gamble1,rand(1,500); + .@gamble1 = rand(1,500); if ((.@gamble1 > 200) && (.@gamble1 < 205)) { - set .@gamble2,rand(1,10); - if ((.@gamble2 > 0) && (.@gamble2 < 3)) set .@item,2104; // Buckler[1] - else if ((.@gamble2 > 2) && (.@gamble2 < 5)) set .@item,2106; // Shield[1] - else if ((.@gamble2 > 4) && (.@gamble2 < 7)) set .@item,2102; // Guard[1] - else if ((.@gamble2 > 6) && (.@gamble2 < 9)) set .@item,2111; // Sacred Mission - else if ((.@gamble2 > 8) && (.@gamble2 < 11)) set .@item,2109; // Memory Book + .@gamble2 = rand(1,10); + if ((.@gamble2 > 0) && (.@gamble2 < 3)) .@item = 2104; // Buckler[1] + else if ((.@gamble2 > 2) && (.@gamble2 < 5)) .@item = 2106; // Shield[1] + else if ((.@gamble2 > 4) && (.@gamble2 < 7)) .@item = 2102; // Guard[1] + else if ((.@gamble2 > 6) && (.@gamble2 < 9)) .@item = 2111; // Sacred Mission + else if ((.@gamble2 > 8) && (.@gamble2 < 11)) .@item = 2109; // Memory Book } - else if ((.@gamble1 > 0) && (.@gamble1 < 201)) set .@item,2101; // Guard - else if ((.@gamble1 > 204) && (.@gamble1 < 301)) set .@item,2103; // Buckler - else if ((.@gamble1 > 300) && (.@gamble1 < 401)) set .@item,2107; // Mirror Shield - else if ((.@gamble1 > 401) && (.@gamble1 < 481)) set .@item,2105; // Shield - else if ((.@gamble1 > 480) && (.@gamble1 < 501)) set .@item,2108; // Mirror Shield[1] + else if ((.@gamble1 > 0) && (.@gamble1 < 201)) .@item = 2101; // Guard + else if ((.@gamble1 > 204) && (.@gamble1 < 301)) .@item = 2103; // Buckler + else if ((.@gamble1 > 300) && (.@gamble1 < 401)) .@item = 2107; // Mirror Shield + else if ((.@gamble1 > 401) && (.@gamble1 < 481)) .@item = 2105; // Shield + else if ((.@gamble1 > 480) && (.@gamble1 < 501)) .@item = 2108; // Mirror Shield[1] break; default: // Cancel button / hack cutin "katsua01.bmp",255; @@ -536,8 +536,8 @@ mjolnir_02,85,362,3 script Blacksmith Miner 4_F_JOB_BLACKSMITH,{ mes "Please enter 500 or less."; close; } - set .@cost,.@amount * 55000; - set .@weight,.@amount * 100; + .@cost = .@amount * 55000; + .@weight = .@amount * 100; if (Zeny < .@cost){ mes "[Dwayne]"; mes "Errr..."; diff --git a/npc/other/divorce.txt b/npc/other/divorce.txt index c95589d74..9ffda4910 100644 --- a/npc/other/divorce.txt +++ b/npc/other/divorce.txt @@ -193,7 +193,7 @@ nif_in,190,112,5 script Deviruchi#divorce 4_DEVIRUCHI,{ next; specialeffect EF_MAGICROD; specialeffect2 EF_DEVIL; - set wedding_sign,0; + wedding_sign = 0; Zeny -= 2500000; percentheal -100,-100; divorce; diff --git a/npc/other/fortune.txt b/npc/other/fortune.txt index a596377d1..a14f63fc9 100644 --- a/npc/other/fortune.txt +++ b/npc/other/fortune.txt @@ -66,7 +66,7 @@ payon_in03,117,128,5 script Fortune Teller 4_M_BIBI,{ mes "[Lhimetorra]"; mes " I see it... I see a sign of love... "; next; - set .@card_1_love,rand(1,74); + .@card_1_love = rand(1,74); if (.@card_1_love == 1) { cutin "°¡À̾ƽºÄ«µå",4; // Giearth Card mes "[Lhimetorra]"; @@ -768,7 +768,7 @@ payon_in03,117,128,5 script Fortune Teller 4_M_BIBI,{ mes "[Lhimetorra]"; mes " Ooh... something about your fortune is starting to show... "; next; - set .@card_1_money,rand(1,73); + .@card_1_money = rand(1,73); if (.@card_1_money == 1) { cutin "°¡À̾ƽºÄ«µå",4; // Giearth Card mes "[Lhimetorra]"; @@ -1438,7 +1438,7 @@ payon_in03,117,128,5 script Fortune Teller 4_M_BIBI,{ mes "[Lhimetorra]"; mes " Future... the card that sees the future is beginning to speak...... Prepare yourself... "; next; - set .@card_1_future,rand(1,67); + .@card_1_future = rand(1,67); if (.@card_1_future == 1) { cutin "°¡À̾ƽºÄ«µå",4; // Giearth Card mes "[Lhimetorra]"; @@ -2088,7 +2088,7 @@ payon_in03,117,128,5 script Fortune Teller 4_M_BIBI,{ mes "[Lhimetorra]"; mes " Someone that knows of the dangers you do not, will warn you in the form of cards... so listen carefully-! "; next; - set .@card_1_warning,rand(1,70); + .@card_1_warning = rand(1,70); if (.@card_1_warning == 1) { cutin "°¡À̾ƽºÄ«µå",4; // Giearth Card mes "[Lhimetorra]"; @@ -2770,7 +2770,7 @@ payon_in03,75,129,5 script Poring Fortune Teller 4_M_BIBI,{ mes " Ohh! Cute love fortune! Heh! Lets look at the cards! "; next; mes "[Chocarle]"; - set .@card_2_love,rand(1,33); + .@card_2_love = rand(1,33); if (.@card_2_love == 1) { cutin "°í½ºÆ®¸µÄ«µå",4; // Ghostring Card mes " Oh! Your lover is about to leave your side! Hold on tight! "; @@ -2918,7 +2918,7 @@ payon_in03,75,129,5 script Poring Fortune Teller 4_M_BIBI,{ mes " Issues about studying is a serious matter! Lets take a look! Yap! "; next; mes "[Chocarle]"; - set .@card_2_study,rand(1,33); + .@card_2_study = rand(1,33); if (.@card_2_study == 1) { cutin "°í½ºÆ®¸µÄ«µå",4; // Ghostring Card mes " Agh! Don't die from studying! Take breaks while you're at it! You need some rest! "; @@ -3066,7 +3066,7 @@ payon_in03,75,129,5 script Poring Fortune Teller 4_M_BIBI,{ mes " Relationships among friends is more difficult than people think! Let's use the cards to try and solve this complicated puzzle of friendship! "; next; mes "[Chocarle]"; - set .@card_2_buddy,rand(1,33); + .@card_2_buddy = rand(1,33); if (.@card_2_buddy == 1) { cutin "°í½ºÆ®¸µÄ«µå",4; // Ghostring Card mes " Ah! Your friend has gone crazy! They need the heal of friendship! "; @@ -3214,7 +3214,7 @@ payon_in03,75,129,5 script Poring Fortune Teller 4_M_BIBI,{ mes " If you say fortunetelling! Of course it is about the future! Let's try to figure this out! "; next; mes "[Chocarle]"; - set .@card_2_future,rand(1,33); + .@card_2_future = rand(1,33); if (.@card_2_future == 1) { cutin "°í½ºÆ®¸µÄ«µå",4; // Ghostring Card mes " Oh no! You are not confident about the future! Trust yourself a little more! Hope! "; @@ -3364,7 +3364,7 @@ payon_in03,75,129,5 script Poring Fortune Teller 4_M_BIBI,{ mes " Ok! Let's try it! "; next; mes "[Chocarle]"; - set .@card_2_fortune,rand(1,33); + .@card_2_fortune = rand(1,33); if (.@card_2_fortune == 1) { cutin "°í½ºÆ®¸µÄ«µå",4; // Ghostring Card mes " Uh oh! You're about to be robbed! You must save a little first! "; diff --git a/npc/other/gm_npcs.txt b/npc/other/gm_npcs.txt index c9a65e067..76d95974e 100644 --- a/npc/other/gm_npcs.txt +++ b/npc/other/gm_npcs.txt @@ -37,7 +37,7 @@ function script F_GM_NPC { if (getarg(1) == 0) { // Integer password if (getarg(3,0)) { - set .@error, input(.@input,getarg(2),getarg(3)); + .@error = input(.@input,getarg(2),getarg(3)); if (.@error) return -2; } else diff --git a/npc/other/guildpvp.txt b/npc/other/guildpvp.txt index debb96de9..b33fffeee 100644 --- a/npc/other/guildpvp.txt +++ b/npc/other/guildpvp.txt @@ -25,14 +25,14 @@ pvp_y_room,77,85,4 script Guild Battle Guide 8W_SOLDIER,{ mes "Let me know to which map"; mes "you want me to move you."; next; - set .@i, select("Map 1:Map 2:Map 3:Map 4:Map 5"); + .@i = select("Map 1:Map 2:Map 3:Map 4:Map 5"); mes "[Guild Battle Guide]"; mes "You've chosen Map "+.@i+"."; mes "Now, which team are"; mes "you on? You can choose"; mes "either Team 1 or Team 2."; next; - set .@j, select("Team 1:Team 2"); + .@j = select("Team 1:Team 2"); mes "[Guild Battle Guide]"; mes "Alright, I'll move you"; mes "to Map "+.@i+" as a member"; diff --git a/npc/other/gympass.txt b/npc/other/gympass.txt index 3f15debc1..8f5bd738d 100644 --- a/npc/other/gympass.txt +++ b/npc/other/gympass.txt @@ -50,8 +50,8 @@ payon,173,141,4 script Ripped Cabus#GymPass 4_M_HUMAN_02,{ switch(select("Yes:No:Um, my workouts wore off.")) { case 1: if (gympassmemory < 10) { - set .@add_carry,gympassmemory + 1; - set .@remain_carry,10 - .@add_carry; + .@add_carry = gympassmemory + 1; + .@remain_carry = 10 - .@add_carry; if (countitem(7776) > 0) { mes "[Ripped]"; mes "Oh, awesome, I see you"; @@ -76,8 +76,8 @@ payon,173,141,4 script Ripped Cabus#GymPass 4_M_HUMAN_02,{ mes "^FF00000" + .@remain_carry + "^000000 more times if we continue"; mes "training together like this."; delitem 7776,1; //Max_Weight_Up_Scroll - set gympassmemory,.@add_carry; - skill "ALL_INCCARRY",.@add_carry,3; + gympassmemory = .@add_carry; + skill ALL_INCCARRY,.@add_carry,3; close; } else { diff --git a/npc/other/hugel_bingo.txt b/npc/other/hugel_bingo.txt index 2b1e8f410..15b87b117 100644 --- a/npc/other/hugel_bingo.txt +++ b/npc/other/hugel_bingo.txt @@ -54,34 +54,34 @@ OnInit: end; OnTouch: - set @bingo_a1$,0; - set @bingo_a2$,0; - set @bingo_a3$,0; - set @bingo_a4$,0; - set @bingo_a5$,0; - set @bingo_b1$,0; - set @bingo_b2$,0; - set @bingo_b3$,0; - set @bingo_b4$,0; - set @bingo_b5$,0; - set @bingo_c1$,0; - set @bingo_c2$,0; - set @bingo_c3$,0; - set @bingo_c4$,0; - set @bingo_c5$,0; - set @bingo_d1$,0; - set @bingo_d2$,0; - set @bingo_d3$,0; - set @bingo_d4$,0; - set @bingo_d5$,0; - set @bingo_e1$,0; - set @bingo_e2$,0; - set @bingo_e3$,0; - set @bingo_e4$,0; - set @bingo_e5$,0; - set @bingo_case,1; + @bingo_a1$ = 0; + @bingo_a2$ = 0; + @bingo_a3$ = 0; + @bingo_a4$ = 0; + @bingo_a5$ = 0; + @bingo_b1$ = 0; + @bingo_b2$ = 0; + @bingo_b3$ = 0; + @bingo_b4$ = 0; + @bingo_b5$ = 0; + @bingo_c1$ = 0; + @bingo_c2$ = 0; + @bingo_c3$ = 0; + @bingo_c4$ = 0; + @bingo_c5$ = 0; + @bingo_d1$ = 0; + @bingo_d2$ = 0; + @bingo_d3$ = 0; + @bingo_d4$ = 0; + @bingo_d5$ = 0; + @bingo_e1$ = 0; + @bingo_e2$ = 0; + @bingo_e3$ = 0; + @bingo_e4$ = 0; + @bingo_e5$ = 0; + @bingo_case = 1; L_Fill: - set @bingo_fill,callfunc("Func_Bingo",@bingo_case); + @bingo_fill = callfunc("Func_Bingo",@bingo_case); if (!@bingo_fill) { mes "The numbers you have entered"; mes "exceed the limit, or you have"; @@ -89,7 +89,7 @@ L_Fill: mes "Please enter your numbers again."; next; } else if (@bingo_fill) { - if(@bingoplate[25] < 10) set @bingo_e5$,"0"+@bingoplate[25]+""; else set @bingo_e5$,@bingoplate[25]; + if(@bingoplate[25] < 10) @bingo_e5$ = "0"+@bingoplate[25]+""; else @bingo_e5$ = @bingoplate[25]; donpcevent "start#bingo::OnEnter"; mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]"; mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]"; @@ -115,12 +115,12 @@ OnStart: OnEnter: if ($@hu_bingoa == 4) { - set $@hu_bingoa,5; + $@hu_bingoa = 5; donpcevent "start2#bingo::OnStart"; stopnpctimer; end; } - set $@hu_bingoa,$@hu_bingoa +1; + ++$@hu_bingoa; end; OnTimer1000: @@ -159,8 +159,8 @@ OnTimer203000: OnTimer204000: areawarp "que_bingo",44,115,54,126,"que_bingo",40,121; disablenpc "out3#bingo"; - set $@hu_bingoa,0; - set $@hu_bingob,0; + $@hu_bingoa = 0; + $@hu_bingob = 0; donpcevent "Bingo Waiting Room::OnStart"; end; } @@ -187,12 +187,12 @@ OnTimer2000: OnTimer5000: mapannounce "que_bingo","Eukran: Now, let the game begin!",1,0xFFAB54; setarray $@bingoarray[0],1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25; - set .@max_index, 24; - for(set .@i,0; .@i < 25; set .@i,.@i +1) { - set $@bingo0,rand(0,.@max_index); - set $bingo[.@i],$@bingoarray[$@bingo0]; - set $@bingoarray[$@bingo0], $@bingoarray[.@max_index]; - set .@max_index, .@max_index - 1; + .@max_index = 24; + for(.@i = 0; .@i < 25; ++.@i) { + $@bingo0 = rand(0,.@max_index); + $bingo[.@i] = $@bingoarray[$@bingo0]; + $@bingoarray[$@bingo0] = $@bingoarray[.@max_index]; + --.@max_index; } end; @@ -201,7 +201,7 @@ OnTimer8000: end; OnTimer10000: - set $@bingoresult,1; + $@bingoresult = 1; callfunc "Func_BingoResult",$@bingoresult; end; @@ -271,7 +271,7 @@ OnTimer460000: mapannounce "que_bingo","Eukran: I'm sorry, but this game has ended without a winner. Thanks for playing, everyone~",1,0xFFAB54; donpcevent "1a#bingo::OnInit"; areawarp "que_bingo",44,115,54,126,"que_bingo",40,121; - set $@hu_bingoa,0; + $@hu_bingoa = 0; donpcevent "Bingo Waiting Room::OnStart"; end; } @@ -408,44 +408,44 @@ OnInit: end; OnTouch: - if(@bingoplate[1] == $bingo[$@bingoresult -1]){ set @bingo_a1$,"^ff0000- -^000000"; setarray @bingoplate[1],99; } - else if(@bingoplate[2] == $bingo[$@bingoresult -1]){ set @bingo_a2$,"^ff0000- -^000000"; setarray @bingoplate[2],99; } - else if(@bingoplate[3] == $bingo[$@bingoresult -1]){ set @bingo_a3$,"^ff0000- -^000000"; setarray @bingoplate[3],99; } - else if(@bingoplate[4] == $bingo[$@bingoresult -1]){ set @bingo_a4$,"^ff0000- -^000000"; setarray @bingoplate[4],99; } - else if(@bingoplate[5] == $bingo[$@bingoresult -1]){ set @bingo_a5$,"^ff0000- -^000000"; setarray @bingoplate[5],99; } - else if(@bingoplate[6] == $bingo[$@bingoresult -1]){ set @bingo_b1$,"^ff0000- -^000000"; setarray @bingoplate[6],99; } - else if(@bingoplate[7] == $bingo[$@bingoresult -1]){ set @bingo_b2$,"^ff0000- -^000000"; setarray @bingoplate[7],99; } - else if(@bingoplate[8] == $bingo[$@bingoresult -1]){ set @bingo_b3$,"^ff0000- -^000000"; setarray @bingoplate[8],99; } - else if(@bingoplate[9] == $bingo[$@bingoresult -1]){ set @bingo_b4$,"^ff0000- -^000000"; setarray @bingoplate[9],99; } - else if(@bingoplate[10] == $bingo[$@bingoresult -1]){ set @bingo_b5$,"^ff0000- -^000000"; setarray @bingoplate[10],99; } - else if(@bingoplate[11] == $bingo[$@bingoresult -1]){ set @bingo_c1$,"^ff0000- -^000000"; setarray @bingoplate[11],99; } - else if(@bingoplate[12] == $bingo[$@bingoresult -1]){ set @bingo_c2$,"^ff0000- -^000000"; setarray @bingoplate[12],99; } - else if(@bingoplate[13] == $bingo[$@bingoresult -1]){ set @bingo_c3$,"^ff0000- -^000000"; setarray @bingoplate[13],99; } - else if(@bingoplate[14] == $bingo[$@bingoresult -1]){ set @bingo_c4$,"^ff0000- -^000000"; setarray @bingoplate[14],99; } - else if(@bingoplate[15] == $bingo[$@bingoresult -1]){ set @bingo_c5$,"^ff0000- -^000000"; setarray @bingoplate[15],99; } - else if(@bingoplate[16] == $bingo[$@bingoresult -1]){ set @bingo_d1$,"^ff0000- -^000000"; setarray @bingoplate[16],99; } - else if(@bingoplate[17] == $bingo[$@bingoresult -1]){ set @bingo_d2$,"^ff0000- -^000000"; setarray @bingoplate[17],99; } - else if(@bingoplate[18] == $bingo[$@bingoresult -1]){ set @bingo_d3$,"^ff0000- -^000000"; setarray @bingoplate[18],99; } - else if(@bingoplate[19] == $bingo[$@bingoresult -1]){ set @bingo_d4$,"^ff0000- -^000000"; setarray @bingoplate[19],99; } - else if(@bingoplate[20] == $bingo[$@bingoresult -1]){ set @bingo_d5$,"^ff0000- -^000000"; setarray @bingoplate[20],99; } - else if(@bingoplate[21] == $bingo[$@bingoresult -1]){ set @bingo_e1$,"^ff0000- -^000000"; setarray @bingoplate[21],99; } - else if(@bingoplate[22] == $bingo[$@bingoresult -1]){ set @bingo_e2$,"^ff0000- -^000000"; setarray @bingoplate[22],99; } - else if(@bingoplate[23] == $bingo[$@bingoresult -1]){ set @bingo_e3$,"^ff0000- -^000000"; setarray @bingoplate[23],99; } - else if(@bingoplate[24] == $bingo[$@bingoresult -1]){ set @bingo_e4$,"^ff0000- -^000000"; setarray @bingoplate[24],99; } - else if(@bingoplate[25] == $bingo[$@bingoresult -1]){ set @bingo_e5$,"^ff0000- -^000000"; setarray @bingoplate[25],99; } - set @bingowin,0; - if(@bingoplate[1] == @bingoplate[2] && @bingoplate[1] == @bingoplate[3] && @bingoplate[1] == @bingoplate[4] && @bingoplate[1] == @bingoplate[5]) set @bingowin,@bingowin +1; - if(@bingoplate[6] == @bingoplate[7] && @bingoplate[6] == @bingoplate[8] && @bingoplate[6] == @bingoplate[9] && @bingoplate[6] == @bingoplate[10]) set @bingowin,@bingowin +1; - if(@bingoplate[11] == @bingoplate[12] && @bingoplate[11] == @bingoplate[13] && @bingoplate[11] == @bingoplate[14] && @bingoplate[11] == @bingoplate[15]) set @bingowin,@bingowin +1; - if(@bingoplate[16] == @bingoplate[17] && @bingoplate[16] == @bingoplate[18] && @bingoplate[16] == @bingoplate[19] && @bingoplate[16] == @bingoplate[20]) set @bingowin,@bingowin +1; - if(@bingoplate[21] == @bingoplate[22] && @bingoplate[21] == @bingoplate[23] && @bingoplate[21] == @bingoplate[24] && @bingoplate[21] == @bingoplate[25]) set @bingowin,@bingowin +1; - if(@bingoplate[1] == @bingoplate[6] && @bingoplate[1] == @bingoplate[11] && @bingoplate[1] == @bingoplate[16] && @bingoplate[1] == @bingoplate[21]) set @bingowin,@bingowin +1; - if(@bingoplate[2] == @bingoplate[7] && @bingoplate[2] == @bingoplate[12] && @bingoplate[2] == @bingoplate[17] && @bingoplate[2] == @bingoplate[22]) set @bingowin,@bingowin +1; - if(@bingoplate[3] == @bingoplate[8] && @bingoplate[3] == @bingoplate[13] && @bingoplate[3] == @bingoplate[18] && @bingoplate[3] == @bingoplate[23]) set @bingowin,@bingowin +1; - if(@bingoplate[4] == @bingoplate[9] && @bingoplate[4] == @bingoplate[14] && @bingoplate[4] == @bingoplate[19] && @bingoplate[4] == @bingoplate[24]) set @bingowin,@bingowin +1; - if(@bingoplate[5] == @bingoplate[10] && @bingoplate[5] == @bingoplate[15] && @bingoplate[5] == @bingoplate[20] && @bingoplate[5] == @bingoplate[25]) set @bingowin,@bingowin +1; - if(@bingoplate[1] == @bingoplate[7] && @bingoplate[1] == @bingoplate[13] && @bingoplate[1] == @bingoplate[19] && @bingoplate[1] == @bingoplate[25]) set @bingowin,@bingowin +1; - if(@bingoplate[5] == @bingoplate[9] && @bingoplate[5] == @bingoplate[13] && @bingoplate[5] == @bingoplate[17] && @bingoplate[5] == @bingoplate[21]) set @bingowin,@bingowin +1; + if(@bingoplate[1] == $bingo[$@bingoresult -1]){ @bingo_a1$ = "^ff0000- -^000000"; setarray @bingoplate[1],99; } + else if(@bingoplate[2] == $bingo[$@bingoresult -1]){ @bingo_a2$ = "^ff0000- -^000000"; setarray @bingoplate[2],99; } + else if(@bingoplate[3] == $bingo[$@bingoresult -1]){ @bingo_a3$ = "^ff0000- -^000000"; setarray @bingoplate[3],99; } + else if(@bingoplate[4] == $bingo[$@bingoresult -1]){ @bingo_a4$ = "^ff0000- -^000000"; setarray @bingoplate[4],99; } + else if(@bingoplate[5] == $bingo[$@bingoresult -1]){ @bingo_a5$ = "^ff0000- -^000000"; setarray @bingoplate[5],99; } + else if(@bingoplate[6] == $bingo[$@bingoresult -1]){ @bingo_b1$ = "^ff0000- -^000000"; setarray @bingoplate[6],99; } + else if(@bingoplate[7] == $bingo[$@bingoresult -1]){ @bingo_b2$ = "^ff0000- -^000000"; setarray @bingoplate[7],99; } + else if(@bingoplate[8] == $bingo[$@bingoresult -1]){ @bingo_b3$ = "^ff0000- -^000000"; setarray @bingoplate[8],99; } + else if(@bingoplate[9] == $bingo[$@bingoresult -1]){ @bingo_b4$ = "^ff0000- -^000000"; setarray @bingoplate[9],99; } + else if(@bingoplate[10] == $bingo[$@bingoresult -1]){ @bingo_b5$ = "^ff0000- -^000000"; setarray @bingoplate[10],99; } + else if(@bingoplate[11] == $bingo[$@bingoresult -1]){ @bingo_c1$ = "^ff0000- -^000000"; setarray @bingoplate[11],99; } + else if(@bingoplate[12] == $bingo[$@bingoresult -1]){ @bingo_c2$ = "^ff0000- -^000000"; setarray @bingoplate[12],99; } + else if(@bingoplate[13] == $bingo[$@bingoresult -1]){ @bingo_c3$ = "^ff0000- -^000000"; setarray @bingoplate[13],99; } + else if(@bingoplate[14] == $bingo[$@bingoresult -1]){ @bingo_c4$ = "^ff0000- -^000000"; setarray @bingoplate[14],99; } + else if(@bingoplate[15] == $bingo[$@bingoresult -1]){ @bingo_c5$ = "^ff0000- -^000000"; setarray @bingoplate[15],99; } + else if(@bingoplate[16] == $bingo[$@bingoresult -1]){ @bingo_d1$ = "^ff0000- -^000000"; setarray @bingoplate[16],99; } + else if(@bingoplate[17] == $bingo[$@bingoresult -1]){ @bingo_d2$ = "^ff0000- -^000000"; setarray @bingoplate[17],99; } + else if(@bingoplate[18] == $bingo[$@bingoresult -1]){ @bingo_d3$ = "^ff0000- -^000000"; setarray @bingoplate[18],99; } + else if(@bingoplate[19] == $bingo[$@bingoresult -1]){ @bingo_d4$ = "^ff0000- -^000000"; setarray @bingoplate[19],99; } + else if(@bingoplate[20] == $bingo[$@bingoresult -1]){ @bingo_d5$ = "^ff0000- -^000000"; setarray @bingoplate[20],99; } + else if(@bingoplate[21] == $bingo[$@bingoresult -1]){ @bingo_e1$ = "^ff0000- -^000000"; setarray @bingoplate[21],99; } + else if(@bingoplate[22] == $bingo[$@bingoresult -1]){ @bingo_e2$ = "^ff0000- -^000000"; setarray @bingoplate[22],99; } + else if(@bingoplate[23] == $bingo[$@bingoresult -1]){ @bingo_e3$ = "^ff0000- -^000000"; setarray @bingoplate[23],99; } + else if(@bingoplate[24] == $bingo[$@bingoresult -1]){ @bingo_e4$ = "^ff0000- -^000000"; setarray @bingoplate[24],99; } + else if(@bingoplate[25] == $bingo[$@bingoresult -1]){ @bingo_e5$ = "^ff0000- -^000000"; setarray @bingoplate[25],99; } + @bingowin = 0; + if(@bingoplate[1] == @bingoplate[2] && @bingoplate[1] == @bingoplate[3] && @bingoplate[1] == @bingoplate[4] && @bingoplate[1] == @bingoplate[5]) @bingowin = @bingowin +1; + if(@bingoplate[6] == @bingoplate[7] && @bingoplate[6] == @bingoplate[8] && @bingoplate[6] == @bingoplate[9] && @bingoplate[6] == @bingoplate[10]) @bingowin = @bingowin +1; + if(@bingoplate[11] == @bingoplate[12] && @bingoplate[11] == @bingoplate[13] && @bingoplate[11] == @bingoplate[14] && @bingoplate[11] == @bingoplate[15]) @bingowin = @bingowin +1; + if(@bingoplate[16] == @bingoplate[17] && @bingoplate[16] == @bingoplate[18] && @bingoplate[16] == @bingoplate[19] && @bingoplate[16] == @bingoplate[20]) @bingowin = @bingowin +1; + if(@bingoplate[21] == @bingoplate[22] && @bingoplate[21] == @bingoplate[23] && @bingoplate[21] == @bingoplate[24] && @bingoplate[21] == @bingoplate[25]) @bingowin = @bingowin +1; + if(@bingoplate[1] == @bingoplate[6] && @bingoplate[1] == @bingoplate[11] && @bingoplate[1] == @bingoplate[16] && @bingoplate[1] == @bingoplate[21]) @bingowin = @bingowin +1; + if(@bingoplate[2] == @bingoplate[7] && @bingoplate[2] == @bingoplate[12] && @bingoplate[2] == @bingoplate[17] && @bingoplate[2] == @bingoplate[22]) @bingowin = @bingowin +1; + if(@bingoplate[3] == @bingoplate[8] && @bingoplate[3] == @bingoplate[13] && @bingoplate[3] == @bingoplate[18] && @bingoplate[3] == @bingoplate[23]) @bingowin = @bingowin +1; + if(@bingoplate[4] == @bingoplate[9] && @bingoplate[4] == @bingoplate[14] && @bingoplate[4] == @bingoplate[19] && @bingoplate[4] == @bingoplate[24]) @bingowin = @bingowin +1; + if(@bingoplate[5] == @bingoplate[10] && @bingoplate[5] == @bingoplate[15] && @bingoplate[5] == @bingoplate[20] && @bingoplate[5] == @bingoplate[25]) @bingowin = @bingowin +1; + if(@bingoplate[1] == @bingoplate[7] && @bingoplate[1] == @bingoplate[13] && @bingoplate[1] == @bingoplate[19] && @bingoplate[1] == @bingoplate[25]) @bingowin = @bingowin +1; + if(@bingoplate[5] == @bingoplate[9] && @bingoplate[5] == @bingoplate[13] && @bingoplate[5] == @bingoplate[17] && @bingoplate[5] == @bingoplate[21]) @bingowin = @bingowin +1; if($@bingoresult == 1 || $@bingoresult == 21) mes "[ "+$@bingoresult+"st Number - "+$bingo[$@bingoresult -1]+" ]"; else if($@bingoresult == 2 || $@bingoresult == 22) mes "[ "+$@bingoresult+"nd Number - "+$bingo[$@bingoresult -1]+" ]"; else if($@bingoresult == 3 || $@bingoresult == 23) mes "[ "+$@bingoresult+"rd Number - "+$bingo[$@bingoresult -1]+" ]"; @@ -469,9 +469,9 @@ OnTouch: input @bingoyell$; if (@bingoyell$ == "Bingo") { if ($@hu_bingoa == 5) { - set $@hu_bingoa,6; + $@hu_bingoa = 6; donpcevent "start2#bingo::OnStop"; - set $@bingowinner$,strcharinfo(0); + $@bingowinner$ = strcharinfo(0); donpcevent "win1a#bingo::OnWin"; close; @@ -713,7 +713,7 @@ OnTimer5000: disablenpc "end1d#bingo"; disablenpc "end1e#bingo"; areawarp "que_bingo",44,115,54,126,"que_bingo",40,121; - set $@hu_bingoa,0; + $@hu_bingoa = 0; donpcevent "Bingo Waiting Room::OnStart"; end; } @@ -760,18 +760,18 @@ OnTouch: case 3: warp "que_bingo",46,116; break; case 4: warp "que_bingo",45,121; break; } - set $@hu_bingob,$@hu_bingob +1; - if ($@hu_bingob == 5) set $@hu_bingob,0; + $@hu_bingob = $@hu_bingob +1; + if ($@hu_bingob == 5) $@hu_bingob = 0; end; } function script Func_Bingo { - for(set .@i,getarg(0); .@i < 26; set .@i,.@i +1) { - if(@bingoplate[1] < 10) set @bingo_a1$,"0"+@bingoplate[1]+""; else set @bingo_a1$,@bingoplate[1]; - if(@bingoplate[2] < 10) set @bingo_a2$,"0"+@bingoplate[2]+""; else set @bingo_a2$,@bingoplate[2]; - if(@bingoplate[3] < 10) set @bingo_a3$,"0"+@bingoplate[3]+""; else set @bingo_a3$,@bingoplate[3]; - if(@bingoplate[4] < 10) set @bingo_a4$,"0"+@bingoplate[4]+""; else set @bingo_a4$,@bingoplate[4]; - if(@bingoplate[5] < 10) set @bingo_a5$,"0"+@bingoplate[5]+""; else set @bingo_a5$,@bingoplate[5]; + for(.@i = getarg(0); .@i < 26; ++.@i) { + if(@bingoplate[1] < 10) @bingo_a1$ = "0"+@bingoplate[1]+""; else @bingo_a1$ = @bingoplate[1]; + if(@bingoplate[2] < 10) @bingo_a2$ = "0"+@bingoplate[2]+""; else @bingo_a2$ = @bingoplate[2]; + if(@bingoplate[3] < 10) @bingo_a3$ = "0"+@bingoplate[3]+""; else @bingo_a3$ = @bingoplate[3]; + if(@bingoplate[4] < 10) @bingo_a4$ = "0"+@bingoplate[4]+""; else @bingo_a4$ = @bingoplate[4]; + if(@bingoplate[5] < 10) @bingo_a5$ = "0"+@bingoplate[5]+""; else @bingo_a5$ = @bingoplate[5]; if(.@i > 5) mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ["+@bingo_a5$+"]"; else { switch(.@i) { @@ -782,11 +782,11 @@ function script Func_Bingo { case 5: mes "["+@bingo_a1$+"] ["+@bingo_a2$+"] ["+@bingo_a3$+"] ["+@bingo_a4$+"] ^ff0000[__]^000000"; break; } } - if(@bingoplate[6] < 10) set @bingo_b1$,"0"+@bingoplate[6]+""; else set @bingo_b1$,@bingoplate[6]; - if(@bingoplate[7] < 10) set @bingo_b2$,"0"+@bingoplate[7]+""; else set @bingo_b2$,@bingoplate[7]; - if(@bingoplate[8] < 10) set @bingo_b3$,"0"+@bingoplate[8]+""; else set @bingo_b3$,@bingoplate[8]; - if(@bingoplate[9] < 10) set @bingo_b4$,"0"+@bingoplate[9]+""; else set @bingo_b4$,@bingoplate[9]; - if(@bingoplate[10] < 10) set @bingo_b5$,"0"+@bingoplate[10]+""; else set @bingo_b5$,@bingoplate[10]; + if(@bingoplate[6] < 10) @bingo_b1$ = "0"+@bingoplate[6]+""; else @bingo_b1$ = @bingoplate[6]; + if(@bingoplate[7] < 10) @bingo_b2$ = "0"+@bingoplate[7]+""; else @bingo_b2$ = @bingoplate[7]; + if(@bingoplate[8] < 10) @bingo_b3$ = "0"+@bingoplate[8]+""; else @bingo_b3$ = @bingoplate[8]; + if(@bingoplate[9] < 10) @bingo_b4$ = "0"+@bingoplate[9]+""; else @bingo_b4$ = @bingoplate[9]; + if(@bingoplate[10] < 10) @bingo_b5$ = "0"+@bingoplate[10]+""; else @bingo_b5$ = @bingoplate[10]; if(.@i > 10) mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ["+@bingo_b5$+"]"; else if(.@i < 6) mes "[ ] [ ] [ ] [ ] [ ]"; else { @@ -798,11 +798,11 @@ function script Func_Bingo { case 10: mes "["+@bingo_b1$+"] ["+@bingo_b2$+"] ["+@bingo_b3$+"] ["+@bingo_b4$+"] ^ff0000[__]^000000"; break; } } - if(@bingoplate[11] < 10) set @bingo_c1$,"0"+@bingoplate[11]+""; else set @bingo_c1$,@bingoplate[11]; - if(@bingoplate[12] < 10) set @bingo_c2$,"0"+@bingoplate[12]+""; else set @bingo_c2$,@bingoplate[12]; - if(@bingoplate[13] < 10) set @bingo_c3$,"0"+@bingoplate[13]+""; else set @bingo_c3$,@bingoplate[13]; - if(@bingoplate[14] < 10) set @bingo_c4$,"0"+@bingoplate[14]+""; else set @bingo_c4$,@bingoplate[14]; - if(@bingoplate[15] < 10) set @bingo_c5$,"0"+@bingoplate[15]+""; else set @bingo_c5$,@bingoplate[15]; + if(@bingoplate[11] < 10) @bingo_c1$ = "0"+@bingoplate[11]+""; else @bingo_c1$ = @bingoplate[11]; + if(@bingoplate[12] < 10) @bingo_c2$ = "0"+@bingoplate[12]+""; else @bingo_c2$ = @bingoplate[12]; + if(@bingoplate[13] < 10) @bingo_c3$ = "0"+@bingoplate[13]+""; else @bingo_c3$ = @bingoplate[13]; + if(@bingoplate[14] < 10) @bingo_c4$ = "0"+@bingoplate[14]+""; else @bingo_c4$ = @bingoplate[14]; + if(@bingoplate[15] < 10) @bingo_c5$ = "0"+@bingoplate[15]+""; else @bingo_c5$ = @bingoplate[15]; if(.@i > 15) mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ["+@bingo_c5$+"]"; else if(.@i < 11) mes "[ ] [ ] [ ] [ ] [ ]"; else { @@ -814,11 +814,11 @@ function script Func_Bingo { case 15: mes "["+@bingo_c1$+"] ["+@bingo_c2$+"] ["+@bingo_c3$+"] ["+@bingo_c4$+"] ^ff0000[__]^000000"; break; } } - if(@bingoplate[16] < 10) set @bingo_d1$,"0"+@bingoplate[16]+""; else set @bingo_d1$,@bingoplate[16]; - if(@bingoplate[17] < 10) set @bingo_d2$,"0"+@bingoplate[17]+""; else set @bingo_d2$,@bingoplate[17]; - if(@bingoplate[18] < 10) set @bingo_d3$,"0"+@bingoplate[18]+""; else set @bingo_d3$,@bingoplate[18]; - if(@bingoplate[19] < 10) set @bingo_d4$,"0"+@bingoplate[19]+""; else set @bingo_d4$,@bingoplate[19]; - if(@bingoplate[20] < 10) set @bingo_d5$,"0"+@bingoplate[20]+""; else set @bingo_d5$,@bingoplate[20]; + if(@bingoplate[16] < 10) @bingo_d1$ = "0"+@bingoplate[16]+""; else @bingo_d1$ = @bingoplate[16]; + if(@bingoplate[17] < 10) @bingo_d2$ = "0"+@bingoplate[17]+""; else @bingo_d2$ = @bingoplate[17]; + if(@bingoplate[18] < 10) @bingo_d3$ = "0"+@bingoplate[18]+""; else @bingo_d3$ = @bingoplate[18]; + if(@bingoplate[19] < 10) @bingo_d4$ = "0"+@bingoplate[19]+""; else @bingo_d4$ = @bingoplate[19]; + if(@bingoplate[20] < 10) @bingo_d5$ = "0"+@bingoplate[20]+""; else @bingo_d5$ = @bingoplate[20]; if(.@i > 20) mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ["+@bingo_d5$+"]"; else if(.@i < 16) mes "[ ] [ ] [ ] [ ] [ ]"; else { @@ -830,10 +830,10 @@ function script Func_Bingo { case 20: mes "["+@bingo_d1$+"] ["+@bingo_d2$+"] ["+@bingo_d3$+"] ["+@bingo_d4$+"] ^ff0000[__]^000000"; break; } } - if(@bingoplate[21] < 10) set @bingo_e1$,"0"+@bingoplate[21]+""; else set @bingo_e1$,@bingoplate[21]; - if(@bingoplate[22] < 10) set @bingo_e2$,"0"+@bingoplate[22]+""; else set @bingo_e2$,@bingoplate[22]; - if(@bingoplate[23] < 10) set @bingo_e3$,"0"+@bingoplate[23]+""; else set @bingo_e3$,@bingoplate[23]; - if(@bingoplate[24] < 10) set @bingo_e4$,"0"+@bingoplate[24]+""; else set @bingo_e4$,@bingoplate[24]; + if(@bingoplate[21] < 10) @bingo_e1$ = "0"+@bingoplate[21]+""; else @bingo_e1$ = @bingoplate[21]; + if(@bingoplate[22] < 10) @bingo_e2$ = "0"+@bingoplate[22]+""; else @bingo_e2$ = @bingoplate[22]; + if(@bingoplate[23] < 10) @bingo_e3$ = "0"+@bingoplate[23]+""; else @bingo_e3$ = @bingoplate[23]; + if(@bingoplate[24] < 10) @bingo_e4$ = "0"+@bingoplate[24]+""; else @bingo_e4$ = @bingoplate[24]; if(.@i < 21) mes "[ ] [ ] [ ] [ ] [ ]"; else { switch(.@i) { @@ -846,10 +846,10 @@ function script Func_Bingo { } next; input .@bingoinput; - if(.@bingoinput < 1 || .@bingoinput > 25) { set @bingo_case,.@i; return 0; } + if(.@bingoinput < 1 || .@bingoinput > 25) { @bingo_case = .@i; return 0; } if(.@i > 1) { - for(set .@j,.@i; .@j > 0; set .@j,.@j -1) { - if(.@bingoinput == @bingoplate[.@j -1]) { set @bingo_case,.@i; return 0; } + for(.@j = .@i; .@j > 0; --.@j) { + if(.@bingoinput == @bingoplate[.@j -1]) { @bingo_case = .@i; return 0; } } } setarray @bingoplate[.@i],.@bingoinput; @@ -858,10 +858,10 @@ function script Func_Bingo { } function script Func_BingoResult { - if (getarg(0) == 1 || getarg(0) == 21) set .@str$,"st"; - else if (getarg(0) == 2 || getarg(0) == 22) set .@str$,"nd"; - else if (getarg(0) == 3 || getarg(0) == 23) set .@str$,"rd"; - else set .@str$,"th"; + if (getarg(0) == 1 || getarg(0) == 21) .@str$ = "st"; + else if (getarg(0) == 2 || getarg(0) == 22) .@str$ = "nd"; + else if (getarg(0) == 3 || getarg(0) == 23) .@str$ = "rd"; + else .@str$ = "th"; mapannounce "que_bingo","Eukran: The "+getarg(0)+.@str$+" number is "+$bingo[getarg(0) -1]+". Please check your Bingo Plate.",4,0xFFAB54; enablenpc ""+getarg(0)+"a#bingo"; enablenpc ""+getarg(0)+"b#bingo"; diff --git a/npc/other/marriage.txt b/npc/other/marriage.txt index be909a207..dead8d61b 100644 --- a/npc/other/marriage.txt +++ b/npc/other/marriage.txt @@ -363,7 +363,7 @@ prt_church,97,100,4 script Wedding Staff#w 1_F_LIBRARYGIRL,{ delitem 2338,1; //Wedding_Dress } delitem 2613,1; //Diamond_Ring - set wedding_sign,1; + wedding_sign = 1; goto L_End; } mes "[Marry Happy]"; @@ -563,10 +563,10 @@ prt_church,100,128,4 script Bishop#w 1_M_PASTOR,{ if (!$@wedding) { if (wedding_sign == 1) { getpartymember(getcharid(1)); - set .@partymembercount,$@partymembercount; + .@partymembercount = $@partymembercount; if (.@partymembercount == 2) { if (Sex) { - set $@wedding,1; + $@wedding = 1; initnpctimer; mes "[Vomars]"; mes "Young lovers, please"; @@ -593,7 +593,7 @@ prt_church,100,128,4 script Bishop#w 1_M_PASTOR,{ mes "Miss " + $@wed_bride$ + "?"; next; select("I do."); - set $@wed_groom$,strcharinfo(0); + $@wed_groom$ = strcharinfo(0); mes "[Vomars]"; mes "Now, it is time for"; mes "your bride to make"; @@ -634,7 +634,7 @@ prt_church,100,128,4 script Bishop#w 1_M_PASTOR,{ else if ($@wedding == 1) { if (wedding_sign == 1) { getpartymember(getcharid(1)); - set .@partymembercount,$@partymembercount; + .@partymembercount = $@partymembercount; if (.@partymembercount == 2) { if (Sex == 0) { if (strcharinfo(0) == $@wed_bride$) { @@ -662,7 +662,7 @@ prt_church,100,128,4 script Bishop#w 1_M_PASTOR,{ mes "want to marry? Hmm."; mes "I'm truly sorry for this"; mes "misunderstanding..."; - set $@wedding,0; + $@wedding = 0; close2; stopnpctimer; cutin "",255; @@ -702,9 +702,9 @@ prt_church,100,128,4 script Bishop#w 1_M_PASTOR,{ mes "And lastly..."; mes "Always be happy,"; mes "dear "+$@wed_bride$+"..."; - set $@wed_groom$,""; - set $@wed_bride$,""; - set $@wedding,0; + $@wed_groom$ = ""; + $@wed_bride$ = ""; + $@wedding = 0; close2; stopnpctimer; cutin "",255; @@ -732,9 +732,9 @@ prt_church,100,128,4 script Bishop#w 1_M_PASTOR,{ mes "must do what your heart"; mes "tells you is right. Now, run!"; } - set $@wed_groom$,""; - set $@wed_bride$,""; - set $@wedding,0; + $@wed_groom$ = ""; + $@wed_bride$ = ""; + $@wedding = 0; close2; stopnpctimer; cutin "",255; @@ -795,9 +795,9 @@ OnStop: end; OnReset: - set $@wed_groom$,""; - set $@wed_bride$,""; - set $@wedding,0; + $@wed_groom$ = ""; + $@wed_bride$ = ""; + $@wedding = 0; end; OnTimer180000: @@ -876,7 +876,7 @@ prt_church,20,179,4 script Divorce Staff 1_F_LIBRARYGIRL,{ next; switch(select("Drop 1 Wedding Ring.:Keep it.")) { case 1: - set .@ring, (Sex)?2634:2635; //Bridegroom_Ring, Bride_Ring + .@ring = (Sex)?2634:2635; //Bridegroom_Ring, Bride_Ring if (countitem(.@ring)) { delitem .@ring,1; mes "[Bad Ending]"; @@ -931,7 +931,7 @@ prt_church,22,179,4 script Remarry Staff 1_F_LIBRARYGIRL,{ next; switch(select("Make new Wedding Ring.:Cancel.")) { case 1: - set .@ring, (Sex)?2634:2635; //Bridegroom_Ring, Bride_Ring + .@ring = (Sex)?2634:2635; //Bridegroom_Ring, Bride_Ring if (countitem(.@ring) || isequipped(.@ring)) { mes "[Wedding Again]"; mes "Wait, wait..."; diff --git a/npc/other/mercenary_rent.txt b/npc/other/mercenary_rent.txt index 422a5ac5b..e9c9a1275 100644 --- a/npc/other/mercenary_rent.txt +++ b/npc/other/mercenary_rent.txt @@ -20,10 +20,11 @@ setarray .@name$, "Spear", "Sword", "Bow"; setarray .@faith$, "SPEAR_MERC_GUILD", "SWORD_MERC_GUILD", "ARCH_MERC_GUILD"; setarray .@item, 12182, 12172, 12162; - set .@npc$, strnpcinfo(2); - for (set .@size, getarraysize(.@name$); .@i < .@size; set .@i, .@i + 1) - if (.@npc$ == .@name$[.@i]) set .@type, .@i; - set .@faith_merc, mercenary_get_faith(getd(.@faith$[.@type])); + .@npc$ = strnpcinfo(2); + .@size = getarraysize(.@name$); + for (.@i = 0; .@i < .@size; ++.@i) + if (.@npc$ == .@name$[.@i]) .@type = .@i; + .@faith_merc = mercenary_get_faith(getd(.@faith$[.@type])); mes "[Mercenary Manager]"; mes "Welcome to the"; mes .@npc$ + " Mercenary Guild."; @@ -38,14 +39,14 @@ mes "interested in hiring?"; next; setarray .@suffix$, "th","st","nd","rd"; - for (set .@i, 1; .@i <= 9; set .@i, .@i + 1) - set .@menu$, .@menu$ + .@i + .@suffix$[((.@i <= 3)? .@i : 0)] + " Grade " + .@npc$ + " Mercenary:"; - set .@Grade, select(.@menu$); - set .@BaseLevel, 5 + (.@Grade * 10); - set .@BaseLevel, (.@val > 90)? 90 : .@BaseLevel; - set .@ZenyCost, 7 * .@Grade; + for (.@i = 1; .@i <= 9; ++.@i) + .@menu$ += .@i + .@suffix$[((.@i <= 3)? .@i : 0)] + " Grade " + .@npc$ + " Mercenary:"; + .@Grade = select(.@menu$); + .@BaseLevel = 5 + (.@Grade * 10); + .@BaseLevel = (.@val > 90)? 90 : .@BaseLevel; + .@ZenyCost = 7 * .@Grade; setarray .@FaithCost[7], 50,100,300; - set .@FaithCost, .@FaithCost[.@Grade]; + .@FaithCost = .@FaithCost[.@Grade]; mes "[Mercenary Manager]"; mes "So you want to hire a " + .@Grade + .@suffix$[((.@Grade <= 3)? .@i : 0)]; mes "Grade " + .@npc$ + " Mercenary?"; @@ -221,12 +222,13 @@ pay_arche,99,167,4 duplicate(Mercenary Manager#main) Mercenary Manager#Bow 4_M_J next; setarray .@item, 12184, 12185, 12241, 12242, 12243; setarray .@cost, 1750, 3000, 560, 1050, 2100; - for (set .@size, getarraysize(.@item); .@i < .@size; set .@i, .@i + 1) - set .@menu$, .@menu$ + getitemname(.@item[.@i]) + ":"; - set .@m, select(.@menu$)-1; - set .@str$, .@cost[.@m] + ""; - set .@len, getstrlen(.@str$); - set .@str_cost$, (.@len <= 3)? .@str$ : insertchar(.@str$,",",.@len-3); + .@size = getarraysize(.@item); + for (.@i = 0; .@i < .@size; ++.@i) + .@menu$ += getitemname(.@item[.@i]) + ":"; + .@m = select(.@menu$)-1; + .@str$ = .@cost[.@m] + ""; + .@len = getstrlen(.@str$); + .@str_cost$ = (.@len <= 3)? .@str$ : insertchar(.@str$,",",.@len-3); mes "[Mercenary Goods Merchant]"; mes getitemname(.@item[.@m]); mes "each cost " + .@str_cost$ + " zeny."; @@ -241,7 +243,7 @@ pay_arche,99,167,4 duplicate(Mercenary Manager#main) Mercenary Manager#Bow 4_M_J mes "to buy any Mercenary Potions."; close; } - else if (.@input < 0 || .@input > 10000) { + if (.@input < 0 || .@input > 10000) { mes "[Mercenary Goods Merchant]"; mes "I'm sorry, but you"; mes "can only buy up to"; @@ -250,7 +252,8 @@ pay_arche,99,167,4 duplicate(Mercenary Manager#main) Mercenary Manager#Bow 4_M_J mes "a number from 1 to 10,000."; close; } - else if (set(.@total_po, .@input * .@cost[.@m]) > Zeny) { + .@total_po = .@input * .@cost[.@m]; + if (.@total_po > Zeny) { mes "[Mercenary Goods Merchant]"; mes "I'm sorry, but you don't"; mes "have enough zeny for this"; @@ -260,7 +263,7 @@ pay_arche,99,167,4 duplicate(Mercenary Manager#main) Mercenary Manager#Bow 4_M_J mes "for your Mercenaries."; close; } - else if (!checkweight(.@item[.@m], .@input)) { + if (!checkweight(.@item[.@m], .@input)) { mes "[Mercenary Goods Merchant]"; mes "If I gave you that many"; mes "potions, you wouldn't be"; diff --git a/npc/other/monster_race.txt b/npc/other/monster_race.txt index c3c54a426..30dd66bab 100644 --- a/npc/other/monster_race.txt +++ b/npc/other/monster_race.txt @@ -30,7 +30,7 @@ hugel,51,61,0 script #race_timer1-1 -1,{ OnInit: OnEnable: enablenpc "#race_timer1-1"; - set $@mon_time_1_1,2; + $@mon_time_1_1 = 2; initnpctimer; end; @@ -45,7 +45,7 @@ OnTimer10000: OnTimer30000: mapannounce "hugel","The Single Monster Race Arena has just opened.",bc_map,"0x87ceeb"; - set $@mon_time_1_1,1; + $@mon_time_1_1 = 1; donpcevent "Race Progress Timer::OnEnable"; end; @@ -67,7 +67,7 @@ OnTimer272000: OnTimer330000: mapannounce "hugel","The race is now starting. If you missed your chance to enter this race, please try again next time~!",bc_map,"0x87ceeb"; - set $@mon_time_1_1,0; + $@mon_time_1_1 = 0; donpcevent "#race_timer1-1::OnDisable"; stopnpctimer; end; @@ -77,9 +77,9 @@ p_track01,58,0,0 script Race Progress Timer -1,{ OnEnable: enablenpc "Race Progress Timer"; initnpctimer; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) enablenpc "starting#"+.@i; - set .@c, 1; + .@c = 1; while (.@c <= 6) { setd ".@line_"+.@c,rand(1,70); if (getd(".@line_"+.@c) <= 10) { @@ -109,29 +109,29 @@ OnEnable: 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) + for (.@i = 1; .@i <= 3; ++.@i) enablenpc "Tire"+.@c+"#"+.@i; if (getd(".@tired"+.@c) < 30) enablenpc "Tire"+.@c+"#4"; } else if (getd(".@line_"+.@c)) <= 60 { setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c); - for (set .@i, 1; .@i <= 3; set .@i, .@i + 1) + for (.@i = 1; .@i <= 3; ++.@i) enablenpc "Luk"+.@c+"#"+.@i; set getd(".@tired"+.@c),rand(10,30); setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c); - for (set .@i, 1; .@i <= 4; set .@i, .@i + 1) + for (.@i = 1; .@i <= 4; ++.@i) enablenpc "Tire"+.@c+"#"+.@i; if (getd(".@tired"+.@c) < 20) enablenpc "Tire"+.@c+"#5"; } else if (getd(".@line_"+.@c) <= 70) { setd "$@mr_1_luk"+.@c,getd(".@line_"+.@c); - for (set .@i, 1; .@i <= 4; set .@i, .@i + 1) + for (.@i = 1; .@i <= 4; ++.@i) enablenpc "Luk"+.@c+"#"+.@i; set getd(".@tired"+.@c),rand(0,20); setd "$@mr_1_tire"+.@c,getd(".@tired"+.@c); - for (set .@i, 1; .@i <= 5; set .@i, .@i + 1) + for (.@i = 1; .@i <= 5; ++.@i) enablenpc "Tire"+.@c+"#"+.@i; if (getd(".@tired"+.@c) < 10) enablenpc "Tire"+.@c+"#6"; } - set .@c, .@c + 1; + ++.@c; } end; @@ -170,10 +170,10 @@ OnTimer243000: OnTimer300000: mapannounce "p_track01","The Monster Race has already begun. Good luck to all the participants.",bc_map,"0xffb6c1"; - set $@mon_time_1_1,0; - set $@monster_race,0; + $@mon_time_1_1 = 0; + $@monster_race = 0; disablenpc "Ticket Helper#single"; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) donpcevent "Runner No. "+.@i+"::OnEnable"; stopnpctimer; end; @@ -201,11 +201,11 @@ p_track01,73,22,1 script Ticket Helper#single 4_M_HUMAN_02,{ mes "too many things..."; close; } - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) - set .@m$, .@m$ + "Monster "+.@i+":"; - set .@m, select ("Monster Status:"+.@m$) - 1; + for (.@i = 1; .@i <= 6; ++.@i) + .@m$ += "Monster "+.@i+":"; + .@m = select ("Monster Status:"+.@m$) - 1; if (!.@m) { - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) mes "Monster "+.@i+" [^CC6600Luck^000000: " + getd("$@mr_1_luk"+.@i) + "] [^EE0000HP^000000: " + getd("$@mr_1_tire"+.@i) + "]"; close; } else { @@ -227,7 +227,7 @@ p_track01,73,22,1 script Ticket Helper#single 4_M_HUMAN_02,{ 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; + monster_race_1 = .@m; close; } mes "[Ticket Helper]"; @@ -259,9 +259,9 @@ OnDisable: OnTouchNPC: initnpctimer; - set .@n, WN(0); - set $@monster_race,.@n; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) { + .@n = WN(0); + $@monster_race = .@n; + for (.@i = 1; .@i <= 6; ++.@i) { if (.@n == .@i) continue; donpcevent "Runner No. "+.@i+"::OnDisable"; } @@ -291,7 +291,7 @@ OnTimer9000: end; function WN { - set .@n, charat(strnpcinfo(0),getstrlen(strnpcinfo(0))-1); + .@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"); } @@ -317,7 +317,7 @@ p_track01,67,45,5 script Medal Distributor#single 4_F_RACING,{ mes "available in your Inventory."; close; } - set .@insa,rand(1,1000); + .@insa = rand(1,1000); if (countitem(7514)) { mes "[Medal Distributor]"; mes "Hello there~"; @@ -389,7 +389,7 @@ p_track01,67,45,5 script Medal Distributor#single 4_F_RACING,{ mes "Wayne in Hugel for some"; mes "interesting items. Thank you~"; delitem 7514,1; //Monster_Ticket - set monster_race_1,0; + monster_race_1 = 0; getitem 7515,4; //Marvelous_Medal close; } @@ -478,25 +478,25 @@ OnTimer249000: OnTimer252000: mapannounce "p_track01","We hope that you enjoyed the Monster Race arena. Come back again soon~",bc_map,"0xFFFF00"; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) { + for (.@i = 1; .@i <= 6; ++.@i) { donpcevent "starting#"+.@i+"::OnDisable"; setd "$@mr_1_luk"+.@i,0; setd "$@mr_1_tire"+.@i,0; } - set .@c, 1; + .@c = 1; while (.@c <= 6) { - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) { + for (.@i = 1; .@i <= 6; ++.@i) { disablenpc "Tire"+.@c+"#"+.@i; disablenpc "Luk"+.@c+"#"+.@i; } - set .@c, .@c + 1; + ++.@c; } end; OnTimer300000: donpcevent "#race_timer1-1::OnEnable"; - set $@mon_time_1_1,2; - set $@monster_race,0; + $@mon_time_1_1 = 2; + $@monster_race = 0; mapwarp "p_track01","hugel",63,73; end; @@ -552,7 +552,7 @@ p_track01,76,36,1 script Exit Guide#single 4_M_NFMAN,{ mes "here in the Monster Race Arena."; delitem 7514,1; //Monster_Ticket } - set monster_race_1,0; + monster_race_1 = 0; close2; warp "hugel",63,73; end; @@ -658,7 +658,7 @@ hugel,58,72,6 script Eckar Ellebird#single 4_M_NFMAN,{ mes "Let me guide you inside"; mes "the Monster Race Arena now."; Zeny -= 2000; - set monster_race_1,0; + monster_race_1 = 0; close2; warp "p_track01",75,41; end; @@ -679,7 +679,7 @@ hugel,58,72,6 script Eckar Ellebird#single 4_M_NFMAN,{ mes "Let me guide you now"; mes "to the Monster Race Arena."; Zeny -= 2000; - set monster_race_1,0; + monster_race_1 = 0; close2; warp "p_track01",75,41; end; @@ -716,7 +716,7 @@ hugel,58,72,6 script Eckar Ellebird#single 4_M_NFMAN,{ mes "I hope you enjoy"; mes "watching this race!"; Zeny -= 500; - set monster_race_1,0; + monster_race_1 = 0; close2; warp "p_track01",75,41; end; @@ -843,26 +843,26 @@ p_track01,39,49,3 script Game Guide#single 4_F_RACING,{ - script starting_1 -1,{ OnDisable: - for(set .@i,1; .@i<7; set .@i,.@i+1) + for(.@i = 1; .@i<7; ++.@i) enablenpc "Luk1#"+.@i; - for(set .@i,1; .@i<7; set .@i,.@i+1) + for(.@i = 1; .@i<7; ++.@i) enablenpc "Tire1#"+.@i; setd "$@mr_1_luk"+strnpcinfo(2),0; setd "$@mr_1_tire"+strnpcinfo(2),0; end; OnTouchNPC: - set .@start,rand(1,100); - if (.@start < 11) set .@speed,60; - else if (.@start < 21) set .@speed,70; - else if (.@start < 31) set .@speed,80; - else if (.@start < 41) set .@speed,90; - else if (.@start < 51) set .@speed,100; - else if (.@start < 61) set .@speed,110; - else if (.@start < 71) set .@speed,120; - else if (.@start < 81) set .@speed,130; - else if (.@start < 91) set .@speed,140; - else set .@speed,150; + .@start = rand(1,100); + if (.@start < 11) .@speed = 60; + else if (.@start < 21) .@speed = 70; + else if (.@start < 31) .@speed = 80; + else if (.@start < 41) .@speed = 90; + else if (.@start < 51) .@speed = 100; + else if (.@start < 61) .@speed = 110; + else if (.@start < 71) .@speed = 120; + else if (.@start < 81) .@speed = 130; + else if (.@start < 91) .@speed = 140; + else .@speed = 150; sc_start SC_WALKSPEED,5000,.@speed; end; @@ -874,12 +874,12 @@ OnInit: - script Luk_1 -1,{ OnTouchNPC: - set .@start,rand(1,100); - if (.@start < 61) set .@speed,110; - else if (.@start < 71) set .@speed,120; - else if (.@start < 81) set .@speed,130; - else if (.@start < 91) set .@speed,140; - else set .@speed,150; + .@start = rand(1,100); + if (.@start < 61) .@speed = 110; + else if (.@start < 71) .@speed = 120; + else if (.@start < 81) .@speed = 130; + else if (.@start < 91) .@speed = 140; + else .@speed = 150; sc_start SC_WALKSPEED,10000,.@speed; end; @@ -890,11 +890,11 @@ OnInit: - script Luk_2 -1,{ OnTouchNPC: - set .@start,rand(1,100); - if (.@start < 61) set .@time,1000; - else if (.@start < 71) set .@time,2000; - else if (.@start < 81) set .@time,3000; - else if (.@start < 91) set .@time,4000; + .@start = rand(1,100); + if (.@start < 61) .@time = 1000; + else if (.@start < 71) .@time = 2000; + else if (.@start < 81) .@time = 3000; + else if (.@start < 91) .@time = 4000; if (.@time) sc_start SC_STUN,.@time,0; end; @@ -905,11 +905,11 @@ OnInit: - script Tire_1 -1,{ OnTouchNPC: - set .@start,rand(1,100); - if (.@start < 61) set .@time,1000; - else if (.@start < 71) set .@time,2000; - else if (.@start < 81) set .@time,3000; - else if (.@start < 91) set .@time,4000; + .@start = rand(1,100); + if (.@start < 61) .@time = 1000; + else if (.@start < 71) .@time = 2000; + else if (.@start < 81) .@time = 3000; + else if (.@start < 91) .@time = 4000; if (.@time) sc_start SC_SLEEP,.@time,0; end; @@ -1005,7 +1005,7 @@ p_track01,47,28,0 duplicate(Tire_1) Tire6#6 -1,0,0 hugel,47,56,0 script #race_timer2-1 -1,{ OnEnable: enablenpc "#race_timer2-1"; - set $@mon_time_2_1,2; + $@mon_time_2_1 = 2; initnpctimer; end; @@ -1020,7 +1020,7 @@ OnTimer10000: OnTimer30000: mapannounce "hugel","The Dual Monster Race Arena has just opened.",bc_map,"0xffb6c1"; - set $@mon_time_2_1,1; + $@mon_time_2_1 = 1; donpcevent "#race_timer2-2::OnEnable"; enablenpc "Ticket Helper#2"; donpcevent "TrapGlobal#race02::OnEnable"; @@ -1044,14 +1044,14 @@ OnTimer272000: OnTimer330000: mapannounce "hugel","The race is now starting. If you missed your chance to enter this race, please try again next time~!",bc_map,"0xffb6c1"; - set $@mon_time_2_1,0; + $@mon_time_2_1 = 0; donpcevent "#race_timer2-1::OnDisable"; stopnpctimer; end; OnInit: enablenpc "#race_timer2-1"; - set $@mon_time_2_1,2; + $@mon_time_2_1 = 2; initnpctimer; end; } @@ -1059,7 +1059,7 @@ OnInit: p_track02,42,23,0 script #race_timer2-2 -1,{ OnEnable: enablenpc "#race_timer2-2"; - set $@mon_time_2_2,0; + $@mon_time_2_2 = 0; initnpctimer; end; @@ -1094,9 +1094,9 @@ OnTimer242000: OnTimer300000: mapannounce "p_track02","The Monster Race is starting now. Good luck, everybody!",bc_map,"0x87ceeb"; - set $@mon_time_2_2,1; - set $@mon_race_2_1,0; - set $@mon_race_2_2,0; + $@mon_time_2_2 = 1; + $@mon_race_2_1 = 0; + $@mon_race_2_2 = 0; disablenpc "Ticket Helper#2"; donpcevent "#poring1::OnEnable"; donpcevent "#lunatic1::OnEnable"; @@ -1109,7 +1109,7 @@ OnTimer300000: OnInit: disablenpc "#race_timer2-2"; - set $@mon_time_2_2,0; + $@mon_time_2_2 = 0; end; } @@ -1172,8 +1172,8 @@ OnTimer300000: mapwarp "p_track02","hugel",63,73; disablenpc "Medal Distributor#medal"; donpcevent "#race_timer2-1::OnEnable"; - set $@mon_race_2_1,0; - set $@mon_race_2_2,0; + $@mon_race_2_1 = 0; + $@mon_race_2_2 = 0; donpcevent "#race_timer2-3::OnDisable"; stopnpctimer; end; @@ -1282,8 +1282,8 @@ hugel,62,69,1 script Eckar Erenes#double 4_M_NFMAN,{ mes "Let me guide you inside"; mes "the Monster Race Arena now."; Zeny -= 2000; - set monster_race_2_1,0; - set monster_race_2_2,0; + monster_race_2_1 = 0; + monster_race_2_2 = 0; close2; warp "p_track02",75,41; end; @@ -1305,8 +1305,8 @@ hugel,62,69,1 script Eckar Erenes#double 4_M_NFMAN,{ mes "Let me guide you now"; mes "to the Monster Race Arena."; Zeny -= 2000; - set monster_race_2_1,0; - set monster_race_2_2,0; + monster_race_2_1 = 0; + monster_race_2_2 = 0; close2; warp "p_track02",75,41; end; @@ -1343,8 +1343,8 @@ hugel,62,69,1 script Eckar Erenes#double 4_M_NFMAN,{ mes "I hope you enjoy"; mes "watching this race!"; Zeny -= 500; - set monster_race_2_1,0; - set monster_race_2_2,0; + monster_race_2_1 = 0; + monster_race_2_2 = 0; close2; warp "p_track02",75,41; end; @@ -1400,7 +1400,7 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{ next; switch(select("Check Monster Status:Wager on Race:Monster Race?:Cancel")) { case 1: - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) mes "Monster "+.@i+" [^CC6600Luck^000000: " + getd("$@mon_r02_Luk"+.@i) + "] [^EE0000HP^000000: " + getd("$@mon_r02_tire"+.@i) + "]"; close; case 2: @@ -1419,11 +1419,10 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{ mes "will win this race."; next; 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$); + .@m$ = ""; + for (.@i = 1; .@i <= 6; ++.@i) + .@m$ += ((.@i != .@m1)?"Monster "+.@i:"")+":"; + .@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; @@ -1456,7 +1455,7 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{ mes "you think will place"; mes "1st or 2nd in this race."; next; - set .@m1, .@m; + .@m1 = .@m; } else { if (!$@mon_time_2_2) { mes "[Ticket Helper]"; @@ -1466,8 +1465,8 @@ p_track02,73,22,1 script Ticket Helper#2 4_M_HUMAN_02,{ 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; + monster_race_2_1 = .@m1; + monster_race_2_2 = .@m; getitem 7514,1; //Monster_Ticket close; } else { @@ -1710,8 +1709,8 @@ p_track02,67,45,5 script Medal Distributor#medal 4_F_RACING,{ 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; + monster_race_2_1 = 7; + monster_race_2_2 = 7; getitem 7515,15; //Marvelous_Medal close; } @@ -1788,8 +1787,8 @@ p_track02,76,38,1 script Exit Guide#double 4_M_NFMAN,{ mes "here in the Monster Race Arena."; delitem 7514,1; //Monster_Ticket } - set monster_race_2_1,0; - set monster_race_2_2,0; + monster_race_2_1 = 0; + monster_race_2_2 = 0; close2; warp "hugel",63,73; end; @@ -1801,7 +1800,7 @@ OnEnable: enablenpc strnpcinfo(0); setarray .@n[1], 1725,1726,1727,1728,1730,1729; getmapxy(.@m$,.@x,.@y,1); - set .@i, MN; + .@i = MN; monster "p_track02",58,.@y,"Monster "+.@i,.@n[.@i],1,strnpcinfo(0)+"::OnMyMobDead"; end; @@ -1811,18 +1810,18 @@ OnDisable: end; OnTouchNPC: - set .@i, MN; + .@i = MN; if (!$@mon_race_2_1) { emotion e_lv; specialeffect EF_MVP; mapannounce "p_track02","Monster "+.@i+" has reached the Finish Line!",bc_map,"0x66FFCC"; - set $@mon_race_2_1,1; + $@mon_race_2_1 = 1; donpcevent strnpcinfo(0)+"::OnDisable"; } else { emotion e_lv; specialeffect EF_MVP; mapannounce "p_track02","The race is over! Monster "+.@i+" has reached the Finish Line!",bc_map,"0x66FFCC"; - set $@mon_race_2_2,1; + $@mon_race_2_2 = 1; donpcevent "#poring1::OnDisable"; donpcevent "#lunatic1::OnDisable"; donpcevent "#savagebebe1::OnDisable"; @@ -1840,7 +1839,7 @@ OnMyMobDead: function MN { setarray .@n$[1], "poring","lunatic","savagebebe","desertwolf","deviruchi","baphomet"; - for (set .@i, 1; .@i <= getarraysize(.@n$); set .@i, .@i + 1) { + for (.@i = 1; .@i <= getarraysize(.@n$); ++.@i) { if (compare(strnpcinfo(0),.@n$[.@i])) break; } @@ -1862,9 +1861,9 @@ p_track02,30,28,0 duplicate(mob1#main) #baphomet1 HIDDEN_WARP_NPC,0,0 p_track02,19,48,0 script TrapGlobal#race02 -1,{ OnEnable: enablenpc "TrapGlobal#race02"; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) enablenpc "starting#race02_"+.@i; - set .@c, 1; + .@c = 1; while (.@c <= 6) { setd ".@line_"+.@c,rand(1,70); if (getd(".@line_"+.@c) <= 10) { @@ -1895,40 +1894,40 @@ OnEnable: 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) + for (.@i = 1; .@i <= 3; ++.@i) enablenpc "Tire#race02_"+.@c+"_"+.@i; if (getd(".@tired_"+.@c) < 30) enablenpc "Tire#race02_"+.@c+"_4"; } else if (getd(".@line_"+.@c) <= 60) { setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c); - for (set .@i, 1; .@i <= 3; set .@i, .@i + 1) + for (.@i = 1; .@i <= 3; ++.@i) enablenpc "Luk#race02_"+.@c+"_"+.@i; setd ".@tired_"+.@c,rand(10,30); setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c); - for (set .@i, 1; .@i <= 4; set .@i, .@i + 1) + for (.@i = 1; .@i <= 4; ++.@i) enablenpc "Tire#race02_"+.@c+"_"+.@i; if (getd(".@tired_"+.@c) < 20) enablenpc "Tire#race02_"+.@c+"_5"; } else if (getd(".@line_"+.@c) <= 70) { setd "$@mon_r02_luk"+.@c,getd(".@line_"+.@c); - for (set .@i, 1; .@i <= 4; set .@i, .@i + 1) + for (.@i = 1; .@i <= 4; ++.@i) enablenpc "Luk#race02_"+.@c+"_"+.@i; setd ".@tired_"+.@c,rand(0,20); setd "$@mon_r02_tire"+.@c,getd(".@tired_"+.@c); - for (set .@i, 1; .@i <= 5; set .@i, .@i + 1) + for (.@i = 1; .@i <= 5; ++.@i) enablenpc "Tire#race02_"+.@c+"_"+.@i; if (getd(".@tired_"+.@c) < 10) enablenpc "Tire#race02_"+.@c+"_6"; } - set .@c, .@c + 1; + ++.@c; } end; OnDisable: disablenpc "TrapGlobal#race02"; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) donpcevent "starting#race02_"+.@i+"::OnDisable"; end; OnInit: - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) { + for (.@i = 1; .@i <= 6; ++.@i) { setd "$@mon_r02_luk"+.@i,0; setd "$@mon_r02_tire"+.@i,0; } @@ -1938,24 +1937,24 @@ OnInit: - script starting_2 -1,{ OnDisable: disablenpc strnpcinfo(0); - for(set .@i,1; .@i<7; set .@i,.@i+1) + for(.@i = 1; .@i<7; ++.@i) disablenpc "Luk#"+strnpcinfo(2)+"_"+.@i; - for(set .@i,1; .@i<7; set .@i,.@i+1) + for(.@i = 1; .@i<7; ++.@i) disablenpc "Tire#"+strnpcinfo(2)+"_"+.@i; end; OnTouchNPC: - set .@start,rand(1,100); - if (.@start < 11) set .@speed,60; - else if (.@start < 21) set .@speed,70; - else if (.@start < 31) set .@speed,80; - else if (.@start < 41) set .@speed,90; - else if (.@start < 51) set .@speed,100; - else if (.@start < 61) set .@speed,110; - else if (.@start < 71) set .@speed,120; - else if (.@start < 81) set .@speed,130; - else if (.@start < 91) set .@speed,140; - else set .@speed,150; + .@start = rand(1,100); + if (.@start < 11) .@speed = 60; + else if (.@start < 21) .@speed = 70; + else if (.@start < 31) .@speed = 80; + else if (.@start < 41) .@speed = 90; + else if (.@start < 51) .@speed = 100; + else if (.@start < 61) .@speed = 110; + else if (.@start < 71) .@speed = 120; + else if (.@start < 81) .@speed = 130; + else if (.@start < 91) .@speed = 140; + else .@speed = 150; sc_start SC_WALKSPEED,5000,.@speed; end; @@ -2286,7 +2285,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{ } } 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; + .@m = select (implode(.@m$,":")) - 1; mes "[Ei'felle]"; mes "So you'd like to have a"; mes .@m$[.@m]+"? Please choose"; @@ -2346,7 +2345,7 @@ ein_in01,85,208,5 script Ei'felle#repay01 4_M_EINMAN2,{ setarray .@mw, 1918,1913; break; } - set .@j, select (.@mw$+":Cancel") - 1; + .@j = select (.@mw$+":Cancel") - 1; explode(.@mw$,.@mw$,":"); if (.@j == getarraysize(.@mw$)) close; callsub S_BonusReward,1500,.@mw[.@j]; @@ -2581,9 +2580,9 @@ S_Reward: mes "advance my research,"; mes "and I promise to repay"; mes "you as soon as I can!"; - set .@medals,countitem(7515); + .@medals = countitem(7515); delitem 7515,.@medals; //Marvelous_Medal - set ein_medal01,ein_medal01+.@medals; + ein_medal01 += .@medals; close; case 2: mes "[Ei'felle]"; @@ -2631,7 +2630,7 @@ S_Reward: mes "and I promise to repay"; mes "you as soon as I can!"; delitem 7515,.@input; //Marvelous_Medal - set ein_medal01,ein_medal01+.@input; + ein_medal01 += .@input; close; } case 3: @@ -2735,7 +2734,7 @@ S_BonusReward: mes "difficult. In any case, I would"; mes "appreciate your continued help~"; } - set ein_medal01,ein_medal01-getarg(0); + ein_medal01 -= getarg(0); getitem getarg(1),1; close; } @@ -2800,9 +2799,9 @@ hugel,71,83,4 script Wayne 4_M_HUMERCHANT,{ 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; + for (.@i = 0; .@i < getarraysize(.@pm); ++.@i) + .@m$ += .@pm[.@i] + " Prize medal:"; + .@m = select (.@m$) - 1; switch (.@m) { case 0: setarray .@mr$, "2 Hinale Leaflets:2 Aloe Leaflets:1 Mastela Fruit:5 Witch Starsands:4 Condensed Red Potions"; @@ -2817,23 +2816,23 @@ hugel,71,83,4 script Wayne 4_M_HUMERCHANT,{ setarray .@mr, 12130,1,12110,1; break; case 3: - set .@mr$, "1 Gift Box"; + .@mr$ = "1 Gift Box"; setarray .@mr, 644,1; break; case 4: - set .@mr$, "1 Old Blue Box"; + .@mr$ = "1 Old Blue Box"; setarray .@mr, 603,1; break; case 5: - set .@mr$, "1 Taming Gift Set"; + .@mr$ = "1 Taming Gift Set"; setarray .@mr, 12105,1; break; case 6: - set .@mr$, "1 Old Purple Box"; + .@mr$ = "1 Old Purple Box"; setarray .@mr, 617,1; break; case 7: - set .@mr$, "1 Poring Box"; + .@mr$ = "1 Poring Box"; setarray .@mr, 12109,1; break; } @@ -2843,7 +2842,7 @@ hugel,71,83,4 script Wayne 4_M_HUMERCHANT,{ 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; + .@m2 = select (.@mr$) - 1; if (countitem(7515) < .@pm[.@m]) { mes "[Wayne]"; mes "Hey, you don't have"; @@ -3074,12 +3073,12 @@ hugel,5,5,3 script Monster Race Manager 4_M_LGTGUARD,{ mes "Entry NPCs for the Single"; mes "and Dual Monster Races."; next; - set .@select, select("Single Race Entry - ON:Dual Race Entry - ON:Single Race Entry - OFF:Dual Race Entry - OFF"); + .@select = select("Single Race Entry - ON:Dual Race Entry - ON:Single Race Entry - OFF:Dual Race Entry - OFF"); mes "[Monster Race Manager]"; mes "Please enter"; mes "the password."; next; - set .@i, callfunc("F_GM_NPC",1854,0,0,2000); + .@i = callfunc("F_GM_NPC",1854,0,0,2000); if (.@i == -2) { mes "[Monster Race Manager]"; mes "Error."; diff --git a/npc/other/poring_war.txt b/npc/other/poring_war.txt index 38eac1de1..5e99c97d8 100644 --- a/npc/other/poring_war.txt +++ b/npc/other/poring_war.txt @@ -129,13 +129,13 @@ poring_w01,100,97,3 script Poring Vending Machine#w 4_PORING,{ mes "What could it be?"; next; switch(rand(1,17)) { - case 5: set .@Random_Figure,2766; break; // Swordman_Figure - case 6: set .@Random_Figure,2767; break; // Acolyte_Figure - case 8: set .@Random_Figure,2770; break; // Thief_Figure - case 11: set .@Random_Figure,2771; break; // Merchant_Figure - case 13: set .@Random_Figure,2769; break; // Archer_Figure - case 14: set .@Random_Figure,2768; break; // Mage_Figure - default: set .@Random_Figure,2765; break; // Novice_Figure + case 5: .@Random_Figure = 2766; break; // Swordman_Figure + case 6: .@Random_Figure = 2767; break; // Acolyte_Figure + case 8: .@Random_Figure = 2770; break; // Thief_Figure + case 11: .@Random_Figure = 2771; break; // Merchant_Figure + case 13: .@Random_Figure = 2769; break; // Archer_Figure + case 14: .@Random_Figure = 2768; break; // Mage_Figure + default: .@Random_Figure = 2765; break; // Novice_Figure } mes "A nice " + getitemname(.@Random_Figure) + "."; delitem 7539,50; // Poring_Coin @@ -291,9 +291,9 @@ poring_w01,96,97,3 script Sweet Devi#wop 4_DEVIRUCHI,{ close2; if (WoP_SaveMap$ != "") { savepoint WoP_SaveMap$,WoP_SaveMap_X,WoP_SaveMap_Y; - set WoP_SaveMap$,""; - set WoP_SaveMap_X,0; - set WoP_SaveMap_Y,0; + WoP_SaveMap$ = ""; + WoP_SaveMap_X = 0; + WoP_SaveMap_Y = 0; } warp getsavepoint(0), getsavepoint(1), getsavepoint(2); end; @@ -304,12 +304,12 @@ OnPCLogoutEvent: if (.@map$ == "poring_w02") { if (WoP_SaveMap$ != "") { savepoint WoP_SaveMap$,WoP_SaveMap_X,WoP_SaveMap_Y; - set WoP_SaveMap$,""; - set WoP_SaveMap_X,0; - set WoP_SaveMap_Y,0; + WoP_SaveMap$ = ""; + WoP_SaveMap_X = 0; + WoP_SaveMap_Y = 0; } delitem 7773,countitem(7773); - set wop_team,0; + wop_team = 0; } end; @@ -317,9 +317,9 @@ OnPCDieEvent: getmapxy .@map$,.@x,.@y,0; if (.@map$ == "poring_w02" && wop_team) { if (getsavepoint(0) != "poring_w02" && WoP_SaveMap$ == "") { - set WoP_SaveMap$,getsavepoint(0); - set WoP_SaveMap_X,getsavepoint(1); - set WoP_SaveMap_Y,getsavepoint(2); + WoP_SaveMap$ = getsavepoint(0); + WoP_SaveMap_X = getsavepoint(1); + WoP_SaveMap_Y = getsavepoint(2); } if (wop_team == 1) { savepoint "poring_w02",rand(44,51),rand(76,87); @@ -342,13 +342,13 @@ OnInit: removemapflag "poring_w02",mf_pvp; removemapflag "poring_w02",mf_pvp_noguild; removemapflag "poring_w02",mf_pvp_nocalcrank; - set $@wop_teamcount,0; - set $@wop_deadcount_a,0; - set $@wop_deadcount_d,0; - set $@wop_team_a,0; - set $@wop_team_d,0; - set $@wop_doorcount_a,0; - set $@wop_doorcount_d,0; + $@wop_teamcount = 0; + $@wop_deadcount_a = 0; + $@wop_deadcount_d = 0; + $@wop_team_a = 0; + $@wop_team_d = 0; + $@wop_doorcount_a = 0; + $@wop_doorcount_d = 0; end; } @@ -389,7 +389,7 @@ OnStartArena: warpwaitingpc "poring_w02",26,175; disablewaitingroomevent; if ($@wop_teamcount == 0) { - set $@wop_teamcount,1; + $@wop_teamcount = 1; donpcevent "Poring#wop_door_d::OnDevilingStart"; donpcevent "#wop_warp_rtry::OnStop"; } @@ -457,7 +457,7 @@ OnTimer55100: donpcevent "Poring#wop_door_a::OnDisable"; donpcevent "Poring#wop_door_d::OnDisable"; donpcevent "Poring#wop_door_all::OnDisable"; - set $@wop_teamcount,0; + $@wop_teamcount = 0; donpcevent "#wop_master::OnAngelingEnd"; donpcevent "#wop_warp_rtry::OnEnable"; end; @@ -481,7 +481,7 @@ OnStartArena: warpwaitingpc "poring_w02",170,175; disablewaitingroomevent; if ($@wop_teamcount == 0) { - set $@wop_teamcount,1; + $@wop_teamcount = 1; donpcevent "Poring#wop_door_a::OnAngelingStart"; donpcevent "#wop_warp_rtry::OnStop"; } @@ -550,7 +550,7 @@ OnTimer55100: donpcevent "Poring#wop_door_d::OnDisable"; donpcevent "Poring#wop_door_all::OnDisable"; - set $@wop_teamcount,0; + $@wop_teamcount = 0; donpcevent "#wop_master::OnDevilingEnd"; donpcevent "#wop_warp_rtry::OnEnable"; end; @@ -627,8 +627,8 @@ poring_w02,26,181,3 script Mr. Doppel#wop_team_a 8_DOPPEL,{ mes "- after you loose some weight. -"; close; } - set .@a_tname$,getpartyname($@wop_team_a); - set .@pname$,getpartyname(getcharid(1)); + .@a_tname$ = getpartyname($@wop_team_a); + .@pname$ = getpartyname(getcharid(1)); if ($@wop_team_a != 0 && $@wop_team_a == getcharid(1)) { mes "[Mr. Doppel]"; mes "So, everyone joined the party?"; @@ -660,7 +660,7 @@ poring_w02,26,181,3 script Mr. Doppel#wop_team_a 8_DOPPEL,{ mes "Very well. Nice you have done everything on time."; delitem 7773,countitem(7773); close2; - set wop_team,0; + wop_team = 0; warp "poring_w02",44,82; end; } @@ -671,7 +671,7 @@ poring_w02,26,181,3 script Mr. Doppel#wop_team_a 8_DOPPEL,{ mes "Wait for all the other party members there."; delitem 7773,countitem(7773); close2; - set wop_team,0; + wop_team = 0; warp "poring_w02",44,82; end; } @@ -703,7 +703,7 @@ poring_w02,26,181,3 script Mr. Doppel#wop_team_a 8_DOPPEL,{ mes "So, I'll register your party name as - " +.@pname$ + " -."; mes "Now, Tell your ^4d4dffmembers to confirm your party^000000."; mes "I'll send you to the battlefield as soon as I confirm your party."; - set $@wop_team_a,getcharid(1); + $@wop_team_a = getcharid(1); mapannounce "poring_w02","The registration of the Angeling Team has been confirmed. The party members must confirm their team with Mr. Doppel.",0,0x33FF66; close; case 3: @@ -758,8 +758,8 @@ poring_w02,170,181,3 script Mr. Doppel#wop_team_d 8_DOPPEL,{ mes "- after you loose some weight. -"; close; } - set .@d_tname$,getpartyname($@wop_team_d); - set .@pname$,getpartyname(getcharid(1)); + .@d_tname$ = getpartyname($@wop_team_d); + .@pname$ = getpartyname(getcharid(1)); if ($@wop_team_d != 0 && $@wop_team_d == getcharid(1)) { mes "[Mr. Doppel]"; mes "So, everyone joined the party?"; @@ -791,7 +791,7 @@ poring_w02,170,181,3 script Mr. Doppel#wop_team_d 8_DOPPEL,{ mes "Very well. Nice you have done everything on time."; delitem 7773,countitem(7773); close2; - set wop_team,0; + wop_team = 0; warp "poring_w02",153,82; end; } @@ -801,7 +801,7 @@ poring_w02,170,181,3 script Mr. Doppel#wop_team_d 8_DOPPEL,{ mes "Wait for all the other party members there."; delitem 7773,countitem(7773); close2; - set wop_team,0; + wop_team = 0; warp "poring_w02",153,82; end; } @@ -832,7 +832,7 @@ poring_w02,170,181,3 script Mr. Doppel#wop_team_d 8_DOPPEL,{ mes "So, I'll register your party name as - " + .@pname$ + " -."; mes "Now, Tell your ^4d4dffmembers to confirm your party^000000."; mes "I'll send you to the battlefield as soon as I confirm your party."; - set $@wop_team_d,getcharid(1); + $@wop_team_d = getcharid(1); mapannounce "poring_w02","The registration of the Deviling Team has been confirmed. The party members must confirm their team with Mr. Doppel.",0,0x33FF66; close; case 3: @@ -889,13 +889,13 @@ OnReset: donpcevent "#wop_angellium2::OnReset"; donpcevent "#wop_devillium1::OnReset"; donpcevent "#wop_devillium2::OnReset"; - set $@wop_team_a,0; - set $@wop_team_d,0; - set $@wop_deadcount_a,0; - set $@wop_deadcount_d,0; - set $@wop_teamcount,0; - set $@wop_doorcount_a,0; - set $@wop_doorcount_d,0; + $@wop_team_a = 0; + $@wop_team_d = 0; + $@wop_deadcount_a = 0; + $@wop_deadcount_d = 0; + $@wop_teamcount = 0; + $@wop_doorcount_a = 0; + $@wop_doorcount_d = 0; donpcevent "#wop_warp_a::OnDisable"; donpcevent "#wop_warp_d::OnDisable"; donpcevent "#wop_warp_rtry::OnDisable"; @@ -930,7 +930,7 @@ OnStop: end; OnAngelingWin: - set .@i,1; + .@i = 1; OnDevilingWin: removemapflag "poring_w02",mf_partylock; removemapflag "poring_w02",mf_pvp; @@ -1044,7 +1044,7 @@ OnDisable: end; OnTouch: - set wop_team,1; + wop_team = 1; warp "poring_w02",57,82; end; } @@ -1066,7 +1066,7 @@ OnDisable: end; OnTouch: - set wop_team,2; + wop_team = 2; warp "poring_w02",140,82; end; } @@ -1086,7 +1086,7 @@ OnAngelingSpawn: end; OnMyMobDead: - set $@wop_deadcount_a,$@wop_deadcount_a + 1; + ++$@wop_deadcount_a; if ($@wop_deadcount_a == 1) { mapannounce "poring_w02","Mr. Doppel: The Angeling on the 1st base has been killed! 1 point lost!!",0,0x00ff00; initnpctimer; @@ -1101,7 +1101,7 @@ OnMyMobDead: end; OnTimer120000: - set $@wop_deadcount_a,$@wop_deadcount_a - 1; + --$@wop_deadcount_a; donpcevent "#wop_angellium1::OnAngelingSpawn"; mapannounce "poring_w02","Mr. Doppel: The Angeling on the 1st base has been revived! 1 point gained!!",0,0x00ff00; stopnpctimer; @@ -1120,7 +1120,7 @@ OnAngelingSpawn: end; OnMyMobDead: - set $@wop_deadcount_a,$@wop_deadcount_a + 1; + ++$@wop_deadcount_a; if ($@wop_deadcount_a == 1) { mapannounce "poring_w02","Mr. Doppel: The Angeling on the 2nd base has been killed! 1 point lost!!",0,0x00ff00; initnpctimer; @@ -1135,7 +1135,7 @@ OnMyMobDead: end; OnTimer120000: - set $@wop_deadcount_a,$@wop_deadcount_a - 1; + --$@wop_deadcount_a; donpcevent "#wop_angellium2::OnAngelingSpawn"; mapannounce "poring_w02","Mr. Doppel: The Angeling on the 2nd base has been revived! 1 point gained!!",0,0x00ff00; stopnpctimer; @@ -1155,7 +1155,7 @@ OnDevilingSpawn: end; OnMyMobDead: - set $@wop_deadcount_d,$@wop_deadcount_d + 1; + ++$@wop_deadcount_d; if ($@wop_deadcount_d == 1) { mapannounce "poring_w02","Mr. Doppel: The Deviling on the 1st base has been killed! 1 point lost!!",0,0x00ff00; initnpctimer; @@ -1170,7 +1170,7 @@ OnMyMobDead: end; OnTimer120000: - set $@wop_deadcount_d,$@wop_deadcount_d - 1; + --$@wop_deadcount_d; donpcevent "#wop_devillium1::OnDevilingSpawn"; mapannounce "poring_w02","Mr. Doppel: The Deviling on the 1st base has been revived! 1 point gained!!",0,0x00ff00; stopnpctimer; @@ -1190,7 +1190,7 @@ OnDevilingSpawn: end; OnMyMobDead: - set $@wop_deadcount_d,$@wop_deadcount_d + 1; + ++$@wop_deadcount_d; if ($@wop_deadcount_d == 1) { mapannounce "poring_w02","Mr. Doppel: The deviling on the 2nd base has been killed! 1 point lost!!",0,0x00ff00; initnpctimer; @@ -1205,7 +1205,7 @@ OnMyMobDead: end; OnTimer120000: - set $@wop_deadcount_d,$@wop_deadcount_d - 1; + --$@wop_deadcount_d; donpcevent "#wop_devillium2::OnDevilingSpawn"; mapannounce "poring_w02","Mr. Doppel: The deviling on the 2nd base has been revived! 1 point gained!!",0,0x00ff00; stopnpctimer; @@ -1222,8 +1222,8 @@ poring_w02,99,201,3 script Deviruchi#wop_endmaster 4_DEVIRUCHI,{ mes "- after you loose some weight. -"; close; } - set .@a_point,$@wop_deadcount_a; - set .@d_point,$@wop_deadcount_d; + .@a_point = $@wop_deadcount_a; + .@d_point = $@wop_deadcount_d; if (getcharid(1) == $@wop_team_a) { if (.@a_point < .@d_point) { mes "[Devi]"; @@ -1427,13 +1427,13 @@ OnTimer68100: donpcevent "#wop_devillium2::OnReset"; donpcevent "#wop_angellium1::OnReset"; donpcevent "#wop_angellium2::OnReset"; - set $@wop_team_a,0; - set $@wop_team_d,0; - set $@wop_deadcount_a,0; - set $@wop_deadcount_d,0; - set $@wop_teamcount,0; - set $@wop_doorcount_a,0; - set $@wop_doorcount_d,0; + $@wop_team_a = 0; + $@wop_team_d = 0; + $@wop_deadcount_a = 0; + $@wop_deadcount_d = 0; + $@wop_teamcount = 0; + $@wop_doorcount_a = 0; + $@wop_doorcount_d = 0; donpcevent "#wop_warp_a::OnDisable"; donpcevent "#wop_warp_d::OnDisable"; donpcevent "Mr. Doppel#wop_team_a::OnDisable"; @@ -1461,7 +1461,7 @@ poring_w02,99,52,0 script Angeling Guardian#wop_da HIDDEN_NPC,{ if ($@wop_doorcount_a < 4) { mes "War Badge equipped."; delitem 7773,1; // War_Badge - set $@wop_doorcount_a,$@wop_doorcount_a + 1; + ++$@wop_doorcount_a; cutin "wop_emb0" + $@wop_doorcount_a,1; if ($@wop_doorcount_a == 4) { next; @@ -1501,7 +1501,7 @@ poring_w02,99,52,0 script Angeling Guardian#wop_da HIDDEN_NPC,{ end; OnInit: - set $@wop_doorcount_a,0; + $@wop_doorcount_a = 0; end; } @@ -1558,7 +1558,7 @@ poring_w02,98,113,0 script Deviling Guardian#wop_dd HIDDEN_NPC,{ if ($@wop_doorcount_d < 4) { mes "War Badge equipped."; delitem 7773,1; // War_Badge - set $@wop_doorcount_d,$@wop_doorcount_d + 1; + ++$@wop_doorcount_d; cutin "wop_emb0" + $@wop_doorcount_d,1; if ($@wop_doorcount_d == 4) { next; @@ -1598,7 +1598,7 @@ poring_w02,98,113,0 script Deviling Guardian#wop_dd HIDDEN_NPC,{ end; OnInit: - set $@wop_doorcount_d,0; + $@wop_doorcount_d = 0; end; } diff --git a/npc/other/powernpc.txt b/npc/other/powernpc.txt index 33c6980dd..ad81c6438 100644 --- a/npc/other/powernpc.txt +++ b/npc/other/powernpc.txt @@ -24,7 +24,7 @@ gonryun,180,118,4 script Iron man#gnp 4_M_03,{ mes "Children are not allowed in here."; close; } - if (in_battle == 3) set in_battle,1; + if (in_battle == 3) in_battle = 1; if (in_battle < 1) { mes "[Songmoodoo]"; mes "Hey hey~ This is not something"; @@ -84,14 +84,14 @@ gonryun,180,118,4 script Iron man#gnp 4_M_03,{ mes "I'll give you another chance."; mes "See you again."; emotion e_pif; - set in_battle,1; + in_battle = 1; } close; L_Lifting: if (checkweight(7049,getarg(0))) { mes "You lifted the Stone lightly.^000000"; - set in_battle,1; + in_battle = 1; getitem 7049, getarg(0); // Stone next; emotion e_no1; @@ -138,9 +138,9 @@ gon_test,50,14,4 script Administrator#gnp 8_M_TWSOLDIER,{ close; } Zeny -= 500; - set in_battle,1; + in_battle = 1; warp "gon_test",42,86; - set $@in_battle,1; + $@in_battle = 1; setnpctimer 0,"Summoner#gnp"; startnpctimer "Summoner#gnp"; end; @@ -161,15 +161,15 @@ gon_test,42,89,4 script Summoner#gnp 4_M_TWBOY,{ mes "Welcome."; mes "Which monster will you recall?"; next; - set .@gnpGroup, select("Group 1:Group 2:Group 3:Group 4:Group 5:Group 6:Group 7:Group 8:Group 9:Group 10:Group 11"); - set .@gnpGroupMob$,.gnpMobsName$[(.@gnpGroup-1)*6]; - for (set .@i,1; .@i < 6; set .@i, .@i+1) - set .@gnpGroupMob$, .@gnpGroupMob$ + ":" + .gnpMobsName$[(.@gnpGroup-1)*6 + .@i]; - set .@gnpMob, select(.@gnpGroupMob$); + .@gnpGroup = select("Group 1:Group 2:Group 3:Group 4:Group 5:Group 6:Group 7:Group 8:Group 9:Group 10:Group 11"); + .@gnpGroupMob$ = .gnpMobsName$[(.@gnpGroup-1)*6]; + for (.@i = 1; .@i < 6; ++.@i) + .@gnpGroupMob$ += ":" + .gnpMobsName$[(.@gnpGroup-1)*6 + .@i]; + .@gnpMob = select(.@gnpGroupMob$); mes "[SongYeunWoo]"; mes "Let the fight begin!"; close2; - set in_battle,2; + in_battle = 2; if (getnpctimer(0) < 180000) monster "gon_test",56,86,.gnpMobsName$[(.@gnpGroup-1)*6 + .@gnpMob - 1],.gnpMobsId[(.@gnpGroup-1)*6 + .@gnpMob - 1],1,"Summoner#gnp::OnGnpMobDead"; end; OnInit: @@ -213,13 +213,13 @@ OnTimer182000: OnGnpMobDead: setnpctimer 0; - set in_battle,1; + in_battle = 1; areaannounce "gon_test",41,81,74,92,"Thank you. Please come again.",0; sleep 4000; OnTimer184000: stopnpctimer; areawarp "gon_test",41,81,74,92,"gon_test",44,4; - set $@in_battle,0; + $@in_battle = 0; end; } @@ -253,7 +253,7 @@ gon_test,46,14,3 script Guide of field of fight 4_F_TWGIRL,{ mes "Yes, thank you."; mes "Have a good time."; close2; - set in_battle,3; + in_battle = 3; warp "gon_test",25,98; end; case 4: @@ -281,7 +281,7 @@ gon_test,70,103,3 script ChowAnAn#gnp 4_F_TWMIDWOMAN,{ mes "Thank you."; mes "Please come again."; close2; - set in_battle,1; + in_battle = 1; warp "gon_test",44,4; end; } diff --git a/npc/other/pvp.txt b/npc/other/pvp.txt index 779f332ae..383c67d22 100644 --- a/npc/other/pvp.txt +++ b/npc/other/pvp.txt @@ -253,7 +253,7 @@ geffen_in,67,63,4 duplicate(pvpe) PVP Narrator#pe6 4_M_02 close; L_Warp: - set .@map$,getarg(0); + .@map$ = getarg(0); if (checkre(0)) { switch(rand(1,10)) { case 1: warp .@map$,34,38; break; @@ -291,7 +291,7 @@ function script F_PVP_FSRS { } } if (strnpcinfo(4) == "pvp_y_room") { - set .@base$, "pvp_y_"+strnpcinfo(2); + .@base$ = "pvp_y_"+strnpcinfo(2); setarray .@maps$[0], .@base$+"-1", .@base$+"-2", .@base$+"-3", .@base$+"-4", .@base$+"-5"; setarray .@name$[0], "Prontera", "Izlude", "Payon", "Alberta", "Morroc"; setarray .@Limit[0], 128, 128, 128, 128, 128; @@ -300,10 +300,10 @@ function script F_PVP_FSRS { setarray .@name$[0], "Sandwich", "Lock on", "Four Room", "Under cross", "Compass Room"; setarray .@Limit[0], 64, 32, 32, 32, 32; } - for(set .@i,0; .@i<5; set .@i,.@i+1) - set .@menu$, .@menu$+.@name$[.@i]+" ["+getmapusers(.@maps$[.@i])+" / "+.@Limit[.@i]+"]:"; - set .@menu$, .@menu$+"Cancel."; - set .@i, select(.@menu$)-1; + for (.@i = 0; .@i<5; ++.@i) + .@menu$ += .@name$[.@i]+" ["+getmapusers(.@maps$[.@i])+" / "+.@Limit[.@i]+"]:"; + .@menu$ += "Cancel."; + .@i = select(.@menu$)-1; if (.@i == 5) close; if (getmapusers(.@maps$[.@i]) >= .@Limit[.@i]) { mes "[PVP Fight Square Reception Staff]"; @@ -326,7 +326,7 @@ pvp_room,54,85,4 script Registration Staff#1 8W_SOLDIER,{ mes "For details about viewers please proceed to the Register Staff on your right."; close; } - set .@size, getarraysize(.warp_x); + .@size = getarraysize(.warp_x); if (.@size == 0) { setarray .warp_x,40,59,20,40; setarray .warp_y,59,40,40,20; @@ -342,7 +342,7 @@ pvp_room,54,85,4 script Registration Staff#1 8W_SOLDIER,{ mes "Good luck!"; close2; delitem 7028,1; //Invite_For_Duel - set .@rand, rand(.@size); + .@rand = rand(.@size); warp "pvp_2vs2", .warp_x[.@rand], .warp_y[.@rand]; deletearray .warp_x[.@rand],1; deletearray .warp_y[.@rand],1; diff --git a/npc/other/turbo_track.txt b/npc/other/turbo_track.txt index 2d9b967d8..fdbf58b82 100644 --- a/npc/other/turbo_track.txt +++ b/npc/other/turbo_track.txt @@ -19,7 +19,7 @@ function script F_tt { if (compare(strnpcinfo(2),"main")) end; - set .@w$,(charat(strnpcinfo(4),6))+((getstrlen(strnpcinfo(4)) > 9)?(substr(strnpcinfo(4),8,9)):(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1))); + .@w$ = (charat(strnpcinfo(4),6))+((getstrlen(strnpcinfo(4)) > 9)?(substr(strnpcinfo(4),8,9)):(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1))); return .@w$; } @@ -33,13 +33,13 @@ OnEnable: OnStartArena: if (compare(strnpcinfo(2),"n1")) { - set .@in$, "n"; - set .@in, 1; + .@in$ = "n"; + .@in = 1; } else { - set .@in$,(compare(strnpcinfo(1),"Expert"))?"e":"n"; - if (compare(strnpcinfo(1),"4")) set .@in, 4; - if (compare(strnpcinfo(1),"8")) set .@in, 8; - if (compare(strnpcinfo(1),"16")) set .@in, 16; + .@in$ = (compare(strnpcinfo(1),"Expert"))?"e":"n"; + if (compare(strnpcinfo(1),"4")) .@in = 4; + if (compare(strnpcinfo(1),"8")) .@in = 8; + if (compare(strnpcinfo(1),"16")) .@in = 16; } warpwaitingpc "turbo_"+.@in$+"_"+.@in,298,161; donpcevent "Broadcast#"+.@in$+.@in+"::OnEnable"; @@ -51,9 +51,9 @@ OnInit: if (compare(strnpcinfo(2),"n1")) { waitingroom "Solo Mode",60,"Solo Mode#n1::OnStartArena",1; } else { - if (compare(strnpcinfo(1),"4")) set .@in, 4; - if (compare(strnpcinfo(1),"8")) set .@in, 8; - if (compare(strnpcinfo(1),"16")) set .@in, 16; + if (compare(strnpcinfo(1),"4")) .@in = 4; + if (compare(strnpcinfo(1),"8")) .@in = 8; + if (compare(strnpcinfo(1),"16")) .@in = 16; waitingroom strnpcinfo(1),60,strnpcinfo(0)+"::OnStartArena",.@in,1000,10,99; } enablewaitingroomevent strnpcinfo(0); @@ -90,7 +90,7 @@ turbo_e_4,298,167,0 script Point#tt_main -1,15,15,{ OnTouch: if (tt_point < 28999) { - set tt_point,tt_point+2; + tt_point += 2; warp strnpcinfo(4),59,364; } else @@ -98,7 +98,7 @@ OnTouch: end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "Point Give-Away Guy#"+.@w$; end; } @@ -112,7 +112,7 @@ turbo_n_1,298,167,0 duplicate(Point#tt_main) Point Give-Away Guy#n1 -1,15,15 - script Broadcast#tt_main -1,{ OnEnable: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Broadcast#"+.@w$; initnpctimer; end; @@ -170,25 +170,25 @@ OnTimer47000: end; OnTimer49000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Point Give-Away Guy#"+.@w$; donpcevent "Master#"+.@w$+"::OnEnable"; end; OnTimer50000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); donpcevent "snake#"+.@w$+"::OnEnable"; donpcevent "hunting#"+.@w$+"::OnEnable"; if (strnpcinfo(4) != "turbo_n_1") enablenpc "bing#"+.@w$; end; OnTimer57000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "Point Give-Away Guy#"+.@w$; end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "Broadcast#"+.@w$; end; } @@ -203,13 +203,13 @@ turbo_n_1,167,3,0 duplicate(Broadcast#tt_main) Broadcast#n1 -1 - script Master#tt_main -1,{ function RName; OnEnable: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Master#"+.@w$; initnpctimer; end; OnDisable: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); stopnpctimer; disablenpc "Master#"+.@w$; end; @@ -259,11 +259,11 @@ OnTimer22000: end; OnTimer23000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),"Now! The race has begun! Go Go Go!!",bc_map,"0x33FF66"; disablenpc "No_Unfair_Start#"+.@w$+"-1"; disablenpc "No_Unfair_Start#"+.@w$+"-2"; - if (strnpcinfo(4) == "turbo_n_1") set $@start_time,gettimetick(0); + if (strnpcinfo(4) == "turbo_n_1") $@start_time = gettimetick(0); end; OnTimer30000: @@ -367,7 +367,7 @@ OnTimer925000: end; OnTimer927000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),"[Everyone will be transported to a Waiting Room.]",bc_map,"0x33FF66"; mapwarp strnpcinfo(4),"turbo_room",71,89; disablenpc "Broadcast#"+.@w$; @@ -393,13 +393,13 @@ OnTimer927000: end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "Master#"+.@w$; end; function RName { - set .@s,(getstrlen(getarg(0)) > 2)?(substr(getarg(0),1,2)):(charat(getarg(0),getstrlen(getarg(0))-1)); - set .@rn$,((compare(strnpcinfo(4),"_e_"+.@s))?"Expert mode":"Normal mode")+" - "+.@s+" person"; + .@s = (getstrlen(getarg(0)) > 2)?(substr(getarg(0),1,2)):(charat(getarg(0),getstrlen(getarg(0))-1)); + .@rn$ = ((compare(strnpcinfo(4),"_e_"+.@s))?"Expert mode":"Normal mode")+" - "+.@s+" person"; return .@rn$; } } @@ -1177,7 +1177,7 @@ turbo_n_1,381,354,0 duplicate(SandTrap#tt_main) #TBT_trap_n1-23 -1,1,1 - script Trap#tt_main -1,{ OnTouch: if (rand(1,3) == 1) { - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); cutin "kafra_03",2; mes "^4d4dffAl De Baran"; mes "Turbo Track"; @@ -1609,7 +1609,7 @@ turbo_n_1,236,3,0 duplicate(WaterTrap#tt_main) flasher#n1-48b -1,3,0 - script snake01#tt_main -1,{ OnTouch: - set .@turbo2,rand(1,7); + .@turbo2 = rand(1,7); if (.@turbo2 < 3) warp strnpcinfo(4),370,292; if (.@turbo2 < 5) warp strnpcinfo(4),295,293; if (.@turbo2 < 7) warp strnpcinfo(4),355,292; @@ -1626,7 +1626,7 @@ turbo_n_1,324,279,0 duplicate(snake01#tt_main) snake01#n1 WARPNPC,1,1 - script snake02#tt_main -1,{ OnTouch: - set .@turbo2,rand(1,8); + .@turbo2 = rand(1,8); if (.@turbo2 < 3) warp strnpcinfo(4),287,256; if (.@turbo2 < 5) warp strnpcinfo(4),303,256; if (.@turbo2 < 7) warp strnpcinfo(4),347,256; @@ -1644,7 +1644,7 @@ turbo_n_1,332,279,0 duplicate(snake02#tt_main) snake02#n1 WARPNPC,1,1 - script snake03#tt_main WARPNPC,1,1,{ OnTouch: - set .@turbo2,rand(1,8); + .@turbo2 = rand(1,8); if (.@turbo2 < 3) warp strnpcinfo(4),279,292; if (.@turbo2 < 5) warp strnpcinfo(4),311,292; if (.@turbo2 < 7) warp strnpcinfo(4),347,256; @@ -1662,7 +1662,7 @@ turbo_n_1,324,270,0 duplicate(snake03#tt_main) snake03#n1 WARPNPC,1,1 - script snake04#tt_main WARPNPC,1,1,{ OnTouch: - set .@turbo2,rand(1,7); + .@turbo2 = rand(1,7); if (.@turbo2 < 3) warp strnpcinfo(4),363,256; if (.@turbo2 < 5) warp strnpcinfo(4),295,293; if (.@turbo2 < 7) warp strnpcinfo(4),355,292; @@ -1687,7 +1687,7 @@ OnReset: OnEnable: if (compare(strnpcinfo(2),"snake")) { setarray .@n, 279,284,279,268,279,260,287,288,287,280,287,264,295,284,295,268,295,260,303,288,303,280,303,264,311,284,311,268,311,260,347,288,347,280,347,264,355,284,355,268,355,260,363,288,363,280,363,264,371,284,371,268,371,260,379,288,379,280,379,264; - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) monster strnpcinfo(4),.@n[.@i],.@n[.@i+1],"Archer Skeleton",1420,1; } else { setarray .@n_1$, "Munak","1610"; @@ -1697,9 +1697,9 @@ OnEnable: setarray .@n_3$, "Yao Jun","1612"; setarray .@n_3, 68,56,26,46; while (.@c < 3) { - for (set .@i, 0; .@i < getarraysize(getd(".@n_"+.@c)); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(getd(".@n_"+.@c)); .@i += 2) monster strnpcinfo(4),getd(".@n_"+.@c+"["+.@i+"]"),getd(".@n_"+.@c+"["+(.@i+1)+"]"),getd(".@n_"+.@c+"$[0]"),atoi(getd(".@n_"+.@c+"$[1]")),1; - set .@c, .@c + 1; + ++.@c; } } @@ -1718,7 +1718,7 @@ turbo_n_1,90,46,0 duplicate(SnakeHunt#tt_main) hunting#n1 HIDDEN_NPC - script cos#tt_main -1,{ OnTouch: - set .@n, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); + .@n = charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); switch (.@n) { case 1: mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Log Bridge course!",bc_map,"0x70DBDB"; @@ -1921,8 +1921,8 @@ turbo_n_1,222,65,0 duplicate(TurboHint_4#tt_main) #n1NoWayOut7 -1,1,1 - script cos_end#tt_main -1,{ function GetNumber; OnTouch: - set .@w$,callfunc("F_tt"); - if (.@w$ == "n1") set $@end_time,gettimetick(0); + .@w$ = callfunc("F_tt"); + if (.@w$ == "n1") $@end_time = gettimetick(0); mapannounce strnpcinfo(4),strcharinfo(0) +" has just arrived at the Finish Line! Congratulations!",bc_map,"0xFFFF00"; if (.@w$ != "n1") { setd "$ttnames$["+GetNumber(.@w$)+"]",strcharinfo(0); @@ -1940,7 +1940,7 @@ OnTouch: } else { if (.@w$ == "e8" || .@w$ == "n8") setarray .@pts, 28951,50; if (.@w$ == "e16" || .@w$ == "n16") setarray .@pts, 28941,60; - if (tt_point < .@pts[0]) set tt_point,tt_point+.@pts[1]; + if (tt_point < .@pts[0]) tt_point += .@pts[1]; warp strnpcinfo(4),384,161; enablenpc "Winner Helper#TBT_"+.@w$; enablenpc "#cos_"+.@w$+"_end2"; @@ -1950,14 +1950,14 @@ OnTouch: function GetNumber { setarray .@w_n$[1], "n4","n8","n16","e4","e8","e16"; - for (set .@i, 1; .@i <= getarraysize(.@w_n$); set .@i, .@i + 1) { + for (.@i = 1; .@i <= getarraysize(.@w_n$); ++.@i) { if (getarg(0) == .@w_n$[.@i]) return .@i; } } OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "#cos_"+.@w$+"_end"; end; } @@ -1971,18 +1971,18 @@ turbo_n_1,371,47,0 duplicate(cos_end#tt_main) #cos_n1_end WARPNPC,1,1 - script cos_end2#tt_main WARPNPC,1,1,{ OnTouch: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),strcharinfo(0) +" is second to reach the Finish Line! Congratulations!",bc_map,"0xFFFF00"; if (.@w$ == "e8" || .@w$ == "n8") setarray .@pts, 28961,40; if (.@w$ == "e16" || .@w$ == "n16") setarray .@pts, 28951,50; - if (tt_points < .@pts[0]) set tt_point,tt_point+.@pts[1]; + if (tt_points < .@pts[0]) tt_point += .@pts[1]; warp "turbo_room",72,89; disablenpc "#cos_"+.@w$+"_end2"; enablenpc "#cos_"+.@w$+"_end3"; end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "#cos_"+.@w$+"_end2"; end; } @@ -1993,11 +1993,11 @@ turbo_n_16,371,51,0 duplicate(cos_end2#tt_main) #cos_n16_end2 WARPNPC,1,1 - script cos_end3#tt_main -1,{ OnTouch: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),"" + strcharinfo(0) +" is third to reach the Finish Line! Congratulations!",bc_map,"0xFFFF00"; if (.@w$ == "e8" || .@w$ == "n8") setarray .@pts, 28971,30; if (.@w$ == "e16" || .@w$ == "n16") setarray .@pts, 28951,50; - if (tt_point < .@pts[0]) set tt_point,tt_point+.@pts[1]; + if (tt_point < .@pts[0]) tt_point += .@pts[1]; warp "turbo_room",72,89; donpcevent "Winner Helper#TBT_"+.@w$+"::OnEnable"; donpcevent "Master#"+.@w$+"::OnDisable"; @@ -2006,7 +2006,7 @@ OnTouch: end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "#cos_"+.@w$+"_end3"; end; } @@ -2017,7 +2017,7 @@ turbo_n_16,371,43,0 duplicate(cos_end3#tt_main) #cos_n16_end3 WARPNPC,1,1 turbo_e_4,316,365,0 script DSwitch#tt_main -1,1,1,{ OnTouch: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (rand(1,2) == 1) enablenpc "Flasher_Exit_1#"+.@w$; else @@ -2040,7 +2040,7 @@ OnTouch: end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc strnpcinfo(0); end; } @@ -2064,13 +2064,13 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 if (tt_rank < 29999) { mes "[Guide]"; mes "Congratulations!"; - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) { if (tt_point < 28961) { mes "As the winner, your reward"; mes "is 40 Turbo Track Points~"; - set tt_point,tt_point+40; - set my_point,tt_point; + tt_point += 40; + my_point = tt_point; mes "You now have a total of"; mes tt_point + " Turbo Track points,"; mes strcharinfo(0) +"."; @@ -2090,7 +2090,7 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 mes "any points if you exceed the"; mes "point limit. You now have a total of " + my_point + " Turbo Track points."; } - set tt_rank,tt_rank+1; + ++tt_rank; next; if (tt_rank > $ttranks[1]) { setarray $ttranks[0],$ttranks[0],tt_rank,$ttranks[1],$ttranks[2],$ttranks[3],$ttranks[4]; @@ -2103,13 +2103,13 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 donpcevent "Turbo Track Guide::OnNew_Top1"; if (tt_rank == 29999) { if ($ttnames$[7] == "Breezy Havana") { - set $ttnames$[7],strcharinfo(0); + $ttnames$[7] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; } else if ($ttnames$[8] == "RS125") { - set $ttnames$[8],strcharinfo(0); + $ttnames$[8] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; if (compare(.@w$,"4")) announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; @@ -2127,13 +2127,13 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 donpcevent "Turbo Track Guide::OnNew_Top2"; if (tt_rank == 29999) { if ($ttnames$[7] == "Breezy Havana") { - set $ttnames$[7],strcharinfo(0); + $ttnames$[7] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; } else if ($ttnames$[8] == "RS125") { - set $ttnames$[8],strcharinfo(0); + $ttnames$[8] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; @@ -2151,13 +2151,13 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 donpcevent "Turbo Track Guide::OnNew_Top3"; if (tt_rank == 29999) { if ($ttnames$[7] == "Breezy Havana") { - set $ttnames$[7],strcharinfo(0); + $ttnames$[7] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; } else if ($ttnames$[8] == "RS125") { - set $ttnames$[8],strcharinfo(0); + $ttnames$[8] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; @@ -2175,13 +2175,13 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 donpcevent "Turbo Track Guide::OnNew_Top4"; if (tt_rank == 29999) { if ($ttnames$[7] == "Breezy Havana") { - set $ttnames$[7],strcharinfo(0); + $ttnames$[7] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; } else if ($ttnames$[8] == "RS125") { - set $ttnames$[8],strcharinfo(0); + $ttnames$[8] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; @@ -2199,13 +2199,13 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 donpcevent "Turbo Track Guide::OnNew_Top5"; if (tt_rank == 29999) { if ($ttnames$[7] == "Breezy Havana") { - set $ttnames$[7],strcharinfo(0); + $ttnames$[7] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce "" + strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; } else if ($ttnames$[8] == "RS125") { - set $ttnames$[8],strcharinfo(0); + $ttnames$[8] = strcharinfo(0); mes "You've secured your place in"; mes "the Turbo Track Hall of Honor!"; announce strcharinfo(0) + " has joined the Turbo Track Hall of Honor!",bc_all,"FF0000"; @@ -2250,7 +2250,7 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 mes "Right, your reward..."; if (tt_point < 28961) { mes "40 Turbo Track Points!"; - set tt_point,tt_point+40; + tt_point += 40; mes "You now have a total of"; mes tt_point +" Turbo Track Points."; } @@ -2265,7 +2265,7 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 mes "Oh, I'm sorry! You're"; mes "here so that I can tell you"; mes "how many Turbo Track Points"; - set my_point,tt_point; + my_point = tt_point; mes "you have, right? You've got a total of " + my_point + " Turbo Track Points, "+ strcharinfo(0) +"."; } next; @@ -2291,7 +2291,7 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 mes "Right, your reward..."; if (tt_point < 28961) { mes "40 Turbo Track Points!"; - set tt_point,tt_point+40; + tt_point += 40; mes "You now have a total of"; mes tt_point +" Turbo Track Points."; } @@ -2303,7 +2303,7 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 } } else { mes "Oh right, your current"; - set my_point,tt_point; + my_point = tt_point; mes "Turbo Track Point total!"; mes "You've got a total of"; mes my_point + " Turbo Track points,"; @@ -2332,8 +2332,8 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 mes "Right, your reward..."; mes "40 Turbo Track Points!"; if (tt_point < 28961) { - set tt_point,tt_point+40; - set my_point,tt_point; + tt_point += 40; + my_point = tt_point; mes "You now have a total of"; mes tt_point +" Turbo Track Points."; } @@ -2363,13 +2363,13 @@ turbo_n_1,114,190,0 duplicate(Flasher#tt_main) Flasher_Exit_2#n1 WARPNPC,1,1 } OnEnable: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Winner Helper#TBT_"+.@w$; initnpctimer; end; OnTimer4000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),"This is the ending broadcast for Turbo Track "+RName(.@w$)+".",bc_map,"0x33FF66"; end; @@ -2382,12 +2382,12 @@ OnTimer12000: end; OnTimer16000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Players in the arena must be ready to leave through the Warp Portal.",bc_map,"0x33FF66"; end; OnTimer20000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"In the meantime, winners must proceed to receive their rewards as soon as possible.",bc_map,"0x33FF66"; else @@ -2395,41 +2395,41 @@ OnTimer20000: end; OnTimer24000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Thank you for visiting Al De Baran Turbo Track.",bc_map,"0x33FF66"; end; OnTimer25000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"In the meantime, winners must procceed to receive their rewards as soon as possible.",bc_map,"0x33FF66"; end; OnTimer28000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Al De Baran Turbo Track is brought to you by...",bc_map,"0x33FF66"; end; OnTimer30000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"Thank you for visiting Al De Baran Turbo Track.",bc_map,"0x33FF66"; OnTimer32000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"[Al De Baran Kafra Corporation Headquarters]",bc_map,"0x33FF66"; end; OnTimer35000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"Al De Baran Turbo Track is brought to you by...",bc_map,"0x33FF66"; end; OnTimer36000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"[Al De Baran Guild Castle Management Luina]",bc_map,"0x33FF66"; end; OnTimer40000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"[Blacksmith Union]",bc_map,"0x33FF66"; else @@ -2437,42 +2437,42 @@ OnTimer40000: end; OnTimer44000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"And [Comodo Casino].",bc_map,"0x33FF66"; end; OnTimer45000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"[Al De Baran Guild Castle Management Luina]",bc_map,"0x33FF66"; end; OnTimer48000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Once again, we'd like to thank our sponsors.",bc_map,"0x33FF66"; end; OnTimer50000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"[Blacksmith Union]",bc_map,"0x33FF66"; end; OnTimer52000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapannounce strnpcinfo(4),"Have a good day.",bc_map,"0x33FF66"; end; OnTimer55000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"And [Comodo Casino].",bc_map,"0x33FF66"; end; OnTimer58000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) mapwarp strnpcinfo(4),"turbo_room",72,89; end; OnTimer60000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (compare(.@w$,"4")) { enablenpc "Notice_Maker1#TBT_"+.@w$; enablenpc "Notice_Maker3#TBT_"+.@w$; @@ -2494,17 +2494,17 @@ OnTimer60000: end; OnTimer65000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapannounce strnpcinfo(4),"Have a good day.",bc_map,"0x33FF66"; end; OnTimer70000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) mapwarp strnpcinfo(4),"turbo_room",72,89; end; OnTimer71000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); if (!compare(.@w$,"4")) { disablenpc "Winner Helper#TBT_"+.@w$; enablenpc "#cos_"+.@w$+"_end"; @@ -2527,13 +2527,13 @@ OnTimer71000: end; function RName { - set .@s,(getstrlen(getarg(0)) > 2)?(substr(getarg(0),1,2)):(charat(getarg(0),getstrlen(getarg(0))-1)); - set .@rn$,((compare(strnpcinfo(4),"_e_"+.@s))?"Expert mode":"Normal mode")+" - "+.@s+" person"; + .@s = (getstrlen(getarg(0)) > 2)?(substr(getarg(0),1,2)):(charat(getarg(0),getstrlen(getarg(0))-1)); + .@rn$ = ((compare(strnpcinfo(4),"_e_"+.@s))?"Expert mode":"Normal mode")+" - "+.@s+" person"; return .@rn$; } OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "Winner Helper#TBT_"+.@w$; end; } @@ -2545,19 +2545,19 @@ turbo_n_8,384,167,1 duplicate(WHelper#tt_main) Winner Helper#TBT_n8 1_M_01 turbo_n_16,384,167,1 duplicate(WHelper#tt_main) Winner Helper#TBT_n16 1_M_01 turbo_n_1,384,167,1 script Guide#TBT_n1 1_M_01,{ - set .@hour_start,$@start_time / 10000; - set .@min_start,(($@start_time % 10000) / 100); - set .@sec_start,$@start_time % 100; - set .@hour_end,$@end_time / 10000; - set .@min_end,(($@end_time % 10000) / 100); - set .@sec_end,$@end_time % 100; - if (hour_start == 23 && hour_end == 0) set .@hour_end,24; - set .@st_to_sec,((.@hour_start * 3600) + (.@min_start * 60) + (.@sec_start)); - set .@et_to_sec,((.@hour_end * 3600) + (.@min_end * 60) + (.@sec_end)); - set .@record_time,(.@et_to_sec - .@st_to_sec); - set .@record_hour,.@record_time / 3600; - set .@record_min,((.@record_time % 3600) / 60); - set .@record_sec,.@record_time % 60; + .@hour_start = $@start_time / 10000; + .@min_start = (($@start_time % 10000) / 100); + .@sec_start = $@start_time % 100; + .@hour_end = $@end_time / 10000; + .@min_end = (($@end_time % 10000) / 100); + .@sec_end = $@end_time % 100; + if (hour_start == 23 && hour_end == 0) .@hour_end = 24; + .@st_to_sec = ((.@hour_start * 3600) + (.@min_start * 60) + (.@sec_start)); + .@et_to_sec = ((.@hour_end * 3600) + (.@min_end * 60) + (.@sec_end)); + .@record_time = (.@et_to_sec - .@st_to_sec); + .@record_hour = .@record_time / 3600; + .@record_min = ((.@record_time % 3600) / 60); + .@record_sec = .@record_time % 60; if (.@record_min < 0) { mes "[Guide]"; mes "Good work! Maybe you didn't"; @@ -2570,8 +2570,8 @@ turbo_n_1,384,167,1 script Guide#TBT_n1 1_M_01,{ if (tt_point < 28991) { mes "You will be rewarded"; mes "with 10 Turbo Track points~!"; - set tt_point,tt_point+10; - set my_point,tt_point; + tt_point += 10; + my_point = tt_point; mes "You now have a total of"; mes tt_point + " Turbo Track points."; } @@ -2594,9 +2594,9 @@ turbo_n_1,384,167,1 script Guide#TBT_n1 1_M_01,{ end; } else { - set .@topbun,(($ttranks[0] % 3600) / 60 ); - set .@topcho,$ttranks[0] % 60; - set .@gap,$ttranks[0] - .@record_time; + .@topbun = (($ttranks[0] % 3600) / 60 ); + .@topcho = $ttranks[0] % 60; + .@gap = $ttranks[0] - .@record_time; if (.@gap < 0) { mes "[Guide]"; mes "Good work! Maybe you didn't"; @@ -2609,8 +2609,8 @@ turbo_n_1,384,167,1 script Guide#TBT_n1 1_M_01,{ if (tt_point < 28991) { mes "You will be rewarded"; mes "with 10 Turbo Track points~!"; - set tt_point,tt_point+10; - set my_point,tt_point; + tt_point += 10; + my_point = tt_point; mes "You now have a total of"; mes tt_point + " Turbo Track points."; } @@ -2648,7 +2648,7 @@ turbo_n_1,384,167,1 script Guide#TBT_n1 1_M_01,{ mes "a new record, you"; mes "will be rewarded with"; mes "40 Turbo Track Points!"; - set tt_point,tt_point+40; + tt_point += 40; mes "You now have a total of"; mes tt_point + " Turbo Track points."; } @@ -2674,7 +2674,7 @@ turbo_n_1,384,167,1 script Guide#TBT_n1 1_M_01,{ } OnEnable: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Guide#TBT_"+.@w$; initnpctimer; end; @@ -2736,7 +2736,7 @@ OnTimer56000: end; OnTimer60000: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "Guide#TBT_"+.@w$; enablenpc "#cos_"+.@w$+"_end"; enablenpc "Notice_Maker1#TBT_"+.@w$; @@ -2754,21 +2754,21 @@ OnTimer60000: end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "Guide#TBT_"+.@w$; end; } - script NMaker1#tt_main -1,{ OnTouch: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),strcharinfo(0) +" is now entering the Small Cave! " + strcharinfo(0) +" is now in the lead!",bc_map,"0xFFFF00"; donpcevent "Turbo Track Guide::OnEnd_"+.@w$; disablenpc "Notice_Maker1#TBT_"+.@w$; end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Notice_Maker1#TBT_"+.@w$; end; } @@ -2782,13 +2782,13 @@ turbo_n_1,11,91,0 duplicate(NMaker1#tt_main) Notice_Maker1#TBT_n1 -1,3,3 - script NMaker3#tt_main -1,{ OnTouch: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),strcharinfo(0) +" is now entering the Single Snail! " + strcharinfo(0) +" is now in the lead!",bc_map,"0xFFFF00"; disablenpc "Notice_Maker3#TBT_"+.@w$; end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Notice_Maker3#TBT_"+.@w$; end; } @@ -2802,13 +2802,13 @@ turbo_n_1,234,223,0 duplicate(NMaker3#tt_main) Notice_Maker3#TBT_n1 -1,3,3 - script NMaker4#tt_main -1,{ OnTouch: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); mapannounce strnpcinfo(4),strcharinfo(0) +" is currently in First Place!",bc_map,"0xFFFF00"; disablenpc "Notice_Maker4#TBT_"+.@w$; end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); enablenpc "Notice_Maker4#TBT_"+.@w$; end; @@ -2887,7 +2887,7 @@ turbo_n_1,253,364,0 duplicate(warp#tt_main) Warp#n1_7 -1,2,2 end; OnTouch: specialeffect EF_BLASTMINEBOMB; - set .@HitTrap,10; + .@HitTrap = 10; if (.@HitTrap > 0 && .@HitTrap < 4) percentheal -1,0; else if (.@HitTrap > 4 && .@HitTrap < 8) @@ -3524,7 +3524,7 @@ turbo_n_1,368,36,0 duplicate(TurboTrap#tt_main) trap_n1#F95 HIDDEN_WARP_NPC,1,1 end; OnTouch: specialeffect EF_FREEZING; - set .@HitTrap,10; + .@HitTrap = 10; if (.@HitTrap > 0 && .@HitTrap < 4) percentheal -1,0; else if (.@HitTrap > 4 && .@HitTrap < 8) { @@ -3589,8 +3589,8 @@ turbo_n_1,340,55,0 duplicate(TurboTrap_2#tt_main) trap_n1#F48 HIDDEN_WARP_NPC,1, - script bing_1#tt_main -1,{ end; OnTouch: - set .@w$,callfunc("F_tt"); - set .@bing1,rand(1,10); + .@w$ = callfunc("F_tt"); + .@bing1 = rand(1,10); if (.@bing1 > 0 && .@bing1 < 4) warp strnpcinfo(4),217,232; else if (.@bing1 == 6) @@ -3627,7 +3627,7 @@ OnTouch: end; OnInit: - set .@w$,callfunc("F_tt"); + .@w$ = callfunc("F_tt"); disablenpc "bing2#"+.@w$; end; } @@ -3735,7 +3735,7 @@ turbo_room,99,120,4 script Turbo Track Guide 4_F_TELEPORTER,{ mes "game mode. Would you like to"; mes "learn more about a certain course?"; next; - set .@exitloop,1; + .@exitloop = 1; while (.@exitloop) { switch(select("Log Bridge and Cube Hills:Cursed Desert and Flasher Maze:Single Snail and Invisible Maze:Snake Dice and Small Cave:No, thanks.")) { case 1: @@ -3809,7 +3809,7 @@ turbo_room,99,120,4 script Turbo Track Guide 4_F_TELEPORTER,{ mes "best of luck to"; mes "you in the races!"; next; - set .@exitloop,0; + .@exitloop = 0; } } mes "[Turbo Track Guide]"; @@ -4123,7 +4123,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ close; } else { - set .@total_point,10 * .@input; + .@total_point = 10 * .@input; if (.@total_point > tt_point) { mes "[Item Exchange Helper]"; mes "I'm sorry, but you do"; @@ -4134,7 +4134,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ mes "redeeming your points again."; close; } - set tt_point,tt_point-.@total_point; + tt_point -= .@total_point; getitem 7060,.@input; //Warp_Free_Ticket mes "[Item Exchange Helper]"; mes "Thank you for"; @@ -4152,40 +4152,40 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ next; switch(select("Earth Spike:Cold Bolt:Fire Bolt:Lightning Bolt:Soul Strike:Fire Ball:Fire Wall:Frost Diver:Heal")) { case 1: - set .@scroll,687; //Earth_Scroll_1_5 - set .@name$,"Earth Spike"; + .@scroll = 687; //Earth_Scroll_1_5 + .@name$ = "Earth Spike"; break; case 2: - set .@scroll,689; //Cold_Scroll_1_5 - set .@name$,"Cold Boltl"; + .@scroll = 689; //Cold_Scroll_1_5 + .@name$ = "Cold Boltl"; break; case 3: - set .@scroll,691; //Fire_Scroll_1_5 - set .@name$,"Fire Bolt"; + .@scroll = 691; //Fire_Scroll_1_5 + .@name$ = "Fire Bolt"; break; case 4: - set .@scroll,693; //Wind_Scroll_1_5 - set .@name$,"Lightning Bolt"; + .@scroll = 693; //Wind_Scroll_1_5 + .@name$ = "Lightning Bolt"; break; case 5: - set .@scroll,695; //Ghost_Scroll_1_5 - set .@name$,"Soul Strike"; + .@scroll = 695; //Ghost_Scroll_1_5 + .@name$ = "Soul Strike"; break; case 6: - set .@scroll,697; //Fire_Scroll_2_5 - set .@name$,"Fire Ball"; + .@scroll = 697; //Fire_Scroll_2_5 + .@name$ = "Fire Ball"; break; case 7: - set .@scroll,699; //Fire_Scroll_3_5 - set .@name$,"Fire Wall"; + .@scroll = 699; //Fire_Scroll_3_5 + .@name$ = "Fire Wall"; break; case 8: - set .@scroll,12000; //Cold_Scroll_2_5 - set .@name$,"Frost Diver"; + .@scroll = 12000; //Cold_Scroll_2_5 + .@name$ = "Frost Diver"; break; case 9: - set .@scroll,12002; //Holy_Scroll_1_5 - set .@name$,"Heal"; + .@scroll = 12002; //Holy_Scroll_1_5 + .@name$ = "Heal"; break; } mes "[Item Exchange Helper]"; @@ -4211,7 +4211,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ close; } else { - set .@total_point,12 * .@input; + .@total_point = 12 * .@input; if (.@total_point > tt_point) { mes "[Item Exchange Helper]"; mes "I'm sorry, but you do"; @@ -4222,7 +4222,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ mes "redeeming your points again."; close; } - set tt_point,tt_point-.@total_point; + tt_point -= .@total_point; getitem .@scroll,.@input; mes "[Item Exchange Helper]"; mes "Thank you for"; @@ -4253,7 +4253,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ close; } - set tt_point,tt_point-40; + tt_point -= 40; if (BaseLevel < 70) getexp 3000,0; else if (BaseLevel < 80) getexp 9000,0; else if (BaseLevel < 90) getexp 10000,0; @@ -4296,7 +4296,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ close; } else { - set .@total_point,150 * .@input; + .@total_point = 150 * .@input; if (.@total_point > tt_point) { mes "[Item Exchange Helper]"; mes "I'm sorry, but you do"; @@ -4307,7 +4307,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ mes "redeeming your points again."; close; } - set tt_point,tt_point-.@total_point; + tt_point -= .@total_point; getitem 732,.@input; //Crystal_Jewel__ mes "[Item Exchange Helper]"; mes "Thank you for"; @@ -4343,7 +4343,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ close; } else { - set .@total_point,300 * .@input; + .@total_point = 300 * .@input; if (.@total_point > tt_point) { mes "[Item Exchange Helper]"; mes "I'm sorry, but you do"; @@ -4354,7 +4354,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ mes "redeeming your points again."; close; } - set tt_point,tt_point-.@total_point; + tt_point -= .@total_point; getitem 644,.@input; //Gift_Box mes "[Item Exchange Helper]"; mes "Thank you for"; @@ -4390,7 +4390,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ close; } else { - set .@total_point,400 * .@input; + .@total_point = 400 * .@input; if (.@total_point > tt_point) { mes "[Item Exchange Helper]"; mes "I'm sorry, but you do"; @@ -4401,7 +4401,7 @@ turbo_room,93,117,5 script Point Exchange Helper 4_M_TELEPORTER,{ mes "redeeming your points again."; close; } - set tt_point,tt_point-.@total_point; + tt_point -= .@total_point; getitem 12016,.@input; //Speed_Up_Potion mes "[Item Exchange Helper]"; mes "Thank you for"; @@ -4503,10 +4503,10 @@ turbo_room,106,117,3 script Point Manager#tt 4_M_ZONDAOYAJI,{ close; } else { - set .@want_point1,10 * .@input; - set .@want_point,5 * .@input; - set .@my_turbo_all,tt_point+.@want_point; - set .@my_arena_all,arena_point-.@want_point1; + .@want_point1 = 10 * .@input; + .@want_point = 5 * .@input; + .@my_turbo_all = tt_point+.@want_point; + .@my_arena_all = arena_point-.@want_point1; if (.@my_turbo_all > 28999) { mes "[Turbo Track Point Manager]"; mes "Unfortunately, your Turbo Track Points will exceed the maximum limit if we proceed with point conversion. Please spend more"; @@ -4529,8 +4529,8 @@ turbo_room,106,117,3 script Point Manager#tt 4_M_ZONDAOYAJI,{ mes "A total of " + .@want_point1 + " Arena Points"; mes "has been converted into"; mes "" + .@want_point +" Turbo Track Points."; - set arena_point,.@my_arena_all; //arena_point - set tt_point,.@my_turbo_all; + arena_point = .@my_arena_all; //arena_point + tt_point = .@my_turbo_all; next; mes "[Turbo Track Point Manager]"; mes "" + strcharinfo(0) + ","; @@ -4569,8 +4569,8 @@ S_ExchangePoints: mes "2 Arena Points"; mes "have been converted"; mes "into 1 Turbo Track Point."; - set arena_point,arena_point-getarg(1); - set tt_point,tt_point+getarg(2); + arena_point -= getarg(1); + tt_point += getarg(2); next; mes "[Turbo Track Point Manager]"; mes "" + strcharinfo(0) + ","; @@ -4600,10 +4600,10 @@ OnTouch: mes "things using the Kafra Service.^000000"; close; } - if ((BaseJob == Job_Knight || BaseJob == Job_Crusader) && checkriding()) { + if ((BaseJob == Job_Knight || BaseJob == Job_Crusader) && checkmount()) { if (MaxWeight-Weight < 20000) { if (!(eaclass()&EAJL_THIRD)) { - set .@mount$,(BaseJob == Job_Knight)?"Peco Peco":"Grand Peco"; + .@mount$ = (BaseJob == Job_Knight) ? "Peco Peco" : "Grand Peco"; mes "[Helper]"; mes .@mount$+"s are prohibited"; mes "in the Turbo Track Arena."; @@ -4612,7 +4612,7 @@ OnTouch: mes "a Free Ticket for Peco Ride"; mes "for retrieving your "+.@mount$+"."; } else { - set .@mount$,(BaseJob == Job_Knight)?"Dragon":"Gryphon"; + .@mount$ = (BaseJob == Job_Knight) ? "Dragon" : "Gryphon"; mes "[Helper]"; mes .@mount$+"s are prohibited"; mes "in the Turbo Track Arena."; @@ -4625,14 +4625,9 @@ OnTouch: end; } else { if (!(eaclass()&EAJL_THIRD)) { - setriding 0; - getitem 7310,1; //Free_Peco_Ticket - } else { - if (BaseJob == Job_Knight) - setdragon 0; - else - setriding 0; + getitem Free_Peco_Ticket, 1; } + setmount(MOUNT_NONE); warp "turbo_room",100,65; } } else if ((Class == Job_Ranger || Class == Job_Ranger_T || Class == Job_Baby_Ranger) && checkoption(Option_Wugrider)) { @@ -4648,7 +4643,7 @@ OnTouch: setoption Option_Wugrider,0; warp "turbo_room",100,65; } - } else if ((Class == Job_Mechanic || Class == Job_Mechanic_T || Class == Job_Baby_Mechanic) && checkmadogear()) { + } else if ((Class == Job_Mechanic || Class == Job_Mechanic_T || Class == Job_Baby_Mechanic) && checkmount()) { if (MaxWeight-Weight < 20000) { mes "[Helper]"; mes "Magic Gears are prohibited"; @@ -4660,7 +4655,7 @@ OnTouch: warp "alde_gld",183,199; end; } else { - setmadogear 0; + setmount(MOUNT_NONE); warp "turbo_room",100,65; } } else @@ -4689,9 +4684,9 @@ alde_gld,186,199,3 script Turbo Track Guide#Entran 4_F_RACING,{ } - script ::MountManager_turbo -1,{ - set .@n$, "["+strnpcinfo(1)+"]"; + .@n$ = "["+strnpcinfo(1)+"]"; mes .@n$; - if (ismounting()) { + if (hascashmount()) { mes "Please get off of that creature you're riding on."; mes "Then talk to me again."; close; @@ -4699,39 +4694,27 @@ alde_gld,186,199,3 script Turbo Track Guide#Entran 4_F_RACING,{ if (BaseJob == Job_Knight || BaseJob == Job_Crusader) { if (!(eaclass()&EAJL_THIRD)) { if (BaseJob == Job_Knight) { - set .@zeny,2500; - set .@zeny$,"2,500"; - set .@mount$,"Peco Peco"; + .@zeny = 2500; + .@zeny$ = "2,500"; + .@mount$ = "Peco Peco"; } else { - set .@zeny,3500; - set .@zeny$,"3,500"; - set .@mount$,"Grand Peco"; + .@zeny = 3500; + .@zeny$ = "3,500"; + .@mount$ = "Grand Peco"; } - set .@skill,63; - set .@skill$,"Peco Peco Ride"; - set .@riding, checkriding(); - set .@i,1; } else { if (BaseJob == Job_Knight) { - set .@mount$,"Dragon"; - set .@skill,63; - set .@skill$,"Dragon Training"; - set .@riding, checkdragon(); - set .@i,2; + .@mount$ = "Dragon"; } else { - set .@mount$,"Gryphon"; - set .@skill,63; - set .@skill$,"Peco Peco Ride"; - set .@riding, checkriding(); - set .@i,1; + .@mount$ = "Gryphon"; } } + .@skill = KN_RIDING; + .@skill$ = "Peco Peco Ride"; } else if (Class == Job_Mechanic || Class == Job_Mechanic_T || Class == Job_Baby_Mechanic) { - set .@mount$,"Magic Gear"; - set .@skill,2255; - set .@skill$,"Magic Gear License"; - set .@riding, checkmadogear(); - set .@i,3; + .@mount$ = "Magic Gear"; + .@skill = NC_MADOLICENCE; + .@skill$ = "Magic Gear License"; } else { mes "Thank you for"; mes "visiting Al De Baran's"; @@ -4757,7 +4740,7 @@ alde_gld,186,199,3 script Turbo Track Guide#Entran 4_F_RACING,{ mes "the "+.@skill$+" skill first."; close; } else { - if (.@riding) { + if (checkmount()) { mes .@n$; mes "You're already"; mes "mounted on a"; @@ -4766,7 +4749,7 @@ alde_gld,186,199,3 script Turbo Track Guide#Entran 4_F_RACING,{ close; } else { if (.@zeny) { - if (countitem(7310) < 1 && Zeny < .@zeny) { + if (countitem(Free_Peco_Ticket) < 1 && Zeny < .@zeny) { mes .@n$; mes "I'm sorry, but you"; mes "don't have a Free Ticket"; @@ -4774,17 +4757,13 @@ alde_gld,186,199,3 script Turbo Track Guide#Entran 4_F_RACING,{ mes "to use the Peco rental service."; close; } else { - if (countitem(7310) > 0) - delitem 7310,1; //Free_Peco_Ticket + if (countitem(Free_Peco_Ticket) > 0) + delitem Free_Peco_Ticket, 1; else Zeny -= .@zeny; } } - switch(.@i) { - case 1: setriding; break; - case 2: setdragon; break; - case 3: setmadogear; break; - } + setmount; mes .@n$; mes "Thank you for"; mes "your patronage~"; |