summaryrefslogtreecommitdiff
path: root/npc/guild2
diff options
context:
space:
mode:
Diffstat (limited to 'npc/guild2')
-rw-r--r--npc/guild2/agit_main_se.txt214
1 files changed, 111 insertions, 103 deletions
diff --git a/npc/guild2/agit_main_se.txt b/npc/guild2/agit_main_se.txt
index 77e8cdd7c..bad6b27f7 100644
--- a/npc/guild2/agit_main_se.txt
+++ b/npc/guild2/agit_main_se.txt
@@ -51,7 +51,7 @@ OnAgitStart2:
gvgon strnpcinfo(2);
donpcevent strnpcinfo(0)+"::OnStart";
}
- else for(set .@i,0; .@i<4; set .@i,.@i+1)
+ else for(.@i = 0; .@i<4; ++.@i)
donpcevent "RL"+.@i+"#"+strnpcinfo(2)+"::OnDisable";
end;
@@ -59,7 +59,7 @@ OnAgitEnd2:
if (strnpcinfo(2) == "template") end;
gvgoff strnpcinfo(2);
if (getcastledata(strnpcinfo(2),1)) {
- set .@str$,substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
+ .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
killmonster strnpcinfo(2),"Steward#"+.@str$+"::OnStartArena";
donpcevent strnpcinfo(0)+"::OnReset";
donpcevent "Steward#"+.@str$+"::OnStop";
@@ -86,12 +86,12 @@ OnStart:
setarray getd("$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9)+"[0]"),0,0,0,0,0,0;
donpcevent "df1#"+strnpcinfo(2)+"::OnEnable";
donpcevent "df2#"+strnpcinfo(2)+"::OnEnable";
- for(set .@i,0; .@i<4; set .@i,.@i+1)
+ for (.@i = 0; .@i<4; ++.@i)
donpcevent "RL"+.@i+"#"+strnpcinfo(2)+"::OnEnable";
}
OnEmpSpawn:
- set .@str$, substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
+ .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
if (mobcount(strnpcinfo(2),"Steward#"+.@str$+"::OnStartArena")) end;
if (compare(strnpcinfo(2),"arug")) {
if (strnpcinfo(2) == "arug_cas01") setarray .@i[0],87,219;
@@ -107,23 +107,23 @@ OnEmpSpawn:
end;
OnReset:
- set .@str$, substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
+ .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
donpcevent "df1#"+strnpcinfo(2)+"::OnDisable";
donpcevent "df2#"+strnpcinfo(2)+"::OnDisable";
donpcevent "gard1#"+strnpcinfo(2)+"::OnReset";
donpcevent "gard2#"+strnpcinfo(2)+"::OnReset";
donpcevent "1st Guardian Stone#"+.@str$+"::OnDisable";
donpcevent "2nd Guardian Stone#"+.@str$+"::OnDisable";
- for(set .@i,1; .@i<4; set .@i,.@i+1)
+ for(.@i = 1; .@i<4; ++.@i)
donpcevent "Control Device0"+.@i+"#"+.@str$+"::OnDisable";
- for(set .@i,0; .@i<4; set .@i,.@i+1)
+ for(.@i = 0; .@i<4; ++.@i)
donpcevent "RL"+.@i+"#"+strnpcinfo(2)+"::OnDisable";
if (agitcheck2())
setarray getd("$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9)+"[0]"),0,0,1,1,1,0;
end;
OnChange:
- set .@str$, substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
+ .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
setarray getd("$agit_"+.@str$+"[0]"),2,2,1,1,2,0;
donpcevent strnpcinfo(0)+"::OnEmpSpawn";
donpcevent "Control Device03#"+.@str$+"::OnEnable";
@@ -137,59 +137,59 @@ OnClock0001:
if (!getcastledata(strnpcinfo(2),1)) end;
killmonster strnpcinfo(2),strnpcinfo(0)+"::OnTreasureDied";
if (getcastledata(strnpcinfo(2),4)) {
- set .@Economy,getcastledata(strnpcinfo(2),2);
+ .@Economy = getcastledata(strnpcinfo(2),2);
setcastledata strnpcinfo(2),2,.@Economy+getcastledata(strnpcinfo(2),4)+(rand(2) && getgdskilllv(getcastledata(strnpcinfo(2),1),10014));
if (getcastledata(strnpcinfo(2),2) > 100) setcastledata strnpcinfo(2),2,100;
setcastledata strnpcinfo(2),4,0;
}
if (getcastledata(strnpcinfo(2),5)) {
- set .@defence,getcastledata(strnpcinfo(2),3);
+ .@defence = getcastledata(strnpcinfo(2),3);
setcastledata strnpcinfo(2),3,.@defence+getcastledata(strnpcinfo(2),5);
if (getcastledata(strnpcinfo(2),3) > 100) setcastledata strnpcinfo(2),3,100;
setcastledata strnpcinfo(2),5,0;
}
- set .@Treasure,getcastledata(strnpcinfo(2),2)/5+4;
+ .@Treasure = getcastledata(strnpcinfo(2),2)/5+4;
if (!.@Treasure) end;
freeloop(1);
if (compare(strnpcinfo(2),"arug")) {
if (strnpcinfo(2) == "arug_cas01") {
- set .@treasurebox,1943;
+ .@treasurebox = 1943;
setarray .@treasurex[0],251,252,253,254,255,256,257,258,251,252,253,254,255,256,257,258,251,252,253,254,255,256,257,258;
setarray .@treasurey[0],369,369,369,369,368,368,368,368,367,367,367,367,366,366,366,366,365,365,365,365,364,364,364,364;
}
else if (strnpcinfo(2) == "arug_cas02") {
- set .@treasurebox,1944;
+ .@treasurebox = 1944;
setarray .@treasurex[0],382,383,384,385,386,387,384,385,386,387,388,389,382,383,384,385,386,387,384,385,386,387,388,389;
setarray .@treasurey[0],231,231,231,231,231,231,230,230,230,230,230,230,225,225,225,225,225,225,224,224,224,224,224,224;
}
else { // Castles 3,4,5 are identical, except 4's treasure.
- set .@treasurebox,(strnpcinfo(2) == "arug_cas04")?1946:1945;
+ .@treasurebox = (strnpcinfo(2) == "arug_cas04")?1946:1945;
setarray .@treasurex[0],291,292,293,294,295,296,293,294,295,296,297,298,291,292,293,294,295,296,293,294,295,296,297,298;
setarray .@treasurey[0],276,276,276,276,276,276,274,274,274,274,274,274,272,272,272,272,272,272,269,269,269,269,269,269;
}
}
else {
if (strnpcinfo(2) == "schg_cas02") {
- set .@treasurebox,1939;
+ .@treasurebox = 1939;
setarray .@treasurex[0],249,250,251,252,253,246,247,248,249,250,250,251,252,253,246,247,248,249,250,249,250,251,252,253;
setarray .@treasurey[0],378,378,378,378,378,376,376,376,376,376,374,374,374,374,372,372,372,372,372,370,370,370,370,370;
}
else if (strnpcinfo(2) == "schg_cas03") {
- set .@treasurebox,1940;
+ .@treasurebox = 1940;
setarray .@treasurex[0],189,190,191,192,193,194,189,190,191,192,193,194,189,190,191,192,193,194,189,190,191,192,193,194;
setarray .@treasurey[0], 21, 21, 21, 21, 21, 21, 19, 19, 19, 19, 19, 19, 17, 17, 17, 17, 17, 17, 15, 15, 15, 15, 15, 15;
}
else { // Castles 1,4,5 are identical, except treasures.
- if (strnpcinfo(2) == "schg_cas01") set .@treasurebox,1938;
- else if (strnpcinfo(2) == "schg_cas04") set .@treasurebox,1941;
- else set .@treasurebox,1942;
+ if (strnpcinfo(2) == "schg_cas01") .@treasurebox = 1938;
+ else if (strnpcinfo(2) == "schg_cas04") .@treasurebox = 1941;
+ else .@treasurebox = 1942;
setarray .@treasurex[0],388,388,388,387,386,385,384,384,384,384,384,384,385,386,387,388,389,390,390,390,389,388,387,386;
setarray .@treasurey[0],388,389,390,390,390,390,389,388,387,386,385,384,384,384,384,384,384,384,385,386,386,386,386,386;
}
}
- for(set .@i,0; .@i<4; set .@i,.@i+1)
+ for(.@i = 0; .@i<4; ++.@i)
monster strnpcinfo(2),.@treasurex[.@i],.@treasurey[.@i],"Treasure Chest",(.@i%2)?.@treasurebox:1324,1,strnpcinfo(0)+"::OnTreasureDied";
- for(set .@i,4; .@i<24; set .@i,.@i+1) {
+ for(.@i = 4; .@i<24; ++.@i) {
if (.@Treasure < .@i+1) break;
monster strnpcinfo(2),.@treasurex[.@i],.@treasurey[.@i],"Treasure Chest",(.@i%2)?.@treasurebox:1324,1,strnpcinfo(0)+"::OnTreasureDied";
}
@@ -203,7 +203,7 @@ OnTreasureDied:
// Guild Manager
//============================================================
- script Steward#template -1,{
- set .@GID, getcastledata(strnpcinfo(4),1);
+ .@GID = getcastledata(strnpcinfo(4),1);
if (!.@GID) {
mes "[ Steward ]";
mes "I await for the master";
@@ -251,18 +251,19 @@ OnTreasureDied:
mes "That is all, master.";
close;
case 2:
- set .@Economy,getcastledata(strnpcinfo(4),2);
+ .@Economy = getcastledata(strnpcinfo(4),2);
setarray .@cost[0],5000,10000,20000,35000,55000,80000,110000,145000,185000,230000,280000,335000,395000,460000,530000,605000,685000,770000,860000,955000;
- set .@j,0;
- for(set .@i,6; .@i<101; set .@i,.@i+5) {
+ .@j = 0;
+ for(.@i = 6; .@i<101; .@i += 5) {
if (.@Economy < .@i) {
- set .@eco_invest,.@cost[.@j];
+ .@eco_invest = .@cost[.@j];
break;
}
- set .@j, .@j+1;
+ ++.@j;
}
// Quadruple the cost of investing if you've already invested once.
- if (getcastledata(strnpcinfo(4),4)) set .@eco_invest,.@eco_invest*4;
+ if (getcastledata(strnpcinfo(4),4))
+ .@eco_invest *= 4;
mes "[ Steward ]";
mes "Raising the stronghold's";
mes "commercial growth will";
@@ -344,18 +345,19 @@ OnTreasureDied:
close;
}
case 3:
- set .@defence,getcastledata(strnpcinfo(4),3);
+ .@defence = getcastledata(strnpcinfo(4),3);
setarray .@cost[0],10000,20000,40000,70000,110000,160000,220000,290000,370000,460000,560000,670000,790000,920000,1060000,1210000,1370000,1540000,1720000,1910000;
- set .@j,0;
- for(set .@i,6; .@i<101; set .@i,.@i+5) {
+ .@j = 0;
+ for(.@i = 6; .@i<101; .@i += 5) {
if (.@defence < .@i) {
- set .@def_invest,.@cost[.@j];
+ .@def_invest = .@cost[.@j];
break;
}
- set .@j, .@j+1;
+ ++.@j;
}
// Quadruple the cost of investing if you've already invested once.
- if (getcastledata(strnpcinfo(4),5)) set .@def_invest,.@def_invest*4;
+ if (getcastledata(strnpcinfo(4),5))
+ .@def_invest *= 4;
mes "[ Steward ]";
mes "Investing in our stronghold's";
mes "defense will enhance the";
@@ -600,20 +602,20 @@ OnStop:
end;
OnStartArena:
- set .@GID,getcharid(2);
- set .@region$, (compare(strnpcinfo(4),"arug"))?"Valfreyja":"Nithafjoll";
+ .@GID = getcharid(2);
+ .@region$ = (compare(strnpcinfo(4),"arug"))?"Valfreyja":"Nithafjoll";
// Lower castle Economy
- set .@Economy,getcastledata(strnpcinfo(4),2)-5;
- if (.@Economy < 0) set .@Economy, 0;
+ .@Economy = getcastledata(strnpcinfo(4),2)-5;
+ if (.@Economy < 0) .@Economy = 0;
setcastledata strnpcinfo(4),2,.@Economy;
// Lower Castle Defence
- set .@defence,getcastledata(strnpcinfo(4),3)-5;
- if (.@defence < 0) set .@defence, 0;
+ .@defence = getcastledata(strnpcinfo(4),3)-5;
+ if (.@defence < 0) .@defence = 0;
setcastledata strnpcinfo(4),3,.@defence;
// Set new owner
setcastledata strnpcinfo(4),1,.@GID;
// Clear castle's data.
- for(set .@i,4; .@i<10; set .@i,.@i+1)
+ for(.@i = 4; .@i<10; ++.@i)
setcastledata strnpcinfo(4),.@i,0;
// Disable Kafra
disablenpc "Kafra Employee#"+strnpcinfo(2);
@@ -635,8 +637,8 @@ OnStartArena:
// Castle Guardians
//============================================================
- script Guardian#template -1,{
- set .@GID, getcastledata(strnpcinfo(4),1);
- set .@n$, "["+strnpcinfo(1)+"]";
+ .@GID = getcastledata(strnpcinfo(4),1);
+ .@n$ = "["+strnpcinfo(1)+"]";
if (!.@GID) {
mes .@n$;
mes "Great job. Now, all you";
@@ -836,7 +838,7 @@ OnInit:
//============================================================
- script Kafra#template -1,{
cutin "kafra_01",2;
- set .@GID, getcastledata(strnpcinfo(4),1);
+ .@GID = getcastledata(strnpcinfo(4),1);
if (getcharid(2) == .@GID && getgdskilllv(.@GID,10001)) {
mes "[Kafra Employee]";
mes "Welcome, proud member";
@@ -948,9 +950,9 @@ OnInit:
// Guardian Stones (2)
//============================================================
- script Guardian Stone#template -1,{
- set .@GID, getcastledata(strnpcinfo(4),1);
- set .@num, atoi(charat(strnpcinfo(1),0));
- set .@var$,"$agit_"+strnpcinfo(2);
+ .@GID = getcastledata(strnpcinfo(4),1);
+ .@num = atoi(charat(strnpcinfo(1),0));
+ .@var$ = "$agit_"+strnpcinfo(2);
if (getcharid(2) == .@GID) {
mes "^3355FFYou will need the";
mes "following materials to";
@@ -978,19 +980,19 @@ OnInit:
mes "rebuild the Guardian Stone.^000000";
next;
setarray .@stone$[0],"Elunium","Oridecon","Stones";
- set .@i, select("Elunium:Oridecon:Stone")-1;
- if (.@i == 2) set .@nice,.@nice+10;
+ .@i = select("Elunium:Oridecon:Stone")-1;
+ if (.@i == 2) .@nice += 10;
mes "^3355FF"+.@stone$[.@i]+" has been";
mes "placed in the center.^000000";
next;
- set .@i, select("Elunium:Oridecon:Stone")-1;
- if (.@i == 0) set .@nice,.@nice+10;
+ .@i = select("Elunium:Oridecon:Stone")-1;
+ if (.@i == 0) .@nice += 10;
mes "^3355FFYou have lined the";
mes "outside of the center";
mes "with some "+.@stone$[.@i]+".^000000";
next;
- set .@i, select("Elunium:Oridecon:Stone")-1;
- if (.@i == 1) set .@nice,.@nice+10;
+ .@i = select("Elunium:Oridecon:Stone")-1;
+ if (.@i == 1) .@nice += 10;
mes "^3355FFYou covered the";
mes "rest of the materials";
mes "with some "+.@stone$[.@i]+".^000000";
@@ -1005,14 +1007,14 @@ OnInit:
setarray .@color$[0],"Red","Yellow","Blue";
while(1) {
if (.@roof0 > 7) break;
- set .@i, rand(3);
+ .@i = rand(3);
specialeffect .@effect[.@i];
mes "^3355FFThe Gemstones must";
mes "be arranged in the correct";
mes "order according to their";
mes "magic properties and power.^000000";
next;
- set .@j, select("Red Gemstone:Yellow Gemstone:Blue Gemstone")-1;
+ .@j = select("Red Gemstone:Yellow Gemstone:Blue Gemstone")-1;
mes "^3355FFYou placed the "+.@color$[.@j]+" Gemstone.^000000";
if (.@i == .@j) {
mes "^3355FFHowever, the Guardian Stone";
@@ -1020,8 +1022,8 @@ OnInit:
mes "of a magic power conflict.^000000";
close;
}
- set .@nice,.@nice+10;
- set .@roof0,.@roof0+1;
+ .@nice += 10;
+ ++.@roof0;
specialeffect EF_STEAL;
next;
}
@@ -1055,7 +1057,7 @@ OnInit:
specialeffect EF_ICECRASH;
disablenpc strnpcinfo(0);
setd .@var$+"["+(.@num-1)+"]",0;
- set .@df_all,getd(.@var$+"[0]")+getd(.@var$+"[1]");
+ .@df_all = getd(.@var$+"[0]")+getd(.@var$+"[1]");
if (!.@df_all) {
mapannounce strnpcinfo(4),"Both Guardian Stones have been erected, bolstering this stronghold's defenses!",bc_map,"0x00ff00";
donpcevent "RL0#"+strnpcinfo(4)+"::OnEnable";
@@ -1102,9 +1104,9 @@ OnEnable:
// Control Devices (3)
//============================================================
- script Control#template -1,{
- set .@GID, getcastledata(strnpcinfo(4),1);
- set .@num, atoi(charat(strnpcinfo(1),15));
- set .@var$,"$agit_"+strnpcinfo(2);
+ .@GID = getcastledata(strnpcinfo(4),1);
+ .@num = atoi(charat(strnpcinfo(1),15));
+ .@var$ = "$agit_"+strnpcinfo(2);
if (getcharid(2) == .@GID) {
if (strcharinfo(0) == getguildmaster(.@GID)) {
if (getd(.@var$+"["+(.@num+1)+"]") == 2) {
@@ -1127,7 +1129,7 @@ OnEnable:
mes "Emveretarcon to basically";
mes "hold everything together.^000000";
next;
- set .@ro_of01,rand(10,15);
+ .@ro_of01 = rand(10,15);
while(1) {
if (.@ro_of02 == .@ro_of01) break;
else {
@@ -1142,8 +1144,8 @@ OnEnable:
case 1:
mes "^3355FFThe frame has been";
mes "reinforced with wood.^000000";
- set .@rp_temp,.@rp_temp+1;
- set .@ro_of02,.@ro_of02+1;
+ ++.@rp_temp;
+ ++.@ro_of02;
specialeffect2 EF_REPAIRWEAPON;
next;
break;
@@ -1176,7 +1178,7 @@ OnEnable:
case 1:
mes "^3355FFYou tried using wood";
mes "to reinforce the gate.^000000";
- set .@ro_of02,.@ro_of02+1;
+ ++.@ro_of02;
next;
break;
case 2:
@@ -1195,8 +1197,8 @@ OnEnable:
mes "^3355FFYou hammered the";
mes "oridecon: it looks";
mes "like this will work.^000000";
- set .@rp_temp,.@rp_temp+1;
- set .@ro_of02,.@ro_of02+1;
+ ++.@rp_temp;
+ ++.@ro_of02;
specialeffect2 EF_REPAIRWEAPON;
next;
break;
@@ -1219,8 +1221,8 @@ OnEnable:
mes "^3355FFYou used steel to weld";
mes "all the cracks: the gate is";
mes "is starting to look more solid.^000000";
- set .@rp_temp,.@rp_temp+1;
- set .@ro_of02,.@ro_of02+1;
+ ++.@rp_temp;
+ ++.@ro_of02;
specialeffect2 EF_REPAIRWEAPON;
next;
break;
@@ -1260,8 +1262,8 @@ OnEnable:
mes "^3355FFYou successfully used";
mes "the emveretarcon to repair";
mes "much of the gate's damage.^000000";
- set .@rp_temp,.@rp_temp+1;
- set .@ro_of02,.@ro_of02+1;
+ ++.@rp_temp;
+ ++.@ro_of02;
specialeffect2 EF_REPAIRWEAPON;
next;
break;
@@ -1296,9 +1298,9 @@ OnEnable:
close2;
donpcevent "RL"+.@num+"#"+strnpcinfo(4)+"::OnEnable";
disablenpc strnpcinfo(0);
- if (.@num == 1) set .@str$,"1st";
- else if (.@num == 2) set .@str$,"2nd";
- else if (.@num == 3) set .@str$,"3rd";
+ if (.@num == 1) .@str$ = "1st";
+ else if (.@num == 2) .@str$ = "2nd";
+ else if (.@num == 3) .@str$ = "3rd";
mapannounce strnpcinfo(4),"The "+.@str$+" Fortress Gate has been reconstructed!",bc_map,"0x00ff00";
if (.@num == 1) setd .@var$+"[2]",0;
else {
@@ -1382,9 +1384,10 @@ OnEnable:
setarray .y[0], 18, 44,22, 40,20,40,43, 48, 18, 32, 37, 22, 47, 18, 15, 42, 43, 15, 42, 22, 28, 18;
}
}
- if (charat(strnpcinfo(1),4) == "2") set .@z,11;
+ if (charat(strnpcinfo(1),4) == "2")
+ .@z = 11;
freeloop(1);
- set .@defence,getcastledata(strnpcinfo(2),3);
+ .@defence = getcastledata(strnpcinfo(2),3);
callsub OnSummon,.@z;
if (.@defence > 70) set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),5;
else if (.@defence > 50) set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),4;
@@ -1394,10 +1397,10 @@ OnEnable:
guardian strnpcinfo(2),.@w[4],.@w[5],"Guardian Soldier",1899,strnpcinfo(0)+"::OnGuardianDied";
else if (.@defence < 11) {
set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),2;
- set .@i,(.@z)?2:0;
+ .@i = (.@z)?2:0;
guardian strnpcinfo(2),.@w[.@i],.@w[.@i+1],"Guardian Soldier",1899,strnpcinfo(0)+"::OnGuardianDied";
}
- else for(set .@i,1; .@i<getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)); set .@i,.@i+1)
+ else for(.@i = 1; .@i<getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)); ++.@i)
callsub OnSummon,.@i+.@z;
freeloop(0);
copyarray getd(".x_"+strnpcinfo(2)+"[0]"),.@x[0],22;
@@ -1413,7 +1416,7 @@ OnTimer1800000:
OnTimer2700000:
OnTimer3600000:
if (charat(strnpcinfo(1),4) == "2") end;
- set .@var$,".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2);
+ .@var$ = ".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2);
setd .@var$, getd(.@var$)+1;
set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))+1;
callsub OnSummon,getd(.@var$);
@@ -1431,7 +1434,7 @@ OnTimer2100000:
OnTimer3000000:
OnTimer3900000:
if (!(charat(strnpcinfo(1),4) == "2")) end;
- set .@var$,".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2);
+ .@var$ = ".timer_"+charat(strnpcinfo(1),4)+strnpcinfo(2);
setd .@var$, getd(.@var$)+1;
set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))+1;
callsub OnSummon,getd(.@var$);
@@ -1446,7 +1449,8 @@ OnSummon:
return;
OnGuardianDied:
- if (charat(strnpcinfo(1),4) == "2") set .@z,11;
+ if (charat(strnpcinfo(1),4) == "2")
+ .@z = 11;
set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))-1;
if (getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)) < 2) {
set getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2)),getd(".MyMobCount_"+charat(strnpcinfo(1),4)+strnpcinfo(2))+1;
@@ -1476,8 +1480,8 @@ OnEnable:
else if (strnpcinfo(2) == "schg_cas03") setarray .@i[0],242,309,376,251;
else setarray .@i[0],27,35,207,75; // Castles 1,4,5 are identical.
}
- set .@num, atoi(charat(strnpcinfo(1),2));
- set .@j,(.@num == 1)?0:2;
+ .@num = atoi(charat(strnpcinfo(1),2));
+ .@j = (.@num == 1)?0:2;
guardian strnpcinfo(2),.@i[.@j],.@i[.@j+1],((.@num == 1)?"1st":"2nd")+" Guardian Stone",1906+.@num,strnpcinfo(0)+"::OnGuardianStoneDied";
end;
@@ -1488,11 +1492,15 @@ OnDisable:
end;
OnGuardianStoneDied:
- set .@num, atoi(charat(strnpcinfo(1),2));
- set .@var$,"$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
+ .@num = atoi(charat(strnpcinfo(1),2));
+ .@var$ = "$agit_"+substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
setd .@var$+"["+(.@num-1)+"]",1;
- if (getd(.@var$+"[0]") == 1 || getd(.@var$+"[0]") == 2) set .@destroyed, .@destroyed+1;
- if (getd(.@var$+"[1]") == 1 || getd(.@var$+"[1]") == 2) set .@destroyed, .@destroyed+1;
+ if (getd(.@var$+"[0]") == 1 || getd(.@var$+"[0]") == 2) {
+ ++.@destroyed;
+ }
+ if (getd(.@var$+"[1]") == 1 || getd(.@var$+"[1]") == 2) {
+ ++.@destroyed;
+ }
if (.@destroyed == 2) {
mapannounce strnpcinfo(2),"All of the Guardian Stones have been destroyed!",bc_map,"0x00ff00";
donpcevent "RL0#"+strnpcinfo(2)+"::OnDisable";
@@ -1503,8 +1511,8 @@ OnGuardianStoneDied:
end;
OnTimer300000:
- set .@num, atoi(charat(strnpcinfo(1),2));
- set .@str$,substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
+ .@num = atoi(charat(strnpcinfo(1),2));
+ .@str$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
donpcevent ((.@num == 1)?"1st":"2nd")+" Guardian Stone#"+.@str$+"::OnEnable";
setd "$agit_"+.@str$+"["+(atoi(charat(strnpcinfo(1),2))-1)+"]",2;
stopnpctimer;
@@ -1515,7 +1523,7 @@ OnTimer300000:
//============================================================
- script RL#template -1,{
OnEnable:
- set .@num, atoi(charat(strnpcinfo(1),2));
+ .@num = atoi(charat(strnpcinfo(1),2));
if (.@num == 0) {
if (compare(strnpcinfo(2),"arug")) {
if (strnpcinfo(2) == "arug_cas01") {
@@ -1663,17 +1671,17 @@ OnEnable:
if (.@num == 3) set getd(".MyMobCount_"+.@num+strnpcinfo(2)),4;
else if (.@num) set getd(".MyMobCount_"+.@num+strnpcinfo(2)),6;
setwall strnpcinfo(2),.@wall[0],.@wall[1],.@wall[2],.@wall[3],.@wall[4],substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9)+"_"+strnpcinfo(1);
- set .@j,(getd(".MyMobCount_"+.@num+strnpcinfo(2)))?getd(".MyMobCount_"+.@num+strnpcinfo(2)):getarraysize(.@x);
- for(set .@i,0; .@i<.@j; set .@i,.@i+1)
+ .@j = (getd(".MyMobCount_"+.@num+strnpcinfo(2)))?getd(".MyMobCount_"+.@num+strnpcinfo(2)):getarraysize(.@x);
+ for (.@i = 0; .@i<.@j; ++.@i)
guardian strnpcinfo(2),.@x[.@i],.@y[.@i]," ",1905,strnpcinfo(0)+"::OnBarrierDestroyed";
end;
OnBarrierDestroyed:
- set .@num, atoi(charat(strnpcinfo(1),2));
+ .@num = atoi(charat(strnpcinfo(1),2));
if (!.@num) end;
set getd(".MyMobCount_"+.@num+strnpcinfo(2)),getd(".MyMobCount_"+.@num+strnpcinfo(2))-1;
if (getd(".MyMobCount_"+.@num+strnpcinfo(2)) == 0) {
- set .@var$,substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
+ .@var$ = substr(strnpcinfo(2),0,1)+substr(strnpcinfo(2),8,9);
setd "$agit_"+.@var$+"["+(.@num+1)+"]",1;
setarray .@count$[0],"1st","2nd","3rd";
mapannounce strnpcinfo(2),"The "+.@count$[.@num-1]+" Fortress Gate is destroyed.",bc_map,"0x00ff00";
@@ -1714,10 +1722,10 @@ function script LinkFlag {
mes "Teleport Service. Please";
mes "choose a destination";
mes "within the stronghold.^000000";
- for(set .@i,0; .@i<getargcount(); set .@i,.@i+3)
- set .@menu$, .@menu$+getarg(.@i)+":";
- set .@menu$, .@menu$+"Cancel";
- set .@i, select(.@menu$)-1;
+ for (.@i = 0; .@i<getargcount(); .@i += 3)
+ .@menu$ += getarg(.@i)+":";
+ .@menu$ += "Cancel";
+ .@i = select(.@menu$)-1;
if (.@i != getargcount()/3)
warp strnpcinfo(4),getarg(.@i*3+1),getarg(.@i*3+2);
close;
@@ -1726,8 +1734,8 @@ function script LinkFlag {
// Return Flags (function)
//============================================================
function script ReturnFlag {
- set .@str$, (compare(strnpcinfo(4),"aru"))?"Arunafeltz":"Schwaltzvalt";
- set .@GID, getcastledata(getarg(0),1);
+ .@str$ = (compare(strnpcinfo(4),"aru"))?"Arunafeltz":"Schwaltzvalt";
+ .@GID = getcastledata(getarg(0),1);
if (!.@GID) {
mes "[ "+.@str$+" Royal Edict ]";
mes "The Holy Kingdom of";
@@ -1806,16 +1814,16 @@ function script ReturnFlag {
switch(select("Hold the stem.:Do nothing.")) {
case 1:
if (compare(strnpcinfo(4),"arug")) {
- set .@map$,"arug_dun01";
+ .@map$ = "arug_dun01";
setarray .@mapx[0],350,350,50, 50,200;
setarray .@mapy[0],350, 50,50,350,386;
}
else {
- set .@map$,"schg_dun01";
+ .@map$ = "schg_dun01";
setarray .@mapx[0],262, 94, 79,212,322;
setarray .@mapy[0],314,284,140, 70,166;
}
- set .@i, atoi(charat(strnpcinfo(4),9))-1;
+ .@i = atoi(charat(strnpcinfo(4),9))-1;
warp .@map$,.@mapx[.@i],.@mapy[.@i];
close;
case 2: