/ScriptServ

raw 311:* {
  echo -a +--10[ whois 3 $+ $parm2 $+  10]------------14----15--- 14---15- 14-15-- -- - 
  echo -a $chr(124) addy 10: $parm3 $+ 3@ $+ $parm4
  echo -a 1| name 10: $parm6*
  set %mask $parm2 $+ ! $+ $parm3 $+ @ $+ $parm4 | %mask = $mask(%mask,8)
  unset %status
  if $level(%mask) == 4 { echo -a 14| stat 10: nick kick user | halt }
  if $level(%mask) == 5 { echo -a 14| stat 10: shutup kick | halt }
  if $level(%mask) == 8 { echo -a 14| stat 10: autoV user | halt }
  if $level(%mask) == 9 { echo -a 14| stat 10: friend | halt }
  if $level(%mask) == 999 { echo -a 14| stat 10: shitlisted | halt }
  echo -a 14| stat 10: none | halt
}
raw 314:* {
  echo -a +--10[ whowas 3 $+ $parm2 $+  10]------------14----15--- 14---15- 14-15-- -- - 
  echo -a $chr(124) addy 10: $parm3 $+ 3@ $+ $parm4 
  echo -a 14| name 10: $parm6*
  halt
}
raw 312:*:echo -a 14¦ serv 10: $parm3 | echo -a 15: note 10: $strip($parm4*) | halt
raw 319:*:if (  isin $3-) { echo -a 14| 5Fake Channels Detected! | echo -a 14| chan 10: $replace($parm3*, ,10<alt+016010>) | halt } | else { echo -a 14| chan 10: $parm3* | halt }
raw 317:*:echo -a 14: idle 10: $duration($parm3) | halt
raw 313:*:echo -a 15: oper 10: $parm2 %so.oper [ $+ [ $rand(1,6) ] ] | halt
raw 301:*:echo -a 14: away 10: $strip($parm3*) | halt
raw 318:*:echo -a 15. | halt
raw 369:*:echo -a 15. | halt
raw 401:*:if $parm2 == @SplitLog { halt } | echo -a +--10[ whois 3 $+ $parm2 $+  10]------------14----15--- 14---15- 14-15-- -- - | echo -a 14: no such nick/channel | halt
#lwho off
raw 352:*:if %lwho == $null { set %lwho 1 | window -a @w( $+ $parm2 $+ ) | aline @w( $+ $parm2 $+ ) 5»»10 Who List for $parm2 $+ ... | aline -c3 @w( $+ $parm2 $+ ) 2 $+ $6 $+ 4! $+ $3 $+ 4@ $+ $4 2-->5 $5 3: $9- | halt } | else { aline -c3 @w( $+ $parm2 $+ ) 2 $+ $6 $+ 4! $+ $3 $+ 4@ $+ $4 2-->5 $5 3: $9- | halt }
raw 315:*:.disable #lwho | unset %lwho | halt
#lwho end
#uh off
raw 302:*:if $2 == $me { halt } | %my.addie = $remove($parm2,$me) | %my.addie = $remove(%my.addie,=) | %my.addie = $remove(%my.addie,+) | %my.addie = $replace(%my.addie,@,3@) | status | .disable #uh | halt
#uh end
raw 302:*:if $2 == $null { echo -s $t Userhost: No such nickname! | halt } | %parms = $remove($2,=) | %parms = $remove($2,+) | set %parms $replace($2-,@,3@) | echo -s $t Userhost: %parms | unset %parms | halt
raw 366:*: { 
  unset %tot.num %num %y %spacesleft1 %spacesleft2 %spacesleft3 %spacesleft4 %spacesleft5 %spacesleft6 %d %c %1 %2 %3 %4 %5 %a %nick1 %nick2 %nick3 %nick4 %nick5 | if %window.show == 1 { window @n( $+ $parm2 $+ ) | set %a aline @n( $+ $parm2  $+ ) } | else { set %a echo -s }
  %sl.chan = $sub(16,$len($parm2)) | %a 1 ___________________ $+ $str($len($parm2),_) | %a 1|1 10[Names List10] for $parm2 `\ | %a 1|¯¯¯¯¯¯¯¯¯¯¯14¯|¯¯¯¯¯¯¯¯¯¯¯15¯|¯¯¯¯¯¯¯¯¯¯¯¯|14¯¯¯¯¯¯¯¯¯¯¯¯|1¯¯¯¯¯¯¯¯¯¯¯¯| | set %tot.num $nick(0,$parm2) | set %num 0 | set %y 0 | :next | if %y == 0 { set %y 1 | inc %num 1 | goto n } | else { inc %y 5 | inc %num 1 | goto n } | :n
  if %num > %tot.num { %a 11 ¯¯¯¯¯¯¯¯¯¯¯¯14¯¯¯¯¯¯¯¯¯¯¯¯¯15¯¯¯¯¯¯¯¯¯¯¯¯¯¯14¯¯¯¯¯¯¯¯¯¯¯¯¯1¯¯¯¯¯¯¯¯¯¯¯¯  | unset %window.show | halt } | %d = $add(%y,1) | %c = $add(%d,1) | %r = $add(%c,1) | %e = $add(%r,1) | set %nick1 $nick(%y,$parm2) | set %nick2 $nick(%d,$parm2) | set %nick3 $nick(%c,$parm2) | set %nick4 $nick(%r,$parm2) | set %nick5 $nick(%e,$parm2)
  if ((%nick1 == $null) && (%nick2 == $null) && (%nick3 == $null) && (%nick4 == $null) && (%nick5 == $null)) { %a 11 ¯¯¯¯¯¯¯¯¯¯¯¯¯14¯¯¯¯¯¯¯¯¯¯¯¯¯15¯¯¯¯¯¯¯¯¯¯¯¯¯14¯¯¯¯¯¯¯¯¯¯¯¯¯1¯¯¯¯¯¯¯¯¯¯¯¯  | unset %window.show | halt }
  if %nick1 isop $parm2 { %1 = @ $+ %nick1 }
  elseif %nick1 isvo $parm2 { %1 = + $+ %nick1  } | else { %1 = %nick1 }
  if %nick2 isop $parm2 { %2 = @ $+ %nick2 }
  elseif %nick2 isvo $parm2 { %2 = + $+ %nick2  } | else { %2 = %nick2 }
  if %nick3 isop $parm2 { %3 = @ $+ %nick3 }
  elseif %nick3 isvo $parm2 { %3 = + $+ %nick3  } | else { %3 = %nick3 }
  if %nick4 isop $parm2 { %4 = @ $+ %nick4 }
  elseif %nick4 isvo $parm2 { %4 = + $+ %nick4  } | else { %4 = %nick4 }
  if %nick5 isop $parm2 { %5 = @ $+ %nick5 }
  elseif %nick5 isvo $parm2 { %5 = + $+ %nick5  } | else { %5 = %nick5 }
  %spacesleft1 = $sub(10,$len(%1)) | %spacesleft2 = $sub(10,$len(%2)) | %spacesleft3 = $sub(10,$len(%3)) | %spacesleft4 = $sub(10,$len(%4)) | %spacesleft5 = $sub(10,$len(%5)) | %1 = $replace(%1,@,10@) | %2 = $replace(%2,@,10@) | %3 = $replace(%3,@,10@) | %4 = $replace(%4,@,10@) | %5 = $replace(%5,@,10@) | %1 = $replace(%1,+,10+) | %2 = $replace(%2,+,10+) | %3 = $replace(%3,+,10+) | %4 = $replace(%4,+,10+) | %5 = $replace(%5,+,10+)
  %a 1|1 %1 $+ $str(%spacesleft1,$chr(160)) 14|14 %2 $+ $str(%spacesleft2,$chr(160)) 15|14 %3 $+ $str(%spacesleft3,$chr(160)) 15|14 %4 $+ $str(%spacesleft4,$chr(160)) 14|1 %5 $+ $str(%spacesleft5,$chr(160)) 1| | goto next
} 
raw 1:*:echo 5»» Welcome to IRC, $me $+ . | halt
raw 2:*:halt
raw 3:*:halt
raw 4:*:halt
raw 251:*:{
  set %temp $parm4 + $parm7
  echo 5»» There are $pa2(%temp) users on this IRC network, $pa2($parm7) are hidden.
  set %temp2 %temp / $parm10
  echo 5»» There are $pa2($parm10) servers, making an average $pa2(%temp2) users to a server.
  halt
}
raw 252:*:{
  set %temp3 %temp / $parm2
  if ($parm2 != 0) { echo 5»» There are $pa2($parm2) IRCops on-line, so $pa2(%temp3) users are to $pa2(1) IRCop. }
  else { echo 5»» WOW! There are absolutly $pa2(No Ircops) ON-LINE!!! }
  halt
}
raw 253:*:{
  halt
}
raw 254:*:halt
raw 255:*:{
  set %temp2 $mult($parm4,1000)
  set %temp3 $div(%temp2,%temp)
  set %temp3 $div(%temp3,10)
  %temp4 = %temp3 $+ %
  echo 5»» This server has got $pa2($parm4) users. This server is hosting $pa2(%temp4) of all users.
  set %rand.n $r(1,45)
  echo 5»» 1[10Tip Of The Day1] : $r.tip(0)
  unset %temp*
  echo  
  halt
}
raw 250:*:{
  halt
}
#mub off
raw 367:*: {
  if (%bn == 6) { %bn = 1 | inc %cb | writeini $mircdirbclear.ini bnz %cb $parm3 }
  elseif (%bn == $null) { inc %bn | writeini $mircdirbclear.ini bnz %cb $parm3  }
  else { inc %bn | %lb = $readini $mircdirbclear.ini bnz %cb  | writeini $mircdirbclear.ini bnz %cb %lb $parm3  }
  halt
}  
raw 368:*: {
  %i = 0 
  :start | inc %i 
  if (%i > %cb) { goto end } 
  else { %tb = $readini $mircdirbclear.ini bnz %i | .raw mode $parm2 -bbbbbb %tb  | goto start }
  :end
  .disable #mub 
  .timer 1 10 .enable #nban
  unset %bn %lb %cb %ebc
  write -c $mircdirbclear.ini 
  halt
}
#mub end
#joinstats on
raw 353:* {
  unset %jsec
  if ($nick(0,$parm2)) == $null { goto end }
  %jsec = $ticks - %ticks
  if $len(%jsec) > 3 { %jsec = $remove(%jsec,$right(3,%jsec)) $+ . $+ $right(3,%jsec) }
  else { %jsec = 0. $+ %jsec }
  :end | halt
}
raw 332:*:echo $parm2 $t T10opic: $parm2* | halt
raw 333:*:set %time1 $asctime($parm4) | %date = $gettok(%time1,1,32) $gettok(%time1,2,32) $gettok(%time1,3,32) | %time = $datime($gettok(%time1,4,32)) | echo $parm2 $t T10opic Set by10 $parm3 1on10 %date at %time | unset %topic.set | halt
raw 324:* {
  if $chan($parm2).mode == $null { set %m + } | else { set %m $chan($parm2).mode }
  echo $parm2 $t Join to10 $parm2 $+ 1(3 $+ %m $+ 1) synced in10 %jsec seconds | unset %jsec
  echo $parm2 $t [t:10 $nick(0,$parm2) $+ 1]  [o:10 $opnick(0,$parm2) $+ 1] [n:10 $nopnick(0,$parm2) $+ 1] [v:10 $vnick(0,$parm2) $+ 1]
  halt
}
#joinstats end
raw 369:*:halt
raw 406:*:echo -a +--10[ whois 3 $+ $parm2 $+  10]------------14----15--- 14---15- 14-15-- -- - | echo -a 14: there was no such nick/channel | halt

raw 324:*:halt
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
raw 421:*:echo -a $t 5»» Do what now? I don't get ' $+ $parm2 $+ ' 10(5Erroneous Command10) | halt
raw 404:*:echo 1 -s 5»» 4Cannot send data to channel!5 ( $+ $parm2 $+ ) | halt
raw 432:*:echo 1 -s 5»» Bad Nickname5 $parm2 10(Erroneous Characters) Please Try again | halt
raw 433:*:echo 1 -s 5»» 10Nickname 10[5 $+ $parm2 $+ 10] is already taken! | halt
raw 473:*:echo 1 -s 5»» Cannot Join Channel Because it is 10Invite Only 5( $+ $parm2 $+ ) | halt
raw 474:*:echo 1 -s 5»» You are banned! Cannot Join Channel! 5( $+ $parm2 $+ ) | halt
raw 376:*:halt
raw 375:*:halt
raw 306:*:halt
raw 305:*: {
  if %away == idle { setback aa | halt }
  else {
    if $away == $true { halt }
    else {
      if %awayparms == $null { halt }
      else { .away %awayparms | halt }
    }
  }
}
#kick.clones off
raw 352:*: {
  %nick = $parm6
  if ($parm4 == $host) { halt }
  if ($parm4 isin %address) { kick $parm2 $parm6 $i(5) 14Clones Suck } 
  %address = %address $parm4
} 
raw 315:*:disable #kick.clones | unset %chan | unset %address | unset %nick | halt
#kick.clones end
#kick.ban.clones off
raw 352:*: {
  %nick = $parm6
  if ($parm4 == $host) { halt }
  if ($parm4 isin %address) { ban $parm2 $parm3 2 | kick $parm2 $parm6 $i(5) 10Clones Suck } 
  %address = %address $parm4 
} 
raw 315:*:disable #kick.ban.clones | unset %chan | unset %address | unset %nick | halt
#kick.ban.clones end
#ipscan off
raw 352:* {
  %nsis = $remove(%is,$chr(42))
  %sis = 2 $+ %nsis $+  | set %hits 0
  unset %addie | %addie = $parm6 $+ ! $+ $parm3 $+ @ $+ $parm4
  if (%is iswm %addie) {
    %active $t 4° $replace(%addie,%nsis,%sis) | inc %hits 1 | halt
  }
  halt
}
raw 315:* {
  if %hits == 0 { %active 4·2×4· No Hosts Found! | %active 10»» End of List! | goto end }
  else { %active $t 10»» End of List! ( $+ 10 $+ %hits 1hit10(s10)!) | goto end }
  :end | .disable #ipscan | unset %chan %num %is %sis %hits %active %addie %nsis | halt
}
#ipscan end
#ircops off
raw 352:* {
  if %priv == 1 { goto priv }
  else { goto pub }
  :priv
  write -i $mircdirtemp.txt /echo 4 -a 14 $+ $parm6 2*4 $+ $parm5 | inc %tot | halt
  goto end
  :pub
  write -i $mircdirtemp.txt /msg %i $parm6 * $+ $parm5 | inc %tot | halt
  :end
}
raw 315:* {
  if %priv == 1 { goto priv }
  else { goto pub }
  :priv
  write $mircdirtemp.txt /echo 4 -a 10End Of List! Total:5 %tot
  play -c $me $mircdirtemp.txt 0 | .disable #ircops
  goto end
  :pub
  write $mircdirtemp.txt /msg %i 10End Of List! Total:5 %tot
  play -c $me $mircdirtemp.txt 0 | .disable #ircops
  goto end
  :end
  .timer 1 10 .write -c $mircdirtemp.txt
  .timer 1 10 .remove $mircdirtemp.txt
  .timer 1 10 /unset %priv
  .timer 1 10 /unset %tot
  .timer 1 10 /unset %i
  halt
}
#ircops end
#unban off
raw 367:*: { 
  if ($parm4 = %unban) { 
    %bsite = %bsite $parm3 
    %bchan = $parm2
    if ($token(0,32,%bsite) = 6) { raw -q mode $parm2 -bbbbbb %bsite | unset %bsite }
    halt
  }
  halt
}
raw 368:*: { .disable #unban | raw -q mode $parm2 -bbbbbb %bsite  | unset %bsite |   .timer 1 10 .enable #nban | halt }
#unban end
#scanv off
raw 352:* {
  if ($me !isop $parm2) { halt }
  set %v $address($parm6,8)
  if ($level(%v) == 8) { mode $parm2 +v $parm6 | .notice $parm6 *** AutoV User Detected - You are on my auto-voice list | echo 1 -a $pa(5Found!) AutoV User ( $+ $parm6 $+ ) found! | halt }
  if ($level(%v) == 9) { mode $parm2 +v $parm6 | .notice $parm6 *** Friend Detected  - You are on my auto-voice list | echo 1 -a $pa(5Found!) Friend User ( $+ $parm6 $+ ) found! | halt }
  if ($level(%v) == 999) { ban $parm2 $parm6 3 | kick $parm2 $parm6 You are on my shitlist $i(5 | echo 1 -a $pa(5Found!) Shitlisted User ( $+ $parm6 $+ ) found! | halt }
  halt
}
raw 315:*:.disable #scanv | echo 1 -a $pa(5Done!) Finished scanning users on $parm2 | halt
#scanv end
#halloween off
raw 352:* {
  if (* isin $parm7) { goto end }
  if ( $len(%nicks! [ $+ [ %inc.1 ] ] ) < %tmplen ) {
    set %nicks! [ $+ [ %inc.1 ] ] %nicks! [ $+ [ %inc.1 ] ] $+ $parm6 $+ ,
    inc %totalnickz
  }
  elseif ( $len(%nicks! [ $+ [ %inc.1 ] ] ) >= %tmplen ) {
    inc %inc.1
    set %nicks! [ $+ [ %inc.1 ] ] $parm6 $+ ,
    inc %totalnickz
  }
  :end
  .disable #halloween
}
raw 315:* {
  /echo -a %_hw.echo Beginning msgn'...
  /echo -a %_hw.echo -> ( $+ %massmhost $+ )x( $+ %totalnickz $+ ) %msgbody
  netwidemsg
}
#halloween end
#nban on
raw 367:* {
  if %bans.head == $null { 
    echo $parm2 $t 10[Bans List10] for $parm2
    %bans.head = 1
  }
  echo $parm2 $t 4° $parm3 by10 $parm4 on 10[1 $+ $asctime($parm5) $+ 10] | set %bans.chex 1 | halt
}
raw 368:* {
  if (%bans.chex == $null) {
    %tmp.ban = $parm2 $+ 4[bans4]
    echo $parm2 $t 10[Bans List10] for $parm2
    echo $parm2 $t ban list empty
  }
  echo $parm2 $t 5»»10 End Of Banlist | unset %bans.head | unset %bans.chex | halt
}
#nban end
#clonecheck off
raw 352:* {
  %y = $readini $mircdirscan.ini x $parm4
  if (%y != $null) {
    if ($parm4 !isin %s) { %s = %s $parm4 }
  }
  writeini $mircdirscan.ini x $parm4 . $+ $parm6 $readini $mircdirscan.ini x $parm4
  halt
}
raw 315:* {
  if (%s == $null) { %ac 4·2×4· No Clones Found | unset %i %z %s %y | .remini $mircdirscan.ini x | .disable #clonecheck | halt }
  :x
  inc %z 1
  if ($token(%z,32,%s) != $null) {
    %ac [14 $+ $count( [ $readini [ $mircdirscan.ini x $token(%z,32,%s) ] ] ,.) $+ 1] clients from [14 $+ *!*@ $+ $token(%z,32,%s) $+ 1]
    %ac 5»» Nicks 14: $remove( [ $readini [ $mircdirscan.ini x $token(%z,32,%s) ] ] ,.)
    goto x
  }
  unset %i %z %s %y %ac | .remini $mircdirscan.ini x | .disable #clonecheck | halt
}
#clonecheck end
#port.scanner off
raw 211:*:{
  if (%ports.flag == yes) {
    if ($left(4,$right(5,$parm2)) isnum) { set %ports.all %ports.all $left(4,$right(5,$parm2)) }
    set %ports.var $parm5 + $parm7
    %ports.average = %ports.var + %ports.average
    aline @Ports Port : $left(4,$right(5,$parm2)) KBytes Sent/Recvd : %ports.var | inc %total.ports 1
    if (%ports.var < %ports.constant) { set %ports.constant $parm5 + $parm7 | set %ports.best $left(4,$right(5,$parm2)) }
  }
  else {
    if (%ports.vari == 1) { inc %ports.vari | goto end }
    if (%ports.vari == 2) { set %ports.flag yes | set %ports.constant $parm5 + $parm7 }
    :end
    halt
  }
  halt
}
raw 219:*:{
  aline @Ports ----------------------------------------------------------
  aline @Ports Fastest Port : %ports.best
  aline @Ports Total Ports : %total.ports
  aline @Ports Current Port : $port
  %ports.average = %ports.average / %total.ports
  aline @Ports Average KBytes Sent/Recvd : %ports.average
  unset %ports.*
  unset %total.ports
  .disable #port.scanner | halt
}
#port.scanner end