i8_Balance

$${
STRIP(&chat,%CHAT%)
    IFMATCHES(%&chat%,^\[EcoDollars\] (.*)\.(.*))
        MATCH(%&chat%,^\[EcoDollars\] \$(.*),{@&balance})
        IFMATCHES(%@&balance%,^([0-9]+)\.([0-9]+))
            MATCH(%@&balance%,^([0-9]+)\.([0-9]+),{#balanceround,#rest})
            SET(&balance,%#balanceround%.%#rest%)
        ENDIF
        ELSE
            IFMATCHES(%&chat%,^\[EcoDollars\] \$(.*))
                MATCH(%&chat%,^\[EcoDollars\] \$(.*),{@&balance})
            IFMATCHES(%@&balance%,^([0-9]+))
                MATCH(%@&balance%,^(.*),{#balanceround})
                SET(&balance,%#balanceround%)
            ENDIF
        ENDIF
    ENDIF
    SETLABEL(balance,Balance: $%&balance%,balance)
    IFMATCHES(%&chat%,\$[0-9]+\.\d\d has been taken from your account\.)
        MATCH(%&chat%,\$([0-9]+)\.([0-9]+),{#dollartaken,#centstaken})
            IF(#centstaken > %#rest%)
                #rest = #rest + 100
                #rest = #rest - #centstaken
                #dollartaken = #dollartaken + 1
                #balanceround = #balanceround - #dollartaken
            ELSE
                #rest = #rest - #centstaken
                #balanceround = #balanceround - #dollartaken
            ENDIF
            SET(&balance,%#balanceround%.%#rest%)
        ENDIF

        IFMATCHES(%&chat%,\$[0-9]+ has been taken from your account\.)
            MATCH(%&chat%,\$([0-9]+),{#dollartaken})
            #balanceround = #balanceround - #dollartaken
            SET(&balance,%#balanceround%.%#rest%)
        ENDIF
        IFMATCHES(%&chat%,\$[0-9]+\.\d\d has been added to your account\.)
            MATCH(%&chat%,\$([0-9]+)\.([0-9]+),{#dollaradded,#centsadded})
            #rest = #rest + #centsadded
            IF(#rest > 99)
                #dollaradded = #dollaradded + 1
                #rest = #rest - 100
            ENDIF
            #balanceround = #balanceround + #dollaradded
            SET(&balance,%#balanceround%.%#rest%)
        ENDIF
        IFMATCHES(%&chat%,\$[0-9]+ has been added to your account\.)
            MATCH(%&chat%,\$([0-9]+),{#dollaradded})
            #balanceround = #balanceround + #dollaradded
            SET(&balance,%#balanceround%.%#rest%)
        ENDIF
        IFMATCHES(%&chat%,\$[0-9]+\.\d\d has been sent to (.*)\.)
            MATCH(%&chat%,\$([0-9]+)\.([0-9]+),{#dollartaken,#centstaken})
            IF(#centstaken > %#rest%)
                #rest = #rest + 100
                #rest = #rest - #centstaken
                #dollartaken = #dollartaken + 1
                #balanceround = #balanceround - #dollartaken
            ELSE
                #rest = #rest - #centstaken
                #balanceround = #balanceround - #dollartaken
            ENDIF
        SET(&balance,%#balanceround%.%#rest%)
    ENDIF
    IFMATCHES(%&chat%,\$[0-9]+ has been sent to (.*)\.)
        MATCH(%&chat%,\$([0-9]+),{#dollartaken})
        #balanceround = #balanceround - #dollartaken
        SET(&balance,%#balanceround%.%#rest%)
    ENDIF
    IFMATCHES(%&chat%,\$[0-9]+\.\d\d has been received from (.*)\.)
        MATCH(%&chat%,\$([0-9]+)\.([0-9]+),{#dollaradded,#centsadded})
        #rest = #rest + #centsadded
        IF(#rest > 99)
            #dollaradded = #dollaradded + 1
            #rest = #rest - 100
        ENDIF
        #balanceround = #balanceround + #dollaradded
        SET(&balance,%#balanceround%.%#rest%)
    ENDIF
    IFMATCHES(%&chat%,\$[0-9]+ has been received from (.*)\.)
        MATCH(%&chat%,\$([0-9]+),{#dollaradded})
        #balanceround = #balanceround + #dollaradded
        SET(&balance,%#balanceround%.%#rest%)
    ENDIF
    IFMATCHES(%&chat%,\[LOTTERY\] You got (.*) for \$(.*))
        MATCH(%&chat%,^\[LOTTERY\] You got (.*) for \$((.*)),{&fill,#lotamount})
        #balanceround = #balanceround - #lotamount
        #rest = #rest
        SET(&balance,%#balanceround%.%#rest%)
    ENDIF
    IFMATCHES(%&chat%,^\[LOTTERY\] Congratulations go to %PLAYER% for winning \$(.*) with .*)
        MATCH(%&chat%,\[LOTTERY\] Congratulations go to %PLAYER% for winning \$((.*)) with (.*),{#winamount,&fill})
        #balanceround = #balanceround + #winamount
        SET(&balance,%#balanceround%.%#rest%)
    ENDIF
    IFMATCHES(%&chat%,^\[ECCAuc\] You won \d+ .+ for \$([\d+|\,]+)\.?(\d+)?)
        MATCH(%&chat%,^\[ECCAuc\] You won \d+ .+ for \$([\d+|\,]+)\.?(\d+)?,{&amountstring,#centstaken})
        &array[] = SPLIT(",",%&amountstring%)
        JOIN("",&array,#dollartaken)
        IF(#centstaken > %#rest%)
            #rest = #rest + 100
            #rest = #rest - #centstaken
            #dollartaken = #dollartaken + 1
            #balanceround = #balanceround - #dollartaken
        ELSE
        #rest = #rest - #centstaken
        #balanceround = #balanceround - #dollartaken
    ENDIF
    SET(&balance,%#balanceround%.%#rest%)
ENDIF
IFMATCHES(%&chat%,^\[ECCAuc\] Your auction ended\. Received \$([\d+|\,]+)\.?(\d+)?)
    MATCH(%&chat%,^\[ECCAuc\] Your auction ended\. Received \$([\d+|\,]+)\.?(\d+)?,{&amountstring,#centsadded})
    &array[] = SPLIT(",",%&amountstring%)
    JOIN("",&array,#dollaradded)
    #rest = #rest + #centsadded
    IF(#rest > 99)
        #dollaradded = #dollaradded + 1
        #rest = #rest - 100
    ENDIF
    #balanceround = #balanceround + #dollaradded
    SET(&balance,%#balanceround%.%#rest%)
ENDIF
IF(#rest < 10)
    SET(&rest,"0%#rest%")
    SET(&balance,%#balanceround%.%&rest%)
ENDIF
SETLABEL(balance,Balance: &6$%&balance%,balance)
SET(@&bal,$%&balance%)
}$$