<header> {
set .@Room$, "<your_map>";
set .@Castle$, "prtg_cas01";
mes "[special Guild Room]";
mes "Would you like to warp to the special guild room?";
mes "It's only available to the conquerors of "+getcastlename(.@Castle$)+", though.";
next;
if(select("Warp me!:Cancel")==2) close;
mes "[special Guild Room]";
set .@i, getcastledata(.@Castle$,1);
if (!.@i) {
mes "Oh, nobody has conquered that castle, actually... so no one is allowed in!";
close; }
if (!getcharid(2)) {
mes "You aren't even in a guild!";
close; }
if (getcharid(2) != .@i) {
mes "Your guild doesn't own "+getcastlename(.@Castle$)+".";
mes "^0055FF"+getguildname(.@i)+"^000000 does.";
close; }
mes "Alright, here we go!";
close2;
warp .@Room$,0,0;
end;
}