on *:TEXT:!auth*:?: {
  if ($2 == %auth.key) {
    set %auth. [ $+ [ $network ] ] $address($nick,1)
    write auth.txt ( $+ $time // $date $+ ) $fulladdress successfully authed
    msg #yourCHANNEL ( $+ $time // $date $+ ) $fulladdress successfully authed
    notice $nick Key correct. Permission granted. Remember to use !bye when you leave.
  }
  else {
    write auth.txt ( $+ $time // $date $+ ) $fulladdress unsuccessfully authed
    msg #yourCHANNEL ( $+ $time // $date $+ ) $fulladdress unsuccessfully authed
    notice $nick Key incorrect. Permission denied. Ignored for 10 seconds.
    ignore -u10 $address($nick,1)
  }
}
 
on *:TEXT:!bye:*: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    unset %auth. [ $+ [ $network ] ]
    notice $nick You have used !bye. You will need to auth again to gain access to the anycmd command.
    msg #yourCHANNEL ( $+ $time // $date $+ ) $fulladdress has used the !bye command. $nick is no longer authed.
  }
}
 
on *:TEXT:!!*:*: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) && ($2 != mo) {
    $2-
  }
  elseif (%auth != $address($nick,2) {
    notice $nick Only authed users can use this command. If you have the key please auth with !auth <key>
    halt
  }
}
 
on *:TEXT:!register*:*: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    chanserv register $2 %cs.pw $3-
  }
}
 
on *:TEXT:!drop*:*: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    chanserv drop $2
  }
}
on *:TEXT:!mo*:#: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    mode # $2-
  }
}
 
on *:TEXT:!kick*:#: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    kick # $2 $3-
    msg #yourCHANNEL 7**(KICK)**1 $2 was kicked from $chan
  }
}
 
on *:TEXT:!ban*:#: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    ban $chan $2 1
    kick # $2 $3-
    msg #yourCHANNEL 4**(BAN)**1 $2 was banned from $chan
  }
}
 
on *:TEXT:!var *:#: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    msg $chan $($2-,2)
  }
}
 
on *:TEXT:!txt *:#: {
  if (%auth. [ $+ [ $network ] ] == $address($nick,1)) {
    run notepad.exe $2
    msg # 3File $2 opened.
  }
}

Commenting Options