prontera,x,y,z script Pet Exchange 4_F_NPC,{
.@name$ = "[Pet Exchange]";
if (countitem (6116) >= 1) {
mes .@name$;
mes "Would you like to exchange your coupon for a Succubus?";
next;
.@menu = select("Yes:No);
switch(.@menu) {
case 1:
delitem 6116,1;
getitem 9055,1;
close;
case 2:
close;
}
else {
end;
}
}