//============================================================
//= Auto MVP Summoner
//===== By: =======================Modified By:=========
//= xMachina / Acetito Emistry / Myzter
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eA SVN 5000+
//===== Additional Comments: =================================
//= v1.0 Testing Mode
//============================================================
mid_camp,167,271,5 script MVP Attack 811,{
if (getgmlevel() < 20) {
mes "[ ^0065DFxMachina^000000 ]";
if (!.Event) {
mes "There is no MVP Attack Event now.";
} else {
mes "There is a MVP Attack Event on now!";
mes "Location: ^ff0000" + $@Map$ + "^000000";
}
close;
}
set .@ItsOK,0;
set .@SpecialMVP, $@SpecialMVP;
set .@NormalMVP, $@NormalMVP;
set .@Amount, $@Amount;
set .@ItemID, $@ItemID;
set .@Map$, $@Map$;
while(!.@Configuring) {
mes "[ ^0065DFxMachina^000000 ]";
mes "Customizing MVP Attack Event:";
mes "> MVP Item: " + (.@Amount?"^0000ff" + .@Amount:"^ff0000<Undefined>") + "^000000 x " + (getitemname(.@ItemID) == "null"?"^ff0000<Item>":"^0000ff" + getitemname(.@ItemID)) + "^000000";
mes "> Location: " + (getstrlen(.@Map$)?"^0000ff" + .@Map$:"^ff0000<Undefined>") + "^000000";
mes "> Special MVP: " + (.@SpecialMVP?"^0000ff" + .@SpecialMVP:"^ff0000<None>") + "^000000";
mes "> Normal MVP: " + (.@NormalMVP?"^0000ff" + .@NormalMVP:"^ff0000<None>") + "^000000";
mes "> Status: " + (.Event?"^ff44ffActive^000000":"^ff0000Inactive^000000");
next;
set .@ItsOK, getitemname(.@ItemID)!="null" && getstrlen(.@Map$) && getstrlen(.@Map$) < 24 && .@Amount && .@SpecialMVP && .@NormalMVP;
if (.Event) {
set .@Menu$, "^ff0000[·] Stop Event^000000:::::[x] ^ff0000Exit^000000";
} else {
set .@Menu$, (.Event?":".@ItsOK?"^0000ff[!] Start Event^000000:":":") + "- Set MVP Item:- Set Location:- Special MVP Count:- Normal MVP Count:[x] ^ff0000Exit^000000");
}
switch(select(.@Menu$)) {
case 1:
mes "[ ^0065DFxMachina^000000 ]";
mes "Are you sure you want to " + (.Event?"Stop the Event":"Start the Event") + "?";
next;
set .@Configuring, select("No:Yes")-1;
break;
case 2:
mes "[ ^0065DFxMachina^000000 ]";
mes "What item to be given to MVP Killer ?";
next;
do {
message strcharinfo(0),"Enter a VALID itemID. Example 501 - Red Potion.";
input .@ItemID,501,32767;
} while (getitemname(.@ItemID) == "null");
mes "[ ^0065DFxMachina^000000 ]";
mes "Input the Amount of ^0000ff" + getitemname(.@ItemID) + "^000000 to be Rewarded for Special MVP Killer.";
next;
input .@Amount,1,30000;
break;
case 3:
mes "[ ^0065DFxMachina^000000 ]";
mes "Which map would you like me to host this event?";
mes "Input a ^FF0000VALID^000000 mapname.";
next;
do {
message strcharinfo(0),"Enter a VALID map. Example - izlude.";
input .@Map$;
monster .@Map$,0,0,".",1084,1,strnpcinfo(3)+"::OnNormalKill";
sleep2 100;
set .@MC, mobcount(.@Map$,strnpcinfo(3)+"::OnNormalKill");
killmonster .@Map$,strnpcinfo(3)+"::OnNormalKill";
} while (.@MC<1);
break;
case 4:
mes "[ ^0065DFxMachina^000000 ]";
mes "How many ^FF0000Special^000000 MVP would you like me to summon?";
next;
input .@SpecialMVP;
break;
case 5:
mes "[ ^0065DFxMachina^000000 ]";
mes "How many ^FF0000Normal^000000 MVP would you like me to summon?";
next;
input .@NormalMVP;
break;
case 6:
mes "[ ^0065DFxMachina^000000 ]";
mes "See you later.";
close;
}
}
if (!.Event) {
set .Event,1;
set $@SpecialMVP, .@SpecialMVP;
set $@NormalMVP, .@NormalMVP;
set $@Amount, .@Amount;
set $@ItemID, .@ItemID;
set $@Map$, .@Map$;
monster $@Map$,0,0,"--ja--",-3,$@SpecialMVP,strnpcinfo(3)+"::OnSpecialKill";
monster $@Map$,0,0,"--ja--",-3,$@NormalMVP,strnpcinfo(3)+"::OnNormalKill";
announce "Map Invasion Begin : " + $@SpecialMVP + " Special MVP has invaded in " + $@Map$ + ". Hurry Up..",bc_all,0x98FB98;
} else {
set .Event,0;
announce "The MVP Attack Event is now over!",0,0x98FB98;
killmonster $@Map$,"All";
}
mes "[ ^0065DFxMachina^000000 ]";
mes (.Event?"Starting":"Stopping") + " the event now...";
close;
OnClock0000:
OnClock0500:
OnClock1000:
OnClock1500:
OnClock2000:
if (!.Event) {
set .Event,1;
monster $@Map$,0,0,"--ja--",-3,$@SpecialMVP,strnpcinfo(3)+"::OnSpecialKill";
monster $@Map$,0,0,"--ja--",-3,$@NormalMVP,strnpcinfo(3)+"::OnNormalKill";
announce "Map Invasion Begin : "+$@SpecialMVP+" Special MVP has invaded in " + $@Map$ + ". Hurry Up..",bc_all,0x98FB98;
}
OnSpecialKill:
set .@MobCnt, mobcount($@Map$,strnpcinfo(3)+"::OnSpecialKill");
if (playerattached()) {
if (!.@MobCnt) {
announce $@Map$ + ": " + strcharinfo(0) + " has killed the last Special MVP",bc_all;
} else {
announce $@Map$ + ": " + strcharinfo(0) + " has killed 1 Special MVP and Gained Mystery Items - Remaining Special MVP: " + .@MobCnt,(!rand(3)?bc_all:bc_map);
}
getitem $@ItemID,$@Amount;
}
if (!.@MobCnt) {
set .Event,0;
killmonster $@Map$,"All";
sleep 5000;
mapannounce $@Map$, "The MVP Attack Event is now over!",bc_all,0x98FB98;
}
end;
OnNormalKill:
if (playerattached()) dispbottom "You killed Normal MVP ( No Reward ). Special MVP Left : "+mobcount($@Map$,strnpcinfo(3)+"::OnSpecialKill")+" .";
end;
}
Question
Fcuk
please help me modify this script
Modification
1. Remove NORMAL MVP in the menu of configuration
2. Limit the MVP that can be spawn to 20 MVP only
Link to comment
Share on other sites
2 answers 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.