/riaa
Posted by bunkahumpa
Monday, March 08, 2004
Description: messages the active channel with how much you owe the RIAA
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)
; $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)