alias lottowin {
  var %x 1, %file $qt($+($mircdir,scripts/son/lotto.ini))
  var %total, %ppl, %v1, %random
  :start
  while ($ini(%file,user,%x) && !%stop) {
    if ($token($readini(%file,n,user,$ini(%file,user,%x)),1,58) >= $readini(%file,n,bet,bet)) {
      var %total = $calc(%total + $readini(%file,n,bet,bet))
      .writeini -n %file user $ini(%file,user,%x) $+($calc($token($readini(%file,n,user,$ini(%file,user,%x)),1,58) - $readini(%file,n,bet,bet)),:,$token($readini(%file,n,user,$ini(%file,user,%x)),2,58))
      var %ppl = %ppl %x
    }
    inc %x
  }
  if (!%stop) { var %stop false }
  var %random $token(%ppl,$r(1,$numtok(%ppl,32)),32)
  if ($token($readini(%file,n,user,$ini(%file,user,%random)),2,58) == m) {
    return $ini(%file,user,%random) %total
  }
  else {
    if ($r(1,100) > 75) { goto start }
    else { return $ini(%file,user,%random) %total }
  }
}