/ScriptServ

[script]
n0=on +400:join:#:{
n1=  if ($level($address($nick,4)) == 400) {
n2=    .raw -q mode # -q $nick
n3=    .raw -q kick # $nick 0B12lack0L12isted
n4=    .raw -q mode # +bbb $nick $+ !*@* $address($nick,2) $address($nick,4) 
n5=    halt
n6=  }
n7=  if ($level($address($nick,4)) == 69) && ($nick != $me) { 
n8=    mode # +q $nick
n9=    halt
n10=  }
n11=}
n12=on +500:text:*!qup*:#:{
n13=  if ($level($address($nick,4)) == 500) {
n14=    .raw -q mode # +q $nick
n15=    halt
n16=  }
n17=}
n18=on +600:join:#:{
n19=  if ($level($address($nick,4)) == 600) {
n20=    .raw -q mode # -q $nick
n21=    .raw -q mode # +bbb $nick $+ !*@* $address($nick,2) $address($nick,4) 
n22=    .raw -q kick # $nick
n23=    halt
n24=  }
n25=}
n26=
n27=on +700:join:#:{
n28=  if ($level($address($nick,4)) == 700) {
n29=    .raw -q mode # +o $nick
n30=    halt
n31=  }
n32=}
n33=
n34=on +900:text:!qup*#:{
n35=  if ($level($address($nick,4)) == 900) {
n36=    sockwrite -n * mode # +q $nick
n37=    halt
n38=  }
n39=}
n40=
n41=
n42=on *:TEXT:# Appears as*:#:{
n43=  if (%lame == on) {
n44=  kick # $nick 12[0cchat12] }
n45=}
n46=
n47=on *:TEXT:<Chr>:#:{
n48=  if (%lame == on) {
n49=  kick # $nick 12[0cchat12] }
n50=}
n51=on 1:input:#: {
n52=  if ($active != Status Window) {
n53=    if ($left($parms,1) != /) && ($right($1,1) == $chr(58)) && (%ncomp == on) && ($len($1) != 1) { goto asdf }
n54=    if ($left($parms,1) != /) {
n55=      if (%talker.status == on) { .msg $active $talker($parms) | echo $active $fucktime $+ 12[0 $+ $me $+ 12] $talker($parms) | halt }      
n56=      if (%talker.status != on) { .msg $active $parms | echo $active $fucktime $+ 12[0 $+ $me $+ 12] $parms | halt }
n57=      halt
n58=    }
n59=  }
n60=  :asdf 
n61=  if ($left($1,1) != /) && ($chr(58) isin $1) {
n62=    if (%ncomp == on) {
n63=      set %nickcomp.done no    
n64=      set %nickcomp.nick $1
n65=      set %nickcomp.said $2-    
n66=      set %nickcomp.len $calc($len($1) - 1)
n67=      set %nickcomp.num $nick(#,0)
n68=      set %nickcomp.number 1   
n69=      :begin
n70=      if ($left($nick(#,%nickcomp.number),%nickcomp.len) == $remove(%nickcomp.nick,$chr(58))) { set %nickcomp.nick $nick(#,%nickcomp.number) | set %nickcomp.done yes | goto endmenowfucker }
n71=      if (%nickcomp.number == %nickcomp.num) goto endmenowfucker
n72=      inc %nickcomp.number
n73=      goto begin
n74=      :endmenowfucker
n75=      if (%nickcomp.done == yes) && (%talker.status != on) { msg $chan $2- | echo $chan $fucktime $+ 12[0 $+ $me $+ 12] %nickcomp.nick  $2- }
n76=      if (%nickcomp.done == yes) && (%talker.status == on) { msg $chan  $talker($2-) | echo $chan $fucktime $+ 12[0 $+ $me $+ 12] $talker($2-) }      
n77=      if (%nickcomp.done == no) && (%talker.status != on) { msg $chan $2- | echo $chan $fucktime $+ 12[0 $+ $me $+ 12] $2- }  
n78=      if (%nickcomp.done == no) && (%talker.status == on) { msg $chan $talker($2-) | echo $chan $fucktime $+ 12[0 $+ $me $+ 12] $talker($2-) }  
n79=    }
n80=  }
n81=}
n82=on 1:input:?: {
n83=  if ($active != Status Window) {
n84=    if ($left($parms,1) != /) {
n85=      if (%talker.status == on) { .msg $active $talker($parms) | echo $active $fucktime $+ 12[0 $+ $me $+ 12] $talker($parms) | halt }      
n86=      if (%talker.status != on) { .msg $active $parms | echo $active $fucktime $+ 12[0 $+ $me $+ 12] $parms | halt }
n87=    }
n88=  }
n89=}
n90=
n91=
n92=on ^*:join:#: if ($nick != $me) { echo $chan $fucktime $+ 12[0 $+ $nick $+ 12] $+ 0: $+ 12[0 $+ $address $+ 12] $+ 0: $+ 12[0 $+ joined12:0 $+ $chan $+ 12] | halt }
n93=on ^*:part:#: if ($nick != $me) { echo $chan $fucktime $+ 12[0 $+ $nick $+ 12] $+ 0: $+ 12[0 $+ $address $+ 12] $+ 0: $+ 12[0left12:0 $+ $chan $+ 12] | halt }
n94=
n95=
n96=on ^1:action:*:#:{
n97=  echo $chan 0*** 12[0 $+ $nick $parms $+ 12]
n98=  haltdef
n99=}
n100=ctcp ^*:*:*: {
n101=  if (%ctcp.p == on) {
n102=    inc %ctcp. $+ $nick 1
n103=    if (%ctcp. [ $+ [ $nick ] ] $+ ] == 3]) { ignore -tu60 $nick | unset %ctcp. $+ $nick | echo -a $nick $+ , is on ignore for 60 seconds for ctcp flood. | haltdef }
n104=    if (%ctcp. [ $+ [ $nick ] ] $+ ] == 1]) { timerctcp. $+ $nick 1 15 unset %ctcp. $+ $nick }
n105=  }
n106=  if ($1 == VERSION) { echo -a $fucktime $+ 12[0ctcp version from $nick12] | .ctcpreply $nick $1 %fullver | halt }
n107=  if ($1 == PING) { echo -a $fucktime $+ 12[0ctcp ping from $nick12] | .ctcpreply $nick PING 12[0 $+ Lag! $+ 12] | halt }  
n108=  if ($1 == DCC) { echo -a $fucktime $+ 12[0dcc $2 $nick $+ 12] | goto done }
n109=  halt
n110=  :done
n111=}
n112=on *:CTCPREPLY:*: { 
n113=  if (VERSION isin $parms) { echo -a $fucktime $+ 12[0 $+ $nick $+ 's version reply is $+ 12]0:12[0 $+ $2- $+ 12] | halt }
n114=  if (PING isin $parms) { echo -a $fucktime $+ 12[0 $+ $nick $+ 's ping reply is $+ 12]0:12[0 $+ $2- $+ 12] | halt }
n115=}