r-iRC BarSys with r-iRC-Player

By Aurora801 on Aug 23, 2009

Load into Remotes. Either as two diff files or as one. Doesn't matter.

***Does require MDX.dll and hOS.dll !!!

--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

}

Aurora801

Like Page Follow Author

Comments

Sign in to comment.
Aurora801   -  Aug 24, 2009

there will be a full bar system posted soon, please do comment, but note that this, and the other bar system are to different systems. :x This is just a status bar, the next one is a bar to replace the stock toolbar.

 Respond  
GlobalAnomaly   -  Aug 23, 2009

Woah. The spacing makes it hard for me to look at the code :(

And lol Sir_Sonic12.

 Respond  
sunslayer   -  Aug 23, 2009

i don't know, why do you take pictures of yourself with your shirt off?

lol'd

 Respond  
Sir_Sonic12   -  Aug 23, 2009

i don't know, why do you take pictures of yourself with your shirt off?

why does it matter how it's spaced? it's a coding preferance, it doesn't make the code any slower than having no spaces. only thing that matters is the quality of the code.

 Respond  
Korvin   -  Aug 23, 2009

why space it like that?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.