MVP summoner NPC

[Seiro]

Can anyone make me this script?

MVP Summoner that summons random MVP every hour.

• Does not summon another MVP when there's still one alive.
  
• (if possible) Has option to teleport player to the MVP. has delay for 3 minutes
  
• Will teleport players to their saved point in 15 seconds after MVP is killed. -will announce in map
  
• Resets time of summoning to an hour when MVP is killed. (player has to wait another hour after MVP is killed)
  

I'm using pvp_n_1-2 as my map, you can put the NPC inside.

Thanks a lot!

[Mootie]

use my edited automated mvp summoner

-	script	Sample	-1,{
OnInit:
setarray .Map$[0],"prontera","payon","izlude","lighthalzen","louyang","comodo","xmas","aldebaran","geffen","morocc";
setarray .MVP[0],1658,1648,1751,1312,1511,1647,1785,1630,1399,1874,2068,1272,1719,1046,1389,1112,1115,1418,1871,1252,1768,1086,1885,1649,1651,1832,1734,1779,1688,1646,1623,1650,1583,1708,1685,1648,1658;
end;

OnMinute00:
killmonster .Map$[ .RandMap ],"All";
set .RandMap,rand( getarraysize( .Map$ ) );
set .RandMVP,rand( getarraysize( .MVP ) );
monster .Map$[ .RandMap ],0,0,"MVP Event",.MVP[ .RandMVP ],1,strnpcinfo(0)+"::OnKilled";
announce "MVP Event : "+getmonsterinfo( .MVP[ .RandMVP ],0 )+" occur in "+.Map$[ .RandMap ]+" .",0;
end;

OnKilled:
announce "MVP Event : End...MVP Died",0;
end;
}

if you want to summon this mvp summoner for 1 map edit this line

setarray .Map$[0],"pvp_n_1-2";

Edited December 4, 2012 by Mootie

[Ajjwidjdneidjenw]

Not tested, probably has some problems, currently not able to test.

pvp_n_1-2,150,75,4	script	MvP NPC	59,{
if (!mobcount("this","all") end;
if((@coold+180) > gettimetick(2))  end;
mes "["+strnpcinfo(1)+"]";
mes "Do you wish to be warped to the MvP?";
if(Select("Yes please:No Thanks")==2) close;
if (!mobcount("this","all") {
	mes "The MvP has been killed already";
	close;
}	
getmapxy .@m$,.@x,.@y,3,getmonsterinfo(.MvP$[.rand],0);
set @coold,gettimetick(2);
close2;
warp .@m$,.@x,.@y;
end;

OnTimer3600000:
set .rand,rand(getarraysize(.MvP$);
monster "this", 0, 0, "--ja--", .MvP$[.rand], 1,strnpcinfo(0)+"::OnMvPDeath";
Stopnpctimer;
end;

OnMvPDeath:
Mapannounce "this","The MvP '"+getmonsterinfo(.MvP$[.rand],0)+"'has been slain by "+strcharinfo(0);
startnpctimer;
sleep 15000;
mapwarp "pvp_n_1-2","SavePoint",0,0;
end;
OnInit:
setarray .MvP$[0],1002,1003,1004; //List of Random MvP's
Startnpctimer;
end;
}

Edited December 4, 2012 by garet999

[Mootie]

Not tested, probably has some problems, currently not able to test.

pvp_n_1-2,150,75,4	script	MvP NPC	59,{
if (!mobcount("this","all") end;
if((@coold+180) > gettimetick(2))  end;
mes "["+strnpcinfo(1)+"]";
mes "Do you wish to be warped to the MvP?";
if(Select("Yes please:No Thanks")==2) close;
if (!mobcount("this","all") {
	mes "The MvP has been killed already";
	close;
}	
getmapxy .@m$,.@x,.@y,3,getmonsterinfo(.MvP$[.rand],0);
set @coold,gettimetick(2);
close2;
warp .@m$,.@x,.@y;
end;

OnTimer3600000:
set .rand,rand(getarraysize(.MvP$);
monster "this", 0, 0, "--ja--", .MvP$[.rand], 1,strnpcinfo(0)+"::OnMvPDeath";
Stopnpctimer;
end;

OnMvPDeath:
Mapannounce "this","The MvP '"+getmonsterinfo(.MvP$[.rand],0)+"'has been slain by "+strcharinfo(0);
startnpctimer;
sleep 15000;
mapwarp "pvp_n_1-2","SavePoint",0,0;
end;
OnInit:
setarray .MvP$[0],1002,1003,1004; //List of Random MvP's
Startnpctimer;
end;
}

your like vice versa of mine o.o lol

[Ajjwidjdneidjenw]

Not tested, probably has some problems, currently not able to test.

pvp_n_1-2,150,75,4	script	MvP NPC	59,{
if (!mobcount("this","all") end;
if((@coold+180) > gettimetick(2))  end;
mes "["+strnpcinfo(1)+"]";
mes "Do you wish to be warped to the MvP?";
if(Select("Yes please:No Thanks")==2) close;
if (!mobcount("this","all") {
	mes "The MvP has been killed already";
	close;
}	
getmapxy .@m$,.@x,.@y,3,getmonsterinfo(.MvP$[.rand],0);
set @coold,gettimetick(2);
close2;
warp .@m$,.@x,.@y;
end;

OnTimer3600000:
set .rand,rand(getarraysize(.MvP$);
monster "this", 0, 0, "--ja--", .MvP$[.rand], 1,strnpcinfo(0)+"::OnMvPDeath";
Stopnpctimer;
end;

OnMvPDeath:
Mapannounce "this","The MvP '"+getmonsterinfo(.MvP$[.rand],0)+"'has been slain by "+strcharinfo(0);
startnpctimer;
sleep 15000;
mapwarp "pvp_n_1-2","SavePoint",0,0;
end;
OnInit:
setarray .MvP$[0],1002,1003,1004; //List of Random MvP's
Startnpctimer;
end;
}

your like vice versa of mine o.o lol

Excuse me, I don't quite get what you mean . I've written this in request of the person. All specified elements are in there.

[Seiro]

Not tested, probably has some problems, currently not able to test.

There are errors :x I tried fixing it but it reached my limit lol

use my edited automated mvp summoner

--- False call

works fine. now I'll just try to edit and add the teleport..

-

Does this wait for the current MVP to be killed before it summons one again nvmit

Ok nvm, it kills the current MVP if it reaches another another hour eh

Edited December 4, 2012 by Seiro

[Ajjwidjdneidjenw]

Lemme fix it.

[Seiro]

Lemme fix it.

Alright! thanks