diff options
| author | Haru <haru@dotalux.com> | 2014-10-26 02:06:46 +0100 |
|---|---|---|
| committer | Haru <haru@dotalux.com> | 2014-11-02 01:36:50 +0100 |
| commit | bf4b0a281207e46a9b21a9c9f779aeafaa739b62 (patch) | |
| tree | 0230ee95510255548ebb7f4080460b466c9e2ca6 /npc | |
| parent | 6b20c5b6988c889df35b890d93c338f8b87fa430 (diff) | |
| download | hercules-bf4b0a281207e46a9b21a9c9f779aeafaa739b62.tar.gz hercules-bf4b0a281207e46a9b21a9c9f779aeafaa739b62.tar.bz2 hercules-bf4b0a281207e46a9b21a9c9f779aeafaa739b62.tar.xz hercules-bf4b0a281207e46a9b21a9c9f779aeafaa739b62.zip | |
Replaced 'set' with direct assignment where applicable (common folder)
Signed-off-by: Haru <haru@dotalux.com>
Diffstat (limited to 'npc')
163 files changed, 3819 insertions, 3824 deletions
diff --git a/npc/airports/airships.txt b/npc/airports/airships.txt index 389e3c1ac..3eb84f867 100644 --- a/npc/airports/airships.txt +++ b/npc/airports/airships.txt @@ -51,7 +51,7 @@ OnTimer50000: mapannounce "airplane","We will arrive in Einbroch shortly.",bc_map,"0x00ff00"; end; OnTimer60000: - set $@airplanelocation,1; + $@airplanelocation = 1; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; mapannounce "airplane","Welcome to Einbroch. Have a safe trip.",bc_map,"0x00ff00"; @@ -71,7 +71,7 @@ OnTimer130000: mapannounce "airplane","We will arrive in Lighthalzen shortly.",bc_map,"0x70dbdb"; end; OnTimer140000: - set $@airplanelocation,2; + $@airplanelocation = 2; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; mapannounce "airplane","Welcome to Lighthalzen. Have a safe trip.",bc_map,"0x70dbdb"; @@ -91,7 +91,7 @@ OnTimer210000: mapannounce "airplane","We will arrive in Einbroch shortly.",bc_map,"0x00FF00"; end; OnTimer220000: - set $@airplanelocation,1; + $@airplanelocation = 1; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; mapannounce "airplane","Welcome to Einbroch. Have a safe trip.",bc_map,"0x00ff00"; @@ -111,7 +111,7 @@ OnTimer290000: mapannounce "airplane","We will arrive in Juno shortly.",bc_map,"0xff8200"; end; OnTimer300000: - set $@airplanelocation,0; + $@airplanelocation = 0; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; mapannounce "airplane","Welcome to Juno. Have a safe trip.",bc_map,"0xff8200"; @@ -131,7 +131,7 @@ OnTimer370000: mapannounce "airplane","We will arrive in Hugel shortly.",bc_map,"0xca4bf3"; end; OnTimer380000: - set $@airplanelocation,3; + $@airplanelocation = 3; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; mapannounce "airplane","Welcome to Hugel. Have a safe trip.",bc_map,"0xca4bf3"; @@ -151,7 +151,7 @@ OnTimer450000: mapannounce "airplane","We will arrive in Juno shortly.",bc_map,"0xff8200"; end; OnTimer460000: - set $@airplanelocation,0; + $@airplanelocation = 0; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; mapannounce "airplane","Welcome to Juno. Have a safe trip.",bc_map,"0xff8200"; @@ -476,7 +476,7 @@ airplane,50,66,5 script Apple Merchant#airplane 4_M_04,{ next; while (1) { input .@input; - set .@pay, .@input * 15; + .@pay = .@input * 15; if (.@input == 0) { mes "[Fruitz]"; mes "Thanks for stopping"; @@ -690,7 +690,7 @@ OnTimer50000: mapannounce "airplane_01","We will arrive in Izlude shortly.",bc_map,"0x00ff00"; end; OnTimer60000: - set $@airplanelocation2,1; + $@airplanelocation2 = 1; donpcevent "#AirshipWarp-3::OnUnhide"; donpcevent "#AirshipWarp-4::OnUnhide"; mapannounce "airplane_01","Welcome to Izlude. Have a safe trip.",bc_map,"0x00ff00"; @@ -710,7 +710,7 @@ OnTimer130000: mapannounce "airplane_01","We will arrive in Juno shortly.",bc_map,"0x70dbdb"; end; OnTimer140000: - set $@airplanelocation2,2; + $@airplanelocation2 = 2; donpcevent "#AirshipWarp-3::OnUnhide"; donpcevent "#AirshipWarp-4::OnUnhide"; mapannounce "airplane_01","Welcome to Juno. Have a safe trip.",bc_map,"0x70dbdb"; @@ -730,7 +730,7 @@ OnTimer210000: mapannounce "airplane_01","We will arrive in Rachel shortly.",bc_map,"0xFF8200"; end; OnTimer220000: - set $@airplanelocation2,0; + $@airplanelocation2 = 0; donpcevent "#AirshipWarp-3::OnUnhide"; donpcevent "#AirshipWarp-4::OnUnhide"; mapannounce "airplane_01","Welcome to Rachel. Have a safe trip.",bc_map,"0xFF8200"; @@ -743,13 +743,13 @@ OnTimer240000: donpcevent "#AirshipWarp-4::OnHide"; mapannounce "airplane_01","The Airship is now taking off. Our next destination is Izlude.",bc_map,"0x00ff00"; stopnpctimer; - set .moninv, .moninv + 1; + ++.moninv; if (.moninv == 7) { if (rand(1,3) == 3) { donpcevent "Airship#airplane02::OnEnable"; end; } - set .moninv, 0; + .moninv = 0; } initnpctimer; end; @@ -840,7 +840,7 @@ airplane_01,50,66,5 script Apple Merchant#air01 4_M_04,{ next; while (1) { input .@input; - set .@pay, .@input * 15; + .@pay = .@input * 15; if (.@input == 0) { mes "[Meltz]"; mes "Thanks for stopping"; @@ -1129,26 +1129,26 @@ airplane_01,32,61,4 script Nils#ein 1_M_03,1,1,{ 1740, 1440, 1450; - set .@wordtest, rand(7); + .@wordtest = rand(7); next; mes "[Nils]"; mes .@line1_1$[.@wordtest]; mes .@line1_2$[.@wordtest]; mes .@line1_3$[.@wordtest]; - set .@start_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1); + .@start_time = gettime(3)*60*60 + gettime(2)*60 + gettime(1); next; input .@save1$; - set .@end_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1); - set .@total_time, .@end_time - .@start_time; + .@end_time = gettime(3)*60*60 + gettime(2)*60 + gettime(1); + .@total_time = .@end_time - .@start_time; mes "[Nils]"; mes .@line2_1$[.@wordtest]; mes .@line2_2$[.@wordtest]; - set .@start_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1); + .@start_time = gettime(3)*60*60 + gettime(2)*60 + gettime(1); next; input .@save2$; - set .@end_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1); - set .@total_time, .@total_time + (.@start_time - .@end_time); - set .@tasoo, (.@letters[.@wordtest] / .@total_time) * 6; + .@end_time = gettime(3)*60*60 + gettime(2)*60 + gettime(1); + .@total_time = .@total_time + (.@start_time - .@end_time); + .@tasoo = (.@letters[.@wordtest] / .@total_time) * 6; if ((.@save1$ == .@word1$[.@wordtest]) && (.@save2$ == .@word2$[.@wordtest])) { mes "[Nils]"; mes "Your record is ^ff0000" + .@total_time + " seconds^000000 and"; @@ -1171,8 +1171,8 @@ airplane_01,32,61,4 script Nils#ein 1_M_03,1,1,{ mes "However, ^ff0000" + strcharinfo(0) + "^000000,"; mes "you made the new top record"; mes "this time. Congratulations!"; - set $050320_minus1_typing$, strcharinfo(0); - set $050320_ein_typing, .@tasoo; + $050320_minus1_typing$ = strcharinfo(0); + $050320_ein_typing = .@tasoo; close; } else { @@ -1363,11 +1363,11 @@ function script applegamble { } mes "^3355FF*Rolling and rumbling*^000000"; next; - set .@giveapple, .@amount*2; - set .@table1, rand(1,6); - set .@table2, rand(1,6); - set .@tablesub, .@table1 + .@table2; - set .@tabletotal, .@tablesub; + .@giveapple = .@amount*2; + .@table1 = rand(1,6); + .@table2 = rand(1,6); + .@tablesub = .@table1 + .@table2; + .@tabletotal = .@tablesub; mes "["+getarg(0)+"]"; mes "I got a ^0000FF" + .@table1 + "^000000 and a ^0000FF" + .@table2 + "^000000."; mes "That's a total of ^0000FF" + .@tablesub + "^000000."; @@ -1375,15 +1375,15 @@ function script applegamble { next; select("Cast Dice."); mes "^3355FF*Rolling and rumbling*^000000"; - set .@player1, rand(1,6); - set .@player2, rand(1,6); - set .@playersub, .@player1 + .@player2; + .@player1 = rand(1,6); + .@player2 = rand(1,6); + .@playersub = .@player1 + .@player2; if (.@playersub > 9 && .@amount > 39) { - set .@player1, rand(1,6); - set .@player2, rand(1,6); - set .@playersub, .@player1 + .@player2; + .@player1 = rand(1,6); + .@player2 = rand(1,6); + .@playersub = .@player1 + .@player2; } - set .@playertotal, .@playersub; + .@playertotal = .@playersub; next; mes "["+getarg(0)+"]"; mes "^FF0000" + strcharinfo(0) + "^000000, you have ^FF0000" + .@player1 + "^000000 and ^FF0000" + .@player2 + "^000000. The total is ^FF0000" + .@playersub + "^000000 ."; @@ -1400,8 +1400,8 @@ function script applegamble { switch (select("Cast dice.:Cancel.")) { case 1: mes "^3355FF*Rolling and rumbling*^000000"; - set .@player3, rand(1,6); - set .@playertotal, .@playertotal + .@player3; + .@player3 = rand(1,6); + .@playertotal += .@player3; next; mes "["+getarg(0)+"]"; if (.@playertotal > 12) { @@ -1450,8 +1450,8 @@ function script applegamble { } next; mes "^3355FF*Rolling and rumbling*^000000"; - set .@table3, rand(1,6); - set .@tabletotal, .@tabletotal + .@table3; + .@table3 = rand(1,6); + .@tabletotal += .@table3; next; mes "["+getarg(0)+"]"; if (.@tabletotal > 12) { diff --git a/npc/battleground/bg_common.txt b/npc/battleground/bg_common.txt index 81d41513e..abed7c5a0 100644 --- a/npc/battleground/bg_common.txt +++ b/npc/battleground/bg_common.txt @@ -245,21 +245,21 @@ bat_room,148,150,5 script Teleporter#Battlefield 4_F_TELEPORTER,{ close2; getmapxy(.@mapname$,.@x,.@y,1); if (.@mapname$ == "prontera") - set bat_return,1; + bat_return = 1; else if (.@mapname$ == "moc_ruins") - set bat_return,2; + bat_return = 2; else if (.@mapname$ == "aldebaran") - set bat_return,3; + bat_return = 3; else if (.@mapname$ == "geffen") - set bat_return,4; + bat_return = 4; else if (.@mapname$ == "payon") - set bat_return,5; + bat_return = 5; else if (.@mapname$ == "lighthalzen") - set bat_return,6; + bat_return = 6; else if (.@mapname$ == "rachel") - set bat_return,7; + bat_return = 7; else - set bat_return,1; + bat_return = 1; warp "bat_room",154,150; break; case 2: @@ -324,7 +324,7 @@ bat_room,138,144,4 script Repairman#bg 4_M_04,{ // GM Management NPC //============================================================ bat_room,1,151,3 script Switch#batgnd 4_DOG01,{ - set .@i, callfunc("F_GM_NPC",1854,0); + .@i = callfunc("F_GM_NPC",1854,0); if (.@i == -1) { mes "The command has been cancelled."; close; @@ -432,11 +432,11 @@ bat_room,160,150,3 script Erundek 4_M_MANAGER,{ setarray .@Weapons[0],13108,7828,13171,7829,13172,7828,13173,7829,13174,7829; break; } - set .@menu$,""; - for(set .@i,0; .@i<getarraysize(.@Weapons); set .@i,.@i+2) - set .@menu$, .@menu$+getitemname(.@Weapons[.@i])+((.@Weapons[.@i+1]==7828)?"(BB)":"(VB)")+":"; - set .@i, (select(.@menu$)-1)*2; - set .@type$, ((.@Weapons[.@i+1]==7828)?"(BB)":"(VB)"); + .@menu$ = ""; + for (.@i = 0; .@i < getarraysize(.@Weapons); .@i += 2) + .@menu$ += getitemname(.@Weapons[.@i])+((.@Weapons[.@i+1]==7828)?"(BB)":"(VB)")+":"; + .@i = (select(.@menu$)-1)*2; + .@type$ = ((.@Weapons[.@i+1]==7828)?"(BB)":"(VB)"); mes "[Erundek]"; mes "You chose ^3131FF"+getitemname(.@Weapons[.@i])+.@type$+"^000000."; mes "You can exchange for this item with ^FF0000100 "+getitemname(.@Weapons[.@i+1])+"^000000."; @@ -490,7 +490,7 @@ bat_room,160,150,3 script Erundek 4_M_MANAGER,{ mes "You can exchange the Medal of Honors with your Badges according to the job classes, as follows:"; next; setarray .@items[0],2733,500,2720,500,2721,500,2722,500,2723,500,2724,500,2725,500; - set .@menu1$,"Gunslinger:Swordman/Taekwon Master:Thief:Acolyte:Magician:Archer:Merchant"; + .@menu1$ = "Gunslinger:Swordman/Taekwon Master:Thief:Acolyte:Magician:Archer:Merchant"; break; case 4: mes "[Erundek]"; @@ -508,11 +508,11 @@ bat_room,160,150,3 script Erundek 4_M_MANAGER,{ readbook 11010,1; end; } - set .@menu$,""; - if (.@menu1$ != "") set .@menu$, .@menu1$; - else for(set .@i,0; .@i<getarraysize(.@items); set .@i,.@i+2) - set .@menu$, .@menu$+getitemname(.@items[.@i])+":"; - set .@i, (select(.@menu$)-1)*2; + .@menu$ = ""; + if (.@menu1$ != "") .@menu$ = .@menu1$; + else for (.@i = 0; .@i < getarraysize(.@items); .@i += 2) + .@menu$ += getitemname(.@items[.@i])+":"; + .@i = (select(.@menu$)-1)*2; mes "[Erundek]"; mes "You chose ^3131FF"+getitemname(.@items[.@i])+"^000000."; switch(.@items[.@i]) { @@ -543,13 +543,13 @@ bat_room,160,150,3 script Erundek 4_M_MANAGER,{ mes "Remember, Battleground Reward Items are ^FF0000Character Bound^000000. Are you sure you want this item?"; next; } - set .@j, select("Bravery Badge:Valor Badge:Cancel"); + .@j = select("Bravery Badge:Valor Badge:Cancel"); mes "[Erundek]"; if (.@j == 3) { mes "You cancelled the exchange."; break; } - set .@cost, ((.@j==1)?7828:7829); + .@cost = ((.@j==1)?7828:7829); if (countitem(.@cost) >= .@items[.@i+1]) { mes "Thank you for exchanging."; delitem .@cost, .@items[.@i+1]; diff --git a/npc/battleground/flavius/flavius01.txt b/npc/battleground/flavius/flavius01.txt index a02752d52..5fc1de8f5 100644 --- a/npc/battleground/flavius/flavius01.txt +++ b/npc/battleground/flavius/flavius01.txt @@ -26,7 +26,7 @@ OnInit: waitingroom "Battle Station",11,"start#bat_b01::OnReadyCheck",1,0,80; end; OnEnterBG: - set $@FlaviusBG1_id1, waitingroom2bg("bat_b01",10,290,"start#bat_b01::OnGuillaumeQuit",""); + $@FlaviusBG1_id1 = waitingroom2bg("bat_b01",10,290,"start#bat_b01::OnGuillaumeQuit",""); end; } @@ -36,7 +36,7 @@ OnInit: waitingroom "Battle Station",11,"start#bat_b01::OnReadyCheck",1,0,80; end; OnEnterBG: - set $@FlaviusBG1_id2, waitingroom2bg("bat_b01",390,10,"start#bat_b01::OnCroixQuit",""); + $@FlaviusBG1_id2 = waitingroom2bg("bat_b01",390,10,"start#bat_b01::OnCroixQuit",""); end; } @@ -58,11 +58,11 @@ OnStop: OnTimer1000: stopnpctimer; initnpctimer; - set .@chk_bat_a01,getmapusers("bat_b01"); + .@chk_bat_a01 = getmapusers("bat_b01"); if (.@chk_bat_a01 < 1) { - set $@FlaviusBG1, 0; - if( $@FlaviusBG1_id1 ) { bg_destroy $@FlaviusBG1_id1; set $@FlaviusBG1_id1, 0; } - if( $@FlaviusBG1_id2 ) { bg_destroy $@FlaviusBG1_id2; set $@FlaviusBG1_id2, 0; } + $@FlaviusBG1 = 0; + if( $@FlaviusBG1_id1 ) { bg_destroy $@FlaviusBG1_id1; $@FlaviusBG1_id1 = 0; } + if( $@FlaviusBG1_id2 ) { bg_destroy $@FlaviusBG1_id2; $@FlaviusBG1_id2 = 0; } donpcevent "start#bat_b01::OnReadyCheck"; } end; @@ -79,18 +79,18 @@ OnInit: OnReadyCheck: if( $@FlaviusBG1 ) end; - set .@Guillaume, getwaitingroomstate(0,"Lieutenant Ator"); - set .@Croix, getwaitingroomstate(0,"Lieutenant Thelokus"); + .@Guillaume = getwaitingroomstate(0,"Lieutenant Ator"); + .@Croix = getwaitingroomstate(0,"Lieutenant Thelokus"); if( !.@Guillaume && !.@Croix ) { donpcevent "#bat_b01_timer::OnStop"; end; } if( .@Guillaume < 10 || .@Croix < 10 ) end; - set $@FlaviusBG1, 1; - set $@FlaviusBG1_Victory, 0; - set $@Croix_ScoreBG1, 0; - set $@Guill_ScoreBG1, 0; + $@FlaviusBG1 = 1; + $@FlaviusBG1_Victory = 0; + $@Croix_ScoreBG1 = 0; + $@Guill_ScoreBG1 = 0; bg_updatescore "bat_b01",$@Guill_ScoreBG1,$@Croix_ScoreBG1; donpcevent "Lieutenant Ator::OnEnterBG"; @@ -160,14 +160,14 @@ OnMyMobDead: if (mobcount("bat_b01","OBJ#bat_b01_a::OnMyMobDead") < 1) { mapannounce "bat_b01", "Guillaume's Crystal has been destroyed.",bc_map,"0xFFCE00"; if ($@Croix_ScoreBG1 > 0) { - set $@FlaviusBG1_Victory,2; - set $@Croix_ScoreBG1,$@Croix_ScoreBG1+1; + $@FlaviusBG1_Victory = 2; + ++$@Croix_ScoreBG1; enablenpc "Guillaume Vintenar#b01_a"; enablenpc "Croix Vintenar#b01_b"; donpcevent "time#bat_b01::OnStop"; } else { - set $@Croix_ScoreBG1,1; + $@Croix_ScoreBG1 = 1; donpcevent "time#bat_b01::OnEnable"; donpcevent "start#bat_b01::OnReset"; } @@ -193,14 +193,14 @@ OnMyMobDead: if (mobcount("bat_b01","OBJ#bat_b01_b::OnMyMobDead") < 1) { mapannounce "bat_b01", "Croix's Crystal has been destroyed.",bc_map,"0xFFCE00"; if ($@Guill_ScoreBG1 > 0) { - set $@FlaviusBG1_Victory,1; - set $@Guill_ScoreBG1,$@Guill_ScoreBG1+1; + $@FlaviusBG1_Victory = 1; + ++$@Guill_ScoreBG1; enablenpc "Guillaume Vintenar#b01_a"; enablenpc "Croix Vintenar#b01_b"; donpcevent "time#bat_b01::OnStop"; } else { - set $@Guill_ScoreBG1,1; + $@Guill_ScoreBG1 = 1; donpcevent "time#bat_b01::OnEnable"; donpcevent "start#bat_b01::OnReset"; } @@ -392,8 +392,8 @@ OnTouch: bat_b01,10,294,3 script Guillaume Vintenar#b01_a 4_M_RASWORD,{ if ($@FlaviusBG1_id1 == getcharid(4)) { if ($@FlaviusBG1_Victory == 1) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -412,8 +412,8 @@ bat_b01,10,294,3 script Guillaume Vintenar#b01_a 4_M_RASWORD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -444,8 +444,8 @@ OnInit: bat_b01,389,14,3 script Croix Vintenar#b01_b 4_M_RASWORD,{ if ($@FlaviusBG1_id2 == getcharid(4)) { if ($@FlaviusBG1_Victory == 2) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -464,8 +464,8 @@ bat_b01,389,14,3 script Croix Vintenar#b01_b 4_M_RASWORD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+". Don't be sad."; @@ -574,11 +574,11 @@ bat_b01,336,139,3 script Croix Camp#flag30 1_FLAG_EAGLE,{ end; } bat_b01,389,16,3 script Croix Camp#flag31 1_FLAG_EAGLE,{ end; } bat_b01,10,294,3 script Vintenar#bat_b01_aover 4_M_KY_HEAD,{ - set .@A_B_gap,$@Guill_ScoreBG1 - $@Croix_ScoreBG1; + .@A_B_gap = $@Guill_ScoreBG1 - $@Croix_ScoreBG1; if ($@FlaviusBG1_id1 == getcharid(4)) { if (.@A_B_gap > 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -597,8 +597,8 @@ bat_b01,10,294,3 script Vintenar#bat_b01_aover 4_M_KY_HEAD,{ } } else if (.@A_B_gap == 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -617,8 +617,8 @@ bat_b01,10,294,3 script Vintenar#bat_b01_aover 4_M_KY_HEAD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -652,11 +652,11 @@ OnInit: } bat_b01,389,14,3 script Vintenar#bat_b01_bover 4_M_CRU_HEAD,{ - set .@A_B_gap,$@Guill_ScoreBG1 - $@Croix_ScoreBG1; + .@A_B_gap = $@Guill_ScoreBG1 - $@Croix_ScoreBG1; if ($@FlaviusBG1_id2 == getcharid(4)) { if (.@A_B_gap > 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+". Don't be sad."; @@ -675,8 +675,8 @@ bat_b01,389,14,3 script Vintenar#bat_b01_bover 4_M_CRU_HEAD,{ } } else if (.@A_B_gap == 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+". Don't be sad."; @@ -695,8 +695,8 @@ bat_b01,389,14,3 script Vintenar#bat_b01_bover 4_M_CRU_HEAD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -730,7 +730,7 @@ OnInit: } bat_b01,1,10,3 script Release all#b01 4_DOG01,{ - set .@i, callfunc("F_GM_NPC",1854,0); + .@i = callfunc("F_GM_NPC",1854,0); if (.@i == -1) { mes "Cancelled."; close; diff --git a/npc/battleground/flavius/flavius02.txt b/npc/battleground/flavius/flavius02.txt index 79b7b5168..42a0abc42 100644 --- a/npc/battleground/flavius/flavius02.txt +++ b/npc/battleground/flavius/flavius02.txt @@ -27,7 +27,7 @@ OnInit: waitingroom "Battle Station",11,"start#bat_b02::OnReadyCheck",1,0,80; end; OnEnterBG: - set $@FlaviusBG2_id1, waitingroom2bg("bat_b02",10,290,"start#bat_b02::OnGuillaumeQuit",""); + $@FlaviusBG2_id1 = waitingroom2bg("bat_b02",10,290,"start#bat_b02::OnGuillaumeQuit",""); end; } @@ -37,7 +37,7 @@ OnInit: waitingroom "Battle Station",11,"start#bat_b02::OnReadyCheck",1,0,80; end; OnEnterBG: - set $@FlaviusBG2_id2, waitingroom2bg("bat_b02",390,10,"start#bat_b02::OnCroixQuit",""); + $@FlaviusBG2_id2 = waitingroom2bg("bat_b02",390,10,"start#bat_b02::OnCroixQuit",""); end; } @@ -59,11 +59,11 @@ OnStop: OnTimer1000: stopnpctimer; initnpctimer; - set .@chk_bat_a01,getmapusers("bat_b02"); + .@chk_bat_a01 = getmapusers("bat_b02"); if (.@chk_bat_a01 < 1) { - set $@FlaviusBG2, 0; - if( $@FlaviusBG2_id1 ) { bg_destroy $@FlaviusBG2_id1; set $@FlaviusBG2_id1, 0; } - if( $@FlaviusBG2_id2 ) { bg_destroy $@FlaviusBG2_id2; set $@FlaviusBG2_id2, 0; } + $@FlaviusBG2 = 0; + if( $@FlaviusBG2_id1 ) { bg_destroy $@FlaviusBG2_id1; $@FlaviusBG2_id1 = 0; } + if( $@FlaviusBG2_id2 ) { bg_destroy $@FlaviusBG2_id2; $@FlaviusBG2_id2 = 0; } donpcevent "start#bat_b02::OnReadyCheck"; } end; @@ -80,18 +80,18 @@ OnInit: OnReadyCheck: if( $@FlaviusBG2 ) end; - set .@Guillaume, getwaitingroomstate(0,"Lieutenant Huvas"); - set .@Croix, getwaitingroomstate(0,"Lieutenant Yukon"); + .@Guillaume = getwaitingroomstate(0,"Lieutenant Huvas"); + .@Croix = getwaitingroomstate(0,"Lieutenant Yukon"); if( !.@Guillaume && !.@Croix ) { donpcevent "#bat_b02_timer::OnStop"; end; } if( .@Guillaume < 10 || .@Croix < 10 ) end; - set $@FlaviusBG2, 1; - set $@FlaviusBG2_Victory, 0; - set $@Croix_ScoreBG2, 0; - set $@Guill_ScoreBG2, 0; + $@FlaviusBG2 = 1; + $@FlaviusBG2_Victory = 0; + $@Croix_ScoreBG2 = 0; + $@Guill_ScoreBG2 = 0; bg_updatescore "bat_b02",$@Guill_ScoreBG2,$@Croix_ScoreBG2; donpcevent "Lieutenant Huvas::OnEnterBG"; @@ -161,14 +161,14 @@ OnMyMobDead: if (mobcount("bat_b02","OBJ#bat_b02_a::OnMyMobDead") < 1) { mapannounce "bat_b02", "Guillaume's Crystal has been destroyed.",bc_map,"0xFFCE00"; if ($@Croix_ScoreBG2 > 0) { - set $@FlaviusBG2_Victory,2; - set $@Croix_ScoreBG2,$@Croix_ScoreBG2+1; + $@FlaviusBG2_Victory = 2; + $@Croix_ScoreBG2 = $@Croix_ScoreBG2+1; enablenpc "Guillaume Vintenar#b02_a"; enablenpc "Croix Vintenar#b02_b"; donpcevent "time#bat_b02::OnStop"; } else { - set $@Croix_ScoreBG2,1; + $@Croix_ScoreBG2 = 1; donpcevent "time#bat_b02::OnEnable"; donpcevent "start#bat_b02::OnReset"; } @@ -194,14 +194,14 @@ OnMyMobDead: if (mobcount("bat_b02","OBJ#bat_b02_b::OnMyMobDead") < 1) { mapannounce "bat_b02", "Croix's Crystal has been destroyed.",bc_map,"0xFFCE00"; if ($@Guill_ScoreBG2 > 0) { - set $@FlaviusBG2_Victory,1; - set $@Guill_ScoreBG2,$@Guill_ScoreBG2+1; + $@FlaviusBG2_Victory = 1; + ++$@Guill_ScoreBG2; enablenpc "Guillaume Vintenar#b02_a"; enablenpc "Croix Vintenar#b02_b"; donpcevent "time#bat_b02::OnStop"; } else { - set $@Guill_ScoreBG2,1; + $@Guill_ScoreBG2 = 1; donpcevent "time#bat_b02::OnEnable"; donpcevent "start#bat_b02::OnReset"; } @@ -393,8 +393,8 @@ OnTouch: bat_b02,10,294,3 script Guillaume Vintenar#b02_a 4_M_RASWORD,{ if ($@FlaviusBG2_id1 == getcharid(4)) { if ($@FlaviusBG2_Victory == 1) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -413,8 +413,8 @@ bat_b02,10,294,3 script Guillaume Vintenar#b02_a 4_M_RASWORD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -445,8 +445,8 @@ OnInit: bat_b02,389,14,3 script Croix Vintenar#b02_b 4_M_RASWORD,{ if ($@FlaviusBG2_id2 == getcharid(4)) { if ($@FlaviusBG2_Victory == 2) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -465,8 +465,8 @@ bat_b02,389,14,3 script Croix Vintenar#b02_b 4_M_RASWORD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+". Don't be sad."; @@ -575,11 +575,11 @@ bat_b02,336,139,3 script Croix Camp#flag41 1_FLAG_EAGLE,{ end; } bat_b02,389,16,3 script Croix Camp#flag42 1_FLAG_EAGLE,{ end; } bat_b02,10,294,3 script Vintenar#bat_b02_aover 4_M_KY_HEAD,{ - set .@A_B_gap,$@Guill_ScoreBG2 - $@Croix_ScoreBG2; + .@A_B_gap = $@Guill_ScoreBG2 - $@Croix_ScoreBG2; if ($@FlaviusBG2_id1 == getcharid(4)) { if (.@A_B_gap > 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -598,8 +598,8 @@ bat_b02,10,294,3 script Vintenar#bat_b02_aover 4_M_KY_HEAD,{ } } else if (.@A_B_gap == 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -618,8 +618,8 @@ bat_b02,10,294,3 script Vintenar#bat_b02_aover 4_M_KY_HEAD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -653,11 +653,11 @@ OnInit: } bat_b02,389,14,3 script Vintenar#bat_b02_bover 4_M_CRU_HEAD,{ - set .@A_B_gap,$@Guill_ScoreBG2 - $@Croix_ScoreBG2; + .@A_B_gap = $@Guill_ScoreBG2 - $@Croix_ScoreBG2; if ($@FlaviusBG2_id2 == getcharid(4)) { if (.@A_B_gap > 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+". Don't be sad."; @@ -676,8 +676,8 @@ bat_b02,389,14,3 script Vintenar#bat_b02_bover 4_M_CRU_HEAD,{ } } else if (.@A_B_gap == 0) { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+". Don't be sad."; @@ -696,8 +696,8 @@ bat_b02,389,14,3 script Vintenar#bat_b02_bover 4_M_CRU_HEAD,{ } } else { - set .@your_medal,countitem(7829); - set .@medal_gap,500 - .@your_medal; + .@your_medal = countitem(7829); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 8) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -731,7 +731,7 @@ OnInit: } bat_b02,1,10,3 script Release all#b02 4_DOG01,{ - set .@i, callfunc("F_GM_NPC",1854,0); + .@i = callfunc("F_GM_NPC",1854,0); if (.@i == -1) { mes "Cancelled."; close; diff --git a/npc/battleground/kvm/kvm01.txt b/npc/battleground/kvm/kvm01.txt index b4888be88..d5ecdfa31 100644 --- a/npc/battleground/kvm/kvm01.txt +++ b/npc/battleground/kvm/kvm01.txt @@ -27,7 +27,7 @@ OnInit: end; OnEnterBG: - set $@KvM01BG_id1, waitingroom2bg("bat_c01",52,129,"KvM01_BG::OnGuillaumeQuit","KvM01_BG::OnGuillaumeDie"); + $@KvM01BG_id1 = waitingroom2bg("bat_c01",52,129,"KvM01_BG::OnGuillaumeQuit","KvM01_BG::OnGuillaumeDie"); end; } @@ -41,7 +41,7 @@ OnInit: end; OnEnterBG: - set $@KvM01BG_id2, waitingroom2bg("bat_c01",147,55,"KvM01_BG::OnCroixQuit","KvM01_BG::OnCroixDie"); + $@KvM01BG_id2 = waitingroom2bg("bat_c01",147,55,"KvM01_BG::OnCroixQuit","KvM01_BG::OnCroixDie"); end; } @@ -93,7 +93,7 @@ OnDisable: end; OnTouch: - set Bat_Team,1; + Bat_Team = 1; setquest 6025; end; } @@ -114,7 +114,7 @@ OnDisable: end; OnTouch: - set Bat_Team,2; + Bat_Team = 2; setquest 6025; end; } @@ -139,11 +139,10 @@ OnCroixJoin: end; OnGuillaumeQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; + //BG_Delay_Tick = gettimetick(2) + 1200; OnGuillaumeDie: - if( $@KvM01BG == 2 ) - { - set .Guillaume_Count, .Guillaume_Count - 1; + if ($@KvM01BG == 2) { + --.Guillaume_Count; bg_updatescore "bat_c01",.Guillaume_Count,.Croix_Count; if( .Guillaume_Count < 1 ) donpcevent "KvM01_BG::OnCroixWin"; else { @@ -154,11 +153,10 @@ OnGuillaumeDie: end; OnCroixQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; + //BG_Delay_Tick = gettimetick(2) + 1200; OnCroixDie: - if( $@KvM01BG == 2 ) - { - set .Croix_Count, .Croix_Count - 1; + if ($@KvM01BG == 2) { + --.Croix_Count; bg_updatescore "bat_c01",.Guillaume_Count,.Croix_Count; if( .Croix_Count < 1 ) donpcevent "KvM01_BG::OnGuillaumeWin"; else { @@ -171,13 +169,13 @@ OnCroixDie: OnReadyCheck: if( $@KvM01BG ) end; - set .@Guillaume, getwaitingroomstate(0,"KvM01R_Guillaume"); - set .@Croix, getwaitingroomstate(0,"KvM01R_Croix"); + .@Guillaume = getwaitingroomstate(0,"KvM01R_Guillaume"); + .@Croix = getwaitingroomstate(0,"KvM01R_Croix"); if( .@Guillaume < 5 || .@Croix < 5 ) end; - set $@KvM01BG, 1; // Starting + $@KvM01BG = 1; // Starting donpcevent "KvM01R_Croix::OnEnterBG"; donpcevent "KvM01R_Guillaume::OnEnterBG"; donpcevent "KvM01_BG::OnStart"; @@ -186,7 +184,7 @@ OnReadyCheck: OnStart: disablenpc "KVM Officer#KVM01A"; disablenpc "KVM Officer#KVM01B"; - set $@KvM01BG_Victory, 0; + $@KvM01BG_Victory = 0; // Warp Teams bg_warp $@KvM01BG_id1,"bat_c01",53,128; bg_warp $@KvM01BG_id2,"bat_c01",146,55; @@ -239,18 +237,18 @@ OnTimer59000: OnTimer61000: // Team Members - set .Guillaume_Count, bg_get_data($@KvM01BG_id1, 0); - set .Croix_Count, bg_get_data($@KvM01BG_id2, 0); + .Guillaume_Count = bg_get_data($@KvM01BG_id1, 0); + .Croix_Count = bg_get_data($@KvM01BG_id2, 0); if( .Guillaume_Count < 5 || .Croix_Count < 5 ) { - set $@KvM01BG_Victory, 3; - set $@KvM01BG, 3; + $@KvM01BG_Victory = 3; + $@KvM01BG = 3; mapannounce "bat_c01","There are not enough players to start the battle",1,0x696969; stopnpctimer; donpcevent "KvM01_BG::OnStop"; end; } - set $@KvM01BG, 2; // Playing + $@KvM01BG = 2; // Playing bg_warp $@KvM01BG_id1,"bat_c01",61,120; bg_warp $@KvM01BG_id2,"bat_c01",138,63; end; @@ -283,8 +281,8 @@ OnTimer360000: donpcevent "KvM01_BG::OnGuillaumeWin"; else { // Draw Game - set $@KvM01BG, 3; - set $@KvM01BG_Victory, 3; + $@KvM01BG = 3; + $@KvM01BG_Victory = 3; mapannounce "bat_c01", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; mapannounce "bat_c01", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; mapannounce "bat_c01", "This battle has ended in a draw.",bc_map,"0x00ff00"; @@ -293,8 +291,8 @@ OnTimer360000: end; OnGuillaumeWin: - set $@KvM01BG, 3; - set $@KvM01BG_Victory, 1; + $@KvM01BG = 3; + $@KvM01BG_Victory = 1; mapannounce "bat_c01", "Guillaume wins!",bc_map,"0x00ff00"; mapannounce "bat_c01", "Congratulations to Guillaume members.",bc_map,"0x00ff00"; mapannounce "bat_c01", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; @@ -302,8 +300,8 @@ OnGuillaumeWin: end; OnCroixWin: - set $@KvM01BG, 3; - set $@KvM01BG_Victory, 2; + $@KvM01BG = 3; + $@KvM01BG_Victory = 2; mapannounce "bat_c01", "Croix wins!",bc_map,"0x00ff00"; mapannounce "bat_c01", "Congratulations to Croix members.",bc_map,"0x00ff00"; mapannounce "bat_c01", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; @@ -321,17 +319,17 @@ OnStop: end; OnReset: - set .Croix_Count, 0; - set .Guillaume_Count, 0; - set $@KvM01BG_Victory, 0; - if( $@KvM01BG_id1 ) { bg_destroy $@KvM01BG_id1; set $@KvM01BG_id1, 0; } - if( $@KvM01BG_id2 ) { bg_destroy $@KvM01BG_id2; set $@KvM01BG_id2, 0; } + .Croix_Count = 0; + .Guillaume_Count = 0; + $@KvM01BG_Victory = 0; + if( $@KvM01BG_id1 ) { bg_destroy $@KvM01BG_id1; $@KvM01BG_id1 = 0; } + if( $@KvM01BG_id2 ) { bg_destroy $@KvM01BG_id2; $@KvM01BG_id2 = 0; } disablenpc "KVM Officer#KVM01A"; disablenpc "KVM Officer#KVM01B"; mapwarp "bat_c01","bat_room",154,150; maprespawnguildid "bat_c01",0,3; // Just in case someone else bg_updatescore "bat_c01",5,5; - set $@KvM01BG, 0; + $@KvM01BG = 0; donpcevent "KvM01_BG::OnReadyCheck"; // Maybe a game is ready to start end; } @@ -374,14 +372,14 @@ bat_c01,51,130,5 script KVM Officer#KVM01A 4_M_KY_HEAD,{ { if( $@KvM01BG_Victory == Bat_Team ) { // Victory - set kvm_point,kvm_point + 5; + kvm_point += 5; mes "[KVM Officer]"; mes "Good Game."; mes "May the glory of KVM be with you."; mes "You aquire the winning points: 5"; close2; } else { - set kvm_point,kvm_point + 1; + ++kvm_point; mes "[KVM Officer]"; mes "I am so sorry."; mes "I wish you better luck next time."; @@ -389,7 +387,7 @@ bat_c01,51,130,5 script KVM Officer#KVM01A 4_M_KY_HEAD,{ close2; } bg_leave; - set Bat_Team,0; + Bat_Team = 0; warp "bat_room",154,150; end; } @@ -401,14 +399,14 @@ bat_c01,148,53,1 script KVM Officer#KVM01B 4_M_CRU_HEAD,{ { if( $@KvM01BG_Victory == Bat_Team ) { // Victory - set kvm_point,kvm_point + 5; + kvm_point += 5; mes "[KVM Officer]"; mes "Good Game."; mes "May the glory of KVM be with you."; mes "You aquire the winning points: 5"; close2; } else { - set kvm_point,kvm_point + 1; + ++kvm_point; mes "[KVM Officer]"; mes "I am so sorry."; mes "I wish you better luck next time."; @@ -416,7 +414,7 @@ bat_c01,148,53,1 script KVM Officer#KVM01B 4_M_CRU_HEAD,{ close2; } bg_leave; - set Bat_Team,0; + Bat_Team = 0; warp "bat_room",154,150; end; } diff --git a/npc/battleground/kvm/kvm02.txt b/npc/battleground/kvm/kvm02.txt index 06f3a2dcf..bf41528cc 100644 --- a/npc/battleground/kvm/kvm02.txt +++ b/npc/battleground/kvm/kvm02.txt @@ -29,7 +29,7 @@ OnInit: end; OnEnterBG: - set $@KvM02BG_id1, waitingroom2bg("bat_c02",52,129,"KvM02_BG::OnGuillaumeQuit","KvM02_BG::OnGuillaumeDie"); + $@KvM02BG_id1 = waitingroom2bg("bat_c02",52,129,"KvM02_BG::OnGuillaumeQuit","KvM02_BG::OnGuillaumeDie"); end; } @@ -43,7 +43,7 @@ OnInit: end; OnEnterBG: - set $@KvM02BG_id2, waitingroom2bg("bat_c02",147,55,"KvM02_BG::OnCroixQuit","KvM02_BG::OnCroixDie"); + $@KvM02BG_id2 = waitingroom2bg("bat_c02",147,55,"KvM02_BG::OnCroixQuit","KvM02_BG::OnCroixDie"); end; } @@ -95,7 +95,7 @@ OnDisable: end; OnTouch: - set Bat_Team,1; + Bat_Team = 1; setquest 6025; end; } @@ -116,7 +116,7 @@ OnDisable: end; OnTouch: - set Bat_Team,2; + Bat_Team = 2; setquest 6025; end; } @@ -141,11 +141,10 @@ OnCroixJoin: end; OnGuillaumeQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; + //BG_Delay_Tick = gettimetick(2) + 1200; OnGuillaumeDie: - if( $@KvM02BG == 2 ) - { - set .Guillaume_Count, .Guillaume_Count - 1; + if ($@KvM02BG == 2) { + --.Guillaume_Count; bg_updatescore "bat_c02",.Guillaume_Count,.Croix_Count; if( .Guillaume_Count < 1 ) donpcevent "KvM02_BG::OnCroixWin"; else { @@ -156,11 +155,10 @@ OnGuillaumeDie: end; OnCroixQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; + //BG_Delay_Tick = gettimetick(2) + 1200; OnCroixDie: - if( $@KvM02BG == 2 ) - { - set .Croix_Count, .Croix_Count - 1; + if ($@KvM02BG == 2) { + --.Croix_Count; bg_updatescore "bat_c02",.Guillaume_Count,.Croix_Count; if( .Croix_Count < 1 ) donpcevent "KvM02_BG::OnGuillaumeWin"; else { @@ -173,13 +171,13 @@ OnCroixDie: OnReadyCheck: if( $@KvM02BG ) end; - set .@Guillaume, getwaitingroomstate(0,"KvM02R_Guillaume"); - set .@Croix, getwaitingroomstate(0,"KvM02R_Croix"); + .@Guillaume = getwaitingroomstate(0,"KvM02R_Guillaume"); + .@Croix = getwaitingroomstate(0,"KvM02R_Croix"); if( .@Guillaume < 5 || .@Croix < 5 ) end; - set $@KvM02BG, 1; // Starting + $@KvM02BG = 1; // Starting donpcevent "KvM02R_Croix::OnEnterBG"; donpcevent "KvM02R_Guillaume::OnEnterBG"; donpcevent "KvM02_BG::OnStart"; @@ -188,7 +186,7 @@ OnReadyCheck: OnStart: disablenpc "KVM Officer#KVM02A"; disablenpc "KVM Officer#KVM02B"; - set $@KvM02BG_Victory, 0; + $@KvM02BG_Victory = 0; // Warp Teams bg_warp $@KvM02BG_id1,"bat_c02",53,128; bg_warp $@KvM02BG_id2,"bat_c02",146,55; @@ -241,18 +239,18 @@ OnTimer59000: OnTimer61000: // Team Members - set .Guillaume_Count, bg_get_data($@KvM02BG_id1, 0); - set .Croix_Count, bg_get_data($@KvM02BG_id2, 0); + .Guillaume_Count = bg_get_data($@KvM02BG_id1, 0); + .Croix_Count = bg_get_data($@KvM02BG_id2, 0); if( .Guillaume_Count < 5 || .Croix_Count < 5 ) { - set $@KvM02BG_Victory, 3; - set $@KvM02BG, 3; + $@KvM02BG_Victory = 3; + $@KvM02BG = 3; mapannounce "bat_c02","There are not enough players to start the battle",1,0x808080; stopnpctimer; donpcevent "KvM02_BG::OnStop"; end; } - set $@KvM02BG, 2; // Playing + $@KvM02BG = 2; // Playing bg_warp $@KvM02BG_id1,"bat_c02",62,119; bg_warp $@KvM02BG_id2,"bat_c02",137,64; end; @@ -285,8 +283,8 @@ OnTimer360000: donpcevent "KvM02_BG::OnGuillaumeWin"; else { // Draw Game - set $@KvM02BG, 3; - set $@KvM02BG_Victory, 3; + $@KvM02BG = 3; + $@KvM02BG_Victory = 3; mapannounce "bat_c02", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; mapannounce "bat_c02", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; mapannounce "bat_c02", "This battle has ended in a draw.",bc_map,"0x00ff00"; @@ -295,8 +293,8 @@ OnTimer360000: end; OnGuillaumeWin: - set $@KvM02BG, 3; - set $@KvM02BG_Victory, 1; + $@KvM02BG = 3; + $@KvM02BG_Victory = 1; mapannounce "bat_c02", "Guillaume wins!",bc_map,"0x00ff00"; mapannounce "bat_c02", "Congratulations to Guillaume members.",bc_map,"0x00ff00"; mapannounce "bat_c02", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; @@ -304,8 +302,8 @@ OnGuillaumeWin: end; OnCroixWin: - set $@KvM02BG, 3; - set $@KvM02BG_Victory, 2; + $@KvM02BG = 3; + $@KvM02BG_Victory = 2; mapannounce "bat_c02", "Croix wins!",bc_map,"0x00ff00"; mapannounce "bat_c02", "Congratulations to Croix members.",bc_map,"0x00ff00"; mapannounce "bat_c02", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; @@ -323,17 +321,17 @@ OnStop: end; OnReset: - set .Croix_Count, 0; - set .Guillaume_Count, 0; - set $@KvM02BG_Victory, 0; - if( $@KvM02BG_id1 ) { bg_destroy $@KvM02BG_id1; set $@KvM02BG_id1, 0; } - if( $@KvM02BG_id2 ) { bg_destroy $@KvM02BG_id2; set $@KvM02BG_id2, 0; } + .Croix_Count = 0; + .Guillaume_Count = 0; + $@KvM02BG_Victory = 0; + if( $@KvM02BG_id1 ) { bg_destroy $@KvM02BG_id1; $@KvM02BG_id1 = 0; } + if( $@KvM02BG_id2 ) { bg_destroy $@KvM02BG_id2; $@KvM02BG_id2 = 0; } disablenpc "KVM Officer#KVM02A"; disablenpc "KVM Officer#KVM02B"; mapwarp "bat_c02","bat_room",154,150; maprespawnguildid "bat_c02",0,3; // Just in case someone else bg_updatescore "bat_c02",5,5; - set $@KvM02BG, 0; + $@KvM02BG = 0; donpcevent "KvM02_BG::OnReadyCheck"; // Maybe a game is ready to start end; } @@ -376,7 +374,7 @@ bat_c02,51,130,5 script KVM Officer#KVM02A 4_M_KY_HEAD,{ { if( $@KvM02BG_Victory == Bat_Team ) { // Victory - set kvm_point,kvm_point + 1; + ++kvm_point; mes "[KVM Officer]"; mes "Good Game."; mes "May the glory of KVM be with you."; @@ -390,7 +388,7 @@ bat_c02,51,130,5 script KVM Officer#KVM02A 4_M_KY_HEAD,{ close2; } bg_leave; - set Bat_Team,0; + Bat_Team = 0; warp "bat_room",154,150; end; } @@ -402,7 +400,7 @@ bat_c02,148,53,1 script KVM Officer#KVM02B 4_M_CRU_HEAD,{ { if( $@KvM02BG_Victory == Bat_Team ) { // Victory - set kvm_point,kvm_point + 1; + ++kvm_point; mes "[KVM Officer]"; mes "Good Game."; mes "May the glory of KVM be with you."; @@ -416,7 +414,7 @@ bat_c02,148,53,1 script KVM Officer#KVM02B 4_M_CRU_HEAD,{ close2; } bg_leave; - set Bat_Team,0; + Bat_Team = 0; warp "bat_room",154,150; end; } diff --git a/npc/battleground/kvm/kvm03.txt b/npc/battleground/kvm/kvm03.txt index ea7dc3d47..f4bd49d4f 100644 --- a/npc/battleground/kvm/kvm03.txt +++ b/npc/battleground/kvm/kvm03.txt @@ -28,7 +28,7 @@ OnInit: end; OnEnterBG: - set $@KvM03BG_id1, waitingroom2bg("bat_c03",52,129,"KvM03_BG::OnGuillaumeQuit","KvM03_BG::OnGuillaumeDie"); + $@KvM03BG_id1 = waitingroom2bg("bat_c03",52,129,"KvM03_BG::OnGuillaumeQuit","KvM03_BG::OnGuillaumeDie"); end; } @@ -42,7 +42,7 @@ OnInit: end; OnEnterBG: - set $@KvM03BG_id2, waitingroom2bg("bat_c03",147,55,"KvM03_BG::OnCroixQuit","KvM03_BG::OnCroixDie"); + $@KvM03BG_id2 = waitingroom2bg("bat_c03",147,55,"KvM03_BG::OnCroixQuit","KvM03_BG::OnCroixDie"); end; } @@ -94,7 +94,7 @@ OnDisable: end; OnTouch: - set Bat_Team,1; + Bat_Team = 1; setquest 6025; end; } @@ -115,7 +115,7 @@ OnDisable: end; OnTouch: - set Bat_Team,2; + Bat_Team = 2; setquest 6025; end; } @@ -140,11 +140,10 @@ OnCroixJoin: end; OnGuillaumeQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; + //BG_Delay_Tick = gettimetick(2) + 1200; OnGuillaumeDie: - if( $@KvM03BG == 2 ) - { - set .Guillaume_Count, .Guillaume_Count - 1; + if ($@KvM03BG == 2) { + --.Guillaume_Count; bg_updatescore "bat_c03",.Guillaume_Count,.Croix_Count; if( .Guillaume_Count < 1 ) donpcevent "KvM03_BG::OnCroixWin"; else { @@ -155,11 +154,10 @@ OnGuillaumeDie: end; OnCroixQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; + //BG_Delay_Tick = gettimetick(2) + 1200; OnCroixDie: - if( $@KvM03BG == 2 ) - { - set .Croix_Count, .Croix_Count - 1; + if ($@KvM03BG == 2) { + --.Croix_Count; bg_updatescore "bat_c03",.Guillaume_Count,.Croix_Count; if( .Croix_Count < 1 ) donpcevent "KvM03_BG::OnGuillaumeWin"; else { @@ -172,13 +170,13 @@ OnCroixDie: OnReadyCheck: if( $@KvM03BG ) end; - set .@Guillaume, getwaitingroomstate(0,"KvM03R_Guillaume"); - set .@Croix, getwaitingroomstate(0,"KvM03R_Croix"); + .@Guillaume = getwaitingroomstate(0,"KvM03R_Guillaume"); + .@Croix = getwaitingroomstate(0,"KvM03R_Croix"); if( .@Guillaume < 5 || .@Croix < 5 ) end; - set $@KvM03BG, 1; // Starting + $@KvM03BG = 1; // Starting donpcevent "KvM03R_Croix::OnEnterBG"; donpcevent "KvM03R_Guillaume::OnEnterBG"; donpcevent "KvM03_BG::OnStart"; @@ -187,7 +185,7 @@ OnReadyCheck: OnStart: disablenpc "KVM Officer#KVM03A"; disablenpc "KVM Officer#KVM03B"; - set $@KvM01BG_Victory, 0; + $@KvM01BG_Victory = 0; // Warp Teams bg_warp $@KvM03BG_id1,"bat_c03",53,128; bg_warp $@KvM03BG_id2,"bat_c03",146,55; @@ -240,18 +238,18 @@ OnTimer59000: OnTimer61000: // Team Members - set .Guillaume_Count, bg_get_data($@KvM03BG_id1, 0); - set .Croix_Count, bg_get_data($@KvM03BG_id2, 0); + .Guillaume_Count = bg_get_data($@KvM03BG_id1, 0); + .Croix_Count = bg_get_data($@KvM03BG_id2, 0); if( .Guillaume_Count < 5 || .Croix_Count < 5 ) { - set $@KvM03BG_Victory, 3; - set $@KvM03BG, 3; + $@KvM03BG_Victory = 3; + $@KvM03BG = 3; mapannounce "bat_c03","There are not enough players to start the battle",1,0xC0C0C0; stopnpctimer; donpcevent "KvM03_BG::OnStop"; end; } - set $@KvM03BG, 2; // Playing + $@KvM03BG = 2; // Playing bg_warp $@KvM03BG_id1,"bat_c03",62,119; bg_warp $@KvM03BG_id2,"bat_c03",137,64; end; @@ -284,8 +282,8 @@ OnTimer360000: donpcevent "KvM03_BG::OnGuillaumeWin"; else { // Draw Game - set $@KvM03BG, 3; - set $@KvM03BG_Victory, 3; + $@KvM03BG = 3; + $@KvM03BG_Victory = 3; mapannounce "bat_c03", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; mapannounce "bat_c03", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; mapannounce "bat_c03", "This battle has ended in a draw.",bc_map,"0x00ff00"; @@ -294,8 +292,8 @@ OnTimer360000: end; OnGuillaumeWin: - set $@KvM03BG, 3; - set $@KvM03BG_Victory, 1; + $@KvM03BG = 3; + $@KvM03BG_Victory = 1; mapannounce "bat_c03", "Guillaume wins!",bc_map,"0x00ff00"; mapannounce "bat_c03", "Congratulations to Guillaume members.",bc_map,"0x00ff00"; mapannounce "bat_c03", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; @@ -303,8 +301,8 @@ OnGuillaumeWin: end; OnCroixWin: - set $@KvM03BG, 3; - set $@KvM03BG_Victory, 2; + $@KvM03BG = 3; + $@KvM03BG_Victory = 2; mapannounce "bat_c03", "Croix wins!",bc_map,"0x00ff00"; mapannounce "bat_c03", "Congratulations to Croix members.",bc_map,"0x00ff00"; mapannounce "bat_c03", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; @@ -322,17 +320,17 @@ OnStop: end; OnReset: - set .Croix_Count, 0; - set .Guillaume_Count, 0; - set $@KvM03BG_Victory, 0; - if( $@KvM03BG_id1 ) { bg_destroy $@KvM03BG_id1; set $@KvM03BG_id1, 0; } - if( $@KvM03BG_id2 ) { bg_destroy $@KvM03BG_id2; set $@KvM03BG_id2, 0; } + .Croix_Count = 0; + .Guillaume_Count = 0; + $@KvM03BG_Victory = 0; + if( $@KvM03BG_id1 ) { bg_destroy $@KvM03BG_id1; $@KvM03BG_id1 = 0; } + if( $@KvM03BG_id2 ) { bg_destroy $@KvM03BG_id2; $@KvM03BG_id2 = 0; } disablenpc "KVM Officer#KVM03A"; disablenpc "KVM Officer#KVM03B"; mapwarp "bat_c03","bat_room",154,150; maprespawnguildid "bat_c03",0,3; // Just in case someone else bg_updatescore "bat_c03",5,5; - set $@KvM03BG, 0; + $@KvM03BG = 0; donpcevent "KvM03_BG::OnReadyCheck"; // Maybe a game is ready to start end; } @@ -375,14 +373,14 @@ bat_c03,51,130,5 script KVM Officer#KVM03A 4_M_KY_HEAD,{ { if( $@KvM03BG_Victory == Bat_Team ) { // Victory - set kvm_point,kvm_point + 2; + kvm_point += 2; mes "[KVM Officer]"; mes "Good Game."; mes "May the glory of KVM be with you."; mes "You aquire the winning points: 2"; close2; } else { - set kvm_point,kvm_point + 1; + ++kvm_point; mes "[KVM Officer]"; mes "I am so sorry."; mes "I wish you better luck next time."; @@ -390,7 +388,7 @@ bat_c03,51,130,5 script KVM Officer#KVM03A 4_M_KY_HEAD,{ close2; } bg_leave; - set Bat_Team,0; + Bat_Team = 0; warp "bat_room",154,150; end; } @@ -402,14 +400,14 @@ bat_c03,148,53,1 script KVM Officer#KVM03B 4_M_CRU_HEAD,{ { if( $@KvM03BG_Victory == Bat_Team ) { // Victory - set kvm_point,kvm_point + 2; + kvm_point +=2; mes "[KVM Officer]"; mes "Good Game."; mes "May the glory of KVM be with you."; mes "You aquire the winning points: 2"; close2; } else { - set kvm_point,kvm_point + 1; + ++kvm_point; mes "[KVM Officer]"; mes "I am so sorry."; mes "I wish you better luck next time."; @@ -417,7 +415,7 @@ bat_c03,148,53,1 script KVM Officer#KVM03B 4_M_CRU_HEAD,{ close2; } bg_leave; - set Bat_Team,0; + Bat_Team = 0; warp "bat_room",154,150; end; } diff --git a/npc/battleground/kvm/kvm_item_pay.txt b/npc/battleground/kvm/kvm_item_pay.txt index fa14455d6..ed6190690 100644 --- a/npc/battleground/kvm/kvm_item_pay.txt +++ b/npc/battleground/kvm/kvm_item_pay.txt @@ -18,9 +18,9 @@ bat_room,151,144,3 script KVM Logistic Officer#a 4_M_JOB_KNIGHT2,{ if (countitem(7773)) { - set .@pointstoadd,countitem(7773); + .@pointstoadd = countitem(7773); delitem 7773,.@pointstoadd; - set kvm_point,kvm_point+.@pointstoadd; + kvm_point += .@pointstoadd; mes "[Logistics]"; mes "Are those "+getitemname(7773)+"s I see?"; mes "We no longer accept that currency,"; @@ -45,7 +45,7 @@ bat_room,151,144,3 script KVM Logistic Officer#a 4_M_JOB_KNIGHT2,{ mes "be reversed. Please be carefull."; mes "Select the next step please."; next; - set .@name$,strcharinfo(0); + .@name$ = strcharinfo(0); switch(select("Read the KVM Catalogue.:Purchase KVM Items.:Confirm KVM Points.:Explanation of KVM Rewards.:Explanation of KVM Points.")) { case 1: mes "[Logistics]"; @@ -283,7 +283,7 @@ PurchaseItem: break; case 2: if (kvm_point >= .@prices[getarg(1)]) { - set kvm_point,kvm_point-.@prices[getarg(1)]; + kvm_point -= .@prices[getarg(1)]; getitem getarg(0),1; mes "[Logistics]"; mes "You have purchased a "+getitemname(getarg(0))+"."; diff --git a/npc/battleground/tierra/tierra01.txt b/npc/battleground/tierra/tierra01.txt index 2a6d5991a..20f0fe096 100644 --- a/npc/battleground/tierra/tierra01.txt +++ b/npc/battleground/tierra/tierra01.txt @@ -28,7 +28,7 @@ OnInit: end; OnEnterBG: - set $@TierraBG1_id1, waitingroom2bg("bat_a01",50,374,"start#bat_a01::OnGuillaumeQuit",""); + $@TierraBG1_id1 = waitingroom2bg("bat_a01",50,374,"start#bat_a01::OnGuillaumeQuit",""); end; } @@ -40,7 +40,7 @@ OnInit: end; OnEnterBG: - set $@TierraBG1_id2, waitingroom2bg("bat_a01",42,16,"start#bat_a01::OnCroixQuit",""); + $@TierraBG1_id2 = waitingroom2bg("bat_a01",42,16,"start#bat_a01::OnCroixQuit",""); end; } @@ -59,11 +59,11 @@ OnStop: OnTimer1000: stopnpctimer; initnpctimer; - set .@chk_bat_a01,getmapusers("bat_a01"); + .@chk_bat_a01 = getmapusers("bat_a01"); if (.@chk_bat_a01 < 1) { - set $@TierraBG1,0; set $@TierraBG1_Victory, 0; - if( $@TierraBG1_id1 ) { bg_destroy $@TierraBG1_id1; set $@TierraBG1_id1, 0; } - if( $@TierraBG1_id2 ) { bg_destroy $@TierraBG1_id2; set $@TierraBG1_id2, 0; } + $@TierraBG1 = 0; $@TierraBG1_Victory = 0; + if( $@TierraBG1_id1 ) { bg_destroy $@TierraBG1_id1; $@TierraBG1_id1 = 0; } + if( $@TierraBG1_id2 ) { bg_destroy $@TierraBG1_id2; $@TierraBG1_id2 = 0; } donpcevent "start#bat_a01::OnReadyCheck"; } end; @@ -127,15 +127,15 @@ OnCroixQuit: OnReadyCheck: if( $@TierraBG1 ) end; - set .@Guillaume, getwaitingroomstate(0,"Lieutenant Kalos"); - set .@Croix, getwaitingroomstate(0,"Lieutenant Eyor"); + .@Guillaume = getwaitingroomstate(0,"Lieutenant Kalos"); + .@Croix = getwaitingroomstate(0,"Lieutenant Eyor"); if( !.@Guillaume && !.@Croix ) { donpcevent "#bat_a01_timer::OnStop"; end; } else if( .@Guillaume < 10 || .@Croix < 10 ) end; - set $@TierraBG1,1; + $@TierraBG1 = 1; donpcevent "Lieutenant Kalos::OnEnterBG"; donpcevent "Lieutenant Eyor::OnEnterBG"; donpcevent "start#bat_a01::OnEnable"; @@ -163,7 +163,7 @@ OnMyMobDead: if (mobcount("bat_a01","OBJ#bat_a01_a::OnMyMobDead") < 1) { donpcevent "Battle Therapist#a01_a::OnStop"; donpcevent "Battle Therapist#a01_b::OnStop"; - set $@TierraBG1_Victory, 2; + $@TierraBG1_Victory = 2; enablenpc "Guillaume Vintenar#a01_a"; enablenpc "Croix Vintenar#a01_b"; mapannounce "bat_a01", "Croix Vintenar Swandery: We destroyed Guillaume's Food Storage. We won that! Wow!",bc_map,"0xFFCE00"; @@ -186,7 +186,7 @@ OnMyMobDead: if (mobcount("bat_a01","OBJ#bat_a01_b::OnMyMobDead") < 1) { donpcevent "Battle Therapist#a01_a::OnStop"; donpcevent "Battle Therapist#a01_b::OnStop"; - set $@TierraBG1_Victory, 1; + $@TierraBG1_Victory = 1; enablenpc "Guillaume Vintenar#a01_a"; enablenpc "Croix Vintenar#a01_b"; mapannounce "bat_a01", "Guillaume Vintenar Axl Rose : We destroyed Croix's Food Storage. We won that! Wow!",bc_map,"0xFFCE00"; @@ -198,7 +198,7 @@ OnMyMobDead: bat_a01,15,18,3 script barricade#bat_a01_a CLEAR_NPC,{ OnEnable: - for( set .@i,185; .@i < 202; set .@i,.@i+1 ) + for (.@i = 185; .@i < 202; ++.@i) bg_monster $@TierraBG1_id1,"bat_a01",.@i,266,"Barricade",1906,"barricade#bat_a01_a::OnMyMobDead"; setwall "bat_a01",186,266,16,6,1,"bat_a01_c1"; end; @@ -220,7 +220,7 @@ OnMyMobDead: bat_a01,15,19,3 script barricade#bat_a01_b CLEAR_NPC,{ OnEnable: - for( set .@i,169; .@i < 186; set .@i,.@i+1 ) + for (.@i = 169; .@i < 186; ++.@i) bg_monster $@TierraBG1_id2,"bat_a01",.@i,129,"Barricade",1906,"barricade#bat_a01_b::OnMyMobDead"; setwall "bat_a01",170,129,16,6,1,"bat_a01_g1"; end; @@ -681,8 +681,8 @@ bat_a01,348,74,3 script Croix Camp#flag9 1_FLAG_EAGLE,{ end; } bat_a01,53,377,3 script Guillaume Vintenar#a01_a 4_M_KY_HEAD,{ if (getcharid(4) == $@TierraBG1_id1) { if ($@TierraBG1_Victory == 1) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -701,8 +701,8 @@ bat_a01,53,377,3 script Guillaume Vintenar#a01_a 4_M_KY_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -723,8 +723,8 @@ bat_a01,53,377,3 script Guillaume Vintenar#a01_a 4_M_KY_HEAD,{ } else { if ($@TierraBG1_Victory == 2) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -743,8 +743,8 @@ bat_a01,53,377,3 script Guillaume Vintenar#a01_a 4_M_KY_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -775,8 +775,8 @@ OnInit: bat_a01,45,19,3 script Croix Vintenar#a01_b 4_M_CRU_HEAD,{ if (getcharid(4) == $@TierraBG1_id2) { if ($@TierraBG1_Victory == 2) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -795,8 +795,8 @@ bat_a01,45,19,3 script Croix Vintenar#a01_b 4_M_CRU_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+" Don't be sad."; @@ -817,8 +817,8 @@ bat_a01,45,19,3 script Croix Vintenar#a01_b 4_M_CRU_HEAD,{ } else { if ($@TierraBG1_Victory == 1) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+" Don't be sad."; @@ -837,8 +837,8 @@ bat_a01,45,19,3 script Croix Vintenar#a01_b 4_M_CRU_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -922,7 +922,7 @@ bat_a01,356,326,3 script Guillaume Camp Soldier#bat_a01_guide 4_M_RASWORD,{ */ bat_a01,1,1,3 script Release all#a01 4_DOG01,{ - set .@i, callfunc("F_GM_NPC",1854,0); + .@i = callfunc("F_GM_NPC",1854,0); if (.@i == -1) { mes "Cancelled."; close; diff --git a/npc/battleground/tierra/tierra02.txt b/npc/battleground/tierra/tierra02.txt index 129d0ee3e..c79b20845 100644 --- a/npc/battleground/tierra/tierra02.txt +++ b/npc/battleground/tierra/tierra02.txt @@ -27,7 +27,7 @@ OnInit: end; OnEnterBG: - set $@TierraBG2_id1, waitingroom2bg("bat_a02",50,374,"start#bat_a02::OnGuillaumeQuit",""); + $@TierraBG2_id1 = waitingroom2bg("bat_a02",50,374,"start#bat_a02::OnGuillaumeQuit",""); end; } @@ -39,7 +39,7 @@ OnInit: end; OnEnterBG: - set $@TierraBG2_id2, waitingroom2bg("bat_a02",42,16,"start#bat_a02::OnCroixQuit",""); + $@TierraBG2_id2 = waitingroom2bg("bat_a02",42,16,"start#bat_a02::OnCroixQuit",""); end; } @@ -58,11 +58,11 @@ OnStop: OnTimer1000: stopnpctimer; initnpctimer; - set .@chk_bat_a02,getmapusers("bat_a02"); + .@chk_bat_a02 = getmapusers("bat_a02"); if (.@chk_bat_a02 < 1) { - set $@TierraBG2,0; set $@TierraBG2_Victory, 0; - if( $@TierraBG2_id1 ) { bg_destroy $@TierraBG2_id1; set $@TierraBG2_id1, 0; } - if( $@TierraBG2_id2 ) { bg_destroy $@TierraBG2_id2; set $@TierraBG2_id2, 0; } + $@TierraBG2 = 0; $@TierraBG2_Victory = 0; + if( $@TierraBG2_id1 ) { bg_destroy $@TierraBG2_id1; $@TierraBG2_id1 = 0; } + if( $@TierraBG2_id2 ) { bg_destroy $@TierraBG2_id2; $@TierraBG2_id2 = 0; } donpcevent "start#bat_a02::OnReadyCheck"; } end; @@ -126,15 +126,15 @@ OnCroixQuit: OnReadyCheck: if( $@TierraBG2 ) end; - set .@Guillaume, getwaitingroomstate(0,"Lieutenant Rundel"); - set .@Croix, getwaitingroomstate(0,"Lieutenant Guerrit"); + .@Guillaume = getwaitingroomstate(0,"Lieutenant Rundel"); + .@Croix = getwaitingroomstate(0,"Lieutenant Guerrit"); if( !.@Guillaume && !.@Croix ) { donpcevent "#bat_a02_timer::OnStop"; end; } else if( .@Guillaume < 10 || .@Croix < 10 ) end; - set $@TierraBG2,1; + $@TierraBG2 = 1; donpcevent "Lieutenant Rundel::OnEnterBG"; donpcevent "Lieutenant Guerrit::OnEnterBG"; donpcevent "start#bat_a02::OnEnable"; @@ -162,7 +162,7 @@ OnMyMobDead: if (mobcount("bat_a02","OBJ#bat_a02_a::OnMyMobDead") < 1) { donpcevent "Battle Therapist#a02_a::OnStop"; donpcevent "Battle Therapist#a02_b::OnStop"; - set $@TierraBG2_Victory, 2; + $@TierraBG2_Victory = 2; enablenpc "Guillaume Vintenar#a02_a"; enablenpc "Croix Vintenar#a02_b"; mapannounce "bat_a02", "Croix Vintenar Swandery: We destroyed Guillaume's Food Storage. We won that! Wow!",bc_map,"0xFFCE00"; @@ -185,7 +185,7 @@ OnMyMobDead: if (mobcount("bat_a02","OBJ#bat_a02_b::OnMyMobDead") < 1) { donpcevent "Battle Therapist#a02_a::OnStop"; donpcevent "Battle Therapist#a02_b::OnStop"; - set $@TierraBG2_Victory, 1; + $@TierraBG2_Victory = 1; enablenpc "Guillaume Vintenar#a02_a"; enablenpc "Croix Vintenar#a02_b"; mapannounce "bat_a02", "Guillaume Vintenar Axl Rose : We destroyed Croix's Food Storage. We won that! Wow!",bc_map,"0xFFCE00"; @@ -197,7 +197,7 @@ OnMyMobDead: bat_a02,15,18,3 script barricade#bat_a02_a CLEAR_NPC,{ OnEnable: - for( set .@i,185; .@i < 202; set .@i,.@i+1 ) + for (.@i = 185; .@i < 202; ++.@i) bg_monster $@TierraBG2_id1,"bat_a02",.@i,266,"Barricade",1906,"barricade#bat_a02_a::OnMyMobDead"; setwall "bat_a02",186,266,16,6,1,"bat_a02_c1"; end; @@ -219,7 +219,7 @@ OnMyMobDead: bat_a02,15,19,3 script barricade#bat_a02_b CLEAR_NPC,{ OnEnable: - for( set .@i,169; .@i < 186; set .@i,.@i+1 ) + for (.@i = 169; .@i < 186; ++.@i) bg_monster $@TierraBG2_id2,"bat_a02",.@i,129,"Barricade",1906,"barricade#bat_a02_b::OnMyMobDead"; setwall "bat_a02",170,129,16,6,1,"bat_a02_g1"; end; @@ -680,8 +680,8 @@ bat_a02,348,74,3 script Croix Camp#flag19 1_FLAG_EAGLE,{ end; } bat_a02,53,377,3 script Guillaume Vintenar#a02_a 4_M_KY_HEAD,{ if (getcharid(4) == $@TierraBG2_id1) { if ($@TierraBG2_Victory == 1) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -700,8 +700,8 @@ bat_a02,53,377,3 script Guillaume Vintenar#a02_a 4_M_KY_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -722,8 +722,8 @@ bat_a02,53,377,3 script Guillaume Vintenar#a02_a 4_M_KY_HEAD,{ } else { if ($@TierraBG2_Victory == 2) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Axl Rose]"; mes "You lost, but you're dedicated to this battle."; @@ -742,8 +742,8 @@ bat_a02,53,377,3 script Guillaume Vintenar#a02_a 4_M_KY_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Axl Rose]"; mes "Blessed Guillaume!"; @@ -774,8 +774,8 @@ OnInit: bat_a02,45,19,3 script Croix Vintenar#a02_b 4_M_CRU_HEAD,{ if (getcharid(4) == $@TierraBG2_id2) { if ($@TierraBG2_Victory == 2) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -794,8 +794,8 @@ bat_a02,45,19,3 script Croix Vintenar#a02_b 4_M_CRU_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+" Don't be sad."; @@ -816,8 +816,8 @@ bat_a02,45,19,3 script Croix Vintenar#a02_b 4_M_CRU_HEAD,{ } else { if ($@TierraBG2_Victory == 1) { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 0) { mes "[Swandery]"; mes "Oh, "+strcharinfo(0)+" Don't be sad."; @@ -836,8 +836,8 @@ bat_a02,45,19,3 script Croix Vintenar#a02_b 4_M_CRU_HEAD,{ } } else { - set .@your_medal,countitem(7828); - set .@medal_gap, 500 - .@your_medal; + .@your_medal = countitem(7828); + .@medal_gap = 500 - .@your_medal; if (.@medal_gap > 2) { mes "[Swandery]"; mes "Blessed Croix!"; @@ -921,7 +921,7 @@ bat_a02,356,326,3 script Guillaume Camp Soldier#bat_a02_guide 4_M_RASWORD,{ */ bat_a02,1,1,3 script Release all#a02 4_DOG01,{ - set .@i, callfunc("F_GM_NPC",1854,0); + .@i = callfunc("F_GM_NPC",1854,0); if (.@i == -1) { mes "Cancelled."; close; diff --git a/npc/cities/alberta.txt b/npc/cities/alberta.txt index 232fb5da3..92e249135 100644 --- a/npc/cities/alberta.txt +++ b/npc/cities/alberta.txt @@ -277,7 +277,7 @@ alberta,195,151,2 script Paul 4_M_04,{ } alberta,190,173,4 script Phelix 4_M_03,{ - set .@weight,MaxWeight-Weight; + .@weight = MaxWeight-Weight; mes "[Phelix]"; if ((.@weight) < 10000) { mes "Wait a moment!!"; @@ -297,7 +297,7 @@ alberta,190,173,4 script Phelix 4_M_03,{ next; mes "[Phelix]"; mes "If you're interested in my offer, get me the stuff I mentioned."; - set @event_zelopy,1; + @event_zelopy = 1; close; } else { mes "Hmm.. you want to exchange jellopies for Red Potions or some Carrots eh? Well.. which one?"; @@ -314,7 +314,7 @@ alberta,190,173,4 script Phelix 4_M_03,{ mes "Hey! Weren't you listening?. I said 10 jellopies for 1 Red Potion.. are ya deaf?"; close; } else { - set .@max,countitem(909)/10; + .@max = countitem(909)/10; mes "Hmm, not bad..."; mes "How many potions"; mes "do you want to get?"; @@ -365,7 +365,7 @@ alberta,190,173,4 script Phelix 4_M_03,{ mes "Hmm, look pansy ass, I said 3 jellopies for 1 Carrot.. got it?"; close; } else { - set .@max,countitem(909)/3; + .@max = countitem(909)/3; mes "Not too bad pansy..."; mes "How many do you want?"; next; diff --git a/npc/cities/aldebaran.txt b/npc/cities/aldebaran.txt index f4b3662fc..494247912 100644 --- a/npc/cities/aldebaran.txt +++ b/npc/cities/aldebaran.txt @@ -779,7 +779,7 @@ aldeba_in,84,166,4 script Kafra Service#alde 4_F_KAFRA1,{ end; } else { - set .@kafrapassmoney,countitem(1084)*2000; + .@kafrapassmoney = countitem(1084)*2000; mes "[Kafra Pavianne]"; mes "Let's see..."; if (countitem(1084) == 1) { @@ -1194,7 +1194,7 @@ function script F_Lottery { mes "How many times do you want the Lottery Machine to spin? You can choose up to 5 times."; next; input @input; - if(@input < 1 || @input > 5) set @input, rand(1,5); //Lupus's fix + if(@input < 1 || @input > 5) @input = rand(1,5); //Lupus's fix callsub sF_Spin; mes "[Kafra]"; mes "Ok~ Let me check the results~ guess what it is?"; @@ -1267,8 +1267,8 @@ sF_Spin: mes "[Lottery Machine]"; mes "(rumble~rumble~rumble~)..."; next; - set @temp, rand(10); - set @input, @input -1; + @temp = rand(10); + --@input; if(@input <= 0) return; goto sF_Spin; } diff --git a/npc/cities/amatsu.txt b/npc/cities/amatsu.txt index 18ae79bdc..a79c30993 100644 --- a/npc/cities/amatsu.txt +++ b/npc/cities/amatsu.txt @@ -339,7 +339,7 @@ amatsu,287,266,3 script Jyaburo#ama 4_M_JPNOJI,{ // Legendary Tree //============================================================ amatsu,269,221,1 script Propose Girl#ama 4_F_JPN,{ - set jap_tree,1; + jap_tree = 1; mes "[Hutari Shioko]"; mes "It is a pleasure to meet you."; mes "My name is Hutari Shioko."; @@ -374,7 +374,7 @@ amatsu,269,221,1 script Propose Girl#ama 4_F_JPN,{ } amatsu,243,202,3 script Drama Teacher#ama 4_F_JPNOBA2,{ - set jap_tree,2; + jap_tree = 2; mes "[Garakame sensei]"; mes "This is a beautiful place"; mes "with everlasting cherry blossoms."; @@ -423,7 +423,7 @@ amatsu,283,203,1 script Bonubonu#ama1 SEE_OTTER,{ } amatsu,283,203,1 script Bonubonu#ama2 HIDDEN_NPC,{ - set jap_tree,3; + jap_tree = 3; emotion e_swt2; mes "[Bonubonu]"; mes "That tree on the hill is"; @@ -453,7 +453,7 @@ amatsu,283,203,1 script Bonubonu#ama2 HIDDEN_NPC,{ } amatsu,274,178,7 script Veterinarian#ama 4_M_JOB_WIZARD,{ - set jap_tree,4; + jap_tree = 4; mes "[Sakura Seiichi]"; mes "Ah... I'm not a weirdo so"; mes "don't panic. I'm just an ordinary"; diff --git a/npc/cities/ayothaya.txt b/npc/cities/ayothaya.txt index a4e214582..a8a114d2d 100644 --- a/npc/cities/ayothaya.txt +++ b/npc/cities/ayothaya.txt @@ -122,7 +122,7 @@ ayothaya,189,120,3 script Young Man#Thang 4_M_THAIONGBAK,{ } ayothaya,171,152,5 script Girl#Lalitha 4_F_THAIAYO,{ - set .@sit,rand(1,5); + .@sit = rand(1,5); if (.@sit > 0 && .@sit < 3) { mes "[Lalitha]"; mes "Hello!"; diff --git a/npc/cities/comodo.txt b/npc/cities/comodo.txt index f8a3f967f..248af4e50 100644 --- a/npc/cities/comodo.txt +++ b/npc/cities/comodo.txt @@ -198,7 +198,7 @@ cmd_in02,174,126,4 script Loyar#cmd 4_M_01,{ } cmd_in02,57,62,4 script Moo#cmd 4_M_MANAGER,{ - set mooz,rand(1,10); + mooz = rand(1,10); if (mooz == 1) { mes "[Moo]"; mes "Those cheating punks!"; @@ -338,7 +338,7 @@ cmd_fild07,52,280,4 script Hallosu#cmd 4W_SAILOR,{ } cmd_fild07,299,83,4 script Zain#cmd 4W_SAILOR,{ - set .@n$,"["+strnpcinfo(1)+"]"; + .@n$ = "["+strnpcinfo(1)+"]"; mes .@n$; mes "Would you like to"; mes "board a ship on the"; diff --git a/npc/cities/geffen.txt b/npc/cities/geffen.txt index 16702126f..a5d3e8354 100644 --- a/npc/cities/geffen.txt +++ b/npc/cities/geffen.txt @@ -274,7 +274,7 @@ OnTouch: else break; } - set .@Red_potion_hap,.@input * 500; + .@Red_potion_hap = .@input * 500; if (Zeny < .@Red_potion_hap) { mes "[Suspicious Guy]"; mes "Oh maaan~"; @@ -344,7 +344,7 @@ OnTouch: else break; } - set .@Main_gauche_hap,.@input * 9400; + .@Main_gauche_hap = .@input * 9400; if (Zeny < .@Main_gauche_hap) { mes "[Suspicious Guy]"; mes "Short on zeny?"; @@ -396,7 +396,7 @@ OnTouch: else break; } - set .@Hood__hap,.@input * 930; + .@Hood__hap = .@input * 930; if (Zeny < .@Hood__hap) { mes "[Suspicious Guy]"; mes "Oh nuts..."; diff --git a/npc/cities/gonryun.txt b/npc/cities/gonryun.txt index 9c51dcd48..919d23e20 100644 --- a/npc/cities/gonryun.txt +++ b/npc/cities/gonryun.txt @@ -289,7 +289,7 @@ gon_in,73,82,5 script Ji Chung Zhe#gon 4_M_TWTEAMAN,{ close; } if (nakha == 3) { - set cha,1; + cha = 1; mes "[Ji Chung Zhe]"; mes "I am Ji Chung Zhe, a renown brewer"; mes "of teas. Everyday, I put all my"; diff --git a/npc/cities/jawaii.txt b/npc/cities/jawaii.txt index 1069cf01c..1cbd51fd5 100644 --- a/npc/cities/jawaii.txt +++ b/npc/cities/jawaii.txt @@ -837,7 +837,7 @@ jawaii_in,28,124,0 script Bartender#jaw 1_ETC_01,{ mes "like to drink?"; next; if (Zeny < 99) { - set .@r_jaw,rand(1,100); + .@r_jaw = rand(1,100); mes "[Bartender]"; if (.@r_jaw > 29) { mes "Hm, I'm sorry"; @@ -867,7 +867,7 @@ jawaii_in,28,124,0 script Bartender#jaw 1_ETC_01,{ while (1) { switch(select("Follow Bartender's Recommendation.:I want a Gunslinger.:I want a Cobo.:I want a Bomb.:I want a Boogieman.")) { case 1: - set .@roof_jaw,.@roof_jaw+3; + .@roof_jaw += 3; if (.@roof_jaw > 9) { mes "[Bartender]"; mes "Hmmm..."; @@ -1106,7 +1106,7 @@ S_KillChar: end; } if (Zeny > 99) Zeny -= 100; - set .@roof_jaw,.@roof_jaw+getarg(0); + .@roof_jaw += getarg(0); mes "[Bartender]"; mes "There you go."; next; @@ -1254,7 +1254,7 @@ prt_in,173,13,4 script Customer#SoloHan 4_M_04,{ mes "^3355FF* Gulp Gulp Gulp *^000000"; percentheal -10,0; next; - set .@jaw_roof,1; + .@jaw_roof = 1; mes "[SoloHan]"; mes "So, what do you say?"; mes "Let's go somewhere"; @@ -1280,7 +1280,7 @@ prt_in,173,13,4 script Customer#SoloHan 4_M_04,{ mes "^3355FF* Gulp Gulp Gulp *^000000"; percentheal -10,0; next; - set .@jaw_roof,.@jaw_roof+2; + .@jaw_roof += 2; mes "[SoloHan]"; if (.@jaw_roof > 8) { mes "Whoa..."; @@ -1330,7 +1330,7 @@ prt_in,173,13,4 script Customer#SoloHan 4_M_04,{ close2; end; } - set .@jaw_roof,.@jaw_roof+3; + .@jaw_roof += 3; mes "[SoloHan]"; mes "Drink, drink!"; mes "That's not enough!"; diff --git a/npc/cities/lighthalzen.txt b/npc/cities/lighthalzen.txt index 6768da33c..01a5c7404 100644 --- a/npc/cities/lighthalzen.txt +++ b/npc/cities/lighthalzen.txt @@ -564,7 +564,7 @@ lighthalzen,182,102,3 script Lucius#zen5 4_M_LGTGRAND,{ close; } Zeny -= .@input; - set $donatedzeny,$donatedzeny + .@input; + $donatedzeny += .@input; mes "[Lucius]"; mes "So far, I've received"; mes "a total of " + $donatedzeny + " zeny in"; @@ -580,7 +580,7 @@ lighthalzen,182,102,3 script Lucius#zen5 4_M_LGTGRAND,{ mes "this small gift as a token of"; mes "my gratitude, adventurer. Bless"; mes "you, youngster and take care."; - set $donatedzeny,0; + $donatedzeny = 0; getitem 603,1; //Old_Blue_Box getitem 12016,1; //Speed_Up_Potion } diff --git a/npc/cities/lutie.txt b/npc/cities/lutie.txt index def5e03ab..c7ad3a40c 100644 --- a/npc/cities/lutie.txt +++ b/npc/cities/lutie.txt @@ -115,7 +115,7 @@ xmas_in,167,173,4 script Duffle 4_F_05,{ mes "[Duffle]"; mes "Well then..."; mes "Merry Christmas!!"; - set xmas_npc,2; + xmas_npc = 2; close; } else if (xmas_npc > 1) { @@ -182,7 +182,7 @@ xmas_in,27,103,4 script Lenient Aunt 4_F_GODEMOM,{ mes "Now be a dear"; mes "and hurry up."; mes "Come back quickly~"; - set xmas_npc,6; + xmas_npc = 6; close; case 6: mes "[Thachentze]"; @@ -213,7 +213,7 @@ xmas_in,27,103,4 script Lenient Aunt 4_F_GODEMOM,{ mes "Let's see, let's see..."; mes "Thank you dear,Thank you."; next; - set xmas_npc,8; + xmas_npc = 8; mes "^3355FFYou gave her the"; mes "roughest salt in the world.^000000"; next; @@ -296,7 +296,7 @@ xmas,117,304,4 script Poze 4_M_06,{ next; mes "[Poze]"; mes "But that's pretty much all I know. For the actual details, you should ask ^3355FFUncle Hairy Cantata^000000."; - set xmas_npc,4; + xmas_npc = 4; close; } else { mes "[Poze]"; @@ -381,7 +381,7 @@ xmas,176,236,4 script Uncle Hairy 4_M_05,{ next; mes "[Cantata]"; mes "^3355FFThachentze^000000, that lovely pickle maker, knows more about it. So if you're curious, you should go talk to her. Alrighty then, Merry Christmas!"; - set xmas_npc,5; + xmas_npc = 5; close; } else { mes "[Cantata]"; @@ -538,7 +538,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ next; mes "^3355FFSnowysnow is immersed in his deep thoughts, and seems^000000"; mes "^3355FFfixated on Poze's memento.^000000"; - set xmas_npc,3; + xmas_npc = 3; close2; cutin "",255; end; @@ -600,7 +600,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "[Snowysnow]"; mes "Yeah, she's a pickle expert, alright. Oh right, would you give this to her? I've been keeping the roughest salt in the world for her as a bit of a favor."; next; - set xmas_npc,7; + xmas_npc = 7; mes "^3355FFSnowysnow gave you the roughest salt in the world^000000."; next; mes "[Snowysnow]"; @@ -655,11 +655,11 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "^3355FFYou gingerly stir"; mes "your hand around in"; mes "Snowysnow's magical gift bag^000000."; - set .@snownow,rand(1,8); + .@snownow = rand(1,8); next; switch(.@snownow) { case 1: - set xmas_npc,11; + xmas_npc = 11; getitem 529,5; // Candy cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -668,7 +668,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "Congratulations!"; break; case 2: - set xmas_npc,11; + xmas_npc = 11; getitem 529,10; // Candy cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -676,7 +676,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "^3355FF10 Candy^000000!"; break; case 3: - set xmas_npc,11; + xmas_npc = 11; getitem 530,5; // Candy_Striper cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -684,7 +684,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "^3355FF5 Candy Cane^000000!"; break; case 4: - set xmas_npc,11; + xmas_npc = 11; getitem 530,10; // Candy_Striper cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -692,7 +692,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "^3355FF10 Candy Cane^000000!"; break; case 5: - set xmas_npc,11; + xmas_npc = 11; getitem 539,1; // Piece_Of_Cake cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -700,7 +700,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "^3355FF1 Piece Of Cake^000000!"; break; case 6: - set xmas_npc,11; + xmas_npc = 11; getitem 539,2; // Piece_Of_Cake cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -708,7 +708,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "^3355FF2 Piece Of Cake^000000!"; break; case 7: - set xmas_npc,11; + xmas_npc = 11; getitem 538,5; // Well_Baked_Cookie cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -716,7 +716,7 @@ xmas,134,112,4 script Snowman 4_M_SNOWMAN,{ mes "^3355FF5 Cookie^000000!"; break; case 8: - set xmas_npc,11; + xmas_npc = 11; getitem 538,10; // Well_Baked_Cookie cutin "rutie_snownow02.bmp",2; mes "[Snowysnow]"; @@ -811,7 +811,7 @@ xmas,146,136,4 script Hashokii 4_M_PIERROT,{ next; mes "[Hashokii]"; mes "Why don't you go meet those 2 children? They might tell you the story we've never got the chance to hear. Okay then, good luck~! Bye bye!"; - set xmas_npc,9; + xmas_npc = 9; close; } else { mes "[Hashokii]"; @@ -917,7 +917,7 @@ xmas,208,168,4 script Little Girl 4_F_KID2,{ mes "[Marcell]"; mes "Oh, now I see . . . . ."; mes "You wanna learn all about Snowysnow because you want to become his friend! He'll be so happy to know that! Ooh! Maybe he'll give you a present! Good luck!"; - set xmas_npc,10; + xmas_npc = 10; close; case 10: mes "[Marcell]"; diff --git a/npc/cities/manuk.txt b/npc/cities/manuk.txt index 77c5306ed..b49be1920 100644 --- a/npc/cities/manuk.txt +++ b/npc/cities/manuk.txt @@ -219,7 +219,7 @@ manuk,286,147,3 script Piom#ep13_2_2 4_MAN_PIOM,{ } manuk,183,185,5 script Piom#ep13_2_3 4_MAN_PIOM,{ - set tongyeok,Ring_Of_Wise_King; + tongyeok = Ring_Of_Wise_King; if ((isequipped(2782) == 1) && (ep13_2_rhea == 100)) { mes "[Piom]"; mes "Our lives exist for Saphas."; diff --git a/npc/cities/morocc.txt b/npc/cities/morocc.txt index cb5b608e9..e2ca328df 100644 --- a/npc/cities/morocc.txt +++ b/npc/cities/morocc.txt @@ -762,7 +762,7 @@ moc_fild16,195,281,4 script Assassin Guardian#1::SinGuard 4_M_MOC_SOLDIER,{ mes "Welcome."; close; } - set .@temp, rand(1,4); + .@temp = rand(1,4); if(.@temp == 1) mes "........"; if(.@temp == 2) mes "Hmmm.........."; if(.@temp == 3) mes "Hmmm... you shouldn't be here....."; diff --git a/npc/cities/niflheim.txt b/npc/cities/niflheim.txt index 4e6ba1f97..0bfa9a088 100644 --- a/npc/cities/niflheim.txt +++ b/npc/cities/niflheim.txt @@ -232,17 +232,20 @@ niflheim,350,258,1 script Cursed Spirit#nif 4_NFWISP,{ mes "lost to the ages~!"; emotion e_gg; next; - if (select("Clover:Klaatu:Klaytos") == 2) - set .@spell,.@spell+1; - if (select("Verit:Veritas:Verata") == 3) - set .@spell,.@spell+1; - if (select("Necktie:Necklace:Nero:^FFFFFFNictu!!!^000000") == 4) - set .@spell,.@spell+1; + if (select("Clover:Klaatu:Klaytos") == 2) { + ++.@spell; + } + if (select("Verit:Veritas:Verata") == 3) { + ++.@spell; + } + if (select("Necktie:Necklace:Nero:^FFFFFFNictu!!!^000000") == 4) { + ++.@spell; + } if (.@spell == 3) { switch(rand(1,5)) { case 1: if (morison_meat < 15) { - set morrison_meat,15; + morrison_meat = 15; mes "[Ashe Bruce]"; mes "You... You broke the curse!"; mes "How did you know that spell?!"; @@ -262,7 +265,7 @@ niflheim,350,258,1 script Cursed Spirit#nif 4_NFWISP,{ close; case 2: if (thai_head == 1) { - set thai_head,2; + thai_head = 2; mes "[Ashe Bruce]"; mes "What's..."; mes "this feeling?"; @@ -285,7 +288,7 @@ niflheim,350,258,1 script Cursed Spirit#nif 4_NFWISP,{ close; case 3: if (thai_head == 8) { - set thai_head,7; + thai_head = 7; mes "[Ashe Bruce]"; mes "You... You broke the curse!"; mes "Who taught you that spell?!"; diff --git a/npc/cities/payon.txt b/npc/cities/payon.txt index 3bbe52908..a5607b412 100644 --- a/npc/cities/payon.txt +++ b/npc/cities/payon.txt @@ -840,7 +840,7 @@ OnTouch: close; } if (BaseLevel > 30) { - set .@oldman_random,rand(1,2); + .@oldman_random = rand(1,2); if (.@oldman_random == 1) { mes "[Guard]"; mes "Hey..."; diff --git a/npc/cities/prontera.txt b/npc/cities/prontera.txt index 792ddc972..43389ff67 100644 --- a/npc/cities/prontera.txt +++ b/npc/cities/prontera.txt @@ -135,7 +135,7 @@ prontera,216,70,2 script Strife#pront 1_M_02,{ mes "MAGNUM BREAK!"; next; if (select("I wanna be strong too!:Um... Do you best.") == 1) { - set event_prt_nov_dreamtalk,1; + event_prt_nov_dreamtalk = 1; mes "[Strife]"; mes "Wow...!"; mes "That's so awesome!"; @@ -172,7 +172,7 @@ prontera,216,70,2 script Strife#pront 1_M_02,{ mes "that now, I gotta"; mes "train even harder!"; next; - set event_prt_nov_dreamtalk,2; + event_prt_nov_dreamtalk = 2; getitem 2501,1; //Hood mes "[Strife]"; mes "This is, well, for you to help you get even stronger. I guess I want to thank you for being such a good example."; @@ -305,7 +305,7 @@ prt_in,180,20,2 script Bartender#pront 1_M_PUBMASTER,{ mes "[Bartender]"; mes "I can't keep my business busy without my special menu 'Crunch Crunch Sour' and 'Savory Yum Yum'...*Sigh*"; next; - set .@drink,1; + .@drink = 1; while(.@drink) { switch(select("'Cunch Crunch Sour'?:'Savory Yum Yum'?:Cancel.")) { case 1: @@ -330,7 +330,7 @@ prt_in,180,20,2 script Bartender#pront 1_M_PUBMASTER,{ mes "[Bartender]"; mes "Take care of yourself~."; close2; - set .@drink,0; + .@drink = 0; break; } @@ -551,7 +551,7 @@ prt_church,103,76,0 script Garnet#pront 1_F_02,{ mes "[Garnet]"; mes "Go and ahead and ask if you have any questions about skills for Acolytes and Priests."; next; - set .@SkillChat,1; + .@SkillChat = 1; while(.@SkillChat) { switch(select("About Heal:About Cure:About Increase AGI:About Angelus:About Blessing:About Warp Portal:End Conversation")) { case 1: @@ -631,7 +631,7 @@ prt_church,103,76,0 script Garnet#pront 1_F_02,{ mes "Alright, I've"; mes "heard enough."; close2; - set .@SkillChat,0; + .@SkillChat = 0; break; } } @@ -648,7 +648,7 @@ prt_church,103,71,0 script Henson#pront 2_M_PHARMACIST,{ mes "[Henson]"; mes "Did you have any questions about Acolyte and Priest skills?"; next; - set .@SkillChat,1; + .@SkillChat = 1; while(.@SkillChat) { switch(select("About Divine Protection:About Demon Bane:About Decrease AGI:About Signum Crusis :About Pneuma:About Ruwach:About Teleport:End conversation.")) { case 1: @@ -729,7 +729,7 @@ prt_church,103,71,0 script Henson#pront 2_M_PHARMACIST,{ mes "[Henson]"; mes "If you wish to understand more about an Acolyte or Priest skill, you are welcome to visit me at any time."; close2; - set .@SkillChat,0; + .@SkillChat = 0; break; } } diff --git a/npc/cities/rachel.txt b/npc/cities/rachel.txt index b4beb95af..3538a439d 100644 --- a/npc/cities/rachel.txt +++ b/npc/cities/rachel.txt @@ -306,7 +306,7 @@ rachel,206,30,3 script Freya's Priest#play 4_F_TRAINEE,{ mes "item of yours can do..."; mes "Oh? Oh! That's wonderful!"; close2; - set .@play,rand(1,10); + .@play = rand(1,10); if (.@play < 3) consumeitem 601; //Wing_Of_Fly else if (.@play < 5) diff --git a/npc/events/MemorialDay_2008.txt b/npc/events/MemorialDay_2008.txt index 2c64c5b75..a6c09fe80 100644 --- a/npc/events/MemorialDay_2008.txt +++ b/npc/events/MemorialDay_2008.txt @@ -63,7 +63,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ mes "[Mad Sago Lauds]"; mes "Listen closely."; mes "Bring me ^FF000030 Fabric and 20 Fluffs^000000."; - set Memorial08,1; + Memorial08 = 1; close; } @@ -91,7 +91,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ delitem 914,20; getitem 6025,1; getnameditem 6025," + strcharinfo(0) + "; - set Memorial08,2; + Memorial08 = 2; close; } } @@ -114,7 +114,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ mes "[Mad Sago Lauds]"; mes "It seems you're just carrying it without understanding its meaning."; mes "What a shame! You should go speak to ^FF0000Grast in Prontera^000000."; - set Memorial08,3; + Memorial08 = 3; close; } @@ -149,7 +149,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ mes "What? Why are you giving me your garbage!"; mes "Those items are not useful to me at all."; mes "You should be going to the plaque!"; - set Memorial08,8; + Memorial08 = 8; close; } @@ -161,7 +161,7 @@ prontera,182,214,4 script Lauds#Memorial 1_M_MERCHANT,{ } else if (Memorial08 >= 9) { - set .@RandomMsg, rand(1,5); + .@RandomMsg = rand(1,5); if (.@RandomMsg == 1) { mes "[Mad Sago Lauds]"; mes "Don't panic!"; @@ -207,7 +207,7 @@ prontera,153,286,4 script Memorial Plaque#Memorial 4_BOARD3,{ mes "'This must be what Lauds was talking about.'"; mes "'Let's dust it off with the towel.'"; next; - set Memorial08,9; + Memorial08 = 9; getexp 93750,43750; goto L_CleanPlaque; } @@ -244,7 +244,7 @@ prontera,153,286,4 script Memorial Plaque#Memorial 4_BOARD3,{ mes "- Arthur Ashe -"; if (Memorial08 == 9) { getexp 93750,43750; - set Memorial08,10; + Memorial08 = 10; } close; } @@ -273,7 +273,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "[Grast]"; mes "Please bring me ^FF0000one of each Red Potion, Green Potion, Awakening Potion, and Butterfly Wing^000000."; mes "I'll be waiting for your return."; - set Memorial08,4; + Memorial08 = 4; close; } @@ -303,7 +303,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "[Grast]"; mes "Please bring me ^FF0000one of each Trap, Yggdrasil Leaf, Blue Gemstone, Crystal Mirror, Meat, and Carrot.^000000"; mes "I'll be waiting for your return."; - set Memorial08,5; + Memorial08 = 5; close; } } @@ -330,7 +330,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ next; mes "[Grast]"; mes "Please bring me ^FF0000one of each Pet Incubator, Firecracker, Poring Doll, and Bouquet^000000."; - set Memorial08,6; + Memorial08 = 6; close; } } @@ -376,7 +376,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "You've selected my right hand."; mes "Here's the gift for you."; mes "Now, please bring all these materials to Lauds."; - set Memorial08, 7; + Memorial08 = 7; getitem 617,1; close; } @@ -384,7 +384,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "You've selected my left hand."; mes "Here's the gift for you."; mes "Now, please bring all these materials to Lauds."; - set Memorial08, 7; + Memorial08 = 7; getitem 12109,1; close; } @@ -413,7 +413,7 @@ prontera,150,270,4 script Grast#Memorial 4_M_HUMERCHANT,{ mes "I crushed all the items together into a more compact form for you."; mes "You can thank me later for that extra service."; mes "Please bring them to Lauds."; - set Memorial08,7; + Memorial08 = 7; getitem 7126,1; next; mes "[Grast]"; diff --git a/npc/events/RWC_2011.txt b/npc/events/RWC_2011.txt index 4f0a05b86..f7534af84 100644 --- a/npc/events/RWC_2011.txt +++ b/npc/events/RWC_2011.txt @@ -26,7 +26,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "[New Agent]"; mes "It's RWC time!"; next; - set .@loop,1; + .@loop = 1; while(.@loop) { switch(select("What is RWC?:Are you a New Agent?:I don't care.")) { case 1: @@ -73,7 +73,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "- His brimming small eyes seem to tell you something. ^FF0000Please talk to me again...^000000 -"; close; } - set .@loop,0; + .@loop = 0; break; case 3: mes "[New Agent]"; @@ -148,7 +148,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ next; mes "[New Agent]"; mes "Please help me out!! My life is in your hands!"; - set oversea_event,1; + oversea_event = 1; setquest 13000; close; } else if (oversea_event == 1) { @@ -169,35 +169,35 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ delitem 7470,1; //BlueCard_W delitem 6012,1; //Blue_Card_C //SavePPL BlueCard_2 - set oversea_event,2; + oversea_event = 2; erasequest 13000; setquest 13001; - set .@i, rand(1,100); - if (.@i == 1) getitem 12690,1; //Old_C_Album_Helm - else if (.@i == 2) getitem 12691,1; //Old_C_Album_Armor - else if (.@i == 3) getitem 12693,1; //Old_C_Album_Garment - else if (.@i == 4) getitem 12694,1; //Old_C_Album_Shoes - else if (.@i == 5) getitem 12698,1; //Old_C_Album_Weapon - else if (.@i == 6) getitem 12695,1; //Old_C_Album_Acc - else if (.@i == 7) getitem 12692,1; //Old_C_Album_Shield - else if (.@i < 28) getitem 547,10; //White_Slim_Potion - else if (.@i < 38) getitem 607,1; //Yggdrasilberry - else if (.@i < 51) getitem 608,1; //Seed_Of_Yggdrasil - else { + .@i = rand(1,100); + if (.@i == 1) getitem 12690,1; //Old_C_Album_Helm + else if (.@i == 2) getitem 12691,1; //Old_C_Album_Armor + else if (.@i == 3) getitem 12693,1; //Old_C_Album_Garment + else if (.@i == 4) getitem 12694,1; //Old_C_Album_Shoes + else if (.@i == 5) getitem 12698,1; //Old_C_Album_Weapon + else if (.@i == 6) getitem 12695,1; //Old_C_Album_Acc + else if (.@i == 7) getitem 12692,1; //Old_C_Album_Shield + else if (.@i < 28) getitem 547,10; //White_Slim_Potion + else if (.@i < 38) getitem 607,1; //Yggdrasilberry + else if (.@i < 51) getitem 608,1; //Seed_Of_Yggdrasil + else { getitem 12696,5; //RWC_Cele_Fire getitem 12697,5; //RWC_Cele_Fire2 - } - mes "[RWC2011 Agent]"; - mes "It's not much but please keep it! Haha, we still have lots of cards to be found. I hope you can help me tomorrow as well."; - next; - mes "[RWC2011 Agent]"; - mes "Thank you!! I can continue working now. Nothing is impossible when we have great adventurers like you in this world!"; - next; - mes "[RWC2011 Agent]"; - mes "ADIOS!"; - next; - mes "- Agent muttered something to himself. -"; - close; + } + mes "[RWC2011 Agent]"; + mes "It's not much but please keep it! Haha, we still have lots of cards to be found. I hope you can help me tomorrow as well."; + next; + mes "[RWC2011 Agent]"; + mes "Thank you!! I can continue working now. Nothing is impossible when we have great adventurers like you in this world!"; + next; + mes "[RWC2011 Agent]"; + mes "ADIOS!"; + next; + mes "- Agent muttered something to himself. -"; + close; } else { mes "[RWC2011 Agent]"; mes "Mmmm~ not yet? We're short-handed... Please help me."; @@ -218,7 +218,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "[RWC2011 Agent]"; mes "Thanks for the last time."; mes "I must keep on promoting the event so I want to ask you again~!"; - set oversea_event,3; + oversea_event = 3; close; } else if (oversea_event == 3) { mes "[RWC2011 Agent]"; @@ -231,7 +231,7 @@ prontera,114,81,5 script RWC2011 Agent#2 4_M_ATEIL,{ mes "It's the same mission as before."; mes "Try to gather blue cards and make the word, ^FF0000R W C 2 0 1 1 ^000000."; mes "Good Luck!"; - set oversea_event,1; + oversea_event = 1; setquest 13000; close; case 2: diff --git a/npc/events/RWC_2012.txt b/npc/events/RWC_2012.txt index 33e3cec84..43b884a0d 100644 --- a/npc/events/RWC_2012.txt +++ b/npc/events/RWC_2012.txt @@ -21,7 +21,7 @@ prontera,147,61,3 script Driller#pron 4_M_BARBER,{ mes "You cannot proceed because you're overweight."; close; } - set .@part, EQI_ACC_L; + .@part = EQI_ACC_L; if (!getequipisequiped(.@part)) { mes "[Driller]"; mes "My job is to drill a card slot into RWC Memorial accessories."; @@ -33,7 +33,7 @@ prontera,147,61,3 script Driller#pron 4_M_BARBER,{ mes "[Driller]"; mes "My job is to drill a card slot into RWC Memorial accessories. Moreover, I only treat ^ff0000pure items^000000, or those which have not been enchanted."; next; - set .@equip_id, getequipid(.@part); + .@equip_id = getequipid(.@part); if (.@equip_id != 2966 && .@equip_id != 2968) { mes "[Driller]"; mes "However, I can see that the accessory you are wearing on the right side cannot be treated. Please equip a RWC Memorial accessory."; @@ -48,13 +48,13 @@ prontera,147,61,3 script Driller#pron 4_M_BARBER,{ close; } if (.@equip_id == 2966) { - set .@slotted, 2967; //RWC_2012_Ring_ - set .@name$,"RWC 2012 Memorial Ring"; - set .@str$,"ring"; + .@slotted = 2967; //RWC_2012_Ring_ + .@name$ = "RWC 2012 Memorial Ring"; + .@str$ = "ring"; } else if (.@equip_id == 2968) { - set .@slotted, 2969; //RWC_2012_Pendant_ - set .@name$,"RWC 2012 Memorial Pendant"; - set .@str$,"pendant"; + .@slotted = 2969; //RWC_2012_Pendant_ + .@name$ = "RWC 2012 Memorial Pendant"; + .@str$ = "pendant"; } else { mes "[Driller]"; mes "I can't identify the accessory item you're wearing on your right hand. I can't work on it."; @@ -93,25 +93,25 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "[Goldberg]"; mes "Hello! I am in charge of enchanting RWC Memorial accessories with some mystic powers."; next; - set .@part, EQI_ACC_L; + .@part = EQI_ACC_L; if (!getequipisequiped(.@part)) { mes "[Goldberg]"; mes "I'm sorry but you don't have any item equipped on your right accessory position."; close; } - set .@equip_id, getequipid(.@part); + .@equip_id = getequipid(.@part); if (.@equip_id < 2966 || .@equip_id > 2969) { mes "[Goldberg]"; mes "However, I can see that the accessory you are wearing is not something I can work on. Please equip a RWC Memorial accessory."; close; } - set .@select, select("Sorry, not interested.:Please, empower my accessory.:Remove the Enchant.")-1; + .@select = select("Sorry, not interested.:Please, empower my accessory.:Remove the Enchant.")-1; if (.@select == 0) { mes "[Goldberg]"; mes "Alright, then, see you next time..."; close; } - set .@equip_refine, getequiprefinerycnt(.@part); + .@equip_refine = getequiprefinerycnt(.@part); setarray .@equip_card[0], getequipcardid(.@part,0),getequipcardid(.@part,1),getequipcardid(.@part,2),getequipcardid(.@part,3); if (.@select == 1) { switch(getequipid(.@part)) { @@ -133,10 +133,10 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "If you have equipped your RWC Memorial accessory on the left side, try to swap it to the right side."; close; } - for(set .@i,3; .@i>=0; set .@i,.@i-1) { + for(.@i = 3; .@i >= 0; --.@i) { if (.@equip_card[.@i] == 0) { - set .@slot, .@i; - set .@op_type, .@option[.@i]; + .@slot = .@i; + .@op_type = .@option[.@i]; break; } } @@ -146,25 +146,25 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "Which enchantment would you like to infuse?"; next; setarray .@enchant_select[0],1,2,3,4; - set .@i, select("Cancel:Fighting Spirit:ATK (%):Max HP:HP")-2; + .@i = select("Cancel:Fighting Spirit:ATK (%):Max HP:HP")-2; break; case 3: setarray .@enchant_select[0],5,6,7; - set .@i, select("Cancel:Spell:MATK (%):SP")-2; + .@i = select("Cancel:Spell:MATK (%):SP")-2; break; case 2: mes "[Goldberg]"; mes "^ff0000Be careful! There is about a 25% chance that the enchantment will fail. If this happens, the item will be destroyed.^000000 Which enchantment would you like to infuse?"; next; setarray .@enchant_select[0],8,9,10,11,12,13,14; - set .@i, select("Cancel:STR:AGI:VIT:INT:DEX:LUK:SP")-2; + .@i = select("Cancel:STR:AGI:VIT:INT:DEX:LUK:SP")-2; break; case 1: mes "[Goldberg]"; mes "^ff0000There is about a 25% chance that the enchantment will fail. If this happens, the item will be destroyed.^000000 Which enchantment would you like to infuse?"; next; setarray .@enchant_select[0],8,9,10,11,12,13,15,16; - set .@i, select("Cancel:STR:AGI:VIT:INT:DEX:LUK:MHP:HP")-2; + .@i = select("Cancel:STR:AGI:VIT:INT:DEX:LUK:MHP:HP")-2; break; case 0: mes "[Goldberg]"; @@ -184,7 +184,7 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ mes "Alright, then, see you next time..."; close; } - set .@enchant_type, .@enchant_select[.@i]; + .@enchant_type = .@enchant_select[.@i]; if (!getequipisequiped(.@part)) { mes "[Goldberg]"; mes "Do not take off your equipment while I'm working, okay?"; @@ -246,25 +246,25 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ } if (.@enchant_type < 8) - set .@i, rand(1,300); // 0% break chance. + .@i = rand(1,300); // 0% break chance. else - set .@i, rand(1,400); // 25% break chance. + .@i = rand(1,400); // 25% break chance. - if (.@i < 151) set .@enchant, .@enc[0]; - else if (.@i < 251) set .@enchant, .@enc[1]; - else if (.@i < 301) set .@enchant, .@enc[2]; - else set .@enchant,9; + if (.@i < 151) .@enchant = .@enc[0]; + else if (.@i < 251) .@enchant = .@enc[1]; + else if (.@i < 301) .@enchant = .@enc[2]; + else .@enchant = 9; - set .@equip_card[.@slot], .@enchant; + .@equip_card[.@slot] = .@enchant; if (.@slot == 2 && .@enchant == 0) { - set .@equip_card[3],0; + .@equip_card[3] = 0; } else if (.@slot == 1 && .@enchant == 0) { - set .@equip_card[2],0; - set .@equip_card[3],0; + .@equip_card[2] = 0; + .@equip_card[3] = 0; } else if (.@slot == 0 && .@enchant == 0) { - set .@equip_card[1],0; - set .@equip_card[2],0; - set .@equip_card[3],0; + .@equip_card[1] = 0; + .@equip_card[2] = 0; + .@equip_card[3] = 0; } delequip .@part; @@ -315,9 +315,9 @@ prontera,147,59,3 script Goldberg#pron 4_M_OILMAN,{ delequip .@part; // GetNonSlotItemSock2 .@equip_refine .@equip_id .@equip_card[0] .@equip_card[1] .@equip_card[2] .@equip_card[3] - for(set .@i,0; .@i<4; set .@i,.@i+1) { + for(.@i = 0; .@i < 4; ++.@i) { if (.@equip_card[.@i] >= 4700) // Armor Enchant System - set .@equip_card[.@i],0; + .@equip_card[.@i] = 0; } getitem2 .@equip_id,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3]; diff --git a/npc/events/StPatrick_2008.txt b/npc/events/StPatrick_2008.txt index c1816374f..a0b5fda61 100644 --- a/npc/events/StPatrick_2008.txt +++ b/npc/events/StPatrick_2008.txt @@ -99,7 +99,7 @@ prt_fild05,170,286,4 script Anxious Leprechaun#8pday 4_M_PATRICK,{ mes "[O'Riley the Leprechaun]"; mes "Ye might try some Firecrackers."; mes "Course, Ye would need a great number of them, Ye would need at least ^FF0000200 Firecreackers^000000"; - set StPatrick2008,1; + StPatrick2008 = 1; close; } else if (StPatrick2008 == 1) { @@ -136,7 +136,7 @@ prt_fild05,170,286,4 script Anxious Leprechaun#8pday 4_M_PATRICK,{ mes "[O'Riley the Leprechaun]"; mes "When ye have had a moment to rest ye legs, come talk to me again and we may speak again"; close2; - set StPatrick2008,3; + StPatrick2008 = 3; getexp 200000,70000; delitem 7721,1; end; @@ -153,7 +153,7 @@ prt_fild05,170,286,4 script Anxious Leprechaun#8pday 4_M_PATRICK,{ mes "I would be so generous to give you some of my famous brew if you would bring me the ill-gotten gains carried by those vile snakes"; next; mes "And if you find one of the treasures of my kin please bring me those coins so that the snakes don't get them."; - set StPatrick2008,4; + StPatrick2008 = 4; close; } else if (StPatrick2008 == 4) { @@ -229,7 +229,7 @@ OnTouch: mes "This box must contain O'Riley's valuables."; mes "Let's bring the box to O'Riley."; close2; - set StPatrick2008,2; + StPatrick2008 = 2; delitem 12018,200; getitem 7721,1; } diff --git a/npc/events/bossnia.txt b/npc/events/bossnia.txt index 8bb48661c..432c8e391 100644 --- a/npc/events/bossnia.txt +++ b/npc/events/bossnia.txt @@ -67,7 +67,7 @@ prontera,132,125,4 script Bossnia Staff#1 4_M_PHILMAN,{ mes "Would you really like to take the challenge?"; mes "Ok, just choose the course."; next; - set .@i, select("First","Second","Third","Fourth"); + .@i = select("First","Second","Third","Fourth"); mes "[Riss]"; mes "Take care, boy~"; mes "Don't hold a grudge against me."; diff --git a/npc/events/children_week.txt b/npc/events/children_week.txt index 48e9231d6..3ba99ebd2 100644 --- a/npc/events/children_week.txt +++ b/npc/events/children_week.txt @@ -40,7 +40,7 @@ prontera,146,91,5 script Pandit chacha#child07 1_M_PUBMASTER,{ mes "Whenever come back again if you want it..."; close; } - set oversea_event9,1; + oversea_event9 = 1; getitem 11705,10; //Special_White_Potion mes "[Pandit chacha]"; mes "Look. This is a child Potion."; @@ -68,7 +68,7 @@ prontera,146,91,5 script Pandit chacha#child07 1_M_PUBMASTER,{ close2; delitem 745,1; //Wedding_Bouquet delitem 748,1; //Witherless_Rose - set oversea_event9,2; + oversea_event9 = 2; getitem 11705,50; //Special_White_Potion end; } diff --git a/npc/events/christmas_2005.txt b/npc/events/christmas_2005.txt index eb80e6be1..c782e3b9d 100644 --- a/npc/events/christmas_2005.txt +++ b/npc/events/christmas_2005.txt @@ -261,7 +261,7 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ next; mes "["+ strcharinfo(0) +"]"; mes "Let's punish!!!!!!!!!!!!!!!!!!!!!!!!!!!"; - set christ_solo05,1; + christ_solo05 = 1; close; case 2: mes "[Enjoy]"; @@ -287,8 +287,8 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ mes "Get lost,you devil!!!!!!"; specialeffect EF_BEGINASURA; specialeffect2 EF_HIT2; - set Hp,Hp/2; - set Hp,Hp/2; + Hp /= 2; + Hp /= 2; close2; warp "prontera",155,230; end; @@ -397,7 +397,7 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ donpcevent "Event#event02::OnCommandEmotion"; misceffect EF_HITLINE2; delitem 604,5; //Branch_of_Dead_Tree - set christ_solo05,6; + christ_solo05 = 6; donpcevent "Happymerry#happymerry02::OnCommandOff"; donpcevent "Christ#christ02::OnCommandOff"; donpcevent "Mas#mas02::OnCommandOff"; @@ -458,7 +458,7 @@ prontera,155,285,3 script Enjoy#enjoy 4_M_MONK,{ mes "Cheer up everybody!!!"; mes "Let's rock till you get happy~!"; mes ""; - set christ_solo05,0; + christ_solo05 = 0; close; } @@ -636,7 +636,7 @@ prontera,188,177,4 script Happymerry#happymerry 4_M_LGTMAN,{ mes "Call him for me!"; mes "I'll go ahead with my bags packed up."; mes "See ya!"; - set christ_solo05,2; + christ_solo05 = 2; close; } else if (christ_solo05 > 1) { @@ -716,7 +716,7 @@ prontera,62,339,3 script Christ#christ 4_M_PECOKNIGHT,{ mes "Go tell ^0000FFMas^000000"; mes "about this!!!"; mes "See ya~~!"; - set christ_solo05,3; + christ_solo05 = 3; close; } else if (christ_solo05 > 2) { @@ -807,7 +807,7 @@ prontera,163,66,7 script Mas#mas 4_M_ALCHE_A,{ mes "Well,bye~."; mes "I'll meet you there!!..."; mes "Herbs~?! Couples?! Whatever~~"; - set christ_solo05,4; + christ_solo05 = 4; close; } else if (christ_solo05 > 3) { @@ -888,7 +888,7 @@ prontera,35,209,5 script Event#event 4_M_SITDOWN,{ mes "Now I should get my ^0000FFBranch of Dead Tree^000000s packed up"; mes "and go punish singles!!!"; mes "Hahahaha.."; - set christ_solo05,5; + christ_solo05 = 5; close; } else if (christ_solo05 > 4) { @@ -1052,7 +1052,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Well then, hope you a good luck!!!"; mes " "; emotion e_no1; - set christ_carol05,1; + christ_carol05 = 1; close; case 4: mes "[Oholy]"; @@ -1186,7 +1186,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 12130,7;//Cookie_Bag close; case 2: @@ -1198,7 +1198,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 529,20;//Candy close; case 3: @@ -1210,7 +1210,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 530,15;//Candy_Striper close; case 4: @@ -1222,7 +1222,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 539,5;//Piece_of_Cake close; case 5: @@ -1234,7 +1234,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 538,10;//Well_baked_Cookie close; case 6: @@ -1246,7 +1246,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 743,1;//Spore_Doll close; case 7: @@ -1258,7 +1258,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 750,1;//Baphomet_Doll close; case 8: @@ -1270,7 +1270,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 751,1;//Osiris_Doll close; case 9: @@ -1282,7 +1282,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 752,1;//Grasshopper_Doll close; @@ -1295,7 +1295,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 753,1;//Monkey_Doll close; case 11: @@ -1307,7 +1307,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 754,1;//Raccoondog_Doll close; case 12: @@ -1320,7 +1320,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 7206,1;//Black_Kitty_Doll close; case 13: @@ -1331,7 +1331,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 7212,1;//Hanging_Doll close; case 14: @@ -1344,7 +1344,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 7277,1;//Munak_Doll close; case 15: @@ -1356,7 +1356,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "Merry Christmas!"; emotion e_heh; delitem 1097,1;//Worn_Out_Page - set christ_carol05,3; + christ_carol05 = 3; getitem 2236,1;//Santa's_Hat close; } @@ -1381,7 +1381,7 @@ prontera,156,242,0 script Oholy#pron::OholyDup 1_F_PRIEST,{ mes "[Oholy]"; mes "Let's think about the neighbors"; mes "and do a good deed during Christmas!"; - set christ_carol05,0; + christ_carol05 = 0; close; } } @@ -1423,7 +1423,7 @@ function script F_carol_devi { mes "Sledge... Reindeer..."; mes "Hmm, I think I got what I need."; mes "Let's go back to Ms.Oholy."; - set christ_carol05,2; + christ_carol05 = 2; getitem 1097,1; //Worn_Out_Page close; case 2: diff --git a/npc/events/christmas_2008.txt b/npc/events/christmas_2008.txt index 192bf25ec..2b6d67eca 100644 --- a/npc/events/christmas_2008.txt +++ b/npc/events/christmas_2008.txt @@ -236,7 +236,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ mes "[Caroller]"; mes "They're definitely as harsh as their name."; mes "Go on please!"; - set iROxmas08carol,1; + iROxmas08carol = 1; close; case 4: @@ -338,7 +338,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ next; delitem 6092,6; emotion e_ok; - set iROxmas08carol,2; + iROxmas08carol = 2; mes "[Caroller]"; mes "Those are all needed."; mes "Isn't that easy?"; @@ -424,7 +424,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ delitem 7312,1; delitem 938,10; delitem 732,1; - set iROxmas08carol,3; + iROxmas08carol = 3; mes "[Caroller]"; mes "Thanks a lot."; mes "Merry Christmas!"; @@ -510,8 +510,8 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ mes "Please visit me after the one hour has passed."; close; } - set .@SantaCardTurn,0; - set .@SantaCardWins,0; + .@SantaCardTurn = 0; + .@SantaCardWins = 0; mes "[Santa Claus]"; mes "Wow! You're so cool!"; next; @@ -557,27 +557,27 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ case 1: mes "["+strcharinfo(0)+"]"; mes "Um...I choose Poring!"; - set .@SantaCardP,1; + .@SantaCardP = 1; next; break; case 2: mes "["+strcharinfo(0)+"]"; mes "Um...I choose Angeling!"; - set .@SantaCardP,2; + .@SantaCardP = 2; next; break; case 3: mes "["+strcharinfo(0)+"]"; mes "Um...I choose Ghostring!"; - set .@SantaCardP,3; + .@SantaCardP = 3; next; } mes "[Santa Claus]"; mes "Let's see!!"; mes "One! Two! Three!"; - set .@SantaCardNpc, rand(1,3); + .@SantaCardNpc = rand(1,3); next; mes "[Santa Claus]"; mes "Let's see!!"; @@ -592,9 +592,9 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ cutin "°í½ºÆ®¸µÄ«µå",4; // Ghostring Card } next; - set .@SantaCardTurn,.@SantaCardTurn+1; + ++.@SantaCardTurn; if (.@SantaCardP == .@SantaCardNpc) { - set .@SantaCardWins,.@SantaCardWins+1; + ++.@SantaCardWins; emotion e_gasp; emotion e_ic,1; cutin "",255; @@ -626,7 +626,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ mes "[Santa Claus]"; mes "Now this gift is for you."; mes "Put your hand into the bag and pick only one."; - set .@SantaCardPrize, rand(1,12); + .@SantaCardPrize = rand(1,12); next; if (.@SantaCardPrize == 1) { getitem 12354,2; @@ -664,7 +664,7 @@ prontera,226,306,4 script Caroller#iROxmas08 1_F_PRIEST,{ else if (.@SantaCardPrize == 12) { getitem 594,3; } - set SantaCardTime,gettimetick(2)+3600; + SantaCardTime = gettimetick(2)+3600; mes "[Santa Claus]"; mes "Good job! Thanks for playing the card game with me!"; mes "Merry Christmas!"; diff --git a/npc/events/easter_2008.txt b/npc/events/easter_2008.txt index 79dfc4cce..5b53831a4 100644 --- a/npc/events/easter_2008.txt +++ b/npc/events/easter_2008.txt @@ -90,7 +90,7 @@ prontera,111,99,5 script Egg Salesman#prt::EggVendor 4W_M_02,{ next; } else { - set .@egg_zeny,.@input*500; + .@egg_zeny = .@input*500; if (Zeny < .@egg_zeny) { mes "[Egg Salesman]"; mes "You don't have enough Zeny."; @@ -173,7 +173,7 @@ prontera,108,96,5 script Cantankerous Geezer#prt::EggGeezer 4_M_SEAMAN,{ mes "giving to them in return?"; close2; if (easter2008 < 1) { - set easter2008,1; + easter2008 = 1; } end; } @@ -341,7 +341,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "more, then why don't you"; mes "bring me 10 Holy Eggs?"; mes "That is my condition."; - set easter2008,2; + easter2008 = 2; close; case 2: mes "[Corps Member]"; @@ -388,7 +388,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "for joining us. Now, I can"; mes "tell you about what we do."; delitem 12019,10; //Holy_Egg - set easter2008,3; + easter2008 = 3; getitem 644,2; //Gift_Box next; mes "[Corps Member]"; @@ -441,7 +441,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "Go and bring me"; mes "33 Holy Eggs! I shall be"; mes "waiting here for your return..."; - set easter2008,4; + easter2008 = 4; close; } else if (easter2008 == 4) { @@ -468,7 +468,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "Sacrifice the Holy Eggs there,"; mes "and then return to me. Now..."; mes "Go, and bring him back to life!"; - set easter2008,5; + easter2008 = 5; close; } else if ((BaseLevel > 40) && (BaseLevel < 61)) { @@ -479,7 +479,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "at the entrance to the 4th"; mes "level. Sacrifice the Holy Eggs"; mes "there, and return him to life!"; - set easter2008,6; + easter2008 = 6; close; } else if ((BaseLevel > 60) && (BaseLevel < 81)) { @@ -490,7 +490,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "Sacrifice the Holy Eggs as soon"; mes "as you get to the 3rd floor."; mes "Go, and bring him back to life!"; - set easter2008,7; + easter2008 = 7; close; } else { @@ -501,7 +501,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "2nd floor. A hero perished"; mes "there, but you shall bring"; mes "him back to the living!"; - set easter2008,8; + easter2008 = 8; close; } } @@ -593,7 +593,7 @@ morocc,131,26,5 script Secret Corps#egg 4_M_MASKMAN,{ mes "and then try again next year."; mes "Farewell, my friend, and I hope"; mes "that you'll assist us again."; - set easter2008,10; + easter2008 = 10; if (BaseLevel < 41) { getexp 5000,0; getexp 5000,0; @@ -658,7 +658,7 @@ pay_dun00,22,127,0 script Trace#egg1 CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { @@ -710,7 +710,7 @@ iz_dun02,340,346,0 script Trace#egg CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { @@ -762,7 +762,7 @@ mjo_dun03,308,256,0 script Trace#egg2 CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { @@ -814,7 +814,7 @@ gl_prison,157,176,0 script Trace#egg3 CLEAR_NPC,{ mes "him know that it didn't work."; close2; delitem 12019,33; //Holy_Egg - set easter2008,9; + easter2008 = 9; end; } else { diff --git a/npc/events/easter_2010.txt b/npc/events/easter_2010.txt index 8276e0774..70ebbe4fa 100644 --- a/npc/events/easter_2010.txt +++ b/npc/events/easter_2010.txt @@ -184,10 +184,10 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ else if (oversea_event9 == 197) playbgm "94.mp3"; // Theme of Rachel else { switch(rand(1,4)) { - case 1: playbgm "13.mp3"; set oversea_event2,520; break; - case 2: playbgm "59.mp3"; set oversea_event3,270; break; - case 3: playbgm "70.mp3"; set oversea_event6,245; break; - case 4: playbgm "94.mp3"; set oversea_event9,197; break; + case 1: playbgm "13.mp3"; oversea_event2 = 520; break; + case 2: playbgm "59.mp3"; oversea_event3 = 270; break; + case 3: playbgm "70.mp3"; oversea_event6 = 245; break; + case 4: playbgm "94.mp3"; oversea_event9 = 197; break; } } } @@ -234,28 +234,28 @@ prontera,202,297,3 script Rina#Easter 4_F_JOB_HUNTER,{ getitem 5852,1; //Easter_Egg_Shell .@BaseExp = (BaseLevel * (BaseLevel / 4)) * ((BaseLevel / 29) + (BaseLevel / 6)) + (5 * BaseLevel / 2); if (ADVJOB == 0) { - if (BaseLevel < 40) set .@nBaseExp, .@BaseExp; - else if (BaseLevel < 50) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel); - else if (BaseLevel < 60) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 20)); - else if (BaseLevel < 70) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); - else if (BaseLevel < 80) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); - else if (BaseLevel < 90) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); - else if (BaseLevel < 99) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); - else set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2) * 2); + if (BaseLevel < 40) .@nBaseExp = .@BaseExp; + else if (BaseLevel < 50) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel); + else if (BaseLevel < 60) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 20)); + else if (BaseLevel < 70) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); + else if (BaseLevel < 80) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); + else if (BaseLevel < 90) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); + else if (BaseLevel < 99) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); + else .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2) * 2); - set .@nJobExp, (JobLevel * (JobLevel - 3) * (JobLevel / 25 + 1) + (16 - (JobLevel * 2))) * 2; + .@nJobExp = (JobLevel * (JobLevel - 3) * (JobLevel / 25 + 1) + (16 - (JobLevel * 2))) * 2; } else { - if (BaseLevel < 30) set .@nBaseExp, .@BaseExp; - else if (BaseLevel < 40) set .@nBaseExp, .@BaseExp + (BaseLevel * 10); - else if (BaseLevel < 50) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * 2); - else if (BaseLevel < 60) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); - else if (BaseLevel < 70) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); - else if (BaseLevel < 80) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); - else if (BaseLevel < 90) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); - else if (BaseLevel < 98) set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * BaseLevel); - else set .@nBaseExp, .@BaseExp + (BaseLevel * BaseLevel * BaseLevel * 2); + if (BaseLevel < 30) .@nBaseExp = .@BaseExp; + else if (BaseLevel < 40) .@nBaseExp = .@BaseExp + (BaseLevel * 10); + else if (BaseLevel < 50) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * 2); + else if (BaseLevel < 60) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 10)); + else if (BaseLevel < 70) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 5)); + else if (BaseLevel < 80) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 3)); + else if (BaseLevel < 90) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * (BaseLevel / 2)); + else if (BaseLevel < 98) .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * BaseLevel); + else .@nBaseExp = .@BaseExp + (BaseLevel * BaseLevel * BaseLevel * 2); - set .@nJobExp, (JobLevel * JobLevel * (JobLevel / 5 + 2) + (20 - JobLevel)) * 3; + .@nJobExp = (JobLevel * JobLevel * (JobLevel / 5 + 2) + (20 - JobLevel)) * 3; } getexp .@nBaseExp,.@nJobExp; mes "[Rina]"; @@ -348,13 +348,13 @@ prontera,204,297,3 script Rina's Little Friend 4_DRAGON_EGG,{ case 1: if (ADVJOB == 0) { if (BaseLevel < 70) - set .@nCharge,400000; + .@nCharge = 400000; else if (BaseLevel < 90) - set .@nCharge,450000; + .@nCharge = 450000; else - set .@nCharge,480000; + .@nCharge = 480000; } else - set .@nCharge,500000; + .@nCharge = 500000; if (countitem(574) < 1 || countitem(1001) < 20 || Zeny < .@nCharge) { mes "[Rina's Little Friend]"; mes "Hmm."; @@ -381,7 +381,7 @@ prontera,204,297,3 script Rina's Little Friend 4_DRAGON_EGG,{ delitem 574,1; //Egg delitem 1001,20; //Sparkling_Dust Zeny -= .@nCharge; - set .@nPercentage, rand(1,100); + .@nPercentage = rand(1,100); if (.@nPercentage <= 41) { mes "[Rina's Little Friend]"; mes "Life is given to the egg."; diff --git a/npc/events/event_skill_reset.txt b/npc/events/event_skill_reset.txt index ab8805736..4b0d2b2a7 100644 --- a/npc/events/event_skill_reset.txt +++ b/npc/events/event_skill_reset.txt @@ -14,7 +14,7 @@ //= Each 1 BaseLv need 20.000 Zeny, so be careful to use skill. //============================================================ yuno,138,187,4 script Hypnotist Teacher 4_F_TELEPORTER,{ - set @npcname$,"[^D5A500Hypnotist^000000]"; + @npcname$ = "[^D5A500Hypnotist^000000]"; mes @npcname$; if(MISC_QUEST & 1024){ diff --git a/npc/events/gdevent_aru.txt b/npc/events/gdevent_aru.txt index 1a69fea76..7b68eb980 100644 --- a/npc/events/gdevent_aru.txt +++ b/npc/events/gdevent_aru.txt @@ -29,7 +29,7 @@ OnTimer3600000: arug_dun01,1,2,1 script Monster Controler1#aru 4_DOG01,{ OnEnable: - set .@callwhere,rand(1,4); + .@callwhere = rand(1,4); if (.@callwhere == 1) { monster "arug_dun01",150,340,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead"; } @@ -67,8 +67,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ .@chk_yourgdname$ = getguildname(getcharid(2)); if ($@gdeventv_a1 == 0) { if ($@gdevents_a$ == "") { - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -141,8 +141,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -152,8 +152,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; close2; setquest 2144; warp "arug_que01",103,133; @@ -161,16 +161,16 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ahhh..."; @@ -199,8 +199,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -273,8 +273,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -284,8 +284,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; close2; setquest 2144; warp "arug_que01",103,133; @@ -293,16 +293,16 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -342,8 +342,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -416,8 +416,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather you friends."; close; @@ -427,8 +427,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_a1,1; - set $@gdevents_a$,.@chk_yourgdname$; + $@gdeventv_a1 = 1; + $@gdevents_a$ = .@chk_yourgdname$; close2; setquest 2144; warp "arug_que01",103,133; @@ -436,16 +436,16 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ } } else { - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -465,8 +465,8 @@ arug_dun01,199,195,5 script Dwarf#aru_gd 4_M_DWARF,{ OnInit: disablenpc "Dwarf#aru_gd"; - set $@gdeventv_a1,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdevents_a$ = ""; end; OnEnable: @@ -476,7 +476,7 @@ OnEnable: arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ specialeffect EF_POISONHIT; - set .@sprchg_gd,rand(1,5); + .@sprchg_gd = rand(1,5); if (.@sprchg_gd == 1) { setnpcdisplay "Pierrot Pier#aru_gd", 4_GHOSTRING; } @@ -502,7 +502,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ } if (strcharinfo(0) == getguildmaster(getcharid(2))) { if ($@gdeventv_a2 == 0) { - set .@que_2143,questprogress(2143,PLAYTIME); + .@que_2143 = questprogress(2143,PLAYTIME); if (!.@que_2143) { setnpcdisplay "Pierrot Pier#aru_gd", 4_M_PIERROT; mes "A lonely clown is juggling."; @@ -657,7 +657,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_a2,1; + $@gdeventv_a2 = 1; donpcevent "Controller#gdevent_a::OnGame_start"; erasequest 2143; close; @@ -674,7 +674,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -759,7 +759,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_a2,10; + $@gdeventv_a2 = 10; donpcevent "Controller#gdevent_a::OnGame_start"; close; } @@ -782,7 +782,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ mapannounce "arug_que01", "Pierrot Pier: You've completeled an unbelievable task, I will give you the wonderful gift my master has prepared!! Ha!",bc_map,"0x99CC00"; mapannounce "arug_que01", "Pierrot Pier: Here, take Pierre's Treasure Boxes.",bc_map,"0x99CC00"; donpcevent "eff_mvp#aru_gd::OnMVP"; - set $@gdeventv_a2,5; + $@gdeventv_a2 = 5; getitem 14596,10; //Pierre_Treasurebox close; } @@ -815,7 +815,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -925,7 +925,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -989,7 +989,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_a::OnStop"; - set $@gdeventv_a2,3; + $@gdeventv_a2 = 3; donpcevent "eff_mvp#aru_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -1018,7 +1018,7 @@ arug_que01,100,81,3 script Pierrot Pier#aru_gd 4_M_PIERROT,{ arug_que01,10,10,3 script Controller#gdevent_a 4_DOG01,{ OnInit: - set $@gdeventv_a2,0; + $@gdeventv_a2 = 0; end; OnWin: @@ -1036,7 +1036,7 @@ OnGame_start: donpcevent "paper_sp_7_a::OnEnable"; donpcevent "paper_sp_8_a::OnEnable"; donpcevent "paper_sp_9_a::OnEnable"; - set .@roulette_where,rand(1,9); + .@roulette_where = rand(1,9); if (.@roulette_where == 1) { donpcevent "paper_sp_1_a::OnBingo"; } @@ -1078,7 +1078,7 @@ OnTimer60000: mapannounce "arug_que01", "Pierrot Pier: Time is up!",bc_map,"0x99CC00"; mapwarp "arug_que01","arug_que01",100,79; enablenpc "removepp_aru_gd"; - set $@gdeventv_a2,2; + $@gdeventv_a2 = 2; end; OnTimer63000: @@ -1090,23 +1090,22 @@ arug_que01,87,93,0 script paper_sp_1_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while1,0; + .@paper_while1 = 0; while(1) { if (.@paper_while1 == 100) { break; - } - else { - set .@paper_while1,.@paper_while1+1; - set .@paper_x1,rand(81,95); - set .@paper_y1,rand(87,100); + } else { + ++.@paper_while1; + .@paper_x1 = rand(81,95); + .@paper_y1 = rand(87,100); makeitem 6030,1,"arug_que01",.@paper_x1,.@paper_y1; //Glitering_PaperA } } end; OnBingo: - set .@paper_x1,rand(81,95); - set .@paper_y1,rand(87,100); + .@paper_x1 = rand(81,95); + .@paper_y1 = rand(87,100); makeitem 6031,1,"arug_que01",.@paper_x1,.@paper_y1; //Glitering_PaperB end; } @@ -1115,23 +1114,22 @@ arug_que01,102,93,0 script paper_sp_2_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while2,0; + .@paper_while2 = 0; while(1) { if (.@paper_while2 == 100) { break; - } - else { - set .@paper_while2,.@paper_while2+1; - set .@paper_x2,rand(96,110); - set .@paper_y2,rand(87,100); + } else { + ++.@paper_while2; + .@paper_x2 = rand(96,110); + .@paper_y2 = rand(87,100); makeitem 6030,1,"arug_que01",.@paper_x2,.@paper_y2; //Glitering_PaperA } } end; OnBingo: - set .@paper_x2,rand(96,110); - set .@paper_y2,rand(87,100); + .@paper_x2 = rand(96,110); + .@paper_y2 = rand(87,100); makeitem 6031,1,"arug_que01",.@paper_x2,.@paper_y2; //Glitering_PaperB end; } @@ -1140,23 +1138,22 @@ arug_que01,117,93,0 script paper_sp_3_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while3,0; + .@paper_while3 = 0; while(1) { if (.@paper_while3 == 100) { break; - } - else { - set .@paper_while3,.@paper_while3+1; - set .@paper_x3,rand(111,124); - set .@paper_y3,rand(87,100); + } else { + ++.@paper_while3; + .@paper_x3 = rand(111,124); + .@paper_y3 = rand(87,100); makeitem 6030,1,"arug_que01",.@paper_x3,.@paper_y3; //Glitering_PaperA } } end; OnBingo: - set .@paper_x3,rand(111,124); - set .@paper_y3,rand(87,100); + .@paper_x3 = rand(111,124); + .@paper_y3 = rand(87,100); makeitem 6031,1,"arug_que01",.@paper_x3,.@paper_y3; //Glitering_PaperB end; } @@ -1165,23 +1162,23 @@ arug_que01,87,80,0 script paper_sp_4_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while4,0; + .@paper_while4 = 0; while(1) { if (.@paper_while4 == 100) { break; } else { - set .@paper_while4,.@paper_while4+1; - set .@paper_x4,rand(81,95); - set .@paper_y4,rand(73,86); + ++.@paper_while4; + .@paper_x4 = rand(81,95); + .@paper_y4 = rand(73,86); makeitem 6030,1,"arug_que01",.@paper_x4,.@paper_y4; //Glitering_PaperA } } end; OnBingo: - set .@paper_x4,rand(81,95); - set .@paper_y4,rand(73,86); + .@paper_x4 = rand(81,95); + .@paper_y4 = rand(73,86); makeitem 6031,1,"arug_que01",.@paper_x4,.@paper_y4; //Glitering_PaperB end; } @@ -1190,23 +1187,22 @@ arug_que01,102,80,0 script paper_sp_5_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while5,0; + .@paper_while5 = 0; while(1) { if (.@paper_while5 == 100) { break; - } - else { - set .@paper_while5,.@paper_while5+1; - set .@paper_x5,rand(96,110); - set .@paper_y5,rand(73,86); + } else { + ++.@paper_while5; + .@paper_x5 = rand(96,110); + .@paper_y5 = rand(73,86); makeitem 6030,1,"arug_que01",.@paper_x5,.@paper_y5; //Glitering_PaperA } } end; OnBingo: - set .@paper_x5,rand(96,110); - set .@paper_y5,rand(73,86); + .@paper_x5 = rand(96,110); + .@paper_y5 = rand(73,86); makeitem 6031,1,"arug_que01",.@paper_x5,.@paper_y5; //Glitering_PaperB end; } @@ -1215,23 +1211,22 @@ arug_que01,117,80,0 script paper_sp_6_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while6,0; + .@paper_while6 = 0; while(1) { if (.@paper_while6 == 100) { break; - } - else { - set .@paper_while6,.@paper_while6+1; - set .@paper_x6,rand(111,124); - set .@paper_y6,rand(73,86); + } else { + ++.@paper_while6; + .@paper_x6 = rand(111,124); + .@paper_y6 = rand(73,86); makeitem 6030,1,"arug_que01",.@paper_x6,.@paper_y6; //Glitering_PaperA } } end; OnBingo: - set .@paper_x6,rand(111,124); - set .@paper_y6,rand(73,86); + .@paper_x6 = rand(111,124); + .@paper_y6 = rand(73,86); makeitem 6031,1,"arug_que01",.@paper_x6,.@paper_y6; //Glitering_PaperB end; } @@ -1240,23 +1235,22 @@ arug_que01,87,65,0 script paper_sp_7_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while7,0; + .@paper_while7 = 0; while(1) { if (.@paper_while7 == 100) { break; - } - else { - set .@paper_while7,.@paper_while7+1; - set .@paper_x7,rand(81,95); - set .@paper_y7,rand(59,72); + } else { + ++.@paper_while7; + .@paper_x7 = rand(81,95); + .@paper_y7 = rand(59,72); makeitem 6030,1,"arug_que01",.@paper_x7,.@paper_y7; //Glitering_PaperA } } end; OnBingo: - set .@paper_x7,rand(81,95); - set .@paper_y7,rand(59,72); + .@paper_x7 = rand(81,95); + .@paper_y7 = rand(59,72); makeitem 6031,1,"arug_que01",.@paper_x7,.@paper_y7; //Glitering_PaperB end; } @@ -1265,23 +1259,23 @@ arug_que01,102,65,0 script paper_sp_8_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while8,0; + .@paper_while8 = 0; while(1) { if (.@paper_while8 == 100) { break; } else { - set .@paper_while8,.@paper_while8+1; - set .@paper_x8,rand(96,110); - set .@paper_y8,rand(59,72); + ++.@paper_while8; + .@paper_x8 = rand(96,110); + .@paper_y8 = rand(59,72); makeitem 6030,1,"arug_que01",.@paper_x8,.@paper_y8; //Glitering_PaperA } } end; OnBingo: - set .@paper_x8,rand(96,110); - set .@paper_y8,rand(59,72); + .@paper_x8 = rand(96,110); + .@paper_y8 = rand(59,72); makeitem 6031,1,"arug_que01",.@paper_x8,.@paper_y8; //Glitering_PaperB end; } @@ -1290,23 +1284,23 @@ arug_que01,117,65,0 script paper_sp_9_a HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while9,0; + .@paper_while9 = 0; while(1) { if (.@paper_while9 == 100) { break; } else { - set .@paper_while9,.@paper_while9+1; - set .@paper_x9,rand(111,124); - set .@paper_y9,rand(59,72); + ++.@paper_while9; + .@paper_x9 = rand(111,124); + .@paper_y9 = rand(59,72); makeitem 6030,1,"arug_que01",.@paper_x9,.@paper_y9; //Glitering_PaperA } } end; OnBingo: - set .@paper_x9,rand(111,124); - set .@paper_y9,rand(59,72); + .@paper_x9 = rand(111,124); + .@paper_y9 = rand(59,72); makeitem 6031,1,"arug_que01",.@paper_x9,.@paper_y9; //Glitering_PaperB end; } @@ -1319,8 +1313,8 @@ OnInit: end; OnTouch2: - set .@paper_aru_gd,countitem(6030); - set .@spaper_aru_gd,countitem(6031); + .@paper_aru_gd = countitem(6030); + .@spaper_aru_gd = countitem(6031); if ((.@paper_aru_gd > 0) || (.@spaper_aru_gd > 0)) { delitem 6030,.@paper_aru_gd; //Glitering_PaperA delitem 6031,.@spaper_aru_gd; //Glitering_PaperB @@ -1444,7 +1438,7 @@ OnEnable: OnMyMobDead: if (mobcount("arug_que01","treg#aru_gd::OnMyMobDead") == 0) { mapannounce "arug_que01", "Pierrot Pier: Beep! Oh, you already opened the gift? You sure are fast now, beep!",bc_map,"0x99CC00"; - set $@gdeventv_a2,5; + $@gdeventv_a2 = 5; } end; } @@ -1522,9 +1516,9 @@ arug_dun01,5,5,1 script Event controller#aru_gd 4_DOG01,{ donpcevent "Monster Controler1#aru::OnControler1#aru_gd"; donpcevent "Monster Controler1#aru::OnControler1#aru_gd"; disablenpc "Dwarf#aru_gd"; - set $@gdeventv_a1,0; - set $@gdeventv_a2,0; - set $@gdevents_a$,""; + $@gdeventv_a1 = 0; + $@gdeventv_a2 = 0; + $@gdevents_a$ = ""; close; case 2: mes "Good bye~"; diff --git a/npc/events/gdevent_sch.txt b/npc/events/gdevent_sch.txt index a6df13889..22b70836e 100644 --- a/npc/events/gdevent_sch.txt +++ b/npc/events/gdevent_sch.txt @@ -29,7 +29,7 @@ OnTimer3600000: schg_dun01,1,2,1 script Monster Controler1#sch 4_DOG01,{ OnEnable: - set .@callwhere,rand(1,4); + .@callwhere = rand(1,4); if (.@callwhere == 1) { monster "schg_dun01",164,236,"Kublin",1980,1,"Monster Controler1#sch::OnMyMobDead"; } @@ -67,8 +67,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ .@chk_yourgdname$ = getguildname(getcharid(2)); if ($@gdeventv_s1 == 0) { if ($@gdevents_s$ == "") { - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -141,8 +141,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -152,8 +152,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; close2; setquest 2144; warp "schg_que01",103,133; @@ -161,16 +161,16 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ahhh..."; @@ -199,8 +199,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -273,8 +273,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather your friends."; close; @@ -284,8 +284,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; close2; setquest 2144; warp "schg_que01",103,133; @@ -293,16 +293,16 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -341,8 +341,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; mes "[Dwarf]"; mes "Help me!"; mes "Please, help me!"; @@ -415,8 +415,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ next; switch(select("Wait! I'm not ready yet.:Let's go!")) { case 1: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "Take your time, and find a place to gather you friends."; close; @@ -426,8 +426,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ mes "If your friends visit me again later, I will guide them to that area again."; mes "Don't forget, dwarves are grateful beings! Hahaha!"; delitem 6010,1; //Pickaxe - set $@gdeventv_s1,1; - set $@gdevents_s$,.@chk_yourgdname$; + $@gdeventv_s1 = 1; + $@gdevents_s$ = .@chk_yourgdname$; close2; setquest 2144; warp "schg_que01",103,133; @@ -435,16 +435,16 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ } } else { - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; mes "[Morestone]"; mes "I will tell you how to find him."; mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that."; close; } case 2: - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; emotion e_sob; mes "[Dwarf]"; mes "Ah...."; @@ -464,8 +464,8 @@ schg_dun01,194,148,5 script Dwarf#sch_gd 4_M_DWARF,{ OnInit: disablenpc "Dwarf#sch_gd"; - set $@gdeventv_s1,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdevents_s$ = ""; end; OnEnable: @@ -475,7 +475,7 @@ OnEnable: schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ specialeffect EF_POISONHIT; - set .@sprchg_gd,rand(1,5); + .@sprchg_gd = rand(1,5); if (.@sprchg_gd == 1) { setnpcdisplay "Pierrot Pier#sch_gd", 4_GHOSTRING; } @@ -656,7 +656,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "schg_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_s2,1; + $@gdeventv_s2 = 1; donpcevent "Controller#gdevent_s::OnGame_start"; erasequest 2143; close; @@ -673,7 +673,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -758,7 +758,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ mes "[Pierrot Pier]"; mes "Let the game.. Begin!"; mapannounce "schg_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00"; - set $@gdeventv_s2,10; + $@gdeventv_s2 = 10; donpcevent "Controller#gdevent_s::OnGame_start"; close; } @@ -781,7 +781,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ mapannounce "schg_que01", "Pierrot Pier: You've completeled an unbelievable task, I will give you the wonderful gift my master has prepared!! Ha!",bc_map,"0x99CC00"; mapannounce "schg_que01", "Pierrot Pier: Here, take Pierre's Treasure Boxes.",bc_map,"0x99CC00"; donpcevent "eff_mvp#sch_gd::OnMVP"; - set $@gdeventv_s2,5; + $@gdeventv_s2 = 5; getitem 14596,10; //Pierre_Treasurebox close; } @@ -814,7 +814,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -924,7 +924,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -988,7 +988,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ next; if (countitem(6031) > 0) { donpcevent "Controller#gdevent_s::OnStop"; - set $@gdeventv_s2,3; + $@gdeventv_s2 = 3; donpcevent "eff_mvp#sch_gd::OnMVP"; mes "[Pierrot Pier]"; mes "Wow~~!!"; @@ -1017,7 +1017,7 @@ schg_que01,100,81,3 script Pierrot Pier#sch_gd 4_M_PIERROT,{ schg_que01,10,10,3 script Controller#gdevent_s 4_DOG01,{ OnInit: - set $@gdeventv_s2,0; + $@gdeventv_s2 = 0; end; OnWin: @@ -1035,7 +1035,7 @@ OnGame_start: donpcevent "paper_sp_7_s::OnEnable"; donpcevent "paper_sp_8_s::OnEnable"; donpcevent "paper_sp_9_s::OnEnable"; - set .@roulette_where,rand(1,9); + .@roulette_where = rand(1,9); if (.@roulette_where == 1) { donpcevent "paper_sp_1_s::OnBingo"; } @@ -1077,7 +1077,7 @@ OnTimer60000: mapannounce "schg_que01", "Pierrot Pier: Time is up!",bc_map,"0x99CC00"; mapwarp "schg_que01","schg_que01",100,79; enablenpc "removepp_sch_gd"; - set $@gdeventv_s2,2; + $@gdeventv_s2 = 2; end; OnTimer63000: @@ -1089,23 +1089,22 @@ schg_que01,87,93,0 script paper_sp_1_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while1,0; + .@paper_while1 = 0; while(1) { if (.@paper_while1 == 100) { break; - } - else { - set .@paper_while1,.@paper_while1+1; - set .@paper_x1,rand(81,95); - set .@paper_y1,rand(87,100); + } else { + ++.@paper_while1; + .@paper_x1 = rand(81,95); + .@paper_y1 = rand(87,100); makeitem 6030,1,"schg_que01",.@paper_x1,.@paper_y1; //Glitering_PaperA } } end; OnBingo: - set .@paper_x1,rand(81,95); - set .@paper_y1,rand(87,100); + .@paper_x1 = rand(81,95); + .@paper_y1 = rand(87,100); makeitem 6031,1,"schg_que01",.@paper_x1,.@paper_y1; //Glitering_PaperB end; } @@ -1114,23 +1113,22 @@ schg_que01,102,93,0 script paper_sp_2_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while2,0; + .@paper_while2 = 0; while(1) { if (.@paper_while2 == 100) { break; - } - else { - set .@paper_while2,.@paper_while2+1; - set .@paper_x2,rand(96,110); - set .@paper_y2,rand(87,100); + } else { + ++.@paper_while2; + .@paper_x2 = rand(96,110); + .@paper_y2 = rand(87,100); makeitem 6030,1,"schg_que01",.@paper_x2,.@paper_y2; //Glitering_PaperA } } end; OnBingo: - set .@paper_x2,rand(96,110); - set .@paper_y2,rand(87,100); + .@paper_x2 = rand(96,110); + .@paper_y2 = rand(87,100); makeitem 6031,1,"schg_que01",.@paper_x2,.@paper_y2; //Glitering_PaperB end; } @@ -1139,23 +1137,22 @@ schg_que01,117,93,0 script paper_sp_3_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while3,0; + .@paper_while3 = 0; while(1) { if (.@paper_while3 == 100) { break; - } - else { - set .@paper_while3,.@paper_while3+1; - set .@paper_x3,rand(111,124); - set .@paper_y3,rand(87,100); + } else { + ++.@paper_while3; + .@paper_x3 = rand(111,124); + .@paper_y3 = rand(87,100); makeitem 6030,1,"schg_que01",.@paper_x3,.@paper_y3; //Glitering_PaperA } } end; OnBingo: - set .@paper_x3,rand(111,124); - set .@paper_y3,rand(87,100); + .@paper_x3 = rand(111,124); + .@paper_y3 = rand(87,100); makeitem 6031,1,"schg_que01",.@paper_x3,.@paper_y3; //Glitering_PaperB end; } @@ -1164,23 +1161,22 @@ schg_que01,87,80,0 script paper_sp_4_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while4,0; + .@paper_while4 = 0; while(1) { if (.@paper_while4 == 100) { break; - } - else { - set .@paper_while4,.@paper_while4+1; - set .@paper_x4,rand(81,95); - set .@paper_y4,rand(73,86); + } else { + ++.@paper_while4; + .@paper_x4 = rand(81,95); + .@paper_y4 = rand(73,86); makeitem 6030,1,"schg_que01",.@paper_x4,.@paper_y4; //Glitering_PaperA } } end; OnBingo: - set .@paper_x4,rand(81,95); - set .@paper_y4,rand(73,86); + .@paper_x4 = rand(81,95); + .@paper_y4 = rand(73,86); makeitem 6031,1,"schg_que01",.@paper_x4,.@paper_y4; //Glitering_PaperB end; } @@ -1189,23 +1185,23 @@ schg_que01,102,80,0 script paper_sp_5_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while5,0; + .@paper_while5 = 0; while(1) { if (.@paper_while5 == 100) { break; } else { - set .@paper_while5,.@paper_while5+1; - set .@paper_x5,rand(96,110); - set .@paper_y5,rand(73,86); + ++.@paper_while5; + .@paper_x5 = rand(96,110); + .@paper_y5 = rand(73,86); makeitem 6030,1,"schg_que01",.@paper_x5,.@paper_y5; //Glitering_PaperA } } end; OnBingo: - set .@paper_x5,rand(96,110); - set .@paper_y5,rand(73,86); + .@paper_x5 = rand(96,110); + .@paper_y5 = rand(73,86); makeitem 6031,1,"schg_que01",.@paper_x5,.@paper_y5; //Glitering_PaperB end; } @@ -1214,23 +1210,22 @@ schg_que01,117,80,0 script paper_sp_6_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while6,0; + .@paper_while6 = 0; while(1) { if (.@paper_while6 == 100) { break; - } - else { - set .@paper_while6,.@paper_while6+1; - set .@paper_x6,rand(111,124); - set .@paper_y6,rand(73,86); + } else { + ++.@paper_while6; + .@paper_x6 = rand(111,124); + .@paper_y6 = rand(73,86); makeitem 6030,1,"schg_que01",.@paper_x6,.@paper_y6; //Glitering_PaperA } } end; OnBingo: - set .@paper_x6,rand(111,124); - set .@paper_y6,rand(73,86); + .@paper_x6 = rand(111,124); + .@paper_y6 = rand(73,86); makeitem 6031,1,"schg_que01",.@paper_x6,.@paper_y6; //Glitering_PaperB end; } @@ -1239,23 +1234,22 @@ schg_que01,87,65,0 script paper_sp_7_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while7,0; + .@paper_while7 = 0; while(1) { if (.@paper_while7 == 100) { break; - } - else { - set .@paper_while7,.@paper_while7+1; - set .@paper_x7,rand(81,95); - set .@paper_y7,rand(59,72); + } else { + ++.@paper_while7; + .@paper_x7 = rand(81,95); + .@paper_y7 = rand(59,72); makeitem 6030,1,"schg_que01",.@paper_x7,.@paper_y7; //Glitering_PaperA } } end; OnBingo: - set .@paper_x7,rand(81,95); - set .@paper_y7,rand(59,72); + .@paper_x7 = rand(81,95); + .@paper_y7 = rand(59,72); makeitem 6031,1,"schg_que01",.@paper_x7,.@paper_y7; //Glitering_PaperB end; } @@ -1264,23 +1258,22 @@ schg_que01,102,65,0 script paper_sp_8_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while8,0; + .@paper_while8 = 0; while(1) { if (.@paper_while8 == 100) { break; - } - else { - set .@paper_while8,.@paper_while8+1; - set .@paper_x8,rand(96,110); - set .@paper_y8,rand(59,72); + } else { + ++.@paper_while8; + .@paper_x8 = rand(96,110); + .@paper_y8 = rand(59,72); makeitem 6030,1,"schg_que01",.@paper_x8,.@paper_y8; //Glitering_PaperA } } end; OnBingo: - set .@paper_x8,rand(96,110); - set .@paper_y8,rand(59,72); + .@paper_x8 = rand(96,110); + .@paper_y8 = rand(59,72); makeitem 6031,1,"schg_que01",.@paper_x8,.@paper_y8; //Glitering_PaperB end; } @@ -1289,23 +1282,22 @@ schg_que01,117,65,0 script paper_sp_9_s HIDDEN_WARP_NPC,{ end; OnEnable: - set .@paper_while9,0; + .@paper_while9 = 0; while(1) { if (.@paper_while9 == 100) { break; - } - else { - set .@paper_while9,.@paper_while9+1; - set .@paper_x9,rand(111,124); - set .@paper_y9,rand(59,72); + } else { + ++.@paper_while9; + .@paper_x9 = rand(111,124); + .@paper_y9 = rand(59,72); makeitem 6030,1,"schg_que01",.@paper_x9,.@paper_y9; //Glitering_PaperA } } end; OnBingo: - set .@paper_x9,rand(111,124); - set .@paper_y9,rand(59,72); + .@paper_x9 = rand(111,124); + .@paper_y9 = rand(59,72); makeitem 6031,1,"schg_que01",.@paper_x9,.@paper_y9; //Glitering_PaperB end; } @@ -1318,8 +1310,8 @@ OnInit: end; OnTouch2: - set .@paper_sch_gd,countitem(6030); - set .@spaper_sch_gd,countitem(6031); + .@paper_sch_gd = countitem(6030); + .@spaper_sch_gd = countitem(6031); if ((.@paper_sch_gd > 0) || (.@spaper_sch_gd > 0)) { delitem 6030,.@paper_sch_gd; //Glitering_PaperA delitem 6031,.@spaper_sch_gd; //Glitering_PaperB @@ -1443,7 +1435,7 @@ OnEnable: OnMyMobDead: if (mobcount("schg_que01","treg#sch_gd::OnMyMobDead") == 0) { mapannounce "schg_que01", "Pierrot Pier: Beep! Oh, you already opened the gift? You sure are fast now, beep!",bc_map,"0x99CC00"; - set $@gdeventv_s2,5; + $@gdeventv_s2 = 5; } end; } @@ -1521,9 +1513,9 @@ schg_dun01,5,5,1 script Event controller#sch_gd 4_DOG01,{ donpcevent "Monster Controler1#sch::OnControler1#sch_gd"; donpcevent "Monster Controler1#sch::OnControler1#sch_gd"; disablenpc "Dwarf#sch_gd"; - set $@gdeventv_s1,0; - set $@gdeventv_s2,0; - set $@gdevents_s$,""; + $@gdeventv_s1 = 0; + $@gdeventv_s2 = 0; + $@gdevents_s$ = ""; close; case 2: mes "Good bye~"; diff --git a/npc/events/god_se_festival.txt b/npc/events/god_se_festival.txt index 54bf2b6d3..3b7dd50e8 100644 --- a/npc/events/god_se_festival.txt +++ b/npc/events/god_se_festival.txt @@ -45,7 +45,7 @@ yuno,1,1,0 script Festival Manager#gq_fes0 4_F_HUGIRL,{ } yuno,118,192,5 script Rmimi Ravies#gq_fes01 4_F_HUGIRL,{ - set .@GID, getcharid(2); + .@GID = getcharid(2); if (countitem(7840) > 0) { mes "[Rmimi Ravies]"; mes "This is the flower."; @@ -166,7 +166,7 @@ OnDisable: OnStart: initnpctimer; - set $@gqse_festival,1; + $@gqse_festival = 1; end; OnCall: @@ -197,7 +197,7 @@ OnCall: OnOver: killmonster "yuno","Rmimi Ravies#gq_fes01::OnMyMobDead"; - set $@gqse_festival,0; + $@gqse_festival = 0; stopnpctimer; end; @@ -423,7 +423,7 @@ rachel,1,1,0 script Festival Manager#gq_fes2 4_F_HUGIRL,{ } rachel,132,117,3 script Rhehe Ravies#gq_fes03 4_F_HUGIRL,{ - set .@GID, getcharid(2); + .@GID = getcharid(2); if (countitem(7840) > 0) { mes "[Rhehe Ravies]"; mes "A flower!!"; @@ -548,7 +548,7 @@ OnDisable: OnStart: initnpctimer; - set $@gqse_festival,1; + $@gqse_festival = 1; end; OnCall: @@ -579,7 +579,7 @@ OnCall: OnOver: killmonster "rachel","Rhehe Ravies#gq_fes03::OnMyMobDead"; - set $@gqse_festival,0; + $@gqse_festival = 0; stopnpctimer; end; diff --git a/npc/events/halloween_2006.txt b/npc/events/halloween_2006.txt index 06c101529..426bff65b 100644 --- a/npc/events/halloween_2006.txt +++ b/npc/events/halloween_2006.txt @@ -296,7 +296,7 @@ geffen,145,132,3 script Hoirin#06_hw 4_F_NOVICE,{ mes "[Hoirin]"; mes "Just Bring Pumpkin Mojo, Pumpkin, and a Egg."; mes "Leave the rest for me..You'll get to try the best pumkin pie!"; - set halloween, 100; + halloween = 100; close; } mes "[Hoirin]"; @@ -355,7 +355,7 @@ geffen,145,132,3 script Hoirin#06_hw 4_F_NOVICE,{ if (select("Send me.:It's ok.") == 1) { mes "[Hoirin]"; mes "Ok, go get the eggs."; - set halloween, 101; + halloween = 101; close2; warp "nif_fild01", 162, 113; end; @@ -434,7 +434,7 @@ nif_in,19,32,3 script Deviruchi#06_hw 4_DEVIRUCHI,{ mes "Hmm...This would be good."; mes "Here take this, and thanks again~"; delitem 12192, 1;//Pumpkin_Pie - set @hw_temp,rand(1,3); + @hw_temp = rand(1,3); if (@hw_temp == 2) getitem 12130,1; //Cookie_Bag else getitem 7460,3; //Nifl_Express_Ticket close; @@ -518,7 +518,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ mes "Thanks."; mes "Here are the eggs."; Zeny -= 2000; - set halloween, 102; + halloween = 102; getitem 574,2; //Egg close; } @@ -534,7 +534,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ mes "Thanks."; mes "Here are the eggs."; Zeny -= 1000; - set halloween, 102; + halloween = 102; getitem 574,1; //Egg close; } @@ -614,7 +614,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ else break; } - set .@hw_egg, .@input * 1000; + .@hw_egg = .@input * 1000; if (Zeny < @hw_egg) { mes "[Chicken Masta]"; mes "You don't seem to have enough zeny."; @@ -626,7 +626,7 @@ nif_fild01,165,115,3 script Chicken Masta#06_hw 4_M_NFDEADMAN2,{ mes "If you want more eggs, find me more chickens."; Zeny -= @hw_egg; getitem 574, @input;//Egg - set halloween, 102; + halloween = 102; close; } else { @@ -656,7 +656,7 @@ nif_fild01,167,113,3 script Masta's chicken#06_hw01 4_NFCOCK,{ emotion e_omg; specialeffect EF_TELEPORTATION; mes "The magic spell has been casted."; - set halloween, 103; + halloween = 103; disablenpc "Masta's chicken#"+strnpcinfo(1); close2; sleep 180000; @@ -676,7 +676,7 @@ nif_fild01,167,113,3 script Masta's chicken#06_hw01 4_NFCOCK,{ } - script HwChicken2::HwChicken2 -1,{ - set @egg_temp,rand(1,4); + @egg_temp = rand(1,4); if( @egg_temp == 3) { mes "As soon as you got close to the chicken and touched it, it disappeared completely."; mes "You got an 'egg' in the place where the chicken disappeared."; @@ -692,7 +692,7 @@ nif_fild01,167,113,3 script Masta's chicken#06_hw01 4_NFCOCK,{ } - script HwChicken3::HwChicken3 -1,{ - set @egg_temp,rand(1,4); + @egg_temp = rand(1,4); if( @egg_temp == 3) { mes "As soon as you got close to the chicken and touched it, it disappeared completely."; mes "You got an 'egg' in the place where the chicken disappeared."; diff --git a/npc/events/halloween_2009.txt b/npc/events/halloween_2009.txt index 95b3e2a11..f67841c15 100644 --- a/npc/events/halloween_2009.txt +++ b/npc/events/halloween_2009.txt @@ -246,80 +246,80 @@ prontera,220,72,5 duplicate(09Treats) Trick or Treater#iRO8 4_M_KID1,2,2 if (.@mapname$ == "prontera") { switch(select("Geffen:Payon:Alberta:Aldebaran")) { case 1: - set .@HallowTown,3; + .@HallowTown = 3; break; case 2: - set .@HallowTown,2; + .@HallowTown = 2; break; case 3: - set .@HallowTown,4; + .@HallowTown = 4; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "payon") { switch(select("Prontera:Geffen:Alberta:Aldebaran")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,3; + .@HallowTown = 3; break; case 3: - set .@HallowTown,4; + .@HallowTown = 4; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "geffen") { switch(select("Prontera:Payon:Alberta:Aldebaran")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,2; + .@HallowTown = 2; break; case 3: - set .@HallowTown,4; + .@HallowTown = 4; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "alberta") { switch(select("Prontera:Geffen:Payon:Aldebaran")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,3; + .@HallowTown = 3; break; case 3: - set .@HallowTown,2; + .@HallowTown = 2; break; case 4: - set .@HallowTown,5; + .@HallowTown = 5; break; } } else if (.@mapname$ == "aldebaran") { switch(select("Prontera:Geffen:Payon:Alberta")) { case 1: - set .@HallowTown,1; + .@HallowTown = 1; break; case 2: - set .@HallowTown,3; + .@HallowTown = 3; break; case 3: - set .@HallowTown,2; + .@HallowTown = 2; break; case 4: - set .@HallowTown,4; + .@HallowTown = 4; break; } } @@ -347,14 +347,14 @@ prontera,220,72,5 duplicate(09Treats) Trick or Treater#iRO8 4_M_KID1,2,2 break; } else { - set .@fabric,countitem(1059); - set .@jack,countitem(1062); - set .@worn,countitem(6299); - set .@crushed,countitem(6298); - set .@whispers,0; - set .@darklords,0; + .@fabric = countitem(1059); + .@jack = countitem(1062); + .@worn = countitem(6299); + .@crushed = countitem(6298); + .@whispers = 0; + .@darklords = 0; - set .@total,.@fabric + .@jack + .@worn + .@crushed; + .@total = .@fabric + .@jack + .@worn + .@crushed; if(.@total < .@input) { mes "[Halloween Wizard]"; @@ -367,49 +367,49 @@ prontera,220,72,5 duplicate(09Treats) Trick or Treater#iRO8 4_M_KID1,2,2 if(.@fabric > 0) { if(.@fabric >= .@input) { delitem 1059,.@input; - set .@whispers,.@whispers+.@input; - set .@input,0; + .@whispers += .@input; + .@input = 0; } else{ delitem 1059,.@fabric; - set .@input,.@input - .@fabric; - set .@whispers,.@whispers+.@fabric; + .@input -= .@fabric; + .@whispers += .@fabric; } } if(.@worn > 0 && .@input != 0) { if(.@worn >= .@input) { delitem 6299,.@input; - set .@whispers,.@whispers+.@input; - set .@input,0; + .@whispers += .@input; + .@input = 0; } else{ delitem 6299,.@worn; - set .@input,.@input - .@worn; - set .@whispers,.@whispers+.@worn; + .@input -= .@worn; + .@whispers += .@worn; } } if(.@jack > 0 && .@input != 0) { if(.@jack >= .@input) { delitem 1062,.@input; - set .@darklords,.@darklords+.@input; - set .@input,0; + .@darklords += .@input; + .@input = 0; } else{ delitem 1062,.@jack; - set .@input,.@input - .@jack; - set .@darklords,.@darklords+.@jack; + .@input -= .@jack; + .@darklords += .@jack; } } if(.@crushed > 0 && .@input != 0) { if(.@crushed >= .@input) { delitem 6298,.@input; - set .@darklords,.@darklords+.@input; - set .@input,0; + .@darklords += .@input; + .@input = 0; } else{ delitem 6298,.@crushed; - set .@input,.@input - .@crushed; - set .@darklords,.@darklords+.@crushed; + .@input -= .@crushed; + .@darklords += .@crushed; } } if (.@input > 0) { diff --git a/npc/events/lunar_2008.txt b/npc/events/lunar_2008.txt index 6c81d0d38..0b51f468b 100644 --- a/npc/events/lunar_2008.txt +++ b/npc/events/lunar_2008.txt @@ -50,7 +50,7 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "think you can help me?"; next; if (select("Of course.:I don't even know you.") == 1) { - set lunar_rat,1; + lunar_rat = 1; mes "[" + strcharinfo(0)+"]"; mes "Of course."; mes "What can I do?"; @@ -93,7 +93,7 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "Please wait here a moment,"; mes "and I'll make you some pastry~"; delitem 7770,1; //Sweet_rice - set lunar_rat,3; + lunar_rat = 3; close; } else if (lunar_rat == 4) { @@ -104,7 +104,7 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "Please wait here a moment,"; mes "and I'll make you some pastry~"; delitem 7770,1; //Sweet_rice - set lunar_rat,5; + lunar_rat = 5; close; } mes "Oh, where are all the"; @@ -127,15 +127,15 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ mes "Would you mind being"; mes "a dear, and delivering"; mes "that to my son for me?"; - set lunar_rat,2; + lunar_rat = 2; close; } else if (lunar_rat == 3 || lunar_rat == 5) { - set .@reward,rand(1,100); + .@reward = rand(1,100); if (.@reward <= 5) { if (lunar_rat == 3) { getitem 9038,1; // New_Year_Doll_Egg - set lunar_rat,4; + lunar_rat = 4; } else if (lunar_rat == 5) { getitem 668,1; // Red_Envelope @@ -152,8 +152,8 @@ payon_in01,193,30,4 script Rice Mill Grandma#rat 1_F_ORIENT_04,{ // After getting the egg there is a chance to get an envelope with each turn in if (rand(1,20) <= 5 && lunar_rat == 4) getitem 668,1; // Red_Envelope // Set the quest accordingly for repeat turn-ins. - if (lunar_rat == 3) set lunar_rat,2; - else if (lunar_rat == 5) set lunar_rat,4; + if (lunar_rat == 3) lunar_rat = 2; + else if (lunar_rat == 5) lunar_rat = 4; mes "It's not nearly enough"; mes "to repay you for what you've"; mes "done for me, but I'd like"; diff --git a/npc/events/nguild/nguild_dunsw.txt b/npc/events/nguild/nguild_dunsw.txt index 9b24c50b6..f768405d7 100644 --- a/npc/events/nguild/nguild_dunsw.txt +++ b/npc/events/nguild/nguild_dunsw.txt @@ -14,7 +14,7 @@ //================================================== function script F_GldDunSw { - set .@GID, getcastledata(getarg(0),1); + .@GID = getcastledata(getarg(0),1); if (.@GID == 0) { mes "[ Echoing Voice ]"; mes " ' The one who can overcome an ordeal and show true bravery... will find the way... ' "; diff --git a/npc/events/nguild/nguild_ev_agit.txt b/npc/events/nguild/nguild_ev_agit.txt index 097abb53c..5461bb975 100644 --- a/npc/events/nguild/nguild_ev_agit.txt +++ b/npc/events/nguild/nguild_ev_agit.txt @@ -16,10 +16,10 @@ // Function for OnAgitStart ========================================= function script F_AgitStart { - set .@map$, getarg(0); - set .@castle$, getarg(1); - set .@empx, getarg(2); - set .@empy, getarg(3); + .@map$ = getarg(0); + .@castle$ = getarg(1); + .@empx = getarg(2); + .@empy = getarg(3); maprespawnguildid .@map$,getcastledata(.@map$,1),2; monster .@map$,.@empx,.@empy,"Emperium",1288,1,"Agit_"+.@castle$+"::OnAgitBreak"; @@ -30,8 +30,8 @@ function script F_AgitStart { // Function for OnGuildBreak ====================================== function script F_GuildBreak { - set .@map$, getarg(0); - set .@castle$, getarg(1); + .@map$ = getarg(0); + .@castle$ = getarg(1); killmonsterall .@map$; @@ -44,18 +44,18 @@ function script F_GuildBreak { // Function for OnAgitBreak ====================================== function script F_AgitBreak { - set .@map$, getarg(0); - set .@castle$, getarg(1); + .@map$ = getarg(0); + .@castle$ = getarg(1); - set .@GID,getcharid(2); + .@GID = getcharid(2); if (.@GID <= 0) return; - set .@Economy,getcastledata(.@map$,2) - 5; - if (.@Economy < 0) set .@Economy, 0; + .@Economy = getcastledata(.@map$,2) - 5; + if (.@Economy < 0) .@Economy = 0; setcastledata .@map$, 2, .@Economy; - set .@defence,getcastledata(.@map$,3) - 5; - if (.@defence < 0) set .@defence, 0; + .@defence = getcastledata(.@map$,3) - 5; + if (.@defence < 0) .@defence = 0; setcastledata .@map$, 3, .@defence; setcastledata .@map$,1, .@GID; @@ -66,12 +66,12 @@ function script F_AgitBreak { disablenpc "Kafra Staff#"+.@castle$; // remove investment data and kafra - for( set .@i, 4; .@i <= 9; set .@i, .@i+1 ) + for (.@i = 4; .@i <= 9; ++.@i) setcastledata .@map$, .@i, 0; // if the new guild doesn't have Guardian Research, erase guardians if( getgdskilllv(.@GID,10002) == 0 ) - for( set .@i, 10; .@i <= 17; set .@i, .@i+1 ) + for (.@i = 10; .@i <= 17; ++.@i) setcastledata .@map$, .@i, 0; return; @@ -80,8 +80,8 @@ function script F_AgitBreak { // Function for OnAgitEnd ====================================== function script F_AgitEnd { - set .@map$, getarg(0); - set .@castle$, getarg(1); + .@map$ = getarg(0); + .@castle$ = getarg(1); gvgoff .@map$; // Disable the following if statment to keep empty diff --git a/npc/events/nguild/nguild_flags.txt b/npc/events/nguild/nguild_flags.txt index 8c629adf9..dcd3dbc14 100644 --- a/npc/events/nguild/nguild_flags.txt +++ b/npc/events/nguild/nguild_flags.txt @@ -16,7 +16,7 @@ /// Flag Function //============================================================ function script F_Flags { - set .@GID, getcastledata(getarg(1),1); + .@GID = getcastledata(getarg(1),1); if (getarg(5) == 0) return; if (.@GID == 0) { mes " [ Edict of the Divine Rune Midgard Kingdom ]"; diff --git a/npc/events/nguild/nguild_kafras.txt b/npc/events/nguild/nguild_kafras.txt index 100751f7a..89570fe6d 100644 --- a/npc/events/nguild/nguild_kafras.txt +++ b/npc/events/nguild/nguild_kafras.txt @@ -16,7 +16,7 @@ function script F_GKafra { cutin "kafra_01",2; - set @GID, getcastledata(getarg(0),1); + @GID = getcastledata(getarg(0),1); if (getcharid(2) == @GID && getgdskilllv(@GID,10001)) goto L_StartG; mes "[Kafra Service]"; @@ -24,8 +24,8 @@ function script F_GKafra { cutin "",255; close; L_StartG: - set @wrpP[0], 200; - set @wrpD$[0], getarg(1); + @wrpP[0] = 200; + @wrpD$[0] = getarg(1); setarray @wrpC$[0], @wrpD$[0]+" ^880000"+@wrpP[0]+"^000000 z", "Cancel", "", "", "",""; callfunc "F_Kafra",2,0,0,0,800; end; diff --git a/npc/events/nguild/nguild_managers.txt b/npc/events/nguild/nguild_managers.txt index 039ba9ee1..015ef20fd 100644 --- a/npc/events/nguild/nguild_managers.txt +++ b/npc/events/nguild/nguild_managers.txt @@ -23,7 +23,7 @@ //============================================== function script F_GldManager { - set @GID, getcastledata(getarg(1),1); + @GID = getcastledata(getarg(1),1); mes "[ "+getarg(0)+" ]"; if (@GID == 0){ mes "I am waiting for my master. Brave adventurer, follow your destiny!"; diff --git a/npc/events/nguild/nguild_treas.txt b/npc/events/nguild/nguild_treas.txt index 750eab88a..7a7cd64c8 100644 --- a/npc/events/nguild/nguild_treas.txt +++ b/npc/events/nguild/nguild_treas.txt @@ -39,7 +39,7 @@ function script F_GldTreas { //sets the counter variable = to the box number amount set getarg(3), getarg(2); } - for (set .@i,1; .@i <= getarg(3) ; set .@i,.@i+1) { + for (.@i = 1; .@i <= getarg(3); ++.@i) { // set treasure box ID set getarg(4), getarg(5) + (.@i+1) % 2; areamonster getarg(0),getarg(6),getarg(7),getarg(8),getarg(9),"Treasure Chest",getarg(4),1,"Treasure_"+getarg(1)+"::OnDied"; @@ -71,13 +71,13 @@ OnRecvCastleN01: end; OnInit: if($boxNumN01 == 0) end; - set $@bxN01, $boxNumN01; + $@bxN01 = $boxNumN01; callfunc "F_GldTreas","nguild_alde","N01",$boxNumN01,$@bxN01,$@boxIdN01,1324+rand(10),114,218,123,227,1; end; OnDied: mapannounce "nguild_alde","Treasure Chest Broken Open",17; - set $boxNumN01, $boxNumN01 -1; + --$boxNumN01; if($boxNumN01 == 0) mapannounce "nguild_alde", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } @@ -97,13 +97,13 @@ OnRecvCastleN02: end; OnInit: if($boxNumN02 == 0) end; - set $@bxN02, $boxNumN02; + $@bxN02 = $boxNumN02; callfunc "F_GldTreas","nguild_gef","N02",$boxNumN02,$@bxN02,$@boxIdN02,1334+rand(10),150,108,158,114,1; end; OnDied: mapannounce "nguild_gef","Treasure Chest Broken Open",17; - set $boxNumN02, $boxNumN02 -1; + --$boxNumN02; if($boxNumN02 == 0) mapannounce "nguild_gef", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } @@ -122,13 +122,13 @@ OnRecvCastleN03: end; OnInit: if($boxNumN03 == 0) end; - set $@bxN03, $boxNumN03; + $@bxN03 = $boxNumN03; callfunc "F_GldTreas","nguild_pay","N03",$boxNumN03,$@bxN03,$@boxIdN03,1344+rand(10),286,4,295,13,1; end; OnDied: mapannounce "nguild_pay","Treasure Chest Broken Open",17; - set $boxNumN03, $boxNumN03 -1; + --$boxNumN03; if($boxNumN03 == 0) mapannounce "nguild_pay", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } @@ -147,13 +147,13 @@ OnRecvCastleN04: end; OnInit: if($boxNumN04 == 0) end; - set $@bxN04, $boxNumN04; + $@bxN04 = $boxNumN04; callfunc "F_GldTreas","nguild_prt","N04",$boxNumN04,$@bxN04,$@boxIdN04,1354+rand(10),6,204,15,213,1; end; OnDied: mapannounce "nguild_prt","Treasure Chest Broken Open",17; - set $boxNumN04, $boxNumN04 -1; + --$boxNumN04; if($boxNumN04 == 0) mapannounce "nguild_prt", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0; end; } diff --git a/npc/events/valentinesday_2009.txt b/npc/events/valentinesday_2009.txt index edb151c6e..56195d06a 100644 --- a/npc/events/valentinesday_2009.txt +++ b/npc/events/valentinesday_2009.txt @@ -75,7 +75,7 @@ prontera,164,174,4 script Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 5000; + .@price = .@input * 5000; if (Zeny < .@price) { mes "[Marco Bassinio]"; mes "Looks like you don't have enough zeny with ya."; @@ -195,7 +195,7 @@ prontera,147,171,5 script Packs Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 200; + .@price = .@input * 200; if (Zeny < .@price) { mes "[Packs Trader]"; mes "You don't have enough money."; @@ -236,7 +236,7 @@ prontera,147,171,5 script Packs Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 200; + .@price = .@input * 200; if (Zeny < .@price) { mes "[Packs Trader]"; mes "You don't have enough money."; @@ -277,7 +277,7 @@ prontera,147,171,5 script Packs Trader#Val09 1_M_MERCHANT,{ mes "Please use the Kafra Services."; close; } - set .@price, .@input * 600; + .@price = .@input * 600; if (Zeny < .@price) { mes "[Packs Trader]"; mes "You don't have enough money."; @@ -377,7 +377,7 @@ prontera,154,185,5 script Event Ring Maker#Val09 4_F_KAFRA7,{ delitem 7174,1; delitem 7948,1; Zeny -= 1000; - set iROval09ring,1; + iROval09ring = 1; if (Sex) { getnameditem 12742,strcharinfo(0); } else { @@ -457,10 +457,10 @@ prontera,157,185,4 script Valentine Vote Manager#v 4_F_KAFRA5,{ mes "I'll take those silver rings, and count the votes for you."; mes "Thank you for participating."; delitem 7947,.@input; - set Val09Rings,Val09Rings+.@input; + Val09Rings += .@input; if (Val09Rings > $Val09votes_M) { - set $Val09votes_M,Val09Rings; - set $Val09name_M$,strcharinfo(0); + $Val09votes_M = Val09Rings; + $Val09name_M$ = strcharinfo(0); } next; break; @@ -485,10 +485,10 @@ prontera,157,185,4 script Valentine Vote Manager#v 4_F_KAFRA5,{ mes "I'll take those gold rings, and count the votes for you."; mes "Thank you for participating."; delitem 7946,.@input; - set Val09Rings,Val09Rings+.@input; + Val09Rings += .@input; if (Val09Rings > $Val09votes_F) { - set $Val09votes_F,Val09Rings; - set $Val09name_F$,strcharinfo(0); + $Val09votes_F = Val09Rings; + $Val09name_F$ = strcharinfo(0); } next; break; diff --git a/npc/events/valentinesday_2012.txt b/npc/events/valentinesday_2012.txt index 2d74cb1a5..d113bd480 100644 --- a/npc/events/valentinesday_2012.txt +++ b/npc/events/valentinesday_2012.txt @@ -13,9 +13,9 @@ //============================================================ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ - set .@n$,"^0000FF[Pinkamenia]^000000"; + .@n$ = "^0000FF[Pinkamenia]^000000"; if (#V_QUE12==3) { - set .@LFlowerID,7864; + .@LFlowerID = 7864; setarray .@SweetsID[0],538,558,539,573,559,560,12062,596,597,12414,12319; setarray .@SweetsCost[0],1,2,5,10,10,10,15,15,15,20,20; mes .@n$; @@ -29,10 +29,10 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ mes .@n$; mes "Select an item."; mes "The amount of Love Flowers you'll need is in brackets."; - for(set .@i,0; .@i < getarraysize(.@SweetsID); set .@i,.@i+1) - set .@menu$, .@menu$+"^00AA00["+.@SweetsCost[.@i]+"]^000000 "+getitemname(.@SweetsID[.@i])+":"; + for(.@i = 0; .@i < getarraysize(.@SweetsID); ++.@i) + .@menu$ += "^00AA00["+.@SweetsCost[.@i]+"]^000000 "+getitemname(.@SweetsID[.@i])+":"; next; - set .@choice, select(.@menu$)-1; + .@choice = select(.@menu$)-1; mes .@n$; if (countitem(.@LFlowerID) < .@SweetsCost[.@choice]) { mes "You'll need more Love Flowers if you want that!"; @@ -40,8 +40,8 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ } mes "Are you sure you want to trade ^00aa00"+.@SweetsCost[.@choice]+"x Love Flower ^000000 for ^0055FF"+getitemname(.@SweetsID[.@choice])+"^000000?"; if(select("No, I've changed my mind.:Yes, trade!") == 1) close; - set .@new, .@LFlowerID - .@SweetsCost[.@choice]; - if (.@new < 0) set .@new, 0; + .@new = .@LFlowerID - .@SweetsCost[.@choice]; + if (.@new < 0) .@new = 0; delitem .@LFlowerID, .@SweetsCost[.@choice]; getitem .@SweetsID[.@choice],1; mes "Have fun with your item!"; @@ -68,7 +68,7 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ mes "Flowers, you can exchange"; mes "them for some sweets here."; mes "See you soon!"; - set #V_QUE12,3; + #V_QUE12 = 3; close; } else if (#V_QUE12==1) { mes .@n$; @@ -91,7 +91,7 @@ mosk_in,21,246,5 script Pinkamenia 1_F_LIBRARYGIRL,{ mes "to bring a +8 Cake Hat"; mes "to the Baker Extraordinaire, who"; mes "is standing right next to me!"; - set #V_QUE12,1; + #V_QUE12 = 1; close; } mes .@n$; @@ -105,7 +105,7 @@ OnInit: } mosk_in,21,244,3 script Baker Extraordinaire 4_M_NOVELIST,{ - set .@n$,"^0000FF[Baker Extraordinaire]^000000"; + .@n$ = "^0000FF[Baker Extraordinaire]^000000"; if(#V_QUE12==3) { mes .@n$; mes "Exchange your Love Flowers with Pinkamenia!"; @@ -139,7 +139,7 @@ mosk_in,21,244,3 script Baker Extraordinaire 4_M_NOVELIST,{ mes "our chocolates. Now get"; mes "15 Love Flowers and bring"; mes "them to Pinkamenia!"; - set #V_QUE12,2; + #V_QUE12 = 2; close; } else { mes "Sorry, but where is your"; diff --git a/npc/events/xmas.txt b/npc/events/xmas.txt index 72048985d..e420f9e6d 100644 --- a/npc/events/xmas.txt +++ b/npc/events/xmas.txt @@ -22,13 +22,13 @@ xmas_in,100,96,4 script Santa Claus::Santa2 4_M_SANTA,{ mes "[Santa Claus]"; - if(xmas_npc==0) set xmas_npc, 1; // For Lutie & Bard quest + if(xmas_npc==0) xmas_npc = 1; // For Lutie & Bard quest if(#event_xmas > 0 && #event_xmas < 30 ) goto L_Start; mes "Merry Christmas!"; if(Class==0 || #event_xmas>=30 ) close; //anti exploit protection mes "I have a gift for you! Ho Ho Ho!"; getitem rand(664,667),1; //gives one of 4 gift boxes - set #event_xmas,#event_xmas+1; + ++#event_xmas; close; L_Start: @@ -84,7 +84,7 @@ L_Start: mes "fake Santas. Keep it up!"; next; getitem 644,1; //Gift Box Prototype - set #event_xmas,#event_xmas+1; + ++#event_xmas; mes "[Santa Claus]"; mes "There's your reward."; mes "If you get 3 more, I'll give you another."; diff --git a/npc/guild/agit_controller.txt b/npc/guild/agit_controller.txt index de55029fc..8d038c322 100644 --- a/npc/guild/agit_controller.txt +++ b/npc/guild/agit_controller.txt @@ -71,7 +71,7 @@ S_DisplayOwners: setarray .@maps$[5],"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05"; setarray .@maps$[10],"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05"; setarray .@maps$[15],"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05"; - for( set .@i, 0; .@i <= 19; set .@i, .@i+1 ) { + for (.@i = 0; .@i <= 19; ++.@i) { if (getcastledata(.@maps$[.@i],1)) announce "The [" + getcastlename(.@maps$[.@i]) + "] castle has been conquered by the [" + getguildname(getcastledata(.@maps$[.@i],1)) + "] guild.",bc_all|bc_woe; else diff --git a/npc/guild/agit_main.txt b/npc/guild/agit_main.txt index dc799a21f..527bebce4 100644 --- a/npc/guild/agit_main.txt +++ b/npc/guild/agit_main.txt @@ -98,21 +98,21 @@ OnStartArena: // The Emperium has been broken. OnAgitBreak: - set .@GID,getcharid(2); + .@GID = getcharid(2); // Show and log error if an unguilded player breaks the Emperium. (Should NEVER happen) if (.@GID <= 0) { - set .@notice$,"Character "+strcharinfo(0)+" ("+getcharid(0)+") broke the Emperium in Castle: "+strnpcinfo(2)+" while guildless. No data will be saved and Emperium respawned."; + .@notice$ = "Character "+strcharinfo(0)+" ("+getcharid(0)+") broke the Emperium in Castle: "+strnpcinfo(2)+" while guildless. No data will be saved and Emperium respawned."; logmes .@notice$; debugmes .@notice$; donpcevent "Agit#"+strnpcinfo(2)+"::OnStartArena"; end; } // Adjust Economy Invest Level for Castle - set .@Economy,getcastledata(strnpcinfo(2),2) - 5; - if (.@Economy < 0) set .@Economy, 0; + .@Economy = getcastledata(strnpcinfo(2),2) - 5; + if (.@Economy < 0) .@Economy = 0; setcastledata strnpcinfo(2), 2, .@Economy; // Adjust Defense Invest Level for Castle - set .@defence,getcastledata(strnpcinfo(2),3) - 5; - if (.@defence < 0) set .@defence, 0; + .@defence = getcastledata(strnpcinfo(2),3) - 5; + if (.@defence < 0) .@defence = 0; setcastledata strnpcinfo(2), 3, .@defence; // Set new Castle Occupant @@ -125,12 +125,12 @@ OnAgitBreak: // Refresh castle data, disable Kafra and reset Invest information. donpcevent strnpcinfo(0)+"::OnRecvCastle"; disablenpc "Kafra Staff#"+strnpcinfo(2); - for( set .@i, 4; .@i <= 9; set .@i, .@i+1 ) { + for (.@i = 4; .@i <= 9; ++.@i) { setcastledata strnpcinfo(2), .@i, 0; } // Erase Guardian Database information if the new owners do not have Guardian Research. if( getgdskilllv(.@GID,10002) == 0 ) { - for( set .@i, 10; .@i <= 17; set .@i, .@i+1 ) { + for (.@i = 10; .@i <= 17; ++.@i) { setcastledata strnpcinfo(2), .@i, 0; } } @@ -169,7 +169,7 @@ OnAgitInit: OnRecvCastle: if (strnpcinfo(0) == "Gld_Agit_Manager") end; // Spawn Monsters if the castle is empty. - set .@GID, getcastledata(strnpcinfo(2),1); + .@GID = getcastledata(strnpcinfo(2),1); if (.@GID == 0) { killmonsterall strnpcinfo(2); if (compare(strnpcinfo(2),"aldeg")) { @@ -316,7 +316,7 @@ OnRecvCastle: //============================================================ - script Kafra Staff#woe::guildkafra -1,{ - set .@GID,getcastledata(strnpcinfo(2),1); + .@GID = getcastledata(strnpcinfo(2),1); if (compare(strnpcinfo(2),"aldeg")) { setarray .@destination$[0],"Al De Baran","aldebaran"; @@ -384,7 +384,7 @@ OnRecvCastle: end; } Zeny -= 200; - set RESRVPTS,RESRVPTS+2; + RESRVPTS += 2; close2; warp .@destination$[1],.@coordinates[0],.@coordinates[1]; end; @@ -434,7 +434,7 @@ OnRecvCastle: cutin "",255; end; } - set RESRVPTS,RESRVPTS+8; + RESRVPTS += 8; Zeny -= 800; setcart; close2; @@ -465,7 +465,7 @@ OnRecvCastle: //============================================================ - script Castle Manager#cm::cm -1,{ - set .@GID,getcastledata(strnpcinfo(2),1); + .@GID = getcastledata(strnpcinfo(2),1); // .@guardiantype = Defines the types of guardians per castle basis. // 1 - Soldier Guardian, 2 - Archer Guardian, 3 - Knight Guardian @@ -634,30 +634,30 @@ OnRecvCastle: mes "That's all I have to report, Master."; close; case 2: - set .@Economy,getcastledata(strnpcinfo(2),2); - if (.@Economy < 6) { set .@eco_invest,5000; } - else if ((.@Economy >= 6) && (.@Economy <= 10)) { set .@eco_invest,10000; } - else if ((.@Economy >= 11) && (.@Economy <= 15)) { set .@eco_invest,20000; } - else if ((.@Economy >= 16) && (.@Economy <= 20)) { set .@eco_invest,35000; } - else if ((.@Economy >= 21) && (.@Economy <= 25)) { set .@eco_invest,55000; } - else if ((.@Economy >= 26) && (.@Economy <= 30)) { set .@eco_invest,80000; } - else if ((.@Economy >= 31) && (.@Economy <= 35)) { set .@eco_invest,110000; } - else if ((.@Economy >= 36) && (.@Economy <= 40)) { set .@eco_invest,145000; } - else if ((.@Economy >= 41) && (.@Economy <= 45)) { set .@eco_invest,185000; } - else if ((.@Economy >= 46) && (.@Economy <= 50)) { set .@eco_invest,230000; } - else if ((.@Economy >= 51) && (.@Economy <= 55)) { set .@eco_invest,280000; } - else if ((.@Economy >= 56) && (.@Economy <= 60)) { set .@eco_invest,335000; } - else if ((.@Economy >= 61) && (.@Economy <= 65)) { set .@eco_invest,395000; } - else if ((.@Economy >= 66) && (.@Economy <= 70)) { set .@eco_invest,460000; } - else if ((.@Economy >= 71) && (.@Economy <= 75)) { set .@eco_invest,530000; } - else if ((.@Economy >= 76) && (.@Economy <= 80)) { set .@eco_invest,605000; } - else if ((.@Economy >= 81) && (.@Economy <= 85)) { set .@eco_invest,685000; } - else if ((.@Economy >= 86) && (.@Economy <= 90)) { set .@eco_invest,770000; } - else if ((.@Economy >= 91) && (.@Economy <= 95)) { set .@eco_invest,860000; } - else if ((.@Economy >= 96) && (.@Economy <= 100)) { set .@eco_invest,955000; } + .@Economy = getcastledata(strnpcinfo(2),2); + if (.@Economy < 6) { .@eco_invest = 5000; } + else if ((.@Economy >= 6) && (.@Economy <= 10)) { .@eco_invest = 10000; } + else if ((.@Economy >= 11) && (.@Economy <= 15)) { .@eco_invest = 20000; } + else if ((.@Economy >= 16) && (.@Economy <= 20)) { .@eco_invest = 35000; } + else if ((.@Economy >= 21) && (.@Economy <= 25)) { .@eco_invest = 55000; } + else if ((.@Economy >= 26) && (.@Economy <= 30)) { .@eco_invest = 80000; } + else if ((.@Economy >= 31) && (.@Economy <= 35)) { .@eco_invest = 110000; } + else if ((.@Economy >= 36) && (.@Economy <= 40)) { .@eco_invest = 145000; } + else if ((.@Economy >= 41) && (.@Economy <= 45)) { .@eco_invest = 185000; } + else if ((.@Economy >= 46) && (.@Economy <= 50)) { .@eco_invest = 230000; } + else if ((.@Economy >= 51) && (.@Economy <= 55)) { .@eco_invest = 280000; } + else if ((.@Economy >= 56) && (.@Economy <= 60)) { .@eco_invest = 335000; } + else if ((.@Economy >= 61) && (.@Economy <= 65)) { .@eco_invest = 395000; } + else if ((.@Economy >= 66) && (.@Economy <= 70)) { .@eco_invest = 460000; } + else if ((.@Economy >= 71) && (.@Economy <= 75)) { .@eco_invest = 530000; } + else if ((.@Economy >= 76) && (.@Economy <= 80)) { .@eco_invest = 605000; } + else if ((.@Economy >= 81) && (.@Economy <= 85)) { .@eco_invest = 685000; } + else if ((.@Economy >= 86) && (.@Economy <= 90)) { .@eco_invest = 770000; } + else if ((.@Economy >= 91) && (.@Economy <= 95)) { .@eco_invest = 860000; } + else if ((.@Economy >= 96) && (.@Economy <= 100)) { .@eco_invest = 955000; } //Quadruple the cost of investing if you've already invested once. if (getcastledata(strnpcinfo(2),4)) { - set .@eco_invest,.@eco_invest*4; + .@eco_invest *= 4; } mes "["+strnpcinfo(1)+"]"; mes "If you invest in commercial growth, the quantity of goods made by the guild will increase. Therfore, if you consider our future, investments will be a necessity."; @@ -700,30 +700,30 @@ OnRecvCastle: close; } case 3: - set .@defence,getcastledata(strnpcinfo(2),3); - if (.@defence < 6) { set .@def_invest,10000; } - else if ((.@defence >= 6) && (.@defence <= 10)) { set .@def_invest,20000; } - else if ((.@defence >= 11) && (.@defence <= 15)) { set .@def_invest,40000; } - else if ((.@defence >= 16) && (.@defence <= 20)) { set .@def_invest,70000; } - else if ((.@defence >= 21) && (.@defence <= 25)) { set .@def_invest,110000; } - else if ((.@defence >= 26) && (.@defence <= 30)) { set .@def_invest,160000; } - else if ((.@defence >= 31) && (.@defence <= 35)) { set .@def_invest,220000; } - else if ((.@defence >= 36) && (.@defence <= 40)) { set .@def_invest,290000; } - else if ((.@defence >= 41) && (.@defence <= 45)) { set .@def_invest,370000; } - else if ((.@defence >= 46) && (.@defence <= 50)) { set .@def_invest,460000; } - else if ((.@defence >= 51) && (.@defence <= 55)) { set .@def_invest,560000; } - else if ((.@defence >= 56) && (.@defence <= 60)) { set .@def_invest,670000; } - else if ((.@defence >= 61) && (.@defence <= 65)) { set .@def_invest,790000; } - else if ((.@defence >= 66) && (.@defence <= 70)) { set .@def_invest,920000; } - else if ((.@defence >= 71) && (.@defence <= 75)) { set .@def_invest,1060000; } - else if ((.@defence >= 76) && (.@defence <= 80)) { set .@def_invest,1210000; } - else if ((.@defence >= 81) && (.@defence <= 85)) { set .@def_invest,1370000; } - else if ((.@defence >= 86) && (.@defence <= 90)) { set .@def_invest,1540000; } - else if ((.@defence >= 91) && (.@defence <= 95)) { set .@def_invest,1720000; } - else if ((.@defence >= 96) && (.@defence <= 100)) { set .@def_invest,1910000; } + .@defence = getcastledata(strnpcinfo(2),3); + if (.@defence < 6) { .@def_invest = 10000; } + else if ((.@defence >= 6) && (.@defence <= 10)) { .@def_invest = 20000; } + else if ((.@defence >= 11) && (.@defence <= 15)) { .@def_invest = 40000; } + else if ((.@defence >= 16) && (.@defence <= 20)) { .@def_invest = 70000; } + else if ((.@defence >= 21) && (.@defence <= 25)) { .@def_invest = 110000; } + else if ((.@defence >= 26) && (.@defence <= 30)) { .@def_invest = 160000; } + else if ((.@defence >= 31) && (.@defence <= 35)) { .@def_invest = 220000; } + else if ((.@defence >= 36) && (.@defence <= 40)) { .@def_invest = 290000; } + else if ((.@defence >= 41) && (.@defence <= 45)) { .@def_invest = 370000; } + else if ((.@defence >= 46) && (.@defence <= 50)) { .@def_invest = 460000; } + else if ((.@defence >= 51) && (.@defence <= 55)) { .@def_invest = 560000; } + else if ((.@defence >= 56) && (.@defence <= 60)) { .@def_invest = 670000; } + else if ((.@defence >= 61) && (.@defence <= 65)) { .@def_invest = 790000; } + else if ((.@defence >= 66) && (.@defence <= 70)) { .@def_invest = 920000; } + else if ((.@defence >= 71) && (.@defence <= 75)) { .@def_invest = 1060000; } + else if ((.@defence >= 76) && (.@defence <= 80)) { .@def_invest = 1210000; } + else if ((.@defence >= 81) && (.@defence <= 85)) { .@def_invest = 1370000; } + else if ((.@defence >= 86) && (.@defence <= 90)) { .@def_invest = 1540000; } + else if ((.@defence >= 91) && (.@defence <= 95)) { .@def_invest = 1720000; } + else if ((.@defence >= 96) && (.@defence <= 100)) { .@def_invest = 1910000; } //Quadruple the cost of investing if you've already invested once. if (getcastledata(strnpcinfo(2),5)) { - set .@def_invest,.@def_invest*4; + .@def_invest *= 4; } mes "["+strnpcinfo(1)+"]"; mes "If you raise Castle Defenses, the durability of Guardians and the Emperium will increase. Therefore, if you consider our coming battles, some investment in this area will be required."; @@ -770,10 +770,10 @@ OnRecvCastle: mes "Will you summon a Guardian? It'll be a protector to defend us loyally."; mes "Please select a guardian to defend us."; next; - for( set .@i, 0; .@i <= 7 ; set .@i, .@i+1 ) { - if (.@guardiantype[.@i] == 1) { set .@type$,"Guardian Soldier"; } - else if (.@guardiantype[.@i] == 2) { set .@type$,"Guardian Archer"; } - else { set .@type$,"Guardian Knight"; } + for (.@i = 0; .@i <= 7; ++.@i) { + if (.@guardiantype[.@i] == 1) { .@type$ = "Guardian Soldier"; } + else if (.@guardiantype[.@i] == 2) { .@type$ = "Guardian Archer"; } + else { .@type$ = "Guardian Knight"; } if (guardianinfo(strnpcinfo(2),.@i,0)) { setarray .@gname$[.@i], .@type$ + " - Implemented (" + guardianinfo(strnpcinfo(2),.@i,2) + "/" + guardianinfo(strnpcinfo(2),.@i,1) + ")"; } @@ -781,8 +781,8 @@ OnRecvCastle: setarray .@gname$[.@i], .@type$ + " - Not Implemented"; } } - set .@menu$,.@gname$[0]+":"+.@gname$[1]+":"+.@gname$[2]+":"+.@gname$[3]+":"+.@gname$[4]+":"+.@gname$[5]+":"+.@gname$[6]+":"+.@gname$[7]; - set .@GDnum,select(.@menu$)+9; + .@menu$ = .@gname$[0]+":"+.@gname$[1]+":"+.@gname$[2]+":"+.@gname$[3]+":"+.@gname$[4]+":"+.@gname$[5]+":"+.@gname$[6]+":"+.@gname$[7]; + .@GDnum = select(.@menu$)+9; mes "["+strnpcinfo(1)+"]"; mes "Will you summon the chosen guardian? 10,000 zeny are required to summon a Guardian."; next; @@ -805,10 +805,10 @@ OnRecvCastle: } Zeny -= 10000; setcastledata strnpcinfo(2),.@GDnum,1; // mark as 'installed' - set .@UseGID,.@GDnum - 10; - if (.@guardiantype[.@UseGID] == 1) { set .@type,1287; } - else if (.@guardiantype[.@UseGID] == 2) { set .@type,1285; } - else { set .@type,1286; } + .@UseGID = .@GDnum - 10; + if (.@guardiantype[.@UseGID] == 1) { .@type = 1287; } + else if (.@guardiantype[.@UseGID] == 2) { .@type = 1285; } + else { .@type = 1286; } guardian strnpcinfo(2),.@guardianposx[.@UseGID],.@guardianposy[.@UseGID],strmobinfo(2,.@type),.@type,"Guardian#"+strnpcinfo(2)+"::OnGuardianDied",.@UseGID; mes "["+strnpcinfo(1)+"]"; mes "We completed the summoning of the Guardian. Our defenses are now increased with it in place."; @@ -917,7 +917,7 @@ OnRecvCastle: //============================================================ - script Lever#gd::gdlever -1,{ - set .@GID,getcastledata(strnpcinfo(2),1); + .@GID = getcastledata(strnpcinfo(2),1); if (.@GID == 0) { mes "[Ringing Voice]"; @@ -926,7 +926,7 @@ OnRecvCastle: } if (compare(strnpcinfo(2),"aldeg")) { - set .@destination$,"gld_dun02"; + .@destination$ = "gld_dun02"; if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],32,122; else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],79,30; else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],165,38; @@ -934,7 +934,7 @@ OnRecvCastle: else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],103,169; } else if (compare(strnpcinfo(2),"gefg")) { - set .@destination$,"gld_dun04"; + .@destination$ = "gld_dun04"; if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],39,258; else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],125,270; else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],268,251; @@ -942,7 +942,7 @@ OnRecvCastle: else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],230,35; } else if (compare(strnpcinfo(2),"payg")) { - set .@destination$,"gld_dun01"; + .@destination$ = "gld_dun01"; if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],186,165; else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],54,165; else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],54,39; @@ -950,7 +950,7 @@ OnRecvCastle: else if (compare(strnpcinfo(2),"cas05")) setarray .@coordinates[0],223,202; } else if (compare(strnpcinfo(2),"prtg")) { - set .@destination$,"gld_dun03"; + .@destination$ = "gld_dun03"; if (compare(strnpcinfo(2),"cas01")) setarray .@coordinates[0],28,251; else if (compare(strnpcinfo(2),"cas02")) setarray .@coordinates[0],164,268; else if (compare(strnpcinfo(2),"cas03")) setarray .@coordinates[0],164,179; @@ -1107,11 +1107,11 @@ OnSpawnGuardians: // This should prevent duplicating Guardians when char Server disconnects. killmonster strnpcinfo(2),strnpcinfo(0)+"::OnGuardianDied"; - for( set .@i, 0; .@i <= 7 ; set .@i, .@i+1 ) { - set .@UseGID,.@i + 10; - if (.@guardiantype[.@i] == 1) { set .@type,1287; } - else if (.@guardiantype[.@i] == 2) { set .@type,1285; } - else { set .@type,1286; } + for (.@i = 0; .@i <= 7; ++.@i) { + .@UseGID = .@i + 10; + if (.@guardiantype[.@i] == 1) { .@type = 1287; } + else if (.@guardiantype[.@i] == 2) { .@type = 1285; } + else { .@type = 1286; } if (getcastledata(strnpcinfo(2),.@UseGID)) { guardian strnpcinfo(2),.@guardianposx[.@i],.@guardianposy[.@i],strmobinfo(2,.@type),.@type,"Guardian#"+strnpcinfo(2)+"::OnGuardianDied",.@i; } @@ -1131,112 +1131,112 @@ OnClock0001: // Do nothing if this script is the template. if (strnpcinfo(1) == "Gld_Trea_Spawn") end; - set .@GID, getcastledata(strnpcinfo(2),1); + .@GID = getcastledata(strnpcinfo(2),1); // If there is no owner, do nothing. if (!.@GID) end; // Is there Economy in this castle? - set .@Treasure,getcastledata(strnpcinfo(2),2)/5+4; + .@Treasure = getcastledata(strnpcinfo(2),2)/5+4; // Set information if (strnpcinfo(2) == "aldeg_cas01") { - set .@treasurebox,1324; + .@treasurebox = 1324; setarray .@treasurex[0],115,122,115,122,116,117,118,119,120,121,121,121,121,121,121,120,119,118,117,116,116,116,116,116; setarray .@treasurey[0],226,226,219,219,225,225,225,225,225,225,224,223,222,221,220,220,220,220,220,220,221,222,223,224; } else if (strnpcinfo(2) == "aldeg_cas02") { - set .@treasurebox,1326; + .@treasurebox = 1326; setarray .@treasurex[0],134,135,135,134,132,133,134,135,136,137,137,137,137,137,137,136,135,134,133,132,132,132,132,132; setarray .@treasurey[0],231,231,230,230,233,233,233,233,233,233,232,231,230,229,228,228,228,228,228,228,229,230,231,232; } else if (strnpcinfo(2) == "aldeg_cas03") { - set .@treasurebox,1328; + .@treasurebox = 1328; setarray .@treasurex[0],224,225,225,224,222,223,224,225,226,227,227,227,227,227,227,226,225,224,223,222,222,222,222,222; setarray .@treasurey[0],269,269,268,268,271,271,271,271,271,271,270,269,268,267,266,266,266,266,266,266,267,268,269,270; } else if (strnpcinfo(2) == "aldeg_cas04") { - set .@treasurebox,1330; + .@treasurebox = 1330; setarray .@treasurex[0],84,85,85,84,82,83,84,85,86,87,87,87,87,87,87,86,85,84,83,82,82,82,82,82; setarray .@treasurey[0],13,13,12,12,15,15,15,15,15,15,14,13,12,11,10,10,10,10,10,10,11,12,13,14; } else if (strnpcinfo(2) == "aldeg_cas05") { - set .@treasurebox,1332; + .@treasurebox = 1332; setarray .@treasurex[0],61,62,62,61,59,60,61,62,63,64,64,64,64,64,64,63,62,61,60,59,59,59,59,59; setarray .@treasurey[0],12,12,11,11,14,14,14,14,14,14,13,12,11,10,9,9,9,9,9,9,10,11,12,13; } else if (strnpcinfo(2) == "gefg_cas01") { - set .@treasurebox,1334; + .@treasurebox = 1334; setarray .@treasurex[0],153,154,154,153,151,152,153,154,155,156,156,156,156,156,156,155,154,153,152,151,151,151,151,151; setarray .@treasurey[0],113,113,112,112,115,115,115,115,115,115,114,113,112,111,110,110,110,110,110,110,111,112,113,114; } else if (strnpcinfo(2) == "gefg_cas02") { - set .@treasurebox,1336; + .@treasurebox = 1336; setarray .@treasurex[0],139,140,140,139,137,138,139,140,141,142,142,142,142,142,142,141,140,139,138,137,137,137,137,137; setarray .@treasurey[0],115,115,114,114,117,117,117,117,117,117,116,115,114,113,112,112,112,112,112,112,113,114,115,116; } else if (strnpcinfo(2) == "gefg_cas03") { - set .@treasurebox,1338; + .@treasurebox = 1338; setarray .@treasurex[0],269,270,270,269,267,268,269,270,271,272,272,272,272,272,272,271,270,269,268,267,267,267,267,267; setarray .@treasurey[0],291,291,290,290,293,293,293,293,293,293,292,291,290,289,288,288,288,288,288,288,289,290,291,292; } else if (strnpcinfo(2) == "gefg_cas04") { - set .@treasurebox,1340; + .@treasurebox = 1340; setarray .@treasurex[0],115,116,116,115,113,114,115,116,117,118,118,118,118,118,118,117,116,115,114,113,113,113,113,113; setarray .@treasurey[0],119,119,118,118,121,121,121,121,121,121,120,119,118,117,116,116,116,116,116,116,117,118,119,120; } else if (strnpcinfo(2) == "gefg_cas05") { - set .@treasurebox,1342; + .@treasurebox = 1342; setarray .@treasurex[0],143,144,144,143,141,142,143,144,145,146,146,146,146,146,146,145,144,143,142,141,141,141,141,141; setarray .@treasurey[0],110,110,109,109,112,112,112,112,112,112,111,110,109,108,107,107,107,107,107,107,108,109,110,111; } else if (strnpcinfo(2) == "payg_cas01") { - set .@treasurebox,1344; + .@treasurebox = 1344; setarray .@treasurex[0],289,292,292,289,288,289,290,291,292,293,293,293,293,293,293,292,291,290,289,288,288,288,288,288; setarray .@treasurey[0],10,10,7,7,11,11,11,11,11,11,10,9,8,7,6,6,6,6,6,6,7,8,9,10; } else if (strnpcinfo(2) == "payg_cas02") { - set .@treasurebox,1346; + .@treasurebox = 1346; setarray .@treasurex[0],143,146,146,143,142,143,144,145,146,147,147,147,147,147,147,146,145,144,143,142,142,142,142,142; setarray .@treasurey[0],146,146,143,143,147,147,147,147,147,147,146,145,144,143,142,142,142,142,142,142,143,144,145,146; } else if (strnpcinfo(2) == "payg_cas03") { - set .@treasurebox,1348; + .@treasurebox = 1348; setarray .@treasurex[0],158,159,159,158,156,157,158,159,160,161,161,161,161,161,161,160,159,158,157,156,156,156,156,156; setarray .@treasurey[0],169,169,168,168,171,171,171,171,171,171,170,169,168,167,166,166,166,166,166,166,167,168,169,170; } else if (strnpcinfo(2) == "payg_cas04") { - set .@treasurebox,1350; + .@treasurebox = 1350; setarray .@treasurex[0],146,147,147,146,144,145,146,147,148,149,149,149,149,149,149,148,147,146,145,144,144,144,144,144; setarray .@treasurey[0],48,48,47,47,50,50,50,50,50,50,49,48,47,46,45,45,45,45,45,45,46,47,48,49; } else if (strnpcinfo(2) == "payg_cas05") { - set .@treasurebox,1352; + .@treasurebox = 1352; setarray .@treasurex[0],155,158,158,155,154,155,156,157,158,159,159,159,159,159,159,158,157,156,155,154,154,154,154,154; setarray .@treasurey[0],134,134,131,131,135,135,135,135,135,135,134,133,132,131,130,130,130,130,130,130,131,132,133,134; } else if (strnpcinfo(2) == "prtg_cas01") { - set .@treasurebox,1354; + .@treasurebox = 1354; setarray .@treasurex[0],10,11,11,10,8,9,10,11,12,13,13,13,13,13,13,12,11,10,9,8,8,8,8,8; setarray .@treasurey[0],209,209,208,208,211,211,211,211,211,211,210,209,208,207,206,206,206,206,206,206,207,208,209,210; } else if (strnpcinfo(2) == "prtg_cas02") { - set .@treasurebox,1356; + .@treasurebox = 1356; setarray .@treasurex[0],201,202,202,201,199,200,201,202,203,204,204,204,204,204,204,203,202,201,200,199,199,199,199,199; setarray .@treasurey[0],228,228,227,227,230,230,230,230,230,230,229,228,227,226,225,225,225,225,225,225,226,227,228,229; } else if (strnpcinfo(2) == "prtg_cas03") { - set .@treasurebox,1358; + .@treasurebox = 1358; setarray .@treasurex[0],187,188,188,187,185,186,187,188,189,190,190,190,190,190,190,189,188,187,186,185,185,185,185,185; setarray .@treasurey[0],132,132,131,131,134,134,134,134,134,134,133,132,131,130,129,129,129,129,129,129,130,131,132,133; } else if (strnpcinfo(2) == "prtg_cas04") { - set .@treasurebox,1360; + .@treasurebox = 1360; setarray .@treasurex[0],269,270,270,269,267,268,269,270,271,272,272,272,272,272,272,271,270,269,268,267,267,267,267,267; setarray .@treasurey[0],162,162,161,161,164,164,164,164,164,164,163,162,161,160,159,159,159,159,159,159,160,161,162,163; } else if (strnpcinfo(2) == "prtg_cas05") { - set .@treasurebox,1362; + .@treasurebox = 1362; setarray .@treasurex[0],275,276,276,275,273,274,275,276,277,278,278,278,278,278,278,277,276,275,274,273,273,273,273,273; setarray .@treasurey[0],178,178,177,177,180,180,180,180,180,180,179,178,177,176,175,175,175,175,175,175,176,177,178,179; } @@ -1248,12 +1248,12 @@ OnClock0001: // Apply investment to Eco. and Def. Only happens if there were investments made. // Permanent Development can only happen once per day. if (getcastledata(strnpcinfo(2),4)) { - set .@Economy,getcastledata(strnpcinfo(2),2); + .@Economy = getcastledata(strnpcinfo(2),2); setcastledata strnpcinfo(2),2,.@Economy + getcastledata(strnpcinfo(2),4) + (rand(2) && getgdskilllv(.@GID,10014)); if (getcastledata(strnpcinfo(2),2) > 100) setcastledata strnpcinfo(2),2,100; } if (getcastledata(strnpcinfo(2),5)) { - set .@defence,getcastledata(strnpcinfo(2),3); + .@defence = getcastledata(strnpcinfo(2),3); setcastledata strnpcinfo(2),3,.@defence + getcastledata(strnpcinfo(2),5); if (getcastledata(strnpcinfo(2),3) > 100) setcastledata strnpcinfo(2),3,100; } @@ -1262,10 +1262,10 @@ OnClock0001: setcastledata strnpcinfo(2),5,0; // Spawn boxes in proper order. - for (set .@i,0; .@i < .@Treasure ; set .@i,.@i+1) { + for (.@i = 0; .@i < .@Treasure ; ++.@i) { // set treasure box ID - set .@boxid, .@treasurebox + (.@i+2) % 2; - set .@box,1 << .@i; + .@boxid = .@treasurebox + (.@i+2) % 2; + .@box = 1 << .@i; // Spawn or do not spawn chests if one already exists. if ((getd("$@"+strnpcinfo(2)+"_treasure") & .@box) == 0) { monster strnpcinfo(2),.@treasurex[.@i],.@treasurey[.@i],"Treasure Chest",.@boxid,1,"Treasure#"+strnpcinfo(2)+"::OnTreasureDied"+.@i; diff --git a/npc/guild/aldeg_cas01.txt b/npc/guild/aldeg_cas01.txt index 82b09d608..e72b121c5 100644 --- a/npc/guild/aldeg_cas01.txt +++ b/npc/guild/aldeg_cas01.txt @@ -16,7 +16,7 @@ //============================================================ - script Neuschwanstein#1::OutsideFlagsA1 GUILD_FLAG,{ - set .@GID, getcastledata("aldeg_cas01",1); + .@GID = getcastledata("aldeg_cas01",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/aldeg_cas02.txt b/npc/guild/aldeg_cas02.txt index fe98f22a8..938e511da 100644 --- a/npc/guild/aldeg_cas02.txt +++ b/npc/guild/aldeg_cas02.txt @@ -16,7 +16,7 @@ //============================================================ - script Hohenschwangau#1::OutsideFlagsA2 GUILD_FLAG,{ - set .@GID, getcastledata("aldeg_cas02",1); + .@GID = getcastledata("aldeg_cas02",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/aldeg_cas03.txt b/npc/guild/aldeg_cas03.txt index d5aa3535c..c595a8681 100644 --- a/npc/guild/aldeg_cas03.txt +++ b/npc/guild/aldeg_cas03.txt @@ -16,7 +16,7 @@ //============================================================ - script Nuernberg#1::OutsideFlagsA3 GUILD_FLAG,{ - set .@GID, getcastledata("aldeg_cas03",1); + .@GID = getcastledata("aldeg_cas03",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/aldeg_cas04.txt b/npc/guild/aldeg_cas04.txt index 4f6bb1265..6a6b9d7ec 100644 --- a/npc/guild/aldeg_cas04.txt +++ b/npc/guild/aldeg_cas04.txt @@ -16,7 +16,7 @@ //============================================================ - script Wuerzburg#1::OutsideFlagsA4 GUILD_FLAG,{ - set .@GID, getcastledata("aldeg_cas04",1); + .@GID = getcastledata("aldeg_cas04",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/aldeg_cas05.txt b/npc/guild/aldeg_cas05.txt index 8712d314a..93a78d7fb 100644 --- a/npc/guild/aldeg_cas05.txt +++ b/npc/guild/aldeg_cas05.txt @@ -16,7 +16,7 @@ //============================================================ - script Rothenburg#1::OutsideFlagsA5 GUILD_FLAG,{ - set .@GID, getcastledata("aldeg_cas05",1); + .@GID = getcastledata("aldeg_cas05",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/gefg_cas01.txt b/npc/guild/gefg_cas01.txt index 71a227173..6127e62f9 100644 --- a/npc/guild/gefg_cas01.txt +++ b/npc/guild/gefg_cas01.txt @@ -16,7 +16,7 @@ //============================================================ - script Repherion#1::OutsideFlagsG1 GUILD_FLAG,{ - set .@GID, getcastledata("gefg_cas01",1); + .@GID = getcastledata("gefg_cas01",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/gefg_cas02.txt b/npc/guild/gefg_cas02.txt index 8aa183045..45530849a 100644 --- a/npc/guild/gefg_cas02.txt +++ b/npc/guild/gefg_cas02.txt @@ -16,7 +16,7 @@ //============================================================ - script Eeyorbriggar#1::OutsideFlagsG2 GUILD_FLAG,{ - set .@GID, getcastledata("gefg_cas02",1); + .@GID = getcastledata("gefg_cas02",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/gefg_cas03.txt b/npc/guild/gefg_cas03.txt index 50ba0005b..a206c8bac 100644 --- a/npc/guild/gefg_cas03.txt +++ b/npc/guild/gefg_cas03.txt @@ -16,7 +16,7 @@ //============================================================ - script Yesnelph#1::OutsideFlagsG3 GUILD_FLAG,{ - set .@GID, getcastledata("gefg_cas03",1); + .@GID = getcastledata("gefg_cas03",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/gefg_cas04.txt b/npc/guild/gefg_cas04.txt index 67c490baf..06d37361a 100644 --- a/npc/guild/gefg_cas04.txt +++ b/npc/guild/gefg_cas04.txt @@ -16,7 +16,7 @@ //============================================================ - script Bergel#1::OutsideFlagsG4 GUILD_FLAG,{ - set .@GID, getcastledata("gefg_cas04",1); + .@GID = getcastledata("gefg_cas04",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/gefg_cas05.txt b/npc/guild/gefg_cas05.txt index aa802ea15..81ebd3905 100644 --- a/npc/guild/gefg_cas05.txt +++ b/npc/guild/gefg_cas05.txt @@ -16,7 +16,7 @@ //============================================================ - script Mersetzdeitz#1::OutsideFlagsG5 GUILD_FLAG,{ - set .@GID, getcastledata("gefg_cas05",1); + .@GID = getcastledata("gefg_cas05",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/payg_cas01.txt b/npc/guild/payg_cas01.txt index 2b172929b..1deee9a4f 100644 --- a/npc/guild/payg_cas01.txt +++ b/npc/guild/payg_cas01.txt @@ -18,7 +18,7 @@ //============================================================ - script Bright Arbor#1::OutsideFlagsPA1 GUILD_FLAG,{ - set .@GID, getcastledata("payg_cas01",1); + .@GID = getcastledata("payg_cas01",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/payg_cas02.txt b/npc/guild/payg_cas02.txt index cb7403c6a..92db92c09 100644 --- a/npc/guild/payg_cas02.txt +++ b/npc/guild/payg_cas02.txt @@ -19,7 +19,7 @@ //============================================================ - script Scarlet Palace#1::OutsideFlagsPA2 GUILD_FLAG,{ - set .@GID, getcastledata("payg_cas02",1); + .@GID = getcastledata("payg_cas02",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/payg_cas03.txt b/npc/guild/payg_cas03.txt index 54c69087e..e0e649308 100644 --- a/npc/guild/payg_cas03.txt +++ b/npc/guild/payg_cas03.txt @@ -18,7 +18,7 @@ //============================================================ - script Holy Shadow#1::OutsideFlagsPA3 GUILD_FLAG,{ - set .@GID, getcastledata("payg_cas03",1); + .@GID = getcastledata("payg_cas03",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/payg_cas04.txt b/npc/guild/payg_cas04.txt index 265ace62f..498bc1aed 100644 --- a/npc/guild/payg_cas04.txt +++ b/npc/guild/payg_cas04.txt @@ -19,7 +19,7 @@ //============================================================ - script Sacred Altar#1::OutsideFlagsPA4 GUILD_FLAG,{ - set .@GID, getcastledata("payg_cas04",1); + .@GID = getcastledata("payg_cas04",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/payg_cas05.txt b/npc/guild/payg_cas05.txt index ec616656e..7b667c4ca 100644 --- a/npc/guild/payg_cas05.txt +++ b/npc/guild/payg_cas05.txt @@ -18,7 +18,7 @@ //============================================================ - script Bamboo Grove Hill#1::OutsideFlagsPA5 GUILD_FLAG,{ - set .@GID, getcastledata("payg_cas05",1); + .@GID = getcastledata("payg_cas05",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/prtg_cas01.txt b/npc/guild/prtg_cas01.txt index a99f37ac9..961453ccd 100644 --- a/npc/guild/prtg_cas01.txt +++ b/npc/guild/prtg_cas01.txt @@ -18,7 +18,7 @@ //============================================================ - script Kriemhild#1::OutsideFlagsPR1 GUILD_FLAG,{ - set .@GID, getcastledata("prtg_cas01",1); + .@GID = getcastledata("prtg_cas01",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/prtg_cas02.txt b/npc/guild/prtg_cas02.txt index ceaae4821..315478ba1 100644 --- a/npc/guild/prtg_cas02.txt +++ b/npc/guild/prtg_cas02.txt @@ -18,7 +18,7 @@ //============================================================ - script Swanhild#1::OutsideFlagsPR2 GUILD_FLAG,{ - set .@GID, getcastledata("prtg_cas02",1); + .@GID = getcastledata("prtg_cas02",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/prtg_cas03.txt b/npc/guild/prtg_cas03.txt index b0e0515ec..4b52dbb7f 100644 --- a/npc/guild/prtg_cas03.txt +++ b/npc/guild/prtg_cas03.txt @@ -18,7 +18,7 @@ //============================================================ - script Fadhgridh#1::OutsideFlagsPR3 GUILD_FLAG,{ - set .@GID, getcastledata("prtg_cas03",1); + .@GID = getcastledata("prtg_cas03",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/prtg_cas04.txt b/npc/guild/prtg_cas04.txt index 08f1522db..8936b8451 100644 --- a/npc/guild/prtg_cas04.txt +++ b/npc/guild/prtg_cas04.txt @@ -18,7 +18,7 @@ //============================================================ - script Skoegul#1::OutsideFlagsPR4 GUILD_FLAG,{ - set .@GID, getcastledata("prtg_cas04",1); + .@GID = getcastledata("prtg_cas04",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/prtg_cas05.txt b/npc/guild/prtg_cas05.txt index 69ac3eb32..3b9652783 100644 --- a/npc/guild/prtg_cas05.txt +++ b/npc/guild/prtg_cas05.txt @@ -18,7 +18,7 @@ //============================================================ - script Gondul#1::OutsideFlagsPR5 GUILD_FLAG,{ - set .@GID, getcastledata("prtg_cas05",1); + .@GID = getcastledata("prtg_cas05",1); if (.@GID == 0) { mes "[ Edict of the Divine Rune-Midgarts Kingdom ]"; diff --git a/npc/guild/trs_rp.txt b/npc/guild/trs_rp.txt index 260aa6162..d96bd694e 100644 --- a/npc/guild/trs_rp.txt +++ b/npc/guild/trs_rp.txt @@ -16,7 +16,7 @@ OnTouch: // Store the Guild ID of castle occupant. - set .@GID, getcastledata(strnpcinfo(2),1); + .@GID = getcastledata(strnpcinfo(2),1); if (strcharinfo(0) != getguildmaster(.@GID)) { if (compare(strnpcinfo(2),"aldeg")) warp "aldebaran",143,112; diff --git a/npc/guild2/agit_main_se.txt b/npc/guild2/agit_main_se.txt index 77e8cdd7c..bad6b27f7 100644 --- a/npc/guild2/agit_main_se.txt +++ b/npc/guild2/agit_main_se.txt @@ -51,7 +51,7 @@ OnAgitStart2: gvgon strnpcinfo(2); donpcevent strnpcinfo(0)+"::OnStart"; } - else for(set .@i,0; .@i<4; set .@i,.@i+1) + else for(.@i = 0; .@i<4; ++.@i) donpcevent "RL"+.@i+"#"+strnpcinfo(2)+"::OnDisable"; end; @@ -59,7 +59,7 @@ OnAgitEnd2: if (strnpcinfo(2) == "template") end; gvgoff strnpcinfo(2); if (getcastledata(strnpcinfo(2),1)) { - set .@str$,substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); + .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); killmonster strnpcinfo(2),"Steward#"+.@str$+"::OnStartArena"; donpcevent strnpcinfo(0)+"::OnReset"; donpcevent "Steward#"+.@str$+"::OnStop"; @@ -86,12 +86,12 @@ OnStart: setarray getd("$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9)+"[0]"),0,0,0,0,0,0; donpcevent "df1#"+strnpcinfo(2)+"::OnEnable"; donpcevent "df2#"+strnpcinfo(2)+"::OnEnable"; - for(set .@i,0; .@i<4; set .@i,.@i+1) + for (.@i = 0; .@i<4; ++.@i) donpcevent "RL"+.@i+"#"+strnpcinfo(2)+"::OnEnable"; } OnEmpSpawn: - set .@str$, substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); + .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); if (mobcount(strnpcinfo(2),"Steward#"+.@str$+"::OnStartArena")) end; if (compare(strnpcinfo(2),"arug")) { if (strnpcinfo(2) == "arug_cas01") setarray .@i[0],87,219; @@ -107,23 +107,23 @@ OnEmpSpawn: end; OnReset: - set .@str$, substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); + .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); donpcevent "df1#"+strnpcinfo(2)+"::OnDisable"; donpcevent "df2#"+strnpcinfo(2)+"::OnDisable"; donpcevent "gard1#"+strnpcinfo(2)+"::OnReset"; donpcevent "gard2#"+strnpcinfo(2)+"::OnReset"; donpcevent "1st Guardian Stone#"+.@str$+"::OnDisable"; donpcevent "2nd Guardian Stone#"+.@str$+"::OnDisable"; - for(set .@i,1; .@i<4; set .@i,.@i+1) + for(.@i = 1; .@i<4; ++.@i) donpcevent "Control Device0"+.@i+"#"+.@str$+"::OnDisable"; - for(set .@i,0; .@i<4; set .@i,.@i+1) + for(.@i = 0; .@i<4; ++.@i) donpcevent "RL"+.@i+"#"+strnpcinfo(2)+"::OnDisable"; if (agitcheck2()) setarray getd("$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9)+"[0]"),0,0,1,1,1,0; end; OnChange: - set .@str$, substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); + .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); setarray getd("$agit_"+.@str$+"[0]"),2,2,1,1,2,0; donpcevent strnpcinfo(0)+"::OnEmpSpawn"; donpcevent "Control Device03#"+.@str$+"::OnEnable"; @@ -137,59 +137,59 @@ OnClock0001: if (!getcastledata(strnpcinfo(2),1)) end; killmonster strnpcinfo(2),strnpcinfo(0)+"::OnTreasureDied"; if (getcastledata(strnpcinfo(2),4)) { - set .@Economy,getcastledata(strnpcinfo(2),2); + .@Economy = getcastledata(strnpcinfo(2),2); setcastledata strnpcinfo(2),2,.@Economy+getcastledata(strnpcinfo(2),4)+(rand(2) && getgdskilllv(getcastledata(strnpcinfo(2),1),10014)); if (getcastledata(strnpcinfo(2),2) > 100) setcastledata strnpcinfo(2),2,100; setcastledata strnpcinfo(2),4,0; } if (getcastledata(strnpcinfo(2),5)) { - set .@defence,getcastledata(strnpcinfo(2),3); + .@defence = getcastledata(strnpcinfo(2),3); setcastledata strnpcinfo(2),3,.@defence+getcastledata(strnpcinfo(2),5); if (getcastledata(strnpcinfo(2),3) > 100) setcastledata strnpcinfo(2),3,100; setcastledata strnpcinfo(2),5,0; } - set .@Treasure,getcastledata(strnpcinfo(2),2)/5+4; + .@Treasure = getcastledata(strnpcinfo(2),2)/5+4; if (!.@Treasure) end; freeloop(1); if (compare(strnpcinfo(2),"arug")) { if (strnpcinfo(2) == "arug_cas01") { - set .@treasurebox,1943; + .@treasurebox = 1943; setarray .@treasurex[0],251,252,253,254,255,256,257,258,251,252,253,254,255,256,257,258,251,252,253,254,255,256,257,258; setarray .@treasurey[0],369,369,369,369,368,368,368,368,367,367,367,367,366,366,366,366,365,365,365,365,364,364,364,364; } else if (strnpcinfo(2) == "arug_cas02") { - set .@treasurebox,1944; + .@treasurebox = 1944; setarray .@treasurex[0],382,383,384,385,386,387,384,385,386,387,388,389,382,383,384,385,386,387,384,385,386,387,388,389; setarray .@treasurey[0],231,231,231,231,231,231,230,230,230,230,230,230,225,225,225,225,225,225,224,224,224,224,224,224; } else { // Castles 3,4,5 are identical, except 4's treasure. - set .@treasurebox,(strnpcinfo(2) == "arug_cas04")?1946:1945; + .@treasurebox = (strnpcinfo(2) == "arug_cas04")?1946:1945; setarray .@treasurex[0],291,292,293,294,295,296,293,294,295,296,297,298,291,292,293,294,295,296,293,294,295,296,297,298; setarray .@treasurey[0],276,276,276,276,276,276,274,274,274,274,274,274,272,272,272,272,272,272,269,269,269,269,269,269; } } else { if (strnpcinfo(2) == "schg_cas02") { - set .@treasurebox,1939; + .@treasurebox = 1939; setarray .@treasurex[0],249,250,251,252,253,246,247,248,249,250,250,251,252,253,246,247,248,249,250,249,250,251,252,253; setarray .@treasurey[0],378,378,378,378,378,376,376,376,376,376,374,374,374,374,372,372,372,372,372,370,370,370,370,370; } else if (strnpcinfo(2) == "schg_cas03") { - set .@treasurebox,1940; + .@treasurebox = 1940; setarray .@treasurex[0],189,190,191,192,193,194,189,190,191,192,193,194,189,190,191,192,193,194,189,190,191,192,193,194; setarray .@treasurey[0], 21, 21, 21, 21, 21, 21, 19, 19, 19, 19, 19, 19, 17, 17, 17, 17, 17, 17, 15, 15, 15, 15, 15, 15; } else { // Castles 1,4,5 are identical, except treasures. - if (strnpcinfo(2) == "schg_cas01") set .@treasurebox,1938; - else if (strnpcinfo(2) == "schg_cas04") set .@treasurebox,1941; - else set .@treasurebox,1942; + if (strnpcinfo(2) == "schg_cas01") .@treasurebox = 1938; + else if (strnpcinfo(2) == "schg_cas04") .@treasurebox = 1941; + else .@treasurebox = 1942; setarray .@treasurex[0],388,388,388,387,386,385,384,384,384,384,384,384,385,386,387,388,389,390,390,390,389,388,387,386; setarray .@treasurey[0],388,389,390,390,390,390,389,388,387,386,385,384,384,384,384,384,384,384,385,386,386,386,386,386; } } - for(set .@i,0; .@i<4; set .@i,.@i+1) + for(.@i = 0; .@i<4; ++.@i) monster strnpcinfo(2),.@treasurex[.@i],.@treasurey[.@i],"Treasure Chest",(.@i%2)?.@treasurebox:1324,1,strnpcinfo(0)+"::OnTreasureDied"; - for(set .@i,4; .@i<24; set .@i,.@i+1) { + for(.@i = 4; .@i<24; ++.@i) { if (.@Treasure < .@i+1) break; monster strnpcinfo(2),.@treasurex[.@i],.@treasurey[.@i],"Treasure Chest",(.@i%2)?.@treasurebox:1324,1,strnpcinfo(0)+"::OnTreasureDied"; } @@ -203,7 +203,7 @@ OnTreasureDied: // Guild Manager //============================================================ - script Steward#template -1,{ - set .@GID, getcastledata(strnpcinfo(4),1); + .@GID = getcastledata(strnpcinfo(4),1); if (!.@GID) { mes "[ Steward ]"; mes "I await for the master"; @@ -251,18 +251,19 @@ OnTreasureDied: mes "That is all, master."; close; case 2: - set .@Economy,getcastledata(strnpcinfo(4),2); + .@Economy = getcastledata(strnpcinfo(4),2); setarray .@cost[0],5000,10000,20000,35000,55000,80000,110000,145000,185000,230000,280000,335000,395000,460000,530000,605000,685000,770000,860000,955000; - set .@j,0; - for(set .@i,6; .@i<101; set .@i,.@i+5) { + .@j = 0; + for(.@i = 6; .@i<101; .@i += 5) { if (.@Economy < .@i) { - set .@eco_invest,.@cost[.@j]; + .@eco_invest = .@cost[.@j]; break; } - set .@j, .@j+1; + ++.@j; } // Quadruple the cost of investing if you've already invested once. - if (getcastledata(strnpcinfo(4),4)) set .@eco_invest,.@eco_invest*4; + if (getcastledata(strnpcinfo(4),4)) + .@eco_invest *= 4; mes "[ Steward ]"; mes "Raising the stronghold's"; mes "commercial growth will"; @@ -344,18 +345,19 @@ OnTreasureDied: close; } case 3: - set .@defence,getcastledata(strnpcinfo(4),3); + .@defence = getcastledata(strnpcinfo(4),3); setarray .@cost[0],10000,20000,40000,70000,110000,160000,220000,290000,370000,460000,560000,670000,790000,920000,1060000,1210000,1370000,1540000,1720000,1910000; - set .@j,0; - for(set .@i,6; .@i<101; set .@i,.@i+5) { + .@j = 0; + for(.@i = 6; .@i<101; .@i += 5) { if (.@defence < .@i) { - set .@def_invest,.@cost[.@j]; + .@def_invest = .@cost[.@j]; break; } - set .@j, .@j+1; + ++.@j; } // Quadruple the cost of investing if you've already invested once. - if (getcastledata(strnpcinfo(4),5)) set .@def_invest,.@def_invest*4; + if (getcastledata(strnpcinfo(4),5)) + .@def_invest *= 4; mes "[ Steward ]"; mes "Investing in our stronghold's"; mes "defense will enhance the"; @@ -600,20 +602,20 @@ OnStop: end; OnStartArena: - set .@GID,getcharid(2); - set .@region$, (compare(strnpcinfo(4),"arug"))?"Valfreyja":"Nithafjoll"; + .@GID = getcharid(2); + .@region$ = (compare(strnpcinfo(4),"arug"))?"Valfreyja":"Nithafjoll"; // Lower castle Economy - set .@Economy,getcastledata(strnpcinfo(4),2)-5; - if (.@Economy < 0) set .@Economy, 0; + .@Economy = getcastledata(strnpcinfo(4),2)-5; + if (.@Economy < 0) .@Economy = 0; setcastledata strnpcinfo(4),2,.@Economy; // Lower Castle Defence - set .@defence,getcastledata(strnpcinfo(4),3)-5; - if (.@defence < 0) set .@defence, 0; + .@defence = getcastledata(strnpcinfo(4),3)-5; + if (.@defence < 0) .@defence = 0; setcastledata strnpcinfo(4),3,.@defence; // Set new owner setcastledata strnpcinfo(4),1,.@GID; // Clear castle's data. - for(set .@i,4; .@i<10; set .@i,.@i+1) + for(.@i = 4; .@i<10; ++.@i) setcastledata strnpcinfo(4),.@i,0; // Disable Kafra disablenpc "Kafra Employee#"+strnpcinfo(2); @@ -635,8 +637,8 @@ OnStartArena: // Castle Guardians //============================================================ - script Guardian#template -1,{ - set .@GID, getcastledata(strnpcinfo(4),1); - set .@n$, "["+strnpcinfo(1)+"]"; + .@GID = getcastledata(strnpcinfo(4),1); + .@n$ = "["+strnpcinfo(1)+"]"; if (!.@GID) { mes .@n$; mes "Great job. Now, all you"; @@ -836,7 +838,7 @@ OnInit: //============================================================ - script Kafra#template -1,{ cutin "kafra_01",2; - set .@GID, getcastledata(strnpcinfo(4),1); + .@GID = getcastledata(strnpcinfo(4),1); if (getcharid(2) == .@GID && getgdskilllv(.@GID,10001)) { mes "[Kafra Employee]"; mes "Welcome, proud member"; @@ -948,9 +950,9 @@ OnInit: // Guardian Stones (2) //============================================================ - script Guardian Stone#template -1,{ - set .@GID, getcastledata(strnpcinfo(4),1); - set .@num, atoi(charat(strnpcinfo(1),0)); - set .@var$,"$agit_"+strnpcinfo(2); + .@GID = getcastledata(strnpcinfo(4),1); + .@num = atoi(charat(strnpcinfo(1),0)); + .@var$ = "$agit_"+strnpcinfo(2); if (getcharid(2) == .@GID) { mes "^3355FFYou will need the"; mes "following materials to"; @@ -978,19 +980,19 @@ OnInit: mes "rebuild the Guardian Stone.^000000"; next; setarray .@stone$[0],"Elunium","Oridecon","Stones"; - set .@i, select("Elunium:Oridecon:Stone")-1; - if (.@i == 2) set .@nice,.@nice+10; + .@i = select("Elunium:Oridecon:Stone")-1; + if (.@i == 2) .@nice += 10; mes "^3355FF"+.@stone$[.@i]+" has been"; mes "placed in the center.^000000"; next; - set .@i, select("Elunium:Oridecon:Stone")-1; - if (.@i == 0) set .@nice,.@nice+10; + .@i = select("Elunium:Oridecon:Stone")-1; + if (.@i == 0) .@nice += 10; mes "^3355FFYou have lined the"; mes "outside of the center"; mes "with some "+.@stone$[.@i]+".^000000"; next; - set .@i, select("Elunium:Oridecon:Stone")-1; - if (.@i == 1) set .@nice,.@nice+10; + .@i = select("Elunium:Oridecon:Stone")-1; + if (.@i == 1) .@nice += 10; mes "^3355FFYou covered the"; mes "rest of the materials"; mes "with some "+.@stone$[.@i]+".^000000"; @@ -1005,14 +1007,14 @@ OnInit: setarray .@color$[0],"Red","Yellow","Blue"; while(1) { if (.@roof0 > 7) break; - set .@i, rand(3); + .@i = rand(3); specialeffect .@effect[.@i]; mes "^3355FFThe Gemstones must"; mes "be arranged in the correct"; mes "order according to their"; mes "magic properties and power.^000000"; next; - set .@j, select("Red Gemstone:Yellow Gemstone:Blue Gemstone")-1; + .@j = select("Red Gemstone:Yellow Gemstone:Blue Gemstone")-1; mes "^3355FFYou placed the "+.@color$[.@j]+" Gemstone.^000000"; if (.@i == .@j) { mes "^3355FFHowever, the Guardian Stone"; @@ -1020,8 +1022,8 @@ OnInit: mes "of a magic power conflict.^000000"; close; } - set .@nice,.@nice+10; - set .@roof0,.@roof0+1; + .@nice += 10; + ++.@roof0; specialeffect EF_STEAL; next; } @@ -1055,7 +1057,7 @@ OnInit: specialeffect EF_ICECRASH; disablenpc strnpcinfo(0); setd .@var$+"["+(.@num-1)+"]",0; - set .@df_all,getd(.@var$+"[0]")+getd(.@var$+"[1]"); + .@df_all = getd(.@var$+"[0]")+getd(.@var$+"[1]"); if (!.@df_all) { mapannounce strnpcinfo(4),"Both Guardian Stones have been erected, bolstering this stronghold's defenses!",bc_map,"0x00ff00"; donpcevent "RL0#"+strnpcinfo(4)+"::OnEnable"; @@ -1102,9 +1104,9 @@ OnEnable: // Control Devices (3) //============================================================ - script Control#template -1,{ - set .@GID, getcastledata(strnpcinfo(4),1); - set .@num, atoi(charat(strnpcinfo(1),15)); - set .@var$,"$agit_"+strnpcinfo(2); + .@GID = getcastledata(strnpcinfo(4),1); + .@num = atoi(charat(strnpcinfo(1),15)); + .@var$ = "$agit_"+strnpcinfo(2); if (getcharid(2) == .@GID) { if (strcharinfo(0) == getguildmaster(.@GID)) { if (getd(.@var$+"["+(.@num+1)+"]") == 2) { @@ -1127,7 +1129,7 @@ OnEnable: mes "Emveretarcon to basically"; mes "hold everything together.^000000"; next; - set .@ro_of01,rand(10,15); + .@ro_of01 = rand(10,15); while(1) { if (.@ro_of02 == .@ro_of01) break; else { @@ -1142,8 +1144,8 @@ OnEnable: case 1: mes "^3355FFThe frame has been"; mes "reinforced with wood.^000000"; - set .@rp_temp,.@rp_temp+1; - set .@ro_of02,.@ro_of02+1; + ++.@rp_temp; + ++.@ro_of02; specialeffect2 EF_REPAIRWEAPON; next; break; @@ -1176,7 +1178,7 @@ OnEnable: case 1: mes "^3355FFYou tried using wood"; mes "to reinforce the gate.^000000"; - set .@ro_of02,.@ro_of02+1; + ++.@ro_of02; next; break; case 2: @@ -1195,8 +1197,8 @@ OnEnable: mes "^3355FFYou hammered the"; mes "oridecon: it looks"; mes "like this will work.^000000"; - set .@rp_temp,.@rp_temp+1; - set .@ro_of02,.@ro_of02+1; + ++.@rp_temp; + ++.@ro_of02; specialeffect2 EF_REPAIRWEAPON; next; break; @@ -1219,8 +1221,8 @@ OnEnable: mes "^3355FFYou used steel to weld"; mes "all the cracks: the gate is"; mes "is starting to look more solid.^000000"; - set .@rp_temp,.@rp_temp+1; - set .@ro_of02,.@ro_of02+1; + ++.@rp_temp; + ++.@ro_of02; specialeffect2 EF_REPAIRWEAPON; next; break; @@ -1260,8 +1262,8 @@ OnEnable: mes "^3355FFYou successfully used"; mes "the emveretarcon to repair"; mes "much of the gate's damage.^000000"; - set .@rp_temp,.@rp_temp+1; - set .@ro_of02,.@ro_of02+1; + ++.@rp_temp; + ++.@ro_of02; specialeffect2 EF_REPAIRWEAPON; next; break; @@ -1296,9 +1298,9 @@ OnEnable: close2; donpcevent "RL"+.@num+"#"+strnpcinfo(4)+"::OnEnable"; disablenpc strnpcinfo(0); - if (.@num == 1) set .@str$,"1st"; - else if (.@num == 2) set .@str$,"2nd"; - else if (.@num == 3) set .@str$,"3rd"; + if (.@num == 1) .@str$ = "1st"; + else if (.@num == 2) .@str$ = "2nd"; + else if (.@num == 3) .@str$ = "3rd"; mapannounce strnpcinfo(4),"The "+.@str$+" Fortress Gate has been reconstructed!",bc_map,"0x00ff00"; if (.@num == 1) setd .@var$+"[2]",0; else { @@ -1382,9 +1384,10 @@ OnEnable: setarray .y[0], 18, 44,22, 40,20,40,43, 48, 18, 32, 37, 22, 47, 18, 15, 42, 43, 15, 42, 22, 28, 18; } } - if (charat(strnpcinfo(1),4) == "2") set .@z,11; + if (charat(strnpcinfo(1),4) == "2") + .@z = 11; freeloop(1); - set .@defence,getcastledata(strnpcinfo(2),3); + .@defence = getcastledata(strnpcinfo(2),3); callsub OnSummon,.@z; if (.@defence > 70) set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),5; else if (.@defence > 50) set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),4; @@ -1394,10 +1397,10 @@ OnEnable: guardian strnpcinfo(2),.@w[4],.@w[5],"Guardian Soldier",1899,strnpcinfo(0)+"::OnGuardianDied"; else if (.@defence < 11) { set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),2; - set .@i,(.@z)?2:0; + .@i = (.@z)?2:0; guardian strnpcinfo(2),.@w[.@i],.@w[.@i+1],"Guardian Soldier",1899,strnpcinfo(0)+"::OnGuardianDied"; } - else for(set .@i,1; .@i<getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)); set .@i,.@i+1) + else for(.@i = 1; .@i<getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)); ++.@i) callsub OnSummon,.@i+.@z; freeloop(0); copyarray getd(".x_"+strnpcinfo(2)+"[0]"),.@x[0],22; @@ -1413,7 +1416,7 @@ OnTimer1800000: OnTimer2700000: OnTimer3600000: if (charat(strnpcinfo(1),4) == "2") end; - set .@var$,".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2); + .@var$ = ".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2); setd .@var$, getd(.@var$)+1; set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))+1; callsub OnSummon,getd(.@var$); @@ -1431,7 +1434,7 @@ OnTimer2100000: OnTimer3000000: OnTimer3900000: if (!(charat(strnpcinfo(1),4) == "2")) end; - set .@var$,".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2); + .@var$ = ".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2); setd .@var$, getd(.@var$)+1; set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))+1; callsub OnSummon,getd(.@var$); @@ -1446,7 +1449,8 @@ OnSummon: return; OnGuardianDied: - if (charat(strnpcinfo(1),4) == "2") set .@z,11; + if (charat(strnpcinfo(1),4) == "2") + .@z = 11; set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))-1; if (getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)) < 2) { set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))+1; @@ -1476,8 +1480,8 @@ OnEnable: else if (strnpcinfo(2) == "schg_cas03") setarray .@i[0],242,309,376,251; else setarray .@i[0],27,35,207,75; // Castles 1,4,5 are identical. } - set .@num, atoi(charat(strnpcinfo(1),2)); - set .@j,(.@num == 1)?0:2; + .@num = atoi(charat(strnpcinfo(1),2)); + .@j = (.@num == 1)?0:2; guardian strnpcinfo(2),.@i[.@j],.@i[.@j+1],((.@num == 1)?"1st":"2nd")+" Guardian Stone",1906+.@num,strnpcinfo(0)+"::OnGuardianStoneDied"; end; @@ -1488,11 +1492,15 @@ OnDisable: end; OnGuardianStoneDied: - set .@num, atoi(charat(strnpcinfo(1),2)); - set .@var$,"$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); + .@num = atoi(charat(strnpcinfo(1),2)); + .@var$ = "$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); setd .@var$+"["+(.@num-1)+"]",1; - if (getd(.@var$+"[0]") == 1 || getd(.@var$+"[0]") == 2) set .@destroyed, .@destroyed+1; - if (getd(.@var$+"[1]") == 1 || getd(.@var$+"[1]") == 2) set .@destroyed, .@destroyed+1; + if (getd(.@var$+"[0]") == 1 || getd(.@var$+"[0]") == 2) { + ++.@destroyed; + } + if (getd(.@var$+"[1]") == 1 || getd(.@var$+"[1]") == 2) { + ++.@destroyed; + } if (.@destroyed == 2) { mapannounce strnpcinfo(2),"All of the Guardian Stones have been destroyed!",bc_map,"0x00ff00"; donpcevent "RL0#"+strnpcinfo(2)+"::OnDisable"; @@ -1503,8 +1511,8 @@ OnGuardianStoneDied: end; OnTimer300000: - set .@num, atoi(charat(strnpcinfo(1),2)); - set .@str$,substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); + .@num = atoi(charat(strnpcinfo(1),2)); + .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); donpcevent ((.@num == 1)?"1st":"2nd")+" Guardian Stone#"+.@str$+"::OnEnable"; setd "$agit_"+.@str$+"["+(atoi(charat(strnpcinfo(1),2))-1)+"]",2; stopnpctimer; @@ -1515,7 +1523,7 @@ OnTimer300000: //============================================================ - script RL#template -1,{ OnEnable: - set .@num, atoi(charat(strnpcinfo(1),2)); + .@num = atoi(charat(strnpcinfo(1),2)); if (.@num == 0) { if (compare(strnpcinfo(2),"arug")) { if (strnpcinfo(2) == "arug_cas01") { @@ -1663,17 +1671,17 @@ OnEnable: if (.@num == 3) set getd(".MyMobCount_"+.@num+strnpcinfo(2)),4; else if (.@num) set getd(".MyMobCount_"+.@num+strnpcinfo(2)),6; setwall strnpcinfo(2),.@wall[0],.@wall[1],.@wall[2],.@wall[3],.@wall[4],substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9)+"_"+strnpcinfo(1); - set .@j,(getd(".MyMobCount_"+.@num+strnpcinfo(2)))?getd(".MyMobCount_"+.@num+strnpcinfo(2)):getarraysize(.@x); - for(set .@i,0; .@i<.@j; set .@i,.@i+1) + .@j = (getd(".MyMobCount_"+.@num+strnpcinfo(2)))?getd(".MyMobCount_"+.@num+strnpcinfo(2)):getarraysize(.@x); + for (.@i = 0; .@i<.@j; ++.@i) guardian strnpcinfo(2),.@x[.@i],.@y[.@i]," ",1905,strnpcinfo(0)+"::OnBarrierDestroyed"; end; OnBarrierDestroyed: - set .@num, atoi(charat(strnpcinfo(1),2)); + .@num = atoi(charat(strnpcinfo(1),2)); if (!.@num) end; set getd(".MyMobCount_"+.@num+strnpcinfo(2)),getd(".MyMobCount_"+.@num+strnpcinfo(2))-1; if (getd(".MyMobCount_"+.@num+strnpcinfo(2)) == 0) { - set .@var$,substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); + .@var$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9); setd "$agit_"+.@var$+"["+(.@num+1)+"]",1; setarray .@count$[0],"1st","2nd","3rd"; mapannounce strnpcinfo(2),"The "+.@count$[.@num-1]+" Fortress Gate is destroyed.",bc_map,"0x00ff00"; @@ -1714,10 +1722,10 @@ function script LinkFlag { mes "Teleport Service. Please"; mes "choose a destination"; mes "within the stronghold.^000000"; - for(set .@i,0; .@i<getargcount(); set .@i,.@i+3) - set .@menu$, .@menu$+getarg(.@i)+":"; - set .@menu$, .@menu$+"Cancel"; - set .@i, select(.@menu$)-1; + for (.@i = 0; .@i<getargcount(); .@i += 3) + .@menu$ += getarg(.@i)+":"; + .@menu$ += "Cancel"; + .@i = select(.@menu$)-1; if (.@i != getargcount()/3) warp strnpcinfo(4),getarg(.@i*3+1),getarg(.@i*3+2); close; @@ -1726,8 +1734,8 @@ function script LinkFlag { // Return Flags (function) //============================================================ function script ReturnFlag { - set .@str$, (compare(strnpcinfo(4),"aru"))?"Arunafeltz":"Schwaltzvalt"; - set .@GID, getcastledata(getarg(0),1); + .@str$ = (compare(strnpcinfo(4),"aru"))?"Arunafeltz":"Schwaltzvalt"; + .@GID = getcastledata(getarg(0),1); if (!.@GID) { mes "[ "+.@str$+" Royal Edict ]"; mes "The Holy Kingdom of"; @@ -1806,16 +1814,16 @@ function script ReturnFlag { switch(select("Hold the stem.:Do nothing.")) { case 1: if (compare(strnpcinfo(4),"arug")) { - set .@map$,"arug_dun01"; + .@map$ = "arug_dun01"; setarray .@mapx[0],350,350,50, 50,200; setarray .@mapy[0],350, 50,50,350,386; } else { - set .@map$,"schg_dun01"; + .@map$ = "schg_dun01"; setarray .@mapx[0],262, 94, 79,212,322; setarray .@mapy[0],314,284,140, 70,166; } - set .@i, atoi(charat(strnpcinfo(4),9))-1; + .@i = atoi(charat(strnpcinfo(4),9))-1; warp .@map$,.@mapx[.@i],.@mapy[.@i]; close; case 2: diff --git a/npc/instances/EndlessTower.txt b/npc/instances/EndlessTower.txt index 8da1d93c7..598ea98f5 100644 --- a/npc/instances/EndlessTower.txt +++ b/npc/instances/EndlessTower.txt @@ -54,7 +54,7 @@ alberta,214,77,6 script Captain Janssen 4_M_SEAMAN,{ mes "Sigh... I don't know if I can ever go back to sailing the sea..."; close; } - set .@name$,strcharinfo(0); + .@name$ = strcharinfo(0); if (in_102tower == 1) { mes "^0000ffLooking incredibly excited, the old man ran into the marine shop hurriedly ordering goods. You don't have anything better to do, so you decide to ask him why he is in such a rush.^000000"; next; @@ -75,7 +75,7 @@ alberta,214,77,6 script Captain Janssen 4_M_SEAMAN,{ mes "^0000ffMr. Janssen talked about his perilous ocean journeys for quite a while. You have enough time on your hands, so you sit down, quietly listening to his story.^000000"; next; mes "^0000ffAt least half of his story sounded grossly exaggerated, but something caught your ear: he insists that a humongous tower exists on the ocean, and that it's so tall, it scrapes across the sky.^000000"; - set in_102tower,2; + in_102tower = 2; close; } else if (in_102tower == 2) { mes "[Captain Janssen]"; @@ -119,7 +119,7 @@ alberta,214,77,6 script Captain Janssen 4_M_SEAMAN,{ mes "[Captain Janssen]"; mes "...Okay then..."; mes "Welcome aboard, first mate."; - set in_102tower,3; + in_102tower = 3; close; } else if (in_102tower == 3) { mes "[Captain Janssen]"; @@ -130,7 +130,7 @@ alberta,214,77,6 script Captain Janssen 4_M_SEAMAN,{ mes "[Captain Janssen]"; mes "Then pull up the anchor, first mate!"; close2; - set in_102tower,4; + in_102tower = 4; warp "e_tower",70,114; end; case 2: @@ -200,7 +200,7 @@ alberta,214,77,6 script Captain Janssen 4_M_SEAMAN,{ mes "[Captain Janssen]"; mes "Thank you so much! Now I can stock up on food and materials for my ship. You're kind, very kind!"; Zeny -= 10000; - set in_102tower,1; + in_102tower = 1; close; } } @@ -209,9 +209,9 @@ alberta,214,77,6 script Captain Janssen 4_M_SEAMAN,{ e_tower,81,105,0 script Tower Protection Stone 2_MONEMUS,{ - set .@party_id,getcharid(1); - set .@p_name$,getpartyname(.@party_id); - set .@md_name$,"Endless Tower"; + .@party_id = getcharid(1); + .@p_name$ = getpartyname(.@party_id); + .@md_name$ = "Endless Tower"; .@etower_timer = questprogress(60200,PLAYTIME); // 1 week .@etower_timer2 = questprogress(60201,PLAYTIME); // 4 hours @@ -226,7 +226,7 @@ e_tower,81,105,0 script Tower Protection Stone 2_MONEMUS,{ next; switch(select("Generate dungeon "+.@md_name$+":Enter the dungeon:Return to Alberta:Cancel")) { case 1: - set .@instance, instance_create(.@md_name$,.@party_id); + .@instance = instance_create(.@md_name$,.@party_id); if (.@instance < 0) { mes "Party Name: "+.@p_name$; mes "Party Leader: "+strcharinfo(0); @@ -235,7 +235,7 @@ e_tower,81,105,0 script Tower Protection Stone 2_MONEMUS,{ } mes "^0000ff"+.@md_name$+"^000000 - Try to reserve"; mes "After making a reservation, you have to talk to NPC behind and select the menu 'Enter the Dungeon' to enter the dungeon."; - for( set .@i, 1; .@i <= 6; set .@i, .@i + 1 ) { + for (.@i = 1; .@i <= 6; ++.@i) { if( instance_attachmap(.@i + "@tower", .@instance) == "" ) { mes "^0000ff"+.@md_name$+" ^000000- Reservation Failed!"; instance_destroy(.@instance); @@ -284,13 +284,13 @@ e_tower,81,105,0 script Tower Protection Stone 2_MONEMUS,{ close; } else if (.@etower_timer == 1 && .@etower_timer2 == 2) { - set .@dun_lim_time,etower_timer+604800; // 1 week - set .@dun_lim_time2,etower_timer+14400; // 4 hours - set .@dun_cur_time,gettimetick(2); - set .@dun_ent_t,(.@dun_lim_time - .@dun_cur_time); - set .@dun_h,(.@dun_ent_t / 3600); - set .@dun_m,(.@dun_ent_t - (.@dun_h * 3600)) / 60; - set .@dun_s,.@dun_ent_t - ((.@dun_h * 3600) + (.@dun_m * 60)); + .@dun_lim_time = etower_timer+604800; // 1 week + .@dun_lim_time2 = etower_timer+14400; // 4 hours + .@dun_cur_time = gettimetick(2); + .@dun_ent_t = (.@dun_lim_time - .@dun_cur_time); + .@dun_h = (.@dun_ent_t / 3600); + .@dun_m = (.@dun_ent_t - (.@dun_h * 3600)) / 60; + .@dun_s = .@dun_ent_t - ((.@dun_h * 3600) + (.@dun_m * 60)); mes "Due to the tower's aftereffects, you cannot enter the dungeon right now, " + .@dun_h + "hours " + .@dun_m + "minutes " + .@dun_s + "seconds left to enter the next dungeon."; next; @@ -299,7 +299,7 @@ e_tower,81,105,0 script Tower Protection Stone 2_MONEMUS,{ warp "alberta",223,36; end; } else { - set etower_timer,0; + etower_timer = 0; erasequest 60200; erasequest 60201; mes "^0000ffThe records and after effects related to the Endless Tower have been removed. You can generate and enter the Endless Tower again.^000000"; @@ -314,7 +314,7 @@ L_Enter: } else { mapannounce "e_tower", strcharinfo(0)+" of the party, " +getarg(3)+", is entering the dungeon, Endless Tower.",bc_map,"0x00ff99",FW_NORMAL,12; if (getarg(1)) { - set etower_timer,gettimetick(2); + etower_timer = gettimetick(2); setquest 60200; setquest 60201; } @@ -338,7 +338,7 @@ OnTouch: e_tower,1,1,2 script #102Administrator Mode CLEAR_NPC,{ callfunc "F_GM_NPC"; mes "Please enter the password"; - set .@i, callfunc("F_GM_NPC","dmc2008",1); + .@i = callfunc("F_GM_NPC","dmc2008",1); next; if (.@i == 1) { switch(select("Generate Purification Stone:Remove Purification Stone:Cancel")) { @@ -362,7 +362,7 @@ e_tower,1,1,2 script #102Administrator Mode CLEAR_NPC,{ } e_tower,69,117,4 script Purification Stone#et1 2_MONEMUS,{ - set etower_timer,0; + etower_timer = 0; mes "^0000ffThe records and aftereffects related to the Endless Tower have been removed. You can generate and enter the Endless Tower again.^000000"; close; @@ -394,7 +394,7 @@ OnTimer1800000: e_tower,151,185,4 script Purification Stone#et2 CLEAR_NPC,{ callfunc "F_GM_NPC"; - set etower_timer,0; + etower_timer = 0; mes "^0000ffThe records and aftereffects related to the Endless Tower have been removed. You can generate and enter the Endless Tower again.^000000"; close2; warp "e_tower",75,108; @@ -405,9 +405,9 @@ e_tower,151,185,4 script Purification Stone#et2 CLEAR_NPC,{ //============================================================ function script F_Tower_Monster { - set .@level, getarg(0); - set .@map$, getarg(1); - set .@label$, getarg(2); + .@level = getarg(0); + .@map$ = getarg(1); + .@label$ = getarg(2); switch(.@level) { case 1: @@ -1018,8 +1018,8 @@ function script F_Tower_Monster { areamonster .@map$,181,9,191,45,"Cecil Damon",1638,2,.@label$; break; case 99: - for(set .@i,1; .@i<=7; set .@i,.@i+1) { - set .@mob_ran,rand(1,30); + for(.@i = 1; .@i<=7; ++.@i) { + .@mob_ran = rand(1,30); if (.@mob_ran == 1) areamonster .@map$,267,9,277,45,"Kathryne Keyron",1639,2,.@label$; else if (.@mob_ran == 2) @@ -1088,8 +1088,8 @@ function script F_Tower_Monster { function script F_Tower_Warp { - set .@level, getarg(0); - set .@map$, getarg(1); + .@level = getarg(0); + .@map$ = getarg(1); switch(.@level) { case 2: warp .@map$,136,354; break; @@ -1203,7 +1203,7 @@ function script F_Tower_Warp { setarray .@level$[1],"26th","51st","76th"; setarray .@map$[1],"2@tower","3@tower","4@tower"; - set .@i, select("26th Level:51st Level:76th Level"); + .@i = select("26th Level:51st Level:76th Level"); if (countitem(6000) < .@i) { mes "-Warning-"; @@ -1236,8 +1236,8 @@ OnInstanceInit: end; OnMyMobDead: - set .@map$, instance_mapname("1@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("#1F Controller")+"::OnMyMobDead"); + .@map$ = instance_mapname("1@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("#1F Controller")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { initnpctimer; //SetItemPartyInMap in_102floor 1 @@ -1274,9 +1274,9 @@ OnTouch_: end; OnMyMobDead: - set .@map$, strnpcinfo(4); - set .@level, atoi(replacestr(strnpcinfo(0),"FGate102tower","")) + 1; - set .@mob_dead_num,mobcount(.@map$,instance_npcname(strnpcinfo(0))+"::OnMyMobDead"); + .@map$ = strnpcinfo(4); + .@level = atoi(replacestr(strnpcinfo(0),"FGate102tower","")) + 1; + .@mob_dead_num = mobcount(.@map$,instance_npcname(strnpcinfo(0))+"::OnMyMobDead"); if (.@mob_dead_num < 1) { initnpctimer; //SetItemPartyInMap in_102floor .@level @@ -1285,7 +1285,7 @@ OnMyMobDead: end; OnTimer5000: - set .@level, atoi(replacestr(strnpcinfo(0),"FGate102tower","")) + 1; + .@level = atoi(replacestr(strnpcinfo(0),"FGate102tower","")) + 1; mapannounce strnpcinfo(4), "All Monsters on the "+callsub(L_Display,.@level)+" Level have been defeated.",bc_map,"0xffff00"; donpcevent instance_npcname(.@level+"FGate102tower")+"::OnEnable"; stopnpctimer; @@ -1293,7 +1293,7 @@ OnTimer5000: L_Display: // Display level properly. - set .@mod, getarg(0) % 10; + .@mod = getarg(0) % 10; if (.@mod == 1 && getarg(0) != 11) return getarg(0)+"st"; else if (.@mod == 2 && getarg(0) != 12) return getarg(0)+"nd"; else if (.@mod == 3 && getarg(0) != 13) return getarg(0)+"rd"; @@ -1383,7 +1383,7 @@ OnTimer120000: 1@tower,71,1,0 script #Manager Mode1 CLEAR_NPC,{ callfunc "F_GM_NPC"; mes "Please enter the password."; - set .@i, callfunc("F_GM_NPC","dmc2008",1); + .@i = callfunc("F_GM_NPC","dmc2008",1); next; if (.@i == 1) { mes "This NPC manages the tower from the 1st to the 25th Level."; @@ -1414,8 +1414,8 @@ OnInstanceInit: end; OnMyMobDead: - set .@map$, instance_mapname("2@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("Immortal Furnace#1")+"::OnMyMobDead"); + .@map$ = instance_mapname("2@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("Immortal Furnace#1")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { initnpctimer; //SetItemPartyInMap in_102floor 26 @@ -1499,7 +1499,7 @@ OnTouch_: 2@tower,71,1,0 script #Manager Mode2 CLEAR_NPC,{ callfunc "F_GM_NPC"; mes "Please enter the password."; - set .@i, callfunc("F_GM_NPC","dmc2008",1); + .@i = callfunc("F_GM_NPC","dmc2008",1); next; if (.@i == 1) { mes "This NPC manages the tower from the 26st to the 50th Level."; @@ -1530,8 +1530,8 @@ OnInstanceInit: end; OnMyMobDead: - set .@map$, instance_mapname("3@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("Immortal Furnace#2")+"::OnMyMobDead"); + .@map$ = instance_mapname("3@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("Immortal Furnace#2")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { initnpctimer; //SetItemPartyInMap in_102floor 51 @@ -1615,7 +1615,7 @@ OnTouch_: 3@tower,71,1,0 script #Manager Mode3 CLEAR_NPC,{ callfunc "F_GM_NPC"; mes "Please enter the password."; - set .@i, callfunc("F_GM_NPC","dmc2008",1); + .@i = callfunc("F_GM_NPC","dmc2008",1); next; if (.@i == 1) { mes "This NPC manages the tower from the 51st to the 75th Level."; @@ -1646,8 +1646,8 @@ OnInstanceInit: end; OnMyMobDead: - set .@map$, instance_mapname("4@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("Immortal Furnace#3")+"::OnMyMobDead"); + .@map$ = instance_mapname("4@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("Immortal Furnace#3")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { initnpctimer; //SetItemPartyInMap in_102floor 76 @@ -1730,7 +1730,7 @@ OnTouch_: 4@tower,71,1,0 script #Manager Mode4 CLEAR_NPC,{ callfunc "F_GM_NPC"; mes "Please enter the password."; - set .@i, callfunc("F_GM_NPC","dmc2008",1); + .@i = callfunc("F_GM_NPC","dmc2008",1); next; if (.@i == 1) { mes "This NPC manages the tower from the 76th to the 99th Level."; @@ -1772,7 +1772,7 @@ OnTouch_: next; mes "^0000ffAs soon as the voice stopped talking, an irresistible force lifted and moved you somewhere else."; close2; - set in_102tower,10; + in_102tower = 10; warp "alberta",223,36; } else { @@ -1857,8 +1857,8 @@ OnInstanceInit: end; OnMyMobDead: - set .@map$, instance_mapname("5@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("#102FShadowDust1")+"::OnMyMobDead"); + .@map$ = instance_mapname("5@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("#102FShadowDust1")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { mapannounce .@map$, "Mysterious Voice: Who are you to dare intrude upon my sanctuary?!",bc_map,"0xffff00"; donpcevent instance_npcname("#102FShadowDust")+"::OnDisable"; @@ -1880,7 +1880,7 @@ OnDisable: end; OnEnable: - set .@map$, instance_mapname("5@tower"); + .@map$ = instance_mapname("5@tower"); monster .@map$,72,93,"Thorny Skeleton",1958,1; monster .@map$,70,87,"Thorn of Magic",1960,1; monster .@map$,68,83,"Thorn of Pureness",1961,1; @@ -1922,7 +1922,7 @@ OnEnable: 5@tower,71,1,0 script #Manager Mode5 CLEAR_NPC,{ callfunc "F_GM_NPC"; mes "This NPC manages the crystal on the 100th Level. Please enter the password."; - set .@i, callfunc("F_GM_NPC","dmc2008",1); + .@i = callfunc("F_GM_NPC","dmc2008",1); next; if (.@i == 1) { donpcevent instance_npcname("Lucid Crystal#102")+"::OnEnable"; @@ -1982,7 +1982,7 @@ OnInstanceInit: end; OnMyMobDead: - set .@mob_dead_num,mobcount(instance_mapname("6@tower"),instance_npcname("Tyrant's Throne#")+"::OnMyMobDead"); + .@mob_dead_num = mobcount(instance_mapname("6@tower"),instance_npcname("Tyrant's Throne#")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { donpcevent instance_npcname("#1st Beeper")+"::OnEnable"; disablenpc instance_npcname("Tyrant's Throne#"); @@ -2014,7 +2014,7 @@ OnTimer15500: end; OnTimer20500: - set .@map$, instance_mapname("6@tower"); + .@map$ = instance_mapname("6@tower"); mapannounce .@map$,"Let's see who runs fastest. Are you ready?",bc_map,"0x00ffcc"; stopnpctimer; areamonster .@map$,151,66,153,106,"Bone Guardian",1152,50,instance_npcname("#1st Beeper")+"::OnMyMobDead"; @@ -2022,8 +2022,8 @@ OnTimer20500: end; OnMyMobDead: - set .@map$, instance_mapname("6@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("#1st Beeper")+"::OnMyMobDead"); + .@map$ = instance_mapname("6@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("#1st Beeper")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { donpcevent instance_npcname("#2nd Beeper")+"::OnEnable"; //SetItemPartyInMap in_102floor 101 @@ -2049,7 +2049,7 @@ OnTimer5500: end; OnTimer10500: - set .@map$, instance_mapname("6@tower"); + .@map$ = instance_mapname("6@tower"); mapannounce .@map$,"I demand an encore!",bc_map,"0x00ffcc"; stopnpctimer; areamonster .@map$,151,66,153,106,"Wind Guardian",1263,30,instance_npcname("#2nd Beeper")+"::OnMyMobDead"; @@ -2057,8 +2057,8 @@ OnTimer10500: end; OnMyMobDead: - set .@map$, instance_mapname("6@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("#2nd Beeper")+"::OnMyMobDead"); + .@map$ = instance_mapname("6@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("#2nd Beeper")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { donpcevent instance_npcname("#3rd Beeper")+"::OnEnable"; //SetItemPartyInMap in_102floor 102 @@ -2084,7 +2084,7 @@ OnTimer5500: end; OnTimer10500: - set .@map$, instance_mapname("6@tower"); + .@map$ = instance_mapname("6@tower"); mapannounce .@map$,"How would you like to play one more round?",bc_map,"0x00ffcc"; stopnpctimer; areamonster .@map$,151,66,153,106,"Sword Edge Guardian",1132,20,instance_npcname("#3rd Beeper")+"::OnMyMobDead"; @@ -2092,8 +2092,8 @@ OnTimer10500: end; OnMyMobDead: - set .@map$, instance_mapname("6@tower"); - set .@mob_dead_num,mobcount(.@map$,instance_npcname("#3rd Beeper")+"::OnMyMobDead"); + .@map$ = instance_mapname("6@tower"); + .@mob_dead_num = mobcount(.@map$,instance_npcname("#3rd Beeper")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { donpcevent instance_npcname("#4th Beeper")+"::OnEnable"; //SetItemPartyInMap in_102floor 103 @@ -2119,7 +2119,7 @@ OnTimer5500: end; OnTimer10500: - set .@map$, instance_mapname("6@tower"); + .@map$ = instance_mapname("6@tower"); mapannounce .@map$,"You'll soon know. Mine is the face of death!",bc_map,"0x00ffcc"; stopnpctimer; monster .@map$,156,147,"Nacht Sieger",1956,1,instance_npcname("#4th Beeper")+"::OnMyMobDead"; diff --git a/npc/instances/NydhoggsNest.txt b/npc/instances/NydhoggsNest.txt index ada2bde55..6538330fc 100644 --- a/npc/instances/NydhoggsNest.txt +++ b/npc/instances/NydhoggsNest.txt @@ -32,7 +32,7 @@ nyd_dun02,100,201,3 script Yggdrasil Gatekeeper HIDDEN_NPC,8,8,{ specialeffect2 EF_HOLYHIT; pushpc 3,3; if (ep13_1_edq == 14) - set ep13_1_edq,15; + ep13_1_edq = 15; mes "A mysterious power prevents you from getting too close. It looks like there is something strong beyond the door..."; next; mes "Perhaps there's a great hidden secret beyond the gate, beyond expectation."; @@ -42,7 +42,7 @@ nyd_dun02,100,201,3 script Yggdrasil Gatekeeper HIDDEN_NPC,8,8,{ next; mes "You'll have to obtain the others trust in the expendition camp by working hard."; } - set ins_nyd,1; + ins_nyd = 1; close; case 2: close; @@ -54,7 +54,7 @@ nyd_dun02,100,201,3 script Yggdrasil Gatekeeper HIDDEN_NPC,8,8,{ next; mes "It would be better to go back to camp and inform the others and ask for help."; if (ep13_1_edq == 14 || ep13_1_edq == 15) { - set ep13_1_edq,15; + ep13_1_edq = 15; close; } next; @@ -78,7 +78,7 @@ nyd_dun02,100,201,3 script Yggdrasil Gatekeeper HIDDEN_NPC,8,8,{ mes "In the name of Yggdrasiliad, I will accept you as a servant of the Guardian."; next; specialeffect2 EF_CHANGECOLD; - set ins_nyd,200; + ins_nyd = 200; mes "[Yggdrasil Gatekeeper]"; mes "I accept your entrance through the Guardian's gate. You are now considered a faithful servant of the Guardian Nidhoggur."; next; @@ -89,8 +89,8 @@ nyd_dun02,100,201,3 script Yggdrasil Gatekeeper HIDDEN_NPC,8,8,{ } } else if (ins_nyd == 131 || ins_nyd == 132 || ins_nyd > 199) { - set .@party_id,getcharid(1); - set .@md_name$,"Nidhoggur's Nest"; + .@party_id = getcharid(1); + .@md_name$ = "Nidhoggur's Nest"; .@ins_nyd_check = questprogress(3135,PLAYTIME); // 3 Day cooldown .@ins_nyd_check2 = questprogress(3136,PLAYTIME); // 4 Hour play limit @@ -115,13 +115,13 @@ nyd_dun02,100,201,3 script Yggdrasil Gatekeeper HIDDEN_NPC,8,8,{ next; switch(select("Please allow me to enter.:I want to go in.:I want to leave.")) { case 1: - set .@instance, instance_create(.@md_name$, .@party_id); + .@instance = instance_create(.@md_name$, .@party_id); if (.@instance < 0) { mes "[Yggdrasil Gatekeeper]"; mes "The Guardian seems to wish to be alone. I will go in and check, please wait out here."; close; } - for( set .@i, 1; .@i <= 2; set .@i, .@i + 1 ) { + for (.@i = 1; .@i <= 2; ++.@i) { if( instance_attachmap(.@i + "@nyd", .@instance) == "" ) break; } @@ -178,7 +178,7 @@ nyd_dun02,100,201,3 script Yggdrasil Gatekeeper HIDDEN_NPC,8,8,{ mes "If you would like to enter again, please register with me."; erasequest 3135; erasequest 3136; - set 'ins_nyd2,0; + 'ins_nyd2 = 0; close; } } @@ -278,7 +278,7 @@ mid_camp,271,299,3 script Historian Magnifier#edq 4_M_SAGE_C,3,3,{ next; mes "[Historian Magnifier]"; mes "I will definitely help you find a way to enter the World Tree directly so, just believe in me! Okay~!!"; - set ins_nyd,3; + ins_nyd = 3; close; } else if (ins_nyd == 3) { mes "Why are you standing there? Go to my assistant in the Prontera Library!"; @@ -336,7 +336,7 @@ mid_camp,271,299,3 script Historian Magnifier#edq 4_M_SAGE_C,3,3,{ next; mes "[Historian Magnifier]"; mes "I'll also keep searching here. If you find anything, come back and let me know."; - set ins_nyd,5; + ins_nyd = 5; close; } } else if ((ins_nyd == 5) || (ins_nyd == 51) || (ins_nyd == 52)) { @@ -375,7 +375,7 @@ mid_camp,271,299,3 script Historian Magnifier#edq 4_M_SAGE_C,3,3,{ next; mes "[Historian Magnifier]"; mes "Let's report to Commander Agip about the situation so far. Then, we wait on his decision."; - set ins_nyd,7; + ins_nyd = 7; close; } else if ((ins_nyd == 7) || (ins_nyd == 8)) { mes "Report to Commander Hibba Agip about what we have discovered, since time is dependent on his decision."; @@ -412,7 +412,7 @@ mid_camp,271,299,3 script Historian Magnifier#edq 4_M_SAGE_C,3,3,{ prt_in,171,94,3 script Assistant Naomi#edq 4_F_HUWOMAN,3,3,{ mes "[Assistant Naomi]"; - set .@name$,strcharinfo(0); + .@name$ = strcharinfo(0); if (ins_nyd == 3) { mes "The doctor never ever tries to come back, and there're too many things to do... How can I do it all..."; next; @@ -519,7 +519,7 @@ prt_in,171,94,3 script Assistant Naomi#edq 4_F_HUWOMAN,3,3,{ next; mes "[Assistant Naomi]"; mes "Before you go back to the Doctor, you had better read these books. So, I will go back to work."; - set ins_nyd,4; + ins_nyd = 4; close; } } else if (ins_nyd == 4) { @@ -615,7 +615,7 @@ splendide,198,178,3 script Grumbling Soldier#edq 4_M_FAIRYSOLDIER,3,3,{ next; mes "[Grumbling Soldier]"; mes "Might be... those Sapha tribesmen have dug in the cave before... They do have a special talent for digging."; - set ins_nyd,51; + ins_nyd = 51; close; case 2: mes "[Grumbling Soldier]"; @@ -675,7 +675,7 @@ splendide,240,164,3 script Sighing Soldier#edq 4_M_FAIRYSOLDIER2,3,3,{ next; mes "[Sighing Soldier]"; mes "We don't know if the monsters there are strong, so we never checked it out. But on a personal level, nobody wants to go there..."; - set ins_nyd,51; + ins_nyd = 51; close; case 2: mes "[Sighing Soldier]"; @@ -761,7 +761,7 @@ spl_in01,109,60,3 script Commander Lebiordirr#edq 4_F_FAIRY,3,3,{ next; mes "[Commander Lebiordirr]"; mes "Now, if you understand this, inform your friends."; - set ins_nyd,61; + ins_nyd = 61; close; } else if (ins_nyd == 61) { mes "If you can't follow this rule, I will stop associating with you and ban all of your people from here."; @@ -843,7 +843,7 @@ spl_in01,109,60,3 script Commander Lebiordirr#edq 4_F_FAIRY,3,3,{ next; mes "[Commander Lebiordirr]"; mes "Here, outsider. Arioss will explain the situation with the giants. Talk with him..."; - set ins_nyd,91; + ins_nyd = 91; close; } else if ((ins_nyd == 91) || (ins_nyd == 101) || (ins_nyd == 111) || (ins_nyd == 200) || (ins_nyd == 201) || (ins_nyd == 202)) { mes "Outsider. Arioss here will explain the situation with the giants, talk with him..."; @@ -906,7 +906,7 @@ spl_in01,109,60,3 script Commander Lebiordirr#edq 4_F_FAIRY,3,3,{ next; mes "[Aide Arioss]"; mes "Commander..."; - set ins_nyd,121; + ins_nyd = 121; close; } else if ((ins_nyd == 121) || (ins_nyd == 131)) { mes "Strange one, thank you for your cooperation in such situations... Please forget what has happened today..."; @@ -978,7 +978,7 @@ spl_in01,104,56,3 script Aide Arioss#edq 4_F_FAIRYKID2,3,3,{ next; mes "[Aide Arioss]"; mes "I have already told you what you wanted to know... If you need anything else, just let me know."; - set ins_nyd,101; + ins_nyd = 101; close; } else if (ins_nyd == 101) { mes "Ah, you said that there is a strange power blocking the entrance to the Guardian's nest, right?"; @@ -1019,7 +1019,7 @@ spl_in01,104,56,3 script Aide Arioss#edq 4_F_FAIRYKID2,3,3,{ next; mes "[Aide Arioss]"; mes "Please meet the Guardian, and come back with an answer to everything. I believe in you."; - set ins_nyd,111; + ins_nyd = 111; close; } else if ((ins_nyd == 101) || (ins_nyd == 111) || (ins_nyd == 200) || (ins_nyd == 201) || (ins_nyd == 202)) { mes "Please meet with the Guardian and take a wise answer from him. I will trust you."; @@ -1039,7 +1039,7 @@ spl_in01,104,56,3 script Aide Arioss#edq 4_F_FAIRYKID2,3,3,{ mes "It can't compare with the effort you have put in for us... but please accept our token of friendship."; getexp 1500000,350000; getitem 6081,10; //Splendide_Coin - set ins_nyd,131; + ins_nyd = 131; mes "[Aide Arioss]"; mes "If we can help you with anything in the future, we will do all we can to assist you. Once again, thank you."; close; @@ -1140,7 +1140,7 @@ man_in01,311,57,3 script Neat Etorr#edq 4_MAN_NITT,3,3,{ next; mes "[Neat Etorr]"; mes "You have heard it all, now please report back to your race."; - set ins_nyd,62; + ins_nyd = 62; close; } else if (ins_nyd == 62) { mes "That captive is the only reference for our tribe, so we have taken good care of her. She is related to your current investigation."; @@ -1225,7 +1225,7 @@ man_in01,311,57,3 script Neat Etorr#edq 4_MAN_NITT,3,3,{ next; mes "[Neat Etorr]"; mes "Strange one, we hope our cooperation will be a good one. Now please go interrogate the Laphine prisoner."; - set ins_nyd,92; + ins_nyd = 92; close; } else if ((ins_nyd == 92) || (ins_nyd == 102) || (ins_nyd == 112) || (ins_nyd == 200) || (ins_nyd == 201) || (ins_nyd == 202)) { mes "Strange one, we hope our cooperation will be a good one. Now please go interrogate the Laphine prisoner."; @@ -1275,7 +1275,7 @@ man_in01,311,57,3 script Neat Etorr#edq 4_MAN_NITT,3,3,{ mes "It's not a lot, but please this as a token of our appreciation."; getexp 1500000,350000; getitem 6080,10; //Manuk_Coin - set ins_nyd,132; + ins_nyd = 132; close; } else if (ins_nyd == 132) { mes "Strange one, thank you for helping us in the time of need. I will never forget your kindness."; @@ -1345,7 +1345,7 @@ man_in01,291,62,3 script Laphine Prisoner#edq 4_F_FAIRYKID2,3,3,{ next; mes "[Laphine Prisoner]"; mes "I just want to say this...if the Sapha tribe intrude that place, we will never forgive them!"; - set ins_nyd,52; + ins_nyd = 52; close; case 3: mes "[Laphine Prisoner]"; @@ -1420,7 +1420,7 @@ man_in01,291,62,3 script Laphine Prisoner#edq 4_F_FAIRYKID2,3,3,{ next; mes "[Laphine Prisoner]"; mes "I have already told you everything you wanted to hear. If you have any other requests, please let me know."; - set ins_nyd,102; + ins_nyd = 102; close; } else if (ins_nyd == 102) { mes "Ah, you said that there is a strange power blocking the entrance to the Guardian's nest, right?"; @@ -1461,7 +1461,7 @@ man_in01,291,62,3 script Laphine Prisoner#edq 4_F_FAIRYKID2,3,3,{ next; mes "[Laphine Prisoner]"; mes "Please meet the Guardian, and come back with an answer to everything. And tell the answer to..."; - set ins_nyd,112; + ins_nyd = 112; close; } else if ((ins_nyd == 71) || (ins_nyd == 81) || (ins_nyd == 91) || (ins_nyd == 101) || (ins_nyd == 111) || (ins_nyd == 121) || (ins_nyd == 131)) { mes "... ..."; @@ -1555,7 +1555,7 @@ OnTouch_: mes "[World Tree Yggdrasil]"; mes "My soul... it has been trapped here. You're the only ones I can trust now."; next; - set .@exit,1; + .@exit = 1; } if (.@exit) break; } @@ -1608,7 +1608,7 @@ OnTouch_: next; mes "[World Tree Yggdrasil]"; mes "And... Be careful... Be careful of the shadow's power."; - set 'ins_nyd2,1; + 'ins_nyd2 = 1; donpcevent instance_npcname("ins_nyd_1f_timer")+"::OnEnable"; donpcevent instance_npcname("nyd_call_mon_1")+"::OnEnable"; close; @@ -1665,7 +1665,7 @@ OnTouch: end; OnInstanceInit: // Temporary fix for @reloadscript. - set 'ins_nyd2,0; + 'ins_nyd2 = 0; end; } @@ -1675,7 +1675,7 @@ OnInstanceInit: end; OnEnable: - set .@map$, instance_mapname("1@nyd"); + .@map$ = instance_mapname("1@nyd"); monster .@map$,220,250,"Nidhoggur's Guardian#1",2020,1,instance_npcname("nyd_call_mon_1")+"::OnMyMobDead"; monster .@map$,220,252,"Nidhoggur's Guardian#2",2020,1,instance_npcname("nyd_call_mon_1")+"::OnMyMobDead"; monster .@map$,240,270,"Nidhoggur's Guardian#3",2020,1,instance_npcname("nyd_call_mon_1")+"::OnMyMobDead"; @@ -1697,13 +1697,13 @@ OnDisable: end; OnMyMobDead: - set .@map$, instance_mapname("1@nyd"); - set .@mob_dead_num,mobcount(.@map$, instance_npcname("nyd_call_mon_1")+"::OnMyMobDead"); + .@map$ = instance_mapname("1@nyd"); + .@mob_dead_num = mobcount(.@map$, instance_npcname("nyd_call_mon_1")+"::OnMyMobDead"); if (.@mob_dead_num < 1) { mapannounce .@map$, "All of Nidhoggur's Guardians have been defeated!",bc_map,"0x00ff99"; donpcevent instance_npcname("ins_nyd_1f_timer")+"::OnDisable"; donpcevent instance_npcname("nyd_to2f_warp")+"::OnEnable"; - set 'ins_nyd2,2; + 'ins_nyd2 = 2; } end; } @@ -1763,14 +1763,14 @@ OnEnable: end; OnTouch: - set 'ins_nyd2,3; + 'ins_nyd2 = 3; warp instance_mapname("2@nyd"),200,10; end; } 1@nyd,1,1,0 script ins_nyd1_spawn_mobs -1,{ OnInstanceInit: - set .@map$, instance_mapname("1@nyd"); + .@map$ = instance_mapname("1@nyd"); monster .@map$,0,0,"Ancient Tree",2019,40,instance_npcname("ins_nyd1_spawn_mobs")+"::OnMyTreeDead"; monster .@map$,0,0,"Rhyncho",2020,30,instance_npcname("ins_nyd1_spawn_mobs")+"::OnMyRhynDead"; monster .@map$,0,0,"Phylla",2021,30,instance_npcname("ins_nyd1_spawn_mobs")+"::OnMyPhyDead"; @@ -1862,7 +1862,7 @@ OnInstanceInit: OnEnable: enablenpc instance_npcname("nyd_2f_boss_enter_call"); - set .@map$, instance_mapname("2@nyd"); + .@map$ = instance_mapname("2@nyd"); monster .@map$,199,327,"Nidhoggur's Shadow",2022,1,instance_npcname("nyd_2f_boss_enter_call")+"::OnMyMobDead"; mapannounce .@map$, "Nidhoggur's Shadow : I will devour all of you... you and the World Tree Yggdrasil.",bc_map,"0x00ff99"; //donpcevent instance_npcname("nyd_2f_boss_enter_call")+"::OnGo"; @@ -1877,7 +1877,7 @@ OnDisable: OnTimer180000: stopnpctimer; OnWarpColor: - set .@map$, instance_mapname("2@nyd"); + .@map$ = instance_mapname("2@nyd"); switch(rand(1,4)) { case 1: mapannounce .@map$, "Nidhoggur's Shadow : In this chaos... your blood is just what I need.",bc_map,"0xFFFF00"; @@ -1915,7 +1915,7 @@ OnWarpColor: end; OnMyMobDead: - set .@map$, instance_mapname("2@nyd"); + .@map$ = instance_mapname("2@nyd"); if (mobcount(.@map$,instance_npcname("nyd_2f_boss_enter_call")+"::OnMyMobDead") < 1) { mapannounce .@map$, "Nidhoggur's Shadow : World Tree Yggdrasil's guardian... his powers are disappearing...",bc_map,"0x00ff99"; donpcevent instance_npcname("World Tree Yggdrasil#2F")+"::OnEnable"; @@ -1925,7 +1925,7 @@ OnMyMobDead: donpcevent instance_npcname("nyd_2f_white_c")+"::OnDisable"; donpcevent instance_npcname("nyd_2f_yellow_c")+"::OnDisable"; donpcevent instance_npcname("nyd_2f_green_c")+"::OnDisable"; - set 'ins_nyd2,4; + 'ins_nyd2 = 4; end; } end; @@ -1976,8 +1976,8 @@ OnTimer180000: next; switch(select("Please let me out.:I want to look around for a while.")) { case 1: - set 'ins_nyd2,0; - set ins_nyd,203; + 'ins_nyd2 = 0; + ins_nyd = 203; //setquest 3135; warp "nyd_dun02",98,196; end; @@ -2051,8 +2051,8 @@ OnInstanceInit: OnEnable: enablenpc instance_npcname(strnpcinfo(0)); initnpctimer; - set .@map$, instance_mapname("2@nyd"); - set .@label$, instance_npcname(strnpcinfo(0))+"::OnMyMobDead"; + .@map$ = instance_mapname("2@nyd"); + .@label$ = instance_npcname(strnpcinfo(0))+"::OnMyMobDead"; if (compare(strnpcinfo(0),"red")) { monster .@map$,120,285,"Nidhoggur's Guardian#1",2020,1,.@label$; monster .@map$,119,286,"Nidhoggur's Guardian#2",2020,1,.@label$; @@ -2081,7 +2081,7 @@ OnEnable: end; OnMyMobDead: - set .@map$, instance_mapname("2@nyd"); + .@map$ = instance_mapname("2@nyd"); if (mobcount(.@map$,instance_npcname(strnpcinfo(0))+"::OnMyMobDead") < 1) { mapannounce .@map$, "Nidhoggur's Shadow : You're not bad... but I will be your opponent this time.",bc_map,"0x00ff99"; donpcevent instance_npcname("nyd_2f_boss_enter_logic")+"::OnEnable"; @@ -2155,7 +2155,7 @@ OnTouch: 2@nyd,1,1,0 script ins_nyd2_spawn_mobs -1,{ OnInstanceInit: - set .@map$, instance_mapname("2@nyd"); + .@map$ = instance_mapname("2@nyd"); areamonster .@map$,200,92,180,80,"Rhyncho",2020,40,instance_npcname("ins_nyd2_spawn_mobs")+"::OnMyRhynDead"; areamonster .@map$,200,92,180,80,"Phylla",2021,40,instance_npcname("ins_nyd2_spawn_mobs")+"::OnMyPhyDead"; areamonster .@map$,200,92,180,80,"Dark Shadow",2023,40,instance_npcname("ins_nyd2_spawn_mobs")+"::OnMyDarkshaDead"; @@ -2193,8 +2193,8 @@ sec_in02,36,167,3 script Nidhoggur Manager 4_M_FAIRYSOLDIER,1,1,{ next; switch(select("Reset variables to allow entrance to Nidhoggur:change variable 'ins_nyd':Remove 3 day timer 3135:Confirm variable number")) { case 1: - set ins_nyd,200; - set ins_nyd2,0; + ins_nyd = 200; + ins_nyd2 = 0; erasequest 3135; mes "ins_nyd set to 200 ins_nyd2 set to 0"; mes "quest 3135 erased."; @@ -2203,8 +2203,8 @@ sec_in02,36,167,3 script Nidhoggur Manager 4_M_FAIRYSOLDIER,1,1,{ mes "Which variable do you want to change?"; next; switch(select("ins_nyd:ins_nyd2")) { - case 1: set .@var$,"ins_nyd"; break; - case 2: set .@var$,"ins_nyd2"; break; + case 1: .@var$ = "ins_nyd"; break; + case 2: .@var$ = "ins_nyd2"; break; } mes "Input the variable number"; next; @@ -2228,7 +2228,7 @@ sec_in02,36,167,3 script Nidhoggur Manager 4_M_FAIRYSOLDIER,1,1,{ nyd_dun02,7,7,2 script Purification Admin#nyd2 CLEAR_NPC,2,0,{ callfunc "F_GM_NPC"; mes "Please enter the password"; - set .@i, callfunc("F_GM_NPC","dragonslayer",1); + .@i = callfunc("F_GM_NPC","dragonslayer",1); next; if (.@i == 0) { mes "Enter the password exactly."; @@ -2259,8 +2259,8 @@ nyd_dun02,7,7,2 script Purification Admin#nyd2 CLEAR_NPC,2,0,{ nyd_dun02,88,195,4 script Purification Stone#nyd2 2_MONEMUS,{ erasequest 3135; erasequest 3136; - set ins_nyd,200; - set ins_nyd2,0; + ins_nyd = 200; + ins_nyd2 = 0; mes "^0000FFThe records and after-effect related to the Nidhoggur's Nest have been removed. You can generate and enter the dungeon again.^000000"; close; OnInit: diff --git a/npc/instances/OrcsMemory.txt b/npc/instances/OrcsMemory.txt index 4ed546b1e..e43e3df10 100644 --- a/npc/instances/OrcsMemory.txt +++ b/npc/instances/OrcsMemory.txt @@ -42,9 +42,9 @@ //============================================================ gef_fild10,242,202,0 script Dimensional Gorge Piece 2_MONEMUS,{ - set .@party_id,getcharid(1); - set .@p_name$,getpartyname(.@party_id); - set .@md_name$,"Orc's Memory"; + .@party_id = getcharid(1); + .@p_name$ = getpartyname(.@party_id); + .@md_name$ = "Orc's Memory"; if (!instance_check_party(.@party_id,2,30,80)) { mes "Only users between Levels ^ff000030 ~ 80^000000 can enter this Dungeon."; @@ -58,7 +58,7 @@ gef_fild10,242,202,0 script Dimensional Gorge Piece 2_MONEMUS,{ next; switch(select("Reserve the "+.@md_name$+":Enter the Dungeon:Cancel")) { case 1: - set .@instance,instance_create(.@md_name$,.@party_id); + .@instance = instance_create(.@md_name$,.@party_id); if (.@instance < 0) { mes "Party Name: "+.@p_name$; mes "Party Leader: "+strcharinfo(0); @@ -66,7 +66,7 @@ gef_fild10,242,202,0 script Dimensional Gorge Piece 2_MONEMUS,{ close; } mes "^0000ff"+.@md_name$+"^000000- Attempting to book an entrance"; - for( set .@i, 1; .@i <= 2; set .@i, .@i + 1 ) { + for (.@i = 1; .@i <= 2; ++.@i) { if( instance_attachmap(.@i + "@orcs", .@instance) == "" ) break; } @@ -158,7 +158,7 @@ gef_fild10,238,202,6 script Mad Scientist#orc 4_LGTSCIENCE,{ case 1: mes "[Mad Scientist]"; mes "Very good! Just sit in the hands of this statue! And try to act natural when you're in there!"; - set mad,1; + mad = 1; close; case 2: mes "[Mad Scientist]"; @@ -170,7 +170,7 @@ gef_fild10,238,202,6 script Mad Scientist#orc 4_LGTSCIENCE,{ mes "Hmm? Put your hand on that Monemus Statue if you want to experience traveling through dimensions!"; close; } else { - set mad,1; + mad = 1; end; } } @@ -195,10 +195,10 @@ OnEnable: end; OnMyMobDead: - set .@map$, instance_mapname("1@orcs"); - set .@mob_dead_num, 30 - mobcount(.@map$,instance_npcname("#Resurrect Monsters1")+"::OnMyMobDead"); + .@map$ = instance_mapname("1@orcs"); + .@mob_dead_num = 30 - mobcount(.@map$,instance_npcname("#Resurrect Monsters1")+"::OnMyMobDead"); if (.@mob_dead_num > 0) { - set .@mob_ran,rand(1,30); + .@mob_ran = rand(1,30); if (.@mob_ran > 29) { monster .@map$,0,0,"Orc Warrior",1023,.@mob_dead_num,instance_npcname("#Resurrect Monsters1")+"::OnMyMobDead"; } @@ -231,7 +231,7 @@ OnTimer10: end; OnTimer4010: - set .@map$, instance_mapname("1@orcs"); + .@map$ = instance_mapname("1@orcs"); mapannounce .@map$, "Stalactic Golems are digging out of the deep underground.",bc_map,"0x77ff77"; areamonster .@map$,17,187,27,177,"Stalactic Golem",1278,20,instance_npcname("#Resurrect Monsters1")+"::OnMyMobDead"; stopnpctimer; @@ -255,8 +255,8 @@ OnEnable: end; OnMyMobDead: - set .@map$, instance_mapname("1@orcs"); - set .@mob_dead_num, 15 - mobcount(.@map$,instance_npcname("#Resurrect Monsters2")+"::OnMyMobDead"); + .@map$ = instance_mapname("1@orcs"); + .@mob_dead_num = 15 - mobcount(.@map$,instance_npcname("#Resurrect Monsters2")+"::OnMyMobDead"); if (rand(1,30) > 15) { if (.@mob_dead_num > 0) { monster .@map$,0,0,"Trained Wolf",1106,.@mob_dead_num,instance_npcname("#Resurrect Monsters2")+"::OnMyMobDead"; @@ -287,9 +287,9 @@ OnEnable: end; OnMyMobDead: - set .@map$, instance_mapname("1@orcs"); - set .@mob_dead_num, 15 - mobcount(.@map$,instance_npcname("#Resurrect Monsters3")+"::OnMyMobDead"); - set .@mob_ran,rand(1,30); + .@map$ = instance_mapname("1@orcs"); + .@mob_dead_num = 15 - mobcount(.@map$,instance_npcname("#Resurrect Monsters3")+"::OnMyMobDead"); + .@mob_ran = rand(1,30); if (.@mob_ran > 29) { if (.@mob_dead_num > 0) { monster .@map$,0,0,"Orc Archer",1189,.@mob_dead_num,instance_npcname("#Resurrect Monsters3")+"::OnMyMobDead"; @@ -320,8 +320,8 @@ OnInstanceInit: end; OnMyMobDead: - set .@map$, instance_mapname("1@orcs"); - set .@mob_dead_num, 10 - mobcount(.@map$,instance_npcname("#Resurrect Monsters4")+"::OnMyMobDead"); + .@map$ = instance_mapname("1@orcs"); + .@mob_dead_num = 10 - mobcount(.@map$,instance_npcname("#Resurrect Monsters4")+"::OnMyMobDead"); if (.@mob_dead_num > 0) { monster .@map$,0,0,"Anopheles",1627,.@mob_dead_num,instance_npcname("#Resurrect Monsters4")+"::OnMyMobDead"; } @@ -542,10 +542,10 @@ OnDisable: end; OnMyMobDead: - set .@map$, instance_mapname("2@orcs"); - set .@mob_dead_num, 30 - mobcount(.@map$,instance_npcname("#2Resurrect Monsters1")+"::OnMyMobDead"); + .@map$ = instance_mapname("2@orcs"); + .@mob_dead_num = 30 - mobcount(.@map$,instance_npcname("#2Resurrect Monsters1")+"::OnMyMobDead"); if (.@mob_dead_num > 0) { - set .@mob_ran,rand(1,30); + .@mob_ran = rand(1,30); if (.@mob_ran > 29) { monster .@map$,0,0,"Vengeful Orc",1152,.@mob_dead_num,instance_npcname("#2Resurrect Monsters1")+"::OnMyMobDead"; } @@ -575,7 +575,7 @@ OnTimer10: end; OnTimer4010: - set .@map$, instance_mapname("2@orcs"); + .@map$ = instance_mapname("2@orcs"); mapannounce .@map$, "[ Wraiths were summoned by an unknown power ]",bc_map,"0x77ff77"; areamonster .@map$,167,25,177,35,"Wraith",1475,30,instance_npcname("#2Resurrect Monsters1")+"::OnMyMobDead"; stopnpctimer; @@ -595,9 +595,9 @@ OnEnable: end; OnMyMobDead: - set .@map$, instance_mapname("2@orcs"); - set .@mob_dead_num, 15 - mobcount(.@map$,instance_npcname("#2Resurrect Monsters3")+"::OnMyMobDead"); - set .@mob_ran,rand(1,30); + .@map$ = instance_mapname("2@orcs"); + .@mob_dead_num = 15 - mobcount(.@map$,instance_npcname("#2Resurrect Monsters3")+"::OnMyMobDead"); + .@mob_ran = rand(1,30); if (.@mob_ran > 29) { if (.@mob_dead_num > 0) { monster .@map$,0,0,"Orc Archer",1189,.@mob_dead_num,instance_npcname("#2Resurrect Monsters3")+"::OnMyMobDead"; @@ -632,8 +632,8 @@ OnInstanceInit: end; OnMyMobDead: - set .@map$, instance_mapname("2@orcs"); - set .@mob_dead_num, 10 - mobcount(.@map$,instance_npcname("#2Resurrect Monsters4")+"::OnMyMobDead"); + .@map$ = instance_mapname("2@orcs"); + .@mob_dead_num = 10 - mobcount(.@map$,instance_npcname("#2Resurrect Monsters4")+"::OnMyMobDead"); if (.@mob_dead_num > 0) { monster .@map$,0,0,"Anopheles",1627,1,instance_npcname("#2Resurrect Monsters4")+"::OnMyMobDead"; } @@ -727,7 +727,7 @@ OnInstanceInit: end; OnEnable: - set .@map$, instance_mapname("2@orcs"); + .@map$ = instance_mapname("2@orcs"); monster .@map$,109,156,"Safeguard Chief",1981,1,instance_npcname("#Mobs Control")+"::OnMyMobDead1"; mapannounce .@map$, "The Chief Orc of Safeguards: Oh!! Looks like I have company. Defeat me if you can!!",bc_map,"0xff8888"; end; @@ -758,7 +758,7 @@ OnInstanceInit: end; OnEnable: - set .@map$, instance_mapname("2@orcs"); + .@map$ = instance_mapname("2@orcs"); monster .@map$,67,64,"Orc Sniper",1982,1,instance_npcname("#Mobs Control")+"::OnMyMobDead2"; mapannounce .@map$, "Orc Sniper: Hah! Pretty impressive that you made it this far, but your foolish little trip ends here...",bc_map,"0xff8888"; end; @@ -789,7 +789,7 @@ OnInstanceInit: end; OnEnable: - set .@map$, instance_mapname("2@orcs"); + .@map$ = instance_mapname("2@orcs"); monster .@map$,152,147,"Depraved Orc Spirit",1983,1,instance_npcname("#Mobs Control")+"::OnMyMobDead3"; mapannounce .@map$, "Depraved Orc Spirit: I smell flesh! Hungry! Wanna try some human meat!!",bc_map,"0xff8888"; end; @@ -831,7 +831,7 @@ OnInstanceInit: end; OnEnable: - set .@map$, instance_mapname("2@orcs"); + .@map$ = instance_mapname("2@orcs"); monster .@map$,185,8,"Shaman Cargalache",1984,1,instance_npcname("#Boss Control")+"::OnMyMobDead"; monster .@map$,179,15,"Depraved Orc Hero",1087,1; enablenpc instance_npcname("#Boss Control"); @@ -839,8 +839,8 @@ OnEnable: OnMyMobDead: donpcevent instance_npcname("Kruger#")+"::OnEnable"; - set .@map$, instance_mapname("2@orcs"); - set .@mob_ran,rand(1,5); + .@map$ = instance_mapname("2@orcs"); + .@mob_ran = rand(1,5); if (.@mob_ran == 1) { mapannounce .@map$, "Shaman Cargalache: How... How could this be... How could someone like you...!!",bc_map,"0xffff00"; } @@ -900,7 +900,7 @@ OnTouch: mes "Thank you, I'm sure she's finally free from the nightmare that used to choke her soul."; next; mes "Kruger was about to say something more, but he breathed his last breath before he could..."; - set yong_odun,2; + yong_odun = 2; close; } else { diff --git a/npc/instances/SealedShrine.txt b/npc/instances/SealedShrine.txt index d85e8a4e4..82267be7a 100644 --- a/npc/instances/SealedShrine.txt +++ b/npc/instances/SealedShrine.txt @@ -42,11 +42,11 @@ monk_test,309,146,3 script Friar Patrick#edq 4_M_OLDFRIAR,{ mes "What brought you to this place?"; next; if (countitem(6004) > 0) { - set .@doll,1; - set .@selection,select("What is this place?:I want to enter.:About the Cursed Baphomet Doll.:Cancel."); + .@doll = 1; + .@selection = select("What is this place?:I want to enter.:About the Cursed Baphomet Doll.:Cancel."); } else { - set .@selection,select("What is this place?:I want to enter.:Cancel."); + .@selection = select("What is this place?:I want to enter.:Cancel."); } switch(.@selection) { case 1: @@ -99,7 +99,7 @@ monk_test,309,146,3 script Friar Patrick#edq 4_M_OLDFRIAR,{ case 2: if (BaseLevel >= 75) { - set .@party_id,getcharid(1); + .@party_id = getcharid(1); mes "[Friar Patrick]"; mes "Do you mean you'll go to the shrine and reseal Baphomet?"; @@ -115,12 +115,12 @@ monk_test,309,146,3 script Friar Patrick#edq 4_M_OLDFRIAR,{ mes "[Friar Patrick]"; mes "Party name is "+getpartyname(.@party_id)+"..."; mes "Name of the leader is "+strcharinfo(0)+"..."; - set .@instance, instance_create("Sealed Catacomb",.@party_id); + .@instance = instance_create("Sealed Catacomb",.@party_id); if (.@instance < 0) { mes "Umm... But it seems that there is a problem here... I'll check quickly. Please wait."; } else { - for( set .@i, 1; .@i <= 2; set .@i, .@i + 1 ) { + for (.@i = 1; .@i <= 2; ++.@i) { if( instance_attachmap("" + .@i + "@cata", .@instance) == "" ) break; } @@ -432,8 +432,8 @@ prt_monk,261,91,3 script Rust Blackhand#edq 4_M_DWARF,{ 1@cata,1,2,0 script ins_baphomet_lotto -1,{ OnInstanceInit: // Pick one "true" Gravestone and 12 "false" Gravestones. - set .@true, rand(1,13); - for(set .@i,1; .@i<13; set .@i,.@i+1) { + .@true = rand(1,13); + for (.@i = 1; .@i<13; ++.@i) { disablenpc instance_npcname("Gravestone#1F_1"+((.@i == .@true)?"F":"T")); } disablenpc instance_npcname("ins_baphomet_lotto"); @@ -442,15 +442,15 @@ OnInstanceInit: 1@cata,3,2,0 script ins_baphomet_lotto2 -1,{ OnEnable: - for(set .@i,1; .@i<12; set .@i,.@i+1) + for (.@i = 1; .@i < 12; ++.@i) enablenpc instance_npcname("Bobbing Torch#"+.@i); end; } 1@cata,4,2,0 script ins_baphomet_lotto3 -1,{ OnEnable: - set .@label$, instance_npcname("ins_baphomet_lotto3")+"::OnMyMobDead"; - set .@map$, instance_mapname("1@cata"); + .@label$ = instance_npcname("ins_baphomet_lotto3")+"::OnMyMobDead"; + .@map$ = instance_mapname("1@cata"); monster .@map$,0,0,"Apostle of Baphomet",1869,1,.@label$; monster .@map$,0,0,"Apostle of Baphomet",1291,1,.@label$; monster .@map$,0,0,"Apostle of Baphomet",1869,1,.@label$; @@ -473,7 +473,7 @@ OnDisable: end; OnMyMobDead: - set .@map$, instance_mapname("1@cata"); + .@map$ = instance_mapname("1@cata"); if (mobcount(.@map$,instance_npcname("ins_baphomet_lotto3")+"::OnMyMobDead") < 1) { mapannounce .@map$, "All apostles of Baphomet are dead!",bc_map,"0x00ff99"; } @@ -484,7 +484,7 @@ OnMyMobDead: // Soul of hero near the north grave //============================================================ 1@cata,141,221,0 script Gravestone# CLEAR_NPC,3,3,{ - set .@party_id,getcharid(1); + .@party_id = getcharid(1); if ('ins_baphomet == 0) { mes "The gravestone is trembling..."; next; @@ -522,7 +522,7 @@ OnMyMobDead: next; mes "[Voice of the Gravestone]"; mes "If your ^0000FFparty leader^000000 brings me the pendant, my soul can be substantialized. So, hurry up."; - set 'ins_baphomet,1; + 'ins_baphomet = 1; close; case 3: mes "I can feel the voice becoming faint."; @@ -586,12 +586,12 @@ OnTouch: end; OnInstanceInit: // Temporary fix for @reloadscript. - set 'ins_baphomet,0; + 'ins_baphomet = 0; end; } 1@cata,176,119,4 script Ancient Hero's Soul#1F 4_M_CHAMPSOUL,{ - set .@party_id,getcharid(1); + .@party_id = getcharid(1); cutin "ins_cata_champ_n",2; if ('ins_baphomet == 2) { mes "[Ancient Hero's Soul]"; @@ -610,7 +610,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. cutin "ins_cata_champ_n",2; switch(select("What is Essence of Fire?:What is a Token of Apostle?:What should I do?:I am ready.")) { case 1: - set .@ins_baphomet_1f_1,.@ins_baphomet_1f_1+1; + ++.@ins_baphomet_1f_1; mes "[Ancient Hero's Soul]"; mes "You can see the torches here and there. These torches are the essence of Thor, the god of Thunder. They are inherited from our predecessors to stop the darkness of Baphomet..."; next; @@ -625,7 +625,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. next; break; case 2: - set .@ins_baphomet_1f_2,.@ins_baphomet_1f_2+1; + ++.@ins_baphomet_1f_2; mes "[Ancient Hero's Soul]"; mes "At that time, it was impossible to get rid of Devil Baphomet by ourselves. After numerous heroes sacrificed their lives, we could barely seal him under this Abbey."; next; @@ -652,7 +652,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. next; break; case 3: - set .@ins_baphomet_1f_3,.@ins_baphomet_1f_3+1; + ++.@ins_baphomet_1f_3; if (getpartyleader(.@party_id,2) == getcharid(0)) { mes "[Ancient Hero's Soul]"; mes "You look like the leader of this party. You need to go and get ^0000FF10 Essence of Fire^000000 from the torches."; @@ -690,7 +690,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. mes "[Ancient Hero's Soul]"; mes "Are you ready to go? Then I'll open this sealed gate now."; next; - set .@exitloop,1; + .@exitloop = 1; } else { cutin "ins_cata_champ_a",2; @@ -708,7 +708,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. if (getpartyleader(.@party_id,2) == getcharid(0)) { mes "[Ancient Hero's Soul]"; mes "To remind you again, I must be substantialized within the next hour. So everyone, finish your work within that time!"; - set 'ins_baphomet,3; + 'ins_baphomet = 3; donpcevent instance_npcname("ins_baphomet_1f_timer")+"::OnEnable"; donpcevent instance_npcname("ins_baphomet_lotto2")+"::OnEnable"; donpcevent instance_npcname("ins_baphomet_lotto3")+"::OnEnable"; @@ -716,7 +716,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. else { mes "[Ancient Hero's Soul]"; mes "To remind you again, I can be substantialized for the next hour. So everyone, finish your work within that time."; - //set 'ins_baphomet,3; + //'ins_baphomet = 3; } close2; cutin "",255; @@ -729,7 +729,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. next; if ((countitem(6001) > 9) && (countitem(6002) > 0)) { delitem 6001,countitem(6001); //Essence_Of_Fire - set 'ins_baphomet,4; + 'ins_baphomet = 4; mes "[Ancient Hero's Soul]"; mes "Okay. You've done your work. Now check your companions and tell me when everyone has finished their work."; } @@ -747,7 +747,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. mes "Do you have a ^0000FFToken of Apostle^000000?"; next; if (countitem(6002) > 0) { - set 'ins_baphomet,4; + 'ins_baphomet = 4; mes "[Ancient Hero's Soul]"; mes "Okay. You've done your work. Tell your representative to check your companions and come to me when everyone has finished their work."; } @@ -764,7 +764,7 @@ OnInstanceInit: // Temporary fix for @reloadscript. mes "[Ancient Hero's Soul]"; mes "Are you ready? I opened the sealed gate. To pass the gate, you should carry a ^0000FFToken of Apostle^000000."; next; - set 'ins_baphomet,5; + 'ins_baphomet = 5; specialeffect EF_TELEPORTATION; enablenpc instance_npcname("ins_bapho_to_2f"); mes "[Ancient Hero's Soul]"; @@ -815,7 +815,7 @@ OnInstanceInit: OnTouch: if (countitem(6002) > 0) { delitem 6002,countitem(6002); //Token_Of_Apostle - set 'ins_baphomet,5; + 'ins_baphomet = 5; warp instance_mapname("2@cata"),80,144; end; } @@ -835,7 +835,7 @@ OnInstanceInit: - script Gravestone#SS1 -1,{ if ('ins_baphomet == 1) { getitem 6003,1; //Soul_Pendant - set 'ins_baphomet,2; + 'ins_baphomet = 2; mes "A small object is shining under a leaning grave."; next; mes "[" + strcharinfo(0) + "]"; @@ -882,7 +882,7 @@ OnInstanceInit: // Bobbing Torches //============================================================ - script Bobbing Torch#SS -1,{ - set .@party_id,getcharid(1); + .@party_id = getcharid(1); if (getpartyleader(.@party_id,2) == getcharid(0)) { if (('ins_baphomet == 3) && (countitem(6001) < 11)) { mes "A huge torch appearing as if it can burn everything is bobbing up and down in front of me."; @@ -1011,7 +1011,7 @@ OnTimer18000: 2@cata,50,67,0 script slave_left -1,5,5,{ OnTouch: - set .@map$, instance_mapname("2@cata"); + .@map$ = instance_mapname("2@cata"); mapannounce .@map$, "Apostle of Baphomet : Kill the humans! Don't let them interrupt the revival of our Master!",bc_map,"0xFFFF00"; monster .@map$,55,67,"Apostle of Baphomet",1869,1; monster .@map$,51,67,"Apostle of Baphomet",1291,1; @@ -1035,7 +1035,7 @@ OnTouch: 2@cata,109,67,0 script slave_right -1,5,5,{ OnTouch: - set .@map$, instance_mapname("2@cata"); + .@map$ = instance_mapname("2@cata"); mapannounce .@map$, "Apostle of Baphomet : Kill the humans! Don't let them interrupt the revival of our Master!",bc_map,"0xFFFF00"; monster .@map$,105,67,"Apostle of Baphomet",1869,1; monster .@map$,104,67,"Apostle of Baphomet",1291,1; @@ -1059,7 +1059,7 @@ OnTouch: 2@cata,79,39,0 script slave_down -1,5,5,{ OnTouch: - set .@map$, instance_mapname("2@cata"); + .@map$ = instance_mapname("2@cata"); mapannounce .@map$, "Apostle of Baphomet : Kill the humans! Don't let them interrupt the revival of our Master!",bc_map,"0xFFFF00"; monster .@map$,78,41,"Apostle of Baphomet",1869,1; monster .@map$,79,42,"Apostle of Baphomet",1291,1; @@ -1095,7 +1095,7 @@ OnTouch: if (.@seal_check == 2) erasequest 3041; specialeffect EF_LEXDIVINA; disablenpc instance_npcname(strnpcinfo(0)); - set .@map$, instance_mapname("2@cata"); + .@map$ = instance_mapname("2@cata"); if (strnpcinfo(2) == "0") areamobuseskill .@map$,79,81,10,1929,"NPC_INVINCIBLEOFF",1,0,0,e_hlp,0; else if (strnpcinfo(2) == "2") areamobuseskill .@map$,123,109,10,1929,"NPC_INVINCIBLEOFF",1,0,0,e_hlp,0; else if (strnpcinfo(2) == "4") areamobuseskill .@map$,123,22,10,1929,"NPC_INVINCIBLEOFF",1,0,0,e_hlp,0; @@ -1121,7 +1121,7 @@ OnInstanceInit: 2@cata,35,109,0 duplicate(Magical Seal#SS) Magical Seal#10 CLEAR_NPC 2@cata,79,65,0 script The Main Altar#ss CLEAR_NPC,{ - set .@party_id,getcharid(1); + .@party_id = getcharid(1); if (('ins_baphomet == 5) && (getpartyleader(.@party_id,2) == getcharid(0))) { mes "An evil power, too terrible to describe, lies under the great altar radiating a violet color."; next; @@ -1133,7 +1133,7 @@ OnInstanceInit: specialeffect EF_METEORSTORM; mes "[" + strcharinfo(0) + "]"; mes "Watch out! Something... Something is coming."; - set 'ins_baphomet,6; + 'ins_baphomet = 6; donpcevent instance_npcname("ins_2f_hero_broad")+"::OnEnable"; disablenpc instance_npcname("The Main Altar#ss"); close; @@ -1168,7 +1168,7 @@ OnInstanceInit: mes "[Ancient Hero's Soul]"; mes "If you leave, please say hello to Patrick for me."; cutin "",255; - set 'ins_baphomet,0; + 'ins_baphomet = 0; warp "monk_test",310,150; close; case 2: @@ -1235,9 +1235,9 @@ OnEnable: end; OnMyMobDead: - set .@map$, instance_mapname("2@cata"); + .@map$ = instance_mapname("2@cata"); if (mobcount(.@map$,instance_npcname("control_baphomet")+"::OnMyMobDead") < 1) { - set 'ins_baphomet,7; + 'ins_baphomet = 7; erasequest 3041; mapannounce .@map$, "Baphomet : No! Nonono! How dare these weaklings defeat me!... No!!...",bc_map,"0xdb7093"; enablenpc instance_npcname("Ancient Hero's Soul#2F"); @@ -1455,7 +1455,7 @@ OnTimer70000: 1@cata,1,1,0 script ins_1f_spawn_mobs -1,{ OnInstanceInit: - set .@map$, instance_mapname("1@cata"); + .@map$ = instance_mapname("1@cata"); monster .@map$,0,0,"Zombie Master",1298,10; monster .@map$,0,0,"Wraith Dead",1291,10; //monster .@map$,0,0,"Ancient Mimic",1699,10; diff --git a/npc/jobs/1-1e/gunslinger.txt b/npc/jobs/1-1e/gunslinger.txt index aafe2d0c4..ff98b30e7 100644 --- a/npc/jobs/1-1e/gunslinger.txt +++ b/npc/jobs/1-1e/gunslinger.txt @@ -86,7 +86,7 @@ que_ng,152,167,3 script Master Miller 4_M_HUOLDARMY,{ mes "Horn in Payon. He's a shaman"; mes "that will judge whether or not"; mes "you qualify to be a Gunslinger."; - set GUNS_Q,1; + GUNS_Q = 1; setquest 6020; close; } @@ -179,7 +179,7 @@ que_ng,152,167,3 script Master Miller 4_M_HUOLDARMY,{ mes "power of the earth protect"; mes "you in all of your adventures~"; callfunc "Job_Change",Job_Gunslinger; - set GUNS_Q,6; + GUNS_Q = 6; completequest 6024; if (rand(1,2) == 1) { getitem 13100,1; // Six_Shooter @@ -260,7 +260,7 @@ payon,184,65,3 script Wise Bull Horn 4_M_LGTGRAND,{ mes "will help you achieve"; mes "your goal of becoming"; mes "a Gunslinger."; - set GUNS_Q,2; + GUNS_Q = 2; changequest 6020,6021; close; } @@ -297,7 +297,7 @@ payon,184,65,3 script Wise Bull Horn 4_M_LGTGRAND,{ delitem 935,10; // Shell delitem 511,3; // Green_Herb delitem 1013,3; // Colorful_Shell - set GUNS_Q,3; + GUNS_Q = 3; changequest 6021,6022; mes "[Wise Bull Horn]"; mes "Ah, you've returned"; @@ -344,7 +344,7 @@ payon,184,65,3 script Wise Bull Horn 4_M_LGTGRAND,{ mes "I'm thirsty, and would like"; mes "a cold glass of Milk. Would"; mes "you please bring me some?"; - set GUNS_Q,4; + GUNS_Q = 4; changequest 6022,6023; close; } @@ -359,7 +359,7 @@ payon,184,65,3 script Wise Bull Horn 4_M_LGTGRAND,{ close; } delitem 519,1; // Milk - set GUNS_Q,5; + GUNS_Q = 5; changequest 6023,6024; mes "[Wise Bull Horn]"; mes "Oh, thank you for your!"; diff --git a/npc/jobs/1-1e/ninja.txt b/npc/jobs/1-1e/ninja.txt index 90cc08edc..be8753834 100644 --- a/npc/jobs/1-1e/ninja.txt +++ b/npc/jobs/1-1e/ninja.txt @@ -186,7 +186,7 @@ que_ng,30,65,3 script Cougar#nq 4_M_JOB_ASSASSIN,{ mes "Anyway, after you give him"; mes "the letter, come back and"; mes "let me know his answer."; - set NINJ_Q,1; + NINJ_Q = 1; setquest 6015; close; } @@ -253,7 +253,7 @@ que_ng,30,65,3 script Cougar#nq 4_M_JOB_ASSASSIN,{ mes "I should have thought about"; mes "that earlier! Well, it's too"; mes "late now. Just h-hurry it up!"; - set NINJ_Q,4; + NINJ_Q = 4; changequest 6017,6018; close; } @@ -331,7 +331,7 @@ que_ng,30,65,3 script Cougar#nq 4_M_JOB_ASSASSIN,{ mes "agile as the wind, and as"; mes "quiet as the falling shadows."; callfunc "Job_Change",Job_Ninja; - set NINJ_Q,5; + NINJ_Q = 5; delitem 7053,5; // Cyfar delitem 1010,1; // Phracon getitem 13010,1; // Asura @@ -430,7 +430,7 @@ einbroch,184,194,3 script Suspicious Man#nq 4_M_SITDOWN,{ mes "help me find"; mes "^3355FF5 Cyfars^000000 and"; mes "^3355FF1 Phracon^000000."; - set NINJ_Q,2; + NINJ_Q = 2; changequest 6015,6016; close; } @@ -524,7 +524,7 @@ einbroch,184,194,3 script Suspicious Man#nq 4_M_SITDOWN,{ mes "me send you there directly..."; delitem 1010,1; // Phracon delitem 7053,5; // Cyfar - set NINJ_Q,3; + NINJ_Q = 3; changequest 6016,6017; close2; warp "amatsu",113,127; diff --git a/npc/jobs/1-1e/taekwon.txt b/npc/jobs/1-1e/taekwon.txt index 6403c2648..dd088790d 100644 --- a/npc/jobs/1-1e/taekwon.txt +++ b/npc/jobs/1-1e/taekwon.txt @@ -102,7 +102,7 @@ payon,157,141,5 script Phoenix#TKJobChange 4_M_MONK,{ mes "training as a Novice. Very good. Then let us prepare for your"; mes "spiritual training. Take a deep"; mes "breath, speak to me when ready."; - set TK_Q, 2; + TK_Q = 2; setquest 6001; close; } @@ -112,8 +112,8 @@ payon,157,141,5 script Phoenix#TKJobChange 4_M_MONK,{ mes "true potential without integrating mind and body. Go, gain ^FF00001 more"; mes "Base Level^000000, and then return."; next; - set TAEK_Q, BaseLevel; - set TK_Q, 1; + TAEK_Q = BaseLevel; + TK_Q = 1; setquest 6000; mes "[Phoenix]"; mes "I understand this is not an"; @@ -136,7 +136,7 @@ payon,157,141,5 script Phoenix#TKJobChange 4_M_MONK,{ switch(TK_Q) { case 1: if(BaseLevel > TAEK_Q) { - set TK_Q, 2; + TK_Q = 2; changequest 6000,6001; mes "[Phoenix]"; mes "Good. I sense that you"; @@ -331,7 +331,7 @@ payon,157,141,5 script Phoenix#TKJobChange 4_M_MONK,{ mes "we have discussed for a little"; mes "while. When your mind is calm,"; mes "come and speak to me."; - set TK_Q, 3; + TK_Q = 3; changequest 6001,6002; close; case 3: diff --git a/npc/jobs/2-1/assassin.txt b/npc/jobs/2-1/assassin.txt index 4292e86b8..e88f0adc6 100644 --- a/npc/jobs/2-1/assassin.txt +++ b/npc/jobs/2-1/assassin.txt @@ -82,7 +82,7 @@ in_moc_16,19,33,1 script Guildsman#asn 1_M_JOBTESTER,{ mes "Well then,"; mes "go for it!"; close2; - set ASSIN_Q,0; + ASSIN_Q = 0; warp "in_moc_16",19,76; end; } @@ -92,9 +92,9 @@ in_moc_16,19,33,1 script Guildsman#asn 1_M_JOBTESTER,{ mes "[Ferocious-looking guy]"; mes "You'll have to walk if you want to get back to town. Oh, and don't forget to save your spawn point, alright?"; close2; - set ASSIN_Q,0; - set ASSIN_Q2,0; - set ASSIN_Q3,0; + ASSIN_Q = 0; + ASSIN_Q2 = 0; + ASSIN_Q3 = 0; savepoint "in_moc_16",18,14; warp "in_moc_16",18,14; end; @@ -253,7 +253,7 @@ in_moc_16,19,33,1 script Guildsman#asn 1_M_JOBTESTER,{ mes "It's been a while since I've received a guest. I'm sending"; mes "you to the office."; close2; - set ASSIN_Q,0; + ASSIN_Q = 0; if (questprogress(8000)) { changequest 8000,8001; } else { @@ -549,8 +549,8 @@ OnTouch: mes "Alright then,"; mes "best of luck to you!"; close2; - set ASSIN_Q3,1; - set ASSIN_Q,1; + ASSIN_Q3 = 1; + ASSIN_Q = 1; changequest 8001,8002; warp "in_moc_16",19,144; end; @@ -572,8 +572,8 @@ OnTouch: mes "to the Test Hall."; mes "Best of luck~"; close2; - set ASSIN_Q3,2; - set ASSIN_Q,1; + ASSIN_Q3 = 2; + ASSIN_Q = 1; changequest 8001,8002; warp "in_moc_16",19,144; end; @@ -598,9 +598,9 @@ OnTouch: mes "Eh, get outta here."; mes "Stop wastin' my time..."; close2; - set ASSIN_Q,0; - set ASSIN_Q3,0; - set ASSIN_Q2,0; + ASSIN_Q = 0; + ASSIN_Q3 = 0; + ASSIN_Q2 = 0; erasequest 8001; warp "moc_fild16",206,229; end; @@ -626,8 +626,8 @@ OnTouch: mes "[Assassin 'Khai']"; mes "Are you done filling out the form? Alright, give it to me so I can send you to the Test Hall. Good luck~"; next; - set ASSIN_Q3,1; - set ASSIN_Q,1; + ASSIN_Q3 = 1; + ASSIN_Q = 1; changequest 8001,8002; warp "in_moc_16",19,144; end; @@ -640,8 +640,8 @@ OnTouch: mes "Then give me the form so that I can send you to the Test Hall, alright?"; mes "Good luck..."; next; - set ASSIN_Q3,2; - set ASSIN_Q,1; + ASSIN_Q3 = 2; + ASSIN_Q = 1; changequest 8001,8002; warp "in_moc_16",19,144; end; @@ -707,7 +707,7 @@ OnTouch: mes "Although I am heartless,"; mes "I am not necessarily cruel. Before we proceed, is there anything you wish to know?"; next; - set ASSIN_Q2,0; + ASSIN_Q2 = 0; while(ASSIN_Q2 < 3) { switch(select("...Skills?:...Stats?:Hmpf, I know it all.")) { case 1: @@ -770,7 +770,7 @@ OnTouch: mes "Now..."; mes "That's all I have to tell you"; mes "about Assassin skills."; - set ASSIN_Q2,1; + ASSIN_Q2 = 1; next; break; case 2: @@ -783,7 +783,7 @@ OnTouch: next; mes "[The Anonymous One]"; mes "I cannot give you better advice than that in regards to Stats. You should research and see which stats suit you, and decide what kind of Assassin you want to be."; - set ASSIN_Q2,2; + ASSIN_Q2 = 2; next; break; case 3: @@ -793,7 +793,7 @@ OnTouch: mes "I'll be the judge of that!"; next; } - set ASSIN_Q2,3; + ASSIN_Q2 = 3; break; } } @@ -843,53 +843,53 @@ OnTouch: mes "1. Choose skill that is not required to learn Grimtooth."; next; if (select("Cloaking level 2:Sonic Blow level 5:Katar Mastery level 4:Right hand Mastery level 2") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "2. What property does Enchant Poison possess?"; next; if (select("Poison:Earth:Fire:Wind") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "3. How does Level 4 Right Hand Mastery work?"; next; if (select("Recover 80% of damage decrease:Recover 90% of damage decrease:Increase 90% of damage:Increase 108% of damage") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "4. What is the item required for using Venom Dust?"; next; if (select("Red Blood:Blue Gemstone:Yellow Gemstone:Red Gemstone") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "5. Which skill can you learn when you reach Level 5 Enchant Poison?"; next; if (select("Envenom:Sonic Blow:Venom Splasher:Venom Dust") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "6. Among the following skills, which allows you to walk while invisible?"; next; if (select("Hiding:Back Slide:Cloaking:Sand Attack") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "7. Choose the condition that is unrelated to Venom Splasher."; next; if (select("Poisoned target.:Red Gemstone.:Remaing HP of Target.") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "8. Which monster is weak to a weapon with Vadon card (adds 20% damage on Fire property monster)?"; next; if (select("Steel Chonchon:Deviruchi:Elder Willow:Baphomet") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "9. How much SP does"; mes "Double Attack need?"; next; if (select("15:It's a passive skill, so SP use is 0.:It's passive skill, so SP use is 10.:54") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "10. What is the best elemental Main Gauche weapon for hunting in Izlude dungeon?"; next; if (select("Wind Main Gauche:Ice Main Gauche:Earth Main Gauche:Fire Main Gauche") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; case 2: mes "[The Anonymous One]"; @@ -897,104 +897,104 @@ OnTouch: mes "drops a slotted Katar?"; next; if (select("Thief Bug:Peco Peco:Desert Wolf:Hammer Cobolt") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "2. Which monster"; mes "drops a slotted Jur?"; next; if (select("Martin:Desert Wolf:Marionette:Myst") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "3. Which class is allowed to craft elemental weapons?"; next; if (select("Merchant:Blacksmith:Thief:Priest") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "4. Choose the weapon which is not in the Katar class."; next; if (select("Jamadhar:Jur:Katar:Gladius") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "5. What property do Izlude dungeon monsters posses?"; next; if (select("Water:Fire:Wind:Earth") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "6. Which monster"; mes "cannot be a Cute Pet?"; next; if (select("Poporing:Roda Frog:Smokie:Poison Spore") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "7. Choose a monster that Fire property Daggers work the best on."; next; if (select("Dagger Goblin:Mace Goblin:Morning Star Goblin:Hammer Goblin") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "8. Choose the non-elemental Katar from the following:"; next; if (select("Katar of Raging Blaze:Katar of Dusty Thornbush:Sharpened Legbone of Ghoul:Infiltrator") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "9. Which is the uncommon monster?"; next; if (select("Poring:Mastering:Ghostring:Spore") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "10. Choose the monster"; mes "that is not Undead."; next; if (select("Drake:Megalodon:Spore:Khalitzburg") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; case 3: mes "[The Anonymous One]"; mes "1. Choose the correct amount of the maximum dodge rate increase from the 'Increase Dodge' skill when at level 10."; next; if (select("30:40:160:20") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "2. Choose a monster which detects hiding/cloaking Thieves and Assassins."; next; if (select("Worm Tail:Andre:Mummy:Soldier Skeleton") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "3. Choose a group of weapons that cannot be used by an Assassin at once."; next; if (select("Main Gaughe + Gladius:Stiletto + Main Gauche:Katar + Maingauche:Hammer + Stiletto") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "4. Choose the town where Thieves can change their jobs."; next; if (select("Prontera:Lutie:Alberta:Morocc") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "5. Choose a card that does not affect the AGI stat."; next; if (select("Baphomet Jr. card:Whisper Card:Female Thiefbug card:Male Thiefbug card") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "6. Choose the correct specialty of the Assassin class."; next; if (select("Excellent singing talent:Excellent reading talent:Excellent dancing talent:Excellent dodge ability") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "7. Choose the maximum AGI bonus an Assassin can get at job level 50."; next; if (select("7:8:9:10") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "8. Choose the item that an Assassin cannot equip."; next; if (select("Dagger:Helm:Boots:Brooch") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[The Anonymous One]"; mes "9. Choose the job change item for Thief."; next; switch(select("Orange Gooey Mushroom:Red Gooey Mushroom:Orange Net Mushroom:Orange Hair Mushroom")) { case 1: case 3: - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; default: break; @@ -1003,7 +1003,7 @@ OnTouch: mes "10. Choose a card that would typically benefit an Assassin the least."; next; if (select("Whisper card:Elder Willow card:Soldier Skeleton card:Cobold card") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; } if (ASSIN_Q2 == 3) { @@ -1019,7 +1019,7 @@ OnTouch: mes "You scored"; mes "" + .@assassin_t + " percent..."; if (.@assassin_t > 80) { - set ASSIN_Q2,5; + ASSIN_Q2 = 5; changequest 8002,8003; mes "Well done."; mes "You pass."; @@ -1029,7 +1029,7 @@ OnTouch: close; } else { - set ASSIN_Q2,4; + ASSIN_Q2 = 4; mes "That means you fail!"; next; mes "[The Anonymous One]"; @@ -1056,7 +1056,7 @@ OnTouch: mes "You scored"; mes "" + .@assassin_t + " points..."; if (.@assassin_t > 80) { - set ASSIN_Q2,5; + ASSIN_Q2 = 5; changequest 8002,8003; next; mes "[The Anonymous One]"; @@ -1064,7 +1064,7 @@ OnTouch: close; } else { - set ASSIN_Q2,4; + ASSIN_Q2 = 4; mes "You failed!"; next; mes "[The Anonymous One]"; @@ -1189,9 +1189,9 @@ OnTouch: mes "I guess you"; mes "could use a break..."; close2; - set ASSIN_Q,0; - set ASSIN_Q3,0; - set ASSIN_Q2,0; + ASSIN_Q = 0; + ASSIN_Q3 = 0; + ASSIN_Q2 = 0; changequest 8003,8000; warp "in_moc_16",19,13; end; @@ -1202,7 +1202,7 @@ in_moc_16,1,1,0 script Beholder#ASNTEST -1,{ end; OnEnable: - set .MyMobs,6; + .MyMobs = 6; // Target mobs monster "in_moc_16",62,161,"Job change target",1002,1,"Beholder#ASNTEST::OnMyMobDead"; monster "in_moc_16",85,169,"Job change target",1063,1,"Beholder#ASNTEST::OnMyMobDead"; @@ -1262,15 +1262,15 @@ OnResetMob: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "in_moc_16","You seem to be doing quite well. Keep it up!",bc_map; - set ASSIN_Q,3; + ASSIN_Q = 3; changequest 8003,8004; donpcevent "timestopper#1::OnEnable"; donpcevent "Keeper of the Door#ASN::OnEnable"; donpcevent "Beholder#ASNTEST::OnResetMob"; - set .DisableTraps,1; + .DisableTraps = 1; stopnpctimer; } else { @@ -1280,7 +1280,7 @@ OnMyMobDead: OnMyMobDead2: mapannounce "in_moc_16",strcharinfo(0) + "! You made a mistake! I'm bringing you back!",bc_map; - set ASSIN_Q,2; + ASSIN_Q = 2; warp "in_moc_16",19,161; donpcevent "Beholder#ASNTEST::OnReset"; end; @@ -1336,7 +1336,7 @@ OnTimer184000: OnTimer185000: mapannounce "in_moc_16","Time's up!",bc_map; mapannounce "in_moc_16","Well, good job... If you wanted to waste your time. You'll have to try again!",bc_map; - //set ASSIN_Q,2; + //ASSIN_Q = 2; end; OnTimer186000: @@ -1352,7 +1352,7 @@ in_moc_16,68,158,0 script 01_1::SinTrap -1,0,0,{ OnTouch: if (getvariableofnpc(.DisableTraps,"Beholder#ASNTEST") < 1) { mapannounce "in_moc_16",strcharinfo(0) + ", you're trapped. You will be sent back.",bc_map; - set ASSIN_Q,2; + ASSIN_Q = 2; warp "in_moc_16",19,161; donpcevent "Beholder#ASNTEST::OnResetMob"; donpcevent "Standby Room#ASNTEST::OnStart"; @@ -1452,9 +1452,9 @@ OnInit: OnTouch: donpcevent "Thomas#ASNTEST::OnDisable"; if (ASSIN_Q == 3) - set ASSIN_Q,3; + ASSIN_Q = 3; else - set ASSIN_Q,4; + ASSIN_Q = 4; warp "in_moc_16",87,102; savepoint "in_moc_16",16,13; end; @@ -1486,7 +1486,7 @@ OnDisable: OnMyMobDead: mapannounce "in_moc_16","Hey, what the hell was that?! I told you: No killing monsters!",bc_map; mapannounce "in_moc_16","I'm bringing you back... *Sigh...*",bc_map; - set ASSIN_Q,3; + ASSIN_Q = 3; warp "in_moc_16",87,102; killmonsterall "in_moc_16"; end; @@ -1520,9 +1520,9 @@ OnTouch: mes "Oh hey, don't forget to save your respawn point in town."; close2; mapannounce "in_moc_16",strcharinfo(0) + " got scared and quit the test...Who's Next?!",bc_map; - set ASSIN_Q,0; - set ASSIN_Q2,0; - set ASSIN_Q3,0; + ASSIN_Q = 0; + ASSIN_Q2 = 0; + ASSIN_Q3 = 0; changequest 8004,8000; savepoint "in_moc_16",18,14; warp "in_moc_16",18,14; @@ -1543,7 +1543,7 @@ OnTouch: mes "[Thomas]"; mes "If you run away, get a nose bleed and pass out or something like that, I'll fail ya'. Enough talk. Let's see what you got."; close2; - set ASSIN_Q,4; + ASSIN_Q = 4; monster "in_moc_16",81,77,"Mummy",1041,1,"timestopper#1::OnMyMobDead"; monster "in_moc_16",82,77,"Mummy",1041,1,"timestopper#1::OnMyMobDead"; @@ -1590,7 +1590,7 @@ OnTouch: mes "Oh! Congratulations!"; mes "You may now proceed to our Guildmaster's room. Good luck!!"; close2; - set ASSIN_Q,5; + ASSIN_Q = 5; changequest 8004,8005; warp "in_moc_16",181,183; end; @@ -1600,7 +1600,7 @@ in_moc_16,182,169,0 script Maze Assistant WARPNPC,1,1,{ OnTouch: if (ASSIN_Q == 5 || ASSIN_Q == 6) { warp "in_moc_16",181,183; - set ASSIN_Q,ASSIN_Q+1; + ++ASSIN_Q; changequest 8005,8006; } else { @@ -1637,7 +1637,7 @@ in_moc_16,149,80,4 script Guildmaster#ASN2 1_M_MOC_LORD,1,1,{ OnTouch: savepoint "morocc",100,100; if (ASSIN_Q == 7 && BaseJob == Job_Thief) { - set ASSIN_Q,8; + ASSIN_Q = 8; mes "[Guildmaster]"; mes "Welcome."; mes "I apologize for"; @@ -1671,7 +1671,7 @@ OnTouch: next; switch(select("Revenge...!:Money~:I want to travel.")) { case 1: - set ASSIN_Q,8; + ASSIN_Q = 8; mes "[Guildmaster]"; mes "Revenge...?"; mes "Yes, I understand. All of us hold grudges against someone else eventually."; @@ -1685,7 +1685,7 @@ OnTouch: next; break; case 2: - set ASSIN_Q,9; + ASSIN_Q = 9; mes "[Guildmaster]"; mes "Financial reasons...? I won't deny that we all need money to live. But being Assassin means living for a higher purpose."; next; @@ -1696,7 +1696,7 @@ OnTouch: next; break; case 3: - set ASSIN_Q,10; + ASSIN_Q = 10; mes "[Guildmaster]"; mes "Good idea. Traveling around the world will allow you to broaden your experiences."; next; @@ -1725,7 +1725,7 @@ OnTouch: next; switch(select("I like the solitude.:Making money being an Assassin.:They just look interesting.")) { case 1: - set ASSIN_Q,11; + ASSIN_Q = 11; mes "[Guildmaster]"; mes "You got the point..."; mes "We are lonely. We will always be alone, even amongst each other..."; @@ -1740,13 +1740,13 @@ OnTouch: next; break; case 2: - set ASSIN_Q,12; + ASSIN_Q = 12; mes "[Guildmaster]"; mes "Well, I can't deny it, we do need money to make a living. But don't you think we should pursue something even more important than money?"; next; break; case 3: - set ASSIN_Q,13; + ASSIN_Q = 13; mes "[Guildmaster]"; mes "Style and appearance is only superficial. It is sad that many people think this way..."; next; @@ -1771,7 +1771,7 @@ OnTouch: next; switch(select("To broaden my skills.:It's a goal of mine.:For spiritual improvement.")) { case 1: - set ASSIN_Q,14; + ASSIN_Q = 14; mes "[Guildmaster]"; mes "Learning skills comes naturally with the Assassin job. But don't think of skills as the best value of your training."; next; @@ -1780,7 +1780,7 @@ OnTouch: next; break; case 2: - set ASSIN_Q,15; + ASSIN_Q = 15; mes "[Guildmaster]"; mes "It's a goal of yours, eh? Well, I guess you've got to have goals..."; next; @@ -1794,7 +1794,7 @@ OnTouch: next; break; case 3: - set ASSIN_Q,16; + ASSIN_Q = 16; mes "[Guildmaster]"; mes "Good idea..."; mes "That is a good way to improve yourself. I've seen many people who know how to be strong physically but not in their mental state."; @@ -1826,14 +1826,14 @@ OnTouch: next; switch(select("I would level up fast.:I want to explore my Assassin skills.:I will go where I couldn't go as a Thief.")) { case 1: - set .@assassin_sangdam,.@assassin_sangdam+10; + .@assassin_sangdam += 10; mes "[Guildmaster]"; mes "Don't act recklessly..."; mes "Being an Assassin never makes you a different person. And don't rely on chance."; next; break; case 2: - set .@assassin_sangdam,.@assassin_sangdam+5; + .@assassin_sangdam += 5; mes "[Guildmaster]"; mes "It is good for one to examine oneself. I can understand that you will be excited by the great change in your ability."; next; @@ -1860,14 +1860,14 @@ OnTouch: next; switch(select("My friends.:My Guildsmen.:My lover.")) { case 1: - set .@assassin_sangdam,.@assassin_sangdam+5; + .@assassin_sangdam += 5; mes "[Guildmaster]"; mes "I see..."; mes "Appreciate them for caring about you, even when you're alone."; next; break; case 2: - set .@assassin_sangdam,.@assassin_sangdam+5; + .@assassin_sangdam += 5; mes "[Guildmaster]"; mes "Great..."; mes "Comrades for whom you would die for..."; @@ -1898,7 +1898,7 @@ OnTouch: next; switch(select("Places where Assassins can level up...:Main goals as an Assassin.:Financial consulting.")) { case 1: - set .@assassin_sangdam,.@assassin_sangdam+5; + .@assassin_sangdam += 5; mes "[Guildmaster]"; mes "It all depends on your mind. Any place could be the best to level up according to your mind state."; next; @@ -1916,7 +1916,7 @@ OnTouch: next; break; case 3: - set .@assassin_sangdam,.@assassin_sangdam+10; + .@assassin_sangdam += 10; mes "[Guildmaster]"; mes "Oh my lord..."; mes "Are you planning to become an Assassin in order to make money?"; @@ -2054,8 +2054,8 @@ OnTouch: next; } if (ASSIN_Q3 == 1 && BaseJob == Job_Thief && ASSIN_Q > 6 && ASSIN_Q < 17) { - set ASSIN_Q,17; - set ASSIN_Q3,2; + ASSIN_Q = 17; + ASSIN_Q3 = 2; mes "[Guildmaster]"; mes "Well, I've said too much. Please choose a weapon as a present."; next; @@ -2092,7 +2092,7 @@ OnTouch: next; } else { - set ASSIN_Q,17; + ASSIN_Q = 17; mes "[Guildmaster]"; mes "Well, I talked too much."; mes "Please take this first."; @@ -2151,7 +2151,7 @@ OnTouch: end; } else if (ASSIN_Q > 7 && ASSIN_Q < 17) { - set ASSIN_Q,7; + ASSIN_Q = 7; mes "[Guildmaster]"; mes "What the hell? You pressed 'Cancel' during the process. Do you want to change your job or what?"; next; diff --git a/npc/jobs/2-1/blacksmith.txt b/npc/jobs/2-1/blacksmith.txt index b05c9c897..53f2fa5fc 100644 --- a/npc/jobs/2-1/blacksmith.txt +++ b/npc/jobs/2-1/blacksmith.txt @@ -162,7 +162,7 @@ ein_in01,18,28,4 script Guildsman#BLS 4_M_JOB_BLACKSMITH,{ mes "Hmmm..."; mes "One of our Blacksmiths in Einbech, ^8E6B23Geschupenschte^000000 has sent us word that he's short on help. Your first test of character will be to help him out."; next; - set BSMITH_Q,1; + BSMITH_Q = 1; setquest 2000; mes "[Altiregen]"; mes "Be careful"; @@ -217,7 +217,7 @@ ein_in01,18,28,4 script Guildsman#BLS 4_M_JOB_BLACKSMITH,{ mes "Please go talk to the guildsman inside the building for more details about your next test."; next; if (select("I want to change my job quickly! But...oh well.:Grrr! Enough is enough!") == 1) { - set BSMITH_Q,16; + BSMITH_Q = 16; changequest 2013,2014; mes "[Altiregen]"; mes "I'm sorry, but I'm sure you understand, right? We can't just casually accept anybody into"; @@ -252,7 +252,7 @@ ein_in01,18,28,4 script Guildsman#BLS 4_M_JOB_BLACKSMITH,{ changequest 2015,2016; } next; - set .@joblvl,JobLevel; + .@joblvl = JobLevel; callfunc "Job_Change",Job_Blacksmith; callfunc "F_ClearJobVar"; // clears all job variables for the current player mes "[Altiregen]"; @@ -324,7 +324,7 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ mes "[Geschupenschte]"; mes "However, I want to make sure that you have some basic knowledge as a Merchant. I'd like to ask you some questions, if that's okay."; next; - set .@selection,select("Yes.:Um, can I have some time to prepare?"); + .@selection = select("Yes.:Um, can I have some time to prepare?"); } else if (BSMITH_Q == 2) { mes "[Geschupenschte]"; @@ -350,131 +350,131 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ mes "with its specialty item?"; next; if (select("Morroc - Thief Clothes:Alberta - Two Hand Axe:Comodo - Berserk Potion:Alberta - Swordmace") == 4) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "2. What status can"; mes "be inflicted with the"; mes "^8E6B23Hammer Fall^000000 skill?"; next; if (select("Stun:Blind:Silence:Sleep") == 1) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "3. Which one of the following skills cannot be performed"; mes "by a Merchant?"; next; if (select("Vending:Discount:Overcharge:Increase AGI") == 4) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "4. Where can you find a store"; mes "that sells Blue Gemstones?"; next; if (select("Alberta:Morroc:Geffen:Prontera") == 3) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "5. Where is the"; mes "Tool Dealer"; mes "located in Geffen?"; next; if (select("8 o'clock direction from the town square:11 o'clock direction from the town square:6 o'clock direction from the town square:5 o'clock direction from the town square") == 1) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "6. Which weapon"; mes "cannot be used"; mes "by a Merchant?"; next; if (select("Stiletto:Ring Pommel Saber:Chain:Bible") == 4) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "7. Which one of the following"; mes "has the highest defense rate?"; next; if (select("Panties:Mink Coat:Wooden Mail:Silk Robe") == 2) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "8. For Level 3 weapons,"; mes "what is the ^8E6B23Safe^000000 limit"; mes "for upgrading?"; next; if (select("up to + 3:up to + 4:up to + 5:up to + 6") == 3) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "9. What item"; mes "can be made using"; mes "the ^8E6B23Trunks^000000 item?"; next; if (select("Sakkat:Ghost Bandana:Majestic Goat:Antler") == 1) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "10. The most important"; mes "part of being a Merchant is...?"; next; select("Credit:Integrity:Money:Rhetoric"); - set .@black_q,.@black_q+10; + .@black_q += 10; } else { mes "[Geschupenschte]"; mes "1. Among the following cities, which one is not correctly matched with its specialty?"; next; if (select("Al De Baran - Yggdrasil Leaf:Alberta - Hammer:Comodo - Berserk Potion:Al De Baran - Hammer") == 4) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "2. How much Zeny"; mes "is one Jellopy worth?"; next; if (select("1 Zeny:2 Zeny:3 Zeny:4 Zeny") == 3) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "3. What is required"; mes "for a Merchant to use"; mes "the ^8E6B23Vending^000000 Skill?"; next; if (select("Must have a Cart.:Must have items to sell.:Must be wielding a weapon.:Must be wearing armor.") == 1) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "4. Where can you"; mes "change your Job to"; mes "become a Merchant?"; next; if (select("Alberta:Morroc:Geffen:Prontera") == 1) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "5. Where is the"; mes "Weapons Dealer"; mes "located in Morroc?"; next; if (select("7 o'clock from the town's center:11 o'clock from the town's center:6 o'clock from the town's center:5 o'clock from the town's center") == 4) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "6. What weapon"; mes "can a Merchant"; mes "not use?"; next; if (select("Main Gauche:Claymore:Chain:Two handed Axe") == 2) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "7. Which one of the following"; mes "has the highest defense rate?"; next; if (select("Panties:Mink Coat:Wooden Mail:Silk Robe") == 2) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "8. For Level 3 weapons,"; mes "what is the ^8E6B23Safe^000000 limit"; mes "for upgrading?"; next; if (select("up to + 3:up to + 4:up to + 5:up to + 6") == 3) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "9. What monster does"; mes "NOT drop Iron Ore?"; next; if (select("Chon Chon:Steel Chon Chon:Zerom:Anolian") == 4) - set .@black_q,.@black_q+10; + .@black_q += 10; mes "[Geschupenschte]"; mes "10. What is most"; mes "important to a Merchant?"; next; select("Rhetoric:Credit:Money:Experience"); - set .@black_q,.@black_q+10; + .@black_q += 10; } mes "[Geschupenschte]"; mes "Umm. You did a good job!"; @@ -482,7 +482,7 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ mes "[Geschupenschte]"; mes "Let's see...your score is..." + .@black_q + " points."; if (.@black_q == 100) { - set BSMITH_Q,3; + BSMITH_Q = 3; if (questprogress(2001)) { changequest 2001,2002; } else { @@ -499,7 +499,7 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ mes "When you get back, I'll be ready!"; close; } - set BSMITH_Q,2; + BSMITH_Q = 2; if (!questprogress(2001)) { changequest 2000,2001; } @@ -576,7 +576,7 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ //Iron, Green_Herb, Animal's_Skin, Ring_Pommel_Saber default: setarray .@items[0], 998,1, 511,1, 919,2, 1122,1, 8; changequest 2002,2007; break; } - set BSMITH_Q,.@items[8]; + BSMITH_Q = .@items[8]; mes "[Geschupenschte]"; mes "^8E6B23"+.@items[1]+" "+getitemname(.@items[0])+"^000000,"; mes "^8E6B23"+.@items[3]+" "+getitemname(.@items[2])+"^000000,"; @@ -645,7 +645,7 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ delitem .@items[2],.@items[3]; delitem .@items[4],.@items[5]; delitem .@items[6],.@items[7]; - set BSMITH_Q,.@items[8]; + BSMITH_Q = .@items[8]; mes "[Geschupenschte]"; mes "Wooooo~~~"; mes "All done..."; @@ -848,7 +848,7 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ next; if (select("Yes sir, here it is.:Receipt? I, uh, have it somewhere.") == 1) { if (countitem(1073) > 0) { - set BSMITH_Q,15; + BSMITH_Q = 15; delitem 1073,1; //Merchant_Voucher_1 if (questprogress(2008)) { changequest 2008,2013; @@ -880,7 +880,7 @@ ein_in01,201,27,3 script Guildsman#alberta 1_M_SMITH,{ mes "will be a great Blacksmith!"; close; } - set BSMITH_Q,3; + BSMITH_Q = 3; mes "[Geschupenschte]"; mes "You mean..."; mes "You didn't get"; @@ -955,7 +955,7 @@ geffen,46,164,1 script Baisulist#BLS 1_F_04,{ mes "[Baisulist]"; mes "You're"; mes "absolutely sure?"; - set BSMITH_Q,14; + BSMITH_Q = 14; delitem 1610,1; //Arc_Wand next; mes "[Baisulist]"; @@ -1038,7 +1038,7 @@ morocc,27,112,4 script Wickebine#BLS 4_F_JOB_ASSASSIN,{ next; mes "- She looks very happy. -"; next; - set BSMITH_Q,14; + BSMITH_Q = 14; delitem 1219,1; //Gladius cutin "Job_Black_hucke01",2; mes "[Wickebine]"; @@ -1132,7 +1132,7 @@ lighthalzen,209,80,4 script Krongast#BLS 4_M_JOB_KNIGHT2,{ mes "You double checked?"; mes "Alright then, I'll take it!"; next; - set BSMITH_Q,14; + BSMITH_Q = 14; delitem 1119,1; //Tsurugi mes "[Krongast]"; mes "Oh ho..."; @@ -1209,7 +1209,7 @@ payon,214,79,4 script Talpiz#BLS 1_M_ORIENT01,{ mes "So, you're sure?"; mes "Let me take a look..."; next; - set BSMITH_Q,14; + BSMITH_Q = 14; delitem 1713,1; //Arbalest mes "[Talpiz]"; mes "*wheet whoo*"; @@ -1290,7 +1290,7 @@ hugel,168,183,1 script Bismarc#BLS 2_M_THIEFMASTER,{ mes "Give it...!"; mes "Pleeeease!"; next; - set BSMITH_Q,14; + BSMITH_Q = 14; delitem 1122,1; //Ring_Pommel_Saber mes "^3355FFBismarc stabs"; mes "himself, repeatedly,"; @@ -1376,7 +1376,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "you fail. And I won't"; mes "tell you what you missed."; next; - set .@blackss_te,0; + .@blackss_te = 0; mes "[Mitehmaeeuh]"; mes "Please listen"; mes "and answer carefully..."; @@ -1389,7 +1389,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "the ^8E6B23Discount^000000 skill?"; next; if (select("Level 3 Push Cart:Item Appraisal:Level 10 Mammonite:Level 3 Enlarge Weight") == 4) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "2. When you attack"; mes "with ^8E6B23Hammerfall^000000,"; @@ -1397,7 +1397,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "you inflict on enemies?"; next; if (select("Stun:Blindness:Chaos:Silence") == 1) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "3. How much Zeny is spent"; mes "when attacking with the"; @@ -1405,7 +1405,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "(Level 10 Mammonite)"; next; if (select("900 Zeny:1000 Zeny:2000 Zeny:100,000 Zeny") == 2) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "4. What is the"; mes "discount rate when"; @@ -1413,7 +1413,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "skill is mastered?"; next; if (select("21 % :22 % :23 % :24 % ") == 4) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "5. What is the maximum"; mes "percentage that you can"; @@ -1422,7 +1422,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "^8E6B23Overcharge^000000 skill?"; next; if (select("21 % :22 % :23 % :24 % ") == 3) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; break; case 2: mes "[Mitehmaeeuh]"; @@ -1431,21 +1431,21 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "drops Steel?"; next; if (select("Zerom:Chon Chon:Skel Worker:Requiem") == 3) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "2. Which of the following"; mes "stones can be made from"; mes "Red Bloods?"; next; if (select("Flame Heart:Rough Wind:Great Nature:Mystic Frozen") == 1) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "3. Which of the following"; mes "stones do you have the most"; mes "of in your Kafra Storage?"; next; select("Wind of Verdure:Red Blood:Green Live:Crystal Blue"); - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "4. In general,"; mes "which of the following"; @@ -1454,14 +1454,14 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "attribute weapon?"; next; if (select("Fire Property:Water Property:Earth Property:Wind Property") == 2) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "5. How many Iron Ore"; mes "is required to make"; mes "1 Steel?"; next; if (select("5 Iron Ore :4 Iron Ore:3 Iron Ore:6 Iron Ore") == 1) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; break; case 3: mes "[Mitehmaeeuh]"; @@ -1472,7 +1472,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ switch(select("Ask them what they need.:Have a brief conversation.:Ignore them.:Give items and run away.")) { case 1: case 2: - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; break; default: break; @@ -1484,20 +1484,20 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "^8E6B23Change Cart^000000 skills?"; next; if (select("Al De Baran:Alberta:Morroc:Izlude") == 2) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "3. From the center of Einbroch,"; mes "in which direction is the Blacksmith Guild?"; next; if (select("11 o'clock:5 o'clock:7 o'clock:12 o'clock") == 2) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "4. In which town"; mes "can you find the"; mes "most Blacksmiths?"; next; if (select("Prontera:Morroc:Alberta:Einbroch") == 4) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; mes "[Mitehmaeeuh]"; mes "5. Which of the"; mes "following statuses"; @@ -1505,7 +1505,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ mes "as a Blacksmith?"; next; if (select("STR :DEX:AGI :VIT ") == 2) - set .@blackss_te,.@blackss_te+20; + .@blackss_te += 20; break; } mes "[Mitehmaeeuh]"; @@ -1523,7 +1523,7 @@ ein_in01,24,41,5 script Blacksmith Guildsman#moc 4_F_JOB_BLACKSMITH,{ next; mes "[Mitehmaeeuh]"; mes "However, don't let your early success make you overconfident. A Blacksmith's life isn't a picnic. As proof that you have passed the test, I give you this Hammer of Blacksmith."; - set BSMITH_Q,17; + BSMITH_Q = 17; getitem 1005,1; //Hammer_Of_Blacksmith changequest 2014,2015; next; diff --git a/npc/jobs/2-1/hunter.txt b/npc/jobs/2-1/hunter.txt index ab163860f..e0de2c97b 100644 --- a/npc/jobs/2-1/hunter.txt +++ b/npc/jobs/2-1/hunter.txt @@ -180,7 +180,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ mes "[Hunter Sherin]"; mes "Tada~ Congratulations!"; mes "You look great as a Hunter!!"; - set .@joblvl, JobLevel; + .@joblvl = JobLevel; completequest 4013; callfunc "Job_Change",Job_Hunter; callfunc "F_ClearJobVar"; // clears all job variables for the current player @@ -242,10 +242,10 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ } break; case 2: - set .@selection,2; + .@selection = 2; break; case 3: - set .@selection,3; + .@selection = 3; break; } } @@ -267,7 +267,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ switch(select("Scream out loud asking where you should go.:Quietly ask a person passing by.:Wander around alone and search for a place.")) { case 2: case 3: - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; default: break; } @@ -281,7 +281,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ switch(select("Ask a Priest to open a free warp portal.:Use the Kafra service.:Walk with a friend.")) { case 2: case 3: - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; default: break; } @@ -296,7 +296,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ switch(select("Beg here and there.:Sell items I do not need.:Hunt at a nearby field.")) { case 2: case 3: - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; default: break; } @@ -309,12 +309,12 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ mes "situation?"; next; if (select("Attack a Hode from the top of a hill.:Go back to town.:Attack someone else's Hode.") == 2) - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; mes "[Hunter Sherin]"; mes "Let's say you were having too much trouble hunting Hodes and returned to town. Now you are out of HP and a Priest happens to be around. How would you ask for a Heal?"; next; if (select("Would it be possible to get a Heal, please?:Heal, please.:Heal me.") == 1) - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; mes "[Hunter Sherin]"; mes "This time, you found a rare item while you were going through your inventory. You go out to sell the item, and there are many people with stores and chatrooms open."; next; @@ -326,7 +326,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ switch(select("Scream out loud to everyone in sight.:Open a chatroom and wait.:Look to see if anyone already wants it.")) { case 2: case 3: - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; default: break; } @@ -334,7 +334,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ mes "While you are waiting, someone is begging for items and Zeny. What should you do?"; next; if (select("Give some of my items and Zeny.:Ignore and walk away.:Tell the person about a good place to hunt.") == 1) - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; mes "[Hunter Sherin]"; mes "By now, you decide to go to the Maze by yourself."; next; @@ -346,7 +346,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ switch(select("Tell them which way to go.:Guide them to their destination.:Ignore.")) { case 1: case 2: - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; default: break; } @@ -357,7 +357,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ mes "What should you do?"; next; if (select("Watch, then attack when asked for help.:Attack and see what happens.:Just go back to town.") == 1) - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; mes "[Hunter Sherin]"; mes "You are now very exhausted after your day of hunting. It's time to go back to town."; next; @@ -367,7 +367,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ switch(select("Pick it up and keep it.:Try to find the owner.:Just walk by.")) { case 2: case 3: - set .@hunter_t,.@hunter_t+10; + .@hunter_t += 10; default: break; } @@ -375,7 +375,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ mes "Okay, this is the end of the test!"; next; if (.@hunter_t == 100) { - set HNTR_Q,2; + HNTR_Q = 2; changequest 4000,4001; mes "[Hunter Sherin]"; mes "Well done! Your answers show you've got the right outlook on life. You definitely have the right qualities to become a Hunter~"; @@ -385,7 +385,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ close; } else if (.@hunter_t == 90) { - set HNTR_Q,2; + HNTR_Q = 2; changequest 4000,4001; mes "[Hunter Sherin]"; mes "Well, I'm looking at your answers and your score isn't perfect. But I'll let you pass anyway. I don't know what our Guildmaster will think, though."; @@ -394,7 +394,7 @@ hu_in01,386,373,4 script Hunter Guildsman#hnt 4_F_JOB_HUNTER,{ mes "Just remember to always keep basic etiquette in mind. Try harder in the following tests and make me happy, okay?"; close; } - set HNTR_Q,1; + HNTR_Q = 1; mes "[Hunter Sherin]"; mes "Hmm... I don't think this'll work out. You can't become a Hunter without knowing basic etiquette."; next; @@ -473,7 +473,7 @@ hu_in01,382,382,4 script Guild Receptionist#hnt 4_M_JOB_HUNTER,{ mes "[Guild Receptionist]"; mes "Greetings. They call me... ^660000The Demon Hunter^000000. I am the one in charge of processing applications. Your name is ... " + strcharinfo(0) + ", correct?"; next; - set .@selection,select("Yes, that is correct.:Nope~~(heeheehee)"); + .@selection = select("Yes, that is correct.:Nope~~(heeheehee)"); if (.@selection == 2) { mes "[Demon Hunter]"; mes "Hey, stop messing around."; @@ -501,7 +501,7 @@ hu_in01,382,382,4 script Guild Receptionist#hnt 4_M_JOB_HUNTER,{ mes "[Demon Hunter]"; mes "You see, we're having some financial problems. Let's see, we're short on these items..."; next; - if(checkre(0)) set .@i,1; + if(checkre(0)) .@i = 1; switch(rand(1,7)) { //Insect_Feeler/Claw_Of_Desert_Wolf, Wooden_Block, White_Herb case 1: setarray .@items[0], (.@i?928:7030),5, 1019,5, 509,3, 3; changequest 4001,4002; break; @@ -521,7 +521,7 @@ hu_in01,382,382,4 script Guild Receptionist#hnt 4_M_JOB_HUNTER,{ if (.@selection == 1) { mes "[Demon Hunter]"; mes "Hmm. ^660000"+.@items[1]+" "+getitemname(.@items[0])+"^000000 to use for arrow tips. ^660000"+.@items[3]+" "+getitemname(.@items[2])+"^000000 to use here and there. And ^660000"+.@items[5]+" "+getitemname(.@items[4])+"^000000 please."; - set HNTR_Q,.@items[6]; + HNTR_Q = .@items[6]; next; mes "[Demon Hunter]"; mes "Oh right. Our Guildmaster has gone on an official trip to the Payon Central Palace. You have to go visit him because the one that administers the test."; @@ -532,7 +532,7 @@ hu_in01,382,382,4 script Guild Receptionist#hnt 4_M_JOB_HUNTER,{ close; } else if (HNTR_Q >= 3 && HNTR_Q <= 9) { - if(checkre(0)) set .@i,1; + if(checkre(0)) .@i = 1; switch(HNTR_Q) { //Insect_Feeler/Claw_Of_Desert_Wolf, Wooden_Block, White_Herb case 3: setarray .@items[0], (.@i?928:7030),5, 1019,5, 509,3, 10; break; @@ -555,7 +555,7 @@ hu_in01,382,382,4 script Guild Receptionist#hnt 4_M_JOB_HUNTER,{ if (countitem(.@items[0]) >= .@items[1] && countitem(.@items[2]) >= .@items[3] && countitem(.@items[4]) >= .@items[5]) { mes "[Demon Hunter]"; mes "You brought all of the necessary materials... You can get directions to the testing area from our Guildmaster who is currently in the Payon Central Palace."; - set HNTR_Q,.@items[6]; + HNTR_Q = .@items[6]; if (questprogress(4002)) { changequest 4002,4009; } @@ -655,7 +655,7 @@ payon_in03,131,7,3 script Hunter#htnGM 1_M_ORIENT01,{ } mes "[Hunter Guildmaster]"; mes "Well, then. Your arrows are probably still being made, so you can use mine to take the test."; - set HNTR_Q,12; + HNTR_Q = 12; changequest 4009,4011; getitem 1751,200; //Silver_Arrow close2; @@ -727,7 +727,7 @@ payon_in03,131,7,3 script Hunter#htnGM 1_M_ORIENT01,{ mes "Okay!! I hope"; mes "you will pass this time!"; close2; - set HNTR_Q,12; + HNTR_Q = 12; warp "job_hunte",176,22; end; } @@ -740,7 +740,7 @@ payon_in03,131,7,3 script Hunter#htnGM 1_M_ORIENT01,{ mes "[Hunter Guildmaster]"; mes "Wow, you came back in one piece!"; mes "I mean, good job. I'll give you the item which proves that you have passed the test."; - set HNTR_Q,17; + HNTR_Q = 17; savepoint "payon",104,99; getitem 1007,1; //Penetration changequest 4012,4013; @@ -819,7 +819,7 @@ payon_in02,21,31,1 script Hunter#htnGM2 1_M_ORIENT01,{ next; mes "[Hunter Guildmaster]"; mes "Good luck."; - set HNTR_Q,12; + HNTR_Q = 12; changequest 4010,4011; warp "job_hunte",176,22; cutin "job_huntermaster",255; @@ -915,7 +915,7 @@ payon_in02,21,31,1 script Hunter#htnGM2 1_M_ORIENT01,{ mes "Pass this time!"; close2; cutin "job_huntermaster",255; - set HNTR_Q,12; + HNTR_Q = 12; warp "job_hunte",176,22; end; } @@ -932,7 +932,7 @@ payon_in02,21,31,1 script Hunter#htnGM2 1_M_ORIENT01,{ mes "[Hunter Guildmaster]"; mes "Wow. You're back in one piece!"; mes "I mean, good job. Well then, I'll give you the item which serves as proof that you passed the test."; - set HNTR_Q,17; + HNTR_Q = 17; savepoint "payon",104,99; getitem 1007,1; //Penetration next; @@ -1008,7 +1008,7 @@ OnTouch: mes "Very well. I'll send you to Payon. Hope to see you next time. Don't forget to save when you leave."; // donpcevent "Waiting Room#hnt::OnStart"; close2; - set HNTR_Q,13; + HNTR_Q = 13; savepoint "payon",104,99; warp "payon_in02",21,27; } @@ -1050,7 +1050,7 @@ OnInit: OnEnable: donpcevent "Switch#hnt::OnDisable"; enablenpc "Manager#hnt"; - set .MyMobs,6; + .MyMobs = 6; initnpctimer; // Target Mosnters monster "job_hunte",67,80,"Job Change Monster",1015,1,"Manager#hnt::OnMyMobDead"; @@ -1093,10 +1093,10 @@ OnEnable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 3) { mapannounce "job_hunte","Okay, good job... Now, find the switch in the center of the map!! Be careful of the traps!!",bc_map; - set HNTR_Q,14; + HNTR_Q = 14; donpcevent "Switch#hnt::OnEnable"; donpcevent "Manager#hnt::OnDisable"; } @@ -1107,7 +1107,7 @@ OnMyMobDead: OnMyMobDead2: mapannounce "job_hunte",strcharinfo(0)+ "!! You made a mistake...Please try again.",bc_map; - set HNTR_Q,13; + HNTR_Q = 13; warp "job_hunte",176,22; donpcevent "Manager#hnt::OnReset"; donpcevent "Waiting Room#hnt::OnStart"; @@ -1207,7 +1207,7 @@ job_hunte,93,101,1 script Switch#hnt 1_SHADOW_NPC,1,1,{ OnTouch: mes "^3355FFThere are 3 buttons"; mes "on the escape switch.^000000"; - set HNTR_Q,15; + HNTR_Q = 15; next; switch(select("Escape:Cancel:Re-test")) { case 1: @@ -1229,7 +1229,7 @@ OnTouch: mes "returned to the"; mes "waiting room.^000000"; close2; - set HNTR_Q,13; + HNTR_Q = 13; warp "job_hunte",176,22; donpcevent "Manager#hnt::OnReset"; donpcevent "Waiting Room#hnt::OnStart"; @@ -1254,7 +1254,7 @@ OnInit: OnTouch: donpcevent "Manager#hnt::OnReset"; donpcevent "Waiting Room#hnt::OnStart"; - set HNTR_Q,16; + HNTR_Q = 16; changequest 4011,4012; savepoint "payon",104,99; if (rand(2)) @@ -1400,7 +1400,7 @@ OnTouch: case 130: mapannounce "job_hunte",strcharinfo(0) + ", it's okay to cry. Just not too loudly.",bc_map; break; case 131: mapannounce "job_hunte",strcharinfo(0) + "...oh man. It's tiring setting up all these traps. You guys have got to stop falling into them!",bc_map; break; } - set HNTR_Q,13; + HNTR_Q = 13; warp "job_hunte",176,22; donpcevent "Manager#hnt::OnReset"; donpcevent "Waiting Room#hnt::OnStart"; @@ -1636,7 +1636,7 @@ job_hunte,65,92,0 duplicate(HntTrap) 57-3 -1,0,0 job_hunte,65,93,0 script 57-4::HntTrap2 -1,{ OnTouch: mapannounce "job_hunte",strcharinfo(0) + ", has failed me! Go back to where you started!",bc_map; - set HNTR_Q,13; + HNTR_Q = 13; warp "job_hunte",176,22; donpcevent "Manager#hnt::OnReset"; donpcevent "Waiting Room#hnt::OnStart"; diff --git a/npc/jobs/2-1/knight.txt b/npc/jobs/2-1/knight.txt index 62fd03aaf..5b146d66d 100644 --- a/npc/jobs/2-1/knight.txt +++ b/npc/jobs/2-1/knight.txt @@ -133,7 +133,7 @@ prt_in,88,101,4 script Chivalry Captain#knt 1_M_KNIGHTMASTER,{ mes "all of your skill points."; close; } - set KNIGHT_Q,1; + KNIGHT_Q = 1; setquest 9000; mes "Let me see..."; mes "Your name is"; @@ -559,7 +559,7 @@ prt_in,75,107,4 script Sir Andrew#knt 1_M_YOUNGKNIGHT,{ next; mes "[Sir Andrew]"; mes "Please go to my fellow Knight, Sir Siracuse, as he will give you your next test. Well done in mastering the Swordman job."; - set KNIGHT_Q,4; + KNIGHT_Q = 4; changequest 9000,9003; close; } @@ -577,7 +577,7 @@ prt_in,75,107,4 script Sir Andrew#knt 1_M_YOUNGKNIGHT,{ //Short_Leg, Heart_Of_Mermaid. Blossom_Of_Maneater, Flesh_Of_Clam, Old_Frying_Pan, Snail's_Shell case 2: setarray .@items[0], 1042,5, 950,5, 1032,5, 966,5, 7031,5, 946,5, 3; break; } - set KNIGHT_Q,.@items[12]; + KNIGHT_Q = .@items[12]; if (KNIGHT_Q == 2) changequest 9000,9001; else changequest 9000,9002; mes "^236B8E"+.@items[1]+" "+getitemname(.@items[0])+"^000000,"; @@ -626,7 +626,7 @@ prt_in,75,107,4 script Sir Andrew#knt 1_M_YOUNGKNIGHT,{ delitem .@items[10],.@items[11]; if (KNIGHT_Q == 2) changequest 9001,9003; else changequest 9002,9003; - set KNIGHT_Q,4; + KNIGHT_Q = 4; mes "[Sir Andrew]"; mes "Please visit my fellow Knight, Sir Siracuse, and continue the tests with the dedication and loyalty you've shown to me this day."; close; @@ -862,7 +862,7 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ mes "A Knight must possess great strength, defense, speed, and the skill to wield a Two-Handed Sword. Which of the following weapons are not affected by the Two Hand Quicken skill?"; next; if (select("Katana:Slayer:Broadsword:Flamberge") != 4) { - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "Wrong!"; mes "That's a Two-Handed Sword!"; @@ -876,7 +876,7 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ mes "Good, now let me ask about some skills. Which of the following is not necessary to learn Bowling Bash?"; next; if (select("Two Handed Sword Mastery Lv.5:Magnum Break Lv.3:Provoke Lv.10:Bash Lv.10") != 3) { - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "Wrong!"; mes "You need that to learn Bowling Bash! You should learn more about the Knight class before applying for the job!"; @@ -886,7 +886,7 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ mes "Knights can also use Spears, unlike other jobs, and have skills related to Spears as well. What skills are not necessary to learn the skill Brandish Spear?"; next; if (select("Pierce Lv.5:Spear Stab Lv.3:Spear Boomerang Lv.3:Peco Peco Ride Lv.1") != 3) { - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "Wrong! You need to learn that to learn Brandish Spear! How can you not know about Knights if you want to become one?"; next; @@ -899,7 +899,7 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ mes "Some Spears also have magical attributes, just like spells. Of the following, which can attack a Nightmare, which has the Ghost attribute?"; next; if (select("Zephyrus:Lance:Bill Guisarme:Crescent Scythe") != 1) { - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "Wrong! You'll be doing absolutely no damage with that type of Spear! Come back after you've learned more about Knights!"; next; @@ -914,7 +914,7 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ mes "But, you can counter this speed decrease as you learn the Cavalier Mastery skill. What percentage of your normal attack speed will you have after learning Level 3 Cavalier Mastery?"; next; if (select("70 % of normal attack speed:80 % of normal attack speed:90 % of normal attack speed:100 % of normal attack speed") != 2) { - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "Wrong!"; mes "Don't bother riding a Peco Peco if you don't know about Cavalier Mastery!"; @@ -937,12 +937,12 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ next; break; case 2: - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "You have the wrong idea. Do you really believe that is helping the Novice? Give a man a fish, he will eat for a day. Teach him to fish, he will eat for a lifetime!"; close; case 3: - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "Do you really believe that this will truly help the poor Novice? It's generous but, they will not know the true value of zeny and items until they earn it themselves."; close; @@ -960,12 +960,12 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ next; break; case 2: - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "Are you crazy? Don't you realize the flaw in that kind of thinking? You can't control large mobs. What if they kill you? Who will protect the innocent?"; close; case 3: - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "I see your greed and we will have none of it here! It seems you do not truly care for others!"; mes "Get lost!"; @@ -984,17 +984,17 @@ prt_in,71,91,0 script Sir Siracuse#knt 1_M_YOUNGKNIGHT,{ next; break; case 2: - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "You're scum! You strive to become a Knight for personal wealth? Get lost! We will not accept someone like you in our Chivalry!"; close; case 3: - set KNIGHT_Q,5; + KNIGHT_Q = 5; mes "[Sir Siracuse]"; mes "So you're trying to become famous through the Chivalry? That's pathetic. We won't accept someone like you in our Chivalry!"; close; } - set KNIGHT_Q,6; + KNIGHT_Q = 6; changequest 9003,9004; mes "[Sir Siracuse]"; mes "Well then,"; @@ -1096,19 +1096,19 @@ prt_in,79,94,4 script Sir Windsor#knt 4_M_JOB_KNIGHT1,{ } else if (KNIGHT_Q == 6 || KNIGHT_Q == 7) { if (KNIGHT_Q == 6) { - set .@mes$,"Sir Siracuse sent me to you.:Oh, nothing."; + .@mes$ = "Sir Siracuse sent me to you.:Oh, nothing."; mes ".....What?"; next; } else { - set .@mes$,"I want to try again!:..."; + .@mes$ = "I want to try again!:..."; next; } if (select(.@mes$) == 1) { mes "[Sir Windsor]"; mes "..."; next; - set KNIGHT_Q,7; + KNIGHT_Q = 7; if (questprogress(9004)) { changequest 9004,9005; } @@ -1160,7 +1160,7 @@ job_knt,89,106,4 script Knight Windsor#knt 4_M_JOB_KNIGHT1,{ mes "[Sir Windsor]"; mes "...Question?"; next; - set .@i, select("What kind of test is this?:How do I take the test?:I'd like to leave.:No."); + .@i = select("What kind of test is this?:How do I take the test?:I'd like to leave.:No."); mes "[Sir Windsor]"; mes "..."; if (.@i == 4) close; @@ -1253,14 +1253,14 @@ OnInit: OnEnable: enablenpc "Knight1"; if (!checkre(0)) { - set .MyMobs,12; + .MyMobs = 12; monster "job_knt",39,150,"Dustiness",1114,1,"Knight1::OnMyMobDead"; monster "job_knt",47,150,"Dustiness",1114,1,"Knight1::OnMyMobDead"; monster "job_knt",39,142,"Dustiness",1114,1,"Knight1::OnMyMobDead"; monster "job_knt",47,142,"Dustiness",1114,1,"Knight1::OnMyMobDead"; } else - set .MyMobs,8; + .MyMobs = 8; monster "job_knt",43,137,"Piere",1160,1,"Knight1::OnMyMobDead"; monster "job_knt",43,137,"Andre",1095,1,"Knight1::OnMyMobDead"; monster "job_knt",43,137,"Deniro",1105,1,"Knight1::OnMyMobDead"; @@ -1278,7 +1278,7 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mes "[Sir Windsor]"; mes "..."; @@ -1319,7 +1319,7 @@ OnInit: OnEnable: enablenpc "Knight2"; if (!checkre(0)) { - set .MyMobs,12; + .MyMobs = 12; monster "job_knt",43,42,"Desert Wolf",1106,1,"Knight2::OnMyMobDead"; monster "job_knt",43,62,"Desert Wolf",1106,1,"Knight2::OnMyMobDead"; monster "job_knt",60,68,"Anacondaq",1030,1,"Knight2::OnMyMobDead"; @@ -1328,7 +1328,7 @@ OnEnable: monster "job_knt",27,35,"Anacondaq",1030,1,"Knight2::OnMyMobDead"; } else - set .MyMobs,6; + .MyMobs = 6; monster "job_knt",53,52,"Frilldora",1119,1,"Knight2::OnMyMobDead"; monster "job_knt",34,52,"Frilldora",1119,1,"Knight2::OnMyMobDead"; monster "job_knt",58,52,"Drainliar",1111,1,"Knight2::OnMyMobDead"; @@ -1344,7 +1344,7 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mes "[Sir Windsor]"; mes "...Hmm."; @@ -1384,12 +1384,12 @@ OnInit: OnEnable: enablenpc "Knight3"; if (!checkre(0)) { - set .MyMobs,7; + .MyMobs = 7; monster "job_knt",147,167,"Goblin Archer",1258,1,"Knight3::OnMyMobDead"; monster "job_knt",136,158,"Steam Goblin",1280,1,"Knight3::OnMyMobDead"; } else - set .MyMobs,5; + .MyMobs = 5; monster "job_knt",136,152,"Goblin",1122,1,"Knight3::OnMyMobDead"; monster "job_knt",150,152,"Goblin",1123,1,"Knight3::OnMyMobDead"; monster "job_knt",143,145,"Goblin",1124,1,"Knight3::OnMyMobDead"; @@ -1404,7 +1404,7 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mes "[Sir Windsor]"; mes "..."; @@ -1416,7 +1416,7 @@ OnMyMobDead: mes "...Go talk to"; mes "Amy Beatrice now."; close2; - set KNIGHT_Q,8; + KNIGHT_Q = 8; if (!questprogress(9007)) { changequest 9006,9007; } @@ -1616,7 +1616,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "How would you go about doing so?"; next; if (select("Shout out that you are looking for a party.:Open a chat room and wait.:Look for people seeking Knights.") != 1) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "You have formed a party with equal leveled players. There's a Priest, a Wizard, a Hunter, an Assassin, and a Blacksmith..."; next; @@ -1630,12 +1630,12 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "What should you do?"; next; if (select("Check out the area and plan ahead.:Gather monsters for your party members.:Lead the party slowly at the front.") != 2) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "But some rude players came with a group of monsters and disappeared! What should you do?"; next; if (select("Keep the monsters from reaching the party.:Defend while the party retreats.:Run away on your Peco Peco.") == 2) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "Luckily, you all lived through the crisis. But as you walk, you find a person, who is not in your party, collapsed on the ground."; next; @@ -1643,7 +1643,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "The person is asking politely for help. What should you do?"; next; if (select("Ask your party's Priest to help.:Say you will help for Zeny.:Ignore and move on.") == 1) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "You must bid farewell to your party members because you must go somewhere else."; next; @@ -1654,7 +1654,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "should you do?"; next; if(select("Give it to who deserves it the most.:Pretend like nothing happened and keep it.:Decide with party who gets it.") != 2) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "You end up with the item and you go to Prontera to sell it. There are many people with shops and chat rooms opened selling items."; next; @@ -1663,7 +1663,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "do to sell your item?"; next; if (select("Shout out loud to everyone.:Open a chat room and wait.:Inquire if there is anyone that is interested.") == 3) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "While you are waiting,"; mes "someone comes and begs"; @@ -1671,7 +1671,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "What do you do?"; next; if (select("Give them some Zeny and items.:Simply ignore them.:Give suggestions for a place to hunt.") == 3) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "Now you decide to go to the Hidden Temple by yourself. You happily ride on your Peco Peco."; next; @@ -1681,7 +1681,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "What should you do?"; next; if(select("Tell the person how to reach the exit.:Lead the person to the exit.:Give a Butterfly Wing.") != 3) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "You've been hunting for a while, and now you're low on HP!"; mes "It's red now, which is very dangerous."; @@ -1693,7 +1693,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "the Priest for a Heal?"; next; if (select("Would it be possible to get a heal please?:Can I have a heal?:Heal plz!!") == 1) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "You are now very"; mes "exhausted and it's time"; @@ -1707,7 +1707,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "you do?"; next; if (select("Pick it up and keep it.:Ask around to find the owner.:Simply walk by.") != 1) - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Lady Amy]"; mes "Okay,"; mes "that was the"; @@ -1715,7 +1715,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ next; mes "[Lady Amy]"; if (.@knight_t == 100) { - set KNIGHT_Q,10; + KNIGHT_Q = 10; changequest 9008,9009; mes "Well done, that kind of mentality is needed for a Knight! For your next test, visit Sir Edmond, please~"; next; @@ -1724,7 +1724,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ close; } else if (.@knight_t == 90) { - set KNIGHT_Q,10; + KNIGHT_Q = 10; changequest 9008,9009; mes "Well, it wasn't perfect,"; mes "but I think you know enough"; @@ -1735,7 +1735,7 @@ prt_in,69,107,6 script Lady Amy#knt 4_F_JOB_KNIGHT,{ mes "Now, it's time for you to go to Sir Edmond for your next test. Do well on the rest of your tests. You better promise~"; close; } - set KNIGHT_Q,9; + KNIGHT_Q = 9; mes "Mmm..."; mes "To be honest, I don't think your attitude is good enough to be a Knight quite yet."; next; @@ -1884,7 +1884,7 @@ prt_in,70,99,6 script Sir Edmond#knt 4_M_JOB_KNIGHT2,{ mes "the quality of"; mes "reverence."; close2; - set KNIGHT_Q,11; + KNIGHT_Q = 11; changequest 9009,9010; warp "job_knt",143,57; end; @@ -1994,7 +1994,7 @@ OnInit: disablenpc "Warp#knt"; end; OnTouch: - set KNIGHT_Q,12; + KNIGHT_Q = 12; changequest 9010,9011; warp "prt_in",80,100; end; @@ -2198,7 +2198,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ next; switch(select("Gain wealth and fame.:I can protect myself.:I can protect others.")) { case 1: - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Sir Gray]"; mes "Of course, wealth and fame have their place in the world. But we as Knights must live for higher virtues."; next; @@ -2238,7 +2238,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ next; break; case 2: - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Sir Gray]"; mes "Of course wealth is important."; mes "But we Knights must live for higher virtues."; @@ -2255,7 +2255,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ } break; case 3: - set .@knight_t,.@knight_t+5; + .@knight_t += 5; mes "[Sir Gray]"; mes "Satisfaction, you say."; mes "It seems like you are"; @@ -2274,20 +2274,20 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ next; switch(select("Skills.:Goal.:Appearance.")) { case 1: - set .@knight_t,.@knight_t+5; + .@knight_t += 5; mes "[Sir Gray]"; mes "Skill is something you gain with experience as a Knight. It cannot be your highest goal. Otherwise, you'll never be satisfied as a Knight."; next; break; case 2: - set .@knight_t,.@knight_t-5; + .@knight_t -= 5; mes "[Sir Gray]"; mes "I see..."; mes "Always having a goal is very important. You may be full of ideas upon becoming a Knight, but that may change with time."; next; break; case 3: - set .@knight_t,.@knight_t+5; + .@knight_t += 5; mes "[Sir Gray]"; mes "Oh no..."; mes "What you see isn't what really counts. A Swordman may be stronger than a Knight, and even Knight may grow weak if he becomes lazy."; @@ -2318,7 +2318,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ next; switch(select("I will grow within a short period of time.:I would like to test my ability as a Knight.:I would like to go to more challenging places.")) { case 1: - set .@knight_t,.@knight_t+10; + .@knight_t += 10; mes "[Sir Gray]"; mes "Don't be in too much of a hurry to become strong. Even if you become"; mes "a Knight, you are still yourself."; @@ -2379,7 +2379,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ next; switch(select("Comfortable places for Knights to go...:The different paths of a Knight...:Ways to get more money as a Knight...")) { case 1: - set .@knight_t,.@knight_t+5; + .@knight_t += 5; mes "[Sir Gray]"; mes "There are many places that are comfortable or uncomfortable in this world. However Knights must"; mes "be able to survive anywhere."; @@ -2391,7 +2391,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ next; break; case 3: - set .@knight_t,.@knight_t+15; + .@knight_t += 15; mes "[Sir Gray]"; mes "Oh no. Do you hold wealth as a priority of being a Knight? We're not meant to be that way. Come again when you have thought"; mes "more about it..."; @@ -2408,7 +2408,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ mes "for so long."; next; if (.@knight_t == 0) { - set KNIGHT_Q,14; + KNIGHT_Q = 14; changequest 9011,9012; mes "[Sir Gray]"; mes "I enjoyed talking with you. You remind me of myself as a young recruit. Shall we talk to the captain and decide on your"; @@ -2422,7 +2422,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ close; } else if (.@knight_t == 5) { - set KNIGHT_Q,14; + KNIGHT_Q = 14; changequest 9011,9012; mes "[Sir Gray]"; mes "I enjoyed speaking with you. You can think about the principles of Knighthood more once you become a Knight."; @@ -2432,7 +2432,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ close; } else if (.@knight_t == 10) { - set KNIGHT_Q,14; + KNIGHT_Q = 14; changequest 9011,9012; mes "[Sir Gray]"; mes "I enjoyed talking with you. Although, there were some"; @@ -2450,7 +2450,7 @@ prt_in,87,92,4 script Sir Gray#knt 2_M_SWORDMASTER,{ close; } else { - set KNIGHT_Q,13; + KNIGHT_Q = 13; mes "[Sir Gray]"; mes "Conversing"; mes "with young ones"; diff --git a/npc/jobs/2-1/priest.txt b/npc/jobs/2-1/priest.txt index 76fb03cad..e28106f69 100644 --- a/npc/jobs/2-1/priest.txt +++ b/npc/jobs/2-1/priest.txt @@ -35,7 +35,7 @@ prt_church,16,41,4 script High Bishop#prst 1_M_PASTOR,{ // Uncomment the following 'if' statement to allow High Priests to assist Acolytes with the job change quest. // Officially High Priests are blocked from helping by an indiscriminate check if you are a transcended character. - //if (Class == Job_High_Priest) set .@AllowHPAssist,1; + //if (Class == Job_High_Priest) .@AllowHPAssist = 1; if (Upper == 1 && .@AllowHPAssist != 1) { mes "[Bishop Paul]"; mes "Hm...?"; @@ -241,7 +241,7 @@ prt_church,16,41,4 script High Bishop#prst 1_M_PASTOR,{ mes "I strongly recommend that you use all of these skill points before you apply for the Priest job change test."; close; } - set PRIEST_Q,1; + PRIEST_Q = 1; setquest 8009; mes "[Bishop Paul]"; if (Sex) @@ -271,7 +271,7 @@ prt_church,16,41,4 script High Bishop#prst 1_M_PASTOR,{ mes "[Bishop Paul]"; mes "I have no doubt that you will do a good job by yourself. However, it will be easier with the aid of a Brother or Sister that has already become a Priest."; next; - set PRIEST_Q,5; + PRIEST_Q = 5; changequest 8009,8011; mes "[Bishop Paul]"; mes "Well, are you ready for the Spiritual Training?"; @@ -392,7 +392,7 @@ prt_church,16,41,4 script High Bishop#prst 1_M_PASTOR,{ close; } else if (PRIEST_Q == 4) { - set PRIEST_Q,5; + PRIEST_Q = 5; changequest 8010,8011; mes "[Bishop Paul]"; mes "You've accomplished"; @@ -509,7 +509,7 @@ prt_church,16,41,4 script High Bishop#prst 1_M_PASTOR,{ mes "[Bishop Paul]"; mes "Make this servant of yours an instrument of your miraculous works..."; next; - set .@joblvl,JobLevel; + .@joblvl = JobLevel; completequest 8016; callfunc "Job_Change",Job_Priest; callfunc "F_ClearJobVar"; // clears all job variables for the current player @@ -722,7 +722,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "[Sister Cecilia]"; mes "Aw...? How could you give me that kind of answer? I assume you're not ready to be a Priest yet..."; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "You should reflect a little more on the teachings of holiness and come back later. You can't be a Priest if your spirit is weak."; close; @@ -734,7 +734,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "[Sister Cecilia]"; mes "Aw...? God won't grant you the power of holiness if your goals aren't just and pure. Meditate on your motivations for a while, and then come back to me."; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "Think about the qualities that make Priests people of respect. You can't be a Priest if your spirit is not in accordance with God."; close; @@ -746,7 +746,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "[Sister Cecilia]"; mes "No, no. You've got the wrong idea. God authorizes us to use his power to support his children. You must help people in danger: it is your obligation."; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "Go and observe the adventurers that are fighting for peace in this world. They will teach you what you must do in order to help them."; close; @@ -758,7 +758,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "[Sister Cecilia]"; mes "How can you say no...? That's one of the basic principles of Priesthood. You must value the welfare of others over your own safety."; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "Go and think about the value of suffering and the meaning of sacrifice. When you think you understand more about helping those in need, come back to me."; close; @@ -770,7 +770,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "[Sister Cecilia]"; mes "No no no... You've got it wrong. Even though your purpose is to spread God's message, no one will eagerly accept what you say when you spam text."; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "Remember..."; mes "You must be a moral person, and display maturity and respect to other players. This kind of attitude applies for all classes,"; @@ -784,7 +784,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "[Sister Cecilia]"; mes "No, you won't. Luring many monsters does more harm than good. There is no exception. That behavior is totally unacceptable."; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "Even if it looks like you are aiding your party members, such action results in bad karma. Please reflect on that for a while."; close; @@ -796,7 +796,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "[Sister Cecilia]"; mes "With that spirit, you can't be a Priest. If it is God's will to sacrifice yourself for a good purpose, you must carry out God's will as his servant."; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "Besides, God has also given Priests the resurrection power. Think about the meaning of life and death again, and then come back to me."; close; @@ -809,7 +809,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "You have demonstrated your devotion to God. Will you swear to adhere to his teachings for the rest of your days?"; next; if (select("I do.:No.") == 1) { - set PRIEST_Q,9; + PRIEST_Q = 9; changequest 8014,8015; mes "[Sister Cecilia]"; mes "Now, you have completed your oath of Priesthood and accomplished all three trials required to become a Priest."; @@ -825,7 +825,7 @@ prt_church,27,24,1 script Sister Cecilia 1_F_PRIEST,{ mes "..."; mes "......"; next; - set PRIEST_Q,8; + PRIEST_Q = 8; mes "[Sister Cecilia]"; mes "You've come so far..."; mes "Why would you want"; @@ -953,14 +953,14 @@ job_prist,24,187,4 script Peter S. Alberto 4_M_MINISTER,{ donpcevent "Peter S. Alberto#2::OnEnable"; end; case 2: - set PRIEST_Q,6; + PRIEST_Q = 6; mes "[Father Peter]"; mes "Hm? What is it you need?"; mes "Well, no problem. You can"; mes "afford to take your time."; close; case 3: - set PRIEST_Q,6; + PRIEST_Q = 6; mes "[Father Peter]"; mes "What...?"; mes "You wanna go back??"; @@ -1102,7 +1102,7 @@ OnEnable: end; OnM1: - set .MyMobs,13; + .MyMobs = 13; monster "job_prist",24,52,"Theft",1015,1,"Z_C#prst::OnMyMobDead"; monster "job_prist",18,52,"Want of Virtue",1015,1,"Z_C#prst::OnMyMobDead"; monster "job_prist",30,52,"Jealousy",1015,1,"Z_C#prst::OnMyMobDead"; @@ -1294,7 +1294,7 @@ OnDisable: job_prist,24,109,4 script prst1_1 WARPNPC,3,3,{ OnTouch: - set .@mobs,getvariableofnpc(.MyMobs,"Zombie_Generator#prst"); + .@mobs = getvariableofnpc(.MyMobs,"Zombie_Generator#prst"); if (BaseJob == Job_Priest) warp "job_prist",168,17; else if (BaseClass == Job_Acolyte && .@mobs < 1) { warp "job_prist",168,17; @@ -1711,7 +1711,7 @@ OnTouch: end; } else if (BaseClass == Job_Acolyte) { - set PRIEST_Q,7; + PRIEST_Q = 7; if (questprogress(8012)) { changequest 8012,8013; } @@ -1738,7 +1738,7 @@ function script F_FatherRub { mes "Well then, please head to your next destination for your pilgrimage. Be safe in your travels."; close2; savepoint "prt_fild03",361,255; - set PRIEST_Q,2; + PRIEST_Q = 2; end; } else if (PRIEST_Q == 2) { @@ -1786,7 +1786,7 @@ function script F_MotherMart { mes "on your journey."; close2; savepoint "moc_fild07",35,355; - set PRIEST_Q,3; + PRIEST_Q = 3; end; } else if (PRIEST_Q == 3) { @@ -1846,7 +1846,7 @@ function script F_FatherYos { mes "completed."; close2; savepoint "prt_fild00",206,230; - set PRIEST_Q,4; + PRIEST_Q = 4; end; } else if (PRIEST_Q == 4) { diff --git a/npc/jobs/2-1/wizard.txt b/npc/jobs/2-1/wizard.txt index 86c245f94..bce3603eb 100644 --- a/npc/jobs/2-1/wizard.txt +++ b/npc/jobs/2-1/wizard.txt @@ -140,7 +140,7 @@ gef_tower,111,37,4 script Wizard Guildsman 1_F_GYPSY,{ mes "[Catherine]"; mes "Go talk to the man in the corner and he will give you the remaining exams."; mes "Be careful. We have lost many Mages due to the difficulty of the exams."; - set WIZ_Q,3; + WIZ_Q = 3; setquest 9015; close; } @@ -152,18 +152,18 @@ gef_tower,111,37,4 script Wizard Guildsman 1_F_GYPSY,{ mes "The first test is collecting magic items."; mes "The important part is that you must gather these items on your own."; next; - set wizard_m1,rand(1,2); + wizard_m1 = rand(1,2); mes "[Catherine]"; mes "The items you must collect are..."; if (rand(2)) { - set WIZ_Q,1; + WIZ_Q = 1; setquest 9013; mes "^3355FFRed Gemstone^000000 10 each,"; mes "^3355FFBlue Gemstone^000000 10 each,"; mes "^3355FFYellow Gemstone^000000 10 each,"; } else { - set WIZ_Q,2; + WIZ_Q = 2; setquest 9014; mes "^3355FFCrystal Blue^000000 5 each,"; mes "^3355FFGreen Live^000000 5 each,"; @@ -200,7 +200,7 @@ gef_tower,111,37,4 script Wizard Guildsman 1_F_GYPSY,{ delitem 716,10; //Red_Gemstone delitem 717,10; //Blue_Gemstone delitem 715,10; //Yellow_Gemstone - set WIZ_Q,3; + WIZ_Q = 3; changequest 9013,9015; mes "[Catherine]"; mes "Good for you! You passed the first test."; @@ -239,7 +239,7 @@ gef_tower,111,37,4 script Wizard Guildsman 1_F_GYPSY,{ delitem 993,5; //Yellow_Live delitem 990,5; //Boody_Red delitem 992,5; //Wind_Of_Verdure - set WIZ_Q,3; + WIZ_Q = 3; changequest 9014,9015; mes "[Catherine]"; mes "Good. You've passed the first test now."; @@ -393,7 +393,7 @@ gef_tower,111,37,4 script Wizard Guildsman 1_F_GYPSY,{ } else if (WIZ_Q == 7) { if (JobLevel < 40) { - set WIZ_Q,0; + WIZ_Q = 0; mes "[Catherine]"; mes "Hey, what don't you get it?"; mes "I said you must be at least job level 40 to change your job, got it?"; @@ -588,156 +588,156 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "1. Which of the following is not necessary to learn Fire Wall?"; next; if (select("Fire Bolt Lv 4:Fire Ball Lv 5:Sight Lv 1:Napalm Beat Lv 4") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "2. Regaurdless of it's previous attribute, What does the monster's attribute change to when you cast Frost Diver on it?"; next; if (select("Water:Earth:Fire:Wind") == 1) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "3. When you completely master Napalm Beat, what is the ratio of the increased MATK using that spell?"; next; if (select("1.6 times:1.7 times:2 times:20 times") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "4. What item do you need when casting Stone Curse?"; next; if (select("Red Blood:Blue Gemstone:Yellow Gemstone:Red Gemstone") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "5. Which of the following is not required to master Safety Wall?"; next; if (select("Napalm Beat Lv 4:Soul Strike Lv 5:Increase SP Recovery Lv 6:Safety Wall Lv 7") == 3) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "6. Without the INT bonus, what amount of SP is recovered every 10 seconds when you have learned Increase SP Recovery Lv 7?"; next; if (select("14:21:28:35") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "7. Using Energy Coat, when you have 50% of your SP remaining, how much SP is used when hit, and what percentage is damage reduced by?"; next; if (select("Damage 18% SP1.5%:Damage 18% SP2%:Damage 24% SP1.5%:Damage 24% SP2%") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "8. How much SP is consumed and how many times can you avoid attacks when using Safety Wall Lv 6?"; next; if (select("SP 40, 6 times:SP 35, 6 times:SP 40, 7 times:SP 35, 7 times") == 3) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "9. How much SP is needed when using Lv 10 Thunderstorm?"; next; if (select("84:74:64:54") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "10. Which skill is most useful training in the Byalan Dungeon?"; next; if (select("Lightning Bolt:Fire Bolt:Cold Bolt:Sight") == 1) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; break; case 2: mes "[Raulel]"; mes "1. Which monster can you obtain a slotted Guard from?"; next; if (select("Thief Bug:PecoPeco:Pupa:Kobold (Hammer)") == 3) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "2. Which of the following is the easiest monster for a low level Mage to hunt?"; next; if (select("Flora:Giearth:Golem:Myst") == 1) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "3. Which monster will not be affected by Stone Curse?"; next; if (select("Elder Willow:Evil Druid:Magnolia:Marc") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "4. When attacking a Lv 3 water attribute monster with a wind attribute weapon, what is the damage percentage?"; next; if (select("125%:150%:175%:200%") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "5. If a Baby Desert Wolf and a Familiar fought, which one would win?"; next; if (select("Baby Desert Wolf:Familiar:Neither:I don't know") == 1) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "6. Which of the following cannot be a Cute Pet?"; next; if (select("Poporing:Roda Frog:Smokie:Poison Spore") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "7. Choose the monster that is weak against a fire attribute attack."; next; if (select("Dagger Goblin:Mace Goblin:Morningstar Goblin:Hammer Goblin") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "8. Which of the following has the highest defense?"; next; if (select("Horn:Chonchon:Andre:Caramel") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "9. Choose the monster that's of a different species."; next; if (select("Poring:Mastering:Ghostring:Spore") == 3) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "10. Which of the following is not an Undead monster?"; next; if (select("Drake:Megalodon:Deviace:Khalitzburg") == 3) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; break; case 3: mes "[Raulel]"; mes "1. Which stat is the most important for a Mage?"; next; if (select("INT:AGI:DEX:VIT") == 1) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "2. Which attribute does not have a 'Bolt' type attack?"; next; if (select("Water:Earth:Fire:Wind") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "3. Choose the one that does not relate to a Mage."; next; if (select("Weak physical strength.:Attacks at a distance.:Good at selling stuff.:Magic Defense is high.") == 3) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "4. Which town is the home of Mages?"; next; if (select("Prontera:Morroc:Alberta:Geffen") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "5. Which of the following cards has nothing to do with INT?"; next; if (select("Andre Egg Card:Soldier Andre Card:Baby Desert Wolf Card:Elder Willow Card") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "6. What is the Mage good at compared to other job classes?"; next; if (select("Exceptional Vocal Ability:Exceptional Acting Ability:Exceptional Dance Skills:Exceptional Magic Skills") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "7. What is the INT bonus at Job Lv 40 for a Mage?"; next; if (select("8:7:6:5") == 4) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "8. Which item can a Mage not equip?"; next; if (select("Knife:Boys Cap:Sandle:Eye of Dullahan") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "9. Which of the following is the catalyst when making the Mage test solution 3?"; next; if (select("Blue Gemstone:Red Gemstone:Yellow Gemstone:Red Blood") == 1) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; mes "[Raulel]"; mes "10. Which card is irrelevant to magic?"; next; if (select("Marduk Card:Magnolia Card:Willow Card:Maya Card") == 2) - set .@wizard_t,.@wizard_t+10; + .@wizard_t += 10; } mes "[Raulel]"; if (WIZ_Q == 4) { @@ -746,7 +746,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "[Raulel]"; mes "Your score is... " + .@wizard_t + "points....."; if (.@wizard_t == 100) { - set WIZ_Q,5; + WIZ_Q = 5; changequest 9016,9017; mes "Hahahahahahah~ Well done, you passed the second test."; mes "It wasn't done in one try like mine was, but I'll let you slide..."; @@ -757,7 +757,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ close; } else if (.@wizard_t == 90) { - set WIZ_Q,5; + WIZ_Q = 5; changequest 9016,9017; mes "Hahaha~ Since you only missed one problem, you passed the second test."; mes "It wasn't done in one try like mine was, but I'll let you slide..."; @@ -768,7 +768,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ close; } else if (.@wizard_t == 80) { - set WIZ_Q,5; + WIZ_Q = 5; changequest 9016,9017; mes "Sheez... You didn't do very well, but you passed the second test."; mes "It wasn't done in one try like mine was, but I'll let you slide..."; @@ -792,7 +792,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "[Raulel]"; mes "Your score is... " + .@wizard_t + " points!"; if (.@wizard_t == 100) { - set WIZ_Q,5; + WIZ_Q = 5; changequest 9016,9017; mes "*cough* *Cough* Well done, you passed the second test."; next; @@ -802,7 +802,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ close; } else if (.@wizard_t == 90) { - set WIZ_Q,5; + WIZ_Q = 5; changequest 9016,9017; mes "Hahahaha~ I'll let you slide by since you only missed one problem. You passed the second test."; next; @@ -812,7 +812,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ close; } else { - set WIZ_Q,4; + WIZ_Q = 4; mes "You failed. I will let you come back again...after you've learned more relating to the type of questions I've asked you."; next; mes "[Raulel]"; @@ -834,7 +834,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "What a rash person. Your the type that rushes into battle without thinking, what in the world are you doing here instead of with the Prontera Chivalry? Heck, go for it! *cough* Not my fault if you end up dying."; mes "Just consider yourself a glass cannon...because the monsters are going to break you into pieces. Hahahahahahahahaha~"; next; - set WIZ_Q,6; + WIZ_Q = 6; savepoint "geffen",120,107; mes "[Raulel]"; mes "Then, as you wish. I'll send you there right now."; @@ -868,7 +868,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "If you want, I can send you back to town right now... What do you want to do?"; next; if (select("Continue testing.:I want to go back because I have butterflies in my stomach.") == 1) { - set WIZ_Q,6; + WIZ_Q = 6; savepoint "geffen",120,107; mes "[Raulel]"; mes "You are indeed, very determined. Ok! Hahahahahaha~"; @@ -877,7 +877,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ warp "job_wiz",57,154; end; } - set WIZ_Q,6; + WIZ_Q = 6; mes "[Raulel]"; mes "Good thinking. This is a better choice for you. Hahahahah~"; mes "Go back and live a easy life, Greater Magic is a force that should not be wield by types like yourself."; @@ -895,7 +895,7 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "Ok then, here's a proposition. Since you're probably worn out as it is, and I can clearly see the lust for Greater Magic burning in your eyes..."; mes "Hahahahaha~ yeah! Go bring me a ^3355FFWorn Out Scroll^000000."; next; - set WIZ_Q2,WIZ_Q2+1; + WIZ_Q2 = 7; mes "[Raulel]"; mes "If not, you can take the test again..."; mes "Well, I'll send you to take the test for now. Hahahaha~"; @@ -923,8 +923,8 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "Hahahahahahahaha~ *Cough* *cough* So you ended up bringing one of these eh? Good job..."; mes "I think I can continue my research with this..."; next; - set WIZ_Q2,0; - set WIZ_Q,7; + WIZ_Q2 = 0; + WIZ_Q = 7; mes "[Raulel]"; mes "Even though your not Grade A Wizard material, I can tell your serious about wanting the Greater Magic. I'll tell Catherine that you passed. Hahahahahahahahah~"; mes "You went through a lot of trouble here, and that is the true purpose for us selecting Wizards. Only those who will devote themselves to the art will ever become Wizards. Good luck to you. Become much Stronger. Hahahahahaha~"; @@ -946,27 +946,27 @@ gef_tower,102,24,2 script Gloomy Wizard 4_M_JOB_WIZARD,{ mes "1. Choose the monster with a different attribute than the others."; next; if (select("Mantis:Cornutus:Giearth:Caramel") == 2) - set .@wizard_t,.@wizard_t+20; + .@wizard_t += 20; mes "[Raulel]"; mes "2. Choose the monster that is not a looting one."; next; if (select("Yoyo:Magnolia:Metaller:Zerom") == 4) - set .@wizard_t,.@wizard_t+20; + .@wizard_t += 20; mes "[Raulel]"; mes "3. Which of these monsters does not recognize casting?"; next; if (select("Marina:Vitata:Scorpion:Giearth") == 1) - set .@wizard_t,.@wizard_t+20; + .@wizard_t += 20; mes "[Raulel]"; mes "4. Choose the spell that would be efficient against a Marine Sphere."; next; if (select("Cold Bolt:Fire Bolt:Lightning Bolt:Stone Curse") == 3) - set .@wizard_t,.@wizard_t+20; + .@wizard_t += 20; mes "[Raulel]"; mes "5. Choose the monster that can move."; next; if (select("Hydra:Madragora:Greatest General:Frilldora") == 4) - set .@wizard_t,.@wizard_t+20; + .@wizard_t += 20; mes "[Raulel]"; mes "*pfft* Do it right, so I don't have to ask again."; next; @@ -1094,11 +1094,11 @@ OnInit: OnEnable: enablenpc "Room of Water"; if (!checkre(0)) { - set .MyMobs,8; + .MyMobs = 8; monster "job_wiz",129,170,"Obeaune",1044,1,"Room of Water::OnMyMobDead"; } else - set .MyMobs,7; + .MyMobs = 7; monster "job_wiz",109,174,"Phen",1158,1,"Room of Water::OnMyMobDead"; monster "job_wiz",118,174,"Shellfish",1074,1,"Room of Water::OnMyMobDead"; monster "job_wiz",109,165,"Vadon",1066,1,"Room of Water::OnMyMobDead"; @@ -1115,9 +1115,9 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { - set WIZ_Q2,WIZ_Q2+1; + ++WIZ_Q2; mapannounce "job_wiz",strcharinfo(0)+" has succeeded in eliminating the monsters.",bc_map; donpcevent "Room of Water#Door::OnEnable"; stopnpctimer; @@ -1188,7 +1188,7 @@ OnInit: OnEnable: enablenpc "Room of Water#Door"; donpcevent "Room of Water::OnDisable"; - set .MyMobs,5; + .MyMobs = 5; monster "job_wiz",114,169,"Marine Sphere",1142,1,"Room of Water#Door::OnMyMobDead"; monster "job_wiz",112,169,"Hydra",1068,1,"Room of Water#Door::OnMyMobDead"; monster "job_wiz",116,169,"Hydra",1068,1,"Room of Water#Door::OnMyMobDead"; @@ -1203,7 +1203,7 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_wiz",strcharinfo(0)+" has succeeded in eliminating the monsters.",bc_map; percentheal 100,100; @@ -1267,13 +1267,13 @@ OnInit: OnEnable: enablenpc "Room of Earth"; if (!checkre(0)) { - set .MyMobs,10; + .MyMobs = 10; monster "job_wiz",120,102,"Hode",1127,1,"Room of Earth::OnMyMobDead"; monster "job_wiz",111,93,"Savage",1166,1,"Room of Earth::OnMyMobDead"; monster "job_wiz",127,86,"Mantis",1139,1,"Room of Earth::OnMyMobDead"; } else - set .MyMobs,7; + .MyMobs = 7; monster "job_wiz",111,102,"Yoyo",1057,1,"Room of Earth::OnMyMobDead"; monster "job_wiz",120,102,"Deniro",1105,1,"Room of Earth::OnMyMobDead"; monster "job_wiz",111,102,"Caramel",1103,1,"Room of Earth::OnMyMobDead"; @@ -1290,7 +1290,7 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_wiz",strcharinfo(0) + " has succeeded in eliminating the monsters.",bc_map; donpcevent "Room of Earth#Door::OnEnable"; @@ -1363,11 +1363,11 @@ OnEnable: enablenpc "Room of Earth#Door"; donpcevent "Room of Earth::OnDisable"; if (!checkre(0)) { - set .MyMobs,7; + .MyMobs = 7; monster "job_wiz",116,97,"Flora",1118,1,"Room of Earth#Door::OnMyMobDead"; } else - set .MyMobs,6; + .MyMobs = 6; monster "job_wiz",114,95,"Mandragora",1020,1,"Room of Earth#Door::OnMyMobDead"; monster "job_wiz",118,95,"Mandragora",1020,1,"Room of Earth#Door::OnMyMobDead"; monster "job_wiz",114,99,"Mandragora",1020,1,"Room of Earth#Door::OnMyMobDead"; @@ -1383,7 +1383,7 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_wiz",strcharinfo(0) + " has succeeded in eliminating the monster.",bc_map; percentheal 100,100; @@ -1447,12 +1447,12 @@ OnInit: OnEnable: enablenpc "Room of Fire"; if (!checkre(0)) { - set .MyMobs,8; + .MyMobs = 8; monster "job_wiz",58,110,"Zerom",1178,1,"Room of Fire::OnMyMobDead"; monster "job_wiz",54,89,"Desert Wolf",1106,1,"Room of Fire::OnMyMobDead"; } else - set .MyMobs,6; + .MyMobs = 6; monster "job_wiz",33,110,"Goblin",1123,1,"Room of Fire::OnMyMobDead"; monster "job_wiz",40,103,"Scorpion",1001,1,"Room of Fire::OnMyMobDead"; monster "job_wiz",51,103,"Frilldora",1119,1,"Room of Fire::OnMyMobDead"; @@ -1468,7 +1468,7 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_wiz",strcharinfo(0) + " has succeeded in eliminating the monsters.",bc_map; donpcevent "Room of Fire#Door::OnEnable"; @@ -1540,7 +1540,7 @@ OnInit: OnEnable: enablenpc "Room of Fire#Door"; donpcevent "Room of Fire::OnDisable"; - set .MyMobs,3; + .MyMobs = 3; monster "job_wiz",44,99,"Greatest General",1277,1,"Room of Fire#Door::OnMyMobDead"; if (checkre(0)) { monster "job_wiz",43,99,"Greatest General",1277,1,"Room of Fire#Door::OnMyMobDead"; @@ -1559,10 +1559,10 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_wiz","Congratulations, " + strcharinfo(0) + ". You have passed the job change test.",bc_map; - set WIZ_Q,7; + WIZ_Q = 7; changequest 9017,9018; donpcevent "Room of Fire#Door::OnDisable"; donpcevent "Test Helper#wiz::OnEnable"; diff --git a/npc/jobs/2-1a/AssassinCross.txt b/npc/jobs/2-1a/AssassinCross.txt index a9fdee622..3daf3bd84 100644 --- a/npc/jobs/2-1a/AssassinCross.txt +++ b/npc/jobs/2-1a/AssassinCross.txt @@ -15,7 +15,7 @@ valkyrie,44,58,5 script Assassin Cross#Valkyrie 4_F_JOB_ASSASSIN,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Assassin Cross]"; mes "Congratulations..."; @@ -77,7 +77,7 @@ valkyrie,44,58,5 script Assassin Cross#Valkyrie 4_F_JOB_ASSASSIN,{ close; } jobchange Job_Assassin_Cross; - set ADVJOB,0; + ADVJOB = 0; mes "[Assassin Cross]"; mes "Congratulations."; mes "As an Assassin Cross,"; diff --git a/npc/jobs/2-1a/HighPriest.txt b/npc/jobs/2-1a/HighPriest.txt index e7dffe9b9..77cf7be23 100644 --- a/npc/jobs/2-1a/HighPriest.txt +++ b/npc/jobs/2-1a/HighPriest.txt @@ -15,7 +15,7 @@ valkyrie,44,42,5 script High Priest#Valkyrie 1_M_PASTOR,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[High Priest]"; mes "Congratulations."; @@ -57,7 +57,7 @@ valkyrie,44,42,5 script High Priest#Valkyrie 1_M_PASTOR,{ close; } jobchange Job_High_Priest; - set ADVJOB,0; + ADVJOB = 0; mes "[High Priest]"; mes "Congratulations."; mes "As a High Priest,"; diff --git a/npc/jobs/2-1a/HighWizard.txt b/npc/jobs/2-1a/HighWizard.txt index ab5dc6424..2a823da5f 100644 --- a/npc/jobs/2-1a/HighWizard.txt +++ b/npc/jobs/2-1a/HighWizard.txt @@ -15,7 +15,7 @@ valkyrie,44,47,5 script High Wizard#Valkyrie 4_M_JOB_WIZARD,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[High Wizard]"; mes "Congratulations."; @@ -61,7 +61,7 @@ valkyrie,44,47,5 script High Wizard#Valkyrie 4_M_JOB_WIZARD,{ close; } jobchange Job_High_Wizard; - set ADVJOB,0; + ADVJOB = 0; mes "[High Wizard]"; mes "Congratulations."; mes "As a High Wizard,"; diff --git a/npc/jobs/2-1a/LordKnight.txt b/npc/jobs/2-1a/LordKnight.txt index eb310e360..291cd930c 100644 --- a/npc/jobs/2-1a/LordKnight.txt +++ b/npc/jobs/2-1a/LordKnight.txt @@ -15,7 +15,7 @@ valkyrie,44,39,5 script Lord Knight#Valkyrie 1_M_KNIGHTMASTER,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Lord Knight]"; mes "Congratulations."; @@ -59,7 +59,7 @@ valkyrie,44,39,5 script Lord Knight#Valkyrie 1_M_KNIGHTMASTER,{ close; } jobchange Job_Lord_Knight; - set ADVJOB,0; + ADVJOB = 0; mes "[Lord Knight]"; mes "Congratulations!"; mes "As a Lord Knight,"; diff --git a/npc/jobs/2-1a/Sniper.txt b/npc/jobs/2-1a/Sniper.txt index c7060cdf6..893dc3a2d 100644 --- a/npc/jobs/2-1a/Sniper.txt +++ b/npc/jobs/2-1a/Sniper.txt @@ -15,7 +15,7 @@ valkyrie,44,55,5 script Sniper#Valkyrie 4_F_JOB_HUNTER,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Sniper]"; mes "Congratulations."; @@ -57,7 +57,7 @@ valkyrie,44,55,5 script Sniper#Valkyrie 4_F_JOB_HUNTER,{ close; } jobchange Job_Sniper; - set ADVJOB,0; + ADVJOB = 0; mes "[Sniper]"; mes "Congratulations!"; mes "As a Sniper, I hope"; diff --git a/npc/jobs/2-1a/WhiteSmith.txt b/npc/jobs/2-1a/WhiteSmith.txt index 590f68143..a530246cc 100644 --- a/npc/jobs/2-1a/WhiteSmith.txt +++ b/npc/jobs/2-1a/WhiteSmith.txt @@ -15,7 +15,7 @@ valkyrie,44,50,5 script MasterSmith#Valkyrie 4_M_JOB_BLACKSMITH,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[MasterSmith]"; mes "Congratulations."; @@ -63,7 +63,7 @@ valkyrie,44,50,5 script MasterSmith#Valkyrie 4_M_JOB_BLACKSMITH,{ close; } jobchange Job_Whitesmith; - set ADVJOB,0; + ADVJOB = 0; mes "[MasterSmith]"; mes "Congratulations!"; mes "As a MasterSmith,"; diff --git a/npc/jobs/2-1e/StarGladiator.txt b/npc/jobs/2-1e/StarGladiator.txt index ca04c46c9..f33cda98e 100644 --- a/npc/jobs/2-1e/StarGladiator.txt +++ b/npc/jobs/2-1e/StarGladiator.txt @@ -101,7 +101,7 @@ payon,215,102,3 script Moohyun#job_star 4_M_ROGUE,3,3,{ mes "place that's closest to the sky.^FFFFFF ^000000 In the meantime, I'll write a"; mes "letter of recommendation that"; mes "I'll send to him for you."; - set STGL_Q,1; + STGL_Q = 1; setquest 7007; close; } @@ -224,7 +224,7 @@ payon,215,102,3 script Moohyun#job_star 4_M_ROGUE,3,3,{ mes "back to the Moon Room. Soon,"; mes "maybe we'll be able to greet"; mes "each other as Taekwon Masters!"; - set STGL_Q,8; + STGL_Q = 8; close; } mes "[Moohyun]"; @@ -420,7 +420,7 @@ comodo,172,230,3 script Wandering Master#job_sta 4_M_JOB_ASSASSIN,{ mes "^4D4DFFMystic Frozen^000000 and"; mes "^4D4DFFFlame Heart^000000."; mes "Now go..."; - set STGL_Q,2; + STGL_Q = 2; changequest 7007,7008; close; } @@ -485,7 +485,7 @@ comodo,172,230,3 script Wandering Master#job_sta 4_M_JOB_ASSASSIN,{ delitem 997,1; //Great_Nature delitem 995,1; //Mistic_Frozen delitem 994,1; //Flame_Heart - set STGL_Q,3; + STGL_Q = 3; changequest 7008,7009; close; } @@ -839,7 +839,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "I suppose you can think"; mes "of mankind as the sons of"; mes "the sun. Good, very good..."; - set .@sun_point,.@sun_point+10; + .@sun_point += 10; break; case 2: mes "[Daru]"; @@ -853,7 +853,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "I suppose you can think of"; mes "the Sun as one of thousands"; mes "of stars in the universe..."; - set .@sun_point,.@sun_point+5; + .@sun_point += 5; break; case 4: mes "[Daru]"; @@ -879,7 +879,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "of the sun, our world"; mes "not only be cold, but it"; mes "would be completely lifeless."; - set .@sun_point,.@sun_point+10; + .@sun_point += 10; break; case 2: mes "[Daru]"; @@ -888,7 +888,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "of the sun brings comfort."; mes "And without comfort, is life"; mes "truly worth living? Good answer. ^FFFFFF ^000000"; - set .@sun_point,.@sun_point+10; + .@sun_point += 10; break; case 3: mes "[Daru]"; @@ -897,7 +897,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "we would see nothing."; mes "We would know nothing."; mes "We would be nothing."; - set .@sun_point,.@sun_point+10; + .@sun_point += 10; break; case 4: mes "[Daru]"; @@ -931,7 +931,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "them all? Think carefully..."; next; if (select("2nd, Marsh, Knights:4th, Desert, Sand:10th, Desert, Knights:5th, Deep Cave, Wolves") == 2) - set .@sun_point,.@sun_point+10; + .@sun_point += 10; mes "[Daru]"; mes "Well, that will be all."; mes "I cannot possibly know all"; @@ -948,7 +948,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "all life, the origin of warmth"; mes "and comfort. Now, let me lead"; mes "you to the Moon Room."; - set STGL_Q,4; + STGL_Q = 4; close2; warp "job_star",100,13; end; @@ -967,7 +967,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "more attuned with the power of"; mes "the cosmos. Now, please come"; mes "this way to the Moon Room..."; - set STGL_Q,4; + STGL_Q = 4; close2; warp "job_star",100,13; end; @@ -987,7 +987,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "to speak to me once again."; mes "Contemplate the infinite"; mes "power of the sun..."; - set STGL_Q,5; + STGL_Q = 5; close; } else if (STGL_Q == 4) { @@ -1009,7 +1009,7 @@ job_star,29,33,0 script Daru#job_star 1_M_ORIENT01,{ mes "its importance to the humans"; mes "and the world. Well done. Now,"; mes "let's proceed to the Moon Room."; - set STGL_Q,4; + STGL_Q = 4; close2; warp "job_star",100,13; end; @@ -1134,7 +1134,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "gentle moon whose soft"; mes "light helps you think clearly."; mes "It's a moon of peaceful rest..."; - set .@moon_point,.@moon_point+10; + .@moon_point += 10; break; case 3: mes "[Beeryu]"; @@ -1144,7 +1144,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "to aspire to attain prosperity"; mes "is natural, and to fulfill your"; mes "aspirations is life's pinnacle."; - set .@moon_point,.@moon_point+10; + .@moon_point += 10; break; case 4: mes "[Beeryu]"; @@ -1173,7 +1173,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "both power and compassion"; mes "are required to enact the"; mes "truest form of justice."; - set .@moon_point,.@moon_point+10; + .@moon_point += 10; break; case 2: mes "[Beeryu]"; @@ -1183,7 +1183,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "never forget your reasons"; mes "for attaining mastery of the"; mes "self, else you lose your way."; - set .@moon_point,.@moon_point+10; + .@moon_point += 10; break; case 3: mes "[Beeryu]"; @@ -1240,7 +1240,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "light of the moon?"; next; if (select("2nd, Marsh, Dark Knights:4th, the Desert, the Sand:10th, Deep Cave, Dark Knight:5th, Marsh, Wolves") == 4) - set .@moon_point,.@moon_point+10; + .@moon_point += 10; mes "[Beeryu]"; mes "Well, I've asked the"; mes "questions I wanted to set"; @@ -1264,7 +1264,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "Now, the time has come for you"; mes "to enter the Star Room. Come,"; mes "follow me this way..."; - set STGL_Q,6; + STGL_Q = 6; close2; warp "job_star",166,29; end; @@ -1295,7 +1295,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "of patience^000000. Then, when you're"; mes "ready, please talk to Moogang"; mes "so that he can send you to me."; - set STGL_Q,7; + STGL_Q = 7; close2; warp "payon",164,58; end; @@ -1366,7 +1366,7 @@ job_star,95,33,0 script Beeryu#job_star 1_M_MOC_LORD,{ mes "pride without hubris. You're"; mes "ready for the Star Room, so"; mes "I'll send you to Cheehee now."; - set STGL_Q,6; + STGL_Q = 6; close2; warp "job_star",166,29; end; @@ -1422,7 +1422,7 @@ job_star,161,33,0 script Cheehee#job_star 1_F_ORIENT_03,{ mes "like a pretty girl's teardrops"; mes "shed on a background of "; mes "pitch black night sky..."; - set STGL_Q,9; + STGL_Q = 9; close; } else if (STGL_Q == 9) { @@ -1433,7 +1433,7 @@ job_star,161,33,0 script Cheehee#job_star 1_F_ORIENT_03,{ mes "bring me the items on"; mes "this earth that come from"; mes "the stars. Bring me a piece of a star and the sand of a star..."; - set STGL_Q,10; + STGL_Q = 10; changequest 7009,7010; close; } @@ -1465,7 +1465,7 @@ job_star,161,33,0 script Cheehee#job_star 1_F_ORIENT_03,{ mes "sweet kind of sadness..."; delitem 1000,1; //Star_Crumb delitem 1001,1; //Sparkling_Dust - set STGL_Q,11; + STGL_Q = 11; close; } mes "[Cheehee]"; @@ -1534,7 +1534,7 @@ job_star,161,33,0 script Cheehee#job_star 1_F_ORIENT_03,{ mes "Moogang again. I will"; mes "let him know that you"; mes "completed our testing."; - set STGL_Q,12; + STGL_Q = 12; changequest 7010,7011; close; } @@ -1567,7 +1567,7 @@ job_star,161,33,0 script Cheehee#job_star 1_F_ORIENT_03,{ mes "Moogang again. I will"; mes "let him know that you"; mes "completed our testing."; - set STGL_Q,12; + STGL_Q = 12; changequest 7010,7011; close; } diff --git a/npc/jobs/2-2/alchemist.txt b/npc/jobs/2-2/alchemist.txt index b30defc48..04a32e0cf 100644 --- a/npc/jobs/2-2/alchemist.txt +++ b/npc/jobs/2-2/alchemist.txt @@ -183,17 +183,17 @@ alde_alche,27,185,5 script Alchemist Guildsman#am 4_F_ALCHE,{ mes "needs to bring..."; switch(rand(1,3)) { case 1: - set ALCH_Q,1; + ALCH_Q = 1; setquest 2028; mes "^551A8B7 Berserk Potions^000000."; break; case 2: - set ALCH_Q,2; + ALCH_Q = 2; setquest 2029; mes "^551A8B100 Mini Furnaces^000000."; break; case 3: - set ALCH_Q,3; + ALCH_Q = 3; setquest 2030; mes "^551A8B7,500 Fire Arrows^000000."; } @@ -233,7 +233,7 @@ alde_alche,27,185,5 script Alchemist Guildsman#am 4_F_ALCHE,{ mes "[Parmy Gianino]"; mes "Okay, now you need to learn"; mes "the basics to being an Alchemist and learn the procedures for mixing chemicals and medicines."; - set ALCH_Q,4; + ALCH_Q = 4; if (questprogress(2028)) { changequest 2028,2031; } @@ -266,7 +266,7 @@ alde_alche,27,185,5 script Alchemist Guildsman#am 4_F_ALCHE,{ mes "[Parmy Gianino]"; mes "Okay, now you need to learn"; mes "the basics to being an Alchemist and learn the procedures for mixing chemicals and medicines."; - set ALCH_Q,4; + ALCH_Q = 4; if (questprogress(2028)) { changequest 2028,2031; } @@ -465,7 +465,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "Now go to Darwin!"; mes "He'll teach you how to do the experiments. Just tell him that"; mes "I sent you."; - set ALCH_Q,6; + ALCH_Q = 6; changequest 2031,2032; close; } @@ -515,32 +515,32 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "12 + 23 + 34 + 45 = ?"; next; input .@input; - if (.@input != 114) set .@w_point,.@w_point+1; + if (.@input != 114) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "1000 - 36 - 227 - 348 = ?"; next; input .@input; - if (.@input != 389) set .@w_point,.@w_point+1; + if (.@input != 389) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "14 * 17 * 3 = ?"; next; input .@input; - if (.@input != 714) set .@w_point,.@w_point+1; + if (.@input != 714) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "9765 / 3 / 5 / 7 = ?"; next; input .@input; - if (.@input != 93) set .@w_point,.@w_point+1; + if (.@input != 93) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "(47 * 28) - (1376 / 4) = ?"; next; input .@input; - if (.@input != 972) set .@w_point,.@w_point+1; + if (.@input != 972) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "(2646 / 7) + (13 * 28) = ?"; next; input .@input; - if (.@input != 742) set .@w_point,.@w_point+1; + if (.@input != 742) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "How much do"; mes "12 Red Potions,"; @@ -549,7 +549,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "after a 24 % discount?"; next; input .@input; - if (.@input != 909) set .@w_point,.@w_point+1; + if (.@input != 909) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total weight of"; @@ -557,7 +557,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "and 1 Long Coat?"; next; input .@input; - if (.@input != 450) set .@w_point,.@w_point+1; + if (.@input != 450) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total defense of"; @@ -567,7 +567,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "Ear Muffs?"; next; input .@input; - if (.@input != 20) set .@w_point,.@w_point+1; + if (.@input != 20) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "If you buy 5 Helms"; mes "with a 24 % discount"; @@ -576,44 +576,44 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "do you earn?"; next; input .@input; - if (.@input != 8800) set .@w_point,.@w_point+1; + if (.@input != 8800) .@w_point += 1; break; case 2: mes "[Raspuchin Gregory]"; mes "13 + 25 + 37 + 48 = ?"; next; input .@input; - if (.@input != 123) set .@w_point,.@w_point+1; + if (.@input != 123) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "1000 - 58 - 214 - 416 = ?"; next; input .@input; - if (.@input != 312) set .@w_point,.@w_point+1; + if (.@input != 312) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "12 * 24 * 3 = ?"; next; input .@input; - if (.@input != 864) set .@w_point,.@w_point+1; + if (.@input != 864) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "10530 / 3 / 5 / 2 = ?"; next; input .@input; - if (.@input != 351) set .@w_point,.@w_point+1; + if (.@input != 351) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "(35 * 19) - (1792 / 7) = ?"; next; input .@input; - if (.@input != 409) set .@w_point,.@w_point+1; + if (.@input != 409) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "(2368 / 8) + (24 * 17) = ?"; next; input .@input; - if (.@input != 704) set .@w_point,.@w_point+1; + if (.@input != 704) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "(2646 / 7) + (13 * 28) = ?"; next; input .@input; - if (.@input != 742) set .@w_point,.@w_point+1; + if (.@input != 742) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total price of"; @@ -623,7 +623,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "a 24 % discount?"; next; input .@input; - if (.@input != 934) set .@w_point,.@w_point+1; + if (.@input != 934) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total weight of"; @@ -631,7 +631,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "4 Caps, and 2 Boots?"; next; input .@input; - if (.@input != 550) set .@w_point,.@w_point+1; + if (.@input != 550) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total defense of"; @@ -641,7 +641,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "and Glasses?"; next; input .@input; - if (.@input != 16) set .@w_point,.@w_point+1; + if (.@input != 16) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "How much profit do you"; mes "make if you buy Tights"; @@ -650,39 +650,39 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "the normal price?"; next; input .@input; - if (.@input != 8520) set .@w_point,.@w_point+1; + if (.@input != 8520) .@w_point += 1; break; case 3: mes "[Raspuchin Gregory]"; mes "12 + 23 + 34 + 45 = ?"; next; input .@input; - if (.@input != 114) set .@w_point,.@w_point+1; + if (.@input != 114) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "1000 - 58 - 214 - 416 = ?"; next; input .@input; - if (.@input != 312) set .@w_point,.@w_point+1; + if (.@input != 312) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "14 * 17 * 3 = ?"; next; input .@input; - if (.@input != 714) set .@w_point,.@w_point+1; + if (.@input != 714) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "10530 / 3 / 5 / 2 = ?"; next; input .@input; - if (.@input != 351) set .@w_point,.@w_point+1; + if (.@input != 351) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "(47 * 28) - (1376 / 4) = ?"; next; input .@input; - if (.@input != 972) set .@w_point,.@w_point+1; + if (.@input != 972) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "(2646 / 7) + (13 * 28) = ?"; next; input .@input; - if (.@input != 742) set .@w_point,.@w_point+1; + if (.@input != 742) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total cost of"; @@ -692,7 +692,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "after a 24 % discount?"; next; input .@input; - if (.@input != 798) set .@w_point,.@w_point+1; + if (.@input != 798) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total weight of"; @@ -700,14 +700,14 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "3 Caps, and 3 boots?"; next; input .@input; - if (.@input != 480) set .@w_point,.@w_point+1; + if (.@input != 480) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "What is the"; mes "total defense of"; mes "a Mirror Shield, Mr. Smile, Leather Jacket, Silk Robe, Wedding Veil, Muffler, and Eye Patch?"; next; input .@input; - if (.@input != 12) set .@w_point,.@w_point+1; + if (.@input != 12) .@w_point += 1; mes "[Raspuchin Gregory]"; mes "If you buy 4 Padded Armors"; mes "at a 24% discount and sell"; @@ -716,7 +716,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "you make from this sale?"; next; input .@input; - if (.@input != 7680) set w_point,w_point+1; + if (.@input != 7680) .@w_point += 1; } if (.@w_point == 0) { mes "[Raspuchin Gregory]"; @@ -741,7 +741,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ next; } else { - set ALCH_Q,5; + ALCH_Q = 5; mes "[Raspuchin Gregory]"; mes "Keheheh! Idiot!"; mes "Just listening to your"; @@ -773,7 +773,7 @@ alde_alche,175,107,3 script Fastidious Alchemist#am 4_M_ALCHE_B,{ mes "Now go to Darwin!"; mes "He'll teach you how to do the experiments. Just tell him that"; mes "I sent you."; - set ALCH_Q,6; + ALCH_Q = 6; changequest 2031,2032; close; } @@ -914,7 +914,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ mes "^551A8B1 Red Herb^000000,"; mes "^551A8B1 Yellow Herb^000000 and"; mes "^551A8B1 White Herb^000000."; - set ALCH_Q,7; + ALCH_Q = 7; changequest 2032,2033; next; mes "[Darwin]"; @@ -1091,7 +1091,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ mes "Go to the Union"; mes "and cast away the last"; mes "vestiges of Merchant life!!"; - set ALCH_Q,40; + ALCH_Q = 40; changequest 2033,2034; close; } @@ -1122,19 +1122,19 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ mes "Now, make some medicine"; mes "using the simple procedure"; mes "I just explained to you."; - set w_point,0; + .@w_point = 0; next; switch(select("Prepare the Medicine Bowl.:Put the Medicine Bowl on your head.:Kick the Medicine Bowl.")) { case 1: break; case 2: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "What...?"; next; break; case 3: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "No!"; next; @@ -1142,7 +1142,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ } switch(select("Put some dirt in the Medicine Bowl.:Put some Herbs in the Medicine Bowl.:Put a Harp in the Medicine Bowl.")) { case 1: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "...Eh!?"; mes "That's not"; @@ -1152,7 +1152,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ case 2: break; case 3: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "A Harp?"; mes "And how would"; @@ -1164,14 +1164,14 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ case 1: break; case 2: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "Wh-What are"; mes "you doing!?"; next; break; case 3: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "Agh...!"; mes "What do you"; @@ -1182,14 +1182,14 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ } switch(select("Spray clean water.:Drink clean water.:Pour clean water.")) { case 1: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "Huh?"; mes "What are you doing?"; next; break; case 2: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "W-wait..."; mes "Are you"; @@ -1203,7 +1203,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ case 1: break; case 2: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "Eat the Herbs?"; mes "I think you need"; @@ -1212,7 +1212,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ next; break; case 3: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "Singing and"; mes "dancing? Alchemists"; @@ -1223,7 +1223,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ } switch(select("Put noodles in and fry it.:Pour it in an empty bottle.:Hold the Medicine Bowl and drink it.")) { case 1: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "We're Alchemists,"; mes "not restaurant chefs."; @@ -1232,7 +1232,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ case 2: break; case 3: - set .@w_point,.@w_point+1; + ++.@w_point; mes "[Darwin]"; mes "Huh..."; mes "Pretty sloppy..."; @@ -1256,7 +1256,7 @@ alde_alche,13,15,7 script Studying Man#am 4_M_ALCHE_C,{ mes "[Darwin]"; mes "Good job."; mes "It came out pretty well considering it's your first time. Go ahead and keep the medicines that you've just made."; - set ALCH_Q,8; + ALCH_Q = 8; changequest 2033,2035; next; mes "[Darwin]"; @@ -1433,7 +1433,7 @@ alde_alche,79,19,5 script Experiment Expert#am 4_M_ALCHE_A,{ mes "You don't need to bring anything. Just go watch him at work and have him tell you how he makes those solutions. Got it?"; next; mes "[Van Helmont]"; - set ALCH_Q,9; + ALCH_Q = 9; changequest 2035,2036; mes "Well then, see you later."; mes "You'd better get going as"; @@ -1503,13 +1503,13 @@ alde_alche,79,19,5 script Experiment Expert#am 4_M_ALCHE_A,{ mes "necessary to make"; mes "a Counteragent?"; next; - if (select("Karvodailnirol:Detrimindexta:Alcohol") != 1) set .@w_point,.@w_point+1; + if (select("Karvodailnirol:Detrimindexta:Alcohol") != 1) .@w_point += 1; mes "[Van Helmont]"; mes "What item is not"; mes "necessary to make"; mes "a Mixture?"; next; - if (select("Karvodailnirol:Detrimindexta:Alcohol") != 2) set .@w_point,.@w_point+1; + if (select("Karvodailnirol:Detrimindexta:Alcohol") != 2) .@w_point += 1; if (.@w_point > 0) { mes "[Van Helmont]"; mes "Weren't you listening to Molgenstein at all? Maybe you"; @@ -1528,7 +1528,7 @@ alde_alche,79,19,5 script Experiment Expert#am 4_M_ALCHE_A,{ mes "Go out and find the room next"; mes "to this one and talk to Nicholas. He'll continue your training."; next; - set ALCH_Q,20; + ALCH_Q = 20; changequest 2036,2037; mes "[Van Helmont]"; mes "What are you"; @@ -1664,7 +1664,7 @@ alde_alche,101,184,4 script Master Alchemist#am 2_M_DYEINGER,{ } else if (ALCH_Q == 40) { if (JobLevel < 40) { - set ALCH_Q,0; + ALCH_Q = 0; mes "Hmm...you don't seem to be qualified yet."; mes "Remember, you must reach at least job level 40 to become an Alchemist."; close2; @@ -1698,9 +1698,9 @@ alde_alche,101,184,4 script Master Alchemist#am 2_M_DYEINGER,{ mes "have learned all of"; mes "the basics of Alchemy."; next; - set ALCH_Q,0; + ALCH_Q = 0; completequest 2040; - set .@jlevel,JobLevel; + .@jlevel = JobLevel; callfunc "Job_Change",Job_Alchemist; callfunc "F_ClearJobVar"; mes "[Vincent Carsciallo]"; @@ -1813,51 +1813,51 @@ alde_alche,145,19,1 script Chief Researcher#am 1_M_LIBRARYMASTER,{ case 1: mes "t m y a n y e o b n e g p r i"; next; - if (select("Brake:Brass:Bug:Broken:Brigan?") == 5) set .@alch_t,.@alch_t+10; + if (select("Brake:Brass:Bug:Broken:Brigan?") == 5) .@alch_t += 10; mes "o n c u t a p j l e r s v m u"; next; - if (select("vendor:storage:weapon:simple:streetshop") == 1) set .@alch_t,.@alch_t+10; + if (select("vendor:storage:weapon:simple:streetshop") == 1) .@alch_t += 10; mes "t v a r m e g p h e u b o y l"; next; - if (select("molasses:party:leader:sweets:treacle") == 2) set .@alch_t,.@alch_t+10; + if (select("molasses:party:leader:sweets:treacle") == 2) .@alch_t += 10; mes "q z a h n a i n b r d p t n c"; next; - if (select("partisan:partizan:pato:paros:pack") == 2) set .@alch_t,.@alch_t+10; + if (select("partisan:partizan:pato:paros:pack") == 2) .@alch_t += 10; break; case 2: mes "m p d i c f a r o g n k w a s"; next; - if (select("packman:sunshine:ragnarok:wonderland:frost") == 1) set .@alch_t,.@alch_t+10; + if (select("packman:sunshine:ragnarok:wonderland:frost") == 1) .@alch_t += 10; mes "g b n o p r e f a r e t a s k"; next; - if (select("purple:smoker:ragnarok:bolt:burnt wood") == 3) set .@alch_t,.@alch_t+10; + if (select("purple:smoker:ragnarok:bolt:burnt wood") == 3) .@alch_t += 10; mes "u g n i s j e k c e o g n d p"; next; - if (select("scab:kinship:donate:source:opening") == 5) set .@alch_t,.@alch_t+10; + if (select("scab:kinship:donate:source:opening") == 5) .@alch_t += 10; mes "r o e h n r o m c a i n p t t"; next; - if (select("forgemerchant:potionmerchant:dcmerchant:vendingmerchant:battlemerchant") == 2) set .@alch_t,.@alch_t+10; + if (select("forgemerchant:potionmerchant:dcmerchant:vendingmerchant:battlemerchant") == 2) .@alch_t += 10; break; case 3: mes "s m i e x b w u n e t a g l r"; next; - if (select("tiger:wolf:pumpkin:tripped:tore") == 1) set .@alch_t,.@alch_t+10; + if (select("tiger:wolf:pumpkin:tripped:tore") == 1) .@alch_t += 10; mes "n i e g b o p d s o a u w r v"; next; - if (select("bash:provoke:endure:stun:abracadabra") == 3) set .@alch_t,.@alch_t+10; + if (select("bash:provoke:endure:stun:abracadabra") == 3) .@alch_t += 10; mes "l r m g r e x t a v i n e d e"; next; - if (select("alberta:latifoliate:crimson:maple:evergreen") == 5) set .@alch_t,.@alch_t+10; + if (select("alberta:latifoliate:crimson:maple:evergreen") == 5) .@alch_t += 10; mes "r o e h n r o m c a i n p t t"; next; - if (select("forgemerchant:potionmerchant:dcmerchant:vendingmerchant:battlemerchant") == 2) set .@alch_t,.@alch_t+10; + if (select("forgemerchant:potionmerchant:dcmerchant:vendingmerchant:battlemerchant") == 2) .@alch_t += 10; break; } mes "[Nicholas Flamel]"; mes "Ah, you finished."; mes "Now, let's see..."; if (.@alch_t > 30) { - set ALCH_Q,22; + ALCH_Q = 22; mes "Excellent job!"; next; mes "[Nicholas Flamel]"; @@ -1875,7 +1875,7 @@ alde_alche,145,19,1 script Chief Researcher#am 1_M_LIBRARYMASTER,{ close; } else { - set ALCH_Q,21; + ALCH_Q = 21; mes "^666666*Gasp!*^000000 H-horrible!"; next; mes "[Nicholas Flamel]"; @@ -1913,7 +1913,7 @@ alde_alche,145,19,1 script Chief Researcher#am 1_M_LIBRARYMASTER,{ mes "Come back here to me after you"; mes "help them out. They'll need all of these items to continue their experiments."; next; - set ALCH_Q,23; + ALCH_Q = 23; changequest 2037,2038; mes "[Nicholas Flamel]"; mes "1 Mixture,"; @@ -1943,7 +1943,7 @@ alde_alche,145,19,1 script Chief Researcher#am 1_M_LIBRARYMASTER,{ close; } else if (ALCH_Q == 24) { - set ALCH_Q,40; + ALCH_Q = 40; changequest 2038,2039; mes "[Nicholas Flamel]"; mes "Ah, you're back!"; diff --git a/npc/jobs/2-2/bard.txt b/npc/jobs/2-2/bard.txt index 55b7401a1..a5a7878f8 100644 --- a/npc/jobs/2-2/bard.txt +++ b/npc/jobs/2-2/bard.txt @@ -151,7 +151,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ mes "[Lalo]"; mes "It would be nice if more people went around and sang..."; mes "Well, it's quite ok as it is now... hmmhmm."; - set BARD_Q,1; + BARD_Q = 1; setquest 3000; close2; cutin "job_bard_aiolo01",255; @@ -208,7 +208,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ mes "[Lalo]"; mes "It doesn't really matter which Flower, but try to bring one that I like."; mes "And don't just buy any random Flower, ok?"; - set BARD_Q,2; + BARD_Q = 2; changequest 3000,3001; close2; cutin "job_bard_aiolo01",255; @@ -411,9 +411,9 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ mes "There's a talking snowman in a town called Lutie."; mes "Go there and bring back a present."; next; - set BARD_Q,3; + BARD_Q = 3; changequest 3001,3002; - set xmas_npc,1; + xmas_npc = 1; mes "[Lalo]"; mes "if you become friends with ^008800Jack Frost^000000, you will receive something."; mes "And also talk to the townspeople while you're at it..."; @@ -423,7 +423,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ } else if ((BARD_Q >= 3) || (BARD_Q <= 5)) { if (BARD_Q == 3) { - if(xmas_npc > 10) { //this var is set in LUTIE.TXT + if(xmas_npc > 10) { //this var is set in lutie.txt cutin "job_bard_aiolo01",2; mes "[Lalo]"; mes "How was the trip? Did you meet a lot of people?"; @@ -445,7 +445,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ } else { cutin "job_bard_aiolo01",2; - set xmas_npc,1; + xmas_npc = 1; mes "[Lalo]"; mes "Eh, you still haven't become his friend?"; mes "Talking will not be enough."; @@ -475,7 +475,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; } if (BARD_Q != 5) { - set .@bard_s, rand(1,5); + .@bard_s = rand(1,5); if (.@bard_s == 1) { mes "^3377FFThere was a man^000000"; mes "who was said to be immortal."; @@ -486,7 +486,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "There was a man") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFThere was a man"; mes "who was said to be immortal.^000000"; @@ -497,7 +497,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "who was said to be immortal.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFThere was a man"; mes "who was said to be immortal."; @@ -508,7 +508,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "His name Jichfreid,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFThere was a man"; mes "who was said to be immortal."; @@ -519,7 +519,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Son of the hero Jichmunt.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFThere was a man"; mes "who was said to be immortal."; @@ -530,7 +530,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "The evil giant Papner,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFThere was a man"; mes "who was said to be immortal."; @@ -541,7 +541,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Turned into a dragon and ate him.") - set .@w_point,.@w_point+1; + .@w_point += 1; } else if (.@bard_s == 2) { mes "^3377FFA Merchant without money or equipment,^000000"; @@ -553,7 +553,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "A Merchant without money or equipment,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFA Merchant without money or equipment,"; mes "a Merchant that couldn't sell anything.^000000"; @@ -564,7 +564,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "a Merchant that couldn't sell anything.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFA Merchant without money or equipment,"; mes "a Merchant that couldn't sell anything."; @@ -575,7 +575,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "But he was too proud to beg.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFA Merchant without money or equipment,"; mes "a Merchant that couldn't sell anything."; @@ -586,7 +586,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "So he gathered some money selling items.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFA Merchant without money or equipment,"; mes "a Merchant that couldn't sell anything."; @@ -597,7 +597,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "At first he only sold Red Potions.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFA Merchant without money or equipment,"; mes "a Merchant that couldn't sell anything."; @@ -608,7 +608,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Some say he sold Sweet Potatoes, too.") - set .@w_point,.@w_point+1; + .@w_point += 1; } else if (.@bard_s == 3) { mes "^3377FFAll Gods never age.^000000"; @@ -620,7 +620,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "All Gods never age.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFAll Gods never age."; mes "The ever so Beautiful Goddess Eden,^000000"; @@ -631,7 +631,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "The ever so Beautiful Goddess Eden,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFAll Gods never age."; mes "The ever so Beautiful Goddess Eden,"; @@ -642,7 +642,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Beautiful and graceful Goddess Eden,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFAll Gods never age."; mes "The ever so Beautiful Goddess Eden,"; @@ -653,7 +653,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Odin's daughter-in-law and Bragi's wife.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFAll Gods never age."; mes "The ever so Beautiful Goddess Eden,"; @@ -664,7 +664,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Her sweet apples in her basket,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFAll Gods never age."; mes "The ever so Beautiful Goddess Eden,"; @@ -675,7 +675,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "All thanks to her sweet apples.") - set .@w_point,.@w_point+1; + .@w_point += 1; } else if (.@bard_s == 4) { mes "^3377FFBragi, Bragi,^000000"; @@ -687,7 +687,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Bragi, Bragi,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFBragi, Bragi,"; mes "Forever call the poets name.^000000"; @@ -698,7 +698,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Forever call the poets name.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFBragi, Bragi,"; mes "Forever call the poets name."; @@ -709,7 +709,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "My songs are his breath,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFBragi, Bragi,"; mes "Forever call the poets name."; @@ -720,7 +720,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "My mind is his will,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFBragi, Bragi,"; mes "Forever call the poets name."; @@ -731,7 +731,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "All wandering poets are his people,") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFBragi, Bragi,"; mes "Forever call the poets name."; @@ -742,7 +742,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "And all praise shall go to him.") - set .@w_point,.@w_point+1; + .@w_point += 1; } else { mes "^3377FFLouder, louder, louder.^000000"; @@ -754,7 +754,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Louder, louder, louder.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFLouder, louder, louder."; mes "Give strength to the warriors!^000000"; @@ -765,7 +765,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Give strength to the warriors!") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFLouder, louder, louder."; mes "Give strength to the warriors!"; @@ -776,7 +776,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Shake the sky and roar through the land.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFLouder, louder, louder."; mes "Give strength to the warriors!"; @@ -787,7 +787,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Make my heart pound again!") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFLouder, louder, louder."; mes "Give strength to the warriors!"; @@ -798,7 +798,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "Let the castle walls ring.") - set .@w_point,.@w_point+1; + .@w_point += 1; mes "^3377FFLouder, louder, louder."; mes "Give strength to the warriors!"; @@ -809,7 +809,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ next; input .@Song$; if (.@Song$ != "This day will never come again!") - set .@w_point,.@w_point+1; + .@w_point += 1; } if (.@w_point) { @@ -828,7 +828,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ mes "[Lalo]"; mes ".........."; next; - set BARD_Q,5; + BARD_Q = 5; mes "[Lalo]"; mes "Wonderful! Finished it in one try!"; mes "You can become a great Bard. "; @@ -841,7 +841,7 @@ comodo,226,123,5 script Wandering Bard 2_M_BARD_ORIENT,{ mes "Do you want to just change jobs now?"; mes "Or do you want a present."; next; - set .@selection,select("Just change my job please.:I'd be thankful for a present."); + .@selection = select("Just change my job please.:I'd be thankful for a present."); } if ((.@selection == 1) || (BARD_Q == 5)) { if(SkillPoint) { diff --git a/npc/jobs/2-2/crusader.txt b/npc/jobs/2-2/crusader.txt index 232e6c85e..c713194de 100644 --- a/npc/jobs/2-2/crusader.txt +++ b/npc/jobs/2-2/crusader.txt @@ -78,7 +78,7 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ next; delitem 1004, 1; delitem 1009, 1; - set CRUS_Q,4; + CRUS_Q = 4; mes "[Michael Halig]"; mes "Moorenak and others like him will test the limits of your capabilities and help you find your path. Return to me after you have completed their tests..."; close; @@ -149,7 +149,7 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ next; delitem 1004, 1; delitem 1009, 1; - set CRUS_Q,4; + CRUS_Q = 4; setquest 3009; mes "[Michael Halig]"; mes "Moorenak and others like him will test the limits of your capabilities and help you find your path. Return to me after you have completed their tests..."; @@ -163,9 +163,9 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ mes "This is my test for you. Bring me the following items and prove your determination to me."; next; mes "[Michael Halig]"; - set .@cru_m1,rand(1,3); + .@cru_m1 = rand(1,3); if(.@cru_m1 == 1) { - set CRUS_Q, 1; + CRUS_Q = 1; setquest 3006; mes "10 ^3355FF"+getitemname(957)+"^000000"; mes "10 ^3355FF"+getitemname(959)+"^000000"; @@ -174,7 +174,7 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ next; } else if(.@cru_m1 == 2) { - set CRUS_Q, 2; + CRUS_Q = 2; setquest 3007; mes "10 ^3355FF"+getitemname(932)+"^000000"; mes "10 ^3355FF"+getitemname(1043)+"^000000"; @@ -183,7 +183,7 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ next; } else { - set CRUS_Q, 3; + CRUS_Q = 3; setquest 3008; mes "10 ^3355FF"+getitemname(958)+"^000000"; mes "10 ^3355FF"+getitemname(930)+"^000000"; @@ -214,22 +214,22 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ next; switch(CRUS_Q) { case 1: - set .@item1, 957; - set .@item2, 959; - set .@item3, 1099; - set .@item4, 901; + .@item1 = 957; + .@item2 = 959; + .@item3 = 1099; + .@item4 = 901; break; case 2: - set .@item1, 932; - set .@item2, 1043; - set .@item3, 1098; - set .@item4, 1094; + .@item1 = 932; + .@item2 = 1043; + .@item3 = 1098; + .@item4 = 1094; break; case 3: - set .@item1, 958; - set .@item2, 930; - set .@item3, 1041; - set .@item4, 1062; + .@item1 = 958; + .@item2 = 930; + .@item3 = 1041; + .@item4 = 1062; break; } if (countitem(.@item1) > 9 && countitem(.@item2) > 9 && countitem(.@item3) > 9 && countitem(.@item4) > 9) { @@ -244,7 +244,7 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ delitem .@item2, 10; delitem .@item3, 10; delitem .@item4, 10; - set CRUS_Q, 4; + CRUS_Q = 4; if (questprogress(3006)) { changequest 3006,3009; } @@ -281,7 +281,7 @@ prt_castle,45,169,5 script Senior Crusader 4_M_CRU_OLD,{ mes "[Michael Halig]"; mes "Together, let us ready ourselves and be victorious over evil and tyranny!"; next; - set .@Joblevel,JobLevel; + .@Joblevel = JobLevel; completequest 3015; callfunc "Job_Change",Job_Crusader; callfunc "F_ClearJobVar"; //clears all job variables for the current player @@ -377,7 +377,7 @@ prt_castle,164,32,1 script Man in Anguish 4_M_JOB_KNIGHT1,{ mes "But..."; mes "You must keep one thing in mind. Under no condition are you allowed to kill the monsters."; next; - set CRUS_Q,5; + CRUS_Q = 5; changequest 3009,3010; mes "[Murnak Mijoul]"; mes "Well then..."; @@ -419,7 +419,7 @@ prt_castle,164,32,1 script Man in Anguish 4_M_JOB_KNIGHT1,{ mes "[Murnak Mijoul]"; mes "No matter what you do, do not kill any of the monsters. This time, think carefully before you draw your sword."; next; - set CRUS_Q,5; + CRUS_Q = 5; mes "[Murnak Mijoul]"; mes "Well then..."; mes "Good luck."; @@ -526,191 +526,191 @@ prt_church,95,127,3 script Crusader 4_F_CRU,{ mes "choose the correct answer."; next; } - set .@cru_m,rand(1,3); + .@cru_m = rand(1,3); if (.@cru_m == 1) { mes "[Gabriel Valentine]"; mes "1. Which attribute is the most effective in atttacking the Undead?"; next; if (select("Neutral:Earth:Undead:Holy") == 4) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "2. If the monster is a Level 2 Undead, how much more damage does a Holy attack do compared to Fire?"; next; if (select("25 %:50 %:75 %:100 %") == 1) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "3. What item can you not get from an Evil Druid?"; next; if (select("Monk Hat:Yggdrasil leaf:White Herb:Amulet ") == 1) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "4. Which Undead monster"; mes "has the highest HP?"; next; if (select("Ghoul:Skeleton Prisoner:Wraith:Zombie Prisoner") == 4) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "5. Which of the following monsters is a different size than the others?"; next; if (select("Wraith:Khalitzburg:Drake:Evil Druid") == 3) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "6. Which card grants you tolerance to Undead property attacks?"; next; if (select("Orc Skeleton Card:Orc Zombie Card:Ghoul Card:Skel Worker Card") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "7. What was the relationship between Munak and Bongun before they passed away?"; next; if (select("Big Brother and Little Sister:Childhood friends in the same village:Stepbrother and sister:Complete strangers") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "8. Which of the following monsters is not aggressive?"; next; if (select("Soldier Skeleton:Orc Skeleton:Skeleton:Skel Worker") == 3) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "9. What is the name of the shield in which a Munak Card has been inserted?"; next; if (select("Atomic Shield:Amulet Shield:Hypnotic Shield:Homeroth Shield") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "10. Which of the following monsters does not drop Memento?"; next; if (select("Munak:Ghoul:Mummy:Soldier Skeleton") == 1) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; } else if (.@cru_m == 2) { mes "[Gabriel Valentine]"; mes "1. Which of the following monsters is a different attribute than the others?"; next; if (select("Carat:Wind Ghost:Isis:Wanderer") == 3) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "2. Which sword is effective in attacking Demon monsters?"; next; if (select("Decussate Tsurugi:Hollowed Tsurugi:Damned Tsurugi:Drowsy Tsurugi") == 1) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "3. Which item is NOT dropped by Dokebi?"; next; if (select("Rough Elunium:Golden Hammer:Sword Mace:Mighty Staff") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "4. Which Demon monster has the most HP?"; next; if (select("Giearth:Magnolia:Dokebi:Marionette") == 4) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "5. Which Demon monster is a different size than the others?"; next; if (select("Ghostring:Whisper:Deviruchi:Baphomet Junior") == 1) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "6. Which shield reduces damage inflicted by Demon monsters?"; next; if (select("Satanic Shield:Shield from Hell:Amulet Shield:Excellent Shield") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "7. Which attribute is the most effective on the Wind Ghost?"; next; if (select("Water:Earth:Fire:Wind") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "8. Which monster is different from the other Demon monsters?"; next; if (select("Sohee:Isis:Dokebi:Whisper") == 4) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "9. What effect does the Marionette Card have?"; next; if (select("Increase defense against Shadow attacks by 30 %:Increase defense against poison attacks by 30 %:Increase defense against Ghost attacks by 30 %:Increase defense against Neutral attacks by 30 %") == 3) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "10. Which of the following is an effective way to react when encountering a demon monster?"; next; if (select("Scream, 'Evil one, go away!':Offer your soul and get a deal.:Put Holy Water on a weapon and attack.:Put on a Deviruchi hat.") == 3) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; } else { mes "[Gabriel Valentine]"; mes "1. What level of 'Divine Protection' do you need to learn 'Demon Bane?'"; next; if (select("Level 1:Level 2:Level 3:Level 4") == 3) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "2. If your INT is 30, including INT bonuses from quipment, at level 55, how much HP does Level 5 Heal recover?"; next; if (select("396:440:484:528") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "3. With Level 7 Divine Protection, by how much is your defense against the Undead increased?"; next; if (select("21:22:23:24") == 1) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "4. Which of the following spears can attack Nightmare, which is endowed with the Ghost attribute?"; next; if (select("Lance:Bill Guisarme:Cresent scythe:Zephyrus") == 4) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "5. What level of 'Heal' do you need to learn 'Cure?'"; next; if (select("Level 1:Level 2:Level 3:Level 4") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "6. What is the attack speed when Level 3 Cavalier Mastery is learned?"; next; if (select("70 % of normal speed:80 % of normal speed:90 % of normal speed:100 % of normal speed") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "7. Which of the following is not correct of the Demon Bane skill?"; next; if (select("Increase attack on Undead:Only Acolytes can learn the skill:When mastered, + 30 increase:Passive Skill") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "8. How much SP does Level 7 Heal use?"; next; if (select("30:31:33:35") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "9. What status cannot be"; mes "cured with the Cure skill?"; next; if (select("Curse:Silence:Chaos:Blind") == 1) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; mes "[Gabriel Valentine]"; mes "10. What best describes a Crusader?"; next; if (select("One preparing for matrimony.:One preparing for the Holy War.:One preparing consummation.:One preparing potions.") == 2) - set .@cru_t,.@cru_t+10; + .@cru_t += 10; } mes "[Gabriel Valentine]"; @@ -722,7 +722,7 @@ prt_church,95,127,3 script Crusader 4_F_CRU,{ mes " " + strcharinfo(0) + "'s score"; mes "is " + .@cru_t + " points..."; if(.@cru_t == 100) { - set CRUS_Q, 8; + CRUS_Q = 8; changequest 3011,3013; mes "Superb! Now, it's time for"; mes "you to take the next test."; @@ -735,7 +735,7 @@ prt_church,95,127,3 script Crusader 4_F_CRU,{ close; } else if(.@cru_t == 90) { - set CRUS_Q, 8; + CRUS_Q = 8; changequest 3011,3013; mes "Well done~ Now, it's time for"; mes "you to take the next test."; @@ -748,7 +748,7 @@ prt_church,95,127,3 script Crusader 4_F_CRU,{ close; } else if (.@cru_t == 80 && CRUS_Q == 7) { - set CRUS_Q,8; + CRUS_Q = 8; changequest 3011,3013; mes "Seems like you prepared a lot so I'll let you pass this time."; mes "Hurry now and go take the next test."; @@ -758,7 +758,7 @@ prt_church,95,127,3 script Crusader 4_F_CRU,{ mes "I will inform him to prepare the next test."; close; } - set CRUS_Q,7; + CRUS_Q = 7; if (questprogress(3011)) { changequest 3011,3012; } @@ -1204,7 +1204,7 @@ OnDead: job_cru,98,105,4 script Summoner#cr5 WARPNPC,3,3,{ OnTouch: - set CRUS_Q,6; + CRUS_Q = 6; changequest 3010,3011; warp "prt_castle",164,28; end; @@ -1271,7 +1271,7 @@ OnInit: end; OnStart: - set .MyMonsterCount,0; + .MyMonsterCount = 0; enablenpc "Monster Summon#cr0"; donpcevent "Monster Summon#cr1::OnStart"; donpcevent "Monster Summon#cr2::OnStart"; @@ -1301,9 +1301,9 @@ OnMonster3: end; OnDead: - set .MyMonsterCount,.MyMonsterCount+1; + ++.MyMonsterCount; if (.MyMonsterCount >= 10) { - set CRUS_Q,10; + CRUS_Q = 10; changequest 3014,3015; } end; diff --git a/npc/jobs/2-2/dancer.txt b/npc/jobs/2-2/dancer.txt index a34bf0540..36e84321a 100644 --- a/npc/jobs/2-2/dancer.txt +++ b/npc/jobs/2-2/dancer.txt @@ -176,7 +176,7 @@ job_duncer,43,93,4 script Aile#da 4_F_07,{ mes "Wow! What a pretty name! Just a moment, I have to show this to the director, so come back in a little bit, okay?"; close2; cutin "",255; - set DANC_Q,1; + DANC_Q = 1; setquest 7000; end; } @@ -230,9 +230,9 @@ job_duncer,43,93,4 script Aile#da 4_F_07,{ mes "[Aile]"; mes "We're short on some supplies, but you'll be using them for yourself anyway. Just think of it as part of the tuition, so don't worry too much."; next; - set .@item_nd,rand(1,10); + .@item_nd = rand(1,10); if (.@item_nd > 0 && .@item_nd < 3) { - set DANC_Q,2; + DANC_Q = 2; changequest 7000,7001; mes "[Aile]"; mes "First, there's the tuition fee of ^CD688910,000 Zeny^000000. Then, you'll about ^CD688920 Sticky Mucus^000000 for shoe polish."; @@ -249,7 +249,7 @@ job_duncer,43,93,4 script Aile#da 4_F_07,{ mes "^CD68891 Shoes^000000."; } else if (.@item_nd == 4) { - set DANC_Q,3; + DANC_Q = 3; changequest 7000,7002; mes "[Aile]"; mes "First, there's the tuition fee of ^CD688910,000 Zeny^000000. Then, bring ^CD68895 Earthworm Peelings^000000 for polishing the floor and, of course, a pair of ^CD6889Boots^000000."; @@ -261,7 +261,7 @@ job_duncer,43,93,4 script Aile#da 4_F_07,{ mes "^CD68891 Boots^000000."; } else { - set DANC_Q,4; + DANC_Q = 4; changequest 7000,7003; mes "[Aile]"; mes "First, there's the tuition fee of ^CD688910,000 Zeny^000000. Then, bring ^CD68892 Clam Shells^000000 for your costume, ^CD68895 Yellow Potions^000000 and ^CD688920 Jellopy^000000 to treat foot injuries."; @@ -299,8 +299,8 @@ job_duncer,43,93,4 script Aile#da 4_F_07,{ setarray .@count[0], 2,5,20,10,1; break; } - set .@size, getarraysize(.@item); - for( set .@i, 0; .@i < .@size; set .@i,.@i+1 ) { + .@size = getarraysize(.@item); + for (.@i = 0; .@i < .@size; ++.@i) { if( countitem(.@item[.@i]) < .@count[.@i] ) { break; } @@ -319,7 +319,7 @@ job_duncer,43,93,4 script Aile#da 4_F_07,{ Zeny -= 10000; mes "[Aile]"; mes "Next, go to ^CD6889Bijou^000000, who is in charge of the interviewing process. She will have a couple of things she'll need to ask you."; - set DANC_Q,5; + DANC_Q = 5; if (questprogress(7001)) { changequest 7001,7004; } @@ -504,7 +504,7 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "increases which of the following?"; next; if (select("Intelligence (INT):Dexterity (DEX):Vitality (VIT):Critical Attack Rate") == 4) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "2. Of the following,"; mes "which can you not consider"; @@ -512,10 +512,10 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ next; switch(select("Tango:Tap Dance:HIP-HOP:Hip Shaker:Lightning Bolt")) { default: - set .@da_score,.@da_score-10; + .@da_score -= 10; break; case 5: - set .@da_score,.@da_score+10; + .@da_score += 10; break; } mes "[Bijou]"; @@ -523,18 +523,18 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "best describes a Dancer?"; next; if (select("Person who yells.:A loud person.:A person who dances.:A person who sings.") == 3) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "4. Which of the following"; mes "cannot be associated with Comodo?"; next; if (select("Beach city.:Dancer Job Change.:Always dark like the night.:Dungeons in 3 directions.:A lot of Thieves.") == 5) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "5. Before Comodo, what is the region name of the region NorthEast of Pharoah's Lighthouse Island?"; next; if (select("Elmeth Plateau:Comuko Beach:Comodo Beach:Ginai Swamp") == 3) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "6. Who is the most"; mes "beautiful dancer?"; @@ -548,11 +548,11 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "Didn't you see the"; mes "other choices?!"; mes "Minus points...!"; - set .@da_score,.@da_score-10; + .@da_score -= 10; next; break; case 2: - set .@da_score,.@da_score+10; + .@da_score += 10; break; default: break; @@ -563,26 +563,26 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "with a Dancer?"; next; if (select("Assassin:Bard:Alchemist:Sage") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "8. Which of the following"; mes "is not a specialty of Comodo?"; next; if (select("Berserk Potion:Clam Shell:Crab Shell:Shining Stone") == 4) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "9. Who is the manager"; mes "of the Comodo Casino?"; next; if (select("Yoo:Moo:Hoon:Roul") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "10. Who accepts the"; mes "Dancer job change"; mes "applications?"; next; if (select("Bijou:Aile:Athena:Sonotora") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; break; case 2: mes "[Bijou]"; @@ -591,14 +591,14 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "^CD6889Mental Sensing^000000?"; next; if (select("Instant monster death.:Doubles damage.:Increases experience.:Increases attack speed.") == 3) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "2. Which is considered"; mes "bad etiquette on the dance"; mes "floor after a dance?"; next; if (select("Thank your partner.:Praise your partner's dance.:Ask to dance a different dance.:Criticize your partner.") == 4) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "3. Which is not an"; mes "appropriate response"; @@ -607,27 +607,27 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "are dancing together?"; next; if (select("Smile at each other and continue dancing.:Point out the mistake.:Ignore it if the dancer does not realize it.:Give them a smile.") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "4. In which town"; mes "can you change jobs"; mes "to a Dancer?"; next; if (select("Cocomo:Sandarman:Comudo:Comodo") == 4) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "5. How many dungeons"; mes "are directly connected"; mes "to Comodo?"; next; if (select("1:2:3:4") == 3) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "6. Which of the following"; mes "is not a Cute Pet monster?"; next; if (select("Isis:Argiope:Dokebi:Deviruchi") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "7. Who is the most"; mes "graceful dancer?"; @@ -641,11 +641,11 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "Didn't you see the"; mes "other choices?!"; mes "Minus points...!"; - set .@da_score,.@da_score-10; + .@da_score -= 10; next; break; case 2: - set .@da_score,.@da_score+10; + .@da_score += 10; break; default: break; @@ -656,18 +656,18 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "Kafra in Comodo?"; next; if (select("Kafra Headquarters:Kafra West Headquarters:Kafra Service:Kafra Headquarters: Western Branch") == 4) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[......]"; mes "9. What is my name?"; next; if (select("Borjuis:Bourgeois:Bijou:Beruberu") == 3) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "10. What is the"; mes "effect of ^CD6889Lullaby^000000?"; next; if (select("Casts the Blind effect in the area.:Casts the Sleep effect on the area.:Puts a night effect on the area.:Freezes the area.") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; break; case 3: mes "[Bijou]"; @@ -679,7 +679,7 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ break; case 2: case 3: - set .@da_score,.@da_score+10; + .@da_score += 10; break; } mes "[Bijou]"; @@ -690,19 +690,19 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "ground to create a rhythm?"; next; if (select("Tap Dance:Improve Concentration:Tango:Double Strafing") == 1) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "3. Which of the following"; mes "is not a characteristic of a Dancer?"; next; if (select("Uses Dance skills. :Attacks from a distance.:Uses Whips.:Uses Two-handed swords.") == 4) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "4. Which town has"; mes "the most Dancers?"; next; if (select("Al De Baran:Juno:Morroc:Comodo") == 4) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "5. Of the following,"; mes "who dances most beautifully?"; @@ -716,11 +716,11 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "Didn't you see the"; mes "other choices?!"; mes "Minus points...!"; - set .@da_score,.@da_score-10; + .@da_score -= 10; next; break; case 2: - set .@da_score,.@da_score+10; + .@da_score += 10; break; default: break; @@ -731,32 +731,32 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "job classes?"; next; if (select("Health:Acting :Dancing :Magic ") == 3) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "7. Who is the manager"; mes "of the Comodo Casino?"; next; if (select("Ryu:Moo:Roul:Hoon") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "8. What item cannot"; mes "be equipped by a Dancer?"; next; if (select("Kitty Band :Two-handed Sword:Sandals:Earring") == 2) - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "9. Do you think you"; mes "can say this quiz is"; mes "frustrating and annoying?"; next; select("Yes:No"); - set .@da_score,.@da_score+10; + .@da_score += 10; mes "[Bijou]"; mes "10. Which of the following"; mes "is not a Jazz musician?"; next; if (select("Art Blakey:Billie Holiday :Louis Armstrong :Bud Powell :Elder Willow ") == 5) - set .@da_score,.@da_score+10; + .@da_score += 10; } mes "[Bijou]"; mes "Good job~"; @@ -769,7 +769,7 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "Your score is"; mes "" + .@da_score + " points..."; if (.@da_score == 100) { - set DANC_Q,7; + DANC_Q = 7; mes "Very well done!"; mes "A perfect score!"; next; @@ -782,12 +782,12 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ close; } else if (.@da_score > 70) { - set DANC_Q,7; + DANC_Q = 7; mes "It wasn't perfect, but I'll let you pass."; close; } else { - set DANC_Q,6; + DANC_Q = 6; mes "You.. You failed!"; next; mes "[Bijou]"; @@ -831,7 +831,7 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "Well then~"; mes "Good luck...!!"; changequest 7004,7005; - set DANC_Q,8; + DANC_Q = 8; close2; warp "job_duncer",105,109; end; @@ -868,7 +868,7 @@ job_duncer,95,93,4 script Bijou#da 4W_F_01,{ mes "[Bijou]"; mes "With the blessing of our goddess, you shall be reborn as a Dancer. From now on, no one will leave your presense without a smile~"; next; - set .@jlevel,JobLevel; + .@jlevel = JobLevel; mes "[Bijou]"; completequest 7006; callfunc "Job_Change",Job_Dancer; @@ -1236,7 +1236,7 @@ OnTimer89000: job_duncer,69,110,0 script dance#return -1,1,4,{ OnTouch: mapannounce "job_duncer","Good! Well done! Go back to Bijou!",bc_map; - set DANC_Q,9; + DANC_Q = 9; changequest 7005,7006; warp "comodo",188,162; end; @@ -1255,7 +1255,7 @@ OnEnable: job_duncer,66,110,0 script dance#return#2 -1,1,1,{ OnTouch: - set DANC_Q,9; + DANC_Q = 9; warp "comodo",188,162; end; @@ -1271,7 +1271,7 @@ OnEnable: job_duncer,72,110,0 script dance#return#3 -1,1,1,{ OnTouch: - set DANC_Q,9; + DANC_Q = 9; warp "comodo",188,162; end; @@ -1292,7 +1292,7 @@ OnEnable: OnTouch: donpcevent "Backdancer#1::OnOmg"; mapannounce "job_duncer"," " + strcharinfo(0) + ", you lack rhythm... Your timing was too late!",bc_map; - set DANC_Q,8; + DANC_Q = 8; donpcevent "Bijou#dance_timer::OnDisable"; donpcevent "Waiting Room#dance::OnEnable"; warp "comodo",188,162; diff --git a/npc/jobs/2-2/monk.txt b/npc/jobs/2-2/monk.txt index 90fccf68c..d3bd8b329 100644 --- a/npc/jobs/2-2/monk.txt +++ b/npc/jobs/2-2/monk.txt @@ -67,7 +67,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "We monks live our lives for spiritual enlightenment."; mes "We improve our bodies as well as our minds to reach true inner peace."; mes "May you find your inner peace as well."; - set MONK_Q,1; + MONK_Q = 1; close; case 2: if (BaseJob == Job_Acolyte && JobLevel > 39) { @@ -75,7 +75,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "Hmm you seem as though you have been training for this..."; mes "That is good. Go see our sensei Moohae. Speak with him."; mes "He will help you start your training."; - set MONK_Q,2; + MONK_Q = 2; setquest 3016; close; } @@ -94,7 +94,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "I hope that you will soon join us on our"; mes "path of inner peace and enlightenment."; mes "I'll be waiting here for you."; - set MONK_Q,1; + MONK_Q = 1; close; } else { @@ -114,7 +114,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "when observing our brothers in their"; mes "pursuit of spiritual enlightenment."; mes "I hope you reach it too."; - set MONK_Q,1; + MONK_Q = 1; close; } } @@ -130,7 +130,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "I hope that your experience here with"; mes "our brothers has helped you become one"; mes "step closer to true enlightenment."; - set MONK_Q,1; + MONK_Q = 1; close; case 2: if (BaseJob == Job_Acolyte && JobLevel > 39) { @@ -138,7 +138,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "Hmm you seem as though you have been training for this..."; mes "That is good. Go see our sensei Moohae. Speak with him."; mes "He will help you start your training."; - set MONK_Q,2; + MONK_Q = 2; setquest 3016; close; } @@ -157,7 +157,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "I hope that you will soon join us in our"; mes "path to inner peace and enlightenment."; mes "I'll be waiting here for you."; - set MONK_Q,1; + MONK_Q = 1; close; } else { @@ -177,7 +177,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "when observing our brothers in their"; mes "pursuit of spiritual enlightenment."; mes "I hope you reach it too."; - set MONK_Q,1; + MONK_Q = 1; close; } } @@ -213,7 +213,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "We monks live our lives for God and spiritual enlightenment."; mes "We improve our bodies as well as our minds to reach true inner peace."; mes "May you find your inner peace as well."; - set MONK_Q,1; + MONK_Q = 1; close; case 2: if (BaseJob == Job_Acolyte && JobLevel > 39) { @@ -221,7 +221,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "Hmm you seem as though you have been training for this..."; mes "That is good. Go see our sensei Moohae, speak with him"; mes "and he will help you start new training."; - set MONK_Q,2; + MONK_Q = 2; setquest 3016; close; } @@ -240,7 +240,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "I hope that you will soon join us in our"; mes "path to inner peace and enlightenment."; mes "I'll be waiting here for you."; - set MONK_Q,1; + MONK_Q = 1; close; } else { @@ -260,7 +260,7 @@ prt_monk,59,247,1 script Guarding Monk#mk 2_M_PHARMACIST,6,2,{ mes "when observing our brothers in their"; mes "pursuit of spiritual enlightenment."; mes "I hope you reach it too."; - set MONK_Q,1; + MONK_Q = 1; close; } } @@ -391,7 +391,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes .@items[3]+" "+getitemname(.@items[2])+","; mes .@items[5]+" "+getitemname(.@items[4])+"."; mes "Find these items and return to me."; - set MONK_Q,.@items[6]; + MONK_Q = .@items[6]; next; mes "[Sensei Moohae]"; switch (.@items[6]) { @@ -418,7 +418,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "Well done, you found all the items."; mes "I will tell this to the elders."; - set MONK_Q,10; + MONK_Q = 10; changequest 3017,3024; delitem 938,5; //Sticky_Mucus delitem 1055,10; //Earthworm_Peeling @@ -449,7 +449,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "Very good, you found all the items."; mes "I will tell this to the elders."; - set MONK_Q,10; + MONK_Q = 10; changequest 3018,3024; delitem 942,20; //Yoyo_Tail delitem 1002,5; //Iron_Ore @@ -480,7 +480,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "See, that wasn't so bad you real found all the items."; mes "I will tell this to the elders."; - set MONK_Q,10; + MONK_Q = 10; changequest 3019,3024; delitem 905,30; //Stem delitem 909,5; //Jellopy @@ -511,7 +511,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "Impressive, you really found all the items."; mes "I will tell this to the elders."; - set MONK_Q,10; + MONK_Q = 10; changequest 3020,3024; delitem 943,5; //Solid_Shell delitem 935,20; //Shell @@ -542,7 +542,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "Very nice, you found all the items."; mes "I will tell this to the elders."; - set MONK_Q,10; + MONK_Q = 10; changequest 3021,3024; delitem 7053,5; //Cyfar delitem 509,10; //White_Herb @@ -573,7 +573,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "Excellent, all the items I asked for."; mes "I will tell this to the elders."; - set MONK_Q,10; + MONK_Q = 10; changequest 3022,3024; delitem 913,10; //Tooth_Of_Bat delitem 948,5; //Bear's_Foot @@ -604,7 +604,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "Wow, you found all the items!!"; mes "I will tell this to the elders."; - set MONK_Q,10; + MONK_Q = 10; changequest 3023,3024; delitem 1027,5; //Porcupine_Spike delitem 1025,20; //Spiderweb @@ -839,7 +839,7 @@ monk_in,99,58,1 script Sensei Moohae#mk 1_M_PASTOR,{ mes "[Sensei Moohae]"; mes "....and see life through the eyes of a monk."; next; - set .@jlevel,JobLevel; + .@jlevel = JobLevel; completequest 3032; callfunc "Job_Change",Job_Monk; callfunc "F_ClearJobVar"; @@ -943,9 +943,9 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ next; } mes "[Touha]"; - set .@rand,rand(1,3); + .@rand = rand(1,3); if ((.@rand == 1) || (MONK_Q == 11)) { - set MONK_Q,11; + MONK_Q = 11; mes "I seek the path"; next; mes "[Touha]"; @@ -976,7 +976,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ mes "et Spiritus Sancti."; } else if ((.@rand == 2) || (MONK_Q == 12)) { - set MONK_Q,12; + MONK_Q = 12; mes "I commit myself to"; next; mes "[Touha]"; @@ -1007,7 +1007,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ mes "et Spiritus Sancti."; } else if ((.@rand == 3) || (MONK_Q == 13)) { - set MONK_Q,13; + MONK_Q = 13; mes "And shepherds we shall be,"; next; mes "[Touha]"; @@ -1071,7 +1071,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ mes "to what we believe"; break; case 7: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "[" + strcharinfo(0) + "]"; mes "I seek the path"; break; @@ -1094,7 +1094,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 3: mes "I seek the path"; break; case 4: mes "shall hold true"; break; case 5: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "of enlightenment."; break; case 6: mes "and will help protect others"; break; @@ -1106,7 +1106,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ switch(select("to what we believe:We monks:I seek the path:shall hold true:of enlightenment.:we learn through our lives.:In nomine Patris, et Filii:and will help protect others:through the teachings:et Spiritus Sancti.")) { case 1: mes "to what we believe"; break; case 2: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "We monks"; break; case 3: mes "I seek the path"; break; @@ -1120,7 +1120,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ } switch(select("shall hold true:I seek the path:We monks:In nomine Patris, et Filii:of enlightenment.:et Spiritus Sancti.:to what we believe:we learn through our lives.:and will help protect others:through the teachings")) { case 1: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "shall hold true"; break; case 2: mes "I seek the path"; break; @@ -1144,7 +1144,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 7: mes "we learn through our lives."; break; case 8: mes "In nomine Patris, et Filii"; break; case 9: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "to what we believe"; break; case 10: mes "et Spiritus Sancti."; break; @@ -1153,7 +1153,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 1: mes "I seek the path"; break; case 2: mes "through the teachings"; break; case 3: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "and will help protect others"; break; case 4: mes "of enlightenment."; break; @@ -1175,13 +1175,13 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 8: mes "shall hold true"; break; case 9: mes "and will help protect others"; break; case 10: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "through the teachings"; break; } switch(select("we learn through our lives.:In nomine Patris, et Filii:through the teachings:I seek the path:We monks:shall hold true:to what we believe:and will help protect others:of enlightenment.:et Spiritus Sancti.")) { case 1: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "we learn through our lives."; break; case 2: mes "In nomine Patris, et Filii"; break; @@ -1205,7 +1205,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 8: mes "through the teachings"; break; case 9: mes "we learn through our lives."; break; case 10: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "In nomine Patris, et Filii"; break; } @@ -1220,7 +1220,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 8: mes "we learn through our lives."; break; case 9: mes "In nomine Patris, et Filii"; break; case 10: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "et Spiritus Sancti."; break; } @@ -1241,7 +1241,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ break; case 4: mes "[" + strcharinfo(0) + "]"; - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "I commit myself to"; break; case 5: @@ -1279,14 +1279,14 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 7: mes "et Spiritus Sancti."; break; case 8: mes "I commit myself to"; break; case 9: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "veritas and aequitas."; break; case 10: mes "In nomine Patris, et Filii"; break; } switch(select("I will follow my path:veritas and aequitas.:I commit myself to:et Spiritus Sancti.:Evil shall never be:to enlightenment and purity.:In nomine Patris, et Filii:I will protect my:brothers with my life.:victorious while I breathe.")) { case 1: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "I will follow my path"; break; case 2: mes "veritas and aequitas."; break; @@ -1306,7 +1306,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 4: mes "I will protect my"; break; case 5: mes "victorious while I breathe."; break; case 6: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "to enlightenment and purity."; break; case 7: mes "brothers with my life."; break; @@ -1325,7 +1325,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 8: mes "I will follow my path"; break; case 9: mes "veritas and aequitas."; break; case 10: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "I will protect my"; break; } @@ -1335,7 +1335,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 3: mes "veritas and aequitas."; break; case 4: mes "I commit myself to"; break; case 5: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "brothers with my life."; break; case 6: mes "I will protect my"; break; @@ -1347,7 +1347,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ switch(select("veritas and aequitas.:Evil shall never be:brothers with my life.:victorious while I breathe.:I will follow my path:to enlightenment and purity.:I will protect my:In nomine Patris, et Filii:et Spiritus Sancti.:I commit myself to")) { case 1: mes "veritas and aequitas."; break; case 2: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "Evil shall never be"; break; case 3: mes "brothers with my life."; break; @@ -1361,7 +1361,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ } switch(select("victorious while I breathe.:to enlightenment and purity.:I will protect my:veritas and aequitas.:brothers with my life.:I will follow my path:Evil shall never be:In nomine Patris, et Filii:I commit myself to:et Spiritus Sancti.")) { case 1: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "victorious while I breathe."; break; case 2: mes "to enlightenment and purity."; break; @@ -1383,7 +1383,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 6: mes "brothers with my life."; break; case 7: mes "Evil shall never be"; break; case 8: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "In nomine Patris, et Filii"; break; case 9: mes "victorious while I breathe."; break; @@ -1400,7 +1400,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 8: mes "victorious while I breathe."; break; case 9: mes "In nomine Patris, et Filii"; break; case 10: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "et Spiritus Sancti."; break; } @@ -1413,7 +1413,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ break; case 2: mes "[" + strcharinfo(0) + "]"; - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "And shepherds we shall be,"; break; case 3: @@ -1458,7 +1458,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 6: mes "Power hath descended forth"; break; case 7: mes "And shepherds we shall be,"; break; case 8: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "for thee my lord for thee."; break; case 9: mes "from the hand"; break; @@ -1468,7 +1468,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 1: mes "And shepherds we shall be,"; break; case 2: mes "for thee my lord for thee."; break; case 3: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "Power hath descended forth"; break; case 4: mes "from the hand"; break; @@ -1485,7 +1485,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 3: mes "Power hath descended forth"; break; case 4: mes "so our feet may swiftly carry"; break; case 5: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "from the hand"; break; case 6: mes "flow a river forth to thee and"; break; @@ -1499,7 +1499,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 2: mes "for thee my lord for thee."; break; case 3: mes "Power hath descended forth"; break; case 4: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "so our feet may swiftly carry"; break; case 5: mes "from the hand"; break; @@ -1517,7 +1517,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 5: mes "so our feet may swiftly carry"; break; case 6: mes "flow a river forth to thee and"; break; case 7: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "out thy command. And we shall"; break; case 8: mes "teeming with souls shall it ever be"; break; @@ -1528,7 +1528,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 1: mes "for thee my lord for thee."; break; case 2: mes "teeming with souls shall it ever be"; break; case 3: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "flow a river forth to thee and"; break; case 4: mes "In nomine Patris, et Filii"; break; @@ -1541,7 +1541,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ } switch(select("teeming with souls shall it ever be:In nomine Patris, et Filii:And shepherds we shall be,:for thee my lord for thee.:Power hath descended forth:from the hand:so our feet may swiftly carry:out thy command. And we shall:flow a river forth to thee and:et Spiritus Sancti.")) { case 1: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "teeming with souls shall it ever be"; break; case 2: mes "In nomine Patris, et Filii"; break; @@ -1559,7 +1559,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 2: mes "for thee my lord for thee."; break; case 3: mes "And shepherds we shall be,"; break; case 4: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "In nomine Patris, et Filii"; break; case 5: mes "so our feet may swiftly carry"; break; @@ -1580,7 +1580,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ case 8: mes "teeming with souls shall it ever be"; break; case 9: mes "In nomine Patris, et Filii"; break; case 10: - set .@monk_t,.@monk_t+10; + .@monk_t += 10; mes "et Spiritus Sancti."; break; } @@ -1593,7 +1593,7 @@ prt_monk,251,255,1 script Touha#mk 1_F_PRIEST,{ mes "Hmm..."; next; if (.@monk_t > 90) { - set MONK_Q,14; + MONK_Q = 14; changequest 3025,3026; mes "[Touha]"; mes "...well done, that was perfect. You pay attention well..."; @@ -1774,14 +1774,14 @@ prt_monk,57,179,1 script Boohae#mk 4_M_MINISTER,{ mes "Choose which one you want to do..."; next; if (select("Gathering mushrooms:Marathon") == 1) { - set MONK_Q,15; + MONK_Q = 15; changequest 3026,3027; mes "[Boohae]"; mes "Hmm....gathering mushrooms. So you want to test your tolerance huh?"; mes "Go prepare and come back later when you're ready."; close; } - set MONK_Q,16; + MONK_Q = 16; changequest 3026,3028; mes "[Boohae]"; mes "Good choice. Forcing your physical limits to their boundaries and grants a higher amount of self control."; @@ -1954,7 +1954,7 @@ monk_test,386,388,4 script Apprentice Monk#mk 4_M_MINISTER,{ mes "" + strcharinfo(0) + "...q.q..q. .quit! ...the marathon!! Y...you do not have what it takes to be a m... monk!"; mapannounce "monk_test","" + strcharinfo(0) + "...q.q..q. .quit! ...the marathon!! Y...you do not have what it takes to be a m... monk!",bc_map; close2; - set MONK_Q,15; + MONK_Q = 15; changequest 3028,3027; warp "prt_monk",194,168; end; @@ -1968,12 +1968,12 @@ monk_test,386,388,4 script Apprentice Monk#mk 4_M_MINISTER,{ monk_test,387,350,0 script Supervisor#race_monk WARPNPC,2,2,{ OnTouch: if (MONK_Q >= 15 && MONK_Q <= 23) { - set MONK_Q,MONK_Q+1; + MONK_Q += 1; warp "monk_test",385,388; end; } else if (MONK_Q == 24) { - set MONK_Q,25; + MONK_Q = 25; changequest 3028,3029; mapannounce "monk_test","Now! This is the last lap!! If you make it you need to go visit Tomoon for the next test!",bc_map; warp "monk_test",385,388; @@ -2040,7 +2040,7 @@ job_monk,225,180,1 script Hyunmoo#mk 4_M_ORIENT02,{ mes ".....I figured as much....you don't have a spirit."; mapannounce "job_monk","" + strcharinfo(0) + ", has quit his testing to become a monk.",bc_map; close2; - set MONK_Q,16; + MONK_Q = 16; changequest 3027,3028; warp "prt_monk",194,168; end; @@ -2087,7 +2087,7 @@ job_monk,225,180,1 script Hyunmoo#mk 4_M_ORIENT02,{ close2; mapannounce "job_monk","" + strcharinfo(0) + ", has quit his training to become a monk.",bc_map; warp "prt_monk",194,168; - set MONK_Q,16; + MONK_Q = 16; changequest 3027,3028; end; } @@ -2099,7 +2099,7 @@ job_monk,225,180,1 script Hyunmoo#mk 4_M_ORIENT02,{ mes "[Hyunmoo]"; mes "Go meet Tomoon for your next test."; mes "Tomoon is staying in the deepest room inside a building near this abbey."; - set MONK_Q,25; + MONK_Q = 25; changequest 3027,3029; delitem 1069,countitem(1069); //Mushroom_Of_Thief_1 delitem 1070,countitem(1070); //Mushroom_Of_Thief_2 @@ -2181,7 +2181,7 @@ monk_test,319,139,1 script Tomoon#mk 1_M_HOF,{ mes "[Tomoon]"; mes "Let's see if you got what it takes to be a true monk!!"; close2; - set MONK_Q,26; + MONK_Q = 26; changequest 3029,3031; warp "monk_test",88,74; end; @@ -2204,7 +2204,7 @@ monk_test,319,139,1 script Tomoon#mk 1_M_HOF,{ getitem 506,1; //Green_Potion mes "Drink this potion and you will be able to become a monk!!!"; mes "... now go back to sensei Moohae!!!"; - set MONK_Q,28; + MONK_Q = 28; changequest 3031,3032; close; } @@ -2237,7 +2237,7 @@ monk_test,82,85,1 script Proctor#mk 4_F_SISTER,{ mes "Alright! I wish you luck. If you get lost and can't find a way out, simply log out and log back in."; mes "Then you will return to your save point. What's that mean? Heck if I know, I'm just told to say that. Oh yes and also, please cooperate with your comrades."; close2; - set MONK_Q,26; + MONK_Q = 26; warp "monk_test",125,277; end; case 2: @@ -2323,7 +2323,7 @@ monk_test,166,278,0 script exit_monk#1 WARPNPC,1,1,{ OnTouch: mes "[Proctor]"; mes "You did well. Please return to Tomoon, he's waiting for you."; - set MONK_Q,27; + MONK_Q = 27; donpcevent "mob_monk#1_5::OnDisable"; donpcevent "mob_monk#1_4::OnDisable"; donpcevent "mob_monk#1_3::OnDisable"; @@ -2344,7 +2344,7 @@ monk_test,88,91,1 script Proctor#mk2 1_M_HOF,{ mes "Alright! I wish you luck. If you get lost and can't find a way out, simply log out and log back in."; mes "Then you will return to your save point. What's that mean? Heck if I know, I'm just told to say that. Oh yes and also, please cooperate with your comrades."; close2; - set MONK_Q,26; + MONK_Q = 26; warp "monk_test",125,177; end; case 2: @@ -2430,7 +2430,7 @@ monk_test,166,178,0 script exit_monk#2 WARPNPC,1,1,{ OnTouch: mes "[Proctor]"; mes "You did well. Please return to Tomoon, he's waiting for you."; - set MONK_Q,27; + MONK_Q = 27; donpcevent "mob_monk#2_5::OnDisable"; donpcevent "mob_monk#2_4::OnDisable"; donpcevent "mob_monk#2_3::OnDisable"; @@ -2451,7 +2451,7 @@ monk_test,95,85,1 script Proctor#btl#3 1_F_PRIEST,{ mes "Alright! I wish you luck. If you get lost and can't find a way out, simply log out and log back in."; mes "Then you will return to your save point. What's that mean? Heck if I know, I'm just told to say that. Oh yes and also, please cooperate with your comrades."; close2; - set MONK_Q,26; + MONK_Q = 26; warp "monk_test",230,277; end; case 2: @@ -2537,7 +2537,7 @@ monk_test,270,278,0 script exit_monk#3 WARPNPC,1,1,{ OnTouch: mes "[Proctor]"; mes "You did well. Please return to Tomoon, he's waiting for you."; - set MONK_Q,27; + MONK_Q = 27; donpcevent "mob_monk#3_5::OnDisable"; donpcevent "mob_monk#3_4::OnDisable"; donpcevent "mob_monk#3_3::OnDisable"; diff --git a/npc/jobs/2-2/rogue.txt b/npc/jobs/2-2/rogue.txt index d0b2ba95f..7fb6f2c0a 100644 --- a/npc/jobs/2-2/rogue.txt +++ b/npc/jobs/2-2/rogue.txt @@ -168,7 +168,7 @@ in_rogue,363,122,4 script Rogue Guildsman#rg 4_F_ROGUE,{ mes "You've been"; mes "doin' a great job~"; } - set .@jlevel,JobLevel; + .@jlevel = JobLevel; callfunc "Job_Change",Job_Rogue; callfunc "F_ClearJobVar"; completequest 2027; @@ -212,110 +212,110 @@ in_rogue,363,122,4 script Rogue Guildsman#rg 4_F_ROGUE,{ mes "1. Choose the skill necessary for learning ^880000Stalk^000000."; next; if (select("^880000Hiding^000000:^880000Steal^000000:^880000Improve Dodge^000000:^880000Bash^000000") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "2. In comparison to the Merchant's Level 10 ^880000Discount^000000 skill, how much more of a discount, in terms of percent, can a Rogue get with Level 10 ^880000Haggle^000000 skill?"; next; if (select("3 %:2 %:1 %:0 %") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "3. What is the correct description for the skill, ^880000Mug^000000?"; next; if (select("Steal items from players:Steal items from monsters:Steal Zeny from monsters:Steal Zeny from players") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "4. How many Rogues does it require to activate the skill, ^880000Slyness^000000?"; next; if (select("1 Rogues + 2 Assassin:1 Thief + 2 Rogue:4 Thieves:2 Rogues") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "5. Choose the skill that you can learn at Level 5 ^880000Divest Helm^000000."; next; if (select("^880000Envenom^000000:^880000Strip Tease^000000:^880000Venom Splasher^000000:^880000Divest Shield^000000") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "6. Choose the skill which allows its user to move while hiding."; next; if (select("^880000Hiding^000000:^880000Back Slide^000000:^880000Stalk^000000:^880000Sand Attack^000000") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "7. Choose the card that increases the accuracy rate of its owner."; next; if (select("Andre Card.:Familiar Card.:Mummy Card.:Marina Card.") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "8. Choose the monster that receives more damage when it's attacked by a weapon with the Vadon card (20 % more damage on Fire property)."; next; if (select("Vadon:Deviruchi:Elder Willow:Baphomet") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "9. How much SP does the skill ^880000Double Attack^000000 require when used with a Dagger?"; next; if (select("15:Passive skill, no SP required.:Passive skill, 10 SP:54") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "10. Choose the most efficient dagger to use in the Byalan Dungeon."; next; if (select("Wind Main-Gauche:Ice Main-Gauche:Earth Main-Gauche:Fire Main-Gauche") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; case 2: mes "[Markie]"; mes "1. Which monster drops a slotted Gladius?"; next; if (select("Thief Bug:Peco Peco:Desert Wolf:Kobold") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "2. Which monster drops a slotted Main-Gauche?"; next; if (select("Hornet:Desert Wolf:Marionette:Myst") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "3. Choose the class that is able to create unique potions."; next; if (select("Merchant:Alchemist:Blacksmith:Priest") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "4. Choose the weapon that Rogues aren't allowed to use."; next; if (select("Gakkung:Crossbow:Gladius:Katar") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "5. Choose the property that the monster Hode possesses."; next; if (select("Water:Fire:Wind:Earth") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "6. Choose the monster that is unable to be tamed for as a Cute Pet."; next; if (select("Poporing:Creamy:Orc:Poison Spore") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "7. Choose the monster that receives more damage from a Dagger with the Fire property."; next; if (select("Dagger Goblin:Mace Goblin:Morning Star Goblin:Hammer Goblin") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "8. Choose the town that doesn't have any guild castles."; next; if (select("Prontera:Al De Baran:Alberta:Payon") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "9. Choose the plant that drops Blue Herbs."; @@ -324,54 +324,54 @@ in_rogue,363,122,4 script Rogue Guildsman#rg 4_F_ROGUE,{ default: break; case 3: - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; case 4: - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; } mes "[Markie]"; mes "10. Choose the monster that does not have the Undead property."; next; if (select("Zombie:Megalodon:Familiar:Khalitzburg") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; case 3: mes "[Markie]"; mes "1. By what percentage is the flee rate increased when a Thief masters the ^880000Improve Dodge^000000?"; next; if (select("30:40:160:20") == 1) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "2. Choose the monster that detects a characters using the Hiding or Cloaking skill."; next; if (select("Worm Tail:Argos:Mummy:Soldier Skeleton") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "3. Choose the location where Thieves can change their jobs to Rogues."; next; if (select("Comodo:Kokomo Beach:Paros Lighthouse:Morroc") == 3) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "4. In which town can Novices change their jobs to Thieves?"; next; if (select("Comodo:Lutie:Alberta:Morroc") == 4) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "5. Choose the card that does not affect the DEX stat."; next; if (select("Rocker Card:Mummy Card:Zerom Card:Drops Card") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "6. So what's cool about being a Rogue?"; next; select("Being totally badass.:The clothes, the style.:Getting to call other people, 'foo'':Excellent attack strength"); - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "7. When is it possible to change jobs from Thief to Rogue?"; @@ -380,17 +380,17 @@ in_rogue,363,122,4 script Rogue Guildsman#rg 4_F_ROGUE,{ default: break; case 3: - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; case 4: - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; } mes "[Markie]"; mes "8. You want to dye your hair blue. What town do you go to, and in which direction, with 12 o' clock being North."; next; if (select("Morroc, 7 o'clock:Prontera, 7 o'clock:Morroc, 5 o'clock:Prontera, 1 o'clock") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; mes "[Markie]"; mes "9. Choose the mushroom that is required on the Thief job change quest."; @@ -400,14 +400,14 @@ in_rogue,363,122,4 script Rogue Guildsman#rg 4_F_ROGUE,{ break; case 1: case 3: - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; break; } mes "[Markie]"; mes "10. Choose the card that least benefits the Rogue class."; next; if (select("Whisper Card:Elder Willow Card:Zerom Card:Matyr Card") == 2) - set .@assassin_t,.@assassin_t+10; + .@assassin_t += 10; } mes "[Markie]"; mes "*Whew~*"; @@ -419,7 +419,7 @@ in_rogue,363,122,4 script Rogue Guildsman#rg 4_F_ROGUE,{ mes "You got..."; mes "" + .@assassin_t + " points."; if (.@assassin_t > 80) { - set ROGUE_Q,2; + ROGUE_Q = 2; setquest 2017; mes "Good. You passed."; mes "We don't gotta"; @@ -434,7 +434,7 @@ in_rogue,363,122,4 script Rogue Guildsman#rg 4_F_ROGUE,{ close; } else { - set ROGUE_Q,1; + ROGUE_Q = 1; mes "Aw crud... You failed!"; next; mes "[Markie]"; @@ -506,14 +506,14 @@ in_rogue,376,23,1 script Mr. Smith#rg 1_M_LIBRARYMASTER,{ mes "[Mr. Smith]"; mes "What you have to understand is that the Rogue Guild does a lot of business, ^666666sometimes illegally^000000, that needs financial backup."; next; - set .@item_need,rand(1,15); + .@item_need = rand(1,15); if (.@item_need > 0 && .@item_need < 6) callsub S_Req,"10 Skel-bone","6 Blue Herb","10 Decayed Nail","10 Horrendous Mouth",3; else if (.@item_need > 5 && .@item_need < 11) callsub S_Req,"10 Green Herb","10 Crab Shell","10 Snake Scale","10 Garlet",4; else if (.@item_need > 10 && .@item_need < 15) callsub S_Req,"10 Yellow Herb","10 Shell","10 Grasshopper's Leg","10 Bear's Footskin",5; else if (.@item_need == 15) { mes "[Mr. Smith]"; mes "I will let you know..."; - set ROGUE_Q,6; + ROGUE_Q = 6; changequest 2017,2021; next; mes "[Mr. Smith]"; @@ -679,14 +679,14 @@ in_rogue,376,23,1 script Mr. Smith#rg 1_M_LIBRARYMASTER,{ delitem 917,5; //Talon delitem 908,5; //Spawn delitem 945,5; //Raccoon_Leaf - set ROGUE_Q,8; + ROGUE_Q = 8; next; mes "[Mr. Smith]"; mes "Wow, you've brought each and every single thing I asked you to. Good work... I salute you."; next; mes "^CCCCCC- Middle Finger -^000000'"; mes "*Grins*"; - set ROGUE_Q,8; + ROGUE_Q = 8; changequest 2021,2025; next; mes "[Mr. Smith]"; @@ -756,7 +756,7 @@ in_rogue,376,23,1 script Mr. Smith#rg 1_M_LIBRARYMASTER,{ mes "I send you to...?"; switch(rand(1,3)) { case 1: - set ROGUE_Q,9; + ROGUE_Q = 9; if (questprogress(2018)) { changequest 2018,2022; } @@ -793,7 +793,7 @@ in_rogue,376,23,1 script Mr. Smith#rg 1_M_LIBRARYMASTER,{ mes "Well, I will wish you luck. His place isn't that far from here, so come back as soon as possible. Being swift... That is the spirit of the Rogue."; close; case 2: - set ROGUE_Q,10; + ROGUE_Q = 10; if (questprogress(2018)) { changequest 2018,2023; } @@ -829,7 +829,7 @@ in_rogue,376,23,1 script Mr. Smith#rg 1_M_LIBRARYMASTER,{ mes "Ah, you might want to remember the password to meet him in person. The password is ^0000FFAntonio doesn't enjoy destroying upgrade items^000000."; close; case 3: - set ROGUE_Q,11; + ROGUE_Q = 11; if (questprogress(2018)) { changequest 2018,2024; } @@ -944,7 +944,7 @@ S_Req: mes "^FF0000"+getarg(1)+"^000000,"; mes "^FF0000"+getarg(2)+"^000000 and"; mes "^FF0000"+getarg(3)+"^000000."; - set ROGUE_Q,getarg(4); + ROGUE_Q = getarg(4); if(getarg(4) == 3) { changequest 2017,2018; } @@ -979,13 +979,13 @@ S_CheckItems: delitem getarg(2),getarg(3); delitem getarg(4),getarg(5); delitem getarg(6),getarg(7); - set ROGUE_Q,7; + ROGUE_Q = 7; next; mes "[Mr. Smith]"; mes "Great, great..."; mes "I think you"; mes "brought everything."; - set ROGUE_Q,7; + ROGUE_Q = 7; next; mes "[Mr. Smith]"; mes "Alright, wait just a moment while"; @@ -1024,7 +1024,7 @@ OnTouch: case 2: mes "[" + strcharinfo(0) + "]"; mes "Aragham"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 3: mes "[" + strcharinfo(0) + "]"; @@ -1040,7 +1040,7 @@ OnTouch: case 2: mes "didn't"; break; case 3: mes "never"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 4: mes "ever"; break; } @@ -1048,7 +1048,7 @@ OnTouch: case 1: mes "hoard"; break; case 2: mes "hoarded"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 3: mes "hide"; break; case 4: mes "took"; break; @@ -1057,7 +1057,7 @@ OnTouch: switch(select("upgrade items.:forging items.:refining item.:upgrade item.")) { case 1: mes "upgrade items."; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 2: mes "forging items."; break; case 3: mes "refining item."; break; @@ -1090,7 +1090,7 @@ OnTouch: case 1: mes "[" + strcharinfo(0) + "]"; mes "My father"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 2: mes "[" + strcharinfo(0) + "]"; @@ -1110,7 +1110,7 @@ OnTouch: case 2: mes "didn't"; break; case 3: mes "never"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 4: mes "ever"; break; } @@ -1121,13 +1121,13 @@ OnTouch: case 4: mes "took"; break; case 5: mes "hoarded"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; } switch(select("upgrade items.:forging items.:refining item.:upgrade item.")) { case 1: mes "upgrade items."; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 2: mes "forging items."; break; case 3: mes "refining item."; break; @@ -1168,7 +1168,7 @@ OnTouch: case 3: mes "[" + strcharinfo(0) + "]"; mes "Antonio"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 4: mes "[" + strcharinfo(0) + "]"; @@ -1179,7 +1179,7 @@ OnTouch: case 1: mes "enjoys"; break; case 2: mes "doesn't enjoy"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 3: mes "likes"; break; case 4: mes "doesn't like"; break; @@ -1188,7 +1188,7 @@ OnTouch: case 1: mes "damaging"; break; case 2: mes "destroying"; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 3: mes "fixing"; break; case 4: mes "forging"; break; @@ -1198,7 +1198,7 @@ OnTouch: case 2: mes "refining items."; break; case 3: mes "upgrade items."; - set .@rogue_t,.@rogue_t+10; + .@rogue_t += 10; break; case 4: mes "refined items."; break; case 5: mes "upgraded items."; break; @@ -1250,7 +1250,7 @@ in_rogue,272,135,1 script Hermanthorn Jr#rg 4_M_03,{ mes "[HermanthornJr.]"; mes "Well..."; mes "Just make it back to the Rogue Guild alive. That's all you have to do!"; - set ROGUE_Q,12; + ROGUE_Q = 12; changequest 2025,2026; close; } @@ -1287,7 +1287,7 @@ OnTouch: mes "has opened.^000000"; close2; warp "in_rogue",10,21; - set ROGUE_Q,12; + ROGUE_Q = 12; end; } else { @@ -1385,7 +1385,7 @@ OnMyMobDead: in_rogue,9,389,0 script oneway_to_gu WARPNPC,1,1,{ OnTouch: donpcevent "gen_ro#4::OnDisable"; - set ROGUE_Q,17; + ROGUE_Q = 17; warp "in_rogue",367,10; end; } @@ -1423,7 +1423,7 @@ in_rogue,244,39,1 script Aragham Junior#rg 4W_M_03,{ mes "Good luck, then."; close2; warp "in_rogue",15,105; - set ROGUE_Q,13; + ROGUE_Q = 13; changequest 2022,2026; end; } @@ -1504,7 +1504,7 @@ in_rogue,160,34,1 script Hollgrehenn junior#rg 4_M_03,{ mes "Good luck."; close2; warp "in_rogue",15,105; - set ROGUE_Q,15; + ROGUE_Q = 15; changequest 2024,2026; end; } @@ -1591,7 +1591,7 @@ in_rogue,177,109,1 script Antonio junior#rg 4_M_ORIENT01,{ mes "a Rogue if you pass..."; close2; warp "in_rogue",15,105; - set ROGUE_Q,14; + ROGUE_Q = 14; changequest 2023,2026; end; } @@ -1649,7 +1649,7 @@ in_rogue,177,109,1 script Antonio junior#rg 4_M_ORIENT01,{ in_rogue,370,320,0 script quest_out WARPNPC,1,1,{ OnTouch: - set ROGUE_Q,16; + ROGUE_Q = 16; warp "in_rogue",378,113; end; } diff --git a/npc/jobs/2-2/sage.txt b/npc/jobs/2-2/sage.txt index 4f0db7888..46493312c 100644 --- a/npc/jobs/2-2/sage.txt +++ b/npc/jobs/2-2/sage.txt @@ -126,7 +126,7 @@ yuno_in02,38,61,5 script Dean of the Academy#sa 2_M_SAGE_OLD,{ else if (SAGE_Q == 15) { if (countitem(1550) > 0) { if (JobLevel < 40) { - set SAGE_Q,0; + SAGE_Q = 0; mes "You don't seem to be qualified yet."; mes "Remember, you must reach at least job level 40 to become a Sage."; close2; @@ -329,7 +329,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ mes "[Metheus Sylphe]"; mes "Yes, everything's ready."; mes "Next, you will take an entrance test."; - set SAGE_Q,4; + SAGE_Q = 4; setquest 2041; next; mes "[Metheus Sylphe]"; @@ -347,7 +347,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ mes "[Metheus Sylphe]"; mes "Thank you, your application has been accepted."; mes "Next, you will take an entrance test."; - set SAGE_Q,4; + SAGE_Q = 4; setquest 2041; next; mes "[Metheus Sylphe]"; @@ -366,7 +366,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ mes "[Metheus Sylphe]"; mes "Thank you, your application has been accepted."; mes "Next, you will take the entrance test."; - set SAGE_Q,4; + SAGE_Q = 4; setquest 2041; next; mes "[Metheus Sylphe]"; @@ -405,7 +405,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ mes "[Metheus Sylphe]"; mes "Yes, everything's ready."; mes "Next, you will take the entrance test."; - set SAGE_Q,4; + SAGE_Q = 4; setquest 2041; next; mes "[Metheus Sylphe]"; @@ -438,7 +438,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ next; switch(rand(1,3)) { case 1: - set SAGE_Q,1; + SAGE_Q = 1; setquest 2043; mes "[Metheus Sylphe]"; mes "Please gather the following items."; @@ -450,7 +450,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ mes "If you bring those items, your tuition will be 30,000 zeny, in lieu of the original 70,000 zeny fee."; break; case 2: - set SAGE_Q,2; + SAGE_Q = 2; setquest 2044; mes "[Metheus Sylphe]"; mes "Please gather the following items."; @@ -462,7 +462,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ mes "If you bring the aforementioned items, the tuition fee will be 30,000 zeny, rather than the original 70,000 zeny fee."; break; case 3: - set SAGE_Q,3; + SAGE_Q = 3; setquest 2045; mes "[Metheus Sylphe]"; mes "Please gather the following items."; @@ -511,14 +511,14 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ delitem 1007,1; //Penetration mes "[Metheus Sylphe]"; mes "Well done. Let me proceed with your application request."; - set SAGE_Q,4; + SAGE_Q = 4; next; } else if (Zeny > 69999) { Zeny -= 70000; mes "[Metheus Sylphe]"; mes "Well done. Let me proceed with your application request."; - set SAGE_Q,4; + SAGE_Q = 4; next; } else { @@ -539,17 +539,17 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ setarray .@count[0], 50,50,50,50; break; } - set .@size, (getarraysize(.@item)-1); - for( set .@i,0 ; .@i < .@size && countitem(.@item[.@i]) >= .@count[.@i] ; set .@i,.@i+1 ); + .@size = (getarraysize(.@item)-1); + for (.@i = 0 ; .@i < .@size && countitem(.@item[.@i]) >= .@count[.@i] ; ++.@i); if(.@i == .@size) { if (Zeny > 29999) { - for (set .@i, 0; .@i < .@size ; set .@i, .@i+1) + for (.@i = 0; .@i < .@size ; ++.@i) delitem .@item[.@i], .@count[.@i]; Zeny -= 30000; mes "[Metheus Sylphe]"; mes "Well done. Let me proceed with your application request."; - set .@SAGE_Q_T,SAGE_Q; - set SAGE_Q,4; + .@SAGE_Q_T = SAGE_Q; + SAGE_Q = 4; next; } mes "[Metheus Sylphe]"; @@ -594,7 +594,7 @@ yuno_in03,154,35,4 script Staff of the Academy#a 2_M_SAGE_B,{ mes "[Metheus Sylphe]"; mes "Ah yes, everything is in readiness."; mes "Next, you will take an entrance test."; - set SAGE_Q,4; + SAGE_Q = 4; if (questprogress(2043)) { changequest 2043,2041; } @@ -714,247 +714,247 @@ L_AskQuestions: mes "1. Choose an item that the Gift merchant in Prontera does not sell."; next; if (select("China:Red Frame:Bouquet:Glass Bead") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "2. Choose a city where you cannot purchase a Stiletto."; next; if (select("Prontera:Morroc:Geffen:Lutie") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "3. Choose the closest city to Turtle Island."; next; if (select("Al De Baran:Alberta:Comodo:Izlude") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "4. Choose the monster that is a different type than the others."; next; if (select("Raggler:Pest:Frilldora:Aster") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "5. Choose the monster that has a different attribute than the others."; next; if (select("Mantis:Metaller:Rocker:Horn") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "6. Choose the monster that is different sized than the others."; next; if (select("Raydric:Raydric Archer:Wanderer:Dark Frame") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "7. Choose the monster which doesn't drop 'Alcohol'."; next; if (select("Horong:Plankton:Poison Spore:Toad") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "8. Choose the NPC that is irrelevant to the Knight job change quest."; next; if (select("Sir Siracuse:Thomas Servantes:Sir Windsor:Lady Amy") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "9. Choose the NPC that is not a citizen of Prontera."; next; if (select("Tono:Pina:YuPi:Hollgrehenn") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "10. Choose the right name for the Kafra lady who wears glasses."; next; if (select("Pavianne:Roxie:Leilah:Curly Sue") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "11. How much SP is spent to use lvl 7 Thunderstorm?"; next; if (select("49:59:69:74") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "12. Choose the right amount of damage reduction and SP consumption of the Energy Coat skill when the caster's remaining SP is 50%."; next; if (select("Damage -24% SP1.5%:Damage -24% SP2%:Damage -18% SP1.5%:Damage -18% SP2%") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "13. Choose the property that is irrelevant to 'Bolt' type skills for the Mage class."; next; if (select("Water:Earth:Fire:Wind") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "14. Choose the right chance and attack strength for lvl 7 Double Attack, the Thief skill."; next; if (select("35% / 120%:35% / 140%:40% / 120%:40% / 140%") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "15. Choose the skill that is irrelevant to learning Magnus Exorcismus, the Priest skill."; next; if (select("Divine Protection:Heal:Ruwach:Aqua Benedicta") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "16. Choose the correct defense and ability of the Bunny Band."; next; if (select("1 / LUK +2:1 / LUK +5:2 / LUK +2:2 / LUK +5") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "17. Choose the class that cannot equip Padded Armor."; next; if (select("Swordman:Merchant:Thief:Archer") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "18. Choose the item that cures all abnormal status and restores full HP and SP at the same time."; next; if (select("Royal Jelly:Yggdrasil Seed:Yggdrasilberry:Mastella Fruit") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "19. Who rules the Rune-Midgarts kingdom right now?"; next; if (select("Tristun the 3rd:Tristram the 3rd:Tristar the 3rd:Trast the 3rd") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "20. Choose the god of Crusaders."; next; if (select("Odin:Loki:Thor:Venadin") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; break; case 2: mes "1. Choose the jewel that the Morroc Jewel Merchant does not sell."; next; if (select("Topaz:Garnet:Diamond:Sapphire") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "2. Choose the city where users cannot purchase Monster's Feed from an NPC."; next; if (select("Prontera:Morroc:Al De Baran:Alberta") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "3. Choose the closest city to the Maze."; next; if (select("Prontera:Morroc:Geffen:Payon") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "4. Choose the monster that is a different type than the others."; next; if (select("Muka:Drops:Plankton:Penomena") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "5. Choose the monster with the different attribute."; next; if (select("Dokebi:Isis:Giearth:Deviruchi") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "6. Choose the monster that is different in size."; next; if (select("Thiefbug (Aggressive):Horn:Metaller:Argos") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "7. Choose the monster which does not drop 'Yggdrasil Leaf'."; next; if (select("Marduk:Baphomet Jr.:Angeling:Wanderer") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "8. Choose the NPC that is irrelevant to the Priest job change quest."; next; if (select("Paul:Sir Windsor:Peter S. Alberto:Cecilia") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "9. Choose the NPC that is not a citizen of Morroc."; next; if (select("Syvia:Akira:Antonio:Dmitrii") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "10. Choose the Kafra lady who has gorgeous blue hair."; next; if (select("Pavianne:Roxie:Leilah:Curly Sue") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "11. Choose the skill that is irrelevant to learning Fire Wall, the Mage skill."; next; if (select("lvl 4 Fire Bolt:lvl 4 Napalm Beat:lvl 5 Fire Ball:lvl 1 Sight") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "12. How much SP can be restored when learning SP recovery at lvl 6 (without being affected by INT)?"; next; if (select("14:16:18:21") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "13. How many INT points does a Mage receive as a bonus at job lvl 33?"; next; if (select("7:6:5:4") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "14. Choose the correct SP consumption and the skill duration for Improve Concentration lvl 5 (Archer skill)."; next; if (select("45 / 80 sec:50 / 80 sec:45 / 90 sec:50 / 90 sec") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "15. Choose the skill that is irrelevant to learning Maximize Power, the Blacksmith skill."; next; if (select("Hilt Binding:Skin Tempering:Hammer Fall:Weapon Perfection") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "16. What is the correct defense rate and ability of Cute Ribbon?"; next; if (select("0 / SP +20:0 / SP +30:1 / SP +20:1 / SP +30") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "17. Choose the class that cannot equip Saint Robe."; next; if (select("Swordman:Merchant:Thief:Acolyte") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "18. Choose the abnormal status that cannot be cured by Green Potion."; next; if (select("Silence:Chaos:Blind:Curse") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "19. Choose the correct name for the ancient kingdom that disappeared somewhere in Geffen."; next; if (select("Geffayon:Geffenia:Gefenn:Jaffen") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "20. Choose the correct name for the tree that has become the root of this world."; next; if (select("Yggdrasil:Iggdrassil:Mastella:Dead Branch") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; break; case 3: mes "1. Choose the item that the Magical Tool merchant in Geffen does not sell."; next; if (select("Mantle:Wand:Circlet:Silver Robe") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "2. Choose the city where users cannot purchase Blade from an NPC."; next; if (select("Prontera:Izlude:Al De Baran:Payon") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "3. Choose the closest city to Glast Heim."; next; if (select("Prontera:Geffen:Morroc:Payon") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "4. Choose the monster that is a different type than the others."; next; if (select("Aster:Marc:Marse:Marin") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "5. Choose the monster that has a different attribute."; next; if (select("Baby Desert Wolf:Smokie:Picky:Choco") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "6. Choose the monster that is different sized."; next; if (select("Drake:Wraith:Evil Druid:Khalitzburg") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "7. Choose the monster that does not drop 'Phracon'."; next; if (select("Pupa:Peco Peco Egg:Savage Bebe:Baby Desert Wolf") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "8. Choose the NPC that is irrelevant to the Blacksmith job change quest."; next; if (select("Altiregen:Geschupenschte:Barcadi:Baisulist") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "9. Choose the NPC that is not a citizen of Al De Baran."; next; if (select("RS125:GOD-POING:Stromme:Chemirre") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "10. Choose the Kafra lady who is the youngest among the staff."; next; if (select("Pavianne:Roxie:Leilah:Curly Sue") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "11. Choose the correct SP consumption and the number of evasions when using Safety Wall lvl 6."; next; if (select("SP 40, 6 times:SP 35, 6 times:SP 40, 7 times:SP 35, 7 times") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "12. Choose the correct amount of magic attack for Napalm Beat lvl 6."; next; if (select("MATK * 1.2:MATK * 1.3:MATK * 1.4:MATK * 1.5") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "13. Choose the catalyst stone for Mage Solution no. 4 that is used for the Mage job change quest."; next; if (select("Blue Gemstone:Red Gemstone:Yellow Gemstone:1 carat Diamond") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "14. Choose the correct attack strength and SP consumption for Bash lvl 6, the Swordman skill."; next; if (select("250% / 8:280% / 8:280% / 15:310% / 15") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "15. Choose the skill that is irrelevant to learning Claymore Trap, the Hunter skill."; next; if (select("Remove Trap:Land Mine:Ankle Snare:Flasher") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "16. Choose the correct defense and ability of Wedding Veil."; next; if (select("0 / MDEF +3:0 / MDEF +5:1 / MDEF +3:1 / MDEF +5") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "17. Choose the class that cannot equip Coat."; next; if (select("Swordman:Merchant:Thief:Novice") == 4) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "18. Choose the item that is not an ingredient for Blue Dyestuffs."; next; if (select("Alcohol:Detrimindexta:Karvodailnirol:Blue Herb") == 3) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "19. When the world was created by the god Odin, what did he use for the material?"; next; if (select("The heart of Ymir:The nail of Ymir:The tooth of Ymir:The memento of Ymir") == 1) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; mes "20. Choose the metal that has rumored to bring fortune and fame to a person with the destiny."; next; if (select("Empelium Gold:Emperium:Emperor:Phracon") == 2) - set .@sage_t,.@sage_t+5; + .@sage_t += 5; } mes "[Claytos Verdo]"; if (SAGE_Q == 4) { @@ -977,7 +977,7 @@ L_AskQuestions: mes "Excellent! You seem fully qualified to become a Sage!"; else mes "Excellent! You must have studed really hard for this test!"; - set SAGE_Q,6; + SAGE_Q = 6; changequest 2041,2046; next; mes "[Claytos Verdo]"; @@ -985,7 +985,7 @@ L_AskQuestions: mes "Go visit Professor Hermes for the practical examination."; } else if (.@sage_t >= 80) { - set SAGE_Q,6; + SAGE_Q = 6; changequest 2041,2046; mes "Yeah, not bad. I assume that you will at least understand what you're going to learn in class."; next; @@ -995,7 +995,7 @@ L_AskQuestions: } else { if (SAGE_Q == 4) { - set SAGE_Q,5; + SAGE_Q = 5; mes "Oh well...what a shame: You failed."; next; mes "[Claytos Verdo]"; @@ -1020,11 +1020,11 @@ L_AskQuestions: mes "You will take the written test under the same conditions as the test you took before. I'll give you 20 questions."; mes "Each correct answer will give you 5 points. When your score reaches 80 points, you pass the test."; next; - set sage_m2,rand(1,3); + sage_m2 = rand(1,3); mes "[Claytos Verdo]"; mes "Okay, there's no need to wait."; mes "Answer immediately, or I'll fail you again."; - set SAGE_Q,5; + SAGE_Q = 5; goto L_AskQuestions; end; } @@ -1127,7 +1127,7 @@ yuno_in03,169,180,3 script Practical Examination P 4_M_SAGE_C,{ mes "How about it? Are you ready to take this test?"; next; if (select("Yes, I am.:Sorry, give me some time.") == 1) { - set SAGE_Q,7; + SAGE_Q = 7; mes "[Hermes Tris]"; mes "Good, let's start immediately."; mes "Do your best and come back safely!"; @@ -1135,7 +1135,7 @@ yuno_in03,169,180,3 script Practical Examination P 4_M_SAGE_C,{ warp "job_sage",50,154; end; } - set SAGE_Q,7; + SAGE_Q = 7; mes "[Hermes Tris]"; mes "Yes, you don't need to hurry... take your time and come back."; close; @@ -1173,7 +1173,7 @@ yuno_in03,169,180,3 script Practical Examination P 4_M_SAGE_C,{ next; switch(rand(1,3)) { case 1: - set SAGE_Q,9; + SAGE_Q = 9; changequest 2046,2047; mes "[Hermes Tris]"; mes "Now, you will study Yggdrasil."; @@ -1187,7 +1187,7 @@ yuno_in03,169,180,3 script Practical Examination P 4_M_SAGE_C,{ mes "I wish you luck."; close; case 2: - set SAGE_Q,11; + SAGE_Q = 11; changequest 2046,2048; mes "[Hermes Tris]"; mes "Now, you will study monsters."; @@ -1201,7 +1201,7 @@ yuno_in03,169,180,3 script Practical Examination P 4_M_SAGE_C,{ mes "I wish you luck."; close; case 3: - set SAGE_Q,13; + SAGE_Q = 13; changequest 2046,2049; mes "[Hermes Tris]"; mes "Now, you will study magic skills that have certain properties."; @@ -1346,7 +1346,7 @@ yuno_in03,62,176,2 script History Professor#sa 4_M_MANAGER,{ mes "Anything is fine as long as it's related to the Yggdrasil tree."; mes "Seeds or fruits of the tree would be good. I know it's difficult to find, but please try."; next; - set SAGE_Q2,1; + SAGE_Q2 = 1; changequest 2047,2050; mes "[Saphien Layless]"; mes "When we have the reserve items, we will start the class."; @@ -1471,8 +1471,8 @@ yuno_in03,62,176,2 script History Professor#sa 4_M_MANAGER,{ mes "^3355FF1 Squid Ink^000000 which will be used as ink,"; mes "^3355FF1 Empty Bottle^000000 which will be used for holding the squid ink."; next; - set SAGE_Q2,0; - set SAGE_Q,10; + SAGE_Q2 = 0; + SAGE_Q = 10; changequest 2050,2051; mes "[Saphien Layless]"; mes "I will help you to write your thesis when you're ready with all those items."; @@ -1500,36 +1500,36 @@ yuno_in03,62,176,2 script History Professor#sa 4_M_MANAGER,{ mes "The ocean is coiled up by"; switch(select("A giant ash tree.:A giant snake Yormungandr.:A giant turtle and elephants.:A giant dragon.")) { case 1: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "A giant ash tree."; break; case 2: mes "A giant snake Yormungandr."; break; case 3: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "A giant turtle and elephants."; break; case 4: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "A giant dragon."; break; } mes "The continent consists of three places such as,"; switch(select("Mt.Mjolnir, where spiders live,:Uranos, where titans live,:Utgard, where titans live,:Lutie, the winter land,")) { case 1: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Mt.Mjolnir where spiders live,"; break; case 2: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Uranos where titans live,"; break; case 3: mes "Utgard where titans live,"; break; case 4: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Lutie, the winter land,"; break; } @@ -1538,32 +1538,32 @@ yuno_in03,62,176,2 script History Professor#sa 4_M_MANAGER,{ mes "Midgard, where humans live in,"; break; case 2: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Rune-Midgarts, where humans live,"; break; case 3: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Tritonia, where mermaids live,"; break; case 4: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Morroc, the desert city,"; break; } switch(select("Abguard, where gods live.:Asgard, where gods live.:Schwarzwald, where citizens live.:Prontera, the capital of Rune-Midgarts.")) { case 1: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Abguard where gods live."; break; case 2: mes "Asgard, where gods live."; break; case 3: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Schwarzwald, where citizens live."; break; case 4: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Prontera, the capital of Rune-Midgarts."; break; } @@ -1586,30 +1586,30 @@ yuno_in03,62,176,2 script History Professor#sa 4_M_MANAGER,{ mes "A giant ash tree."; break; case 2: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "A fabulous Mastella tree."; break; case 3: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "A giant willow."; break; case 4: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "A giant dead branch."; break; } mes "The root of Yggdrasil is divided into 3 parts. Those parts reach to 3 places..."; switch(select("Schwarzwald, Jotunnheim, Niflheim.:Midgard, Jotunnheim, Naffleheim.:Asgard, Jotunnheim, Naffleheim.:Asgard, Jotunnheim, Niflheim.")) { case 1: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Schwarzwald, Jotunnheim, Niflheim."; break; case 2: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Midgard, Jotunnheim, Naffleheim."; break; case 3: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "Asgard, Jotunnheim, Naffleheim."; break; case 4: @@ -1619,18 +1619,18 @@ yuno_in03,62,176,2 script History Professor#sa 4_M_MANAGER,{ mes "One who has a Seed of Yggdrasil,"; switch(select("can be cured from all the abnormal statuses.:can restore full HP and SP at once.:can restore half of total HP and SP.:can be cured from Silence, Curse and Chaos.")) { case 1: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "can be cured from all the abnormal statuses."; break; case 2: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "can restore full HP and SP at once."; break; case 3: mes "can restore half of total HP and SP."; break; case 4: - set .@w_point,.@w_point+1; + .@w_point += 1; mes "can be cured from Silence, Curse and Chaos."; break; } @@ -1651,7 +1651,7 @@ yuno_in03,62,176,2 script History Professor#sa 4_M_MANAGER,{ next; mes "................................."; next; - set SAGE_Q,15; + SAGE_Q = 15; changequest 2051,2052; mes "[Saphien Layless]"; mes "Oh, did you finish already? Well done."; @@ -1758,13 +1758,13 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "Yes, that's what I guessed about you. You're just book smart."; mes "However, I am sure you will encounter most of the monsters mentioned in my lecture."; next; - set sage_m4,rand(1,3); + sage_m4 = rand(1,3); mes "[Lucius Celsus]"; mes "Let's get started."; mes "Make sure you're ready for the practical examination during my lecture."; next; if (sage_m4 == 1) { - set SAGE_Q2,1; + SAGE_Q2 = 1; changequest 2048,2053; mes "[Lucius Celsus]"; mes "Go bring the following items to me."; @@ -1773,7 +1773,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "5 ^3355FFFish Tail^000000."; } else if (sage_m4 == 2) { - set SAGE_Q2,2; + SAGE_Q2 = 2; changequest 2048,2054; mes "[Lucius Celsus]"; mes "Go bring the following items to me."; @@ -1782,7 +1782,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "5 ^3355FFHeart of Mermaid^000000."; } else { - set SAGE_Q2,3; + SAGE_Q2 = 3; changequest 2048,2054; mes "[Lucius Celsus]"; mes "Go bring following items to me."; @@ -1824,7 +1824,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "Most fish class monsters live underwater, so they are attributed with the water property."; break; case 3: - set sage_m4,4; + sage_m4 = 4; mes "[Lucius Celsus]"; mes "...I didn't know Phens were aggressive nowadays?"; mes "Or do Marina and Plankton team up to start a fight with you?"; @@ -1834,7 +1834,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "They are all fishes and possess water property."; break; case 4: - set sage_m4,4; + sage_m4 = 4; mes "[Lucius Celsus]"; mes "What...! What are you here for!? You are here to study about specific monsters, microcephalic moron!"; mes "Sigh...they are all fishes and possess water property."; @@ -1852,7 +1852,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "Although you might want to be careful of monsters that recognize magic casting."; break; case 2: - set sage_m4,4; + sage_m4 = 4; mes "[Lucius Celsus]"; mes "What? Fire Bolt! Fire cannot beat water, you imbecile!"; mes "Most fishes are attributed with the water property. Therefore, they are weak to wind property magic spells. Don't you get it?"; @@ -1863,7 +1863,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "However, you will be in trouble if you use the spell in a poorly chosen spot."; break; case 4: - set sage_m4,4; + sage_m4 = 4; mes "[Lucius Celsus]"; mes "I can't fathom such stupidity! This question asks you to choose a property that counters water! Don't you get it?"; mes "Logically, any magic spell possessing the water property cannot overcome the water atrribute monsters!"; @@ -1880,7 +1880,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ next; switch(rand(1,4)) { case 1: - set SAGE_Q2,4; + SAGE_Q2 = 4; if (questprogress(2053)) { changequest 2053,2056; } @@ -1895,7 +1895,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "5 ^3355FFInsect Feeler^000000."; break; case 2: - set SAGE_Q2,5; + SAGE_Q2 = 5; if (questprogress(2053)) { changequest 2053,2057; } @@ -1910,7 +1910,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "5 ^3355FFMoth Dust^000000."; break; case 3: - set SAGE_Q2,6; + SAGE_Q2 = 6; if (questprogress(2053)) { changequest 2053,2058; } @@ -1925,7 +1925,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "5 ^3355FFRainbow Shell^000000."; break; case 4: - set SAGE_Q2,7; + SAGE_Q2 = 7; if (questprogress(2053)) { changequest 2053,2059; } @@ -2000,8 +2000,8 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ mes "^3355FF1 Squid Ink^000000 which will be used as ink,"; mes "^3355FF1 Empty Bottle^000000 which will be used for holding squid ink."; next; - set SAGE_Q2,0; - set SAGE_Q,12; + SAGE_Q2 = 0; + SAGE_Q = 12; if (questprogress(2056)) { changequest 2056,2051; } @@ -2074,7 +2074,7 @@ yuno_in03,32,102,1 script Biology Professor#sa 4_M_SAGE_C,{ next; mes "................................."; next; - set SAGE_Q,15; + SAGE_Q = 15; changequest 2051,2052; mes "[Lucius Celsus]"; mes "Are you done? Okay, then it's over."; @@ -2179,7 +2179,7 @@ yuno_in03,244,31,3 script Physics Professor#sa 2_M_PHARMACIST,{ mes "Please bring me ^3355FF30 Stone^000000, that's all."; mes "It's not so hard, isn't it?"; next; - set SAGE_Q2,1; + SAGE_Q2 = 1; changequest 2049,2060; mes "[Aebecee George]"; mes "Why don't you ask a thief pal for help?"; @@ -2215,7 +2215,7 @@ yuno_in03,244,31,3 script Physics Professor#sa 2_M_PHARMACIST,{ mes "[Aebecee George]"; mes "I will give you these elemental ores...but...they are not for free."; mes "Whoa there cowboy! Don't pull out so soon~ Listen, tee hee~"; - set SAGE_Q2,2; + SAGE_Q2 = 2; changequest 2060,2061; next; mes "[Aebecee George]"; @@ -2274,7 +2274,7 @@ yuno_in03,244,31,3 script Physics Professor#sa 2_M_PHARMACIST,{ mes "[Aebecee George]"; mes "When you come to the next class, bring ^3355FF1 Holy Water^000000~"; mes "I hope you have at least one Priest friend. Oh, you don't? Well, it couldn't hurt to get friendly with one."; - set SAGE_Q2,3; + SAGE_Q2 = 3; changequest 2061,2062; close; } @@ -2323,8 +2323,8 @@ yuno_in03,244,31,3 script Physics Professor#sa 2_M_PHARMACIST,{ mes "[Aebecee George]"; mes "Well, that's it. You can write your thesis with what I've taught you!"; mes "Tee hee~ yes! Yes! I am the best teacher in the world! Oh, I am on fire! Tee hee~"; - set SAGE_Q2,0; - set SAGE_Q,14; + SAGE_Q2 = 0; + SAGE_Q = 14; changequest 2062,2051; next; mes "[Aebecee George]"; @@ -2491,7 +2491,7 @@ yuno_in03,244,31,3 script Physics Professor#sa 2_M_PHARMACIST,{ next; mes "................................."; next; - set SAGE_Q,15; + SAGE_Q = 15; changequest 2051,2052; mes "[Aebecee George]"; mes "Tee hee, so... are you done with your thesis? What do you think of your work? I think you did fine~"; @@ -2584,7 +2584,7 @@ OnInit: OnEnable: enablenpc "Arena#1"; - set .MyMobs,16; + .MyMobs = 16; monster "job_sage",111,102,"Grade F",1183,1,"Arena#1::OnMyMobDead"; monster "job_sage",120,102,"Grade F",1183,1,"Arena#1::OnMyMobDead"; monster "job_sage",111,93,"Grade F",1183,1,"Arena#1::OnMyMobDead"; @@ -2609,7 +2609,7 @@ OnReset: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_sage"," " + strcharinfo(0) + ", successfully defeat all the monsters.",bc_map; donpcevent "Arena#2::OnEnable"; @@ -2682,7 +2682,7 @@ OnEnable: enablenpc "Arena#2"; donpcevent "Arena#1::OnReset"; disablenpc "Arena#1"; - set .MyMobs,24; + .MyMobs = 24; monster "job_sage",111,102,"Numerical Value",1063,1,"Arena#2::OnMyMobDead"; monster "job_sage",111,102,"Physics",1063,1,"Arena#2::OnMyMobDead"; monster "job_sage",111,102,"History",1063,1,"Arena#2::OnMyMobDead"; @@ -2715,7 +2715,7 @@ OnReset: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_sage"," " + strcharinfo(0) + ", successfully defeat all the monsters.",bc_map; donpcevent "Arena#Doorkeeper::OnEnable"; @@ -2785,7 +2785,7 @@ OnEnable: enablenpc "Arena#Doorkeeper"; donpcevent "Arena#2::OnReset"; disablenpc "Arena#2"; - set .MyMobs,1; + .MyMobs = 1; monster "job_sage",116,97,"Academic Probation",1179,1,"Arena#Doorkeeper::OnMyMobDead"; initnpctimer; end; @@ -2800,10 +2800,10 @@ OnDisable: end; OnMyMobDead: - set .MyMobs,.MyMobs-1; + --.MyMobs; if (.MyMobs < 1) { mapannounce "job_sage","Congratulations, " + strcharinfo(0) + ". You passed the test.",bc_map; - set SAGE_Q,8; + SAGE_Q = 8; donpcevent "Test Helper#sg::OnEnable"; disablenpc "Arena#Doorkeeper"; stopnpctimer; diff --git a/npc/jobs/2-2a/Champion.txt b/npc/jobs/2-2a/Champion.txt index 7f0f743cd..72eed8840 100644 --- a/npc/jobs/2-2a/Champion.txt +++ b/npc/jobs/2-2a/Champion.txt @@ -15,7 +15,7 @@ valkyrie,53,42,3 script Champion#Valkyrie 1_M_HOF,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Champion]"; mes "Congratulations."; @@ -62,7 +62,7 @@ valkyrie,53,42,3 script Champion#Valkyrie 1_M_HOF,{ close; } jobchange Job_Champion; - set ADVJOB,0; + ADVJOB = 0; mes "[Champion]"; mes "Congratulations!"; mes "Live as a Champion,"; diff --git a/npc/jobs/2-2a/Clown.txt b/npc/jobs/2-2a/Clown.txt index 1d9b200bf..173aedb40 100644 --- a/npc/jobs/2-2a/Clown.txt +++ b/npc/jobs/2-2a/Clown.txt @@ -17,7 +17,7 @@ valkyrie,53,54,3 script Minstrel#Valkyrie 2_M_BARD_ORIENT,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Minstrel]"; mes "Congratulations."; @@ -58,7 +58,7 @@ valkyrie,53,54,3 script Minstrel#Valkyrie 2_M_BARD_ORIENT,{ close; } jobchange Job_Clown; - set ADVJOB,0; + ADVJOB = 0; mes "[Minstrel]"; mes "Congratulations!"; mes "As a Minstrel, your"; diff --git a/npc/jobs/2-2a/Gypsy.txt b/npc/jobs/2-2a/Gypsy.txt index f8d80cc29..b265cc921 100644 --- a/npc/jobs/2-2a/Gypsy.txt +++ b/npc/jobs/2-2a/Gypsy.txt @@ -15,7 +15,7 @@ valkyrie,53,56,3 script Gypsy#Valkyrie 4W_F_01,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Gypsy]"; mes "Congratulations."; @@ -58,7 +58,7 @@ valkyrie,53,56,3 script Gypsy#Valkyrie 4W_F_01,{ close; } jobchange Job_Gypsy; - set ADVJOB,0; + ADVJOB = 0; mes "[Gypsy]"; mes "Congratulations!"; mes "As a Gypsy, I know"; diff --git a/npc/jobs/2-2a/Paladin.txt b/npc/jobs/2-2a/Paladin.txt index 9bd6a46f0..ec97506d3 100644 --- a/npc/jobs/2-2a/Paladin.txt +++ b/npc/jobs/2-2a/Paladin.txt @@ -15,7 +15,7 @@ valkyrie,53,39,3 script Paladin#Valkyrie 4_M_CRU_OLD,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Paladin]"; mes "Congratulations."; @@ -59,7 +59,7 @@ valkyrie,53,39,3 script Paladin#Valkyrie 4_M_CRU_OLD,{ close; } jobchange Job_Paladin; - set ADVJOB,0; + ADVJOB = 0; mes "[Paladin]"; mes "Congratulations."; mes "As a Paladin, I hope"; diff --git a/npc/jobs/2-2a/Professor.txt b/npc/jobs/2-2a/Professor.txt index b42e1627a..68cac14cf 100644 --- a/npc/jobs/2-2a/Professor.txt +++ b/npc/jobs/2-2a/Professor.txt @@ -15,7 +15,7 @@ valkyrie,53,47,3 script Scholar#Valkyrie 2_M_SAGE_OLD,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Scholar]"; mes "Congratulations."; @@ -66,7 +66,7 @@ valkyrie,53,47,3 script Scholar#Valkyrie 2_M_SAGE_OLD,{ close; } jobchange Job_Professor; - set ADVJOB,0; + ADVJOB = 0; mes "[Scholar]"; mes "Congratulations!"; mes "As a Professor, I hope"; diff --git a/npc/jobs/2-2a/Stalker.txt b/npc/jobs/2-2a/Stalker.txt index fbc1e060c..34ec24935 100644 --- a/npc/jobs/2-2a/Stalker.txt +++ b/npc/jobs/2-2a/Stalker.txt @@ -15,7 +15,7 @@ valkyrie,53,58,3 script Stalker#Valkyrie 4_F_ROGUE,{ if (ADVJOB == 0 || Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Stalker]"; mes "Congratulations."; @@ -67,7 +67,7 @@ valkyrie,53,58,3 script Stalker#Valkyrie 4_F_ROGUE,{ close; } jobchange Job_Stalker; - set ADVJOB,0; + ADVJOB = 0; mes "[Stalker]"; mes "Congratulations!"; mes "As a Stalker, I hope"; diff --git a/npc/jobs/2-2e/SoulLinker.txt b/npc/jobs/2-2e/SoulLinker.txt index 597407909..300928c5d 100644 --- a/npc/jobs/2-2e/SoulLinker.txt +++ b/npc/jobs/2-2e/SoulLinker.txt @@ -156,7 +156,7 @@ morocc_in,174,30,6 script Kid#link1 4_M_KID2,{ mes "and talk to me at any time."; close; } - set SOUL_Q,1; + SOUL_Q = 1; setquest 6005; mes "[Kid]"; mes "So you want to become"; @@ -197,7 +197,7 @@ morocc_in,174,30,6 script Kid#link1 4_M_KID2,{ delitem 732,1; //Crystal_Jewel__ delitem 929,1; //Immortal_Heart delitem 748,1; //Witherless_Rose - set SOUL_Q,2; + SOUL_Q = 2; changequest 6005,6006; mes "[Kid]"; mes "Great, I see that you've"; @@ -246,7 +246,7 @@ morocc_in,174,30,6 script Kid#link1 4_M_KID2,{ mes "to wait for very long."; close; } - set SOUL_Q,0; + SOUL_Q = 0; mes "[Kid]"; mes "You've become a warrior"; mes "of the Sun, the Moon and"; @@ -276,7 +276,7 @@ morocc_in,174,30,6 script Kid#link1 4_M_KID2,{ close; } donpcevent "Timer#link3::OnEnable"; - set .SoulLinkerTest,1; + .SoulLinkerTest = 1; mes "[Maia]"; mes "Great, I've finished"; mes "the preparations. Now"; @@ -314,7 +314,7 @@ morocc_in,174,30,6 script Kid#link1 4_M_KID2,{ close; } donpcevent "Timer#link3::OnEnable"; - set .SoulLinkerTest,1; + .SoulLinkerTest = 1; mes "[Maia]"; mes "Alright then, close"; mes "your eyes and relax."; @@ -327,7 +327,7 @@ morocc_in,174,30,6 script Kid#link1 4_M_KID2,{ } OnInit: - set .SoulLinkerTest,0; + .SoulLinkerTest = 0; end; } @@ -360,7 +360,7 @@ OnTouch: mes "will be able to call upon"; mes "more spirits as a Soul Linker."; next; - set SOUL_Q,3; + SOUL_Q = 3; changequest 6006,6007; mes "[Maia]"; mes "We can only remain in"; @@ -445,7 +445,7 @@ OnTouch: completequest 6008; callfunc "Job_Change",Job_Soul_Linker; callfunc "F_ClearJobVar"; // clears all job variables for the current player - set SOUL_Q,0; + SOUL_Q = 0; mes "[Maia]"; mes "I wish the best of luck"; mes "in your new life. Surround"; @@ -519,7 +519,7 @@ job_soul,30,35,6 script Monk Spirit#link4 4_M_GRANDMONK,{ mes "is the only chance that I can"; mes "possibly have to do this."; next; - set SOUL_Q,4; + SOUL_Q = 4; if (!questprogress(6008)) { changequest 6007,6008; } @@ -568,7 +568,7 @@ job_soul,30,25,7 script Sage Spirit#link5 4_M_SAGE_A,{ mes "it. But to do that, I shall"; mes "require your help. I beg you,"; mes "let me become your spirit ally."; - set SOUL_Q,4; + SOUL_Q = 4; if (!questprogress(6008)) { changequest 6007,6008; } @@ -612,7 +612,7 @@ job_soul,25,30,5 script Alchemist Spirit#link7 4_F_ALCHE,{ mes "passed away. I cannot go"; mes "on to the next world until I've"; mes "passed on my techniques..."; - set SOUL_Q,4; + SOUL_Q = 4; if (!questprogress(6008)) { changequest 6007,6008; } diff --git a/npc/jobs/novice/supernovice.txt b/npc/jobs/novice/supernovice.txt index 2887b2ae3..7411e3533 100644 --- a/npc/jobs/novice/supernovice.txt +++ b/npc/jobs/novice/supernovice.txt @@ -209,7 +209,7 @@ aldeba_in,223,167,3 script Tzerero#sn 4_M_SEAMAN,{ mes "an ordinary number."; mes "Hahahahaha~"; next; - set SUPNOV_Q,1; + SUPNOV_Q = 1; setquest 6010; mes "[Tzerero]"; mes "Good luck, my friend."; @@ -430,7 +430,7 @@ aldebaran,54,238,5 script Kafra Employee#sn 4_F_KAFRA1,{ close; } if (Zeny >= 1899) { - set RESRVPTS, RESRVPTS + 190; + RESRVPTS += 190; Zeny -= 1900; if (getskilllv("MC_PUSHCART") > 0) setcart; mes "[Kafra Employee]"; diff --git a/npc/jobs/valkyrie.txt b/npc/jobs/valkyrie.txt index 651fd2b65..0439033b9 100644 --- a/npc/jobs/valkyrie.txt +++ b/npc/jobs/valkyrie.txt @@ -143,12 +143,12 @@ valkyrie,48,86,4 script Valkyrie# 4_F_VALKYRIE,{ mes "One..."; mes "Two......"; mes "And Three."; - set ADVJOB, Class+Job_Novice_High; //memo the target 3rd Job ID - if(ADVJOB == Job_Lord_Knight2) set ADVJOB,Job_Lord_Knight; - if(ADVJOB == Job_Paladin2) set ADVJOB,Job_Paladin; + ADVJOB = Class+Job_Novice_High; //memo the target 3rd Job ID + if(ADVJOB == Job_Lord_Knight2) ADVJOB = Job_Lord_Knight; + if(ADVJOB == Job_Paladin2) ADVJOB = Job_Paladin; jobchange Job_Novice_High; resetlvl(1); - set MISC_QUEST,MISC_QUEST | 1024; //<-reset Skill Reset Event + MISC_QUEST |= 1024; //<-reset Skill Reset Event skill 142,1,0; skill 143,1,0; completequest 1000; @@ -232,7 +232,7 @@ yuno_in02,88,164,5 script Metheus Sylphe#Library 2_M_SAGE_B,{ if (select("Donate.:Cancel.") == 1) { if (Zeny >= 1285000) { Zeny -= 1285000; - set valkyrie_Q,1; + valkyrie_Q = 1; mes "[Metheus Sylphe]"; mes "Thank you, your donation will be used for a good cause. You may"; mes "now go in and read the book."; @@ -324,7 +324,7 @@ yuno_in02,93,207,1 script Book of Ymir HIDDEN_NPC,{ mes "So, I am leaving this record in hope that someone in the future"; mes "can confirm that Valkyrie and Valhalla actually exist..."; next; - set valkyrie_Q,2; + valkyrie_Q = 2; if(!questprogress(1000)) { setquest 1000; } @@ -352,7 +352,7 @@ yuno_in05,49,43,1 script Heart of Ymir HIDDEN_NPC,{ valkyrie,44,33,5 script Teleporter 4_F_TELEPORTER,{ if (Upper != 1) { - set .@karma_d,rand(1,10); + .@karma_d = rand(1,10); if (.@karma_d > 4) { mes "[Teleporter]"; mes "Congratulations."; diff --git a/npc/kafras/dts_warper.txt b/npc/kafras/dts_warper.txt index 560d96e01..3f2c6870d 100644 --- a/npc/kafras/dts_warper.txt +++ b/npc/kafras/dts_warper.txt @@ -57,9 +57,9 @@ einbroch,246,70,0 script Vote Timer#ein -1,{ OnInit: if ($dts) { - set $dts,0; - set $dtsvote,0; - set $dtsday,0; + $dts = 0; + $dtsvote = 0; + $dtsday = 0; } initnpctimer; end; @@ -120,45 +120,45 @@ OnTimer60000: if ($DTS_JondaVotes > $DTS_KafraVotes) { if ($DTS_JondaWins == 0) { if ($DTS_KafraWins < 2) { - set $DTS_KafraWins,$DTS_KafraWins+1; - set $DTS_Result,1; - set $DTS_Time,0; + ++$DTS_KafraWins; + $DTS_Result = 1; + $DTS_Time = 0; donpcevent "Scrutiny Association#6::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } else if ($DTS_KafraWins == 2) { - set $DTS_Result,1; - set $DTS_Time,0; + $DTS_Result = 1; + $DTS_Time = 0; donpcevent "Scrutiny Association#6::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } } else if ($DTS_JondaWins == 1) { if ($DTS_KafraWins < 2) { - set $DTS_KafraWins,$DTS_KafraWins+1; - set $DTS_Result,1; - set $DTS_Time,0; + ++$DTS_KafraWins; + $DTS_Result = 1; + $DTS_Time = 0; donpcevent "Scrutiny Association#6::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } else { - set $DTS_Time,0; - set $DTS_Result,1; + $DTS_Time = 0; + $DTS_Result = 1; donpcevent "Scrutiny Association#6::OnEnable"; donpcevent "Vote Timer3#ein::OnEnable"; } } else { if ($DTS_KafraWins < 2) { - set $DTS_KafraWins,$DTS_KafraWins+1; - set $DTS_Result,1; - set $DTS_Time,0; + ++$DTS_KafraWins; + $DTS_Result = 1; + $DTS_Time = 0; donpcevent "Scrutiny Association#6::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } else { - set $DTS_Result,1; - set $DTS_Time,0; + $DTS_Result = 1; + $DTS_Time = 0; donpcevent "Scrutiny Association#6::OnEnable"; donpcevent "Vote Timer3#ein::OnEnable"; } @@ -167,45 +167,45 @@ OnTimer60000: else { if ($DTS_KafraWins == 0) { if ($DTS_JondaWins < 2) { - set $DTS_JondaWins,$DTS_JondaWins+1; - set $DTS_Result,2; - set $DTS_Time,0; + ++$DTS_JondaWins; + $DTS_Result = 2; + $DTS_Time = 0; donpcevent "Scrutiny Association#7::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } else { - set $DTS_Result,2; - set $DTS_Time,0; + $DTS_Result = 2; + $DTS_Time = 0; donpcevent "Scrutiny Association#7::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } } else if ($DTS_KafraWins == 1) { if ($DTS_JondaWins < 2) { - set $DTS_JondaWins,$DTS_JondaWins+1; - set $DTS_Result,2; - set $DTS_Time,0; + ++$DTS_JondaWins; + $DTS_Result = 2; + $DTS_Time = 0; donpcevent "Scrutiny Association#7::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } else { - set $DTS_Result,2; - set $DTS_Time,0; + $DTS_Result = 2; + $DTS_Time = 0; donpcevent "Scrutiny Association#7::OnEnable"; donpcevent "Vote Timer4#ein::OnEnable"; } } else { if ($DTS_JondaWins < 2) { - set $DTS_JondaWins,$DTS_JondaWins+1; - set $DTS_Result,2; - set $DTS_Time,0; + ++$DTS_JondaWins; + $DTS_Result = 2; + $DTS_Time = 0; donpcevent "Scrutiny Association#7::OnEnable"; donpcevent "Vote Timer2#ein::OnEnable"; } else { - set $DTS_Result,2; - set $DTS_Time,0; + $DTS_Result = 2; + $DTS_Time = 0; donpcevent "Scrutiny Association#7::OnEnable"; donpcevent "Vote Timer4#ein::OnEnable"; } @@ -213,13 +213,13 @@ OnTimer60000: } } else { - set $DTS_Result,3; - set $DTS_Time,0; + $DTS_Result = 3; + $DTS_Time = 0; donpcevent "Vote Timer#ein::OnEnable"; } } else { - set $DTS_Time,$DTS_Time+1; + ++$DTS_Time; donpcevent "Vote Timer#ein::OnEnable"; } } @@ -234,15 +234,14 @@ OnEnable: OnTimer60000: stopnpctimer; if ($DTS_PeriodCheck == 8640) { - set $DTS_PeriodCheck,0; - set $DTS_Result,0; - set $DTS_KafraVotes,0; - set $DTS_JondaVotes,0; - set $DTS_VoteCount,$DTS_VoteCount+1; + $DTS_PeriodCheck = 0; + $DTS_Result = 0; + $DTS_KafraVotes = 0; + $DTS_JondaVotes = 0; + ++$DTS_VoteCount; donpcevent "Vote Timer#ein::OnEnable"; - } - else { - set $DTS_PeriodCheck,$DTS_PeriodCheck+1; + } else { + ++$DTS_PeriodCheck; donpcevent "Vote Timer2#ein::OnEnable"; } end; @@ -256,16 +255,15 @@ OnEnable: OnTimer60000: stopnpctimer; if ($DTS_PeriodCheck == 8640) { - set $DTS_PeriodCheck,0; //Global Variable - set $DTS_Result,0; //Global Variable - set $DTS_KafraVotes,0; //Global Variable - set $DTS_JondaVotes,0; //Global Variable - set $DTS_JondaWins,$DTS_JondaWins-1; - set $DTS_VoteCount,$DTS_VoteCount+1; + $DTS_PeriodCheck = 0; //Global Variable + $DTS_Result = 0; //Global Variable + $DTS_KafraVotes = 0; //Global Variable + $DTS_JondaVotes = 0; //Global Variable + --$DTS_JondaWins; + ++$DTS_VoteCount; donpcevent "Vote Timer#ein::OnEnable"; - } - else { - set $DTS_PeriodCheck,$DTS_PeriodCheck+1; //Global Variable + } else { + ++$DTS_PeriodCheck; //Global Variable donpcevent "Vote Timer3#ein::OnEnable"; } end; @@ -279,16 +277,15 @@ OnEnable: OnTimer60000: stopnpctimer; if ($DTS_PeriodCheck == 8640) { - set $DTS_PeriodCheck,0; //Global Variable - set $DTS_Result,0; //Global Variable - set $DTS_KafraVotes,0; //Global Variable - set $DTS_JondaVotes,0; //Global Variable - set $DTS_KafraWins,$DTS_KafraWins-1; - set $DTS_VoteCount,$DTS_VoteCount+1; + $DTS_PeriodCheck = 0; //Global Variable + $DTS_Result = 0; //Global Variable + $DTS_KafraVotes = 0; //Global Variable + $DTS_JondaVotes = 0; //Global Variable + --$DTS_KafraWins; + ++$DTS_VoteCount; donpcevent "Vote Timer#ein::OnEnable"; - } - else { - set $DTS_PeriodCheck,$DTS_PeriodCheck+1; //Global Variable + } else { + ++$DTS_PeriodCheck; //Global Variable donpcevent "Vote Timer4#ein::OnEnable"; } end; @@ -405,8 +402,8 @@ function script F_VoteKafra { mes "have a good day, adventurer."; break; case 2: - set lhz_vote,$DTS_VoteCount+1; - set $DTS_KafraVotes,$DTS_KafraVotes+1; + lhz_vote = $DTS_VoteCount+1; + ++$DTS_KafraVotes; mes "[Kafra Voting Staff]"; mes "Thanks for your vote!"; mes "We'll continue to do our best"; @@ -474,8 +471,8 @@ function script F_VoteKafra { mes "have a good day, adventurer."; break; case 2: - set lhz_vote,$DTS_VoteCount+1; - set $DTS_KafraVotes,$DTS_KafraVotes+1; + lhz_vote = $DTS_VoteCount+1; + ++$DTS_KafraVotes; mes "[Kafra Voting Staff]"; mes "Thanks for your vote!"; mes "We'll continue to do our best"; @@ -810,8 +807,8 @@ lighthalzen,163,60,4 script Kafra Voting Staff#lght 4_F_KAFRA9,{ mes "Corp, alright? Have a nice day~"; break; case 2: - set lhz_vote,$DTS_VoteCount+1; - set $DTS_JondaVotes,$DTS_JondaVotes+1; + lhz_vote = $DTS_VoteCount+1; + ++$DTS_JondaVotes; mes "[Cool Event Corp. Voting Staff]"; mes "Thank you for your vote!"; mes "It's customers like you who"; @@ -882,8 +879,8 @@ lighthalzen,163,60,4 script Kafra Voting Staff#lght 4_F_KAFRA9,{ mes "Corp, alright? Have a nice day~"; break; case 2: - set lhz_vote,$DTS_VoteCount+1; - set $DTS_JondaVotes,$DTS_JondaVotes+1; + lhz_vote = $DTS_VoteCount+1; + ++$DTS_JondaVotes; mes "[Cool Event Corp. Voting Staff]"; mes "Thank you for your vote!"; mes "It's customers like you who"; @@ -1202,7 +1199,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "Current Setitem value is "+lhz_vote+"."; close; case 2: - set lhz_vote,0; + lhz_vote = 0; close; case 3: mes "[Christy's Maid]"; @@ -1219,7 +1216,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_Time,.@input; + $DTS_Time = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; @@ -1233,7 +1230,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_JondaVotes,.@input; + $DTS_JondaVotes = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; @@ -1247,7 +1244,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_KafraVotes,.@input; + $DTS_KafraVotes = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; @@ -1261,7 +1258,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_Result,.@input; + $DTS_Result = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; @@ -1275,7 +1272,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_PeriodCheck,.@input; + $DTS_PeriodCheck = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; @@ -1289,7 +1286,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_KafraWins,.@input; + $DTS_KafraWins = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; @@ -1303,7 +1300,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_JondaWins,.@input; + $DTS_JondaWins = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; @@ -1317,7 +1314,7 @@ sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{ mes "The value is incorrect."; close; } - set $DTS_VoteCount,.@input; + $DTS_VoteCount = .@input; mes "[Christy's Maid]"; mes "The value has been modified."; close; diff --git a/npc/kafras/functions_kafras.txt b/npc/kafras/functions_kafras.txt index 28fe32b95..329d0fee4 100644 --- a/npc/kafras/functions_kafras.txt +++ b/npc/kafras/functions_kafras.txt @@ -428,7 +428,7 @@ function script F_KafCart { //=================================================== function script F_KafInfo { // Uncomment next line to block Kafra Storage Protection - //set .@block, 1; + //.@block = 1; setarray .@m$, "Check Special Reserve Points.","Storage Password Service","Kafra Employee Locations","Cancel"; if (getarg(0) == 2) deletearray .@m$[1],2; // Port Malaya, Rune Knight: remove Storage Password and Kafra Employee Locations else if (.@block) deletearray .@m$[1],1; // Remove Storage Password diff --git a/npc/kafras/kafras.txt b/npc/kafras/kafras.txt index e52d195ce..235a0da0f 100644 --- a/npc/kafras/kafras.txt +++ b/npc/kafras/kafras.txt @@ -67,7 +67,7 @@ aldeba_in,96,181,4 script Kafra Service 4_F_KAFRA5,{ mes "I'll access your Storage for you."; next; Zeny -= 20; - set RESRVPTS, RESRVPTS + (20/5); + RESRVPTS += (20/5); mes "[Kafra Leilah]"; mes "In the future, please"; mes "ask the Kafra Employee on"; diff --git a/npc/merchants/advanced_refiner.txt b/npc/merchants/advanced_refiner.txt index 853e82f5e..6d19d68e4 100644 --- a/npc/merchants/advanced_refiner.txt +++ b/npc/merchants/advanced_refiner.txt @@ -35,20 +35,20 @@ payon,157,146,6 script Suhnbi#cash 4_M_03,{ next; setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3"; - set .@menu$,""; - for(set .@i,1; .@i<=10; set .@i,.@i+1) { + .@menu$ = ""; + for(.@i = 1; .@i<=10; ++.@i) { if (getequipisequiped(.@i)) { - set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]"; - set .@equipped,1; + .@menu$ += .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]"; + .@equipped = 1; } - set .@menu$, .@menu$ + ":"; + .@menu$ += ":"; } if (.@equipped == 0) { mes "[Suhnbi]"; mes "I don't think I can refine any items you have..."; close; } - set .@part, select(.@menu$); + .@part = select(.@menu$); if (!getequipisequiped(.@part)) //custom check close; diff --git a/npc/merchants/alchemist.txt b/npc/merchants/alchemist.txt index dfb9a68b4..91dc048c9 100644 --- a/npc/merchants/alchemist.txt +++ b/npc/merchants/alchemist.txt @@ -60,8 +60,8 @@ alde_alche,24,188,3 script Guild Dealer 2_M_ALCHE,{ break; } } - set .@sell,.@input * 8; - set .@item_weight,.@input * 10; + .@sell = .@input * 8; + .@item_weight = .@input * 10; if (Zeny < .@sell) { mes "[Gever Al Sharp]"; mes "You don't"; diff --git a/npc/merchants/cashheadgear_dye.txt b/npc/merchants/cashheadgear_dye.txt index f2d739aba..f9a6cd089 100644 --- a/npc/merchants/cashheadgear_dye.txt +++ b/npc/merchants/cashheadgear_dye.txt @@ -15,7 +15,7 @@ prt_in,253,168,4 script Alora 4_F_LGTGIRL,{ // Mysterious Dyestuff - set .@dyeID, 6220; + .@dyeID = 6220; // Headgear Choices setarray .@hgn$[1], "Mage Hat","Beanie","Drooping Cat","Deviruchi Hat","Wig","Ribbon","Magestic Goat"; // Mage Hats - Normal, Yellow, Blue, Brown, Gray, Red @@ -39,12 +39,12 @@ prt_in,253,168,4 script Alora 4_F_LGTGIRL,{ mes "[Alora]"; mes "Do you have a headgear that you would like to dye?"; next; - for(set .@i,1; .@i < getarraysize(.@hgn$); set .@i,.@i+1) { - if(.@i == 1) set .@menu$, .@hgn$[.@i]; - else set .@menu$, .@menu$ +":"+ .@hgn$[.@i]; + for(.@i = 1; .@i < getarraysize(.@hgn$); ++.@i) { + if(.@i == 1) .@menu$ = .@hgn$[.@i]; + else .@menu$ += ":"+ .@hgn$[.@i]; } - set .@menu$, .@menu$ +":Cancel"; - set .@t, select(.@menu$); + .@menu$ += ":Cancel"; + .@t = select(.@menu$); if(.@t == getarraysize(.@hgn$)) { mes "[Alora]"; mes "Have a good journey adventurer!"; @@ -54,24 +54,24 @@ prt_in,253,168,4 script Alora 4_F_LGTGIRL,{ mes "[Alora]"; mes "Okay, what color do you want to change it to?"; next; - for(set .@i,1; .@i < getarraysize(getd(".@hg_"+.@t+"")); set .@i,.@i+1) { + for(.@i = 1; .@i < getarraysize(getd(".@hg_"+.@t+"")); ++.@i) { if(.@i == 1 && .@t != 5) - set .@menu$, "Normal"; + .@menu$ = "Normal"; else if(.@i == 1 && .@t == 5) - set .@menu$, getitemname(getd(".@hg_"+.@t+"["+.@i+"]")); + .@menu$ = getitemname(getd(".@hg_"+.@t+"["+.@i+"]")); else { sscanf(getitemname(getd(".@hg_"+.@t+"["+.@i+"]")),"%s "+ .@hgn$[.@t],.@colour$); - set .@menu$, .@menu$ +":"+ .@colour$; + .@menu$ += ":"+ .@colour$; } } - set .@menu$, .@menu$ +":Cancel"; - set .@c, select(.@menu$); + .@menu$ += ":Cancel"; + .@c = select(.@menu$); if(.@c == getarraysize(getd(".@hg_"+.@t+""))) { mes "[Alora]"; mes "Oh, okay no problem!"; close; } - set .@dyHG, getd(".@hg_"+.@t+"["+.@c+"]"); + .@dyHG = getd(".@hg_"+.@t+"["+.@c+"]"); mes "[Alora]"; mes "Oh I'm so excited aren't you?"; mes "And just to be sure, what color is the "+ .@hgn$[.@t] +" you want me to use?"; @@ -85,18 +85,18 @@ prt_in,253,168,4 script Alora 4_F_LGTGIRL,{ mes "["+ strcharinfo(0) +"]"; mes "Ok, thanks for the warning, I think I'll give you my"; next; - set .@menu$, "Nevermind"; - for(set .@i,1; .@i < getarraysize(getd(".@hg_"+.@t+"")); set .@i,.@i+1) { - if(.@i == 1) set .@menu$, .@menu$ +":Normal "+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]")); - else set .@menu$, .@menu$ +":"+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]")); + .@menu$ = "Nevermind"; + for(.@i = 1; .@i < getarraysize(getd(".@hg_"+.@t+"")); ++.@i) { + if(.@i == 1) .@menu$ += ":Normal "+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]")); + else .@menu$ += ":"+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]")); } - set .@mine, select(.@menu$) - 1; + .@mine = select(.@menu$) - 1; if(!.@mine) { mes "[Alora]"; mes "It's best to be very sure, have a safe journey."; close; } - set .@myHG, getd(".@hg_"+.@t+"["+.@mine+"]"); + .@myHG = getd(".@hg_"+.@t+"["+.@mine+"]"); if(.@dyHG == .@myHG) { mes "[Alora]"; mes "Woah what happened?"; diff --git a/npc/merchants/clothes_dyer.txt b/npc/merchants/clothes_dyer.txt index 94fab1d5c..b7e90febf 100644 --- a/npc/merchants/clothes_dyer.txt +++ b/npc/merchants/clothes_dyer.txt @@ -22,9 +22,9 @@ prt_in,284,168,2 script Dyer Ginedin Rephere 1_M_JOBTESTER,{ function Dyes; - set .@EnableDyes,1; // Disable (set to 0) if palettes cause errors [see note v2.4] + .@EnableDyes = 1; // Disable (set to 0) if palettes cause errors [see note v2.4] - set .n$,"[Dyer Ginedin Rephere]"; + .n$ = "[Dyer Ginedin Rephere]"; mes .n$; mes "11... 12... Mmm... good. I think I'll be able to finish before tonight's party. Oh! I didn't notice you were here!"; while(1) { @@ -135,11 +135,11 @@ L_End: function Dyes { setarray .@DyeName$[0],"the default color","Orange","Violet","Red","Black","Green","Blue","White","Yellow"; setarray .@DyeItems[0],0,980,981,975,983,979,978,982,976; - set .@menu$,"- Default:"; - for(set .@i,0; .@i<getargcount(); set .@i,.@i+2) - set .@menu$, .@menu$+"- "+.@DyeName$[getarg(.@i)]+":"; - set .@menu$, .@menu$+"- ^777777Cancel^000000"; - set .@s, select(.@menu$)-1; + .@menu$ = "- Default:"; + for(.@i = 0; .@i<getargcount(); .@i += 2) + .@menu$ += "- "+.@DyeName$[getarg(.@i)]+":"; + .@menu$ += "- ^777777Cancel^000000"; + .@s = select(.@menu$)-1; if (.@s == (getargcount()/2)+1) goto L_End; mes .n$; if (.@s == 0) { diff --git a/npc/merchants/coin_exchange.txt b/npc/merchants/coin_exchange.txt index 160a7e5bc..5a63c5708 100644 --- a/npc/merchants/coin_exchange.txt +++ b/npc/merchants/coin_exchange.txt @@ -16,7 +16,7 @@ // Manuk & Splendide //============================================================ - script ::merchant_13_2 -1,{ - set .@n$, "["+strnpcinfo(1)+"]"; + .@n$ = "["+strnpcinfo(1)+"]"; mes .@n$; if (isequipped(2782) && ep13_2_rhea == 100) { if (!checkweight(1201,1)) { @@ -29,15 +29,15 @@ next; if (strnpcinfo(1) == "Merchant of Manuk") { setarray .@items[2],12342,12343,12348; - set .@Book,11019; //Manuk_Selling_Item - set .@coin,6080; //Manuk_Coin - set .@i, select("View item description:Manuk's Opportunity:Manuk's Courage:Manuk's Faith:Cancel"); + .@Book = 11019; //Manuk_Selling_Item + .@coin = 6080; //Manuk_Coin + .@i = select("View item description:Manuk's Opportunity:Manuk's Courage:Manuk's Faith:Cancel"); } else { setarray .@items[2],12344,12345,12349; - set .@Book,11018; //Splendide_Selling_Item - set .@coin,6081; //Splendide_Coin - set .@i, select("View item description:Buy Pinguicula's Fruit Jam:Buy Luciola's Honey Jam:Buy Cornus' Tears:Do nothing"); + .@Book = 11018; //Splendide_Selling_Item + .@coin = 6081; //Splendide_Coin + .@i = select("View item description:Buy Pinguicula's Fruit Jam:Buy Luciola's Honey Jam:Buy Cornus' Tears:Do nothing"); } mes .@n$; if (.@i == 1) { diff --git a/npc/merchants/dye_maker.txt b/npc/merchants/dye_maker.txt index b8ca80d06..bca4ef276 100644 --- a/npc/merchants/dye_maker.txt +++ b/npc/merchants/dye_maker.txt @@ -105,57 +105,57 @@ S_MakeDye: mes "Mmm... I need 30 Red Herbs, 1 Counteragent, and 1 Empty Bottle to make Red Dyestuffs. The fee is only 3000 zeny to make it."; setarray .@item[0], 507, 973, 713; setarray .@count[0], 30, 1, 1; - set .@cost,3000; - set .@dyestuff,975; + .@cost = 3000; + .@dyestuff = 975; break; case 2: mes "Mmm... I need 30 Yellow Herbs, 1 Couneragent, and 1 Empty Bottle to make Lemon Dyestuffs. The fee is only 3000 zeny to make it."; setarray .@item[0], 508, 973, 713; setarray .@count[0], 30, 1, 1; - set .@cost,3000; - set .@dyestuff,976; + .@cost = 3000; + .@dyestuff = 976; break; case 3: mes "Mmm... I need 20 Blue Herbs, 1 Counteragent, and 1 Empty Bottle to make Cobaltblue Dyestuff. It's hard to use the Blue Herb, so the fee is going to be 3500 zeny."; setarray .@item[0], 510, 973, 713; setarray .@count[0], 20, 1, 1; - set .@cost,3500; - set .@dyestuff,978; + .@cost = 3500; + .@dyestuff = 978; break; case 4: mes "Mmm... I need 5 Blue Herbs, 20 Green Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle to make Darkgreen Dyestuffs. Don't get all of the materials confused. The fee is only 5000 zeny."; setarray .@item[0], 510, 511, 508, 974, 973, 713; setarray .@count[0], 5, 20, 20, 1, 1, 1; - set .@cost,5000; - set .@dyestuff,979; + .@cost = 5000; + .@dyestuff = 979; break; case 5: mes "Mmm... I need 20 Red Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle to make Orange Dyestuff. The fee is going to be 5000 zeny."; setarray .@item[0], 507, 508, 974, 973, 713; setarray .@count[0], 20, 20, 1, 1, 1; - set .@cost,5000; - set .@dyestuff,980; + .@cost = 5000; + .@dyestuff = 980; break; case 6: mes "Mmm... I need 10 Blue Herbs, 30 Red Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle to make Violet Dyestuffs. The fee will be 5000 zeny."; setarray .@item[0], 510, 507, 974, 973, 713; setarray .@count[0], 10, 30, 1, 1, 1; - set .@cost,5000; - set .@dyestuff,981; + .@cost = 5000; + .@dyestuff = 981; break; case 7: mes "Mmm... I need 30 White Herbs, 1 Counteragent, and 1 Empty bottle to make White Dyestuffs. The fee will be 3000 zeny."; setarray .@item[0], 509, 973, 713; setarray .@count[0], 30, 1, 1; - set .@cost,3000; - set .@dyestuff,982; + .@cost = 3000; + .@dyestuff = 982; break; case 8: mes "Mmm... I need 30 of each Red, Yellow, and Green Herb, 5 Blue Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle. The process takes longer and more effort than the others, so it is going to be 7000 zeny."; setarray .@item[0], 507, 508, 511, 510, 974, 973, 713; setarray .@count[0], 30, 30, 30, 5, 1, 1, 1; - set .@cost,7000; - set .@dyestuff,983; + .@cost = 7000; + .@dyestuff = 983; break; } next; @@ -168,9 +168,9 @@ S_MakeDye: } next; if (select("Make Dyestuffs:Cancel") == 1) { - set .@size, getarraysize(.@item); + .@size = getarraysize(.@item); // check requirements - for( set .@i,0 ; .@i < .@size ; set .@i,.@i+1 ) + for (.@i = 0; .@i < .@size; ++.@i) if( countitem(.@item[.@i]) < .@count[.@i] ) break; if( .@i < .@size || Zeny < .@cost ) { @@ -180,7 +180,7 @@ S_MakeDye: close; } // delete items - for (set .@i, 0; .@i < .@size ; set .@i, .@i+1) + for (.@i = 0; .@i < .@size; ++.@i) delitem .@item[.@i], .@count[.@i]; Zeny -= .@cost; // get dyestuff diff --git a/npc/merchants/elemental_trader.txt b/npc/merchants/elemental_trader.txt index a1f255743..bf01c29d3 100644 --- a/npc/merchants/elemental_trader.txt +++ b/npc/merchants/elemental_trader.txt @@ -80,7 +80,7 @@ ama_in02,61,27,7 script Alchemist#ama 4_M_ALCHE_B,{ mes "Uh-huh, what did you bring?"; next; setarray .@items[1],995,997,994,996; - set .@i, .@items[select("Mystic Frozen:Great Nature:Flame Heart:Rough Wind")]; + .@i = .@items[select("Mystic Frozen:Great Nature:Flame Heart:Rough Wind")]; mes "[Laspuchin Gregory]"; if (countitem(.@i) > 7) { mes "I will take 8 of them and"; @@ -91,13 +91,13 @@ ama_in02,61,27,7 script Alchemist#ama 4_M_ALCHE_B,{ mes "[Laspuchin Gregory]"; mes "HeeHee, what do you want? Choose one!"; next; - set .@menu$, ""; - for(set .@j,1; .@j<5; set .@j,.@j+1) { - if (.@items[.@j] != .@i) set .@menu$, .@menu$+getitemname(.@items[.@j]); - set .@menu$, .@menu$+":"; + .@menu$ = ""; + for(.@j = 1; .@j < 5; ++.@j) { + if (.@items[.@j] != .@i) .@menu$ += getitemname(.@items[.@j]); + .@menu$ += ":"; } - set .@menu$, .@menu$+"Cancel the trade"; - set .@j, select(.@menu$); + .@menu$ += "Cancel the trade"; + .@j = select(.@menu$); mes "[Laspuchin Gregory]"; if (.@j == 5) { mes "Oh, well."; diff --git a/npc/merchants/enchan_arm.txt b/npc/merchants/enchan_arm.txt index ee3032440..10aecf6ae 100644 --- a/npc/merchants/enchan_arm.txt +++ b/npc/merchants/enchan_arm.txt @@ -36,25 +36,25 @@ prontera,165,60,2 script Apprentice Craftsman 1_F_MERCHANT_01,{ switch(select("Non Slotted Armor.:Slotted Armor.:High Grade Armor.:Maybe next time.")) { case 1: setarray .@items[0],2307,2309,2314,2316,2321,2325,2327,2328,2330,2332,2334,2335,2341,2344,2346,2348,2350,2337,2386,2394,2395,2396; - set .@j,50; + .@j = 50; break; case 2: setarray .@items[0],2311,2318,2319,2320,2308,2310,2315,2317,2322,2324,2326,2331,2333,2336,2342,2345,2347,2349,2351; - set .@j,55; - set .@k,1; + .@j = 55; + .@k = 1; break; case 3: setarray .@items[0],2364,2365,2391,2374,2375,2376,2377,2378,2379,2380,2381,2382,2387,2388,2389,2390; - set .@j,60; + .@j = 60; break; case 4: mes "[Apprentice Craftsman]"; mes "Please come back when you have any interest in enchanting your armor."; close; } - set .@menu$,""; - for(set .@i,0; .@i<getarraysize(.@items); set .@i,.@i+1) - set .@menu$, .@menu$+getitemname(.@items[.@i])+((.@k)?" [1]":"")+":"; + .@menu$ = ""; + for(.@i = 0; .@i<getarraysize(.@items); ++.@i) + .@menu$ += getitemname(.@items[.@i])+((.@k)?" [1]":"")+":"; callsub S_EnchantArmor, .@items[select(.@menu$)-1], .@j; end; } @@ -65,8 +65,8 @@ prontera,165,60,2 script Apprentice Craftsman 1_F_MERCHANT_01,{ close; S_EnchantArmor: - set .@itemid,getarg(0); - set .@failrate,getarg(1); + .@itemid = getarg(0); + .@failrate = getarg(1); mes "[Apprentice Craftsman]"; if (countitem(.@itemid) == 1) { mes "Socket enchant will cost you 400,000 zeny. And there will be a random option enchanted. Of course, there is a chance of breaking your armor."; @@ -96,42 +96,42 @@ S_EnchantArmor: Zeny -= 400000; delitem .@itemid,1; switch (rand(1,.@failrate)) { - case 1: set .@addpart,4702;break; - case 2: set .@addpart,4712;break; - case 3: set .@addpart,4722;break; - case 4: set .@addpart,4732;break; - case 5: set .@addpart,4742;break; - case 6: set .@addpart,4752;break; + case 1: .@addpart = 4702;break; + case 2: .@addpart = 4712;break; + case 3: .@addpart = 4722;break; + case 4: .@addpart = 4732;break; + case 5: .@addpart = 4742;break; + case 6: .@addpart = 4752;break; case 7: - case 8: set .@addpart,4701;break; + case 8: .@addpart = 4701;break; case 9: - case 10: set .@addpart,4711;break; + case 10: .@addpart = 4711;break; case 11: - case 12: set .@addpart,4721;break; + case 12: .@addpart = 4721;break; case 13: - case 14: set .@addpart,4731;break; + case 14: .@addpart = 4731;break; case 15: - case 16: set .@addpart,4741;break; + case 16: .@addpart = 4741;break; case 17: - case 18: set .@addpart,4751;break; + case 18: .@addpart = 4751;break; case 19: case 20: - case 21: set .@addpart,4700;break; + case 21: .@addpart = 4700;break; case 22: case 23: - case 24: set .@addpart,4710;break; + case 24: .@addpart = 4710;break; case 25: case 26: - case 27: set .@addpart,4720;break; + case 27: .@addpart = 4720;break; case 28: case 29: - case 30: set .@addpart,4730;break; + case 30: .@addpart = 4730;break; case 31: case 32: - case 33: set .@addpart,4740;break; + case 33: .@addpart = 4740;break; case 34: case 35: - case 36: set .@addpart,4750;break; + case 36: .@addpart = 4750;break; default: specialeffect2 EF_PHARMACY_FAIL; mes "[Apprentice Craftsman]"; diff --git a/npc/merchants/gemstone.txt b/npc/merchants/gemstone.txt index 126dbeba4..1737c217f 100644 --- a/npc/merchants/gemstone.txt +++ b/npc/merchants/gemstone.txt @@ -47,7 +47,7 @@ S_TradeGems: close; } else { - set .@gems,countitem(getarg(0))/2; + .@gems = countitem(getarg(0))/2; mes "[Jade]"; mes "I believe I can create"; mes "a total of " + .@gems + " " + getitemname(getarg(1)) + "s"; diff --git a/npc/merchants/hair_dyer.txt b/npc/merchants/hair_dyer.txt index fa4295831..91708d991 100644 --- a/npc/merchants/hair_dyer.txt +++ b/npc/merchants/hair_dyer.txt @@ -58,14 +58,14 @@ prt_in,243,168,4 script Jovovich 4_F_02,{ while(1) { switch(select("Red, please.:Yellow, please.:Violet, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Black, please.:Actually, I like my hair as it is.")) { - case 1: set .@headpalette,8; break; - case 2: set .@headpalette,1; break; - case 3: set .@headpalette,2; break; - case 4: set .@headpalette,3; break; - case 5: set .@headpalette,4; break; - case 6: set .@headpalette,5; break; - case 7: set .@headpalette,6; break; - case 8: set .@headpalette,7; break; + case 1: .@headpalette = 8; break; + case 2: .@headpalette = 1; break; + case 3: .@headpalette = 2; break; + case 4: .@headpalette = 3; break; + case 5: .@headpalette = 4; break; + case 6: .@headpalette = 5; break; + case 7: .@headpalette = 6; break; + case 8: .@headpalette = 7; break; case 9: if (.@choose_success != 0) { mes "[Hairdresser Jovovich]"; @@ -111,7 +111,7 @@ prt_in,243,168,4 script Jovovich 4_F_02,{ } Zeny -= 1000; setlook VAR_HEADPALETTE,.@headpalette; - set .@choose_success,1; + .@choose_success = 1; break; } @@ -203,35 +203,35 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "for using my service and"; mes "I hope you come by again!"; close2; - set .@choose_success,2; + .@choose_success = 2; break; } } while (.@choose_success != 2) { switch(select("Red, please.:Yellow, please.:Purple, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Dark Brown, please.:I like my hair color.")) { case 1: - set .@headpalette,8; + .@headpalette = 8; break; case 2: - set .@headpalette,1; + .@headpalette = 1; break; case 3: - set .@headpalette,2; + .@headpalette = 2; break; case 4: - set .@headpalette,3; + .@headpalette = 3; break; case 5: - set .@headpalette,4; + .@headpalette = 4; break; case 6: - set .@headpalette,5; + .@headpalette = 5; break; case 7: - set .@headpalette,6; + .@headpalette = 6; break; case 8: - set .@headpalette,7; + .@headpalette = 7; break; case 9: if (.@choose_success != 0) { @@ -242,7 +242,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "your beauty and to tell"; mes "the truth, I agree with you~"; close2; - set .@choose_success,2; + .@choose_success = 2; } else { mes "[Rossa]"; @@ -251,7 +251,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "You'd look so good if you dyed"; mes "your hair a different color~"; close2; - set .@choose_success,2; + .@choose_success = 2; } break; } @@ -272,7 +272,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "hair if you didn't bring"; mes "Scarlet Dyestuffs with you..."; close2; - set .@choose_success,2; + .@choose_success = 2; break; } else if ((.@headpalette == 1) && (countitem(976) == 0)) { @@ -282,7 +282,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "hair if you didn't bring"; mes "Lemon Dyestuffs with you..."; close2; - set .@choose_success,2; + .@choose_success = 2; break; } else if ((.@headpalette == 2) && (countitem(981) == 0)) { @@ -292,7 +292,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "hair if you didn't bring"; mes "Violet Dyestuffs with you..."; close2; - set .@choose_success,2; + .@choose_success = 2; break; } else if ((.@headpalette == 3) && (countitem(980) == 0)) { @@ -302,7 +302,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "hair if you didn't bring"; mes "Orange Dyestuffs with you..."; close2; - set .@choose_success,2; + .@choose_success = 2; break; } else if ((.@headpalette == 4) && (countitem(979) == 0)) { @@ -314,7 +314,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "with you. Would you come"; mes "back after you get some?"; close2; - set .@choose_success,2; + .@choose_success = 2; break; } else if ((.@headpalette == 5) && (countitem(978) == 0)) { @@ -326,7 +326,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "with you. Would you come"; mes "back after you get some?"; close2; - set .@choose_success,2; + .@choose_success = 2; break; } else if ((.@headpalette == 6) && (countitem(982) == 0)) { @@ -336,7 +336,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "hair if you didn't bring"; mes "White Dyestuffs with you..."; close2; - set .@choose_success,2; + .@choose_success = 2; break; } else if ((.@headpalette == 7) && (countitem(983) == 0)) { @@ -346,7 +346,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "hair if you didn't bring"; mes "Black Dyestuffs with you..."; close2; - set .@choose_success,2; + .@choose_success = 2; break; } if (Zeny < 1000) { @@ -356,7 +356,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ mes "1,000 zeny. Did you forget"; mes "to bring your money with you?"; close2; - set .@choose_success,2; + .@choose_success = 2; break; } if (.@headpalette == 8) delitem 975,1; //Scarlet_Dyestuffs @@ -369,7 +369,7 @@ lhz_in02,100,134,3 script Hair Dyer#lich 4_F_EINWOMAN,{ else if (.@headpalette == 7) delitem 983,1; //Black_Dyestuffs Zeny -= 1000; setlook VAR_HEADPALETTE,.@headpalette; - set .@choose_success,1; + .@choose_success = 1; break; } } diff --git a/npc/merchants/hair_style.txt b/npc/merchants/hair_style.txt index d1ce1e234..2eb2d4eb4 100644 --- a/npc/merchants/hair_style.txt +++ b/npc/merchants/hair_style.txt @@ -425,28 +425,28 @@ alberta_in,55,142,7 script Hair Dresser 4_F_02,{ next; switch(select("Red.:Yellow.:Purple.:Orange.:Green.:Blue.:White.:Dark Brown.:Cancel.")) { case 1: - set .@pallete,8; + .@pallete = 8; break; case 2: - set .@pallete,1; + .@pallete = 1; break; case 3: - set .@pallete,2; + .@pallete = 2; break; case 4: - set .@pallete,3; + .@pallete = 3; break; case 5: - set .@pallete,4; + .@pallete = 4; break; case 6: - set .@pallete,5; + .@pallete = 5; break; case 7: - set .@pallete,6; + .@pallete = 6; break; case 8: - set .@pallete,7; + .@pallete = 7; break; case 9: mes "[Veronica]"; @@ -1006,28 +1006,28 @@ lhz_in02,100,143,3 script Hair Dresser#li 2_M_DYEINGER,{ next; switch(select("Red:Yellow:Purple:Orange:Green:Blue:White:Dark Brown")) { case 1: - set .@headpalette,8; + .@headpalette = 8; break; case 2: - set .@headpalette,1; + .@headpalette = 1; break; case 3: - set .@headpalette,2; + .@headpalette = 2; break; case 4: - set .@headpalette,3; + .@headpalette = 3; break; case 5: - set .@headpalette,4; + .@headpalette = 4; break; case 6: - set .@headpalette,5; + .@headpalette = 5; break; case 7: - set .@headpalette,6; + .@headpalette = 6; break; case 8: - set .@headpalette,7; + .@headpalette = 7; break; } } @@ -1244,8 +1244,8 @@ lhz_in02,91,155,5 script Assistant Beautician#li 4_F_LGTGIRL,{ mes "Wait, I can..."; mes "I can fix this!"; next; - set .@style_r,rand(1,23); - set .@color_r,rand(1,8); + .@style_r = rand(1,23); + .@color_r = rand(1,8); mes "[Assistant Beautician]"; mes "^333333*Pant Pant Pant*^000000"; next; diff --git a/npc/merchants/hd_refine.txt b/npc/merchants/hd_refine.txt index 0091b36ef..31e3f5cdf 100644 --- a/npc/merchants/hd_refine.txt +++ b/npc/merchants/hd_refine.txt @@ -31,10 +31,10 @@ mes "So lets kick this into overdrive, what d' ya say? What item do you want to refine?"; next; setarray .@position$[1],"Head","Body","Left Hand","Right Hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3"; - set .@menu$,""; - for(set .@i,1; .@i<=10; set .@i,.@i+1) - set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Not equipped]")+":"; - set .@part, select(.@menu$); + .@menu$ = ""; + for(.@i = 1; .@i<=10; ++.@i) + .@menu$ += ((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Not equipped]")+":"; + .@part = select(.@menu$); if (!getequipisequiped(.@part)) { mes "[Blacksmith Mighty Hammer]"; switch(.@part) { @@ -85,15 +85,15 @@ switch(getequipweaponlv(.@part)) { default: case 0: - set .@price,20000; - set .@material,6241; //HD_Elunium + .@price = 20000; + .@material = 6241; //HD_Elunium break; case 1: case 2: case 3: case 4: - set .@price,20000; - set .@material,6240; //HD_Oridecon + .@price = 20000; + .@material = 6240; //HD_Oridecon break; } mes "[Blacksmith Mighty Hammer]"; @@ -170,10 +170,10 @@ lhz_in02,280,19,3 duplicate(MightyHammer) Mighty Hammer#lhz 4_M_DWARF mes "Which equipment do you want to refine?"; next; setarray .@position$[1],"Head","Body","Left Hand","Right Hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3"; - set .@menu$,""; - for(set .@i,1; .@i<=10; set .@i,.@i+1) - set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Unequipped]")+":"; - set .@part, select(.@menu$); + .@menu$ = ""; + for(.@i = 1; .@i<=10; ++.@i) + .@menu$ += ((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Unequipped]")+":"; + .@part = select(.@menu$); if (!getequipisequiped(.@part)) { mes "[Basta]"; switch(.@part) { @@ -229,17 +229,17 @@ lhz_in02,280,19,3 duplicate(MightyHammer) Mighty Hammer#lhz 4_M_DWARF switch(getequipweaponlv(.@part)) { default: case 0: - set .@price,100000; - set .@material,6225; //HD_Carnium - set .@type$,"armor"; + .@price = 100000; + .@material = 6225; //HD_Carnium + .@type$ = "armor"; break; case 1: case 2: case 3: case 4: - set .@price,100000; - set .@material,6226; //HD_Bradium - set .@type$,"weapon"; + .@price = 100000; + .@material = 6226; //HD_Bradium + .@type$ = "weapon"; break; } mes "[Basta]"; diff --git a/npc/merchants/milk_trader.txt b/npc/merchants/milk_trader.txt index 3f2c46a20..d9c7efe47 100644 --- a/npc/merchants/milk_trader.txt +++ b/npc/merchants/milk_trader.txt @@ -46,9 +46,9 @@ prontera,73,140,0 script Milk Vendor 4_M_04,{ mes "way, you know..."; close; } - set .@bottles,countitem(713); - set .@total_weight,.@bottles * 50; - set .@total_cost,.@bottles * 15; + .@bottles = countitem(713); + .@total_weight = .@bottles * 50; + .@total_cost = .@bottles * 15; if (Zeny < .@total_cost) { mes "[Milk Vendor]"; mes "Oh, whoa~!"; diff --git a/npc/merchants/novice_exchange.txt b/npc/merchants/novice_exchange.txt index 5474190e6..4f9c05218 100644 --- a/npc/merchants/novice_exchange.txt +++ b/npc/merchants/novice_exchange.txt @@ -355,7 +355,7 @@ function script F_PotExchange { break; } } - set .@put_out_item,.@input * getarg(1); + .@put_out_item = .@input * getarg(1); if (countitem(getarg(0)) < .@put_out_item) { mes "[Merchant]"; mes "Uh oh, the number you entered doesn't seem right. You better check the number of Red Potions that you can trade for again."; diff --git a/npc/merchants/old_pharmacist.txt b/npc/merchants/old_pharmacist.txt index d74b3287d..1889ea3b9 100644 --- a/npc/merchants/old_pharmacist.txt +++ b/npc/merchants/old_pharmacist.txt @@ -56,13 +56,13 @@ alberta_in,16,28,4 script Pharmacist 1_M_PUBMASTER,{ next; mes "[Old Pharmacist]"; if (countitem(507) < countitem(713)) { - set .@max,countitem(507); + .@max = countitem(507); } else if (countitem(508) < countitem(713)) { - set .@max,countitem(508); + .@max = countitem(508); } else { - set .@max,countitem(713); + .@max = countitem(713); } if ((countitem(507) < 1) || (countitem(508) < 1) || (countitem(713) == 0)) { mes "You rascal! What did you expect?! Coming here with nothing. Tsk!"; @@ -186,9 +186,9 @@ L_Making: next; mes "[Old Pharmacist]"; if ((countitem(getarg(0))/2) < countitem(713)) { - set .@max,countitem(getarg(0))/2; + .@max = countitem(getarg(0))/2; } else { - set .@max,countitem(713); + .@max = countitem(713); } if ((countitem(getarg(0)) < 2) || (countitem(713) == 0)) { mes "You rascal! What did you expect?! Coming here with nothing. Tsk!"; diff --git a/npc/merchants/quivers.txt b/npc/merchants/quivers.txt index 37c183600..a2e293e83 100644 --- a/npc/merchants/quivers.txt +++ b/npc/merchants/quivers.txt @@ -76,10 +76,10 @@ S_BuyQuiver: next; switch(select("Store as many Arrows in quivers as possible:Purchase 1 quiver:Cancel")) { case 1: - set .@arrows,countitem(getarg(0)); - set .@quiver,.@arrows / getarg(1); - set .@arrows_used,.@quiver * getarg(1); - set .@arrow_zeny01,.@quiver * getarg(2); + .@arrows = countitem(getarg(0)); + .@quiver = .@arrows / getarg(1); + .@arrows_used = .@quiver * getarg(1); + .@arrow_zeny01 = .@quiver * getarg(2); mes "Number of"; mes "Arrows: ^3131FF"+.@arrows+" ^000000"; mes "Maximum Number"; diff --git a/npc/merchants/refine.txt b/npc/merchants/refine.txt index 823fbea66..2b2d95180 100644 --- a/npc/merchants/refine.txt +++ b/npc/merchants/refine.txt @@ -144,7 +144,7 @@ geffen_in,110,172,0 script Christopher#1 1_M_SMITH,{ break; } } - set .@sell,.@input * 150; + .@sell = .@input * 150; if (Zeny < .@sell) { mes "[Christopher Guillenrow]"; mes "I don't think I can let ye have this with the zeny ye have. I can't lose me money because of ye."; @@ -225,7 +225,7 @@ geffen_in,110,172,0 script Christopher#1 1_M_SMITH,{ break; } } - set .@sell,.@input * 200; + .@sell = .@input * 200; if (Zeny < .@sell) { mes "[Christopher Guillenrow]"; mes "Ye don't have enough money. Ye know I can't sell this at a lower price... You know how the wifey nags about Zeny."; @@ -263,7 +263,7 @@ geffen_in,110,172,0 script Christopher#1 1_M_SMITH,{ break; } } - set .@sell,.@input * 1000; + .@sell = .@input * 1000; if (Zeny < .@sell) { mes "[Christopher Guillenrow]"; mes "I don't think I can let ye have this with the zeny ye have. I can't lose me money because of ye."; @@ -403,27 +403,27 @@ ein_in01,38,29,0 script Paul Spanner 1_M_SMITH,{ next; switch(select("Mini Furnace - 150z.:Iron Hammer - 1,000z.:Golden Hammer - 3,000z.:Oridecon Hammer - 5,000z.:Cancel.")) { case 1: - set .@item,612; - set .@item_cost,150; - set .@item_weight,200; + .@item = 612; + .@item_cost = 150; + .@item_weight = 200; mes "[Paul Spanner]"; mes "You definately need this furnce to process ores!"; next; break; case 2: - set .@item,613; - set .@item_cost,1000; - set .@item_weight,200; + .@item = 613; + .@item_cost = 1000; + .@item_weight = 200; break; case 3: - set .@item,614; - set .@item_cost,3000; - set .@item_weight,300; + .@item = 614; + .@item_cost = 3000; + .@item_weight = 300; break; case 4: - set .@item,615; - set .@item_cost,5000; - set .@item_weight,400; + .@item = 615; + .@item_cost = 5000; + .@item_weight = 400; break; case 5: mes "[Paul Spanner]"; @@ -449,7 +449,7 @@ ein_in01,38,29,0 script Paul Spanner 1_M_SMITH,{ break; } } - set .@sell,.@input * .@item_cost; + .@sell = .@input * .@item_cost; if (Zeny < .@sell) { mes "[Paul Spanner]"; mes "You don't have enough money. Sorry, I cannot sell them at a loss."; @@ -472,12 +472,12 @@ ein_in01,38,29,0 script Paul Spanner 1_M_SMITH,{ next; switch(select("Phracon - 200z.:Emveretarcon - 1,000z.:Quit.")) { case 1: - set .@item,1010; - set .@item_price,200; + .@item = 1010; + .@item_price = 200; break; case 2: - set .@item,1011; - set .@item_price,1000; + .@item = 1011; + .@item_price = 1000; break; case 3: mes "[Paul Spanner]"; @@ -503,7 +503,7 @@ ein_in01,38,29,0 script Paul Spanner 1_M_SMITH,{ break; } } - set .@sell,.@input * .@item_price; + .@sell = .@input * .@item_price; if (Zeny < .@sell) { mes "[Paul Spanner]"; mes "You don't have enough money. Sorry, I cannot sell them at a loss."; @@ -604,7 +604,7 @@ lhz_in02,282,20,7 script Fulerr 4_M_LGTMAN,{ //============================================================ function script refinemain { disable_items; - set .@features,getarg(1); + .@features = getarg(1); mes "[" + getarg(0) + "]"; mes "I'm the Armsmith."; mes "I can refine all kinds of weapons, armor and equipment, so let me"; @@ -612,20 +612,20 @@ function script refinemain { next; setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3"; - set .@menu$,""; - for(set .@i,1; .@i<=10; set .@i,.@i+1) { + .@menu$ = ""; + for(.@i = 1; .@i <= 10; ++.@i) { if(getequipisequiped(.@i)) { - set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]"; - set .@equipped,1; + .@menu$ += .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]"; + .@equipped = 1; } - set .@menu$, .@menu$ + ":"; + .@menu$ += ":"; } if (.@equipped == 0) { mes "[" + getarg(0) + "]"; mes "I don't think I can refine any items you have..."; close; } - set .@part, select(.@menu$); + .@part = select(.@menu$); if(!getequipisequiped(.@part)) { //custom check mes "[" + getarg(0) + "]"; @@ -650,38 +650,38 @@ function script refinemain { mes "refined as it gets!"; close; } - set .@refineitemid, getequipid(.@part); // save id of the item - set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count + .@refineitemid = getequipid(.@part); // save id of the item + .@refinerycnt = getequiprefinerycnt(.@part); //save refinery count switch(getequipweaponlv(.@part)){ case 0: //Refine Armor - set .@price,2000; - set .@material,985; - set .@safe,4; + .@price = 2000; + .@material = 985; + .@safe = 4; break; case 1: //Refine Level 1 Weapon - set .@price,50; - set .@material,1010; - set .@safe,7; + .@price = 50; + .@material = 1010; + .@safe = 7; break; case 2: //Refine Level 2 Weapon - set .@price,200; - set .@material,1011; - set .@safe,6; + .@price = 200; + .@material = 1011; + .@safe = 6; break; case 3: //Refine Level 3 Weapon - set .@price,5000; - set .@material,984; - set .@safe,5; + .@price = 5000; + .@material = 984; + .@safe = 5; break; case 4: //Refine Level 4 Weapon - set .@price,20000; - set .@material,984; - set .@safe,4; + .@price = 20000; + .@material = 984; + .@safe = 4; break; case 5: //Refine other stuff? - set .@price,2000; - set .@material,985; - set .@safe,4; + .@price = 2000; + .@material = 985; + .@safe = 4; break; } if(.@features != 1) { @@ -757,7 +757,7 @@ function script refinemain { failedrefitem .@part; mes "[" + getarg(0) + "]"; emotion (!rand(5))?e_cash:e_omg; - set .@lose,rand(1,3); + .@lose = rand(1,3); if (.@lose == 1) { mes "OH! MY GOD!"; mes "Damn it! Not again!"; @@ -778,7 +778,7 @@ function script refinemain { mes "["+getarg(0)+"]"; successrefitem .@part; emotion e_heh; - set .@win,rand(1,3); + .@win = rand(1,3); if (.@win == 1) { mes "Perfect!"; mes "Heh heh!"; @@ -805,12 +805,12 @@ function script refinemain { mes "[" + getarg(0) + "]"; mes "I can refine this to the safe limit or a desired number of times. It's your choice."; next; - set .@menu2,select("To the safe limit, please.","I'll decide how many times.","I've changed my mind..."); + .@menu2 = select("To the safe limit, please.","I'll decide how many times.","I've changed my mind..."); } else - set .@menu2,2; + .@menu2 = 2; switch(.@menu2){ case 1: - set .@refinecnt,.@safe - getequiprefinerycnt(.@part); + .@refinecnt = .@safe - getequiprefinerycnt(.@part); break; case 2: next; @@ -818,14 +818,14 @@ function script refinemain { mes "How many times would you like me to refine your item?"; next; input .@refinecnt; - set .@refinecheck,.@refinecnt + getequiprefinerycnt(.@part); + .@refinecheck = .@refinecnt + getequiprefinerycnt(.@part); if (.@refinecnt < 1 || .@refinecheck > 10) { mes "[" + getarg(0) + "]"; mes "I can't refine this item that many times."; close; } if(.@refinecheck > .@safe) { - set .@refinecheck,.@refinecheck - .@safe; + .@refinecheck -= .@safe; mes "[" + getarg(0) + "]"; mes "This will try to refine the equipment " + .@refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?"; next; @@ -842,7 +842,7 @@ function script refinemain { mes "You said so... So be it."; close; } - set .@fullprice,.@price * .@refinecnt; + .@fullprice = .@price * .@refinecnt; mes "[" + getarg(0) + "]"; mes "That will cost you " + .@refinecnt + " " + getitemname(.@material) + " and " + .@fullprice + " Zeny. Is that ok?"; next; @@ -877,17 +877,17 @@ function script refinemain { emotion e_omg; mes "[" + getarg(0) + "]"; mes "WAHHHH!!! I'm so sorry... I warned you this could happen..."; - set .@refinecnt,.@refinecnt - 1; + --.@refinecnt; if(.@refinecnt == 0) close; mes "Here's the unused Zeny and materials back..."; getitem .@material,.@refinecnt; - set .@fullprice,.@refinecnt * .@price; + .@fullprice = .@refinecnt * .@price; Zeny += .@fullprice; close; } successrefitem .@part; emotion e_no1; - set .@refinecnt,.@refinecnt - 1; + --.@refinecnt; next; } mes "[" + getarg(0) + "]"; @@ -946,12 +946,12 @@ function script phramain { next; switch(select("Phracon - 200 Zeny:Emveretarcon - 1000 Zeny:Ask about other Metals")) { case 1: - set .@material,1010; - set .@price,200; + .@material = 1010; + .@price = 200; break; case 2: - set .@material,1011; - set .@price,1000; + .@material = 1011; + .@price = 1000; break; case 3: mes "[" + getarg(0) + "]"; @@ -984,7 +984,7 @@ function script phramain { break; } } - set .@sell,.@input * .@price; + .@sell = .@input * .@price; if (Zeny < .@sell) { mes "[" + getarg(0) + "]"; mes "Err..."; @@ -1183,7 +1183,7 @@ sch_gld,340,80,7 script Repairman#sch_gld 4_M_04,{ // Equipment Repair Function //============================================================ function script repairmain { - set .@repairprice,5000; + .@repairprice = 5000; mes "["+getarg(0)+"]"; mes "Hey there!"; mes "Do you want me"; @@ -1193,14 +1193,14 @@ function script repairmain { next; switch(select("Actually, I do have some items...:None at the moment.")) { case 1: - set .@checkitem,1; + .@checkitem = 1; while (1) { if (getbrokenid(.@checkitem) == 0) { break; } - set .@checkitem,.@checkitem+1; + ++.@checkitem; } - set .@checkitem,.@checkitem-1; + --.@checkitem; if (!.@checkitem) { mes "["+getarg(0)+"]"; mes "Oh wow, this is incredible!"; @@ -1217,7 +1217,7 @@ function script repairmain { mes "" + .@checkitem + " are damaged."; mes "Would you like to repair?"; next; - set .@totalcost,.@repairprice*.@checkitem; + .@totalcost = .@repairprice*.@checkitem; mes "["+getarg(0)+"]"; mes "Each repair costs " + .@repairprice + " Zeny. So to repair all your damaged items would cost " + .@totalcost + " Zeny! Would you like to repair the items?"; next; @@ -1229,19 +1229,19 @@ function script repairmain { mes "Check your wallet before you receive the repair bill! I can't repair anything because you don't have enough Zeny."; close; } - set .@checkitem2,1; + .@checkitem2 = 1; while (1) { if (getbrokenid(.@checkitem2) == 0) { break; } - set .@checkitem2,.@checkitem2+1; + ++.@checkitem2; } - set .@checkitem2,.@checkitem2-1; + --.@checkitem2; if (.@checkitem == .@checkitem2) { Zeny -= .@totalcost; while (.@checkitem) { repair(.@checkitem); - set .@checkitem,.@checkitem-1; + --.@checkitem; } mes "["+getarg(0)+"]"; mes "Okay! All done. Now, try to be a little more careful. Items have lives too you know."; diff --git a/npc/merchants/renters.txt b/npc/merchants/renters.txt index 3b6e6c28c..00ff18dd5 100644 --- a/npc/merchants/renters.txt +++ b/npc/merchants/renters.txt @@ -26,9 +26,9 @@ // PecoPeco Breeder (for Knights)------------------------------------------- prontera,55,350,5 script Peco Peco Breeder#knt 8W_SOLDIER,{ - if(Upper==0) set .@price,2500; //Normal Peco - default price - if(Upper==1) set .@price,2500; //Armored Peco - if(Upper==2) set .@price,2500; //Baby Peco + if(Upper==0) .@price = 2500; //Normal Peco - default price + if(Upper==1) .@price = 2500; //Armored Peco + if(Upper==2) .@price = 2500; //Baby Peco mes "[Peco Peco Breeder]"; if (BaseJob == Job_Knight && Class < Job_Rune_Knight) { @@ -88,9 +88,9 @@ prontera,55,350,5 script Peco Peco Breeder#knt 8W_SOLDIER,{ // Grand PecoPeco Breeder (for Crusaders)------------------------------------------- prontera,232,318,3 script Peco Peco Breeder#cru 8W_SOLDIER,{ - if(Upper==0) set .@price,3500; //Normal Peco - default price - if(Upper==1) set .@price,3500; //Armored Peco - if(Upper==2) set .@price,3500; //Baby Peco + if(Upper==0) .@price = 3500; //Normal Peco - default price + if(Upper==1) .@price = 3500; //Armored Peco + if(Upper==2) .@price = 3500; //Baby Peco mes "[PecoPeco Breeder]"; if (BaseJob == Job_Crusader && Class < Job_Rune_Knight) { @@ -149,9 +149,9 @@ prontera,232,318,3 script Peco Peco Breeder#cru 8W_SOLDIER,{ // Falcon Master-------------------------------------------------------------- hu_in01,381,304,5 script Falcon Breeder#hnt 8W_SOLDIER,{ - if(Upper==0) set .@price,2500; //Normal Falcon - default price - if(Upper==1) set .@price,2500; //Scarf Falcon - if(Upper==2) set .@price,2500; //Baby Falcon + if(Upper==0) .@price = 2500; //Normal Falcon - default price + if(Upper==1) .@price = 2500; //Scarf Falcon + if(Upper==2) .@price = 2500; //Baby Falcon mes "[Falcon Breeder]"; if (BaseJob == Job_Hunter) { diff --git a/npc/merchants/socket_enchant.txt b/npc/merchants/socket_enchant.txt index 4c806a819..178f8ca98 100644 --- a/npc/merchants/socket_enchant.txt +++ b/npc/merchants/socket_enchant.txt @@ -281,7 +281,7 @@ function script Func_Socket { mes "Alright then, let the work begin!"; mes "You'd better pray for a successful result."; next; - set .@a, rand(1,100); + .@a = rand(1,100); if ((.@a > getarg(2)) && (.@a < getarg(3))) { specialeffect getarg(3) == 51 ? EF_LORD : EF_SANCTUARY; // only S Class items have Lord of Vermillion effect diff --git a/npc/merchants/socket_enchant2.txt b/npc/merchants/socket_enchant2.txt index dbdcfe379..08fe62ed9 100644 --- a/npc/merchants/socket_enchant2.txt +++ b/npc/merchants/socket_enchant2.txt @@ -277,7 +277,7 @@ mes "Shall we start now?"; mes "Pray to your gods for good luck."; next; - set .@a, rand(1,100); + .@a = rand(1,100); if ((.@a > 4) && (.@a < 95)) { specialeffect EF_LORD; @@ -417,7 +417,7 @@ function script Func_Socket2 { mes "Alright then, let the work begin!"; mes "You'd better pray for a successful result."; next; - set .@a, rand(1,100); + .@a = rand(1,100); if ((.@a > getarg(2)) && (.@a < getarg(3))) { specialeffect EF_LORD; 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 bb38039a4..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) + ","; diff --git a/npc/warps/dungeons/mosk_dun.txt b/npc/warps/dungeons/mosk_dun.txt index f9a195d06..7543b5a9b 100644 --- a/npc/warps/dungeons/mosk_dun.txt +++ b/npc/warps/dungeons/mosk_dun.txt @@ -41,7 +41,7 @@ OnTouch: donpcevent "Soldier1#mos::OnInit"; donpcevent "Soldier2#mos::OnInit"; donpcevent "Soldier3#mos::OnInit"; - set mos_nowinter,12; + mos_nowinter = 12; warp "mosk_in",125,92; end; } diff --git a/npc/warps/other/arena.txt b/npc/warps/other/arena.txt index 5ab756c96..fe7011fa6 100644 --- a/npc/warps/other/arena.txt +++ b/npc/warps/other/arena.txt @@ -62,7 +62,7 @@ force_1-2,33,178,0 warp force_10_09 1,1,force_1-2,59,178 // GM Control Panel //============================================================ sec_in02,79,180,3 script #arenacontrol 4_DOG01,{ - set .@i, callfunc("F_GM_NPC",1357,0); + .@i = callfunc("F_GM_NPC",1357,0); if (.@i == -1) { mes "Error!"; close; |