AniDB O'Matic - mIRC script for statistics: Difference between revisions

m
Changed the way the state shows. It will hide it when the state is 0
mNo edit summary
m (Changed the way the state shows. It will hide it when the state is 0)
 
(3 intermediate revisions by 2 users not shown)
Line 1: Line 1:
<pre>
#                    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
  }
}
</pre>
Copy the text and put it in notepad or so and name it StatWhoreing.mrc or a othername.mrc then do /load -rs othername.mrc to load it. After you copy the file into your mIRC directory.
Copy the text and put it in notepad or so and name it StatWhoreing.mrc or a othername.mrc then do /load -rs othername.mrc to load it. After you copy the file into your mIRC directory.


If you want your MyList size in GB. and not that it automatic converts to mb,gb,tb  
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
change $bytes(%mylistsize).suf into $bytes(%mylistsize,g).suf
then it will only show the size of your mylist in GB's
then it will only show the size of your MyList in GB's
 
*Update/debug
fixed a small calculating error in the stats part.
 
edit: Adjusted the script for AOM 0.5.10+ and higher. Cleaned the code a little bit also Thx to light


<pre>
<pre>
#                    Made By AnimeNeko Thx to PetriW For this Option                            #
#                    Made By AnimeNeko Thx to PetriW For this Option                            #
#              Enable statwhoring in aom Use version 0.5.10.x or higher                        #
#              Enable statwhoring in aom Use version 0.5.10.x or higher                        #
#                                        v0.2                                                   #
#                                        v0.4                                                   #
#    Replace e:\aom\MyStats.ini to the correct Directory and filename. But choose INI in aom.   #
#    Replace XX:\aom\MyStats.ini to the correct Directory and filename. But choose INI in aom.   #
#                      Works In chat Channel and in Private Message.                            #
#                      Works In chat Channel and in Private Message.                            #
# Note in the Partially Watched status if you have everything seen and none partially seen it    #
# Note in the Partially Watched status if you have everything seen and none partially seen it    #
Line 47: Line 15:
#                                  partially seen in.                                            #
#                                  partially seen in.                                            #


on *:load: { set %aom.file y:\aom\MyStats.ini }


