/ScriptServ

[script]
n0=ctcp 1:* {
n1=  if ($parm1 != dcc) {
n2=    if (%ctcpprot == on) {
n3=      inc % $+ $site $+ ctcps
n4=      inc %total.ctcps
n5=      .timer 1 5 /unset % $+ $site $+ ctcps
n6=      .timer 1 10 /set %total.ctcps 0
n7=      if (% [ $+ [ $site [ $+ [ ctcps ] ] ] ] == %max.ctcps) { .ignore -tu60 $wildsite | echo 4 -a  $+ $parm1 $+  flood detected from 2 $+ $nick ( $+ $address $+ ) | unset % $+ $site $+ ctcps | halt }
n8=      if (%total.ctcps == %total.ctcp.max) { .ignore -tu30 *!*@* | echo 4 -a ctcp protection triggered by 2 $+ $nick ( $+ $address $+ ) | halt }
n9=    }
n10=  }
n11=  if ($parm1 == dcc) {
n12=    if (%dccprot == on) {
n13=      if ($parm2 == chat) && ($parm5 == 19) { close -c $nick | .ignore -tu60 $wildsite | echo 4 -a port 19 dcc chat bomb from 2 $+ $nick ( $+ $address $+ ) | halt }
n14=      if ($parm2 == send) && ($parm5 == 19) { close -g $nick | .ignore -tu60 $wildsite | echo 4 -a fake dcc send from 2 $+ $nick ( $+ $address $+ ) | echo 4 -a file - 2 $+ $parm3 $+  | echo 4 -a Size - 2 $+ $parm6 $+   | halt }
n15=      if ($parm2 == send) && (%dcc.accept == no) { .ignore -tu10 $wildsite | .notice $nick sorry, but i'm not accepting dcc's right now | halt }
n16=      else {
n17=        inc % $+ $site $+ dccs
n18=        inc %total.dccs
n19=        .timer 1 5 /unset % $+ $site $+ dccs
n20=        .timer 1 10 /set %total.dccs 0
n21=        if (% [ $+ [ $site [ $+ [ dccs ] ] ] ] == %max.dccs) { .ignore -tu60 $wildsite | echo 4 -a dcc $parm2 $+  flood detected from 2 $+ $nick ( $+ $address $+ ) | unset % $+ $site $+ dccs | halt }
n22=        if (%total.dccs == %total.dcc.max) { .ignore -tu30 *!*@* | echo 4 -a dcc protection triggered by 2 $+ $nick ( $+ $address $+ ) | halt }
n23=      }
n24=    }
n25=  }
n26=  if ($parm1 == xdcc) {
n27=    if (%xdcc.booth != on) { .ignore -tu10 $wildsite | .notice $nick xdcc booth is not open | echo -a xdcc $parm2 request from $nick ( $+ $address $+ ) | halt }
n28=    :help
n29=    if ($parm2 == help) { .ignore -tu5 $wildsite | xdcc echo | .notice $nick %title xdcc help | .notice $nick syntax: /ctcp $me <option> | .notice $nick xdcc list (lists current xdcc packs) | .notice $nick xdcc send <packet> (sends packet specified) | halt }
n30=    elseif $parm2 == list { 
n31=      .ignore -tu5 $wildsite
n32=      xdcc echo
n33=      .notice $nick %title xdcc file list
n34=      if (%xdcc.packs == $null) { .notice $nick no filled slots in xdcc | halt }
n35=      else {
n36=        set %xdcc.list 0
n37=        :start
n38=        inc %xdcc.list
n39=        .timer 1 2 /.notice $nick packet %xdcc.list ( $+ % [ $+ [ desc [ $+ [ %xdcc.list ] ] ] ] $+ ( $+ % [ $+ [ size [ $+ [ %xdn ] ] ] ] $+ ) $+ )
n40=        if (%xdcc.list == %xdcc.packs) { unset %xdcc.list | halt }
n41=        else { goto start }
n42=      }
n43=    }
n44=    elseif $parm2 == send {
n45=      if ($parm2 > %xdcc.packs) { .notice $nick no such file | halt }
n46=      else { dcc send $nick %pack $+ $parm2 | .notice $nick now sending % [ %desc [ $+ [ $parm2 ] ] ] ] | echo -s now sending $nick ( $+ $address $+ ) % [ %desc [ $+ [ $parm2 ] ] ] ] | .ignore -tu5 $wildsite | halt }
n47=    }
n48=    elseif ($parm2 != help) && ($parm2 != list) && ($parm2 != send) { goto help }
n49=  }
n50=}