viewing paste remove negativ points | 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
prontera,150,150,0      script  Sample  100,{
.@point = getd( .point_name$ );
        if ( .@point >= 0 ) end;
        mes "I can remove your negative points by exchanging "+getitemname( .item_id )+" ("+.amount+") per negative points";
        mes "Currently you have " +.@point+ " negative points";
        next;
        if( select( "Yes, i want to remove the negative points", "No, thanks!" ) == 1 ){
                .@amount = ( .amount * ( 0 - .point_name ) );
                if( countitem( .item_id ) < .@amount ){
                        mes "You don't have enough "+getitemname( .item_id );
                        mes "You need : "+.@amount+"x "+getitemname( .item_id );
                       
                }else{
                        delitem .item_id, .@amount;
                        setd( .point_name$ ) = 0;
                        mes "Done!";
                }
        }
        close;
 
OnInit:
        .item_id = 7227;
        .amount = 10;
        .point_name$ = "#POGIPOINTS";
        end;
}                      
Viewed 798 times, submitted by Emistry.