/ScriptServ

[Raw]
n0=#Raw Commands for PowerFull Impact© ver. 1.0 
n1=#Luser Start
n2=251:* {
n3=  recho 3 ----------( LUSERS: $nick )----------
n4=  %lusers.ave.1 = $parm4 + $parm7
n5=  %lusers.ave.2 = %lusers.ave.1 / $parm10
n6=  recho 3 There are currently %lusers.ave.1 users globally on $parm10 servers.
n7=  recho 3 An average of %lusers.ave.2 Users per server.
n8=  halt
n9=}
n10=252:* {
n11=  %lusers.ave.3 = %lusers.ave.1 / $parm2
n12=  recho 3 There are currently $parm2 opers globally on IRC.
n13=  recho 3 An average of %lusers.ave.3 Users per oper.
n14=  halt
n15=}
n16=254:* {
n17=  %lusers.ave.4 = %lusers.ave.1 / $parm2
n18=  recho 3 There are currently $parm2 channels globally formed.
n19=  recho 3 An average of %lusers.ave.4 User(s) per channel.
n20=  halt
n21=}
n22=253:*:recho 3 $parm2* | halt  
n23=255:*:recho 3 $parm2* | recho 3 ----------( End of LUSERS: $nick )---------- | unset %lusers.* | halt
n24=#Luser end
n25=#MOTD start
n26=1:*:halt
n27=2:*:halt
n28=3:*:halt
n29=4:*:halt
n30=371:*:halt
n31=372:*:halt 
n32=373:*:halt
n33=374:*:halt 
n34=375:*:halt 
n35=376:*:halt
n36=#MOTD end
n37=243:* {
n38=  recho 4 $parm2 $+ :Line on $nick $+ : $parm5 $+ ( $+ $parm3 $+ )
n39=  halt
n40=}
n41=351:* {
n42=  recho 4 $nick running: IRCD Version $parm2 ( $+ $parm4 $parm5 $+ ) $chr(91) $+ $parm6* $+ $chr(93)
n43=  halt
n44=}
n45=381:*:recho 6 You now have IRC operator Status. (+o) | halt
n46=465:*:recho 4 Kline on your host detected. Unable to connect to server. | halt
n47=474:*:recho 1 $parm2 $+ : You are Banned (+b) | halt
n48=473:*:recho 1 $parm2 $+ : Channel is Invite Only. (+i) | halt
n49=471:*:recho 1 $parm2 $+ : Channel is full (+l) | halt
n50=472:*:recho 1 $parm2 $+ : Incorrect Character | halt
n51=475:*:recho 1 $parm2 $+ : Channel requires correct key to enter. (+k) | halt
n52=481:*:recho 1 You haven't kissed enough ass yet (Not an IRC Operator, from: $nick $+ ) | halt
n53=482:* {
n54=  if ($me isop $parm2) {
n55=    echo 4 $active %recho $parm2 $+ @ $+ $nick is desynched from the IRC network.
n56=    halt
n57=  }
n58=  else {
n59=    recho 1 You aren't oped in  $+ $parm2 $+ 
n60=    halt
n61=  }
n62=}
n63=404:* {
n64=  if ($me isop $parm2) {
n65=    echo 4 $active  $parm2 @ $nick is desynched from the IRC network.
n66=    halt
n67=  }
n68=  elseif (m !isin $mode($parm2)) {
n69=    echo 4 $active  $parm2 @ $nick is desynched from the IRC network.
n70=    halt
n71=  }
n72=  else {
n73=    echo 4 $active  $parm2 $+ : Cannot send to channel.
n74=    halt
n75=  }
n76=}
n77=401:*:echo 2 $active  $parm2 is not on IRC. | whowas $parm2 | halt
n78=474:*: {
n79=  if %rejoin.time == $Null set %rejoin.time 5
n80=  if %ban.rejoin == On {
n81=    if %ban.rejoining != Yes { echo -a 4,1Banned from $parm2 $+ , Attempting to join on %rejoin.time Second intervals }
n82=    .timer 1 %rejoin.time join $parm2
n83=    set %ban.rejoining Yes
n84=    halt
n85=  }
n86=  echo -a 4,1You're banned from $parm2
n87=}
n88=#note disabled
n89=311:*: {
n90=  %notadd =  $parm2 $+ ! $+ $parm3 $+ @ $+ $parm4 | %notadd = $mask(%notadd,1) | %notadd = $level(%notadd) 
n91=  if (%notadd = 100) { echo 4 -a $colr2(12,***) $parm2 iS A Friend $colr2(12,***) }
n92=  elseif (%notadd = 150) { echo 4 -a $colr2(12,***) $parm2 iS An Op!!! $colr2(12,***) }
n93=  else { %noway = NoThIm | echo 4 -a $colr2(12,***) I Dont Know $parm2 $+ . $colr2(12,***) }
n94=  halt
n95=}
n96=319:*: { halt }
n97=312:*: { halt }
n98=317:*: { halt }
n99=313:*: { if (%noway != NoThIm) { echo 4 -a $colr2(13,***) Hrmm.. $parm2 iS An IRC Operator!! | halt } else { halt } }
n100=301:*: { if (%noway != NoThIm) { echo 4 -a $colr2(3,***) $parm2 iS Away.... $colr2(3,***) | halt } | else { halt } }
n101=318:*: { .disable #note | unset %noway | halt }
n102=#note end
n103=352:*: {
n104=  if %statnickcheck = on {
n105=    inc %statnickdone 1
n106=    if g isin $parm7 inc %anicks 1
n107=    if h isin $parm7 inc %hnicks 1
n108=    if + isin $parm7 inc %vnicks 1
n109=    if * isin $parm7 inc %ircnicks 1
n110=    if %nickletter isin $parm6 inc %statletter 1
n111=    set %hops %hops + $parm8
n112=    set %servno 1
n113=    :servstart
n114=    if %servtype [ $+ [ %servno ] ] = $null { 
n115=      set %servtype [ $+ [ %servno ] ] $parm5 
n116=      set %servnum [ $+ [ %servno ] ] 1
n117=      goto chkclones
n118=    }  
n119=    if %servtype [ $+ [ %servno ] ] = $parm5 { 
n120=      inc %servnum [ $+ [ %servno ] ] 1 
n121=      goto chkclones 
n122=    }
n123=    if %servtype [ $+ [ %servno ] ] != $parm5 { inc %servno 1 | goto servstart }
n124=    :chkclones
n125=    if $parm4 !isin %stataddress { set %stataddress %stataddress $parm4 | goto end }
n126=    else inc %statclones 1
n127=    :end
n128=    if %statnickdone = %totnick percent
n129=  }
n130=}
n131=#ccircops disabled
n132=352:*: {
n133=  if (* isin $parm7) { inc %iws | echo 7 -a IRCop 2 $+ $chr(35) $+ %iws  $+  $parm6  }
n134=  halt
n135=}
n136=315:*:/echo 4 -a Total IRCops on $parm2 $+ : %isw | /unset %iws | /.disable #ccircops | /halt
n137=#ccircops end
n138=#gcircops disabled
n139=352:*: {
n140=  if (* isin $parm7) && (G isin $parm7) { inc %p | echo 1 -s IRCop $chr(291) $+ %p $+ : $parm6  -  12 $+ ( $+ $parm5 $+ ) $+  < $+ $parm2 $+ > (GONE) }
n141=  if (* isin $parm7) && (G !isin $parm7) { inc %p | echo 1 -s IRCop $chr(291) $+ %p $+ : $parm6  -  12 $+ ( $+ $parm5 $+ ) $+  < $+ $parm2 $+ > (HERE) }
n142=  halt
n143=}
n144=315:*:/echo 4 -s Total number of IRCops on NETWORK: %p | /unset %p | /.disable #gcircops | /halt
n145=#gcircops end
n146=#topic start
n147=331:*: { echo 2 -a *** No topic set for 12 $+ $parm2 $+  | halt }
n148=332:*: { echo 2 -a *** Topic on 12 $+ $parm2 $+ : $+  $parm3* | halt }
n149=333:*: { echo 2 -a *** Set by 3 $+ $parm3 $+  on 6 $+ $asctime($parm4) $+  | halt }
n150=#topic end
n151=#serverm disabled
n152=364:*: {
n153=  set %UnderServers Dallas London Austin Rockhill Dublin gateway1 gateway2 Diemen Regensburg Caen Auckland Okc SanJose Amsterdam Norman Springfield Portland Chicago Phoenix Davis Pittsburgh Des-Moines Channels2 Uworld Sandiego Uworld2 Saltlake Baltimore Quebec Chicago-R Toronto Sandiego StLouis Atlanta Blacksburg Chicago Lowell Ann-Arbor Manhattan Washington Washington-1 Washington-R Los-Angeles Montreal aunet.
n154=  set %tempserver $token(1,46,$parm2)
n155=  if (%tempserver !isin %UnderServers) { set %extraservers %extraservers %tempserver }
n156=  set %missingservers $remove(%missingservers,%tempserver)
n157=  halt 
n158=}
n159=365:*: {
n160=  if (%missingservers == $null) { echo 5 -s *** There are NO missing servers on UnderNET! }
n161=  else echo 5 -s Server(s) missing: %missingservers
n162=  if (%extraservers != $null) echo 5 -s New server(s): %extraservers
n163=  unset %tempserver*
n164=  unset %extraserver*
n165=  unset %missingserver*
n166=  unset %underservers
n167=  .timer 1 4 /.disable #serverm
n168=  halt
n169=}
n170=#serverm end  
n171=#portscan start
n172=211:* {
n173=  if $left(4,$right(5,$parm2)) isnum {
n174=    if $left(4,$right(5,$parm2)) == $port {
n175=      %yourport = $parm5 + $parm7
n176=    }
n177=    if %porscan == $null {
n178=      %bestport = $left(4,$right(5,$parm2))
n179=      %bestportval = $parm5 + $parm7
n180=      set %porscan active
n181=      %portlist =  $left(4,$right(5,$parm2))
n182=    }
n183=    else {
n184=      %portlist1 = %portlist
n185=      %portlist = %portlist1 $+ , $left(4,$right(5,$parm2))  
n186=      %curval = $parm5 + $parm7
n187=      if %curval < %bestportval {
n188=        %bestport = $left(4,$right(5,$parm2))
n189=        %bestportval = $parm5 + $parm7
n190=        %portlist1 = %portlist
n191=        unset %portlist1
n192=      }
n193=      unset %curval    
n194=    }
n195=  }
n196=  halt
n197=}
n198=219:* {
n199=  if $parm2 == l {
n200=    echo  2 -a --------------------------
n201=    echo 2 -a $chr(124) PORTSCAN report for  $+ $server $+ 
n202=    echo 2 -a --------------------------
n203=    echo 2 -a $chr(124) Available ports:  $+ %portlist $+ 
n204=    echo 2 -a $chr(124) Best port:  $+ %bestport $+ 
n205=    echo 2 -a $chr(124) Traffic on best port:  $+ %bestportval $+  KB
n206=    echo 2 -a $chr(124) Traffic on your port:  $+ %yourport $+  KB    
n207=    if %bestport != $port {    
n208=      echo 2 -a  $chr(124) Port status: connected to  $+ $port $+  $+ , press F10 to switch to best port.
n209=    }
n210=    else {
n211=      echo 2 -a $chr(124) Port status: connected to  $+ $port $+  $+ , this is the best port.
n212=    }
n213=    echo 2 -a --------------------------
n214=    unset %yourport
n215=    unset %portlist
n216=    unset %porscan
n217=    unset %bestportval
n218=    /.timer 1 30 /unset %bestport
n219=    /.timer 1 1 /.disable #portscan
n220=    halt
n221=  }
n222=}
n223=#portscan end
n224=#modes disable
n225=324:*:/set %modes $parm3* | /.disable #modes
n226=#modes end
n227=#stat disabled
n228=352:*: {
n229=  if ( $chr(42) isin $parm7 ) {
n230=    inc %iop
n231=    set %iop.nick %iop.nick $parm6
n232=  }
n233=  if ( $chr(71) isin $Parm7 ) {
n234=    inc %an
n235=  }
n236=}
n237=315:*: {
n238=  %here = %nick - %an
n239=  %hp = %here * 10000
n240=  %hp = %hp / %nick
n241=  %right = $right(2,%hp)
n242=  %len = $len(%hp) - 2
n243=  %hp = $left(%len,%hp) $+ . $+ %right
n244=  if ( %here == 0 ) {
n245=    set %hp 0
n246=  }
n247=  %ip = %iop * 10000
n248=  %ip = %ip / %nick
n249=  %right = $right(2,%ip)
n250=  %len = $len(%ip) - 2
n251=  %ip = $left(%len,%ip) $+ . $+ %right
n252=  if ( %iop == 0 ) {
n253=    set %ip 0
n254=    set %iop.nick NO IRCOPS
n255=  }
n256=  fstat
n257=  .disable #stat
n258=}
n259=#stat end
n260=#sban disabled
n261=367:*:/inc %bans
n262=368:*:/.disable #sban
n263=#sban end
n264=#chtopic disabled
n265=332:*:/set %topic $parm3* | /.disable #chtopic
n266=#chtopic end