Anonymous

alias dmwinner {
  msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14WINS! Wins:7 $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins) != $null, $readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins), 0) 14Losses:7 $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses) != $null, $readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses), 0) 14Total:7 $calc( $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses) == $null, 0, $v1)) 14D-Coins:7 $iif($readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) != $null, $v1, 0)
  enddm $1
  dmrandreward $1 $2
}
alias dmrandreward {
  var %loot1 = $read(loot.txt), %loot2 = $read(loot.txt), %loot3 = $read(loot.txt)
  var %price1 = $gettok(%loot1,-1,32), %price2 = $gettok(%loot2,-1,32), %price3 = $gettok(%loot2,-1,32)
  var %loot1 = $gettok(%loot1,1- $+ $calc($numtok(%loot1,32) -1),32), %loot2 = $gettok(%loot2,1- $+ $calc($numtok(%loot2,32) -1),32), %loot3 = $gettok(%loot3,1- $+ $calc($numtok(%loot3,32) -1),32)
  msg $active 14Loot : [4 $+ %loot1 4( $+ $money(%price1) $+ )14] [4 $+ %loot2 4( $+ $money(%price2) $+ )14] [4 $+ %loot3 4( $+ $money(%price3) $+ )14]
  var %abc = $bytes($floor($calc(%price1 + %price2 + %price3)),db), $&
    %abcd = $calc($numtok(%abc,44) -1), $&
    %xyz = $+($gettok(%abc,1,44),$str(000,%abcd))
  msg $active 4 $+ $readini(Dm.Players.ini,$1,$2) $+ 14, you made4 $money(%abc) 14on that DM!
  writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc($readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins)) + $remove(%abc,$chr(44)))
}