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