Currently Posted April 17, 2013 Posted April 17, 2013 (edited) new_1-1,179,80,5 script GM Prize 757,{ if (strcharinfo(0)=="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; mes "Enter Name :"; input .@Name$; next; mes "Name : "+.@Name$; mes "Item : "+getitemname( .@ItemID ); mes "Amount : "+.@Amount; if( select("Confirm:Cancel") == 1 ){ if( !attachrid( getcharid(3,.@Name$) ) ) message strcharinfo(0),"Player not Found."; else{ getitem 12619,.@Amount,getcharid(3,.@Name$); message strcharinfo(0),"Item Sent"; message .@Name$,"You Received Event Coins Player "+strcharinfo(0); announce "Event Reward: Player " + strcharinfo(0) + "! received his Event Coins as Event Prize!",bc_all; close; } } } close; } Edited April 17, 2013 by Emistry Changed to [Code]. Quote
nanakiwurtz Posted April 17, 2013 Posted April 17, 2013 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 (!attachrid(getcharid(3,.@Name$))) { message strcharinfo(0),"Player 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; } Quote
Patskie Posted April 17, 2013 Posted April 17, 2013 if (strcharinfo(0)=="strcharinfo(0)=="[Admin] Dreamworks"){ should be : if (strcharinfo(0)=="[Admin] Dreamworks"){ Quote
Currently Posted April 17, 2013 Author Posted April 17, 2013 (edited) 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 (!attachrid(getcharid(3,.@Name$))) { message strcharinfo(0),"Player 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; } After Enter Name, it hangs lol Edited April 17, 2013 by Emistry Changed to [Code]. Quote
nanakiwurtz Posted April 17, 2013 Posted April 17, 2013 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; } Quote
-SkittleNugget- Posted April 17, 2013 Posted April 17, 2013 new_1-1,179,80,5 script GM Prize 757,{ if (strcharinfo(0)=="[Admin] Dreamworks") { mes "Enter Item ID to Give :"; do { input .@ItemID; if( .@ItemID < 1 ) close; if ( getitemname (.@ItemID) == "null") { message strcharinfo(0),"Please Enter a Valid Item ID."; } else { mes "^ff0000Item Entered^000000 : " + getitemname(.@ItemID); } } while (getitemname (.@ItemID) == "null"); mes "Enter Amount to give."; input .@Amount; mes "^ff0000Amount Entered^000000 : " + .@Amount; mes "What person to recieve item."; while (.@playerisfound != 1) { input .@Name$; if (!attachrid(getcharid(3,.@Name$))) { message strcharinfo(0),"Player not found!"; } else { set .@playerisfound,1; mes "^ff0000Player Entered^000000 : " + .@Name$; } } next; mes "^ff0000 Please confirm the following^000000"; mes " " ; mes "^ff0000Name^000000 : "+.@Name$; mes "^ff0000Item^000000 : "+getitemname(.@ItemID); mes "^ff0000Amount^000000 : "+.@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; } Tested and works. 1 Quote
Capuche Posted April 19, 2013 Posted April 19, 2013 @Metamorphic if (!attachrid(getcharid(3,.@Name$))) { This part will attach the player named .@Name$ to the script... so the gm would be stuck Just remove the attachrid part Quote
-SkittleNugget- Posted April 19, 2013 Posted April 19, 2013 Already tested and works. Without a problem. See my version of the script. Quote
Capuche Posted April 19, 2013 Posted April 19, 2013 Well I tested it. Gm in left corner send a potion to player in right. The script is then attach to the player and gm is stucked Quote
Question
Currently
new_1-1,179,80,5 script GM Prize 757,{ if (strcharinfo(0)=="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; mes "Enter Name :"; input .@Name$; next; mes "Name : "+.@Name$; mes "Item : "+getitemname( .@ItemID ); mes "Amount : "+.@Amount; if( select("Confirm:Cancel") == 1 ){ if( !attachrid( getcharid(3,.@Name$) ) ) message strcharinfo(0),"Player not Found."; else{ getitem 12619,.@Amount,getcharid(3,.@Name$); message strcharinfo(0),"Item Sent"; message .@Name$,"You Received Event Coins Player "+strcharinfo(0); announce "Event Reward: Player " + strcharinfo(0) + "! received his Event Coins as Event Prize!",bc_all; close; } } } close; }Changed to [Code].
9 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.