AniDB O'Matic - mIRC script for statistics

#                    Made By AnimeNeko Thx to PetriW For this Option                       #
#                               Enable statwhoring in aom                                  #
# Replace e:\aom\MyStats.ini to the correct Directory and filename. But choose INI in aom. #
#                         You can use it in the ChatChannel and PM                         #

menu channel,query {
  -  
  AniDb Mystats: mystats
}
alias mystats {
  var %aom.file e:\aom\MyStats.ini
  if ($exists(%aom.file)) { 
    var %username $readini(%aom.file, anidb, username)
    var %anidbepcount $readini(%aom.file, anidb, episodecount)
    var %animecount $readini(%aom.file, mylist, animecount)
    var %totaleps $readini(%aom.file, mylist, episodecount)
    var %Tfilescount $readini(%aom.file, mylist, filecount)
    var %fileswatched $readini(%aom.file, mylist, fileswatched)
    var %mylistsize $readini(%aom.file, mylist, size)
    var %epswatched $readini(%aom.file, mylist, episodeswatched)
    var %watchedsize $readini(%aom.file, mylist, watchedsize)
    say %username has %animecount Animes, %totaleps Episodes, %Tfilescount files, Total $bytes(%mylistsize,g).suf $+ ( $+ $round($calc(%totaleps / %anidbepcount * 100 ),3) $+ % $+ ) of AniDB, %username Watched %epswatched Eps, $round($calc(%epswatched / %totaleps * 100 ),3) $+ % of mylist $+ , $bytes(%watchedsize,g).suf $+ , %fileswatched files, Which is $round($calc(%epswatched / %anidbepcount * 100 ),3) $+ % Of AniDB
  }
}

Copy the text and put it in notepad or so and name it StatWhoreing.mrc or a othername.mrc then do /load -rs othername.mirc to load it. After you copy the file into your mirc dir.

If you want your mylist size in GB. and not that it automatic converts to mb,gb,tb change $bytes(%mylistsize).suf into $bytes(%mylistsize,g).suf then it will only show the size of your mylist in GB's

• Update/debug

Like some people may already have noticed the alias Anidbstats did give some wrong output, this was caused by the wrong assumption that a year consist of 52 weeks (its 52.142857... weeks). That's now corrected, anyone who still sees a bug please report it !!

#                    Made By AnimeNeko Thx to PetriW For this Option                       #
#                               Enable statwhoring in aom                                  #
# Replace e:\aom\MyStats.ini to the correct Directory and filename. But choose INI in aom. #
#                      Works In chat Channel and in Private Message                        #

menu channel,query {
  -
  AOM Stats
  .Mystats: mystats
  .AniDB Stats: anidbstats
  .Storage: storage
}

alias mystats {
  var %aom.file e:\aom\MyStats.ini
  if ($exists(%aom.file)) { 
    var %username $readini(%aom.file, anidb, username)
    var %anidbepcount $readini(%aom.file, anidb, episodecount)
    var %animecount $readini(%aom.file, mylist, animecount)
    var %totaleps $readini(%aom.file, mylist, episodecount)
    var %Tfilescount $readini(%aom.file, mylist, filecount)
    var %fileswatched $readini(%aom.file, mylist, fileswatched)
    var %mylistsize $readini(%aom.file, mylist, size)
    var %epswatched $readini(%aom.file, mylist, episodeswatched)
    var %watchedsize $readini(%aom.file, mylist, watchedsize)
    say %username has %animecount Animes, %totaleps Episodes, %Tfilescount files, Total $bytes(%mylistsize,g).suf $+ ( $+ $round($calc(%totaleps / %anidbepcount * 100 ),3) $+ % $+ ) of AniDB, %username Watched %epswatched Eps, $round($calc(%epswatched / %totaleps * 100 ),3) $+ % of mylist $+ , $bytes(%watchedsize,g).suf $+ , %fileswatched files, Which is $round($calc(%epswatched / %anidbepcount * 100 ),3) $+ % Of AniDB
  }
}

alias Anidbstats {
  var %aom.file e:\aom\MyStats.ini
  if ($exists(%aom.file)) { 
    var %animecount1 $readini(%aom.file, anidb, animecount)
    var %totaleps1 $readini(%aom.file, anidb, episodecount)
    var %Tfilescount1 $readini(%aom.file, anidb, filecount)
    var %size1 $readini(%aom.file, anidb, size)
    var %group $readini(%aom.file, anidb, groupcount)
    var %length $readini(%aom.file, anidb ,length)
    var %year $int($calc( (%length ) / (60*60*24*365) ))
    var %weeks $int($calc( (%length  )/ ( 60*60*24*7) - (%year *365/7 )  )) 
    var %days $int($calc( (%length  )/ (60*60*24) - (%year *365 ) - (%weeks *7) ))
    var %hour $int($calc( (%length ) / (60*60) - (%year *365*24) - (%weeks *7*24) - (%days *24) ))
    var %mins $int($calc( (%length ) / (60) - (%year *365*24*60) - (%weeks *7*24*60) - (%days *24*60) - (%hour *60)) )
    say Anidb Stats: %animecount1 Animes, %totaleps1 Episodes, %Tfilescount1 Files, %group Groups, size $bytes(%size1,g).suf To watch everything in AniDB it takes %year Year %weeks Weeks %days Days %hour Hour and %mins Minutes
  } 
}

alias storage {
  var %aom.file e:\aom\MyStats.ini
  if ($exists(%aom.file)) { 
    var %StateUnknownc $readini(%aom.file, statusUnknown, count)
    var %StateUnknowns $readini(%aom.file, statusUnknown, size)
    var %Statehddc $readini(%aom.file, statusOnHDD, count)
    var %Statehdds $readini(%aom.file, statusOnHDD, size)
    var %Statecdc $readini(%aom.file, statusOnCD, count)
    var %Statecds $readini(%aom.file, statusOnCD, size)
    var %Statedelc $readini(%aom.file, statusDeleted, count)
    var %Statedels $readini(%aom.file, statusDeleted, size)
    say State: Unknown: %StateUnknownc File's, $bytes(%StateUnknowns).suf $+ , On HDD: %Statehddc File's, $bytes(%Statehdds).suf $+ , On CD/DVD: %Statecdc File's, $bytes(%Statecds).suf $+ , Deleted: %Statedelc File's, $bytes(%Statedels).suf
  }
}

here i added a menu to show the AniDB stats, your own stats, and the state of the files. like X files unknown on hdd on cd and deleted. might still have bugs or so :P