/* Summoner Invasion Script
Created by: Aeromesi
Comments: None
Built for Hercules
*/
prontera,150,159,4 script Invasion Summoner 90,{
mes .@insv$ = "[^FF0000 Invasion Summoner ^000000]";
INPUT_RESET:
/*if(getgmlevel() <= 1 ) {
if (!Summ_Inv_Active$)
mes "There is currently no Invasion in progress currently.";
close;
} else
if (Summ_Inv_Active$ == 1) {
mes "Currently there is an invasion going on in "+@MapInput$+" head there now to protect the city and reap the rewards!";
close;
}*/
if( getgmlevel() >= 99 ) {
mes "Would you like to start configuring your invasion?";
next;
switch(select("Yes please.:No thanks.")) {
case 1:
MAP_INPUT:
mes .@insv$;
mes "Please input the map you want the Invasion to start on.";
input @MapInput$;
if ( input( @MapInput$, 4, 23 ) ) {
dispbottom " Please input a valid map name with length between 4~23";
callsub MAP_INPUT;
end;
}
if ( getmapusers(@MapInput$) == -1 ) {
dispbottom "Please input a valid mapname.";
callsub MAP_INPUT;
end;
}
mes "Alright, so the map we chose is ^FF0000"+@MapInput$+"^000000.";
next;
MOB1_INPUT:
mes .@insv$;
mes "Alright, please input Monster 1.";
input .Mob1ID;
next;
if(getmonsterinfo(.Mob1ID,MOB_LV)<0 || getmonsterinfo(.Mob1ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB1_INPUT;
end;
}
MOB1_INPUTAM:
mes "How many of "+strmobinfo(1,.Mob1ID)+" would you like to spawn?";
input .Mob1AM;
if(.Mob1AM == 0) {
mes "Sorry, but it's impossible to enter 0 monsters.";
mes "Please reinput "+strmobinfo(1,.Mob1ID)+"'s amount.";
callsub MOB1_INPUTAM;
end;
}
mes "Alright, monster 1 will be ["+strmobinfo(1,.Mob1ID)+"] x ("+.Mob1AM+").";
next;
MOB2_INPUT:
mes .@insv$;
mes "Please input Monster 2.";
input .Mob2ID;
if(getmonsterinfo(.Mob2ID,MOB_LV)<0 || getmonsterinfo(.Mob2ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB2_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob2ID)+" would you like to spawn?";
input .Mob2AM;
mes "Alright, monster 2 will be ["+strmobinfo(1,.Mob2ID)+"] x ("+.Mob2AM+").";
next;
MOB3_INPUT:
mes .@insv$;
mes "Please input Monster 3.";
input .Mob3ID;
if(getmonsterinfo(.Mob3ID,MOB_LV)<0 || getmonsterinfo(.Mob3ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB3_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob3ID)+" would you like to spawn?";
input .Mob3AM;
mes "Alright, monster 3 will be ["+strmobinfo(1,.Mob3ID)+"] x ("+.Mob3AM+").";
next;
MOB4_INPUT:
mes .@insv$;
mes "Please input Monster 4.";
input .Mob4ID;
if(getmonsterinfo(.Mob4ID,MOB_LV)<0 || getmonsterinfo(.Mob4ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB4_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob4ID)+" would you like to spawn?";
input .Mob4AM;
mes "Alright, monster 4 will be ["+strmobinfo(1,.Mob4ID)+"] x ("+.Mob4AM+").";
next;
MOB5_INPUT:
mes .@insv$;
mes "Please input Monster 5.";
input .Mob5ID;
if(getmonsterinfo(.Mob5ID,MOB_LV)<0 || getmonsterinfo(.Mob5ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB5_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob5ID)+" would you like to spawn?";
input .Mob5AM;
mes "Alright, monster 5 will be ["+strmobinfo(1,.Mob5ID)+"] x ("+.Mob5AM+").";
next;
MOB6_INPUT:
mes .@insv$;
mes "Please input Monster 6.";
input .Mob6ID;
if(getmonsterinfo(.Mob6ID,MOB_LV)<0 || getmonsterinfo(.Mob6ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB6_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob6ID)+" would you like to spawn?";
input .Mob6AM;
mes "Alright, monster 6 will be ["+strmobinfo(1,.Mob6ID)+"] x ("+.Mob6AM+").";
next;
MOB7_INPUT:
mes .@insv$;
mes "Please input Monster 7.";
input .Mob7ID;
if(getmonsterinfo(.Mob7ID,MOB_LV)<0 || getmonsterinfo(.Mob7ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB7_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob7ID)+" would you like to spawn?";
input .Mob7AM;
mes "Alright, monster 7 will be ["+strmobinfo(1,.Mob7ID)+"] x ("+.Mob7AM+").";
next;
MOB8_INPUT:
mes .@insv$;
mes "Please input Monster 8.";
input .Mob8ID;
if(getmonsterinfo(.Mob8ID,MOB_LV)<0 || getmonsterinfo(.Mob8ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB8_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob8ID)+" would you like to spawn?";
input .Mob8AM;
mes "Alright, monster 8 will be ["+strmobinfo(1,.Mob8ID)+"] x ("+.Mob8AM+").";
next;
MOB9_INPUT:
mes .@insv$;
mes "Please input Monster 9.";
input .Mob9ID;
if(getmonsterinfo(.Mob9ID,MOB_LV)<0 || getmonsterinfo(.Mob9ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB9_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob9ID)+" would you like to spawn?";
input .Mob9AM;
mes "Alright, monster 9 will be ["+strmobinfo(1,.Mob9ID)+"] x ("+.Mob9AM+").";
next;
MOB10_INPUT:
mes .@insv$;
mes "Please input Monster 10.";
input .Mob10ID;
if(getmonsterinfo(.Mob10ID,MOB_LV)<0 || getmonsterinfo(.Mob10ID,MOB_NAME)=="Dummy") {
dispbottom "Please enter valid Monster ID";
callsub MOB10_INPUT;
end;
}
mes "How many of "+strmobinfo(1,.Mob10ID)+" would you like to spawn?";
input .Mob10AM;
mes "Alright, monster 10 will be ["+strmobinfo(1,.Mob10ID)+"] x ("+.Mob10AM+").";
next;
mes .@insv$;
mes "Are you fine with these choices?";
next;
mes .@insv$;
mes "Map: ^FF0000"+@MapInput$+"^000000.";
$MapInput$ = @MapInput$;
mes "";
mes "Monster Information:";
mes "1. ["+strmobinfo(1,.Mob1ID)+"] x ("+.Mob1AM+").";
mes "2. ["+strmobinfo(1,.Mob2ID)+"] x ("+.Mob2AM+").";
mes "3. ["+strmobinfo(1,.Mob3ID)+"] x ("+.Mob3AM+").";
mes "4. ["+strmobinfo(1,.Mob4ID)+"] x ("+.Mob4AM+").";
mes "5. ["+strmobinfo(1,.Mob5ID)+"] x ("+.Mob5AM+").";
mes "6. ["+strmobinfo(1,.Mob6ID)+"] x ("+.Mob6AM+").";
mes "7. ["+strmobinfo(1,.Mob7ID)+"] x ("+.Mob7AM+").";
mes "8. ["+strmobinfo(1,.Mob8ID)+"] x ("+.Mob8AM+").";
mes "9. ["+strmobinfo(1,.Mob9ID)+"] x ("+.Mob9AM+").";
mes "10. ["+strmobinfo(1,.Mob10ID)+"] x ("+.Mob10AM+").";
next;
switch(select("Yes, start Invasion.:Redue Invasion.")) {
case 1:
mes "Invasion activated!";
mes "GM you will now be warped to the map to enable the event.";
// $@Inv_Active++;
warp $MapInput$,0,0, donpcevent("Invasion Summoner::OnStartInvasion");
close;
case 2:
callsub INPUT_RESET;
end;
}
case 2:
mes .@insv$;
mes "Alright, come again if you decide to change your mind!";
close;
}
}
if(getgmlevel() <= 1 && !$@Inv_Active ) {
mes "There is currently no Invasion in progress currently.";
close;
} else
mes "Currently there is an invasion going on in "+$MapInput$+" head there now to protect the city and reap the rewards!";
close;
OnStartInvasion:
announce "The invasion has begun at "+$MapInput$+" please go there at once to protect the city and reap the rewards!",bc_all;
end;
}