//========================= Custom Script ====================================//
//===== Designed by: SilverBladeX ============================================//
//===== Orginal Idea by: Mercurial ===========================================//
//===== Description ==========================================================//
//= This is a Guild Bank designed so that, every member of a =================//
//= guild may [Withdraw/Deposit] money. Also with a daily income. ============// 
//= (Derived from the kafra bank) ============================================//
//===== Version Changes ======================================================//
//= 1.0 - Remastered Guild Bank Originally Designed by (Mercurial)============//
//= 1.1 - Added Income feature from the Kafra Bank. (5x Kafra Bank Income) ===//
//= 1.2 - Added to Guild Master Menu's: Withdrawl settings. ==================// 
//= 1.3 - Added a Deposit Limit that is changeable by the Guild Master. ======//
//= 1.4 - Added a [Withdraw/Deposit] counter that gives members only the =====//
//=       deposit menu, after they have withdrawn [X] amount of times. =======//
//=       Changeable by the Guild Master. ====================================//
//= 1.5 - Added Timers set to Invoking Character's Account. (Prevent Abuse) ==//
//= 1.6 - Fixed a bug that prevented the Timer working after logging off. ====//
//= 1.7 - Made Text Colorful for viewing pleasure. (Not really an update xD) =//
//= 1.8 - Took out Timer due to Variable errors. =============================//
//= 1.9 - Organized the Script for easy access. ==============================//
//=       Added a Deposit All Menu. ( Deposits All your zeny into the Acct, ==//
//=       As well as depositing enough to max out the bank acct.) ============//
//============================================================================//
prontera,160,182,4	script	Pacific Banker::pbank	429,{
//============================ Income Section ================================//
set @gb_incT,(gettime(6)*60)+gettime(5); // Income Time Frame
set @income,0; // Needed to prevent exploiting
if (getd("$gzeny"+getcharid(2))<=0 || #gb_incT>=@gb_incT) goto noIncome;
set @income, (getd("gzeny"+getcharid(2))/200)*(@gb_incT-#gb_incT); //Sets income rate
if (@income>500000) set @income, 500000; // Sets Maximum Income Value
		noIncome:
		          set #gb_incT,@gb_incT; //Resets Days Timer. Needed to prevent exploits

//=============================== The Script =================================//
set .@npcName$,"^0000FF[Guild Banker]^000000"; // Universal NPC name for Script
if (getcharid(2)==0) goto N_Guild; // Re-Directs those without a Guild
if (strcharinfo(0)!=getguildmaster(getcharid(2))) goto W_Check; // Re-Directs the Guild Members
if (strcharinfo(0)==getguildmaster(getcharid(2))) goto GM_Guild; // Re-Directs the Guild Master
//=========================== No Guild Section ===============================//
N_Guild:
  mes .@npcName$;
  mes "Sorry, But you cannot open an account with our services with out a guild.";
  close;
//=========================== Guild Master Section ===========================//
GM_Guild:
  mes .@npcName$;
  mes "Welcome Back. Let me get your Guild's Account Status.";
  if (@income<1) mes "Your Income hasn't come in yet."; // Displays if Income is 0
  if (@income>0) mes "Today's Income: ^66FF33"+@income+"^000000Zeny."; // Displays Income amount if greater than 0
  set getd("$gzeny"+getcharid(2)),getd("$gzeny"+getcharid(2))+@income; // Changes Guild's Zeny Balance to: Zeny + Income.
  if (getd("$gzeny"+getcharid(2))==0) mes "Your Guild's Account has no zeny inside."; // Displays if Acct Balance is 0
  if (getd("$gzeny"+getcharid(2))>0) mes "Account Balance: ^66FF33"+getd("$gzeny"+getcharid(2))+"^000000Zeny"; // Displays Acct Balance if greater than 0
  next;
  mes .@npcName$;
  mes "How may I assist you today?";
  if (getd("$greg"+getcharid(2))==0){menu "Register Guild",N_Reg,"Cancel",cancel;}
  if (getd("$greg"+getcharid(2))==1)
	   {menu "Withdraw",GMwithdraw,
           "Deposit",GMdeposit,
           "Set/Change Password",setpass,
           "Set Guild Rank Access Rights",guildRank,
           "Set Withdrawl Limits",set_Withdraw_Limits,
           "Set Deposit Limits",set_Deposit_Limits;}
GMwithdraw:
  next;
  mes .@npcName$;
  mes "Please enter the desired ammount.";
  mes "Once again here is your accounts balance.";
  mes "Account Balance: ^66FF33"+getd("$gzeny"+getcharid(2))+"^000000Zeny"; // Displays Acct Balance					
  input @withdraw;
  if (@withdraw>getd("$gzeny"+getcharid(2))) goto N_enough_G;
  if (@withdraw>1000000000-zeny) goto P_Limit;
  set zeny,zeny+@withdraw;
  setd "$gzeny"+getcharid(2),getd("$gzeny"+getcharid(2))-@withdraw;
  next;
  mes .@npcName$;
  mes "Alright, here is the zeny you requested.";
  mes "Have a nice day.";
  close;
GMdeposit:
  next;
  mes .@npcName$;
  mes "Please make a selection";
	menu "Input Ammount to Deposit",inputDepositGM,"Deposit All Zeny",depositAllGM;
inputDepositGM:
	next;
	mes "Very well, please enter the ammount you wish to deposit. Be warned that your ^0000FF[Guild Bank]^000000 can only hold";
	mes "^00FFFF[ 2,000,000,000 ]^000000 Zeny.";
  next;
  mes .@npcName$;
	mes "Guild Account Balance: ^66FF33"+getd("$gzeny"+getcharid(2))+"^000000Zeny.";
  mes "Your Zeny Amount: ^66FF33"+zeny+"^000000Zeny.";
  input @deposit;
  if (@deposit>zeny) goto N_enough_P;
  set zeny,zeny-@deposit;
  setd "$gzeny"+getcharid(2),getd("$gzeny"+getcharid(2))+@deposit;
  next;
  mes "Alright, I have deposited your zeny into the Guilds Bank Account.";
  mes "Have a nice day.";
  close;
depositAllGM:
  set @depositAll,zeny;
  set zeny,zeny-@depositAll;
  setd "$gzeny"+getcharid(2),getd("$gzeny"+getcharid(2))+@depositAll;
	next;
	mes .@npcName$;
  mes "I have deposited all of your zeny into the ^0000FF[Guild Bank]^000000";
  mes "Have a nice day.";
  close;
setpass:
  next;
  mes .@npcName$;
  mes "Very well, please enter the desired password";
  mes "To remove your currect password simply enter ' none '";
  mes "Without the quotes ofcourse.";
  mes "^0000CCNote: If you have just registered recently, then no password has been set.^000000";
  mes "^0000CCNote2: All passwords are case sensitive.^000000";
  input .gbpassword$;
  setd "$gbpassword"+getcharid(2)+"$",.gbpassword$;
  next;
  mes .@npcName$;
  mes "Please enter the password again for verification.";
  input .gbpassword$;
  if (getd("$gbpassword"+getcharid(2)+"$")!=.gbpassword$) goto passTry;
  if (getd("$gbpassword"+getcharid(2)+"$")==.gbpassword$) goto passSucc;
  end;
  passTry:
  next;
  mes .@npcName$;
  mes "Password does not match, Please try again.";
  setd "$gbpassword"+getcharid(2)+"$","none";
  goto setpass;
  end;
  passSucc:
  next;
  mes .@npcName$;
  mes "You have successfully set a password for your Guild Bank.";
  next;
  goto GM_Guild;
  end;
guildRank:
  next;
  mes .@npcName$;
  mes "Please Input the Rank that will be able to withdraw.";
  mes "0-19";
  mes "0=Guild Master & 19=Lowest Rank in guild.";
  mes "^0000CCExample: If you input 18, then every one but your lowest ranking members may withdraw.";
  input .position;
  setd "$position"+getcharid(2),.position;
  next;
  goto GM_Guild;
  end;
set_Withdraw_Limits:
  next;
  mes .@npcName$;
  mes "Please select a setting that you wish to modify.";
  mes "Setting 1: Maximum Zeny a Player may Withdraw at a time.";
  mes "Setting 2: Maximum Number of Times, a Player may Withdraw, before being forced to deposit.";
  menu "Maximum Zeny a Player may Withdraw",set_wLimit,"Maximum Withdraw, before Deposit",WD_Limit;
set_wLimit:
  next;
  mes .@npcName$;
  mes "Please Input the maximum amount of zeny a player may withdraw at one time.";
  mes "This setting is set to: ^0000FF[10,000,000 Zeny]^000000, by default.";
  mes "^0000FF[1-10,000,000]^000000. With [1] being the least, and [10,000,000] being the maximum.";
  mes "^0000FFPlease input all numbers without commas or brackets.^000000";
  mes "^0000FFExample:^000000 ^66FF331 = Correct.^000000 ^FF3333[1] = Incorrect.^000000 ^66FF3310000000 = Correct.^000000 ^FF333310,000,000 = Incorrect.^000000";
  input .wLimit;
  if (.wLimit <= 0){next; mes .@npcName$; mes "That Input is invalid, please try again."; goto set_wLimit;}
  if (.wLimit > 10000000){next; mes .@npcName$; mes "That Input is invalid, please try again."; goto set_wLimit;}
  setd "$wLimit"+getcharid(2),.wLimit;
  next;
  goto GM_Guild;
  end;
WD_Limit:
  next;
  mes .@npcName$;
  mes "Please Input the maximum number of times, a player may withdraw, before being only capable of depositing.";
  mes "This setting is set to: ^0000FF[0 Times]^000000, by default.";
  mes "^0000FF[0-999]^000000. With [0] being unlimited, and [999] being the maximum.";
  mes "^0000FFPlease input all numbers without brackets.^000000";
  mes "^0000FFExample:^000000 ^66FF330 = Correct.^000000 ^FF3333[0] = Incorrect.^000000 ^66FF33999 = Correct.^000000 ^FF3333[999] = Incorrect.^000000";
  input .MwLimit;
  if (.MwLimit < 0){next; mes .@npcName$; mes "That Input is invalid, please try again."; goto WD_Limit;}
  if (.MwLimit > 999){next; mes .@npcName$; mes "That Input is invalid, please try again."; goto WD_Limit;}
  setd "$MwLimit"+getcharid(2),.MwLimit;
  next;
  goto GM_Guild;
  end;																								
set_Deposit_Limits:
  next;
  mes .@npcName$;
  mes "Please select a setting that you wish to modify.";
  mes "Setting 1: Minimum Times a Player Must Deposit before they are capable of withdrawing.";
  mes "Setting 2: Minimum Ammount of Zeny a Player may Deposit";
  menu "Minimum Deposit Times",setDeposit,"Minimum Zeny a Player may Deposit",set_dLimit;
setDeposit:
  next;
  mes .@npcName$;
  mes "Please Input the Minimum Times a Player Must Deposit before they may Withdraw.";
  mes "^0000FF[0-999]^000000. With [0] being Not Needed, and [999] being the maximum.";
  mes "^0000FFPlease input all numbers without brackets.^000000";
  mes "^0000FFExample:^000000 ^66FF330 = Correct.^000000 ^FF3333[0] = Incorrect.^000000 ^66FF33999 = Correct.^000000 ^FF3333[999] = Incorrect.^000000";
  input .Ldeposit;
  if (.Ldeposit < 0){next; mes .@npcName$; mes "That Input is invalid, please try again."; goto setDeposit;}
  if (.Ldeposit > 999){next; mes .@npcName$; mes "That Input is invalid, please try agian."; goto setDeposit;}
  setd "$Ldeposit"+getcharid(2),.Ldeposit;
  next;
  goto GM_Guild;
  end;
set_dLimit:						
  mes "Please Input the Minimum amount of zeny a player may deposit at one time.";
  mes "This setting is set to: ^0000FF[1 Zeny]^000000, by default.";
  mes "^0000FF[1-10,000,000]^000000. With [1] being the least, and [10,000,000] being the maximum.";
  mes "^0000FFPlease input all numbers without commas or brackets.^000000";
  mes "^0000FFExample:^000000 ^66FF331 = Correct.^000000 ^FF3333[1] = Incorrect.^000000 ^66FF3310000000 = Correct.^000000 ^FF333310,000,000 = Incorrect.^000000";
  input .dLimit;
  if (.dLimit <= 0){next; mes .@npcName$; mes "That Input is invalid, please try again."; goto set_dLimit;}
  if (.dLimit >10000000){next; mes .@npcName$; mes "That Input is invalid, please try again."; goto set_dLimit;}
  setd "$dLimit"+getcharid(2),.dLimit;
  next;
  goto GM_Guild;
  end;																																																																																																																																																				
//======================= Guild Member Checking Section ======================//
W_Check:	
  if (getd("$greg"+getcharid(2))==0) goto NG_Reg;
  if (getd("$MwLimit"+getcharid(2))==0) goto H_Guild;
  if (getd("$MwLimit"+getcharid(2))>=1) goto H_Guild;
//======================= Need Guild Registraction ===========================//
NG_Reg:
  mes .@npcName$;
  mes "Sorry but your guild is currently not registered with our services.";
  mes "Please speak to your guild master about registration.";
  mes "Have a nice day.";
  close;
//=================== Guild Member Withdraw/Deposit Secion ===================//
H_Guild:
	if (getd("$MwLimit"+getcharid(2))>=1)
	  {if (getd("$wCounter"+getcharid(3))==0) goto H_Guild_C; 
		 if (getd("$wCounter"+getcharid(3))>=getd("$MwLimit"+getcharid(2))) goto NW_Deposit; 
		 if (getd("$wCounter"+getcharid(3))<getd("$MwLimit"+getcharid(2))) goto H_Guild_C;}
H_Guild_C:
	mes .@npcName$;
  mes "Welcome Back. Let me get your Guild's Account Status.";
  if (@income<1) mes "Your Income hasn't come in yet."; // Displays if Income is 0
  if (@income>0) mes "Today's Income: ^66FF33"+@income+"^000000Zeny."; // Displays Income amount if greater than 0
  set getd("$gzeny"+getcharid(2)),getd("$gzeny"+getcharid(2))+@income; // Changes Guild's Zeny Balance to: Zeny + Income.
  if (getd("$gzeny"+getcharid(2))==0) mes "Your Guild's Account has no zeny inside."; // Displays if Acct Balance is 0
  if (getd("$gzeny"+getcharid(2))>0) mes "Account Balance: ^66FF33"+getd("$gzeny"+getcharid(2))+"^000000Zeny."; // Displays Acct Balance if greater than 0
  next;
  mes .@npcName$;
  mes "How may I help you today?";
  menu "Withdraw",withdraw_C,"Deposit",deposit,"Cancel",cancel;
withdraw_C:
  if (getd("$dCounter"+getcharid(3))<getd("$Ldeposit"+getcharid(2))) goto N_Deposit;
  if (getd("$dCounter"+getcharid(3))>=getd("$Ldeposit"+getcharid(2))) goto withdraw;
withdraw:
  next;
  query_sql "SELECT `position` FROM `guild_member` WHERE `name` = '"+strcharinfo(0) +"'",.position; // Calls for Guild Bank Access Levels. See: G_Access for further info									
  if (.position>getd("$position"+getcharid(2))) goto No_Access; // Re-Directs those without Access Privilages
  mes .@npcName$;
  mes "Please enter the desired ammount.";
  mes "Once again here is your accounts balance.";
  mes "Account Balance: ^66FF33"+getd("$gzeny"+getcharid(2))+"^000000Zeny"; // Displays Acct Balance
  if(getd("$gbpassword"+getcharid(2)+"$")!="none") goto Enter_P;					
  input @withdraw;
  if (@withdraw>getd("$gzeny"+getcharid(2))) goto N_enough_G;
  if (@withdraw>1000000000-zeny) goto P_Limit;
  if (@withdraw==0){next; mes .@npcName$; mes "That is an invalid ammount. Please try again."; close;}
	if (getd("$wLimit"+getcharid(2))>=1){if (@withdraw>getd("$wLimit"+getcharid(2))) goto W_Limit;}
  set zeny,zeny+@withdraw;
  setd "$gzeny"+getcharid(2),getd("$gzeny"+getcharid(2))-@withdraw;
  setd "$wCounter"+getcharid(3),getd("$wCounter"+getcharid(3))+1;
  if (getd("$wCounter"+getcharid(3))>=getd("$MwLimit"+getcharid(2))){setd "$dCounter"+getcharid(3),0;}
	next;
  mes .@npcName$;
  mes "Alright, here is the zeny you requested.";
  mes "Have a nice day.";
  close;
deposit:					
  next;
  mes .@npcName$;
  mes "Please make a selection.";
	menu "Input Ammount to Deposit",inputDeposit,"Deposit All Zeny",depositAll;
inputDeposit:
	next;
	mes .@npcName$;
  mes "Very well, please enter the ammount you wish to deposit. Be warned that your ^0000FF[Guild Bank]^000000 can only hold";
	mes "^00FFFF[ 2,000,000,000 ]^000000 Zeny.";
  mes "Guild Account Balance: ^66FF33"+getd("$gzeny"+getcharid(2))+"^000000Zeny.";
  mes "Your Zeny Amount: ^66FF33"+zeny+"^000000Zeny.";
  input @deposit;
  if (@deposit>zeny) goto N_enough_P;
  if (@deposit==0){next; mes .@npcName$; mes "That is an invalid ammount. Please try again."; close;}
	if (@deposit<getd("$dLimit"+getcharid(2))) goto D_Limit;
  set zeny,zeny-@deposit;
  setd "$gzeny"+getcharid(2),getd("$gzeny"+getcharid(2))+@deposit;
  setd "$dCounter"+getcharid(3),getd("$dCounter"+getcharid(3))+1;
  if (getd("$dCounter"+getcharid(3))>=getd("$Ldeposit"+getcharid(2))){setd "$wCounter"+getcharid(3),0;}
  next;
  mes "Alright, I have deposited your zeny into the Guilds Bank Account.";
  mes "Have a nice day.";
  close;
depositAll:
  set @depositAll,zeny;
  set zeny,zeny-@depositAll;
  setd "$gzeny"+getcharid(2),getd("$gzeny"+getcharid(2))+@depositAll;
	setd "$dCounter"+getcharid(3),getd("$dCounter"+getcharid(3))+1;
  if (getd("$dCounter"+getcharid(3))>=getd("$Ldeposit"+getcharid(2))){setd "$wCounter"+getcharid(3),0;}
	next;
	mes .@npcName$;
  mes "I have deposited all of your zeny into the ^0000FF[Guild Bank]^000000";
  mes "Have a nice day.";
  close;
//========================= Password Checking Section ========================//
Enter_P:
  next;
  mes .@npcName$;
  mes "I have been instructed to have you enter a password.";
  mes "Please enter the password.";
  mes "You now have ^FF0033[3/3]^000000 chances left.";
  input .gbpassword$;
  if (.gbpassword$!=getd("$gbpassword"+getcharid(2)+"$")) goto Pass_W1;
  if (.gbpassword$==getd("$gbpassword"+getcharid(2)+"$")) goto Pass_C1;
  end;
Pass_W1:
  next;
  mes .@npcName$;
  mes "I'm sorry but that password was incorrect.";
  mes "Please try again.";
  mes "You now have ^FF0033[2/3]^000000 chances left.";
  input .gbpassword$;
  if (.gbpassword$!=getd("$gbpassword"+getcharid(2)+"$")) goto Pass_W2;
  if (.gbpassword$==getd("$gbpassword"+getcharid(2)+"$")) goto Pass_C1;
  end;
Pass_W2:
  next;
  mes .@npcName$;
  mes "I'm sorry but that password was incorrect.";
  mes "Please try again.";
  mes "You now have ^FF0033[1/3]^000000 chances left.";
  input .gbpassword$;
  if (.gbpassword$!=getd("$gbpassword"+getcharid(2)+"$")) goto Pass_F1;
  if (.gbpassword$==getd("$gbpassword"+getcharid(2)+"$")) goto Pass_C1;
  end;
Pass_F1:
  next;
  mes .@npcName$;
  mes "I'm sorry but that password was incorrect.";
  mes "That was your last try. Please Come again.";
  close;
Pass_C1:
  next;
  mes .@npcName$;
  mes "That was correct. Now please enter the ammount you wish to withdraw.";
  mes "Once again here is your accounts balance.";
  mes "Account Balance: "+getd("$gzeny"+getcharid(2))+"Zeny"; // Displays Acct Balance
  input @withdraw;
  if (@withdraw>getd("$gzeny"+getcharid(2))) goto N_enough_G;
  if (@withdraw>1000000000-zeny) goto P_Limit;
  if (@withdraw==0){next; mes .@npcName$; mes "That is an invalid ammount. Please try again."; close;}
	if (getd("$wLimit"+getcharid(2))>=1){if (@withdraw>getd("$wLimit"+getcharid(2))) goto W_Limit;}
  set zeny,zeny+@withdraw;
  setd "$gzeny"+getcharid(2),getd("$gzeny"+getcharid(2))-@withdraw;
  setd "$wCounter"+getcharid(3),getd("$wCounter"+getcharid(3))+1;
  if (getd("$wCounter"+getcharid(3))>=getd("$MwLimit"+getcharid(3))){setd "$dCounter"+getcharid(3),0;}
  next;
  mes .@npcName$;
  mes "Alright, here is the zeny you requested.";
  mes "Have a nice day.";
  close;
//======================== Guild Rank Access Section =========================//
No_Access:
  next;
  mes .@npcName$;
  mes "Sorry, but it seems that you don't have enough priviledges to access the Guild Bank's funds.";
  mes "Sorry for the inconvenience, and have a nice day.";
  close;
//================= Withdraw / Deposit Counter Check Section =================//
NW_Deposit:
  set $@Times,getd("$Ldeposit"+getcharid(2))-getd("$dCounter"+getcharid(3));
  if ($@Times < 0){set $@Times,0;}
	mes .@npcName$;
  mes "You have reached the maximum times you may withdraw.";
  mes "You must deposit ^0000FF"+$@Times+"^000000 more times, before you are able to withdraw agian.";
  menu "Deposit",deposit,"Cancel",cancel;										
N_Deposit:
  set $@Times,getd("$Ldeposit"+getcharid(2))-getd("$dCounter"+getcharid(3));
  if ($@Times < 0){set $@Times,0;}
	next;
  mes .@npcName$;
  mes "Sorry, but you must deposit ^0000FF"+$@Times+"^000000 more times, before you are able to withdraw.";
  mes "Sorry for the inconvenience. Have a nice Day."; 
  close;
W_Limit:
  next;
  mes .@npcName$;
  mes "Sorry, but you're only able to withdraw ^0000FF"+getd("$wLimit"+getcharid(2))+"^000000 zeny at a time.";
  mes "Sorry for the inconvenience. Have a nice day.";
  close;																
D_Limit:
  next;
  mes .@npcName$;
  mes "Sorry, but you are required to Deposit ATLEAST "+getd("$Ldeposit"+getcharid(2))+"Zeny.";
  mes "Sorry for the inconvenience. Have a nice day.";
  close;
//===================== Not Enough Zeny / Limit Section ======================//
N_enough_G:
  next;
  mes .@npcName$;
  mes "I'm afraid the Guild Bank doesn't have enough zeny.";
  mes "Have a nice day.";
  close;
P_Limit:
  next;
  mes .@npcName$;
  mes "Sorry, but you're only capable of holding";
  mes "^00FFFF[ 1,000,000,000 ]^000000 Zeny.";
  mes "Sorry for the inconvenience. Have a nice day.";
  close;
GB_Limit:
  next;
  mes .@npcName$;
  mes "Sorry, but your Guild's Bank Account is only capable of holding";
  mes "^00FFFF [ 2,000,000,000 ]^000000 Zeny";
  mes "Sorry for the inconvenience. Have a nice day.";
  close;
//============================= Cancel Section ===============================//
cancel:		
  next;
  mes .@npcName$;
  mes "Thank you, come again.";
  close;
//============================ Registration Section ==========================//
N_Reg:
  next;
  mes .@npcName$;
  mes "I see. So you wish to use our services.";
  mes "With that being said, are you sure?";
  menu "Yes, register my Guild",registerG,"Cancel",cancel;
registerG:
  next;
  mes .@npcName$;
  mes "To Register your Guild with our services requires a small fee of:";
  mes "^00FFFF[ 1,000,000 ]^000000 Zeny.";
  mes "Would you still like to continue?";
  menu "Yes",yes1,"No",no1;
yes1:
  if (zeny<1000000) goto N_enough_P;
  if (getd("$greg"+getcharid(2))==1) goto A_Reg;
  set zeny,zeny-1000000;
  setd "$gzeny"+getcharid(2),0;
  setd "$greg"+getcharid(2),1;
  setd "$gbpassword"+getcharid(2)+"$","none";
  next;
  mes .@npcName$;
  mes "The Guild ^0000FF"+strcharinfo(2)+"^000000 has been registered.";
  mes "You now have access to our services.";
  close;
no1:
  next;
  mes .@npcName$;
  mes "Have a nice day.";
  close;
N_enough_P:
  next;
  mes .@npcName$;
  mes "I'm sorry but you don't have enough zeny.";
  close;
A_Reg:
  next;
  mes .@npcName$;
  mes "This Guild is already registered.";
  mes "Have a nice day.";
  close;
}