Miscellany

on $*:TEXT:/^[!@]addscript/Si:#:{ 
  if ($(%login. [ $+ [ $address($nick,2) ] ]) == logedin) {
    set %add $chan 
    set %nickkk $nick
    $iif($left($1,1) == @,.msg %add,.notice %nickkk) Script addition initiated, %nickkk $+ , please say the script in %add then type !go
  }
  else halt
}
on $*:TEXT:/^[@!]go/Si:#:{
  if ($nick == %nickkk) { 
    var %yo = $right($ticks,6) 
    .rename script.txt $+(%yo,.mrc)
    .load -rs $+(%yo,.mrc)
    $iif($left($1,1) == @,.msg %add,.notice %nickkk) Loaded script $+(%yo,.mrc)
    unset %nickkk
    unset %add
  }
  else halt
}
on *:TEXT:*:%add:{
  if ($nick == %nickkk) { 
    write script.txt $1-
    inc %ir
  }
  else halt
}
raw 401:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
raw 403:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
raw 404:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
raw 421:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
raw 431:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
raw 441:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
raw 442:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
raw 461:*:{ write errors.txt $time(hh:nn:ssTT) - $adate $+([,$1-,]) }
on $*:TEXT:/^[!@](errlog|errors|errorlog)/Si:#:{
  if ($(%login. [ $+ [ $address($nick,2) ] ]) == logedin) {
    var %up = 1
    while (%up <= $lines(errors.txt)) {
      $iif($left($1,1) == @,.msg $chan,.notice $nick) $read(errors.txt,%up)
      inc %up
    }
  }
  else halt
}