From bf4b0a281207e46a9b21a9c9f779aeafaa739b62 Mon Sep 17 00:00:00 2001 From: Haru Date: Sun, 26 Oct 2014 02:06:46 +0100 Subject: Replaced 'set' with direct assignment where applicable (common folder) Signed-off-by: Haru --- npc/airports/airships.txt | 78 +++--- npc/battleground/bg_common.txt | 44 +-- npc/battleground/flavius/flavius01.txt | 82 +++--- npc/battleground/flavius/flavius02.txt | 82 +++--- npc/battleground/kvm/kvm01.txt | 76 +++-- npc/battleground/kvm/kvm02.txt | 72 +++-- npc/battleground/kvm/kvm03.txt | 76 +++-- npc/battleground/kvm/kvm_item_pay.txt | 8 +- npc/battleground/tierra/tierra01.txt | 60 ++-- npc/battleground/tierra/tierra02.txt | 60 ++-- npc/cities/alberta.txt | 8 +- npc/cities/aldebaran.txt | 8 +- npc/cities/amatsu.txt | 8 +- npc/cities/ayothaya.txt | 2 +- npc/cities/comodo.txt | 4 +- npc/cities/geffen.txt | 6 +- npc/cities/gonryun.txt | 2 +- npc/cities/jawaii.txt | 12 +- npc/cities/lighthalzen.txt | 4 +- npc/cities/lutie.txt | 36 +-- npc/cities/manuk.txt | 2 +- npc/cities/morocc.txt | 2 +- npc/cities/niflheim.txt | 21 +- npc/cities/payon.txt | 2 +- npc/cities/prontera.txt | 16 +- npc/cities/rachel.txt | 2 +- npc/events/MemorialDay_2008.txt | 26 +- npc/events/RWC_2011.txt | 60 ++-- npc/events/RWC_2012.txt | 70 ++--- npc/events/StPatrick_2008.txt | 8 +- npc/events/bossnia.txt | 2 +- npc/events/children_week.txt | 4 +- npc/events/christmas_2005.txt | 54 ++-- npc/events/christmas_2008.txt | 26 +- npc/events/easter_2008.txt | 28 +- npc/events/easter_2010.txt | 56 ++-- npc/events/event_skill_reset.txt | 2 +- npc/events/gdevent_aru.txt | 228 ++++++++------- npc/events/gdevent_sch.txt | 232 ++++++++------- npc/events/god_se_festival.txt | 12 +- npc/events/halloween_2006.txt | 20 +- npc/events/halloween_2009.txt | 86 +++--- npc/events/lunar_2008.txt | 16 +- npc/events/nguild/nguild_dunsw.txt | 2 +- npc/events/nguild/nguild_ev_agit.txt | 34 +-- npc/events/nguild/nguild_flags.txt | 2 +- npc/events/nguild/nguild_kafras.txt | 6 +- npc/events/nguild/nguild_managers.txt | 2 +- npc/events/nguild/nguild_treas.txt | 18 +- npc/events/valentinesday_2009.txt | 22 +- npc/events/valentinesday_2012.txt | 22 +- npc/events/xmas.txt | 6 +- npc/guild/agit_controller.txt | 2 +- npc/guild/agit_main.txt | 208 +++++++------- npc/guild/aldeg_cas01.txt | 2 +- npc/guild/aldeg_cas02.txt | 2 +- npc/guild/aldeg_cas03.txt | 2 +- npc/guild/aldeg_cas04.txt | 2 +- npc/guild/aldeg_cas05.txt | 2 +- npc/guild/gefg_cas01.txt | 2 +- npc/guild/gefg_cas02.txt | 2 +- npc/guild/gefg_cas03.txt | 2 +- npc/guild/gefg_cas04.txt | 2 +- npc/guild/gefg_cas05.txt | 2 +- npc/guild/payg_cas01.txt | 2 +- npc/guild/payg_cas02.txt | 2 +- npc/guild/payg_cas03.txt | 2 +- npc/guild/payg_cas04.txt | 2 +- npc/guild/payg_cas05.txt | 2 +- npc/guild/prtg_cas01.txt | 2 +- npc/guild/prtg_cas02.txt | 2 +- npc/guild/prtg_cas03.txt | 2 +- npc/guild/prtg_cas04.txt | 2 +- npc/guild/prtg_cas05.txt | 2 +- npc/guild/trs_rp.txt | 2 +- npc/guild2/agit_main_se.txt | 214 +++++++------- npc/instances/EndlessTower.txt | 126 ++++----- npc/instances/NydhoggsNest.txt | 108 +++---- npc/instances/OrcsMemory.txt | 68 ++--- npc/instances/SealedShrine.txt | 76 ++--- npc/jobs/1-1e/gunslinger.txt | 12 +- npc/jobs/1-1e/ninja.txt | 10 +- npc/jobs/1-1e/taekwon.txt | 10 +- npc/jobs/2-1/assassin.txt | 186 ++++++------ npc/jobs/2-1/blacksmith.txt | 104 +++---- npc/jobs/2-1/hunter.txt | 74 ++--- npc/jobs/2-1/knight.txt | 116 ++++---- npc/jobs/2-1/priest.txt | 44 +-- npc/jobs/2-1/wizard.txt | 144 +++++----- npc/jobs/2-1a/AssassinCross.txt | 4 +- npc/jobs/2-1a/HighPriest.txt | 4 +- npc/jobs/2-1a/HighWizard.txt | 4 +- npc/jobs/2-1a/LordKnight.txt | 4 +- npc/jobs/2-1a/Sniper.txt | 4 +- npc/jobs/2-1a/WhiteSmith.txt | 4 +- npc/jobs/2-1e/StarGladiator.txt | 54 ++-- npc/jobs/2-2/alchemist.txt | 156 +++++------ npc/jobs/2-2/bard.txt | 78 +++--- npc/jobs/2-2/crusader.txt | 122 ++++---- npc/jobs/2-2/dancer.txt | 102 +++---- npc/jobs/2-2/monk.txt | 144 +++++----- npc/jobs/2-2/rogue.txt | 128 ++++----- npc/jobs/2-2/sage.txt | 278 +++++++++--------- npc/jobs/2-2a/Champion.txt | 4 +- npc/jobs/2-2a/Clown.txt | 4 +- npc/jobs/2-2a/Gypsy.txt | 4 +- npc/jobs/2-2a/Paladin.txt | 4 +- npc/jobs/2-2a/Professor.txt | 4 +- npc/jobs/2-2a/Stalker.txt | 4 +- npc/jobs/2-2e/SoulLinker.txt | 22 +- npc/jobs/novice/supernovice.txt | 4 +- npc/jobs/valkyrie.txt | 14 +- npc/kafras/dts_warper.txt | 155 +++++----- npc/kafras/functions_kafras.txt | 2 +- npc/kafras/kafras.txt | 2 +- npc/merchants/advanced_refiner.txt | 12 +- npc/merchants/alchemist.txt | 4 +- npc/merchants/cashheadgear_dye.txt | 38 +-- npc/merchants/clothes_dyer.txt | 14 +- npc/merchants/coin_exchange.txt | 14 +- npc/merchants/dye_maker.txt | 38 +-- npc/merchants/elemental_trader.txt | 14 +- npc/merchants/enchan_arm.txt | 54 ++-- npc/merchants/gemstone.txt | 2 +- npc/merchants/hair_dyer.txt | 60 ++-- npc/merchants/hair_style.txt | 36 +-- npc/merchants/hd_refine.txt | 36 +-- npc/merchants/milk_trader.txt | 6 +- npc/merchants/novice_exchange.txt | 2 +- npc/merchants/old_pharmacist.txt | 10 +- npc/merchants/quivers.txt | 8 +- npc/merchants/refine.txt | 146 +++++----- npc/merchants/renters.txt | 18 +- npc/merchants/socket_enchant.txt | 2 +- npc/merchants/socket_enchant2.txt | 4 +- npc/other/Global_Functions.txt | 166 +++++------ npc/other/acolyte_warp.txt | 16 +- npc/other/arena/arena_aco.txt | 196 ++++++------- npc/other/arena/arena_lvl50.txt | 41 +-- npc/other/arena/arena_lvl60.txt | 41 +-- npc/other/arena/arena_lvl70.txt | 41 +-- npc/other/arena/arena_lvl80.txt | 41 +-- npc/other/arena/arena_party.txt | 93 +++--- npc/other/arena/arena_point.txt | 16 +- npc/other/arena/arena_room.txt | 76 ++--- npc/other/books.txt | 66 ++--- npc/other/card_trader.txt | 24 +- npc/other/comodo_gambling.txt | 498 ++++++++++++++++----------------- npc/other/divorce.txt | 2 +- npc/other/fortune.txt | 18 +- npc/other/gm_npcs.txt | 2 +- npc/other/guildpvp.txt | 4 +- npc/other/gympass.txt | 8 +- npc/other/hugel_bingo.txt | 230 +++++++-------- npc/other/marriage.txt | 34 +-- npc/other/mercenary_rent.txt | 43 +-- npc/other/monster_race.txt | 277 +++++++++--------- npc/other/poring_war.txt | 138 ++++----- npc/other/powernpc.txt | 30 +- npc/other/pvp.txt | 16 +- npc/other/turbo_track.txt | 334 +++++++++++----------- npc/warps/dungeons/mosk_dun.txt | 2 +- npc/warps/other/arena.txt | 2 +- 163 files changed, 3819 insertions(+), 3824 deletions(-) (limited to 'npc') 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= .@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