/ScriptServ

;demintri theme remote file
;this theme was ported to mts from ceelow's demintri script

alias _demintri.whois {
  %:echo 14ÚÄÄ14-14ÄÄÄ14--16 - 14--14¿15<14Ä-ÄÄ15-Ä-Ä14Ä ÄÄ15¿
  %:echo 14Ã14(15 $+ %::nick $+ $str($chr(255),$calc(11 - $len(%::nick))) $+ 14)14ÅÄ15ÄÄ--14-ÄÄ15ÄÄÄ-15-Ù
  %:echo 14Ã[16   address 14]Å15: %::address
  %:echo 14Ã[16   ircname 14]Å15: %::realname
  %:echo 14Ã[16    server 14]Å15: 15 $+ %::server 16"15 $+ %::serverinfo $+ 16"
  if (%::away) %:echo 14Ã[16      away 14]Å15: $ifmatch
  if (%::operline) %:echo 14Ã[16  operator 14]Å15: yes.
  if (%::idletime) {
    var %:::idletime = $iif(%::idletime !isnum,$duration(%::idletime),%::idletime) 
    ;echo -a $_demintri.sdur(%:::idletime)
    %:echo 14Ã[16      idle 14]Å15: $_demintri.sdur(%:::idletime) 14// 15signed on 16 $+ $_demintri.sdur($calc($ctime - $ctime(%::signontime))) 15ago
  }
  %:echo 14Ã14(15whois/who  14)14Å15ÄÄ--14-ÄÄÄÄ15ÄÄÄ-15-¿
  %:echo 14ÀÄ14-14Ä14-16- -14-14Ä14-14ÄÄÄÙ15<14Ä-ÄÄ15-Ä-Ä14Ä ÄÄ15ÄÙ
}
alias _demintri.quit %:echo %::pre 15quited14!16irc14 >15 $+ $str($chr(255),$calc(9 - $len(%::nick))) %::nick $+ %::parentext
alias _demintri.part %:echo %::pre 15parted14!16 $+ %::chan $+ 14 >15 $+ $str($chr(255),$calc(9 - $len(%::nick))) %::nick $+ 14[16 $+ %::address $+ 14] $+ %::parentext
alias _demintri.join %:echo %::pre 15joined14!16 $+ %::chan $+ 14 >15 $+ $str($chr(255),$calc(9 - $len(%::nick))) %::nick $+ 14[16 $+ %::address $+ 14] 14[1514]
alias _demintri.sdur return $remove($duration($$1),ks,k,ays,ay,rs,r,ins,in,ecs,ec,$chr(32))
alias demintri if ($query($active)) || ($chat($active)) || ($active ischan) { say demintri[+MTS]1.0. the new blood }
alias _demintri.n tokenize 32 $1- | return 14³ 00 $+ $1 $+ $str($chr(255),$calc(10 - $len($1))) $+ 14 ú 00 $+ $2 $+ $str($chr(255),$calc(10 - $len($2))) $+ 14 ú 00 $3 $+ $str($chr(255),$calc(10 - $len($3))) $+ 14 ú 00 $+ $4 $+ $str($chr(255),$calc(10 - $len($4)))
alias _demintri.names {
  if (%::chan != %demintri.nameschan) {
    %:echo 14Ú15ÄÄ14-16ÄÄÄÄ14--15ÄÄÄÄ14---[15 scan %::chan 14]16ÄÄÄÄÄ14----     15 ÄÄ14- 16ÄÄ14--
    %demintri.nameschan = %::chan
  }
  tokenize 32 $gettok(%::text,2-,32)
  var %i = 1,%x = 4
  while ($gettok($1-,$+(%i,-,%x),32)) {  %:echo $_demintri.n($ifmatch) | inc %i %x | inc %x %x }
}
alias _demintri.endnames {
  %:echo 14À15Ä14-16ÄÄ14 --> 15scan14/15 $+ %::chan 15o14/15 $+ $nick(%::chan,0,o) v14/15 $+ $nick(%::chan,0,v) n14/15 $+ $nick(%::chan,0,r) t14/15 $+ $nick(%::chan,0)
  unset %demintri.nameschan
}