Theme Engine

; Theme Engine v1.1.2 scripted by NeoJolt.
; Basic events covered, i plan to do the whole bunch
; Only supports one color scheme for now.
; Doesnt have a fancy GUI yet for configuring settings will do that later as well.
; It may contain bugs; please report bugs at freerk87@live.nl
; Use /load.theme to load a theme and see what will happen, you can also create your own theme by copying the example theme and modify stuff.


; /* EVENTS */
on ^*:JOIN:#: {
  haltdef
  if ($nick == $me) {
    if ($isalias(theme_selfjoin)) { echo $chan $theme_selfjoin($chan,$me) | halt }
    else { echo $chan $+(,$color(join),$timestamp * Now talking in $chan) | halt }
  }
  else  {
    if ($isalias(theme_join)) { echo $chan $theme_join($chan,$nick) | halt }
    else { echo $chan $+(,$color(join),$nick has joined $chan) | halt }
  }
}

on ^*:PART:#: {
  haltdef
  if ($nick != $me) {
    if ($isalias(theme_part)) { echo $chan $theme_part($chan,$nick,$1-) | halt }
    else { echo $chan $+(,$color(part),$nick has left $chan $iif($3,$+($lp,$3-,$rp),$chr(44)) | halt }
  }
}

on ^*:QUIT:{
  haltdef
  var %i = 1
  :loop
  while (%i <= $comchan($nick,0)) {
    if ($isalias(theme_quit)) { echo $comchan($nick,%i) $theme_quit($chan,$nick,$1-) | inc %i | goto loop }
    else { echo $comchan($nick,%i) $+(,$color(quit),$timestamp Quit $+($lp,$1-,$rp,)) | inc %i | goto loop }
  }
  halt
}

on *:INPUT:*: {
  if (($left($1,1) == /) && ($ctrlenter == $false)) { return }
  privmsg $active $1-
  if ($isalias(theme_selftext)) { echo $active $theme_selftext($active,$me,$1-) | halt }
  else { echo $active $+(,$color(text),$timestamp $+($lt,$me,$gt) $1-) | halt }
  halt
}


on ^*:TEXT:*:*: {
  haltdef
  if ($chan) {
    if ($isalias(theme_text)) {
      if (($me isin $1-) && ($active != $chan)) {
        echo -a $theme_inactive($chan,$nick,$1-)
        echo $chan $theme_text($chan,$nick,$1-)
        halt
      }
      else { echo $chan $theme_text($chan,$nick,$1-) | halt }
    }
    else { echo $chan $+(,$color(text),$timestamp $+($lt,$nick,$gt) $1-) | halt }
  }
  if ($nick) {
    if ($isalias(theme_text)) { echo $nick $theme_text($query,$nick,$1-) | halt }
    else { echo $nick $+(,$color(text),$timestamp $nick $1-) | halt }
  }
}

on ^*:ACTION:*:*: {
  haltdef
  if ($chan) {
    if ($isalias(theme_action)) {
      if (($me isin $1-) && ($active != $chan)) {
        echo -a $theme_inactive2($chan,$nick,$1-)
        echo $chan $theme_action($chan,$nick,$1-)
        halt
      }
      else { echo $chan $theme_action($chan,$nick,$1-) | halt }
    }
    else { echo $chan $+(,$color(action),$timestamp * $nick $1-) | halt }
  }
  if ($nick) {
    if ($isalias(theme_action)) { echo $nick $theme_action($query,$nick,$1-) | halt }
    else { echo $nick $+(,$color(action),$timestamp * $nick $1-) | halt }
  }
}

on ^*:NOTICE:*:*: {
  haltdef
  if ($chan) {
    if ($isalias(theme_notice)) { beep | echo $chan $theme_notice($chan,$nick,$1-) | halt }
    else { echo $chan $+(,$color(notice),$timestamp $+(-,$nick,:,$chan,-) $1-) | halt };;
    }
  }
  else {
    var %i = 1
    :loop
    while (%i <= $comchan($nick,0)) {
      if ($isalias(theme_notice)) { beep | echo $comchan($nick,%i) $theme_notice($query,$nick,$1-) | inc %i | goto loop }
      else { echo $comchan($nick,%i) $+(,$color(notice),-,$nick,- $1-) | inc %i | goto loop }
    }
  }
  halt
}

on ^*:NICK:{
  haltdef
  var %i = 1
  :loop
  while (%i <= $comchan($nick,0)) {
    if ($isalias(theme_nickchange)) { echo $comchan($nick,%i) $theme_nickchange($chan,$nick,$newnick) inc %i | goto loop }
    else { echo $comchan($nick,%i) $+(,$color(nick),$timestamp * $nick is now known as $newnick) inc %i | goto loop }
  }
  halt
}

on ^*:RAWMODE:#: {
  haltdef
  if ($nick == $me) {
    if ($isalias(theme_selfmodechange)) { echo $chan $theme_selfmodechange($chan,$me,$1-) | halt }
    else { echo $chan $+(,$color(mode),$timestamp * $me sets mode: $1-) | halt }
  }
  else {
    if ($isalias(theme_modechange)) { echo $chan $theme_modechange($chan,$nick,$1-) | halt }
    else { echo $chan $+(,$color(mode),$timestamp * $nick sets mode: $1-) | halt }
  }
}

; /* ALIASES */
alias action {
  .describe $active $1-
  if ($isalias(theme_action)) { echo $active $theme_selfaction($active,$me,$1-) | halt }
  else { echo $active $+(,$color(action),$timestamp * $me $1-) | halt }
}

alias me {
  .describe $active $1-
  if ($isalias(theme_selfaction)) { echo $active $theme_action($active,$me,$1-) | halt }
  else { echo $active $+(,$color(action),$timestamp * $me $1-) | halt }
}

alias ame {
  var %i = 1
  :loop
  while (%i <= $comchan($me,0)) {
    .describe $comchan($me,%i) $1-
    if ($isalias(theme_selfaction)) { echo $comchan($me,%i) $theme_selfaction($comchan($me,%i),$me,$1-) | inc %i | goto loop }
    else { echo $comchan($me,%i) $+(,$color(action),$timestamp * $me $1-) | inc %i | goto loop }
  }
  halt
}

alias say {
  privmsg $active $1-
  if ($isalias(theme_selftext)) { echo $active $theme_selftext($active,$me,$1-) | halt }
  else { echo $active $+(,$color(text),$timestamp $+($lt,$me,$gt) $1-) | halt }
}

alias msg {
  privmsg $1 $2
  if ($isalias(theme_selftext)) { echo $active $theme_selftext($active,$me,$1-) | halt }
  else { echo $active $+(,$color(text),$timestamp $+($lt,$me,$gt) $1-) | halt }
}

alias amsg {
  var %i = 1
  :loop
  while (%i <= $comchan($me,0)) {
    .privmsg $comchan($me,%i) $1-
    if ($isalias(theme_selftext)) { echo $comchan($me,%i) $theme_selftext($comchan($me,%i),$me,$1-) | inc %i | goto loop }
    else { echo $comchan($me,%i) $+(,$color(text),$timestamp $+($lt,$me,$gt) $1-) | inc %i | goto loop }
  }
  halt
}

; misc
alias amp return &
alias lt return <
alias gt return >
alias lp return (
alias rp return )
alias lb return [
alias rb return ]
alias la return {
alias ra return }
alias sq return '
alias dq return "