bet/fight calculations

    # bet related
    set bestratio 0
    set bestsource ""
    set bestdest ""
    foreach source $idlereap(players) {
        if {$idlereap(player,$source,online) == "0" || $idlereap(player,$source,level) < 30} { continue }
        foreach dest $idlereap(players) {
            if {$idlereap(player,$dest,online) == "0" || $idlereap(player,$dest,level) < 30} { continue }
            if {$idlereap(player,$source,level) > $idlereap(player,$dest,level)} { continue }
            if {$idlereap(player,$source,sum) < $idlereap(player,$dest,sum)} { continue }
            set ratio [/ $idlereap(player,$source,sum) [double $idlereap(player,$dest,sum)]]
            if {$ratio > $bestratio} {
                set bestratio $ratio
                set bestsource $source
                set bestdest $dest
            }
        }
    }

    #fight related
    set lowest 99999999999
    set victim ""
    set vlevel 0
    set valign ""

    foreach char $idlereap(players) {
        if {$idlereap(player,$char,level) < $idlereap(level) || $idlereap(player,$char,online) == 0 || ($idlereap(player,$char,team) != 0 && $idlereap(player,$char,team) == $idlereap(team)) || $char == $idlereap(user)} { continue }
        set tmpsum $idlereap(player,$char,sum)
        set itemsum $idlereap(player,$char,sum)
    #   if {$idlereap(player,$char,powerpots)>0} { set itemsum [+ $itemsum [/ $tmpsum 10]] }
    #   if {$idlereap(player,$char,luckpots)>0} { set itemsum [+ $itemsum [/ $tmpsum 10]] }
        if {$idlereap(player,$char,hero)>0} { set itemsum [+ $itemsum [* [/ $tmpsum 100] [+ 2 $idlereap(player,$char,hlevel)]]] }
        if {$idlereap(player,$char,align) == "g"} { set itemsum [+ $itemsum [/ $tmpsum 10]] }
        if {$idlereap(player,$char,align) == "u"} { set itemsum [- $itemsum [/ $tmpsum 10]] }
        if {$itemsum < $lowest} {
            set lowest $itemsum
            set victim $char
            set vlevel $idlereap(player,$char,level)
            set valign $idlereap(player,$char,align)
        }
    }