viewing paste Unknown #1023 | Plain text

Posted on the
1
prontera,155,181,5 script Sample 718,{// 1 Poring Coin = How Many Zeny ?set .Rates,100000;while( 1 ){switch( select("Poring Coin to Zeny:Zeny to Poring Coin") ){Case 1:  if( !countitem(7539) ){   mes "You didnt have enough Poring Coin.";  }else{   mes "You have "+countitem(7539)+" Poring Coin.";   mes "How many Poring Coin will be convert to zeny ?";   input @Amount,0,countitem(7539);   if( !@Amount || (( .Rates * @Amount ) + Zeny ) > 1000000000 ){    mes "Deal Cancelled.";   }else{ delitem 7539,@Amount;   mes "Converted "+@Amount+" of Poring Coin into Zeny.";  mes "Gained Total of "+( .Rates * @Amount )+" of Zeny.";        set Zeny,Zeny + ( .Rates * @Amount );   }  }  next;  break;Case 2:  if( Zeny < .Rates ){   mes "You didnt have enough Zeny.";  }else{   mes "You have "+Zeny+" Zeny.";   mes "How many Poring Coin you want ?";   mes "You can get maximum of "+( Zeny / .Rates )+" Poring Coin.";   input @Amount,0,( Zeny / .Rates );   if( !@Amount ){       mes "Deal Cancelled.";   }else{ set Zeny,Zeny - ( @Amount * .Rates );   mes "Converted "+( @Amount * .Rates )+" Zeny into "+@Amount+" Poring Coin.";    getitem 7539,@Amount;   }  }  next;  break;}}close;}
Viewed 280 times, submitted by unknown.