//guildmaker script by Normynator v1.0
prontera,148,171,4 script Master of Guilds 48,{
setarray .@items[0], 4070, 4103, 4212, 4106, 4098, 4100, 4060, 4066;
mes "[Master of Guilds]";
mes "Are you interested in having your one Guild?";
if(select("Yes:No") -1) end;
next;
mes "[Master of Guilds]";
mes "I'm the only one who is allowed to issue guild permits.";
mes "You will need a guild permit besides the usual emperium to create a Guild.";
next;
mes "[Master of Guilds]";
mes "Do you want to have your Guild?";
if(select("Yes, sure:No, I'm not ready!") -1) end;
next;
mes "You need to prove yourself trustworthy of owning a guild!";
mes "You have to bring me the following items from four important monster races:";
next;
mes "[Master of Guilds]";
mes "Formless Race: Eggyra or Horong Card.";
mes "Undead Race: Bongun or Mummy Card.";
mes "Demon Race: Dokebi or Sohee Card.";
mes "Demi-Human Race: Goblin or Orc Warrior Card.";
mes "And you also need 5x Credits as a fee for my Service.";
next;
mes "Do you want to give the items to me?";
if(select("Yes, Create a Guild!:No, my items!") -1) end;
set .@i, 0;
set .@b, 0;
while(1){
//dispbottom getitemname(.@items[.@i]) + " " + getitemname(.@items[.@i + 1]);
//dispbottom strcharinfo(2) + "here";
if(countitem(.@items[.@i]) > 0 || countitem(.@items[.@i + 1]) > 0){
if(countitem(.@items[.@i]) > 0 && countitem(.@items[.@i + 1]) > 0){
next;
mes "Choose which Card you want to give me!";
if(select(""+getitemname(.@items[.@i])+":"+getitemname(.@items[.@i + 1])+"") -1){
set @inv[.@b], .@items[.@i +1];
}else{
set @inv[.@b], .@items[.@i];
}
}else if(.@items[.@i] > 0){
set @inv[.@b], .@items[.@i];
}else{
set @inv[.@b], .@items[.@i +1];
}
.@b++;
//dispbottom "i = " + .@i;
if(.@i == 6){
if(countitem(7179) >= 5){
if(strcharinfo(2) == ""){
set @w, 1;
while(@w == 1){
next;
mes "[Master of Guilds]";
mes "Input your Guildname!";
input @name$;
next;
mes "[Master of Guilds]";
mes "Is " + @name$ + " correct?";
if(select("Yes:No") -1){
set @w, 1;
}else{
set @w, 0;
.@size = query_sql("SELECT `name` FROM `guild`", .@id$);
for(.@q = 0;.@q < .@size; .@q++){
if(.@id$[.@q] == @name$){
next;
mes "This Guild already exists!";
set @w, 1;
}
}
}
}
for(.@o = 0; .@o < 4; .@o++){
dispbottom "Give away: " + getitemname(@inv[.@o]);
delitem @inv[.@o], 1;
}
delitem 7179, 5;
atcommand "@guild "+ @name$;
end;
}else{
next;
mes "[Master of Guilds]";
mes "You already have a guild!";
mes "Please come back later!";
close;
end;
}
}
}
}else{
mes "[Master of Guilds]";
mes "You do not have all items.";
mes "I am sorry.";
mes "Come back if you have all items.";
end;
}
set .@i, .@i + 2;
}
}