Autobot Player Balancer 1.2 SVN

"++" = [$arg1 = (+ (getalias $arg1) 1)]

autobot = [
    local bots players maxbots total
    _abp_balance = $arg1 ; bots = 0 ; players = 0
    maxbots = (? (isconnected) (? (ismaster (getclientnum)) (? (isadmin (getclientnum)) 32 8) 0) 32)
    looplist l (listclients 1) [
        cond (> $l 127) [++ bots] (&& (< $l 128) (! (isspectator $l))) [++ players]
    ]
    if (&& (> $arg1 0) $maxbots) [
        total = (+ $bots $players)
        cond (&& (< $bots $maxbots) (< $total $_abp_balance)) [
            loop i (min (- $_abp_balance $total) $maxbots) addbot
        ] (&& (< $_abp_balance $total) (> $bots 0)) [
            loop i (min (- $total $_abp_balance) $bots) delbot
        ]
        sleep 500 [autobot $_abp_balance]
    ] [loop i $bots delbot]
]