--Bar--
alias back {
 
  amsg 9«14º3I 4A14m 4N14ow 9Back14. 4A14way 4W14ith0: 9(14 $+ %Away.Reason $+ 9) 7 $+ $chr(134) 3I 4L14eft 4A14t0: 9(14 $+ %TimeAwayd $+ 9) 7 $+ $chr(134) 3I 4W14as 4A14way 4F14or0: 9(14 $+ $duration($calc($ctime - %TimeAway )) $+ 9) $+ 14º9»
 
  did -ra EpicLulzBar 7 Not Away
 
  did -r EpicLulzBar 8
 
  .timer 1 1 unset %Away.Reason %TimeAwayd %TimeAway
 
  away
 
}
 
 
 
alias xAway {
 
  %Away.Reason = $iif($1,$1-,N/A)
 
  did -ra EpicLulzBar 7 Away
 
  did -ra EpicLulzBar 8 $strip(%Away.Reason)
 
  away %Away.Reason
 
  %TimeAwayd = $time(ddd hh:nn:ss tt)
 
  %TimeAway = $ctime
 
  amsg 9«14º3I 4A14m 4N14ow 4Away14. 4R14eason0: 9(14 $+ %Away.Reason $+ 9) 7 $+ $chr(134) 3I 4L14eft 4A14t0: 9(14 $+ %TimeAwayd $+ 9) 14º9»
}
 
 
 
alias Tuff { return 9(14 $+ $1- $+ 9) }
 
dialog EpicLulzBar {
 
  title "EpicLulz-iRC BarSys"
 
  size -1 -1 636 24
 
  option dbu
 
  button "Go Away", 2, 0 8 37 8, flat
 
  button "Come Back", 1, 36 8 37 8, flat
 
  box "Away", 6, 0 0 74 18
 
  edit "[[Away]]", 7, 80 0 34 10, read
 
  box "EpicLulzMp3", 10, 139 0 255 18
 
  button "Show Music", 11, 140 8 37 8, flat
 
  button "Set Lulz", 12, 176 8 37 8, flat
 
  button "Set Lulz[a]", 13, 212 8 37 8, flat
 
  button "Set Song", 14, 248 8 37 8, flat
 
  button "Set Artist", 15, 284 8 37 8, flat
 
  button "Set Album", 16, 320 8 37 8, flat
 
  button "Set All", 17, 356 8 37 8, flat
 
  box "Op/Admin Box", 18, 394 0 116 18
 
  button "Quote", 19, 396 8 21 8, flat
 
  button "FML", 20, 416 8 21 8, flat
 
  button "Fact", 21, 436 8 25 8, flat
 
  button "Lag", 22, 460 8 25 8, flat
 
  button "Kick", 23, 484 8 25 8, flat
 
  edit "EpicLulz-iRC Bar System v2.0 Scripted by Aurora -[-|EpicLulz-iRC|-]- r-iRC System by Aurora |", 25, 512 0 122 18, read multi return
 
  edit "", 8, 74 12 64 10, read
 
}
 
 
 
 
 
 
 
 
 
on *:dialog:EpicLulzBar:init:*: {
 
  dll $mdx SetMircVersion $version
 
  dll $mdx MarkDialog $dname
 
  dll $mdx SetColor $dname 2,8,7,6,10,25,18 background $color(1)
 
  dll $mdx SetColor $dname 2,8,7,6,10,25,18 textbg $color(1)
 
  dll $mdx SetColor $dname 2,8,7,6,10,25,18 text $color(9)
 
  dll $mdx SetDialog $dname BGColor $color(1)
 
  dll $mdx SetDialog $dname BGColor $color(1)
 
  dll $hos Dock $dname top -1
 
  UpdateAway
 
  did -ra $dname 10 $chr(171) $+ EpicLulzMp $+ $chr(179) $+ $chr(187)
 
  did -ra $dname 18 $chr(171) $+ $chr(215) $+ Bot Control $+ $chr(187)
 
}
 
alias UpdateAway {
 
  if ($away = $true) {
 
    did -ra EpicLulzBar 7 Away
 
    did -ra EpicLulzBar 8 $strip(%Away.Reason)
 
  }
 
  elseif ($away = $false) { did -r EpicLulzBar 8 | did -ra EpicLulzBar 7 Not Away }
 
}
 
alias ReloadBar { dialog -x EpicLulzBar | BarSys }
 
on *:dialog:EpicLulzBar:sclick:2: { xAway $?"Reason?" }
 
on *:dialog:EpicLulzBar:sclick:1: { Back }
 
on *:dialog:EpicLulzBar:sclick:*: {
 
  if ($did == 11) { tsay $np }
 
  if ($did == 12) { lulz $$?"Set to? (Lulz)" }
 
  if ($did == 13) { lulza $$?"Set to? (Lulz[a])" }
 
  if ($did == 14) { song song }
 
  if ($did == 15) { song Artist }
 
  if ($did == 16) { song Album }
 
  if ($did == 17) { song }
 
  if ($did == 19) { tsay !xQuote }
 
  if ($did == 20) { tsay !fml }
 
  if ($did == 21) { tsay !factr }
 
  if ($did == 22) { tsay !Lag }
 
  if ($did == 23) { echo -a 9(4E14rror9) 4F14eature 4N14ot 4R14eady0. 9;14x }
 
}
 
