Building a 'Debt System'

globals
    Debt array PlayerDebts
endglobals

struct Debt
    integer array owe[11]
    integer id
    integer total

    method addDebt takes integer ID, real amount returns nothing
        local Debt d = PlayerDebts[ID] // the debts the other player owes
        if ID = .id then // player can't owe himself money
            return
        endif
        if d.owe[.id] != 0 then // the there other player owes this player money then refund as much as you can with this debt
            if d.owe[.id] < amount // covers it all, so player will now be in debt of remainder
                set amount = amount - d.owe[.id]
                set d.total = d.total - d.owe[.id]
                set d.owe[.id] = 0
                set .owe[ID] = amount
                set .total = .total + amount
            else // other player will still owe this player money
                set d.owe[.id] = d.owe[.id] - amount
                set d.total = d.total - amount
                // do nothing to the other player as all his potential debt was used paying off the other guys debt
            endif
        else // other player doesn't owe any money, so give it all as debt
            set .owe[ID] = .owe[ID] + amount
            set .total = .total + amount
        endif
    endmethod
    
endstruct

scope example
private struct link[400000] //I seriously doubt you'd ever need more than 8000...
    link next
    integer value
    
    static method create takes integer value returns link
        local link l=link.allocate()
        set l.next=0
        set l.value=value
        return l
    endmethod
endstruct

struct list
    link first=0
    link last=0
    
    static method addlink takes integer value returns nothing
        local link l=.first
        if(l==0)then
            set .first=link.create(value)
            return
        endif
        
        loop
            exitwhen l.next==0
            set l=l.next
        endloop
        set l.next=link.create(value)
    endmethod
endstruct
endscope