yuhsing

Untitled

Jan 18th, 2013
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.96 KB | None | 0 0
  1. prontera,155,181,5 script Sample#restock 757,{
  2. mes "manage restock items ?";
  3. next;
  4. switch( select( "View list","Manage" ) ){
  5. Case 1:
  6. for( set .@i,0; .@i < 5; set .@i,.@i + 1 )
  7. mes "^0055FFSlot "+( .@i + 1 )+"^000000 - "+( ( getd(".restock"+getcharid(3)+"["+.@i+"]") )?"^FF0000"+getitemname( getd(".restock"+getcharid(3)+"["+.@i+"]") )+" x "+getd(".restock"+getcharid(3)+"_qty["+.@i+"]"):"^777777none" )+"^000000";
  8. break;
  9. Case 2:
  10. getinventorylist;
  11. while( .@i < @inventorylist_count ){
  12. if( !getiteminfo( @inventorylist_id[.@i],2 ) ){
  13. set .@menu$,.@menu$ + getitemname( @inventorylist_id[.@i] ) + ":";
  14. set .@item_list[ .@size ],@inventorylist_id[.@i];
  15. set .@size,.@size + 1;
  16. }
  17. set .@i,.@i + 1;
  18. }
  19.  
  20. if( !.@size ){
  21. mes "You didnt have any healing items.";
  22. }else{
  23. next;
  24. set .@i,select( .@menu$ ) - 1;
  25. mes "Selected "+getitemname( .@item_list[ .@i ] );
  26. mes "Restock how many each time ?";
  27. input .@amount,1,100;
  28. mes "Save in slot ?";
  29. next;
  30. set .@slot,select( "Slot 1","Slot 2","Slot 3","Slot 4","Slot 5" ) - 1;
  31. setd(".restock"+getcharid(3)+"["+.@slot+"]"),.@item_list[ .@i ];
  32. setd(".restock"+getcharid(3)+"_qty["+.@slot+"]"),.@amount;
  33. mes "Stored ^0055FF"+getitemname( .@item_list[ .@i ] )+"^000000 in ^FF0000Slot "+( .@slot + 1 )+"^000000";
  34. mes " ";
  35. mes "You cant restock if...";
  36. mes "^FF0000 ~ Weight Limit exceed^000000";
  37. mes "^FF0000 ~ Storage out of stock^000000";
  38.  
  39. }
  40. default: break;
  41. }
  42. close;
  43.  
  44. OnPCConsumeEvent:
  45. if( !countitem( @consumed_id ) )
  46. while( .@i < 5 ){
  47. if( getd(".restock"+getcharid(3)+"["+.@i+"]") && getd(".restock"+getcharid(3)+"_qty["+.@i+"]") )
  48. if( !countitem( getd(".restock"+getcharid(3)+"["+.@i+"]") ) && checkweight( getd(".restock"+getcharid(3)+"["+.@i+"]"),getd(".restock"+getcharid(3)+"_qty["+.@i+"]") ) )
  49. restock( getd(".restock"+getcharid(3)+"["+.@i+"]"),getd(".restock"+getcharid(3)+"_qty["+.@i+"]") );
  50. set .@i,.@i + 1;
  51. }
  52. end;
  53. }
Advertisement
Add Comment
Please, Sign In to add comment