/riaa
Posted by bunkahumpa
Monday, March 08, 2004
Description: messages the active channel with how much you owe the RIAA


; $maketok by CrashB
;Usage: $maketok(string,spacing between chars,asc code for char)
;Example: $maketok(1234567890,3,44) returns "1,234,567,890"
alias maketok {
  var %string $$1
  var %space $$2
  var %chr $$3
  var %i $len(%string)
  var %scount 0
  while %i >= 1 {
    if %scount == %space {
      var %new $chr(%chr) $+ %new
      var %scount 0
    }
    var %new $mid([ %string ],[ %i ],1) $+ %new
    inc %scount
    dec %i
  }
  return %new
}

alias riaa {
  var %riaadir = c:\documents and settings\user\desktop\music
  say I owe the RIAA about $chr(36) $+ $maketok($calc($findfile(" $+ %riaadir $+ ",*.mp3,0) * 250000),3,44) ( $+ $findfile(" $+ %riaadir $+ ",*.mp3,0) songs)
}


Instructions:
Replace c:\documents and settings\user\desktop\music in the %riaadir variable with your actual mp3 directory.

Sample Output:
I owe the RIAA about $78,500,000 (314 songs)
hm
Posted by Ghost
Tuesday, April 13, 2004 06:42pm PDT
Can't you just use $bytes rather than $maketok o_o (if this brings this snippet back to the top..my fault)
Wowzorz!
Posted by bawx
Saturday, May 31, 2008 01:02am PDT
<@bawx> I owe the RIAA about $2,695,500,000 (10782 songs)
Submit a comment
Oops! You need to login or register before you can post a comment!

ebaum's world