diff options
author | shennetsind <ind@henn.et> | 2014-11-03 08:15:05 -0200 |
---|---|---|
committer | shennetsind <ind@henn.et> | 2014-11-03 08:15:05 -0200 |
commit | bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678 (patch) | |
tree | 79f9aec5171e8aed2d701bf67167f260e05f41db /npc/quests/okolnir.txt | |
parent | 239d480487e24294975f35ed55f210837ad1088e (diff) | |
parent | ce3f4bfbe016ea69c855146667ba9bd9e0e2e221 (diff) | |
download | hercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.tar.gz hercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.tar.bz2 hercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.tar.xz hercules-bee4c9d36f4a27e39cc76dc5d6c5f876ed44a678.zip |
Merge branch 'master' of github.com:HerculesWS/Hercules
Signed-off-by: shennetsind <ind@henn.et>
Conflicts:
src/map/battle.c
Diffstat (limited to 'npc/quests/okolnir.txt')
-rw-r--r-- | npc/quests/okolnir.txt | 538 |
1 files changed, 267 insertions, 271 deletions
diff --git a/npc/quests/okolnir.txt b/npc/quests/okolnir.txt index ff6f6af85..c3aa36cfb 100644 --- a/npc/quests/okolnir.txt +++ b/npc/quests/okolnir.txt @@ -15,13 +15,13 @@ function script F_Okolnir { if (compare(strnpcinfo(0),"main")) end; - set .@sub$,(compare(strnpcinfo(4),"cas"))?(substr(strnpcinfo(4),0,2))+(substr(strnpcinfo(4),8,9)):substr(strnpcinfo(4),5,9); + .@sub$ = (compare(strnpcinfo(4),"cas"))?(substr(strnpcinfo(4),0,2))+(substr(strnpcinfo(4),8,9)):substr(strnpcinfo(4),5,9); return .@sub$; } - script Guide#gq_main -1,{ - set .@sub$, callfunc("F_Okolnir"); - set .@GID, getcastledata(strnpcinfo(4),1); + .@sub$ = callfunc("F_Okolnir"); + .@GID = getcastledata(strnpcinfo(4),1); if (getcharid(2) == .@GID) { if (getd("$siz_"+.@sub$+"_on") == 0) { mes "[Guide]"; @@ -58,8 +58,8 @@ function script F_Okolnir { mes "Would you like to try to enter here?"; close; case 2: - set .@defence,getcastledata(strnpcinfo(4),3); - set .@Economy,getcastledata(strnpcinfo(4),2); + .@defence = getcastledata(strnpcinfo(4),3); + .@Economy = getcastledata(strnpcinfo(4),2); if ((.@Economy > 64) && (.@defence > 29)) { mes "[Guide]"; mes "Great! Economy and Defense are OK."; @@ -138,7 +138,7 @@ function script F_Okolnir { end; OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); enablenpc "Guide#gq_"+.@sub$; if (getd("$siz_"+.@sub$+"_on") == 1) setd "$siz_"+.@sub$+"_on", 0; end; @@ -167,9 +167,9 @@ que_qsch04,345,23,0 warp Gate02#gq_sch04 1,1,schg_cas04,369,306 que_qsch05,345,23,0 warp Gate02#gq_sch05 1,1,schg_cas05,369,306 - script Wish Maiden#gq_main -1,{ - set .@sub$, callfunc("F_Okolnir"); - set .@t$, ((compare(strnpcinfo(4),"aru"))?"arug_cas0":"schg_cas0")+(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1)); - set .@GID, getcastledata(.@t$,1); + .@sub$ = callfunc("F_Okolnir"); + .@t$ = ((compare(strnpcinfo(4),"aru"))?"arug_cas0":"schg_cas0")+(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1)); + .@GID = getcastledata(.@t$,1); if (getcharid(2) == .@GID) { cutin "wish_maiden31",1; if (strcharinfo(0) == getguildmaster(.@GID)) { @@ -183,9 +183,9 @@ que_qsch05,345,23,0 warp Gate02#gq_sch05 1,1,schg_cas05,369,306 } else { setarray .@n, 7830,1,7831,1,7832,1,7833,1,7834,1,2357,1,7510,100,969,10,985,20; } - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) { + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) { if (countitem(.@n[.@i]) >= .@n[.@i+1]) - set .@check, .@check + 1; + .@check += 1; } if (.@check >= 9) { cutin "wish_maiden11",1; @@ -219,7 +219,7 @@ que_qsch05,345,23,0 warp Gate02#gq_sch05 1,1,schg_cas05,369,306 next; switch(select("We are ready.:We need more time.")) { case 1: - set .@saram,getmapusers("que_q"+.@sub$); + .@saram = getmapusers("que_q"+.@sub$); if (((.@saram > 15) && (.@saram < 21))) { cutin "wish_maiden12",1; mes "[Wish Maiden]"; @@ -344,7 +344,7 @@ que_qsch05,345,23,0 warp Gate02#gq_sch05 1,1,schg_cas05,369,306 end; OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (!getd("$siz_"+.@sub$+"_on")) { enablenpc "Wish Maiden#gq_"+.@sub$; } else { @@ -366,14 +366,14 @@ que_qsch05,345,82,3 duplicate(Wish Maiden#gq_main) Wish Maiden#gq_sch05 4_F_VALK - script Gate01#gq_main -1,{ function SMonster; - set .@sub$, callfunc("F_Okolnir"); - + .@sub$ = callfunc("F_Okolnir"); + OnTouch: - set .@sub$, callfunc("F_Okolnir"); - set .@saram,getmapusers("que_q"+.@sub$); + .@sub$ = callfunc("F_Okolnir"); + .@saram = getmapusers("que_q"+.@sub$); if (.@saram < 21) { if (getd("$@gqse_"+.@sub$+"_miro") == getd("$@gqse_"+.@sub$+"_pcc")) { - set .@point,rand(1,5); + .@point = rand(1,5); switch (.@point) { case 1: warp "que_q"+.@sub$,72,271; break; case 2: warp "que_q"+.@sub$,45,243; break; @@ -382,7 +382,6 @@ OnTouch: case 5: warp "que_q"+.@sub$,46,300; break; } end; - } switch (getd("$@gqse_"+.@sub$+"_miro")) { case 0: setarray .@n, 77,271,72,271,1; break; @@ -415,37 +414,36 @@ OnTouch: mes "There are too many people, you can't enter."; close; } - + function SMonster { - switch (BaseClass) { - case 1: set .@m, 1652; break; - case 2: set .@m, 1663; break; - case 3: set .@m, 1662; break; - case 4: set .@m, 1661; break; - case 5: set .@m, 1660; break; - case 6: set .@m, 1659; break; - default: set .@m, 1652; break; + case 1: .@m = 1652; break; + case 2: .@m = 1663; break; + case 3: .@m = 1662; break; + case 4: .@m = 1661; break; + case 5: .@m = 1660; break; + case 6: .@m = 1659; break; + default: .@m = 1652; break; } monster "que_q"+getarg(0),getarg(1),getarg(2),strcharinfo(0),.@m,1,"#Gate_manager_"+getarg(0)+"::OnMyMobDead"; return; } - + OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); enablenpc "Gate01#gq_"+.@sub$; setcell "que_q"+.@sub$,58,302,63,302,cell_walkable,0; setcell "que_q"+.@sub$,58,302,63,302,cell_shootable,0; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "Gate01#gq_"+.@sub$; killmonsterall "que_q"+.@sub$; end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "Gate01#gq_"+.@sub$; end; } @@ -463,9 +461,9 @@ que_qsch05,346,81,0 duplicate(Gate01#gq_main) Gate01#gq_sch05 WARPNPC,1,1 - script #Gate_manager_main -1,{ end; - + OnMyMobDead: - set .@sub$, callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (getd("$@gqse_"+.@sub$+"_miro") == getd("$@gqse_"+.@sub$+"_pcc")) { if (!mobcount("que_q"+.@sub$,"#Gate_manager_"+.@sub$+"::OnMyMobDead")) { donpcevent "#gq_miromob2_"+.@sub$+"::OnEnable"; @@ -486,39 +484,39 @@ que_qsch05,1,4,0 duplicate(#Gate_manager_main) #Gate_manager_sch05 CLEAR_NPC - script #gq_miromob2_main -1,{ end; - + OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); initnpctimer; end; OnTimer1000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden: How does it feel to see shadows of the past. This is only the beginning.",bc_map,"0x00ff00"; end; OnTimer6000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden: The things you seeing are not real, don't be caught in the Mystic garden.",bc_map,"0x00ff00"; setarray .@mobname$, "Seyren Windsor","Kathryne Keyron","Cecil Damon","Margaretha Sorin","Eremes Guile","Howard Alt-Eisen"; setarray .@num, 72,271,1640,63,282,1645,59,294,1644,46,300,1643,51,285,1641,51,262,1642; - set .@c, 0; + .@c = 0; while (.@c < 3) { - for (set .@i, 0; .@i < getarraysize(.@mobname$); set .@i, .@i + 1) + for (.@i = 0; .@i < getarraysize(.@mobname$); ++.@i) monster "que_q"+.@sub$,.@num[.@i*3],.@num[.@i*3+1],.@mobname$[.@i],.@num[.@i*3+2],1,"#gq_miromob2_"+.@sub$+"::OnMyMobDead"; - set .@c, .@c + 1; + ++.@c; } stopnpctimer; end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#gq_miromob2_"+.@sub$+"::OnMyMobDead"; stopnpctimer; end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (mobcount("que_q"+.@sub$,"#gq_miromob2_"+.@sub$+"::OnMyMobDead") == 0) { mapannounce "que_qaru05","The Mystic garden exit is now open.",bc_map,"0x00ff00"; setcell "que_q"+.@sub$,58,302,63,302,cell_walkable,1; @@ -540,9 +538,9 @@ que_qsch05,1,4,0 duplicate(#gq_miromob2_main) #gq_miromob2_sch05 CLEAR_NPC - script #okolnir_main -1,{ end; - + OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "Gate01#gq_"+.@sub$+"::OnEnable"; donpcevent "#Maze_Manager_"+.@sub$+"::OnEnable"; donpcevent "#event_start01_"+.@sub$+"::OnEnable"; @@ -561,7 +559,7 @@ OnEnable: end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "Wish Maiden#gq_"+.@sub$; donpcevent "#gq_miromob2_"+.@sub$+"::OnReset"; disablenpc "Piamette#"+.@sub$; @@ -612,52 +610,52 @@ OnStop: end; OnTimer1000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden : Do your best, Okolnir will disappear in one hour!",bc_map,"0x00ff00"; end; OnTimer1800000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 30 minutes.",bc_map,"0xff0000"; end; OnTimer2400000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 20 minutes.",bc_map,"0xff0000"; end; OnTimer3000000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 10 minutes.",bc_map,"0xff0000"; end; OnTimer3300000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 5 minutes.",bc_map,"0xff0000"; end; OnTimer3360000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 4 minutes.",bc_map,"0xff0000"; end; OnTimer3420000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 3 minutes.",bc_map,"0xff0000"; end; OnTimer3480000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 2 minutes.",bc_map,"0xff0000"; end; OnTimer3540000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir will disappear in 1 minutes.",bc_map,"0xff0000"; end; OnTimer3600000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Okolnir has begun to disappear.",bc_map,"0x4d4dff"; disablenpc "Wish Maiden#gq_"+.@sub$; donpcevent "#gq_miromob2_"+.@sub$+"::OnReset"; @@ -700,17 +698,17 @@ OnTimer3600000: end; OnTimer3605000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden: ... You will fall into a deep sleep within Okolnir... ",bc_map,"0x00ff00"; end; OnTimer3608000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden: ..Have courage ... and await your chance again... ",bc_map,"0x00ff00"; end; OnTimer3610000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setd "$@gqse_"+.@sub$+"_miro",0; setd "$@gqse_"+.@sub$+"_pcc",0; setd "$@gqse_"+.@sub$+"_gd",0; @@ -719,7 +717,7 @@ OnTimer3610000: end; OnTimer3611000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#okolnir_"+.@sub$+"_time01::OnEnable"; stopnpctimer; end; @@ -737,14 +735,14 @@ que_qsch05,1,1,0 duplicate(#okolnir_main) #okolnir_sch05 CLEAR_NPC - script #Maze_Manager_main -1,{ end; - + OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); initnpctimer; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_bf_"+.@sub$+"::OnDisable"; donpcevent "#miro_rf_"+.@sub$+"::OnDisable"; donpcevent "#miro_yf_"+.@sub$+"::OnDisable"; @@ -752,57 +750,57 @@ OnDisable: end; OnTimer1000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_rf_"+.@sub$+"::OnDisable"; end; OnTimer2000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_yf_"+.@sub$+"::OnDisable"; end; OnTimer3000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_bf_"+.@sub$+"::OnEnable"; end; OnTimer120000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_bf_"+.@sub$+"::OnDisable"; end; OnTimer121000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_yf_"+.@sub$+"::OnDisable"; end; OnTimer123000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_rf_"+.@sub$+"::OnEnable"; end; OnTimer240000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_bf_"+.@sub$+"::OnDisable"; end; OnTimer241000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_rf_"+.@sub$+"::OnDisable"; end; OnTimer242000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_yf_"+.@sub$+"::OnEnable"; end; OnTimer360000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#Maze_Manager_"+.@sub$+"::OnEnable"; end; OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#miro_bf_"+.@sub$+"::OnDisable"; donpcevent "#miro_rf_"+.@sub$+"::OnDisable"; donpcevent "#miro_yf_"+.@sub$+"::OnDisable"; @@ -822,22 +820,22 @@ que_qsch05,1,2,0 duplicate(#Maze_Manager_main) #Maze_Manager_sch05 CLEAR_NPC - script #miro_bf_main -1,{ function Cell; OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy, 44,270,46,270,50,287,52,287,50,265,52,265,56,279,58,279,64,301,64,298,62,272,64,272,58,245,58,243,72,289,72,287,68,257,68,255,73,263,73,261,75,251,75,249,79,283,79,281,82,271,84,271,89,295,89,293,88,276,90,276,88,266,90,266,94,256,96,256,64,301,64,299,100,251,102,251; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1]," ",1934,1,"#miro_bf_"+.@sub$+"::OnMyMobDead"; Cell(.@sub$,0); end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#miro_bf_"+.@sub$+"::OnMyMobDead"; Cell(.@sub$,1); end; function Cell { setarray .@cell, 44,270,47,270,50,287,53,287,50,265,53,265,56,279,59,279,64,298,64,301,62,272,65,272,58,242,58,245,72,286,72,289,68,254,68,259,73,260,73,263,75,248,75,251,79,280,79,283,82,271,85,271,89,292,89,295,88,276,91,276,88,266,91,266,94,256,97,256,64,298,64,301,100,251,103,251; - for (set .@i, 0; .@i < getarraysize(.@cell); set .@i, .@i + 4) { + for (.@i = 0; .@i < getarraysize(.@cell); .@i += 4) { setcell "que_q"+getarg(0),.@cell[.@i],.@cell[.@i+1],.@cell[.@i+2],.@cell[.@i+3],cell_walkable,getarg(1); setcell "que_q"+getarg(0),.@cell[.@i],.@cell[.@i+1],.@cell[.@i+2],.@cell[.@i+3],cell_shootable,getarg(1); } @@ -859,25 +857,25 @@ que_qsch05,2,1,0 duplicate(#miro_bf_main) #miro_bf_sch05 CLEAR_NPC - script #miro_rf_main -1,{ function Cell; OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy, 57,301,57,299,48,291,48,289,68,290,70,290,72,295,72,293,90,296,92,296,56,282,58,282,66,283,66,281,80,284,82,284,44,273,46,273,50,273,52,273,54,269,54,267,66,271,66,270,81,273,81,272,88,276,90,276,94,276,96,276,64,258,66,258,76,263,76,261,87,265,87,263,50,252,52,252,76,252,78,252,99,255,99,253,53,245,53,243; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1]," ",1935,1,"#miro_rf_"+.@sub$+"::OnMyMobDead"; Cell(.@sub$,0); end; - + OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#miro_rf_"+.@sub$+"::OnMyMobDead"; Cell(.@sub$,1); end; - + OnMyMobDead: end; - + function Cell { setarray .@cell, 57,298,57,301,48,288,48,291,68,290,71,290,72,292,72,295,90,296,93,296,56,282,59,282,66,280,66,283,80,284,83,284,44,273,47,273,50,273,53,273,54,266,54,269,66,270,66,271,81,272,81,273,88,276,91,276,94,276,97,276,64,258,67,258,76,260,76,263,87,262,87,265,50,252,53,252,76,252,79,252,99,252,99,255,53,242,53,245; - for (set .@i, 0; .@i < getarraysize(.@cell); set .@i, .@i + 4) { + for (.@i = 0; .@i < getarraysize(.@cell); .@i += 4) { setcell "que_q"+getarg(0),.@cell[.@i],.@cell[.@i+1],.@cell[.@i+2],.@cell[.@i+3],cell_walkable,getarg(1); setcell "que_q"+getarg(0),.@cell[.@i],.@cell[.@i+1],.@cell[.@i+2],.@cell[.@i+3],cell_shootable,getarg(1); } @@ -897,25 +895,25 @@ que_qsch05,2,2,0 duplicate(#miro_rf_main) #miro_rf_sch05 CLEAR_NPC - script #miro_yf_main -1,{ function Cell; OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy, 44,292,46,292,67,295,67,293,94,301,94,299,79,289,79,287,56,282,58,282,71,283,71,281,100,281,102,281,44,261,46,261,50,265,52,265,56,270,58,270,72,278,73,278,82,266,84,266,88,266,90,266,94,271,96,271,60,257,60,255,73,263,73,261,75,257,75,255,87,257,87,255,58,251,58,249,80,251,80,249,53,245,53,243,75,245,75,243,100,251,102,251,100,256,102,256; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1]," ",1936,1,"#miro_yf_"+.@sub$+"::OnMyMobDead"; Cell(.@sub$,0); end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#miro_yf_"+.@sub$+"::OnMyMobDead"; Cell(.@sub$,1); end; OnMyMobDead: end; - + function Cell { setarray .@cell, 44,292,47,292,67,292,67,295,94,298,94,301,79,286,79,289,56,282,59,282,71,280,71,283,100,281,103,281,44,261,47,261,50,265,53,265,56,270,59,270,72,278,73,278,82,266,85,266,88,266,91,266,94,271,97,271,60,254,60,257,73,260,73,263,75,254,75,257,87,254,87,257,58,248,58,251,80,248,80,251,53,242,53,245,75,242,75,245,100,251,103,251,100,256,103,256; - for (set .@i, 0; .@i < getarraysize(.@cell); set .@i, .@i + 4) { + for (.@i = 0; .@i < getarraysize(.@cell); .@i += 4) { setcell "que_q"+getarg(0),.@cell[.@i],.@cell[.@i+1],.@cell[.@i+2],.@cell[.@i+3],cell_walkable,getarg(1); setcell "que_q"+getarg(0),.@cell[.@i],.@cell[.@i+1],.@cell[.@i+2],.@cell[.@i+3],cell_shootable,getarg(1); } @@ -934,9 +932,9 @@ que_qsch05,2,3,0 duplicate(#miro_yf_main) #miro_yf_sch05 CLEAR_NPC - script windpath01_main -1,{ end; - + OnTouch: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (countitem(7839)) { mes "The Warp Gate responds to the Crystal Key."; delitem 7839,1; //Crystal_Key @@ -971,9 +969,9 @@ que_qsch05,113,165,0 warp windpath02_sch05 1,1,que_qsch05,139,172 - script Piamette#main -1,{ end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); enablenpc "Piamette#"+.@sub$; end; } @@ -993,46 +991,46 @@ que_qsch05,131,136,3 duplicate(Piamette#main) Piamette#sch05 PIAMETTE end; OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); enablenpc "#event_start01_"+.@sub$; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "#event_start01_"+.@sub$; stopnpctimer; end; OnTouch: initnpctimer; - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "#event_start01_"+.@sub$; end; OnTimer2000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette mumblings : ..There were six birds, Teo. But one is....",bc_map,"0xdb7093"; end; OnTimer6000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette mumblings : ...Shh.. Teo. The birds have returned..Are they birds that ran away before...? Or breakers who disguises themselves as good adventurers?",bc_map,"0xdb7093"; end; OnTimer10000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette mumblings : Ha! They are caged in.",bc_map,"0xdb7093"; end; OnTimer14000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette : Teo, Catch the birds! Put the cage away from here!",bc_map,"0x00ff00"; donpcevent "#gdtimer01_"+.@sub$+"::OnEnable"; stopnpctimer; end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "#event_start01_"+.@sub$; end; } @@ -1049,84 +1047,84 @@ que_qsch05,114,158,0 duplicate(#event_start01_main) #event_start01_sch05 -1,1,1 - script #gdtimer01_main -1,{ end; - + OnEnable: initnpctimer; end; OnStop: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 8; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 8; ++.@i) donpcevent "#getspell0"+.@i+"_"+.@sub$+"::OnDisable"; stopnpctimer; end; OnTimer1000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell08_"+.@sub$+"::OnDisable"; donpcevent "#getspell01_"+.@sub$+"::OnEnable"; end; OnTimer10000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell01_"+.@sub$+"::OnDisable"; donpcevent "#getspell02_"+.@sub$+"::OnEnable"; end; OnTimer20000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell02_"+.@sub$+"::OnDisable"; donpcevent "#getspell03_"+.@sub$+"::OnEnable"; end; OnTimer30000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell03_"+.@sub$+"::OnDisable"; donpcevent "#getspell04_"+.@sub$+"::OnEnable"; end; OnTimer40000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell04_"+.@sub$+"::OnDisable"; donpcevent "#getspell05_"+.@sub$+"::OnEnable"; end; OnTimer50000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell05_"+.@sub$+"::OnDisable"; donpcevent "#getspell06_"+.@sub$+"::OnEnable"; end; OnTimer60000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell06_"+.@sub$+"::OnDisable"; donpcevent "#getspell07_"+.@sub$+"::OnEnable"; end; OnTimer70000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#getspell07_"+.@sub$+"::OnDisable"; donpcevent "#getspell08_"+.@sub$+"::OnEnable"; end; OnTimer75000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (getd("$@gqse_"+.@sub$+"_gd") < 6) { mapannounce "que_q"+.@sub$+"","Piamette : Silly birds! Silly Teo! Why can't you put away the cage at once?!",bc_map,"0x00ff00"; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) enablenpc "#"+.@sub$+"_cage0"+.@i; setd "$@gqse_"+.@sub$+"_gd",0; } end; OnTimer76000: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 6; ++.@i) disablenpc "#"+.@sub$+"_cage0"+.@i; end; OnTimer80000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#gdtimer01_"+.@sub$+"::OnEnable"; end; } @@ -1143,61 +1141,61 @@ que_qsch05,2,2,0 duplicate(#gdtimer01_main) #gdtimer01_sch05 CLEAR_NPC - script #gdtimer02_main -1,{ end; - + OnEnable: initnpctimer; end; OnStop: stopnpctimer; - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#gdtimer02_"+.@sub$+"::OnMyMobDead"; end; OnTimer4000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette : All of them are caught!",bc_map,"0xdb7093"; end; OnTimer8000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette : Let's call out the keeper of the key not to let the birds go far away.",bc_map,"0xdb7093"; end; OnTimer12000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette : The keeper of the key is protecting my cage.",bc_map,"0xdb7093"; setarray .@xy, 108,151,109,135,115,116,158,106,163,133,150,154; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1],"Key Stone",1905,1,"#gdtimer02_"+.@sub$+"::OnMyMobDead"; end; OnTimer112000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette : Whooping fun times are back! Now, Go! I'll get back to!!",bc_map,"0xdb7093"; killmonster "que_q"+.@sub$,"#gdtimer02_"+.@sub$+"::OnMyMobDead"; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) enablenpc "#"+.@sub$+"_cage0"+.@i; setd "$@gqse_"+.@sub$+"_gd",0; end; OnTimer113000: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 6; ++.@i) disablenpc "#"+.@sub$+"_cage0"+.@i; donpcevent "#gdtimer01_"+.@sub$+"::OnEnable"; stopnpctimer; end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#gdtimer02_"+.@sub$+"::OnMyMobDead"; end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (!mobcount("que_q"+.@sub$,"#gdtimer02_"+.@sub$+"::OnMyMobDead")) { - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) enablenpc "#"+.@sub$+"_cage0"+.@i; donpcevent "#piamette_"+.@sub$+"::OnEnable"; stopnpctimer; @@ -1221,18 +1219,18 @@ OnEnable: end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#piamette_"+.@sub$+"::OnMyMobDead"; stopnpctimer; end; OnTimer1000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette : All the keeper of keys are dead now? Who freed my birds? Teo, who did it?",bc_map,"0xdb7093"; end; OnTimer5000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette : I'm pissed off now!",bc_map,"0xdb7093"; disablenpc "Piamette#"+.@sub$; monster "que_q"+.@sub$,131,135,"Angry Piamette",1930,1,"#piamette_"+.@sub$+"::OnMyMobDead"; @@ -1240,7 +1238,7 @@ OnTimer5000: end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Piamette has been released, so the warp gate toward the South is working now.",bc_map,"0x00ff00"; enablenpc "windpath03_"+.@sub$; enablenpc "windpath04_"+.@sub$; @@ -1262,20 +1260,20 @@ que_qsch05,1,4,0 duplicate(#piamette_main) #piamette_sch05 CLEAR_NPC end; OnEnable: - set .@sub$,callfunc("F_Okolnir"); - set .@c,charat(strnpcinfo(2),9); + .@sub$ = callfunc("F_Okolnir"); + .@c = charat(strnpcinfo(2),9); enablenpc "#getspell0"+.@c+"_"+.@sub$; specialeffect EF_LOCKON; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); - set .@c,charat(strnpcinfo(2),9); + .@sub$ = callfunc("F_Okolnir"); + .@c = charat(strnpcinfo(2),9); disablenpc "#getspell0"+.@c+"_"+.@sub$; end; OnTouch: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); sc_start SC_STONE,300000,0,10000; switch (getd("$@gqse_"+.@sub$+"_gd")) { case 0: setarray .@n$, "103","153","1","Piamette : One white bird has dropped with its wing pierced by an arrow."; break; @@ -1296,8 +1294,8 @@ OnTouch: end; OnInit: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 8; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 8; ++.@i) disablenpc "#getspell0"+.@i+"_"+.@sub$; end; } @@ -1384,20 +1382,20 @@ que_qsch05,146,121,0 duplicate(#getspells_main) #getspell08_sch05 -1,1,1 - script #main_cages -1,{ end; - + OnTouch: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); sc_end SC_STONE; setarray .@n, 108,151,107,135,113,114,158,106,163,133,150,154; - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) warp "que_q"+.@sub$,.@n[.@i],.@n[.@i+1]; - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + for (.@i = 1; .@i <= 6; ++.@i) disablenpc "#"+.@sub$+"_cage0"+.@i; end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 6; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 6; ++.@i) disablenpc "#"+.@sub$+"_cage0"+.@i; end; } @@ -1464,7 +1462,7 @@ que_qsch05,150,159,0 duplicate(#main_cages) #sch05_cage06 -1,1,1 que_qaru01,1,8,0 script #gd_main_mobctrl CLEAR_NPC,{ end; - + OnEnable: setarray .@mob_1$, "Ball of Piamette","1738"; setarray .@mob_1, 107,152,109,135,113,116,157,107,163,133,149,156,131,139,135,136,131,132,128,136,110,145,129,114,148,114,155,128,152,145,131,151,110,130; @@ -1474,25 +1472,25 @@ OnEnable: setarray .@mob_3, 132,139,135,135,132,132,128,135,111,145,111,130,130,114,149,114,156,128,153,145,132,151; setarray .@mob_4$, "Ancient Mimic","1699"; setarray .@mob_4, 133,139,135,134,133,132,128,135,112,145,131,114,150,114,157,128,154,145,133,151,112,130; - set .@sub$,callfunc("F_Okolnir"); - set .@c, 1; + .@sub$ = callfunc("F_Okolnir"); + .@c = 1; while (.@c <= 4) { - for (set .@i, 0; .@i < getarraysize(getd(".@mob_"+.@c)); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(getd(".@mob_"+.@c)); .@i += 2) monster "que_q"+.@sub$,getd(".@mob_"+.@c+"["+.@i+"]"),getd(".@mob_"+.@c+"["+(.@i+1)+"]"),getd(".@mob_"+.@c+"$"),atoi(getd(".@mob_"+.@c+"$[1]")),1,"#gd_"+.@sub$+"_mobctrl::OnMyMobDead"; - set .@c, .@c + 1; + ++.@c; } end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#gd_"+.@sub$+"_mobctrl::OnMyMobDead"; end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (mobcount("que_q"+.@sub$,"#gd_"+.@sub$+"_mobctrl::OnMyMobDead") < 7) { setarray .@n, 107,152,109,135,113,116,157,107,163,133,149,156; - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) monster "que_q"+.@sub$,.@n[.@i],.@n[.@i+1],"Ball of Piamette",1738,1,"#gd_"+.@sub$+"_mobctrl::OnMyMobDead"; } end; @@ -1510,18 +1508,18 @@ que_qsch05,1,8,0 duplicate(#gd_main_mobctrl) #gd_sch05_mobctrl CLEAR_NPC - script windpaths_main -1,{ end; - + OnTouch: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (compare(strnpcinfo(0),"windpath03")) { warp "que_q"+.@sub$,119,103; } else { warp "que_q"+.@sub$,146,109; } end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "windpath03_"+.@sub$; disablenpc "windpath04_"+.@sub$; end; @@ -1550,60 +1548,60 @@ que_qsch05,128,104,0 duplicate(windpaths_main) windpath04_sch05 WARPNPC,1,1 - script #nm_switch_main -1,{ end; - + OnTouch: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "#nm_switch_"+.@sub$; initnpctimer; end; OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); enablenpc "#nm_switch_"+.@sub$; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "#nm_switch_"+.@sub$; stopnpctimer; end; OnTimer1000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden: Did you have a good time with Piamette?",bc_map,"0x00ff00"; end; OnTimer4000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden: But it's the end. There will be summoned monsters coming soon...",bc_map,"0x00ff00"; end; OnTimer9000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden: So come here to me safely...",bc_map,"0x00ff00"; end; OnTimer10000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#nmsom"+.@sub$+"_jin01::OnEnable"; donpcevent "#"+.@sub$+"_stone01::OnEnable"; end; OnTimer190000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#nmsom"+.@sub$+"_jin02::OnEnable"; donpcevent "#"+.@sub$+"_stone02::OnEnable"; end; OnTimer370000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#nmsom"+.@sub$+"_jin03::OnEnable"; donpcevent "#"+.@sub$+"_stone03::OnEnable"; stopnpctimer; end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "#nm_switch_"+.@sub$; end; } @@ -1620,22 +1618,22 @@ que_qsch05,253,273,0 duplicate(#nm_switch_main) #nm_switch_sch05 -1,5,5 - script #nmsommain_jin01 -1,{ OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#"+.@sub$+"_stone01::OnEnable"; initnpctimer; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#nmsom"+.@sub$+"_jin01::OnMyMobDead"; stopnpctimer; end; OnTimer5000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy, 226,288,227,289,228,290,229,291,230,292,231,293,232,294,233,295,234,296,235,297,228,286,229,287,230,288,231,289,232,290,233,291,234,292,235,293,236,294,237,295,230,284,231,285,232,286,233,287,234,288,235,289,236,290,237,291,238,292,239,293; mapannounce "que_q"+.@sub$,"The Western magic formation is working to summon Guard of Shadow.",bc_map,"0x4d4dff"; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1],"Guard of Shadow",1752,1,"#nmsom"+.@sub$+"_jin01::OnMyMobDead"; end; @@ -1643,9 +1641,9 @@ OnTimer25000: OnTimer55000: OnTimer85000: OnTimer120000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy2, 226,294,227,294,228,294,229,294,230,295,231,296,231,297,231,298,231,299,230,300,229,301,228,301,227,301,226,301,225,300,224,299,224,298,224,297,224,296,225,295; - for (set .@i, 0; .@i < getarraysize(.@xy2); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy2); .@i += 2) monster "que_q"+.@sub$,.@xy2[.@i],.@xy2[.@i+1],"Guard of Shadow",1752,1,"#nmsom"+.@sub$+"_jin01::OnMyMobDead"; end; @@ -1669,21 +1667,21 @@ que_qsch05,229,297,0 duplicate(#nmsommain_jin01) #nmsomsch05_jin01 -1 - script #main_stone01 -1,{ end; - + OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy, 227,294,229,294,231,296,231,298,230,300,228,301,226,301,224,299,224,297,225,295; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1],"Western Magic Guardian",1752,1,"#"+.@sub$+"_stone01::OnMyMobDead"; end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#"+.@sub$+"_stone01::OnMyMobDead"; end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (mobcount("que_q"+.@sub$,"#"+.@sub$+"_stone01::OnMyMobDead") == 0) { setd "$@gqse_"+.@sub$+"_nm",getd("$@gqse_"+.@sub$+"_nm")+1; donpcevent "#nmsom"+.@sub$+"_jin01::OnDisable"; @@ -1710,16 +1708,16 @@ OnEnable: end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#nmsom"+.@sub$+"_jin02::OnMyMobDead"; stopnpctimer; end; OnTimer5000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"The Eastern magic formation is working to summon Bloody Hunter.",bc_map,"0x4d4dff"; setarray .@xy, 263,292,264,291,265,290,266,289,267,288,268,287,269,286,270,285,271,284,272,283,265,294,266,293,267,292,268,291,269,290,270,289,271,288,272,287,273,286,274,285,267,296,268,295,269,294,270,283,271,282,272,281,273,280,274,279,275,276,276,275; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1],"Bloody Hunter",1753,1,"#nmsom"+.@sub$+"_jin02::OnMyMobDead"; end; @@ -1727,9 +1725,9 @@ OnTimer25000: OnTimer55000: OnTimer85000: OnTimer120000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy2, 274,301,275,301,276,301,277,301,278,300,279,299,279,298,279,297,279,296,278,295,277,294,276,294,275,294,274,294,273,295,272,296,272,297,272,298,272,299,273,300; - for (set .@i, 0; .@i < getarraysize(.@xy2); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy2); .@i += 2) monster "que_q"+.@sub$,.@xy2[.@i],.@xy2[.@i+1],"Bloody Hunter",1753,1,"#nmsom"+.@sub$+"_jin02::OnMyMobDead"; end; @@ -1753,21 +1751,21 @@ que_qsch05,275,299,0 duplicate(#nmsommain_jin02) #nmsomsch05_jin02 -1 - script #main_stone02 -1,{ end; - + OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy, 275,301,277,301,279,299,279,297,278,295,276,294,274,294,272,296,272,298,273,300; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1],"Eastern Magic Guardian",1753,1,"#"+.@sub$+"_stone02::OnMyMobDead"; end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#"+.@sub$+"_stone02::OnMyMobDead"; end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (mobcount("que_q"+.@sub$,"#"+.@sub$+"_stone02::OnMyMobDead") == 0) { setd "$@gqse_"+.@sub$+"_nm",getd("$@gqse_"+.@sub$+"_nm")+1; donpcevent "#nmsom"+.@sub$+"_jin02::OnDisable"; @@ -1794,37 +1792,37 @@ OnEnable: end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#nmsom"+.@sub$+"_jin03::OnMyMobDead"; stopnpctimer; end; OnTimer5000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"The Northern magic formation is working to summon Keeper of the Temple.",bc_map,"0x4d4dff"; setarray .@xy, 247,329,249,329,251,329,253,329,255,329,243,339,245,337,247,335,247,333,254,333,256,335,258,337,260,339; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1],"Keeper Of The Temple",1933,1,"#nmsom"+.@sub$+"_jin03::OnMyMobDead"; end; OnTimer120000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy2, 251,343,252,343,255,341,255,340,254,337,253,336,250,336,249,337,248,340,248,341; - for (set .@i, 0; .@i < getarraysize(.@xy2); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy2); .@i += 2) monster "que_q"+.@sub$,.@xy2[.@i],.@xy2[.@i+1],"Keeper Of The Temple",1933,1,"#nmsom"+.@sub$+"_jin03::OnMyMobDead"; end; OnTimer240000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy3, 250,343,252,343,254,342,255,340,255,338,253,336,250,336,248,338,248,340,249,342; - for (set .@i, 0; .@i < getarraysize(.@xy3); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy3); .@i += 2) monster "que_q"+.@sub$,.@xy3[.@i],.@xy3[.@i+1],"Keeper Of The Temple",1933,1,"#nmsom"+.@sub$+"_jin03::OnMyMobDead"; end; OnTimer360000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy4, 250,343,252,343,254,342,255,340,255,338,253,336,251,336,249,337,248,339,248,341; - for (set .@i, 0; .@i < getarraysize(.@xy4); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy4); .@i += 2) monster "que_q"+.@sub$,.@xy4[.@i],.@xy4[.@i+1],"Keeper Of The Temple",1933,1,"#nmsom"+.@sub$+"_jin03::OnMyMobDead"; stopnpctimer; end; @@ -1845,25 +1843,24 @@ que_qsch05,251,340,0 duplicate(#nmsommain_jin03) #nmsomsch05_jin03 -1 - script #main_stone03 -1,{ end; - + OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setarray .@xy, 251,343,252,343,255,341,255,340,254,337,253,336,250,336,249,337,248,340,248,341; - for (set .@i, 0; .@i < getarraysize(.@xy); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@xy); .@i += 2) monster "que_q"+.@sub$,.@xy[.@i],.@xy[.@i+1],"Northern Magic Guardian",1933,1,"#"+.@sub$+"_stone03::OnMyMobDead"; end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"#"+.@sub$+"_stone03::OnMyMobDead"; end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (mobcount("que_q"+.@sub$,"#"+.@sub$+"_stone03::OnMyMobDead") == 0) { setd "$@gqse_"+.@sub$+"_nm",getd("$@gqse_"+.@sub$+"_nm")+1; donpcevent "#nmsom"+.@sub$+"_jin03::OnDisable"; - if (getd("$@gqse_"+.@sub$+"_nm") == 3) { donpcevent "Wish Maiden#"+.@sub$+"_boss::OnFight"; } @@ -1883,10 +1880,9 @@ que_qsch05,2,10,0 duplicate(#main_stone03) #sch05_stone03 CLEAR_NPC - script Guard of Shadow#main_all -1,{ end; - OnTouch: - set .@sub$,callfunc("F_Okolnir"); - set .@in, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); + .@sub$ = callfunc("F_Okolnir"); + .@in = charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); disablenpc "Guard of Shadow#"+.@sub$+"_0"+.@in; switch (.@in) { case 1: setarray .@n, 234,284,235,285,236,286; break; @@ -1894,23 +1890,23 @@ OnTouch: case 3: setarray .@n, 235,295,236,296,237,297; break; case 4: setarray .@n, 224,302,225,303,226,304; break; } - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) monster "que_q"+.@sub$,.@n[.@i],.@n[.@i+1],"Guard of Shadow",1752,1,"Guard of Shadow#"+.@sub$+"_0"+.@in+"::OnMyMobDead"; end; - + OnDisable: - set .@sub$,callfunc("F_Okolnir"); - set .@in, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); + .@sub$ = callfunc("F_Okolnir"); + .@in = charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); killmonster "que_q"+.@sub$,"Guard of Shadow#"+.@sub$+"_0"+.@in+"::OnMyMobDead"; disablenpc "Guard of Shadow#"+.@sub$+"_0"+.@in; end; OnMyMobDead: end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 4; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 4; ++.@i) disablenpc "Guard of Shadow#"+.@sub$+"_0"+.@i; end; } @@ -1957,10 +1953,10 @@ que_qsch05,225,303,5 duplicate(Guard of Shadow#main_all) Guard of Shadow#sch05_0 - script Bloody Hunter#main_all -1,{ end; - + OnTouch: - set .@sub$,callfunc("F_Okolnir"); - set .@in, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); + .@sub$ = callfunc("F_Okolnir"); + .@in = charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); disablenpc "Bloody Hunter#"+.@sub$+"_ac0"+.@in; switch (.@in) { case 1: setarray .@n, 265,297,266,296,267,295; @@ -1968,23 +1964,23 @@ OnTouch: case 3: setarray .@n, 269,308,270,307,271,306; case 4: setarray .@n, 278,301,279,300,280,299; } - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) monster "que_q"+.@sub$,.@n[.@i],.@n[.@i+1],"Bloody Hunter",1753,1,"Bloody Hunter#"+.@sub$+"_ac0"+.@in+"::OnMyMobDead"; end; - + OnDisable: - set .@sub$,callfunc("F_Okolnir"); - set .@in, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); + .@sub$ = callfunc("F_Okolnir"); + .@in = charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); killmonster "que_q"+.@sub$,"Bloody Hunter#"+.@sub$+"_ac0"+.@in+"::OnMyMobDead"; disablenpc "Bloody Hunter#"+.@sub$+"_ac0"+.@in; end; OnMyMobDead: end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 4; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 4; ++.@i) disablenpc "Bloody Hunter#"+.@sub$+"_ac0"+.@i; end; } @@ -2031,22 +2027,22 @@ que_qsch05,279,300,3 duplicate(Bloody Hunter#main_all) Bloody Hunter#sch05_ac04 - script Temple Keeper#main_all -1,{ end; - + OnTouch: - set .@sub$,callfunc("F_Okolnir"); - set .@in, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); + .@sub$ = callfunc("F_Okolnir"); + .@in = charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); disablenpc "Temple Keeper#"+.@sub$+"_ac0"+.@in; switch (.@in) { case 1: setarray .@n, 246,330,247,330,248,330; break; case 2: setarray .@n, 254,330,255,330,256,330; break; } - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) monster "que_q"+.@sub$,.@n[.@i],.@n[.@i+1],"Keeper Of The Temple",1933,1,"Temple Keeper#"+.@sub$+"_ac0"+.@in+"::OnMyMobDead"; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); - set .@in, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); + .@sub$ = callfunc("F_Okolnir"); + .@in = charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1); killmonster "que_q"+.@sub$,"Temple Keeper#"+.@sub$+"_ac0"+.@in+"::OnMyMobDead"; disablenpc "Temple Keeper#"+.@sub$+"_ac0"+.@in; end; @@ -2055,8 +2051,8 @@ OnMyMobDead: end; OnInit: - set .@sub$,callfunc("F_Okolnir"); - for (set .@i, 1; .@i <= 2; set .@i, .@i + 1) + .@sub$ = callfunc("F_Okolnir"); + for (.@i = 1; .@i <= 2; ++.@i) disablenpc "Temple Keeper#"+.@sub$+"_ac0"+.@i; end; } @@ -2083,9 +2079,9 @@ que_qsch05,255,330,3 duplicate(Temple Keeper#main_all) Temple Keeper#sch05_ac02 - script Wish Maiden#main_boss -1,{ end; - + OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); killmonster "que_q"+.@sub$,"Wish Maiden#"+.@sub$+"_boss::OnMyMobDead"; hideonnpc "Wish Maiden#"+.@sub$+"_boss"; stopnpctimer; @@ -2096,17 +2092,17 @@ OnFight: end; OnTimer1000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden : You guys reached here.. Are your guardians dead...?",bc_map,"0x00ff00"; end; OnTimer4000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden : I sincerely welcome all your best efforts!",bc_map,"0x00ff00"; end; OnTimer5000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); specialeffect EF_ICECRASH; hideonnpc "Wish Maiden#"+.@sub$+"_boss"; specialeffect EF_SPHERE; @@ -2115,16 +2111,16 @@ OnTimer5000: end; OnMyMobDead: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (!mobcount("que_q"+.@sub$,"Wish Maiden#"+.@sub$+"_boss::OnMyMobDead")) { donpcevent "#okolnir_"+.@sub$+"::OnStop"; donpcevent "Wish Maiden#"+.@sub$+"_gift::OnEnable"; mapannounce "que_q"+.@sub$,"Wish Maiden : ..Good, you deserve the Goddess' shine.",bc_map,"0x00ff00"; } end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); hideonnpc "Wish Maiden#"+.@sub$+"_boss"; end; } @@ -2140,21 +2136,21 @@ que_qsch04,251,255,3 duplicate(Wish Maiden#main_boss) Wish Maiden#sch04_boss WIS que_qsch05,251,255,3 duplicate(Wish Maiden#main_boss) Wish Maiden#sch05_boss WISH_MAIDEN - script Wish Maiden#main_gift -1,{ - set .@sub$,callfunc("F_Okolnir"); - set .@t$, ((compare(strnpcinfo(4),"aru"))?"arug_cas0":"schg_cas0")+(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1)); - set .@GID, getcastledata(.@t$,1); + .@sub$ = callfunc("F_Okolnir"); + .@t$ = ((compare(strnpcinfo(4),"aru"))?"arug_cas0":"schg_cas0")+(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1)); + .@GID = getcastledata(.@t$,1); if (getcharid(2) == .@GID) { if (strcharinfo(0) == getguildmaster(.@GID)) { if (compare(.@sub$,"aru")) { setarray .@n, 7835,1,7836,1,7837,1,7838,1,2513,1,7291,10,7293,10,7063,100,985,20; - set .@rwd, 2541; //Asprika + .@rwd = 2541; //Asprika } else { setarray .@n, 7830,1,7831,1,7832,1,7833,1,7834,1,2357,1,7510,100,969,10,985,20; - set .@rwd, 2383; //Brynhild + .@rwd = 2383; //Brynhild } - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) { + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) { if (countitem(.@n[.@i]) >= .@n[.@i+1]) - set .@check, .@check + 1; + .@check += 1; } if (.@check >= 9) { cutin "wish_maiden12",1; @@ -2176,7 +2172,7 @@ que_qsch05,251,255,3 duplicate(Wish Maiden#main_boss) Wish Maiden#sch05_boss WIS mes "[Wish Maiden]"; mes "I will open the gate for you to come back here."; mes "...Okolnir won't last forever..."; - for (set .@i, 0; .@i < getarraysize(.@n); set .@i, .@i + 2) + for (.@i = 0; .@i < getarraysize(.@n); .@i += 2) delitem .@n[.@i],.@n[.@i+1]; getitem .@rwd,1; getitem 7840,1; //Valkyrie_Gift @@ -2218,30 +2214,30 @@ que_qsch05,251,255,3 duplicate(Wish Maiden#main_boss) Wish Maiden#sch05_boss WIS end; OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); enablenpc "Wish Maiden#"+.@sub$+"_gift"; initnpctimer; end; OnDisable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "Wish Maiden#"+.@sub$+"_gift"; stopnpctimer; end; OnTimer280000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapannounce "que_q"+.@sub$,"Wish Maiden : ... Okolnir will soon disappear... I will send you back to where you originally came from.",bc_map,"0x00ff00"; end; OnTimer290000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); mapwarp "que_q"+.@sub$,.@t$,157,369; donpcevent "#to_agit_"+.@sub$+"_gate::OnDisable"; end; OnTimer300000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); donpcevent "#okolnir_"+.@sub$+"::OnDisable"; setd "$@gqse_"+.@sub$+"_miro",0; setd "$@gqse_"+.@sub$+"_pcc",0; @@ -2251,9 +2247,9 @@ OnTimer300000: donpcevent "#okolnir_"+.@sub$+"_time01::OnEnable"; stopnpctimer; end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "Wish Maiden#"+.@sub$+"_gift"; end; } @@ -2270,14 +2266,14 @@ que_qsch05,252,340,3 duplicate(Wish Maiden#main_gift) Wish Maiden#sch05_gift 4_F - script #to_agit_main_gate -1,{ end; - + OnTouch: - set .@t$, ((compare(strnpcinfo(4),"aru"))?"arug_cas0":"schg_cas0")+(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1)); + .@t$ = ((compare(strnpcinfo(4),"aru"))?"arug_cas0":"schg_cas0")+(charat(strnpcinfo(4),getstrlen(strnpcinfo(4))-1)); warp .@t$,157,369; end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); disablenpc "#to_agit_"+.@sub$+"_gate"; end; } @@ -2296,20 +2292,20 @@ que_qsch05,252,339,0 duplicate(#to_agit_main_gate) #to_agit_sch05_gate WARPNPC,1 end; OnEnable: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setd "$gqse_"+.@sub$+"_time",0; initnpctimer; end; OnReset: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); setd "$siz_"+.@sub$+"_on",0; setd "$gqse_"+.@sub$+"_time",0; stopnpctimer; end; OnTimer3600000: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (getd("$gqse_"+.@sub$+"_time") < 12) { setd "$gqse_"+.@sub$+"_time",getd("$gqse_"+.@sub$+"_time")+1; initnpctimer; @@ -2323,9 +2319,9 @@ OnTimer3600000: stopnpctimer; } end; - + OnInit: - set .@sub$,callfunc("F_Okolnir"); + .@sub$ = callfunc("F_Okolnir"); if (getd("$siz_"+.@sub$+"_on") == 2) initnpctimer; end; } |