;GoTilla MP3 v3.22
;ID3 ALIASES(below) coutesy of w|dget(widget01@hotmail.com)
;by Bucksmack(buckaroo@rochester.rr.com)


alias -l a { if ( $got.read(mp3nocunt) == on ) { return [ } | else { return [ } }
alias -l b { if ( $got.read(mp3nocunt) == on ) { return ] } | else { return ] } }
alias -l c { if ( $got.read(mp3nocunt) == on ) { return < } | else { return < } }
alias -l d { if ( $got.read(mp3nocunt) == on ) { return > } | else { return > } }
alias bghatesme2 { unload -rs $got.q($script) }
alias gottotal { set %got.temp $1- | if ( $1 == $null ) { return $got.color.1 $+ N $+ $got.color.2 $+ / $+ $got.color.1 $+ A } 
else if ( %got.temp >= 1000000024 ) { return $round($calc( %got.temp / 1000000024 ),2) $+ GB } | else if ( %got.temp >= 1000024 ) { return $round($calc( %got.temp / 1000024 ),2) $+ MB } | else { return $round($calc( %got.temp / 1024 ),0) $+ KB } }
alias bgrancolor { got.write mp3color1 $replace($rand(1,15),8,7,9,3,11,12,15,14) | got.write mp3color2 $replace($rand(1,15),8,7,9,3,11,12,15,14) | if ( $got.read(mp3color2) == $&
$got.read(mp3color1) ) { got.write mp3color2 $replace($got.read(mp3color2),1,2,2,3,3,4,4,5,5,6,6,7,7,10,10,12,12,13,13,14,14,2) } }
alias got.under { if ( $got.read(mp3ison4) == on ) { return $replace($1-,_,$chr(32)) } | else { return $1- } }
alias got.txtlist4 { inc %got.temp.2 | write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($nopath($$2-),.mp3) </td><td bgcolor=FF9D9D> $$iif( $lof($$2-) != $null,$gottotal($lof($$2-)),N/A) </td></tr> | got.write mp3size $calc( $got.read(mp3size) + $lof($$2-) ) }
alias got.txtlist1 { inc %got.temp.2 | write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($nopath($$2-),.mp3) </td><td bgcolor=FF9D9D> $$iif( $lof($$2-) != $null,$gottotal($lof($$2-)),N/A) </td><td bgcolor=FF9D9D> $duration($mpegtime($got.q($$1))) </td></tr> | got.write mp3size $calc( $got.read(mp3size) + $lof($$2-) ) }
alias got.txtlist3 { inc %got.temp.2 | write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($nopath($$2-),.mp3) </td></tr> | got.write mp3size $calc( $got.read(mp3size) + $lof($$2-) ) }
alias got.txtlist2 { inc %got.temp.2 | write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($nopath($$2-),.mp3) </td><td bgcolor=FF9D9D> $duration($mpegtime($got.q($$1))) </td></tr> | got.write mp3size $calc( $got.read(mp3size) + $lof($$2-) ) }
alias bgstop { .remove $got.read(mp3dir) $+ temp.m3u | .run $got.read(mp3player) $got.read(mp3dir) $+ temp.m3u }
alias got.color.1 { if ( $got.read(mp3nocunt) == on ) { return } | else { return  $+ $got.read(mp3color1) $+  } }
alias got.read { return $readini $got.q($mircdirgotilla.ini) mp3 $1- }
alias got.write { writeini $got.q($mircdirgotilla.ini) mp3 $$1 $$2- }
alias got.del { remini $got.q($mircdirgotilla.ini) mp3 $$1 }
alias got.color.2 { if ( $got.read(mp3nocunt) == on ) { return } | else { return  $+ $got.read(mp3color2) $+  } }
alias bgreplace { return $replace($1-,-,$bgreplace2(-),_,$bgreplace2(_),$chr(40),$bgreplace2($chr(40)),$chr(41),$bgreplace2($chr(41)),[,$bgreplace2([),],$bgreplace2(]),$chr(64),$bgreplace2($chr(64)),$chr(35),$bgreplace2($chr(35)) $&
,$chr(33),$bgreplace2($chr(33)),$chr(37),$bgreplace2($chr(37)),$chr(39),$bgreplace2($chr(39)),$chr(96),$bgreplace2($chr(96)),$chr(38),$bgreplace2($chr(38)),$chr(44),$bgreplace2($chr(44))) }
alias bgreplace2 { return $got.color.2 $+ $1 $+ $got.color.1 }
alias bglength { return $replace( $1- ,wks,$bgreplace2(w),wk,$bgreplace2(w),days,$bgreplace2(d),day,$bgreplace2(d),hrs,$bgreplace2(h),hr,$bgreplace2(h),mins,$bgreplace2(m),min,$bgreplace2(m),secs,$bgreplace2(s),sec,$bgreplace2(s)) }
alias got.q { return " [ $+ [ $1- ] $+ ] " }
alias got.com { if ( $chr(32) $+ $chr(32) isin %got.file ) { return $shortfn(%got.file) } | if ( $chr(44) isin %got.file ) { return $shortfn(%got.file) } | else { return %got.file } }
alias got.na { return $got.color.1 $+ N $+ $got.color.2 $+ / $+ $got.color.1 $+ A }
alias bgquick { if ( $1 == 1 ) { return on } | else { return off } }
alias got.end { if ( $got.read(mp3advert) == on ) { msg $$1 $got.mp3($$2) $theend } | else if ( $got.read(mp3advert) == off ) { bgnoshow } | else { amsg $got.mp3($$2) $theend } | unset %got.* }
alias BGtest0r { 
  unset %got.*.* 
  if ( $timer(foldplay) != $null ) { got.damnuwoman foldplay Folder Play }
  if (( $timer(bgshuffle) != $null ) && ( $1 != 2 )) { got.damnuwoman bgshuffle Shuffle Play }
  if (( $timer(playlist) != $null ) && ( $1 != 1 )) { got.damnuwoman playlist Playlist }
  if (( $got.read(mp3dir) == $null ) || ( $exists($shortfn($got.read(mp3dir))) != $true )) { got.eco You need to have an MP3 directory set | halt } | if (( $got.read(mp3player) == $null ) || ( $exists($shortfn($got.read(mp3player))) != $true )) { got.eco You must select the location of your MP3 player | halt } 
}
alias got.damnuwoman { if ( $?!=" $$2- is currently in progress, continuing will halt it. Are you sure you want to do this?" ) { .timer [ $+ [ $$1 ] ] off } | else { halt } }
alias got.folderskip { if ( $timer(foldplay) == $null ) { got.eco Folder play isn't on | halt } | bgfolderz2 }
alias bgfoldkill { if ( $timer(foldplay) == $null ) { got.eco Folder play isn't on | halt } | .timerfoldplay off | got.eco Folder play has been stopped | bgstop }


alias bgfileplay {
  if ( $got.read(mp3ctcpsend) == on ) { .ctcp $$1 SOUND $nopath($replace(%got.file,$chr(32),$chr(160))) }
  if ( $got.read(mp3rancolor) == on ) { bgrancolor } 
  got.write mp3replay $replace(%got.file,$chr(32),$chr(42))
  set %got.addy1 $nopath(%got.file)
  ; set %got.addy1 $iif( $got.read(mp3id3shiat) == on,$nopath(%got.file),$remove($nopath(%got.file),.mp3)) 
  run -n $got.read(mp3player) $got.q($got.com)  
  set %got.id3.done $bgid3shiat($$2-) 
  set %got.length.1 $got.color.1 $+ $bglength($duration($mpegtime($got.q($got.com)))) 
  if ( $strip(%got.length.1) == $null ) { set %got.length.1 $got.na }
  set %got.size $c $+ $got.color.1 $+ $replace($gottotal($file($got.com).size),MB,$bgreplace2(mb),KB, $bgreplace2(kb),GB, $bgreplace2(gb)) $+ $d
  got.write mp3favplace $deltok($instok($got.read(mp3favplace),$got.read(mp3replay),1,124),6,124)
}
alias bgfolderz {
  bgtest0r   
  var %got.tempy = $got.read(mp3dir) $+ *.mp3  
  got.write mp3foldplay $sdir="Choose a Folder" %got.tempy
  if ( $findfile($got.read(mp3foldplay),*.mp3,*) == 0 ) { got.eco No mp3's in $got.read(mp3foldplay) | halt }
  got.write mp3foldnum 0  
  bgfolderz2
}

alias bgfolderz2 {
  got.write mp3foldnum $calc( $got.read(mp3foldnum) + 1 )
  if ( $got.read(mp3foldnum) == $calc($findfile($got.read(mp3foldplay),*.mp3,*) + 1 )) { .timerfoldplay off | got.eco Finished playing from $got.read(mp3foldplay) | halt }
  set %got.file $findfile($got.read(mp3foldplay),*.mp3,$got.read(mp3foldnum))
  bgfileplay # %got.file
  if ( $got.read(mp3advert) == on ) { msg # $got.mp3(folder) $a $+ $got.color.1 $+ $bgreplace($gettok($got.read(mp3foldplay),$gettok($got.read(mp3foldplay),0,92),92)) $+ $b $theend } | else if ( $got.read(mp3advert) == off ) { bgnoshow } | else { amsg $got.mp3(folder) $a $+ $got.color.1 $+ $bgreplace($gettok($got.read(mp3foldplay),$gettok($got.read(mp3foldplay),0,92),92)) $+ $b $theend } | unset %got.*.*
  if ( $mpegtime($got.q($got.com(%got.file))) == $null ) { if ( $lof(%got.file) == $null ) { got.eco Could not use id3 tag, next mp3 in 3min 30sec... | .timerfoldplay 1 210 bgfolderz2 } | else { got.eco Could not use id3 tag, next mp3 in $duration($calc($lof(%got.file) / 16000)) $+ ... | .timerfoldplay 1 $calc($lof(%got.file) / 16000) bgfolderz2 } }
  else { .timerfoldplay 1 $mpegtime($got.q($got.com(%got.file))) bgfolderz2 }

}
alias BGplay { BGtest0r | set %got.file $$dir="Choose an MP3 to play" [ [ $got.read(mp3dir) $+ *.mp3 ] ] | bgfileplay # %got.file | got.end # n }
alias BGreplay {
  BGtest0r
  if ( $exists($shortfn($replace($got.read(mp3replay),$chr(42),$chr(32)))) == $false ) { got.eco Cannot find last file played | halt } 
  set %got.file $replace($got.read(mp3replay),$chr(42),$chr(32))
  bgfileplay # %got.file
  got.end # $iif( $$1 == 1,favorite,replay )
}
alias bgNEWRAN {
  set %got.number.1 $findfile($shortfn($got.read(mp3dir)) ,*.mp3,*)  
  if (( %got.number.1 == 0 ) &&  ( $got.read(mp32dir) != on )) { got.eco Could not locate an mp3 | halt }
  if ( $got.read(mp32dir) == on ) { 
    set %got.number.2 $findfile($shortfn($got.read(mp3dir2)) ,*.mp3,*) 
    if (( %got.number.1 == 0 ) && ( %got.number.2 == 0 )) { got.eco Could not locate an mp3 | halt }
    set %got.number.3 $calc( %got.number.1 + %got.number.2 )
    set %got.number.4 $rand(1,%got.number.3)
    if ( %got.number.4 > %got.number.1 ) {
      set %got.number.4 $calc( %got.number.4 - %got.number.1 )
      set %got.file $findfile($shortfn($got.read(mp3dir2)) ,*.mp3,%got.number.4 ) 
    }
    else { got.mp3ran }
  }
  else { set %got.file $findfile($shortfn($got.read(mp3dir)) ,*.mp3,$rand(1,%got.number.1)) }
}  
alias got.mp3ran { set %got.file $findfile($shortfn($got.read(mp3dir)),*.mp3,%got.number.4 ) }
alias BGranplay { BGtest0r | bgnewran | bgfileplay # %got.file | got.end # random }
alias bgshuffle {
  BGtest0r 2
  bgnewran
  bgfileplay # %got.file
  if ( $mpegtime($got.q($got.com(%got.file))) == $null ) { if ( $lof(%got.file) == $null ) { got.eco Could not use id3 tag, next mp3 in 3min 30sec... | .timerbgshuffle 1 210 bgshuffle } | else { got.eco Could not use id3 tag, next mp3 in $duration($calc($lof(%got.file) / 16000)) $+ ... | .timerbgshuffle 1 $calc($lof(%got.file) / 16000) bgshuffle } }
  else { .timerbgshuffle 1 $mpegtime($got.q($got.com(%got.file))) bgshuffle }
  got.end # shuffle
}


alias mp3 {
  if ( $$1 == $null ) { got.eco Please supply keyword(s) | halt }
  if ( $chr(35) !isin # ) { got.eco Please use in a channel | halt }
  BGtest0r
  set %got.short.cut $replace($1-,$chr(32),$chr(42))
  set %got.short.cut.1 * $+ %got.short.cut $+ *.mp3
  set %got.short.cut1 $findfile($shortfn($got.read(mp3dir)),%got.short.cut.1,1)
  if (( %got.short.cut1 == $null ) && ( $got.read(mp32dir) == on )) { set %got.short.cut1 $findfile($got.read(mp3dir2),%got.short.cut.1,1) }
  if ( %got.short.cut1 == $null ) { got.eco No MP3's found | halt }
  if ( $calc( $findfile($shortfn($got.read(mp3dir)),%got.short.cut.1,*) + $findfile($shortfn($got.read(mp3dir2)),%got.short.cut.1,*) )  == 1 ) { set %got.file %got.short.cut1 | bgfileplay # %got.file | got.end # n }
  else { 
    got.write mp3winchan #  
    if ( $dialog(gotilla.mp3short) != $null ) { dialog -x gotilla.mp3short gotilla.mp3short }
    dialog -m gotilla.mp3short gotilla.mp3short 
    did -ra gotilla.mp3short 1 Total Matches: $calc( $findfile($shortfn($got.read(mp3dir)),%got.short.cut.1,*) + $findfile($shortfn($got.read(mp3dir2)),%got.short.cut.1,*) )
    set %got.t $findfile($shortfn($got.read(mp3dir)),%got.short.cut.1,*,bgmp3short $$1-) 
    if ( $got.read(mp32dir) == on ) { set %got.t $findfile($shortfn($got.read(mp3dir2)),%got.short.cut.1,*,bgmp3short $$1-) }
  }
}
alias bgmp3short { did -a gotilla.mp3short 2 $remove($nopath($$1-),.mp3) }
dialog gotilla.mp3short {
  title "Double Click file to play"
  size -1 -1 280 168
  button "CLOSE",8,2 143 277 24,ok
  text "",1,3 3 277 16
  list 2,1 19 278 149,extsel
}
alias got.tsavr {
  set %got.file.1 $replace($$1-,$chr(32),$chr(42))
  set %got.file.1 %got.file.1 $+ *.mp3
  set %got.file $findfile($shortfn($got.read(mp3dir)),%got.file.1,1)
  if (( %got.file == $null ) && ( $got.read(mp32dir) == on )) { set %got.file $findfile($got.read(mp3dir2),%got.file.1,1) }
}
on *:dialog:gotilla.mp3short:dclick:2:{
  got.tsavr $did(gotilla.mp3short,2,$did(gotilla.mp3short,2).sel).text   
  if ( %got.file == $null ) { .timer -m 1 1 did -d gotilla.mp3short 2 $did(2).sel | halt }
  bgfileplay $got.read(mp3winchan) %got.file
  if ( $chr(35) !isin $got.read(mp3winchan) ) { bgnoshow | goto end }
  got.end $got.read(mp3winchan) n
  :end
  dialog -x gotilla.mp3short gotilla.mp3short
}
alias theend { var %1 = $got.color.2 $+ ! $+ $me | return $iif( $got.read(mp3autosend) == on,%1) $iif( $got.read(mp3nocunt) != on,$got.color.1) $+ $bgreplace($got.under(%got.addy1)) $iif( $got.read(mp3want) == on, %got.size ) $&
$iif( $got.read(mp3length) == on, [ $c ] [ $+ [ %got.length.1 ] ] [ $+ [ $d ] ] ) $iif( %got.id3.done != $null, %got.id3.done ) }
alias bgid3shiat {
  set %got.id3.bitrate $got.color.1 $+ $mpegbitrate($got.q($got.com($1-))) $+ $bgreplace2(kbps) 
  set %got.id3.plate $got.color.1 $+ $mpegsmplrate($got.q($got.com($1-))) $+ $bgreplace2(khz)  
  set %got.id3.stereo $got.color.1 $+ $mpegcmode($got.q($got.com($1-)))
  if ( $strip($remove(%got.id3.bitrate,kbps)) == $null ) { return $c $+ $got.na $+ $d }
  set %got.temp $iif($got.read(mp3ison1) == on, [ %got.id3.bitrate ] ) $iif($got.read(mp3ison2) == on,%got.id3.plate) $iif($got.read(mp3ison3) == on,%got.id3.stereo) 
  if ( %got.temp == $null ) { return $null }  
  return $c $+ %got.temp $+ $d
}
alias bgkillshuf { if ( $timer(bgshuffle) == $null ) { got.eco Shuffle play isn't on | halt } | .timerbgshuffle off | got.eco Shuffle play has been stopped | bgstop }
alias bgadvertise { 
  if ( $got.read(mp3rancolor) == on ) { bgrancolor } 
  msg # $got.mp3(n) $got.color.1 $+ I am using $got.color.2 $+ $iif($got.read(mp3nocunt) != on,) $+ GoTilla $got.color.1 $+ MP3 $+ $got.color.2 v3.22 $+ $iif($got.read(mp3nocunt) != on,) $+ $got.color.1 by $+ $got.color.2 $&
  Bucksmack $+ $got.color.1 $+ . To get type $+ $got.color.2 ! $+ $me $+ -gotmp3 $got.color.1 $+ or goto $got.color.2 $+ http://gotilla.cjb.net/ 
}
alias bglistorcopy { if (( $got.read(mp3list) == $null ) || ( $exists($shortfn($got.read(mp3list))) != $true )) { got.eco You need to create a list first | halt } | bglistor 1 }
dialog gotilla.listsetup {
  title "GoTilla List Setup"
  size -1 -1 360 67
  box "Color Scheme",2,2 2 250 39
  button "&OK",1,3 43 123 22
  button "&Cancel:",8,127 43 124 22,ok
  check "Show Filesize",4,258 3 100 16
  check "Aphabetize List",5,258 26 100 16
  check "Show Filelength",7,258 49 100 16
  combo 6, 4 17 246 150,drop
}
on *:dialog:gotilla.listsetup:init:0:{
  did -a gotilla.listsetup 6 Green - Blue - Pink (default) | did -a gotilla.listsetup 6 White - Grey - Orange | did -a gotilla.listsetup 6 Red - White - Blue
  did -a gotilla.listsetup 6 White - Green - Red | did -a gotilla.listsetup 6 Lt. Purple - Aqua - Orange | did -a gotilla.listsetup 6 Pastel Blue - Lt. Purple - Pastel Brown | did -a gotilla.listsetup 6 Blue - Baby Shit Green - Lt. Green
  if ( $got.read(mp3listcolor) == $null ) { did -c gotilla.listsetup 6 1 } 
  else { did -c gotilla.listsetup 6 $got.read(mp3listcolor) }
  if ( $got.read(mp3listalpha) == on ) { did -c gotilla.listsetup 5 } | if ( $got.read(mp3listsize) == on ) { did -c gotilla.listsetup 4 } | if ( $got.read(mp3listlength) == on ) { did -c gotilla.listsetup 7 } 
}
on *:dialog:gotilla.listsetup:sclick:1:{
  got.write mp3listalpha $bgquick($did(5).state) | got.write mp3listsize $bgquick($did(4).state)
  got.write mp3listcolor $did(6).sel | got.write mp3listlength $bgquick($did(7).state) 
  dialog -x gotilla.listsetup gotilla.listsetup
}
on *:dialog:gotilla.listsetup:sclick:7:{ if ( $did(7).state == 1 ) { .timer -m 1 1 bggot.test } }
alias bggot.test { if ( $?!="This option may significantly decrease the speed in which the list is created and possibly freeze mIRC, are u sure u want to do this?" == $true ) { halt } | else { did -u gotilla.listsetup 7 } } 
alias got.listcolor {
  if ( $got.read(mp3listcolor) == 2 ) { set %got.color.1 FFFFFF | set %got.color.2 FFD300 | set %got.color.3 E6E4E4 }
  else if ( $got.read(mp3listcolor) == 3 ) { set %got.color.1 FF4D4D | set %got.color.2 FFFFFF | set %got.color.3 15ACFF }
  else if ( $got.read(mp3listcolor) == 4 ) { set %got.color.1 FFFFFF | set %got.color.2 91E900 | set %got.color.3 FF6666 }
  else if ( $got.read(mp3listcolor) == 5 ) { set %got.color.1 FF00FF | set %got.color.2 83FFFF | set %got.color.3 FFC400 }
  else if ( $got.read(mp3listcolor) == 6 ) { set %got.color.1 E1FFFF | set %got.color.2 E1B9FF | set %got.color.3 E1B9B9 }
  else if ( $got.read(mp3listcolor) == 7 ) { set %got.color.1 00E9FF | set %got.color.2 74C498 | set %got.color.3 74FF98 }
  else { set %got.color.1 00A7A0 | set %got.color.2 FF9DFF | set %got.color.3 1FC8FF }
}
alias got.listsetup { if ( $dialog(got.listsetup) == $null) { dialog -m gotilla.listsetup gotilla.listsetup } }

alias bglistor {
  set %got.tick $ticks
  if ( $$1 != 1 ) {  
    if (( $got.read(mp3dir) == $null ) || ( $exists($shortfn($got.read(mp3dir))) != $true )) { got.eco You need to have an MP3 directory set | halt }
    set %got.temp $shortfn($mircdir) $+ $replace($$?="Choose a name for the list (no extension)",$chr(32),$chr(95)) $+ .html
    if ( %got.temp == $null ) { got.eco Please choose a name for the list | halt }   
    .remove $shortfn(%got.temp)
    got.write mp3list $shortfn(%got.temp)
  }
  else { .remove $shortfn($got.read(mp3list)) } 
  got.write mp3size 1
  set %got.temp.2 0 | got.listcolor | got.listdec
  got.eco Creating list... 
  write $shortfn($got.read(mp3list)) <html><head><title>My List</title><style>
  write $shortfn($got.read(mp3list)) A:link {text-decoration: none}
  write $shortfn($got.read(mp3list)) A:visited {text-decoration: none}
  write $shortfn($got.read(mp3list)) A:hover {color:yellow}
  write $shortfn($got.read(mp3list)) </style></head><BODY bgcolor=" $+ %got.color.1 $+ " TEXT="#000000"><center>
  write $shortfn($got.read(mp3list)) <table border=0 cellpadding=3 cellspacing=1 width=100%>
  write $shortfn($got.read(mp3list)) <caption><font size=+4><a href="http://gotilla.cjb.net/">GoTilla MP3</a></font><br><font size=+2>by <b><a href="mailto:buckaroo@rochester.rr.com">Bucksmack</a></b></font></caption> 
  write $shortfn($got.read(mp3list)) <tr bgcolor= $+ %got.color.2 $+ ><td colspan=2><b>Name</b></td> $+ $iif( $got.read(mp3listsize) == on ,<td width=100><b>Size</b></td>) $+ $iif( $got.read(mp3listlength) == on ,<td width=130><b>Length</b></td>) $+ </tr>
  if ( $got.read(mp3listalpha) == on ) { got.sortedlist2 }
  else {
    unset %got.temp.3
    if ( $got.read(mp32dir) == on ) { set %got.temp.3 $findfile($got.read(mp3dir2),*.mp3,*,got.txtlist $+ %1 $shortfn($$1-) $$1- ) }
    got.eco Finished! Created list of $calc( $findfile($shortfn($got.read(mp3dir)),*.mp3,*,got.txtlist $+ %1 $shortfn($$1-) $$1- ) + %got.temp.3 ) mp3's in $calc($calc($ticks - %got.tick) / 1000) secs -( $+ $got.read(mp3list) $+ )- 
  }
  write $shortfn($got.read(mp3list)) <tr><td colspan="4" bgcolor= $+ %got.color.2 $+ ><center>Back to <a href="#top">top</a></center></table><br><p><br><p>
  write $shortfn($got.read(mp3list)) There are a total of<b> %got.temp.2 </b>mp3's, totaling<b> $gottotal($got.read(mp3size)) </b><br>
  write $shortfn($got.read(mp3list)) Last updated on<b> $adate </b>at<b> $asctime(hh:nn)  </b><br><p><br>
  write $shortfn($got.read(mp3list)) <font size=-1>This list was generated by GoTilla MP3 v3.22 get it at<a href="http://gotilla.cjb.net/"> http://gotilla.cjb.net </a>.
  write $shortfn($got.read(mp3list)) </center></body></html> | unset %got.*
}
alias got.listdec { if (( $got.read(mp3listsize) == on ) && ( $got.read(mp3listlength) == on )) { set %1 1 } | if (( $got.read(mp3listsize) != on ) && ( $got.read(mp3listlength) == on )) { set %1 2 } | if (( $got.read(mp3listsize) != on ) && ( $got.read(mp3listlength) != on )) { set %1 3 } | if (( $got.read(mp3listsize) == on ) && ( $got.read(mp3listlength) != on )) { set %1 4 } }
alias testicular.cancer4 { aline @temp $nopath($$2-) $+ $chr(42) $+ $lof($$2-) }
alias testicular.cancer2 { aline @temp $nopath($$2-) $+ $chr(42) $+ $lof($$2-) $+ $chr(42) $+ $duration($mpegtime($got.q($$1))) }
alias got.sortedlist2 { 
  window -c @temp | window -hns @temp | got.listdec
  if (( %1 == 1 ) || ( %1 == 2 )) { set %2 2 } | if (( %1 == 3 ) || ( %1 == 4 )) { set %2 4 }
  set %got.temp.2 $findfile($got.read(mp3dir),*.mp3,*,testicular.cancer $+ %2 $shortfn($$1-) $$1- ) 
  if ( $got.read(mp32dir) == on ) { set %got.temp.2 $findfile($got.read(mp3dir2),*.mp3,*,testicular.cancer $+ %2 $shortfn($$1-) $$1- ) }
  set %got.temp.1 $line(@temp,0) | set %got.temp.2 0 | got.write mp3size 0  
  :toperz
  inc %got.temp.2
  if ( %got.temp.2 == $calc( %got.temp.1 + 1 ) ) { goto end }
  got.write mp3size $calc( $got.read(mp3size) + $gettok($line(@temp,%got.temp.2),2,42) )
  ; code is not compressed for faster use
  if ( %1 == 1 ) { write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($gettok($line(@temp,%got.temp.2),1,42),.mp3) </td><td bgcolor=FF9D9D> $$iif( $gettok($line(@temp,%got.temp.2),2,42) != $null,$gottotal($gettok($line(@temp,%got.temp.2),2,42)),N/A) </td><td bgcolor=FF9D9D> $iif( $gettok($line(@temp,%got.temp.2),3,42) != $null,$gettok($line(@temp,%got.temp.2),3,42),N/A) </td></tr> }
  if ( %1 == 2 ) { write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($gettok($line(@temp,%got.temp.2),1,42),.mp3) </td><td bgcolor=FF9D9D> $$iif( $gettok($line(@temp,%got.temp.2),3,42) != $null,$gettok($line(@temp,%got.temp.2),3,42),N/A) </td></tr> }
  if ( %1 == 3 ) { write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($gettok($line(@temp,%got.temp.2),1,42),.mp3) </td></tr> }
  if ( %1 == 4 ) { write $shortfn($got.read(mp3list)) <tr><td bgcolor=FF9D9D width=50> %got.temp.2 </td><td bgcolor= $+ %got.color.3 $+ > $remove($gettok($line(@temp,%got.temp.2),1,42),.mp3) </td><td bgcolor=FF9D9D> $$iif( $gettok($line(@temp,%got.temp.2),2,42) != $null,$gottotal($gettok($line(@temp,%got.temp.2),2,42)),N/A) </td></tr> }
  ; end
  goto toperz
  :end
  dec %got.temp.2 | window -c @temp
  got.eco Finished! Created list of %got.temp.2 mp3's in $calc($calc($ticks - %got.tick) / 1000) secs -( $+ $got.read(mp3list) $+ )-
}
alias bglistaddy {
  if ( $exists($shortfn($got.read(mp3list))) != $true ) { got.eco You must create a list first! | goto end }
  if ( $got.read(mp3size) == $null ) { got.eco You must (re)create a list first! | goto end }
  if ( $got.read(mp3rancolor) == on ) { bgrancolor } 
  msg # $got.mp3(n) $+ $got.color.1 To get my list of $+ $got.color.2 $calc( $lines($got.read(mp3list)) - 13 ) $got.color.1 $+ mp3's, totaling $got.color.2 $+ $&
  $gottotal($got.read(mp3size)) $+ $got.color.1 type $+ $got.color.2 ! $+ $me $+ -list 
  :end
}
alias bgnoshow { window -anl @gotillaPLAYED 20 20 500 200 | aline @gotillaPLAYED $got.mp3(n) $theend }
alias got.shuffleskip {
  if ( $timer(bgshuffle) == $null ) { got.eco Shuffle play isn't on | halt }
  bgshuffle 1
}
on 1:text:*:*:{
  if ( $1 == ! $+ $me $+ -gotmp3 ) { 
    .notice $nick $got.mp3(n) $got.color.1 $+ You MUST accept both files for GoTilla MP3, and unload any previous versions, for it to work correctly. Download these to the same directory, and type: $got.color.2 $+ /load -rs c:\directory where u put them\gotillamp3-1.mrc
    dcc send $nick $got.q($script) 
  }
  if ( $1 == ! $+ $me $+ -list ) { if ( $exists($got.read(mp3list)) == $true ) { dcc send $nick $got.read(mp3list) } }
  if (( $1 == ! $+ $me ) && ( $got.read(mp3autosend) == on )) {
    inc %gotflood [ $+ [ $nick ] ] | .timer 1 30 unset %gotflood [ $+ [ $nick ] ] | if ( %gotflood [ $+ [ $nick ] ] >= 2 ) { halt }   
    if ( $2- == $null ) { halt }
    got.tsavr $remove($2-,.mp3)
    if ( $send(0) >= $got.read(mp3dccmax) ) { .notice $nick $got.mp3(n) $got.color.1 $+ Sorry but the maximum number of sends $+ $got.color.2 $+ ( $+ $got.read(mp3dccmax) $+ ) $+ $got.color.1 has been reached, please try again later | halt }
    if ( %got.file != $null ) { dcc send $nick $got.q(%got.file) }
    unset %got.*
  }
  if (( $1 == @locator ) || ( $1 == @find ) && ( $got.read(mp3locator) == on )) {
    if (( $2- == $null ) || ( $2- == * )) { halt } 
    inc %gotflood [ $+ [ $nick ] ]
    .timer 1 10 unset %gotflood [ $+ [ $nick ] ]
    if ( %gotflood [ $+ [ $nick ] ] == 2 ) { .notice $nick $got.mp3(n) $got.color.1 $+ Please wait $got.color.2 $+ 10 seconds $got.color.1 $+ then try again. | halt }     
    if ( %gotflood [ $+ [ $nick ] ] == 7 ) { got.eco $nick is being ignored for 30 seconds due to a $lower($1) flood. | .ignore -u30 $nick 3 }
    if ( %gotflood [ $+ [ $nick ] ] >= 3 ) { halt }
    unset %got.temp.*
    set %got.temp.1 * $+ $remove($replace($2-,$chr(32),$chr(42)),.mp3) $+ *.mp3
    set %got.wanker.1 $calc( $findfile($shortfn($got.read(mp3dir)),%got.temp.1,*) + 1 )
    set %got.temp.3 11
    if ( $got.read(mp32dir) == on ) { set %got.wanker.2 $calc( $findfile($shortfn($got.read(mp3dir2)),%got.temp.1,*) + 1 ) }
    if (( $got.read(mp32dir) != on ) && ( %got.wanker.1 == 1 ))  { halt }
    if (( $got.read(mp32dir) == on ) && ( %got.wanker.2 == 1 ) && ( %got.wanker.1 == 1 )) { halt }
    :toperz
    dec %got.wanker.1 | dec %got.temp.3
    if ( %got.temp.3  == 0 ) { .msg $nick $got.mp3(n) $got.color.2 $+ Your search has more than $got.color.1 $+ 10 $+ $got.color.2 matches, please try something more specific | goto end } 
    if (( %got.wanker.1 == 0 ) && ( $got.read(mp32dir) == on )) { goto toperz2 }
    if (( %got.wanker.1 == 0 ) && ( $got.read(mp32dir) != on )) { goto end }
    .msg $nick $got.mp3(n) $got.color.1 $+ $bgreplace($remove($nopath($findfile($shortfn($got.read(mp3dir)),%got.temp.1,%got.wanker.1)),.mp3))   
    goto toperz
    :toperz2
    dec %got.wanker.2 | dec %got.temp.3
    if ( %got.temp.3  == 0 ) { .msg $nick $got.mp3(n) $got.color.2 $+ Your search has more than $got.color.1 $+ 10 $+ $got.color.2 matches, please try something more specific | goto end } 
    if ( %got.wanker.2 == 0 ) { goto end }
    .msg $nick $got.mp3(n) $got.color.1 $+ $bgreplace($remove($nopath($findfile($shortfn($got.read(mp3dir2)),%got.temp.1,%got.wanker.2)),.mp3))   
    :end
    if ( $got.read(mp3autosend) != on ) { .msg $nick $got.mp3(n) $got.color.2 $+ Autosending for me is $got.color.1 $+ off | halt }
    else { .msg $nick $got.mp3(n) $got.color.2 $+ To get a file type: $+ $got.color.1 ! $+ $me (filename) $+ $got.color.2 $+ . There are currently $got.color.1 $+ $iif( $calc( $got.read(mp3dccmax) - $send(0) )  > 0,$calc( $got.read(mp3dccmax) - $send(0) ),no) $got.color.2 $+ open slots. }
    if ( $send(0) == $got.read(mp3dccmax) ) { .msg $nick $got.mp3(n) $got.color.2 $+ The maximum number of sends $+ $got.color.1 $+ ( $+ $got.read(mp3dccmax) $+ ) $+ $got.color.2 has been reached, please try again later | halt }
  }
}
alias got.mp3 { if ( $$1 == n ) { return $a $+ $got.color.1 $+ mp $+ $got.color.2 $+ 3 $+ $b } | else { return $a $+ $got.color.1 $+ mp $+ $got.color.2 $+ 3 $+ $got.color.1 $+ - $+ $$1 $+ $b } }
alias got.eco { echo -a   $+ $colour(info) $+ *** $$1- }

ctcp *:sound:*:{ bgrequest $nick $2- }
ctcp *:mp3:*:{ bgrequest $nick $2- }
alias bgrequest {
  if ( %gotflood.req != $null ) { halt }     
  if ( $got.read(mp3request) != on ) { halt }
  set %got.request.1 $replace($2-,$chr(160),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42),$chr(32),$chr(42))
  if ( $right($2-,4) != .mp3 ) { set %got.request.1 %got.request.1 $+ *.mp3 }
  set %got.request $findfile($got.read(mp3dir),%got.request.1,1)
  if (( %got.request == $null ) && ( $got.read(mp32dir) == on )) { set %got.request $findfile($got.read(mp3dir2),%got.request.1,1) }
  if ( %got.request == $null ) { halt }
  if ( $got.read(mp3replay) iswm %got.request ) { halt }
  bgtest0r
  set %got.file %got.request
  bgfileplay # %got.request
  inc %gotflood.req
  if ( $mpegtime($got.q($got.com(%got.file))) == $null ) { if ( $lof(%got.file) == $null ) { .timer 1 210 unset %gotflood.req } | else { .timer 1 $calc($lof(%got.file) / 16000) unset %gotflood.req } }
  else { .timer 1 $mpegtime($got.q($got.com(%got.file))) unset %gotflood.req }
  got.eco Playing at request of: $1
  if ( $got.read(mp3advert) == on ) { msg # $got.mp3(request) $a $+ $got.color.1 $+ by $got.color.2 $+ $$1 $+ $b $theend } | else if ( $got.read(mp3advert) == off ) { bgnoshow } | else { amsg $got.mp3(request) $a $+ $got.color.1 $+ by $got.color.2 $+ $$1 $+ $b $theend } | unset %got.*.*
}

on *:connect: {
  if ( $nopath($script) != gotillamp3-2.mrc ) { .timer 1 2 rename $got.q($script) " $+ $nofile($script) $+ gotillamp3-2.mrc $+ " } 
  if (( $version < 5.6 ) || ( $bits < 32 )) { got.eco GoTilla MP3 v3.22 requires mIRC v5.6(32bit) or higher | unload -rs $script | halt } 
}