viewing paste Unknown #17648 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
prontera,170,181,5      script  Grape Juice Maker       757,{
// What Item you want to Make ?
set .GiveItem,20022;
// Item Requirements + Amounts
setarray .Item[0],
   533,1;
set .zeny,300;
mes "[ Upgraded Grape Juice Maker ]";
mes "How many "+getitemname(.GiveItem)+" you want??";
input .@ug;
if (.@ug <= 0){
mes "Please input positive numbers";
}
mes "[ Upgraded Grape Juice Maker ]";
mes "You need "+ .zeny*.@ug +" Zeny";
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 ){
   mes "Need "+.Item[.@i + 1]*.@ug +" x "+getitemname( .Item[.@i] );
  if( countitem( .Item[.@i] ) < .Item[.@i + 1]*.@ug)
      set .@error,1;
}
if (zeny < .zeny*.@ug || .@error){
        mes "[ Upgraded Grape Juice Maker ]";
   mes "You don't have enough zeny or items";
   close;
}
if( select("Make ^FF0000"+getitemname( .GiveItem )+"^000000:Cancel") == 2 ) close;
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
delitem .Item[ .@i ],.Item[ .@i + 1 ]*.@ug;
set zeny,zeny-.zeny*.@ug;
getitem .GiveItem,.@ug;
mes "[ Upgraded Grape Juice Maker ]";
mes "You received ^FF0000"+getitemname( .GiveItem )+"^000000";
}
Viewed 311 times, submitted by unknown.