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

Jump to navigation Jump to search

AniDB O'Matic - mIRC script for statistics (view source)

Revision as of 11:57, 9 January 2010

4,621 bytes added ,  9 January 2010
some bugs fixes added some extra stats
mNo edit summary
(some bugs fixes added some extra stats)
Line 1: Line 1:
<pre>
<pre>
#                    Made By AnimeNeko Thx to PetriW For this Option                       #
#                    Made By AnimeNeko Thx to PetriW For this Option                             #
#                               Enable statwhoring in aom                                 #
#               Enable statwhoring in aom Use version 0.5.10.x or higher                        #
# Replace e:\aom\MyStats.ini to the correct Directory and filename. But choose INI in aom. #
#                                        v0.4                                                    #
#                         You can use it in the ChatChannel and PM                        #
#   Replace XX:\aom\MyStats.ini to the correct Directory and filename. But choose INI in aom.   #
#                      Works In chat Channel and in Private Message.                            #
# Note in the Partially Watched status if you have everything seen and none partially seen it    #
# will only show Partially seen. The script hides the types where you don't have anything        #
#                                  partially seen in.                                            #
 
on *:load: { set %aom.file y:\aom\MyStats.ini }


menu channel,query {
menu channel,query {
   -
   -
   AniDb Mystats: mystats
   AOM Stats
  .Mystats: mystats
  .Watched: watched
}
}
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 17: Line 25:
     var %totaleps $readini(%aom.file, mylist, episodecount)
     var %totaleps $readini(%aom.file, mylist, episodecount)
     var %Tfilescount $readini(%aom.file, mylist, filecount)
     var %Tfilescount $readini(%aom.file, mylist, filecount)
    var %mylistsize $readini(%aom.file, mylist, size)
    var %animewatched $readini(%aom.file, mylist, animewatched)
    var %animepartw $readini(%aom.file, mylist, animepartiallywatched)
    var %epswatched $readini(%aom.file, mylist, episodeswatched)
     var %fileswatched $readini(%aom.file, mylist, fileswatched)
     var %fileswatched $readini(%aom.file, mylist, fileswatched)
    var %watchedsize $readini(%aom.file, mylist, watchedsize)
    var %tvmylist $readini(%aom.file, animetypeTVSeries, inmylist)
    var %specialsmylist $readini(%aom.file, animetypeTVSpecials, inmylist)
    var %moviemylist $readini(%aom.file, animetypeMovies, inmylist)
    var %ovamylist $readini(%aom.file, animetypeOVAs, inmylist)
    var %webmylist $readini(%aom.file, animetypeWeb, inmylist)
    var %othermylist $readini(%aom.file, animetypeOther, 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( $+ $round($calc(%totaleps / %anidbepcount * 100 ),3) $+ % $+ ) of AniDB, %Tfilescount files, Total $bytes(%mylistsize,g).suf $+ .
  }
}
alias watched {
  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 %mylistsize $readini(%aom.file, mylist, size)
     var %mylistsize $readini(%aom.file, mylist, size)
    var %animewatched $readini(%aom.file, mylist, animewatched)
    var %animepartw $readini(%aom.file, mylist, animepartiallywatched)
     var %epswatched $readini(%aom.file, mylist, episodeswatched)
     var %epswatched $readini(%aom.file, mylist, episodeswatched)
    var %fileswatched $readini(%aom.file, mylist, fileswatched)
     var %watchedsize $readini(%aom.file, mylist, watchedsize)
     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
     var %watchedlength $readini(%aom.file, mylist, lengthwatched)
    var %tvw $readini(%aom.file, animetypeTVSeries, allwatched)
    var %spw $readini(%aom.file, animetypeTVSpecials, allwatched)
    var %mw $readini(%aom.file, animetypeMovies, allwatched)
    var %ovaw $readini(%aom.file, animetypeOVAs, allwatched)
    var %webw $readini(%aom.file, animetypeWeb, allwatched)
    var %otw $readini(%aom.file, animetypeOther, allwatched)
    var %unw $readini(%aom.file, animetypeUnknown, allwatched)
    var %tvpw $readini(%aom.file, animetypeTVSeries, partwatched)
    var %sppw $readini(%aom.file, animetypeTVSpecials, partwatched)
    var %mpw $readini(%aom.file, animetypeMovies, partwatched)
    var %ovpw $readini(%aom.file, animetypeOVAs, partwatched)
    var %wpw $readini(%aom.file, animetypeWeb, partwatched)
    var %otpw $readini(%aom.file, animetypeOther, partwatched)
    var %unpw $readini(%aom.file, animetypeUnknown, partwatched)
    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
   }
   }
}
}
Line 40: Line 92:
#                    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 99:
#                                  partially seen in.                                            #
#                                  partially seen in.                                            #


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


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


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 134:
     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 143:


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 162:
     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 179:
     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 194:
     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 215:
     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: 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 $+ .
     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 248:


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 253:
     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 212: Line 268:


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]]
AnimeNeko
20

edits

Retrieved from "https://wiki.anidb.net/Special:MobileDiff/14669"

Navigation menu

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