var odds : int := 1
var command : string
var balance : real := 0
var username : string
var initialDate : string
var initialTime : string
date(initialDate)
time(initialTime)

proc doBegCommand
    if odds = 0 and balance not = 0 then
        put "Enough is enough. I'm halving your points, and don't expect any pity from me anytime soon."
        balance := floor(balance/2)
    else
        var allowBeg : int
        if odds = 0 then
            odds := 1
        end if
        randint(allowBeg,1,odds)
        var amount : int
        var total : int := 0
        loop
            randint(amount,1,10)
            total := total + amount
            if amount not = 10 then
                exit
            end if
        end loop
            put "Fine, have ",total," points."
            balance := balance + total
        if allowBeg not = 1 then
            odds := 0
        else
            odds := odds + 1
        end if
    end if
end doBegCommand

proc doYolocoinCommand
    if balance = 0 then
        put "No points to gamble"
    else
        var coinFlip : int
        var tempusername : string
        tempusername := Str.Upper(username)
        if tempusername = "RXFADEZ" then
            randint (coinFlip,1,4)
        else
            randint(coinFlip,1,2)
        end if
        
        if coinFlip = 1 then
            put "Heads. +",balance," points."
            balance := balance*2
        else
            put "Tails. -",balance," points."
            var newDate : string
            var newTime : string
            date(newDate)
            time(newTime)
            put "RIP ",username,initialDate,",",initialTime," -",newDate,",",newTime,"."
            initialDate := newDate
            initialTime := newTime
            if tempusername = "RXFADEZ" then
                put "Totally not rigged Kappa."
            end if
            balance := 0
            odds := 1
        end if
    end if
end doYolocoinCommand

put "Enter username"
get username
put ""
put "Welcome to Yolocoin Simulator v0.6.9"
put "Type !help for a list of commands."
loop
    get command
    case command of
        label "!beg" : doBegCommand
        label "!yolocoin" : doYolocoinCommand
        label "!balance" : put "You have ",balance," points."
        label "!help" : put "=============\r\n!beg: Free points, but don't get too greedy!\r\n!yolocoin: If heads, double points. If tails, rip them all.\r\n!balance: States your current balance.\r\n!ragequit: When you think this game is becoming too dumb.\r\n============="
        label "!ragequit" : exit
        label : put "Unknown Command"
    end case
end loop
put "Get rekt son"