Miscellany

on *:TEXT:!rate *:#:{
  if ($read(voted.txt, s, $nick) == $nick) { notice $nick You've rated me already. | halt }
  else {
    if ($2 isnum 1-10) {
      if (%totalvotes == $Null) { set %totalvotes 1 | set %totalrating $2 | set %averagerate $calc(%totalrating / %totalvotes) | write voted.txt $nick $nick | notice $nick Thanks for your rating! }
      else {
        inc %totalvotes 1
        inc %totalrating $2
        set %averagerate $calc(%totalrating / %totalvotes)
        write voted.txt $nick $nick   
        notice $nick Thanks for your rating!
      }
    }
    else {
      notice $nick please provide a rating in the range from 1-10.
    }
  }
}
on *:TEXT:!average:#:{
  if (%averagerate == $null) { notice $nick I currently havn't been rated yet, try again later. | halt }
  notice $nick My average rating is %averagerate from a total of %totalvotes ratings.
}