menu channel,query {
menu channel,query {
Line 66: Line 35:


alias Anidbstats {
alias Anidbstats {
  var %aom.file e:\aom\MyStats.ini
   if ($exists(%aom.file)) {  
   if ($exists(%aom.file)) {  
     var %animecountt $readini(%aom.file, anidb, animecount)
     var %animecountt $readini(%aom.file, anidb, animecount)
Line 82: Line 50:
     var %unknowntotal $readini(%aom.file, animetypeUnknown, total)
     var %unknowntotal $readini(%aom.file, animetypeUnknown, total)
     var %year $int($calc( (%length ) / (60*60*24*365) ))
     var %year $int($calc( (%length ) / (60*60*24*365) ))
     var %weeks $int($calc( (%length )/ ( 60*60*24*7) - (%year * 365/7)  ))  
     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 %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 %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)) )
     var %mins $int($calc( (%length ) / (60) - (%year *365*24*60) - (%weeks *7*24*60) - (%days *24*60) - (%hour *60)) )
Line 91: Line 59:


alias mystats {
alias mystats {
  var %aom.file e:\aom\MyStats.ini
   if ($exists(%aom.file)) {  
   if ($exists(%aom.file)) {  
     var %username $readini(%aom.file, anidb, username)
     var %username $readini(%aom.file, anidb, username)
Line 111: Line 78:
     var %othermylist $readini(%aom.file, animetypeOther, inmylist)
     var %othermylist $readini(%aom.file, animetypeOther, inmylist)
     var %unknownmylist $readini(%aom.file, animetypeUnknown, inmylist)
     var %unknownmylist $readini(%aom.file, animetypeUnknown, inmylist)
     say I have %animecount Animes( $+ $iif(%tvmylist = 0,,%tvmylist Series $+ $chr(44)) $iif(%specialsmylist = 0,,%specialsmylist Specials $+ $chr(44)) $iif(%moviemylist = 0,,%moviemylist Movies) $+ $iif(%ovamylist = 0,,$+ $chr(44) %ovamylist OVA's) $+ $iif(%webmylist = 0,,$+ $chr(44) %webmylist Web) $+ $iif(%othermylist = 0,,$+ $chr(44) %othermylist Other) $+ $iif(%unknownmylist = 0,,$+ $chr(44) %unknownmylist Unknown) $+ ), %totaleps Episodes, %Tfilescount files, Total $bytes(%mylistsize,g).suf $+ ( $+ $round($calc(%totaleps / %anidbepcount * 100 ),3) $+ % $+ ) of AniDB.
     say I have %animecount Animes( $+ $iif(%tvmylist = 0,,%tvmylist Series $+ $chr(44)) $iif(%specialsmylist = 0,,%specialsmylist Specials $+ $chr(44)) $iif(%moviemylist = 0,,%moviemylist Movies) $+ $iif(%ovamylist = 0,,$+ $chr(44) %ovamylist OVA's) $+ $iif(%webmylist = 0,,$+ $chr(44) %webmylist Web) $+ $iif(%othermylist = 0,,$+ $chr(44) %othermylist Other) $+ $iif(%unknownmylist = 0,,$+ $chr(44) %unknownmylist Unknown) $+ ), %totaleps Episodes( $+ $round($calc(%totaleps / %anidbepcount * 100 ),3) $+ % $+ ) of AniDB, %Tfilescount files, Total $bytes(%mylistsize,g).suf $+ .
   }
   }
}
}


alias watched {
alias watched {
  var %aom.file e:\aom\MyStats.ini
   if ($exists(%aom.file)) {  
   if ($exists(%aom.file)) {  
     var %username $readini(%aom.file, anidb, username)
     var %username $readini(%aom.file, anidb, username)
Line 129: Line 95:
     var %fileswatched $readini(%aom.file, mylist, fileswatched)
     var %fileswatched $readini(%aom.file, mylist, fileswatched)
     var %watchedsize $readini(%aom.file, mylist, watchedsize)
     var %watchedsize $readini(%aom.file, mylist, watchedsize)
    var %watchedlength $readini(%aom.file, mylist, lengthwatched)
     var %tvw $readini(%aom.file, animetypeTVSeries, allwatched)
     var %tvw $readini(%aom.file, animetypeTVSeries, allwatched)
     var %spw $readini(%aom.file, animetypeTVSpecials, allwatched)
     var %spw $readini(%aom.file, animetypeTVSpecials, allwatched)
Line 143: Line 110:
     var %otpw $readini(%aom.file, animetypeOther, partwatched)
     var %otpw $readini(%aom.file, animetypeOther, partwatched)
     var %unpw $readini(%aom.file, animetypeUnknown, partwatched)
     var %unpw $readini(%aom.file, animetypeUnknown, partwatched)
     say i have seen $iif(%tvw = 0,,%tvw Series $+ $chr(44)) $iif(%spw = 0,,%spw Specials $+ $chr(44)) $iif(%mw = 0,,%mw Movies) $+ $iif(%ovaw = 0,,$+ $chr(44) %ovaw OVA's) $+ $iif(%webw = 0,,$+ $chr(44) %webw Web) $+ $iif(%otw = 0,,$+ $chr(44) %otw Other) $+ $iif(%unw = 0,,$+ $chr(44) %unw Unknown) $+ , Partially seen $iif(%tvpw = 0,,%tvpw Series $+ $chr(44)) $iif(%sppw = 0,,%sppw Specials $+ $chr(44)) $iif(%mpw = 0,,%mpw Movies) $+ $iif(%ovpw = 0,,$+ $chr(44) %ovpw OVA's) $+ $iif(%wpw = 0,,$+ $chr(44) %wpw Web) $+ $iif(%otpw = 0,,$+ $chr(44) %otpw Other) $+ $iif(%unpw = 0,,$+ $chr(44) %unpw Unknown) $+ . Total $calc(%animewatched + %animepartw) Animes, %epswatched Episodes( $+ $round($calc(%epswatched / %totaleps * 100 ),3) $+ % of Mylist), %fileswatched Files, $bytes(%watchedsize,g).suf $+ , Which is $round($calc(%epswatched / %anidbepcount * 100 ),3) $+ % Of AniDB
    var %days $int($calc( (%watchedlength ) / (60*60*24)) )
    var %hour $int($calc( (%watchedlength ) / (60*60) - (%days *24) ))
    var %mins $int($calc( (%watchedlength ) / (60) - (%days *24*60) - (%hour *60)) )
     say Seen $calc(%animewatched + %animepartw) Animes ( $+ $iif(%tvw = 0,,%tvw Series $+ $chr(44)) $iif(%spw = 0,,%spw Specials $+ $chr(44)) $iif(%mw = 0,,%mw Movies) $+ $iif(%ovaw = 0,,$+ $chr(44) %ovaw OVA's) $+ $iif(%webw = 0,,$+ $chr(44) %webw Web) $+ $iif(%otw = 0,,$+ $chr(44) %otw Other) $+ $iif(%unw = 0,,$+ $chr(44) %unw Unknown) $+ ) Partially seen $iif(%tvpw = 0,,%tvpw Series) $+ $iif(%sppw = 0,,$+ $chr(44) %sppw Specials) $+ $iif(%mpw = 0,,$+ $chr(44) %mpw Movies) $+ $iif(%ovpw = 0,,$+ $chr(44) %ovpw OVA's) $+ $iif(%wpw = 0,,$+ $chr(44) %wpw Web) $+ $iif(%otpw = 0,,$+ $chr(44) %otpw Other) $+ $iif(%unpw = 0,,$+ $chr(44) %unpw Unknown) $+ . Total %epswatched Episodes( $+ $round($calc(%epswatched / %totaleps * 100 ),3) $+ % of Mylist, $round($calc(%epswatched / %anidbepcount * 100 ),3) $+ % of AniDB), %fileswatched Files, $bytes(%watchedsize,g).suf $+ , Time wasted %days Days %hour Hour and %mins Minutes
   }
   }
}
}


alias storage {
alias storage {
  var %aom.file e:\aom\MyStats.ini
   if ($exists(%aom.file)) {  
   if ($exists(%aom.file)) {  
     var %StateUnknownc $readini(%aom.file, statusUnknown, count)
     var %StateUnknownc $readini(%aom.file, statusUnknown, count)
Line 162: Line 131:
     var %Statedels $readini(%aom.file, statusDeleted, size)
     var %Statedels $readini(%aom.file, statusDeleted, size)
     var %Statedelw $readini(%aom.file, statusDeleted, watched)
     var %Statedelw $readini(%aom.file, statusDeleted, watched)
 
     Say State: $iif(%StateUnknownc = 0,,Unknown: %StateUnknownc File's $+ $chr(44) $bytes(%StateUnknowns).suf $+ $chr(44) Episodes Watched %StateUnknownw $+ $chr(44)) $iif(%Statehddc = 0,,On HDD: %Statehddc File's $+ $chr(44) $bytes(%Statehdds).suf $+ $chr(44) Episodes Watched %Statehddw $+ $chr(44)) $iif(%Statecdc = 0,,On CD/DVD: %Statecdc File's $+ $chr(44) $bytes(%Statecds).suf $+ $chr(44) Episodes Watched %Statecdw $+ ) $iif(%Statedelc = 0,, $chr(44) $+ Deleted: %Statedelc File's $+ $chr(44) $bytes(%Statedels).suf $+ $chr(44) Episodes Watched %Statedelw $+ .)
     say State: Unknown: %StateUnknownc File's, $bytes(%StateUnknowns).suf $+ , Episodes Watched %StateUnknownw $+ , On HDD: %Statehddc File's, $bytes(%Statehdds).suf $+ , Episodes Watched %Statehddw $+ , On CD/DVD: %Statecdc File's, $bytes(%Statecds).suf $+ , Episodes Watched %Statecdw $+ , Deleted: %Statedelc File's, $bytes(%Statedels).suf $+ , Episodes Watched %Statedelw $+ .
   }
   }
}
}
Line 196: Line 164:


alias AnimeTypeSay {
alias AnimeTypeSay {
  var %aom.file e:\aom\MyStats.ini
   if ($exists(%aom.file)) {
   if ($exists(%aom.file)) {
     var %total $readini(%aom.file, $2, total)
     var %total $readini(%aom.file, $2, total)
Line 202: Line 169:
     var %w1 $readini(%aom.file, $2, allwatched)
     var %w1 $readini(%aom.file, $2, allwatched)
     var %pw1 $readini(%aom.file, $2, partwatched)
     var %pw1 $readini(%aom.file, $2, partwatched)
     say $$1: In AniDB: %total - In Mylist: %m - Watched: %w1 - Partially Watched: %pw1
    var %tw1 $readini(%aom.file, $2, lengthwatched)
    var %days $int($calc( (%tw1 ) / (60*60*24)) )
    var %hour $int($calc( (%tw1 ) / (60*60) - (%days *24) ))
    var %mins $int($calc( (%tw1 ) / (60) - (%days *24*60) - (%hour *60)) )
     say $$1: In AniDB: %total - In Mylist: %m - Watched: %w1 - Partially Watched: %pw1 - Time wasted: %days Days %hour Hour and %mins Minutes
 
     return 0
     return 0
   }
   }
Line 208: Line 180:
</pre>
</pre>


*Update/debug
fixed a small calculating error in the stats part.
edit: Adjusted the script for AOM 0.5.10+ and higher. Cleaned the code a little bit also Thx to light


* v0.2 : fixed script so it will work with older mIRC versions
* v0.2 : fixed script so it will work with older mIRC versions


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.
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
 
* v0.4 : Fixed some little bugs
      : Added the Time Wasted to some stats.
      : Reorded some things


[[Category:AniDB O'Matic]]
[[Category:AniDB O'Matic]]
[[Category:IRC]]
[[Category:IRC]]
20

edits

MediaWiki spam blocked by CleanTalk.
MediaWiki spam blocked by CleanTalk.