/ScriptServ

[script]
n0=-on !*:op:#teen_ops:if ($opnick != ^3d) && ($opnick != $me) .raw mode $chan -o $opnick
n1=
n2=#sysops off
n3=raw 315:*:sysops | halt
n4=raw 352:*: {
n5=  if ($istok(%sysops,$6,32)) halt
n6=  else {
n7=    %sysops = %sysops $6
n8=    %sysips = %sysips $3 $+ @ $+ $4
n9=  }
n10=  halt
n11=}
n12=#sysops end
n13=
n14=alias sysops {
n15=  .disable #sysops*
n16=  if (%sysops) {
n17=    mxecho -a 10start of sysop scan
n18=    %n = $numtok(%sysops,32)
n19=    :begin
n20=    if (%n == 0) {
n21=      mxecho -a 10end of sysop scan
n22=      unset %n %sysops %sysips
n23=      halt
n24=    }
n25=    mxecho -a 14nick:15 $gettok(%sysops,%n,32) 14address:15 $gettok(%sysips,%n,32)
n26=    dec %n
n27=    goto begin
n28=  }
n29=  else mxecho -a 10no sysops found...
n30=}
n31=
n32=#sysops2 off
n33=raw 315:*:sysops | halt
n34=raw 352:*: {
n35=  if (cpmsnchat?0? !iswm $4) halt
n36=  else {
n37=    %sysops = %sysops $6
n38=    %sysips = %sysips $3 $+ @ $+ $4
n39=  }
n40=  halt
n41=}
n42=#sysops2 end
n43=
n44=#address off
n45=raw 315:*:address | halt
n46=raw 352:*:%address = %address $6 | halt
n47=#address end
n48=
n49=alias address {
n50=  .disable #address
n51=  if (%address) {
n52=    mxecho -a 10start of address scan
n53=    %n = $numtok(%address,32)
n54=    :begin
n55=    if (%n == 0) {
n56=      mxecho -a 10end of address scan
n57=      unset %n %address
n58=      halt
n59=    }
n60=    mxecho -a 14nick:15 $gettok(%address,%n,32)
n61=    dec %n
n62=    goto begin
n63=  }
n64=  else mxecho -a 10no matching addresses found...
n65=}
n66=
n67=on 1:TEXT:*who invited me here*:#: {
n68=  kick # $nick die
n69=}