;=================== alias ==================
alias kmode {
  if (%kicktype == kicktext) { return ( %kicktext ) }
  elseif (%kicktype == kickversion) { return $logox }
  elseif (%kicktype == kickranlogo) { return $read $Mircdir\kick.txt }
  elseif (%kicktype == kicktalk) { return $read $Mircdir\kickz.txt }
  else { return $logo }
}
;================= alias mode ==================
alias ranon { set %krn on  | .timer 1 0 me $sleb(mOde,rAnOn) }
alias ranoff { set %krn off  | .timer 1 0 me $sleb(mOde,rAnOff) }
alias waron { set %war à»Ô´ | .timer 1 0 me  $sleb(mOde,wArOn) }
alias waroff { set %war »Ô´ | .timer 1 0 me  $sleb(mOde,wArOff) }
;=================== alias sleb ==================
alias sleb {
  set %fitext $null
  set %numa 1
  while ($ [ $+ [ %numa ] ] != $null) {
    set %numb 1
    if (%numa > 1) { set %fitext %fitext $+ $chr(32) $+  }
    while (%numb <= $len($ [ $+ [ %numa ] ])) { set %fitext %fitext $+  $+ $mid($ [ $+ [ %numa ] ],%numb,1) | inc %numb }
    if ($calc($len($remove($ [ $+ [ %numa ] ],$chr(32))) % 2) == 1) { set %fitext %fitext $+  }
    inc %numa
  }
  unset %numa
  unset %numb
  return %fitext
}
;=================== thankop ====================
on *:OP:#:{ 
  if (%op == off ) { set %op off | halt }
  if ($opnick == $me) && (%war = »Ô´) && (%op = 1) { msg # $thank1 $thank2 $thank3 }
  if ($opnick == $me) && (%war = »Ô´) && (%op = 2) { msg # $thank4  $+ $thank5 $+ $thank4 }
}
;===================== end =====================
