viewing paste Random Pet supplies. | Athena

Posted on the | Last edited on
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
stprontera,135,155,3    script  PAPPA   757,{
 
// What Item you want to Make ?
 
setarray .@itempet[0],639,621,642,12373,12365,12340,641,631,12361,630,12358,632,12363,14570,660,12366,12370,14571,659,14572,12408,12374,14569,12362,12846,12367,12371,626,636,637,12369,635,622,14573,624,625,640,12357,638,629,661,12368,12364,12225,627,633,12395,12699,634,12360,14574,12359,628,619,619,619,619,619,619,619,619,619,619,620,620,620,620,620,620,620,620,620,620,619,619,619,619,619,619,619,619,619,619,620,620,620,620,620,620,620,620,620,620;
set .Random,getarraysize(.@itempet);
 
// Item Requirements + Amounts
setarray .Item[0],
   29002,1,//Cash Coin 100  Point
   29001,4,//Cash Coin 10  Point
   29000,10;//Cash Coin 1  Point
 
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
if( countitem( .Item[.@i] ) < .Item[.@i + 1] ){
  for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
   mes "Need "+.Item[.@i + 1]+" x "+getitemname( .Item[.@i] );
  close;
}
if( select("Random ^FF0000Pet supplies.^000000:Cancel") == 2 ) close;
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
delitem .Item[ .@i ],.Item[ .@i + 1 ];
getitem (.@itempet[rand(.Random)],1);
mes "You Random ^FF0000Pet supplies.^000000 Success.";
OnInIt:
waitingroom "Random Pet supplies.",0;
}
}
Viewed 677 times, submitted by il3ol2ed.