EOS theme engine

By Aurora801 on Feb 17, 2013

Just a small theme engine in progress. includes its own away system. EOS will end up being an adaptation on KTE, if anyone knows what that is.

; EngageOS` by Ezio/Aurora
alias eos { return 9EngageOS`7 }
alias -l engageaway {
  if ($1 = -n) {
    if ($2 == on) { echo -agt $eos Nickname Change on Away Enabled. }
    elseif ($2 == off) { unset %e::anick | echo -agt $eos Nickname Change on Away Disabled. }
    else { set %e::anick $2 | echo -agt $eos Away Nickname set to - %e::anick }
  }
  elseif ($1 = -b) { 
    scid -a away
    scid -a amsg $eos 4[15Back4][14 $awaymsg 4][14 Away For - $duration($awaytime) 4]
    if (%e::nick) { scid -a nick %e::nick | unset %e::nick }
  }
  elseif ($1 == -a) {
    set %e::nick $me
    scid -a away $2-
    scid -a amsg $eos 4[15Away4][14 $2- 4][14 Time is now - $time(hh:nn:ss tt) 4]
    if (%e::anick) { scid -a nick %e::anick }
  }
}
alias Awayos {
  if ($1 == -n) { engageaway -n $2 }
  elseif ($1 !== -n) && ($1) { engageaway -a $1- }
  elseif (!$1) { engageaway -b }
  else { echo -agt $eos Error! }
}
alias ostest {
  window -a @EngageOS-Tab
  clear @EngageOS-Tab
  if ($exists(EngageOS-tab.txt)) {
    var %eos::line = $lines(EngageOS-tab.txt)
    while (%eos::line) {
      tokenize 32 $read(EngageOS-Tab.ini,%eos::line)
      aline @EngageOS-Tab $eos $+(:: ,$chr(9),$1,:) $2-
      dec %eos::line
    }
  }
  else {
    aline @EngageOS-Tab $+(:: ,$chr(9),DragonSphear:,$chr(9),hello)
    aline @EngageOS-Tab $+(:: ,$chr(9),Room Enter,$chr(9),<->!!Entering Ciao (TacoFet / jgrill@not.your.average.vhost))
    aline @EngageOS-Tab $+(:: ,$chr(9),TacoFet:,$chr(9),hi bob)
    aline @EngageOS-Tab $+(:: ,$chr(9),Whiplash,$chr(9),hi all)
    aline @EngageOS-Tab $+(:: ,$chr(9),TacoFet:,$chr(9),hi whiplash)
    aline @EngageOS-Tab $+(:: ,$chr(9),Room Part,$chr(9),<->!!!Leaving Caio (DragonSphear / dsch@Fear.The.Sphear) [Later all])
    aline @EngageOS-Tab $+(:: ,$chr(9),Ezio:,$chr(9),Well that was interesting.)
  }
}

alias eostab.add { 
echo -agt $eos $+(:: ,$chr(9),Added eostab instance,$chr(9),$1-)
write EngageOS-tab.txt $1-
}

Comments

Sign in to comment.
Aurora801   -  Feb 17, 2013

Heres a sreenshot of the eostest output.

 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.