/*		Summoner Invasion Script
		Created by: Aeromesi
		Comments: None
		Built for Hercules
*/

prontera,150,159,4	script	Invasion Summoner	90,{
INPUT_RESET:

if( getgmlevel() >= 99 ) {
	mes .@invs$ = "[^FF0000 Invasion Summoner ^000000]";
	mes "Would you like to start configuring your invasion?";
	next;
	switch(select("Yes please.:No thanks.")) {
	case 1:

MAP_INPUT:
	mes .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	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 .@invs$;
	mes "Are you fine with these choices?";
	next;
	mes .@invs$;
	mes "Map: "+@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 "etc";
	close;
	case 2:
	callsub INPUT_RESET;
	end;
}
	case 2:
	mes .@invs$;
	mes "Alright, come again if you decide to change your mind!";
	close;
}
}
end;
}