//******* Guild Manager by Vhan48**********
//******* Please Keep my Credits*********
//********Thank you*******************

prontera,135,195,4	script	Guild Manager	884,{
{
	mes "[Guild Manager]";
	mes "Hi "+ strcharinfo ( 0 ) +" I'm the guild manager, I can help you organize a guild for a fee";
  next;
  mes "[Guild Manager]";
	mes "Do you want to avail my service?";
    switch(select("Yes!:I'll think about it.")) {
	case 1:

  mes "[Guild Manager]";
  mes "Okay,you will need the following items:";
  next;
  mes "Caveiras (7420) x50";
next;
  mes "[Guild Manager]";
  mes "Are you sure you to gather it all?";
	goto yes_no;
yes_no:
	menu "Yes",g_check,"No",m_noitem;


g_check:
if(countitem(7420)<50)

  goto m_noitem;
next;
  mes "[Guild Manager]";
  mes "Seems like , it's a piece of cake for you?";
delitem 7420,50;
  next;
	mes "[Guild Manager]";
	mes "Please Enter the name of the Guild that you want to be organized:";
	next;
	input .@name$;
next;
	mes "[Guild Manager]";
	mes "Congratulations. You have now created your own guild!.";
	close2;
  atcommand "@guild "+.@name$+"";
	announce " Guild Master "+ strcharinfo ( 0 ) +" has established the "+.@name$+" Guild! Make your members proud!.",0;
	end;

m_noitem:
	mes "[Guild Manager]";
	mes "Sorry,You haven't completed the requirements yet, please come back after completing it.";

  case 2:
	mes "[Guild Manager]";
	mes "Ok, decide carefully";
  close;
  }
    }
	mes "[Guild Manager]";
  mes "Hi "+ strcharinfo ( 0 ) +" . You must not be in a guild and should be base level 99 and job level 70 to avail my services.";
	close;

}