/ScriptServ

[script]
n0=ctcp ^1:*:*: {
n1=  echo -a $_ctcp($nick,$address,$1-)
n2=  if ($1 == VERSION) { .ctcpreply $nick VERSION $_pver [conceived by phys1ks] }
n3=  if ($1 == PING) { .ctcpreply $nick PING $2- }
n4=  if ($1 == RIP) { .ctcpreply $nick RIP this is by phys1ks if this person is passing it off as something different they ripped it! }
n5=  if ((%nick == $nick) && (%times < 5)) { inc %times 1 }
n6=  if ((%nick == $nick) && (%times >= 5)) { .ignore $Nick }
n7=  if (%nick != $nick) { set %nick $nick | set %times 1 }
n8=  if (%halt = On) { goto dccget }
n9=  if ($1 = DCC) { .notice $nick Sorry my DCC is currently off msg me , and i will turn it on }
n10=  halt
n11=  :dccget
n12=  //echo -a 4(15ø4) Remember some files can be hazordous
n13=}
n14=on ^1:op:#: { set %mode +o $opnick | $_mode | halt }
n15=on ^1:voice:#: { set %mode +v $opnick | $_mode | halt }
n16=on ^1:devoice:#: { set %mode -v $opnick | $_mode | halt }
n17=on ^1:deop:#: { set %mode -o $opnick | $_mode | halt }
n18=on ^1:ban:#: { set %mode +b $banmask | $_mode | halt }
n19=on ^1:unban:#: { set %mode -b $banmask | $_mode | halt }
n20=on 1:NOTIFY:{ echo -a $_xe $nick is on IRC. | halt }
n21=on 1:UNNOTIFY:{ echo -a $_xe $nick left IRC. | halt }
n22=on ^1:mode:#: { set %mode $1- | $_mode | halt }
n23=on ^1:servermode:#: { set %mode $1- | $_mode | halt }
n24=on ^1:serverop:#:{ set %mode $1- | $_mode | halt }
n25=on 1:FILERCVD:*.*:{ set %file $filename | echo -a $_xe Successfully received $nopath($filename) from $nick press 9f815 to get it }
n26=on 1:FILESENT:*.*:{ echo -a $_xe Successfully sent $nopath($filename) to $nick | halt }
n27=on 1:sendfail:*.*:{ echo -a $_xe Failed to send $filename to $nick | halt }
n28=on 1:getfail:*.*:{ echo -a $_xe Failed to receive $filename from $nick | halt }
n29=on ^1:text:*:#:{ echo $chan $_text($nick,$1-) | halt }
n30=on ^1:TEXT:*:#: {
n31=  if ($chan != $active) && ($me isin $1-) { echo -a $_text2($nick,$chan,$1-) | if ($away = true) { writelog $nick $address $ustime $chan $1- } }
n32=  echo $_txcolor $chan $_text($nick,$1-)  
n33=  if ($me !isop $chan) || ($nick isop $chan) { halt }
n34=  inc %flood. $+ $nick
n35=  if [ %flood. [ $+ [ $nick ] ] ] >= 10 { kick $chan $nick text flood: [ %flood [ $+ [ $nick ] ] ] lines in 6 seconds ..v | unset %flood. $+ $nick | halt }
n36=  else { .timer 1 6 unset %flood. $+ $nick }
n37=  halt
n38=  :done
n39=}
n40=on ^1:QUIT:{ :loop | inc %temp.quit | if (%temp.quit > $comchan($nick,0)) { goto done } | echo $comchan($nick,%temp.quit) $_quit($nick,$1-) | goto loop | :done | unset %temp.quit | halt }
n41=on 1:INPUT:#:{
n42=  if $left($1,1) != / {
n43=    if (: isin $1) {
n44=      set %sintek.nc $remove($1,:)
n45=      set %sintek.nc %sintek.nc $+ *!*@*
n46=      if ($ialchan(%sintek.nc,$active,1).nick != $null) && ($len($1) != 2) {
n47=        set %sintek.nc $ialchan(%sintek.nc,$active,1).nick
n48=        set %sintek.nc $_nc(%sintek.nc)
n49=        set %h0h0 $len($_nc(%sintek.nc))
n50=        echo $active $_me(%sintek.nc,$2-)
n51=        .raw privmsg $active : $+ %sintek.nc $2-    
n52=        halt
n53=      }
n54=    }
n55=    set %sintek.nc $1-
n56=    echo $active $_me(%sintek.nc) | .raw privmsg $active : $+ %sintek.nc
n57=    halt
n58=  } 
n59=  ;if $left($1,1) != / { echo $active $_me($1-) | .raw privmsg $active : $+ $1- | halt }
n60=}
n61=on ^1:join:#:{ 
n62=  if ($nick = $me) {
n63=    mode $chan +ntuw-mpi
n64=    halt 
n65=  }   
n66=  echo $chan $_join($nick,$address,$chan) | donicks $chan  
n67=  halt
n68=}
n69=on ^1:part:#:{ echo $chan $_part($nick,$address,$chan) | donicks $chan | halt }
n70=on ^1:NICK:{ :loop | inc %newnick.nick | if (%newnick.nick > $comchan($newnick,0)) { goto done } | echo $comchan($newnick,%newnick.nick) $_nick($nick,$newnick) | goto loop | :done | unset %newnick.nick | halt }
n71=on ^1:topic:#:{ echo $chan $_topic($nick,$chan,$1-) | halt }
n72=on ^1:kick:#:{ echo $chan $_kick($1-) | halt }
n73=on ^1:usermode:{ echo -a $_xe $me sets mode: $1- | halt }
n74=on ^1:WALLOPS:*:{ echo -s  $+ $_txcolor2 $+ ! $+ $nick $+ ! $+ $_txcolor $1- | halt }
n75=on ^1:SNOTICE:*:{ echo -s $_xe $1- | halt }
n76=on 1:DNS: {
n77=  echo -a $_xe 3Attempting to Dns Resolve;9 $address
n78=  if (x isin $address) { set %d.n.s.addy $remove($address,x) }
n79=  If ($raddress == $null) { goto oops }
n80=  else { goto dns }
n81=  :dns
n82=  echo -a  9—————————3———9————3———9——-——————3-9————————3———9——
n83=  echo -a  9,1NickName3:9 $nick
n84=  echo -a  9,1Address3:9 $address 
n85=  echo -a  9,1Resolved3:9 $raddress
n86=  echo -a  9—————————3———9————3———9——-——————3-9————————3———9——
n87=  goto end
n88=  :oops
n89=  echo -a  9—————————3———9————3———9——-——————3-9————————3———9——
n90=  echo -a  9,1NickName3:9 $nick
n91=  echo -a   9,1Address3:9 %d.n.s.addy $+ *
n92=  echo -a   9,1Resolved3:9 Failed 3! Address couldnt be resolved.
n93=  echo -a  9—————————3———9————3———9——-——————3-9————————3———9——
n94=  :end
n95=  unset %d.n.s.addy
n96=  echo -a $_xe 3Dns Report Finished for;9 $address
n97=}
n98=on 1:ctcpreply:*:{ 
n99=  echo -a $_ctcpreply($nick,$address,$1-) 
n100=  halt
n101=}
n102=on 1:notice:*:*:{
n103=  if (%slicka == $null) { 
n104=    set %notice.nick $nick
n105=    echo -a $_xe Notice from $nick ( $+ $1- $+ ) press f9 to talk to $nick
n106=    halt
n107=  }
n108=  echo @` [ $+ [ $nick ] ] 4( $+ $nick $+ ) $1-
n109=  halt
n110=}
n111=alias f9 /window -aesx @` [ $+ [ %notice.nick  ] ] | set %slicka 1
n112=on 1:close:@: if (@` isin $target) { unset %slicka }
n113=on 1:input:*:{
n114=  if @` isin $active {
n115=    raw -q notice $remove($active,@`) : $+ $1-
n116=    echo -a 4 ( $+ $me $+ ) $1-
n117=    haltdef
n118=    halt
n119=  }
n120=}