/*	Looking for Party/Member/Leecher Script
	Created by: Aeromesi
	Version 1.0
*/
prontera,150,151,4	script	P-M-L Broadcaster	89,{
	mes "[^FF0000P-M-L Broadcaster^000000]";
	mes "What would you like to do?";
	next;
switch(select("Search for Party Members:Inquire Party:Look for Leecher")) {

case 1:
mes .bcastn$;
callfunc ("LFPM_MENU");

case 2:
mes .bcastn$;
callfunc ("INQ_PARTY");

case 3:
mes .bcastn$;
callfunc ("L_LEECH");

}
}
function	script	LFPM_MENU	{
	setarray .@classlist$[0],"Lord Knight","High Priest","High Wizard","Whitesmith","Sniper","Assassin Cross","Paladin","Champion","Professor","Stalker","Creator","Clown","Gypsy";
	mes .bcastn$ = "[^FF0000P-M-L Broadcaster^000000]";
	mes "Input the Character Level you would recommend to hire in your Party.";
	input .@mMin,1,99-10;
	.@mMax = .@mMin + 10;
	next;
	mes .bcastn$;
	mes "So you chose ^FF0000"+.@mMin+"^000000 - ^0000FF"+.@mMax+"^000000 as the Level Gap.";
	mes "Is this correct?";
	next;
	switch(select("Yes:No")) {
case 1:
	mes .bcastn$;
	mes "Now which class are you looking to hire in your party?";
	next;
switch(select(implode(.@classlist$,":"))) {
		default:
		.@job = @menu - 1;
	mes .bcastn$;
	mes "Alright, you chose ^0000FF"+ .@classlist$[.@job] + "^000000.";
	next;
	mes .bcastn$;
	mes "Broadcasted message will appear as:";
	mes "^006400"+strcharinfo(0)+"^000000: Looking for party Members with Level ^FF0000"+.@mMin+"^000000 - ^0000FF"+.@mMax+"^000000 Job needed: "+ .@classlist$[.@job] +".";
	mes " ";
	mes "Is this okay?";
	next;
switch(select("Yes:No")) {
case 1:
	mes .bcastn$;
	mes "I will now broadcast your message.";
	sleep2 2000;
	announce strcharinfo(0)+": Looking for Party Members with Level "+.@mMin+" - "+.@mMax+" Job needed: "+ .@classlist$[.@job] +".",0;
	close2;
	end;
case 2:
	mes .bcastn$;
	mes "Alright, re-enter your details.";
	next;
	callfunc ("LFPM_MENU");
}
}
case 2:
	mes .bcastn$;
	mes "Re-input your level gap.";
	next;
	callfunc ("LFPM_MENU");
}
}
function	script	INQ_PARTY	{

.@CharLVL = BaseLevel;

	mes .bcastn$ = "[^FF0000P-M-L Broadcaster^000000]";
	mes "Would you like to Inquire for a Party?";
	next;
switch(select("Yes:No")) {
case 1:
	mes .bcastn$;
	mes "I will now broadcast your Inquiry for a Party.";
	sleep2 2000;
	announce strcharinfo(0)+" shouts: Looking for Party, my job is "+jobname(Class)+" and I'm Level "+.@CharLVL+".",0;
close;

case 2:
	mes .bcastn$;
	mes "Alright, come again if you changed your mind!";
close;
}
}
function	script	L_LEECH	{

.@LCharLVL = BaseLevel;

	mes .bcastn$ = "[^FF0000P-M-L Broadcaster^000000]";
	mes "Would you like to Look for a Leecher?";
	next;
switch(select("Yes:No")) {
case 1:
	mes .bcastn$;
	mes "I will now broadcast that you need a Leecher.";
	sleep2 2000;
	announce strcharinfo(0)+" shouts: Looking for Leecher, my job is "+jobname(Class)+" and I'm Level "+.@LCharLVL+".",0;
close;

case 2:
	mes .bcastn$;
	mes "Alright, come again if you changed your mind!";
close;
}
}