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 1348 times, submitted by Emistry.