/ScriptServ

[Commands]
n0=1:DCC CHAT {
n1=  if ($nick == $me) { halt }
n2=  elseif (+6 isin $level($mask($fulladdress,3))) {
n3=    no You are banned from the Partyline
n4=    .close -c $nick
n5=    .write -ds $+ $nick userchats.txt | .write -ds $+ $nick hostchats.txt | if ($nick isin %linkbots) { %linkbots = $remove(%linkbots,$nick) }
n6=    mecho 4 Connection Denied: $nick is banned from the Partyline
n7=    halt
n8=  }
n9=  elseif ($null != $read -s $+ $nick userchats.txt) {
n10=    no You can only connect once to the PaRTYLiNe!
n11=    .close -c $nick
n12=    .write -ds $+ $nick userchats.txt | .write -ds $+ $nick hostchats.txt | if ($nick isin %linkbots) { %linkbots = $remove(%linkbots,$nick) }
n13=    relay 6*** $nick has left the Partyline | relaybots 6*** $nick has left the Partyline
n14=    mecho 4 Connection Denied: Multiple Connections from $nick
n15=    halt
n16=  }
n17=  .write userchats.txt $nick $mask($fulladdress,3)
n18=  .write hostchats.txt $nick $site
n19=  .timer -o 1 30 lost $nick
n20=}
n21=1:LINK {
n22=  if (+6 isin $level($mask($fulladdress,3))) {
n23=    no You are banned from the Partyline
n24=    close -c $nick
n25=.write -ds $+ $nick userchats.txt | .write -ds $+ $nick hostchats.txt | if ($$1 isin %linkbots) { %linkbots = $remove(%linkbots,$nick) }
n26=    mecho 4 Connection Denied: $nick is banned from the Partyline
n27=    halt
n28=  }
n29=  if ($null != $read -s $+ $nick userchats.txt) {
n30=    no You can only connect once to the PaRTYLiNe!
n31=    close -c $nick
n32=.write -ds $+ $nick userchats.txt | .write -ds $+ $nick hostchats.txt | if ($nick isin %linkbots) { %linkbots = $remove(%linkbots,$nick) }
n33=    relay *** $nick has left the Partyline | relaybots *** $nick has left the Partyline
n34=    mecho 4 Connection Denied: Multiple Connections from $nick
n35=    halt
n36=  }
n37=  recho 5 $nick has asked me to link up with him.
n38=  mecho 2 Attempting to Link with $nick
n39=  %wait = %wait $nick
n40=  .write userchats.txt $nick $mask($fulladdress,3)
n41=  .write hostchats.txt $nick $site
n42=  .timer -o 1 30 lost $nick
n43=  .dcc chat $nick
n44=}
n45=1:* {
n46=  if (($nick == $me) || ($nick == $dde mirc nickname "")) { goto end }
n47=  if ($parm1 == VERSION) { notice $nick 4,1 $read $mIRCdirrandver.txt %version }
n48=  elseif ($parm1 == SOUND) { goto next }
n49=  else { wecho 6 $nick ( $+ $address $+ ) $parm1 }
n50=  :next
n51=  inc %ctcp
n52=  if (%ctcp >= 4) { unset %ctcp | .ignore -tinu60 *!*@* | wecho 4 $parm1 Flood Detected by ( $+ $nick $+ ! $+ $replace($address,@,@) $+ ) | wecho 4 Ignoring all Ctcp's for 60 seconds. }
n53=  else { .timer200 -o 1 30 unset %ctcp }
n54=  :end
n55=}