- script mvp -1,{
OnWhisperGlobal:
if ( getgmlevel () < 99 ) end;
mes "^FF0000~Hi GM " + strcharinfo(0) + "!~^000000";
switch(select("Start Invasion?:Not today Fellas!")){
case 1:
mes "[Manager]";
mes "^FF0000~Sure thing!~^000000";
close2;
goto OnInvasionStart;
case 2:
next;
mes "[Manager]";
mes "Bye!";
close;
}
OnClock0000:
OnClock0400:
OnClock0800:
OnClock1200:
OnClock1600:
OnClock2000:
OnInvasionStart:
set .t, rand(getarraysize(.@map$));
set .cnt, 1;
set .killed, .quan;
announce "Monsters are invading town "+.map$[.t],0;
announce "Wave #"+(.cnt)+" starts!",0;
monster .map$[.t],0,0,"Invasion Monster",.mob[rand(getarraysize(.mob))],.quan,strnpcinfo(0)+"::OnInvasionKilled";
end;
OnInvasionKilled:
set inv_point, inv_point + 2;// +1 mvp point
dispbottom "----------------------------------------------------------------------";
dispbottom "You Have Successfully Killed an Enemy";
dispbottom "You Have Gained 2 Invasion Point";
dispbottom "You now have a total of "+ inv_point +" Invasion Point(s)";
dispbottom "----------------------------------------------------------------------";
set .killed, .killed - 1;
switch( .killed )
{
case 0:
break;
default:
mapannounce .map$[.t],"Monster left on map: "+.killed,0;
end;
}
set .cnt, .cnt + 1;
set .killed, .quan;
if( .cnt > .wave ) {
announce "The Invasion Boss shows himself!",0;
monster .map$[.t],0,0,"Invasion Boss",.boss[rand(getarraysize(.boss))],1,strnpcinfo(0)+"::OnBossKilled";
end;
}
announce "Wave #"+(.cnt)+" starts!",0;
monster .map$[.t],0,0,"Invasion Monster",.mob[rand(getarraysize(.mob))],.quan,strnpcinfo(0)+"::OnInvasionKilled";
end;
OnBossKilled:
announce strcharinfo(0)+" has ended the invasion in "+.map$[.t],0;
set inv_point, inv_point +100;
dispbottom "----------------------------------------------------------------------";
dispbottom "You Have Successfully Killed the Boss!!";
dispbottom "You Have Gained 100 Invasion Point";
dispbottom "You now have a total of "+ inv_point +" Invasion Point(s)";
dispbottom "----------------------------------------------------------------------";
getitem 607,1;
end;
OnInit:
set .wave, 2; // Number of waves BEFORE the boss
set .quan, 100; // Number of mobs spawned for each non-MVP wave
setarray .boss[0],1719; // Add all MVP IDs that you want to summon at random
setarray .mob[0],1703; // Add all the mob IDs that you want to summon at random
setarray .map$[0],"geffen","hugel","aldebaran"; // Add all the map warps you want your invasion to take place at random
}
//============== Invasion Shop ===================================
prontera,144,172,3 script Invasion Shop 533,{
function Add; function Chk; function Slot; function A_An;
if (.Shops$ == "") set .@i, select(.menu$);
else set .@i,1;
dispbottom "Select one item at a time.";
callshop "invshop"+.@i,1;
npcshopattach "invshop"+.@i;
end;
function Add {
if (getitemname(getarg(1)) == "null") {
debugmes "Quest reward #"+getarg(1)+" invalid (skipped).";
return;
}
for(set .@n,5; .@n<127; set .@n,.@n+2) {
if (!getarg(.@n,0)) break;
if (getitemname(getarg(.@n)) == "null") {
debugmes "Quest requirement #"+getarg(.@n)+" invalid (skipped).";
return;
}
}
for(set .@i,2; .@i<.@n; set .@i,.@i+1)
set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i);
npcshopadditem "invshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);
return;
}
function Chk {
if (getarg(0) < getarg(1)) {
set @qe0,1;
return "^FF0000";
}
else return "^00FF00";
}
function Slot {
set .@s$,getitemname(getarg(0));
switch(.ShowSlot) {
case 1: if (!getitemslots(getarg(0))) return .@s$;
case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]";
default: return .@s$;
}
}
function A_An {
setarray .@A$[0],"a","e","i","o","u";
set .@B$, "_"+getarg(0);
for(set .@i,0; .@i<5; set .@i,.@i+1)
if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0);
return "a "+getarg(0);
}
OnBuyItem:
set .@q[0],@bought_nameid;
copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]"));
if (!.@q[1]) {
message strcharinfo(0),"An error has occurred.";
end;
}
mes "[Quest Shop]";
mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000";
mes "Requirements:";
if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000";
if (.@q[3]) mes " > "+Chk(getd(.Points$[0]),.@q[3])+.@q[3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+.@q[3]+")^000000";
if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)
mes" > "+Chk(countitem(.@q[.@i]),.@q[.@i+1])+((.DisplayID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+.@q[.@i+1]+")^000000";
next;
set @qe1, getiteminfo(.@q[0],5);
set @qe2, getiteminfo(.@q[0],11);
addtimer 1000, strnpcinfo(1)+"::OnEnd";
while(1) {
switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000: ~ ^777777Cancel^000000")) {
//"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2 > 0 && !@qe6)?" ~ Preview...":"")+":
case 1:
if (@qe0) {
mes "[Quest Shop]";
mes "You're missing one or more quest requirements.";
close;
}
if (!checkweight(.@q[0],.@q[1])) {
mes "[Quest Shop]";
mes "^FF0000You need "+(((.@q[1]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";
close;
}
if (.@q[2]) set Zeny, Zeny-.@q[2];
if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3];
if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)
delitem .@q[.@i],.@q[.@i+1];
getitem .@q[0],.@q[1];
if (.Announce) announce strcharinfo(0)+" , performed a task/perform a donation",0;
specialeffect2 699;
close;
/*
case 2:
set @qe3, getlook(LOOK_HEAD_BOTTOM);
set @qe4, getlook(LOOK_HEAD_TOP);
set @qe5, getlook(LOOK_HEAD_MID);
set @qe6,1;
if (@qe1&1) changelook LOOK_HEAD_BOTTOM, @qe2;
if (@qe1&256) changelook LOOK_HEAD_TOP, @qe2;
if (@qe1&512) changelook LOOK_HEAD_MID, @qe2;
break;
*/
case 3:
close;
}
}
OnEnd:
if (@qe6) {
changelook LOOK_HEAD_BOTTOM, @qe3;
changelook LOOK_HEAD_TOP, @qe4;
changelook LOOK_HEAD_MID, @qe5;
}
for(set .@i,0; .@i<7; set .@i,.@i+1)
setd "@qe"+.@i,0;
end;
OnInit:
waitingroom "Invasion Shop",0;
freeloop(1);
}
// --------------------- Config ---------------------
// Custom points, if needed: "<variable>","<nametodisplay>"
setarray .Points$[0],"inv_point","Invation Points";
set .Announce,0; // Announce quest completion? (1: yes / 0: no)
set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never)
set .DisplayID,0; // Show item IDs? (1: yes / 0: no)
set .ShowZeny,1; // Show Zeny cost, if any? (1: yes / 0: no)
// Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};
// Duplicate dummy data for any additional shops (bottom of script).
// If no categories, use the second line instead (remove //).
setarray .Shops$[1],"Invasion Coin Trader";
//x` set .Shops$,"n/a";
// Add(<shopnumber>,<rewardID>,<rewardamount>,<Zenycost>,<pointcost>,
// <requireditemID>,<requireditemamount>{,...});
// Shop number corresponds with order above (default is 1).
// Note: Do NOT use a reward item more than once!
Add(1,674,1,30,30,0,0); //Mithril Coin
// --------------------------------------------------
freeloop(0);
set .menu$,"";
for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {
set .menu$, .menu$+.Shops$[.@i]+":";
npcshopdelitem "invshop"+.@i,909;
}
end;
}
// -------- Dummy data (duplicate as needed) --------
- shop invshop1 -1,909:-1
my quest shop was working fine for the past 3 weeks, but now, the menu of the shop was missing. need help. show unknown syntax in file @ line 201.
Question
jaycruzqq
my quest shop was working fine for the past 3 weeks, but now, the menu of the shop was missing. need help. show unknown syntax in file @ line 201.
Edited by jaycruzqq1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.