alias BarSys { dialog -m EpicLulzBar EpicLulzBar }
 
on *:start: { BarSys }
 
 
--Player--
on *:START: {
 
  if (%Song.Title != $null) { set %PsychoPlayer.Song Yes }
 
}
 
alias Krewl {
 
  set %co1 4
 
  set %co2 14
 
  var %x 1
 
  while (%x <= $gettok($1-,0,32)) {
 
    var %text1 $mid($gettok($1-, [ [ %x ] ],32),1,1)
 
    var %text [ [ %text ] ] $replace($mid($gettok($1-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($1-, [ [ %x ] ],32),2,$calc($len($gettok($1-, [ [ %x ] ],32) - 1)))
 
    inc %x
 
  }
 
  return %Text
 
}
 
 
 
 
 
 
 
alias Mp3 { return 3E14pic3L14ul3z9-14M3p09 $+ $chr(179) $+  }
 
alias Source { return Mikk's iPod }
 
alias Trakd {
 
  if ($1 = Song) { return %Song.Title }
 
  elseif ($1 = Artist) { return %Song.Artist }
 
  elseif ($1 = Album) { return %Song.Album }
 
}
 
alias Np { return 9«14º3E14pic3L14ul3z9-3P14w9N3z $iif(%Player.Lulz,%Player.Lulz) 4[-09 $+ $Trakd(Song) $+  6--09 $+ $Trakd(Artist) 4-[-09 $+ $Trakd(Album) $+ 4-] $mp3 $+ 14º9» }
 
alias Song {
 
  if ($1 == $null) {
 
    set %Song.Title $$?"Song Title?"
 
    set %Song.Artist $$?"Artist?"
 
    set %Song.Album $$?"Album?"
 
    set %Song.Play Yes
 
    set %PsychoPlayer.Song Yes
 
  }
 
  elseif ($1 = Song) { set %Song.Title $$?"Song Title?" }
 
  elseif ($1 = Artist) { set %Song.Artist $$?"Artist?" }
 
  elseif ($1 = Album) { set %Song.Album $$?"Album?" }
 
  echo -a $np
 
}
 
alias lulza { set %Player.Lulz $Krewl($1-) | echo -a $np }
 
alias Lulz { set %Player.Lulz $1- | echo -a $np }
 
alias nowplaying { tsay $np }
 
menu * {
 
  -
 
  «ºPlayerº»
 
  .º¯Set¯º
 
  ..«¯All¯»:/Song
 
  ..«¯Song¯»:/song Song
 
  ..«¯Artist¯»:/song Artist
 
  ..«¯Album¯»:/song Album
 
  .«¯Info¯»
 
  ..«¯Lulz Message $+ $chr(58) $iif(%Player.Lulz,Yes,No) $+ ¯»
 
  ..«¯ $+ $iif(%Player.Lulz,$strip(%Player.Lulz),N/A) $+ ¯»
 
  ..«¯Current Song $+ $chr(58) $Trakd(Song) $+ ¯»
 
  ..«¯Artist $+ $chr(58) $Trakd(Artist) $+ ¯»
 
  ..«¯Album $+ $chr(58) $Trakd(Album) $+ ¯»
 
  .«¯Lulz Message¯»
 
  ..«¯Set¯»:/Lulz $$?"Message?"
 
  ..«¯Set With Krewl¯»:/lulza $$?"Message?"
 
  ..«¯Unset¯»:/unset %Player.Lulz
 
}
 
 
 
menu channel,query {
 
  «ºPlayerº»
 
  .«¯Show¯»
 
  ..«¯Echo¯»:/echo -a $np
 
  ..«¯Show¯»:/tsay $np
 
  .«¯Be Random!¯»
 
  ..«¯RandPost¯»:/tsay I'm So Random!:: $RandPost
 
  ..«¯RandChar¯»:/tsay I'm So Random!:: $Randchar
 
}
 
alias RandPost {
 
  var %Post.Start = 1
 
  var %Post.End = $rand(4,14)
 
  var %Post.Out = $rand(A,Z) $+ $rand(0,9)
 
  while (%Post.Start <= %Post.End) {
 
    var %Post.Out = %Post.Out $+ $rand(A,z) $+ $rand(0,9)
 
    inc %Post.Start
 
  }
 
  return %Post.Out
 
}
 
alias RandChar {
 
  var %char.Start = 1
 
  var %char.End = $rand(4,14)
 
  var %Char.Out = $chr($rand(0,1000)) $+ $chr($rand(0,1000))
 
  while (%Char.Start <= %Char.End) {
 
    var %char.Out = %char.Out $+ $chr($rand(0,1000)) $+ $chr($rand(0,1000))
 
    inc %char.Start
 
  }
 
  return %Char.Out
 
}
 

Commenting Options