poring_w02,172,175,4    script  Guild Warehouse 112,{
    cutin "kafra_06",2;
 
    mes "[Guild Warehouse]";
    mes "This is the guild warehouse coupler service."; 
    next;
    menu "Access Guild Warehouse", GS_OPEN, "Set Guild Warehouse Password", GS_PASS, "Exit", GS_EXIT3;
 
GS_OPEN:
    if(getd("$gspass"+getcharid(2)+"$")!=""){
        mes "[Guild Warehouse]";
        mes "Please input your guild's password."; input(.@gspass$);
        if(.@gspass$==getd("$gspass"+getcharid(2)+"$")){ mes "Welcome!"; } else { mes "I'm sorry but the password you entered is incorrect."; goto GS_EXIT4; }
    }
    set @flag,guildopenstorage;
    if(@flag == 1) goto GS_EXIT1;
    if(@flag == 2) goto GS_EXIT2;
    goto GS_EXIT4;
 
GS_PASS:
    if(!getcharid(2)) { mes "[Guild Warehouse]"; mes "I'm sorry but you don't have a guild."; goto GS_EXIT4; }
    query_sql("SELECT `master` FROM `guild` WHERE `guild_id` = '"+ getcharid(2) +"';",.@b$);
    if(.@b$!=strcharinfo(0)){   mes "[Guild Warehouse]"; mes "I'm sorry but you're not the guild leader of "+strcharinfo(2)+"."; goto GS_EXIT4; }
    if(getd("$gspass"+getcharid(2)+"$")!=""){   mes "[Guild Warehouse]"; mes "Did you forget, your guild password is "+getd("$gspass"+getcharid(2)+"$")+". Do you still want to change it?"; if(select("Yes:No")-1) goto GS_EXIT4; }
    mes "[Guild Warehouse]";
    mes "Please input your new guild storage password.";
    input(.@gspass1$);  mes "[Guild Warehouse]"; mes "Again."; input(.@gspass2$); if(.@gspass1$==.@gspass2$){ setd "$gspass"+getcharid(2)+"$",.@gspass1$; } else {  mes "[Guild Warehouse]"; mes "I'm sorry, but passwords entered didn't match. Please try again."; goto GS_PASS; }
    mes "[Guild Warehouse]";
    mes getd("$gspass"+getcharid(2)+"$")+" has been set as your password.";
    goto GS_EXIT4;
 
GS_EXIT1:
    mes "[Guild Warehouse]";
    mes "The guild warehouse is being used right now.";
    mes "Please check back later.";
    goto GS_EXIT4;
 
GS_EXIT2:
    mes "[Guild Warehouse]";
    mes "You can't use this service if you're not in a guild!";
    goto GS_EXIT4;
 
GS_EXIT3:
    mes "[Guild Warehouser]";
    mes "Come back whenever you want.";
 
GS_EXIT4:
    cutin "kafra_06",255;
    close;
}