No error message?
new_1-1,179,80,5 script GM Prize 757,{
if (strcharinfo(0)=="[Admin] Dreamworks") {
mes "Enter Items ID (Don't matter. Put 512 for example) :";
mes "It will be Event Coins anyways.";
mes " 0 = Cancel";
do {
input .@ItemID;
if( .@ItemID < 1 ) close;
} while (getitemname (.@ItemID) == "null");
mes "Enter Amount (Max is 500 Event Coins) :";
input .@Amount,1,500;
next;
mes "Enter Name :";
tryagain:
input .@Name$;
if(getmapxy(@map$,@x,@y,0,.@Name$)!=0) {
message strcharinfo(0),"Player "+.@Name$+" is not found!";
goto tryagain;
}
next;
mes "Name : "+.@Name$;
mes "Item : "+getitemname(.@ItemID);
mes "Amount : "+.@Amount;
if (select("Confirm:Cancel") == 1) {
getitem .@ItemID,.@Amount,getcharid(3,.@Name$);
message strcharinfo(0),"Item sent.";
message .@Name$,"You received "+.@Amount+" "+getitemname(.@ItemID)+" from "+strcharinfo(0);
announce "Event Reward: Player "+.@Name$+" received "+.@Amount+" "+getitemname(.@ItemID)+" as Event Prize!",bc_all;
}
close;
}
mes "Sorry, I only talk to GM"; close;
}