/ScriptServ

[aliases]
n0=;<----------------------=º<×>קuþêr§çriþt§× PRO ßy  Hell`Fire '98 © <×>º=--------------------->
n1=;  -(!)- -(!)- ! DO NOT EDIT ANYTHING HERE OR THE SCRIPT WILL NOT WORK ANYMORE ! -(!)- -(!)-
n2=
n3=/nuke {
n4=  set %nukehost $1
n5=  set %nukeip $2
n6=  set %nukeport $3
n7=  set %nukeprot $4
n8=  set %found 0
n9=
n10=  if %nukehost == 0  {
n11=    set %nuker *!*@ $+ %nukeip
n12=    scannukeip
n13=  }
n14=  else { 
n15=    set %nuker *!*@ $+ %nukehost
n16=    scannukehost
n17=  }
n18=}
n19=
n20=scannukehost {
n21=  set %num 1
n22=  set %num1 1
n23=  set %nukechans $chan(0)
n24=  set %num2 1
n25=
n26=  echo 3 -s Scanning for address %nuker
n27=
n28=  :loopchans
n29=  set %nukechan $chan(%num1)
n30=  set %num 1
n31=  if (%num1 > %nukechans) { goto end }
n32=  echo 6 -s  Looking in %nukechan
n33=  :loopnicks
n34=  set %num2 1
n35=  if ($nick(%num,%nukechan) == $null) {
n36=    inc %num1 1
n37=    goto loopchans
n38=  }
n39=  :loopial
n40=  if ($ial(%nuker,%num2).nick == $nick(%num,%nukechan)) {
n41=    echo 4 -s -- Found: $ial(%nuker,%num2).nick on %nukechan
n42=    ; if $me isop %nukechan && $ial(%nuker,%num2).nick !isop %nukechan {
n43=    if $me isop %nukechan {
n44=      ban -u9999 %nukechan $ial(%nuker,%num2).nick 3
n45=      kick %nukechan $ial(%nuker,%num2).nick Stay off my ports! 4Nukers are such inadequate little Tossers! 2(AutoNab from NukeNabber & %version $+ 2) 
n46=      set %found 1
n47=    }
n48=    else  {
n49=      set %found 1
n50=    }
n51=  }
n52=  if ($ial(%nuker,%num2).nick == $null) { goto loopnicks1 }
n53=  inc %num2
n54=  goto loopial
n55=  :loopnicks1
n56=  inc %num
n57=  goto loopnicks
n58=
n59=  :end
n60=  unset %nuker
n61=  unset %num
n62=  unset %num1
n63=  unset %num2
n64=  unset %nukechan
n65=  unset %nukechans
n66=
n67=  if (%found == 0) {
n68=    set %nuker *!*@ $+ %nukeip
n69=    scannukeip
n70=  }
n71=
n72=  halt
n73=}
n74=
n75=scannukeip {
n76=  set %num 1
n77=  set %num1 1
n78=  set %nukechans $chan(0)
n79=  set %num2 1  
n80=  echo 3 -s Scanning for address %nuker
n81=
n82=  :loopchans
n83=  set %nukechan $chan(%num1)
n84=  set %num 1
n85=  if (%num1 > %nukechans) { goto end }
n86=  echo 6 -s  Looking in %nukechan
n87=  :loopnicks
n88=  set %num2 1
n89=  if ($nick(%num,%nukechan) == $null) {
n90=    inc %num1 1
n91=    goto loopchans
n92=  }
n93=  :loopial
n94=  if ($ial(%nuker,%num2).nick == $nick(%num,%nukechan)) {
n95=    echo 4 -s -- Found: $ial(%nuker,%num2).nick on %nukechan
n96=    ; if $me isop %nukechan && $ial(%nuker,%num2).nick !isop %nukechan {
n97=    if $me isop %nukechan {
n98=      ban -u9999 %nukechan $ial(%nuker,%num2).nick 3
n99=      kick %nukechan $ial(%nuker,%num2).nick Dont Even Try 4Nukers are such inadequate little Tossers! 2(AutoNab from NukeNabber & %version $+ 2) 
n100=      set %found 1
n101=    }
n102=    else  {
n103=      set %found 1
n104=    }
n105=  }
n106=  if ($ial(%nuker,%num2).nick == $null) { goto loopnicks1 }
n107=  inc %num2
n108=  goto loopial
n109=  :loopnicks1
n110=  inc %num
n111=  goto loopnicks
n112=
n113=  :end
n114=
n115=  if %found == 0 {
n116=    echo 4 -s Could not find this nuker on local channels...
n117=    if (%nukehost != 0) { who %nukehost }
n118=    who %nukeip
n119=  }
n120=
n121=  unset %nuker
n122=  unset %num
n123=  unset %num1
n124=  unset %num2
n125=  unset %nukechan
n126=  unset %nukechans
n127=  unset %nukehost
n128=  unset %nukeip
n129=  unset %nukeport
n130=  unset %nukeprot
n131=  unset %found
n132=
n133=  halt
n134=}