;THEME 1
alias theme.strip { return yes }
alias theme.time { return 4,1[14 $+ $time(HH04:14nn04:14ss) $+ 4] }
alias theme.nick {
  set %theme.nick $1
  set %theme.nick.len $len($1)
  set %theme.nick.chan $2
  if (%theme.nick.len < 12) {
    set %theme.nick.ext $calc(12 - %theme.nick.len)
    set %theme.nick.tmp 01,01 $+ $str(.,%theme.nick.ext)
  }
  else { set %theme.nick $left(%theme.nick,12) }
  if ($replace($nick($2,$1).pnick,$1,) == $null) { set %theme.nick.pn 01,01. }
  else { set %theme.nick.pn 00 $+ $left($replace($nick($2,$1).pnick,$1,),1) }
  set %temp 4< $+ %theme.nick.pn $+ %theme.nick.tmp $+ 14 $+ %theme.nick $+ 4>15
  unset %theme.nick*
  return %temp
  halt
}
alias theme.me {
  set %theme.me $me
  set %theme.me.len $len($me)
  set %theme.me.chan $1
  if (%theme.me.len < 12) {
    set %theme.me.ext $calc(12 - %theme.me.len)
    set %theme.me.tmp 01,01 $+ $str(.,%theme.me.ext)
  }
  else { set %theme.me $left(%theme.me,12) }
  if ($replace($nick($1,$me).pnick,$me,) == $null) { set %theme.me.pn 01,01. }
  else { set %theme.me.pn 00 $+ $left($replace($nick($1,$me).pnick,$me,),1) }
  set %temp 4< $+ %theme.me.pn $+ %theme.me.tmp $+ 4 $+ %theme.me $+ 4>0
  unset %theme.me*
  return %temp
  halt
}
alias theme.action {
  set %theme.action $1
  set %theme.action.len $len($1)
  set %theme.action.chan $2
  if (%theme.action.len < 12) {
    set %theme.action.ext $calc(12 - %theme.action.len)
    set %theme.action.tmp 01,01 $+ $str(.,%theme.action.ext)
  }
  else { set %theme.action $left(%theme.action,12) }
  if ($replace($nick($2,$1).pnick,$1,) == $null) { set %theme.action.pn 01,01. }
  else { set %theme.action.pn 00 $+ $left($replace($nick($2,$1).pnick,$1,),1) }
  set %temp 0* %theme.action.pn $+ %theme.action.tmp $+ 14 $+ %theme.action $+ 15
  unset %theme.action*
  return %temp
  halt
}
alias theme.act {
  set %theme.act $me
  set %theme.act.len $len($me)
  set %theme.act.chan $1
  if (%theme.act.len < 12) {
    set %theme.act.ext $calc(12 - %theme.act.len)
    set %theme.act.tmp 01,01 $+ $str(.,%theme.act.ext)
  }
  else { set %theme.act $left(%theme.act,12) }
  if ($replace($nick($1,$me).pnick,$me,) == $null) { set %theme.act.pn 01,01. }
  else { set %theme.act.pn 00 $+ $left($replace($nick($1,$me).pnick,$me,),1) }
  set %temp 0* %theme.act.pn $+ %theme.act.tmp $+ 4 $+ %theme.act $+ 0
  unset %theme.act*
  return %temp
  halt
}
alias theme.highlight {
  set %theme.high.text $4
  if ($theme.strip == yes) { set %theme.high.text $strip($4) }
  return 1,1............... 7*** HIGHLIGHT *** 4"00 $+ $1 $+ 4" 15calls your nickname on 4"0 $+ $2 $+ \ $+ $3 $+ 4" 15and says 4"00,01 $+ %theme.high.text $+ 4"
}
alias theme.hinick {
  set %theme.nick $1
  set %theme.nick.len $len($1)
  set %theme.nick.chan $2
  if (%theme.nick.len < 12) {
    set %theme.nick.ext $calc(12 - %theme.nick.len)
    set %theme.nick.tmp 01,01 $+ $str(.,%theme.nick.ext)
  }
  else { set %theme.nick $left(%theme.nick,12) }
  if ($replace($nick($2,$1).pnick,$1,) == $null) { set %theme.nick.pn 01,01. }
  else { set %theme.nick.pn 00 $+ $left($replace($nick($2,$1).pnick,$1,),1) }
  set %temp 7< $+ %theme.nick.pn $+ %theme.nick.tmp $+ 14 $+ %theme.nick $+ 7>15
  unset %theme.nick*
  return %temp
  halt
}
alias theme.imp { return 4,1"00,01 $+ $1 $+ 04,01" }
on ^*:text:*:#:{
  haltdef
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  if ($me isin $strip($1-)) {
    echo $chan $theme.time $theme.hinick($nick,$chan) %temp.txt
    if ($active != $chan) { echo -a $theme.time $theme.highlight($nick,$server,$chan,$1-) | flash }
  }
  else { echo $chan $theme.time $theme.nick($nick,$chan) %temp.txt }
  halt
}
on ^*:text:*:?:{
  haltdef
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo -e $nick $theme.time $theme.nick($nick,$chan) %temp.txt
  flash
  halt
}
on *:input:?:{
  if ($left($1,1) == /) { goto end }
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo -a $theme.time $theme.me($active) %temp.txt
  .privmsg $active $1-
  halt
  :end
}
on *:input:#:{
  if ($left($1,1) == /) { goto end }
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo -a $theme.time $theme.me($active) %temp.txt
  .privmsg $active $1-
  halt
  :end
}
on *:input:*:{
  if ($left($1,1) == /) { goto end }
  if ($active == Status Window) {
    echo -s $theme.time 4,1[0RAW4]0:15 $1-
    $1-
    halt
  }
  :end
}
alias say {
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo -a $theme.time $theme.me($active) %temp.txt
  .privmsg $active $1-
  halt
}
alias msg {
  set %temp.txt $2-
  if ($theme.strip == yes) { set %temp.txt $strip($2-) }
  echo $1 $theme.time $theme.me($1) %temp.txt
  .privmsg $1 $2-
}
alias me {
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo -a $theme.time $theme.act($active) %temp.txt
  .describe $active $1-
}
alias ame {
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  .ame $1-
  aecho $theme.time $theme.act($active) %temp.txt
}
alias amsg {
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  .amsg $1-
  aecho $theme.time $theme.me($active) %temp.txt
}
alias aecho {
  set %ae.temp 0
  set %ae.msg $1-
  :m00
  inc %ae.temp 1
  if ($chan(%ae.temp) == $null) { unset %ae.* | halt }
  echo $chan(%ae.temp) %ae.msg
  goto m00
}
on ^*:action:*:#:{
  haltdef
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo $chan $theme.time $theme.action($nick,$chan) %temp.txt
  if ($me isin $strip($1-)) && ($active != $chan) { echo -a $theme.time $theme.highlight($nick,$server,$chan,$1-) | flash }

  halt
}
on ^*:action:*:?:{
  haltdef
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo $nick $theme.time $theme.action($nick,$chan) %temp.txt
  flash
  halt
}
on ^*:join:#:{
  haltdef
  if ($nick == $me) {
    echo $chan $theme.time 15Joined 4"00 $+ $chan $+ 4"
    if (%th.sjoin) { splay sounds/join.wav }
  }
  if ($nick != $me) {
    set %temp.nick $gettok($fulladdress,1,33)
    set %temp.addr $gettok($fulladdress,2,33)
    echo $chan $theme.time 1,1............... 14>3>9> 0 $+ %temp.nick $+ 4! $+ 14 $+ %temp.addr
  }
  if ($ialchan($wildsite,$chan,0) > 1) { 
    var %i = 2 
    var %clonez = $ialchan($wildsite,$chan,1).nick 
    var %clonez2 = $ialchan($wildsite,$chan,%i).nick 
    while (%i <= $ialchan($wildsite,$chan,0)) {
      echo $chan $theme.time 1,1............... 4*** 15Clones from 4"00 $+ $ialchan($wildsite,$chan,1).nick $+ 4" 15and 4"0 $+ $ialchan($wildsite,$chan,%i).nick $+ 4" [0 $+ $wildsite $+ 4]
      inc %i 
    }
  } 
  halt
}
on ^*:part:#:{
  haltdef
  if ($nick != $me) {
    set %temp.nick $gettok($fulladdress,1,33)
    set %temp.addr $gettok($fulladdress,2,33)
    echo $chan $theme.time 1,1............... 4<5<14< 0 $+ %temp.nick $+ 4! $+ 14 $+ %temp.addr
  }
  if ($nick == $me) && (%th.spart) { splay sounds/part.wav }
  halt
}
on ^*:quit:{
  var %q.temp = 1
  set %temp.nick $gettok($fulladdress,1,33)
  set %temp.addr $gettok($fulladdress,2,33)
  while (%q.temp <= $comchan($nick,0)) {
    %q.chan = $comchan($nick,%q.temp)
    echo $comchan($nick,%q.temp) $theme.time 1,1............... 0<15<14< 0 $+ %temp.nick $+ 4! $+ 14 $+ %temp.addr 4[15,01 $+ $1- $+ 4]
    inc %q.temp
  }
  unset %q.*
  haltdef
}
on ^*:nick:{
  var %n.temp = 1
  while (%n.temp <= $comchan($newnick,0)) {
    %n.chan = $comchan($nick,%n.temp)
    echo $comchan($newnick,%n.temp) $theme.time 1,1............... 14>2>12> 4"00 $+ $nick $+ 4" 15is now known as 4"00 $+ $newnick $+ 4"
    inc %n.temp
  }
  unset %n.*
  haltdef
}
on ^*:snotice:*:{
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo -s $theme.time 4[0,01 $+ $nick $+ 4]15 $1-
  halt
}
raw 353:*:{ echo $3 $theme.time 15Users 4"00 $+ $4- $+ 4" | halt }
raw 366:*:{ halt }
raw 324:*:{ echo $2 $theme.time 15Modes: 4"00 $+ $3- $+ 4" | halt }
raw 329:*:{ halt }
raw 332:*:{ echo $2 $theme.time 15Topic 4"00 $+ $3- $+ 4" | halt }
raw 333:*:{ echo $2 $theme.time 15Topic Created by 4"00 $+ $3 $+ 4" 15on 4"00 $+ $asctime($4) $+ 4" | halt }
alias whois {
  echo -a $theme.time 4 $+ ,- 15Whois on 4"00 $+ $1 $+ 4"
  whois $1
}
alias whowas {
  echo -a $theme.time 4 $+ ,- 15Whowas on 4"00 $+ $1 $+ 4"
  whowas $1
}
raw 309:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 310:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 311:*:{ echo -a $theme.time 4 $+ |- 15Host 4"00 $+ $3 $+ @ $+ $4 $+ 4" 15Realname 4"00 $+ $6- $+ 4" | halt }
raw 312:*:{ echo -a $theme.time 4 $+ |- 15Server 4"00 $+ $3 $+ 4" [00,01 $+ $4- $+ 4] | halt }
raw 313:*:{ echo -a $theme.time 4 $+ |- 15Status 4"00 $+ $3- $+ 4" | halt }
raw 314:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 325:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 317:*:{ echo -a $theme.time 4 $+ |- 15Idle 4"00 $+ $duration($3) $+ 4" 15Logon 4"00 $+ $asctime($4) $+ 4" | halt }
raw 318:*:{ echo -a $theme.time 4 $+ `- 15End of whois on 4"00 $+ $2 $+ 4" | halt }
raw 369:*:{ echo -a $theme.time 4 $+ `- 15End of whois on 4"00 $+ $2 $+ 4" | halt }
raw 319:*:{ echo -a $theme.time 4 $+ |- 15Channels 4"00 $3- 4" | halt }
raw 307:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 378:*:{ echo -a $theme.time 4 $+ |- 15Connection 4"00 $+ $6- $+ 4" | halt }
raw 335:*:{ echo -a $theme.time 4 $+ |- 15This user $3- | halt }
raw 379:*:{ echo -a $theme.time 4 $+ |- 15Modes 4"00 $+ $6- $+ 4" | halt }
raw 320:*:{ echo -a $theme.time 4 $+ |- 15Info 4"00 $+ $3- $+ 4" | halt }
raw 671:*:{ echo -a $theme.time 4 $+ |- 15Using a 4"00 $+ $6- $+ 4" | halt }
raw 401:*:{ echo -a $theme.time 4 $+ |- 15There is no user online called 4"00 $+ $2 $+ 4" | halt }
raw 440:*:{ echo -a $theme.time 1,1............... 7*** WARNING *** 4"00 $+ $3- $+ 4" | halt }
raw 386:*:{ echo -a $theme.time 1,1............... 7*** NOTICE *** 4"00 $+ $3- $+ 4" | halt }
raw 421:*:{ echo -a $theme.time 15The command 4"00 $+ $2 $+ 4" 15is unknown. | if (%th.serr) { splay sounds/err.wav } | halt }
raw 251:*:{
  echo -s $theme.time 4 $+ ,- 15Server information
  echo -s $theme.time 4 $+ |- 15There are 4"00 $+ $4 $+ 4" 15users and 4"00 $+ $7 $+ 4" 15invisible on 4"00 $+ $10 $+ 4" 15servers.
  halt
}
raw 252:*:{ echo -s $theme.time 4 $+ |- 15There are 4"00 $+ $2 $+ 4" 15operator(s) online | halt }
raw 254:*:{ echo -s $theme.time 4 $+ |- 15There are 4"00 $+ $2 $+ 4" 15channels formed. | halt }
raw 255:*:{ echo -s $theme.time 4 $+ |- 15The server has 4"00 $+ $4 $+ 4" 15clients and 4"00 $+ $7 $+ 4" 15servers | halt }
raw 265:*:{ echo -s $theme.time 4 $+ |- 15Currently 4"00 $+ $5 $+ 4" 15local users connected, the maximum was 4"00 $+ $7 $+ 4" | halt }
raw 266:*:{ 
  echo -s $theme.time 4 $+ |- 15Currently 4"00 $+ $5 $+ 4" 15global users connected, the maximum was 4"00 $+ $7 $+ 4"
  echo -s $theme.time 4 $+ `- 15End of server information
  halt
}
raw 253:*:{ echo -s $theme.time 4 $+ |- 15The server has 4"00 $+ $2 $+ 4" 15unknown connection(s) | halt }
raw 381:*:{ if (%th.sservadm) { splay sounds/servadm.wav } }
raw 474:*:{ if (%th.sban) { splay sounds/ban.wav } }
on ^*:mode:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) sets mode 4"00 $+ $1- $+ 4" | halt }
on ^*:op:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) grants operator status to 4"00 $+ $opnick $+ 4" | if ($opnick == $me) && (%th.sop) { splay sounds/op.wav } | halt }
on ^*:deop:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) revokes operator status of 4"00 $+ $opnick $+ 4" | if ($opnick == $me) && (%th.sdop) { splay sounds/dop.wav } | halt }
on ^*:voice:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) grants voice status to 4"00 $+ $vnick $+ 4" | if ($vnick == $me) && (%th.svoice) { splay sounds/voice.wav } | halt }
on ^*:devoice:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) revokes voice status of 4"00 $+ $vnick $+ 4" | if ($vnick == $me) && (%th.sdvoice) { splay sounds/dvoice.wav } | halt }
on ^*:help:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) grants halfop status to 4"00 $+ $hnick $+ 4" | halt }
on ^*:dehelp:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) revokes halfop status of 4"00 $+ $hnick $+ 4" | halt }
on ^*:ban:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) banned 4"00,01 $+ $2- $+ 4" | halt }
on ^*:unban:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) unbanned 4"00,01 $+ $2- $+ 4" | halt }
on ^*:kick:#:{
  haltdef
  if ($knick == $me) { echo $chan $theme.time 15You have been kicked from 4"00 $+ $chan $+ 4" 15by 4"00 $+ $nick $+ 4" 15with reason 4[00,01 $+ $1- $+ 4] | if (%th.skick) { splay sounds/kicked.wav } | halt }
  else { echo $chan $theme.time 1,1............... 4*** "00 $+ $nick $+ 4" 15kicked out 4"00 $+ $knick $+ 4" 15with reason 4[00,01 $+ $1- $+ 4] | halt }
}
on ^*:topic:#:{ haltdef | echo $chan $theme.time $theme.action($nick,$chan) changed the topic to 4"00,01 $+ $1- $+ 4" | halt }
on ^*:notice:*:?:{
  var %n.temp = 1
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  while (%n.temp <= $comchan($nick,0)) {
    %n.chan = $comchan($nick,%n.temp)
    echo $comchan($nick,%n.temp) $theme.time 0<- 15Notice of 4"00 $+ $nick $+ 4" 15saying 4"00,01 $+ %temp.txt $+ 4"
    inc %n.temp
  }
  echo -s $theme.time 0<- 15Notice of 4"00 $+ $nick $+ 4" 15saying 4"00,01 $+ %temp.txt $+ 4"
  unset %n.*
  haltdef
}
on ^*:notice:*:#:{ 
  set %temp.txt $1-
  if ($theme.strip == yes) { set %temp.txt $strip($1-) }
  echo $chan $theme.time 0<- 15Notice of 4"00 $+ $nick $+ 4" 15to the channel, saying 4"00,01 $+ %temp.txt $+ 4"
  halt
}
alias notice {
  set %temp.txt $2-
  if ($theme.strip == yes) { set %temp.txt $strip($2-) }
  echo -a $theme.time 0-> 15Notice to 4"00 $+ $1 $+ 4" 15saying 4"00,01 $+ %temp.txt $+ 4"
  .notice $1 $2-
  halt
}
alias dns { set %bluh $1- | .dns %bluh | halt }
on *:dns: {
  if ($raddress != $null) { echo -a $theme.time 15IP-Address4 $iaddress | echo -a $theme.time 15Named Address4 $naddress | haltdef }
  else { echo -a $theme.time 15Unable to resolve4 %bluh | unset %bluh | haltdef } 
}

on ^*:HOTLINK:*.*.*.*:*:{
  alias checkip {
    var %~ = 1
    while (%~ <= 4) { if ($token($1,%~,$asc(.)) !isnum 0-255) halt | inc %~ }
  }
}

on *:HOTLINK:*.*.*.*:*:{
  if ($input(Scan selected IP?,y,Scan) == $true) { set %rand $rand(100,999) | .sockopen scanip- $+ %rand $1 $input(Scan which port?,eo,Scan) | set %pstime. [ $+ [ %rand ] ] $ctime | halt }
}

on *:sockopen:scanip-*:{
  if ($sockerr < 1) { echo -a $theme.time 15Port scan4 $sock($sockname,1).ip : $sock($sockname,1).port 15is 3Open }
  else { echo -a $theme.time 15Port scan4 $sock($sockname,1).ip : $sock($sockname,1).port 15is 4Closed }
  set %temp.time1 %pstime. [ $+ [ $replace($sockname,scanip-,) ] ]
  set %temp.time2 $ctime
  echo -a $theme.time 15Scan done in4 $duration($calc(%temp.time2 - %temp.time1))
  unset %pstime. [ $+ [ $replace($sockname,scanip-,) ] ]
  sockclose $sockname
}
on *:connect:{
  if (%th.sconn) { splay sounds/connect.wav }
}
on *:disconnect:{
  if (%th.sdiscon) { splay sounds/discon.wav }
}
menu * {
  Theme Sounds
  .$iif(%th.sjoin,$style(1)) Join: {
    if (%th.sjoin) { unset %th.sjoin | halt }
    else { set %th.sjoin on | halt }
  }
  .$iif(%th.spart,$style(1)) Part: {
    if (%th.spart) { unset %th.spart | halt }
    else { set %th.spart on | halt }
  }
  .$iif(%th.sconn,$style(1)) Connect: {
    if (%th.sconn) { unset %th.sconn | halt }
    else { set %th.sconn on | halt }
  }
  .$iif(%th.sdiscon,$style(1)) Disconnect: {
    if (%th.sdiscon) { unset %th.sdiscon | halt }
    else { set %th.sdiscon on | halt }
  }
  .$iif(%th.sban,$style(1)) Banned: {
    if (%th.sban) { unset %th.sban | halt }
    else { set %th.sban on | halt }
  }
  .$iif(%th.skick,$style(1)) Kicked: {
    if (%th.skick) { unset %th.skick | halt }
    else { set %th.skick on | halt }
  }
  .$iif(%th.sservadm,$style(1)) Servadm: {
    if (%th.sservadm) { unset %th.sservadm | halt }
    else { set %th.sservadm on | halt }
  }
  .$iif(%th.serr,$style(1)) Error: {
    if (%th.serr) { unset %th.serr | halt }
    else { set %th.serr on | halt }
  }
  .$iif(%th.sop,$style(1)) Op: {
    if (%th.sop) { unset %th.sop | halt }
    else { set %th.sop on | halt }
  }
  .$iif(%th.sdop,$style(1)) Deop: {
    if (%th.sdop) { unset %th.sdop | halt }
    else { set %th.sdop on | halt }
  }
  .$iif(%th.svoice,$style(1)) Voice: {
    if (%th.svoice) { unset %th.svoice | halt }
    else { set %th.svoice on | halt }
  }
  .$iif(%th.sdvoice,$style(1)) Devoice: {
    if (%th.sdvoice) { unset %th.sdvoice | halt }
    else { set %th.sdvoice on | halt }
  }
}