stats.bot

; - Statistiques -

#top10 on
on *:load: {
  mkdir toplist
  mkdir toplist\wörter
  mkdir toplist\buchstaben
  mkdir toplist\Smiley
  mkdir toplist\platzs
}
on *:text:*:#: {
  writeini -n $+(toplist\platzs\,$chan,.ini) $nick platzs $calc($readini($+(toplist\platzs\,$chan,.ini),$nick,platzs) + $numtok($1-,32))
  writeini -n $+(toplist\wörter\,$chan,.ini) $nick wörter $calc($readini($+(toplist\wörter\,$chan,.ini),$nick,wörter) + $numtok($1-,32))
  writeini -n $+(toplist\buchstaben\,$chan,.ini) $nick buchstaben $calc($readini($+(toplist\buchstaben\,$chan,.ini),$nick,buchstaben) + $len($remove($1-,$chr(32))))
  writeini -n $+(toplist\Smiley\,$chan,.ini) $nick Smiley $calc($readini($+(toplist\Smiley\,$chan,.ini),$nick,Smiley) + $regex($1-,/(\:|;)(-)?(P|X|D|\/|\\|\[|\])/ig) + $count($1-,: $+ $chr(40),:- $+ $chr(40),: $+ $chr(41),:- $+ $chr(41),; $+ $chr(40),;- $+ $chr(40),; $+ $chr(41),;- $+ $chr(41)))
  if ($1- = -top10 || ($1 = -top10 && $2- = wörter)) {
    msg $chan 4 $nick 0 # 7 $toplist($chan,wörter)
  }
  elseif ($1 = -top10 && $2- = Smiley) {
    msg $chan 4 $nick 7 $toplist($chan,Smiley)
  }
  elseif ($1 = -top10 && $2- = buchstaben) {
    msg $chan 4 $nick 7 $toplist($chan,buchstaben)
  }
  elseif ($1- = -platz) {
    msg $chan 4 $nick 7 $platzlist($chan,$nick)
  }
  elseif ($1 = -platz && $numtok($2-,32) = 1) {
    msg $chan 4 $nick 7 $platzlist($chan,$2-)
  }
  elseif ($1 = -top10 && $2- = help) {
    msg $chan  12[4 $nick 12] 7schau auf meine 0Commandos9: 4!top10 12[0wörter12|0buchstaben12|0Smiley12]9, 4!0stat 12[4nick12]9, 4!0platz 12[4nick12]
  }
}
on *:join:#: {
  .timer $+ $+($chan,$nick) 0 1 inc % [ $+ [ $chan ] [ $+ . $+ [ $nick ] ] ]
}
on *:part:#: {
  .timer $+ $+($chan,$nick) off
}
on *:quit: {
  var %x = 1
  while ($comchan($nick,%x)) {
    .timer $+ $+($ifmatch,$nick) off
    inc %x
  }
}
on *:kick:#: {
  .timer $+ $+($chan,$nick) off
}
alias toplist {
  var %.h = $iif($2 = wörter,wörter,$iif($2 = buchstaben,buchstaben,$iif($2 = Smiley,Smiley))), %.a = $+(toplist\,%.h,\,$1,.ini), %.b = 1, %.c = $readini(%.a,$ini(%.a,%.b),$2), %.d = 1, %.e = $ini(%.a,%.b), %.f = 1
  :loop
  while (%.b <= $ini(%.a,0)) {
    if ($readini(%.a,$ini(%.a,$calc(%.b + 1)),$2) > %.c) {
      var %.c = $ifmatch, %.e = $ini(%.a,$calc(%.b + 1))
    }
    inc %.b
  }
  var %.g = $addtok(%.g,$+($ord(%.f),.,$chr(32),%.e,$chr(40),%.c,$chr(41)),32)
  writeini -n $+(temp,%.h,.ini) %.e %.h %.c
  remini %.a %.e
  if ($ini(%.a,0) > 0 && %.f < 10) {
    var %.b = 1, %.c = $readini(%.a,$ini(%.a,%.b),$2), %.e = $ini(%.a,%.b)
    inc %.f
    goto loop
  }
  while (%.d <= $ini($+(temp,%.h,.ini),0)) {
    writeini -n %.a $ini($+(temp,%.h,.ini),%.d) %.h $readini($+(temp,%.h,.ini),$ini($+(temp,%.h,.ini),%.d),%.h)
    inc %.d
  }
  .remove $+(temp,%.h,.ini)
  return $+(Top10,$chr(40),$upper($left($2,1)),$lower($right($2,-1)),$chr(41),:) %.g
}
alias platzlist {
  .remove sortnicks.txt
  var %.a = $+(toplist\platzs\,$1,.ini), %.b = 1, %.c = $readini(%.a,$ini(%.a,%.b),platzs), %.d = 1, %.e = $ini(%.a,%.b), %.f = 1
  :loop
  while (%.b <= $ini(%.a,0)) {
    if ($readini(%.a,$ini(%.a,$calc(%.b + 1)),platzs) > %.c) {
      var %.c = $readini(%.a,$ini(%.a,$calc(%.b + 1)),platzs), %.e = $ini(%.a,$calc(%.b + 1))
    }
    inc %.b
  }
  write sortnicks.txt %.e
  writeini -n temp.ini %.e platzs %.c
  remini %.a %.e
  if ($ini(%.a,0) > 0) {
    var %.b = 1, %.c = $readini(%.a,$ini(%.a,%.b),platzs), %.e = $ini(%.a,%.b)
    inc %.f
    goto loop
  }
  while (%.d <= $ini(temp.ini,0)) {
    writeini -n %.a $ini(temp.ini,%.d) platzs $readini(temp.ini,$ini(temp.ini,%.d),platzs)
    inc %.d
  }
  .remove temp.ini
  var %x = 1
  while (%x <= $lines(sortnicks.txt)) {
    if ($2 = $read(sortnicks.txt,%x)) {
      return $2 ist auf platz $chr(35) $+ $readn von $ini(%.a,0)
    }
    inc %x
  }
  return 1,15 Mince alors !  $2 n'est pas classé sur $1  ô_Ô !
}
alias statlist {
  if ($readini($+(toplist\wörter\,$1,.ini),$2,wörter)) {
    return $2 $+ : $readini($+(toplist\wörter\,$1,.ini),$2,wörter) wörter, $readini($+(toplist\buchstaben\,$1,.ini),$2,buchstaben) buchstaben, $readini($+(toplist\Smiley\,$1,.ini),$2,Smiley) Smiley
  }
  else {
    return 1,15 Ich Habe für $chan keine statistik gefunden
     $2 sorry $1 :o(
  }
}
#top10 end
}
------------------
on
------------------