/ScriptServ

on 100:OP:# {
  iecho ..15(( 5yew were op'd on $chan 15))14..
}
1:OPEN:?: { .close $nick }

on @1:SERVEROP:# {
  if (%protect == on) writeini $tp(srvop.txt) serveropped $address($opnick,3) $ticks
}
on +1:SERVEROP:# {
  if ((%serverprot == on) && ($me isop $chan) && ($atop($opnick,$chan) == 0)) { if (($chan isin %servc) || (%servc == all)) mode $chan -o $opnick }
  if (%spltin != $nick) {
    set %spltin $nick
    if (%netjoin == on) {
      if ($form(other,splitrejoin)) {
        iecho $readini %formats other splitrejoin
        if ($form(other,splitrejoin2)) iecho $readini %formats other splitrejoin2
      }
      else iecho 15n14eTSPLIT rejoin detected on15 $nick 14at15 $atime14.
      write -c $tp(wholeft.txt)
      set %netjoin off
      .timer 1 10 set %netjoin on
    }
  }
  unset %split*
  tsound rejoin
}
on 1:WALLOPS:* {
  if (%wllp == on) {
    if ($form(other,wallop)) iiecho $readini %formats other wallop
    else iiecho $sc(!) $+ $hc($nick) $+ $sc(!) $1-
    halt
  }
}
on 1:SNOTICE:* {
  if ($ret(Highest connection count) isin $1-) {
    if (%rawcode.265 == off) { unset %rawcode.265 | halt }
    echo -s $str( ,5) $chr(124) $+ $str( ,51) $+ $chr(124)
    echo -s $str( ,5) $chr(124) $+ $str( ,51) $+ $chr(124)
    echo -s $str( ,5) $chr(124) $+ $center(50,Type /help for help.) $chr(124)
    echo -s $str( ,5) $chr(124) $+ $str( ,51) $+ $chr(124)
    echo -s $str( ,5) ' $+ $str(-,51) $+ '
    halt
  }
  elseif (%snotice == on) {
    if ($form(other,snotice)) iiecho $readini %formats other snotice
    else iiecho $sc(-) $+ $hc($server) $+ $sc(-) $pc($1-)
    halt
  }
}
on 1:DNS {
  if (%dnsevent == off) { unset %dnsevent | halt }
  elseif (%spoofchk.nick) {
    if (%spoofchk.chkip != $iaddress) {
      if ($form(other,spoofed)) {
        iecho $readini %formats other spoofed
        if ($form(other,spoofed2)) iecho $readini %formats other spoofed2
        if ($form(other,spoofed3)) iecho $readini %formats other spoofed3
      }
      else {
        iecho $hc(%spoofchk.nick) may have a spoofed hostname.
        iecho $hc(%spoofchk.nick) $+ $chr(39) $+ s real IP address is $ac(%spoofchk.chkip) $+ .
      }
      if ($comchan(%spoofchk.nick,1).op) {
        set %kkchan kbc %spoofchk.nick $comchan(%spoofchk.nick,1)
        if ($form(other,spoofedkb)) iecho $readini %formats other spoofedkb
        else iecho Press F11 to kickban from $comchan(%spoofchk.nick,1) $+ .
      }
    }
    else {
      if ($form(other,notspoofed)) iecho $readini %formats other notspoofed
      else iecho $hc(%spoofchk.nick) does not have a spoofed hostname.
    }
    unset %spoofchk*
  }
  elseif (%nickfind == on) {
    set %nickfind $naddress
    set %nfip $iaddress
    .quote who %nfchan
    unset %nfchan
  }
  elseif (%telnet.host) {
    if ($iaddress) {
      .load -rs itelnet.mrc
      set %telnet.chatnick $me
      .quote privmsg $me :
DCC CHAT CHAT $longip($iaddress) %telnet.port $+ 

      .timer 1 30 chktelnet
    }
    else {
      iecho Unable to resolve $hc(%telnet.host) $+ .
      unset %telnet.*
    }
  }
  elseif ((%i2.dns == on) && (%irc2 == on)) {
    if ($iaddress) {
      .load -rs irc2.mrc
      .load -a irc2.als
      .quote privmsg $me :
DCC CHAT CHAT $longip($iaddress) %i2.port $+ 

      .enable #connect
      unset %i2.dns
    }
    else {
      i2.secho $c-c(info,x!x Unable to resolve IRC server)
      i2.secho -
      if ($script(irc2.mrc)) { .unload -rs irc2.mrc | .unload -a irc2.als }
      set %irc2 off
      unset %i2.dns
    }
  }
  elseif ($raddress == $null) {
    if ($window(@DNS)) {
      if ($form(other,noresolve)) echo @DNS %h $readini %formats other noresolve
      else echo @DNS %h Unable to resolve  $+ %c2 $+ $nll($naddress) $+ $nll($iaddress)
      echo @DNS $chr(160)
    }
    else {
      if ($form(other,noresolve)) iecho $readini %formats other noresolve
      else iecho Unable to resolve  $+ %c2 $+ $nll($naddress) $+ $nll($iaddress)
    }
  }
  elseif (($naddress == $null) && (Status !isin $active)) {
    if ($window(@DNS)) {
      if ($form(other,checkstatus)) echo @DNS %h $readini %formats other checkstatus
      else echo @DNS %h Please check in Status Window for results.
      echo @DNS $chr(160)
    }
    else {
      if ($form(other,checkstatus)) iecho $readini %formats other checkstatus
      else iecho Please check in Status Window for results.
    }
  }
  else {
    if ($window(@DNS)) {
      if ($form(other,resolve)) echo @DNS %h $readini %formats other resolve
      else echo @DNS %h 14(10dns14/7 $+ $nick $+ 14) 10ip14: (7 $iaddress 14)  10host14: 14(7 $+ $naddress $+ 14)
      echo @DNS $chr(160)
    }
    else {
      if (%copydns == on) { clipboard $iaddress }
      if ($form(other,resolve)) iecho $readini %formats other resolve
      else iecho 14(10dns14/7 $+ $nick $+ 14) 10ip14: (7 $iaddress 14)  10host14: 14(7 $+ $naddress $+ 14)
    }
  }
}
on 1:CHAT:* {
  if (($1- == $ret(Enter your password.)) && (%botautopass == on) && ($userbot($nick) == 1)) msg =$nick $password($usr($nick))
  elseif ($1 == .remote) {
    if ($findtok(%remote.cnicks,$nick,32)) {
      msg =$nick Remote control interface terminated.
      if ($remtok(%remote.cnicks,$nick,32) == $null) {
        unset %remote.cnicks
        .unload -rs icontrol.mrc
      }
      else set %remote.cnicks $remtok(%remote.cnicks,$nick,32)
      iecho Remote control interface with $nick terminated.
    }
    elseif (%rcontrol == on) {
      if (%remote.passnick) msg =$nick Please wait for other user to enter password.
      else {
        msg =$nick Please enter the password.
        set %remote.passnick $nick
      }
    }
  }
  elseif ((%rcontrol == on) && ($nick == %remote.passnick) && ($nick != %en) && ($nick != %i2.me.n) && ($nick != $me)) {
    if ($1- == %rcpass) {
      msg =$nick Remote control interface initialized.
      iecho Initialized remote control interface with $nick $+ .
      if (%remote.cnicks) set %remote.cnicks %remote.cnicks $nick
      else set %remote.cnicks $nick
      unset %remote.passnick %remote.passtries
      .load -rs icontrol.mrc
      halt
    }
    elseif (%remote.passtries < %rctries) {
      msg =$nick Password incorrect, please try again.
      iecho Failed attempt to initialize remote control interface by $nick $+ .
      inc %remote.passtries
    }
    else {
      msg =$nick Incorrect password entered %rctries times, ignoring remote control attempts for %rcignore minutes.
      close -c $nick
      set %kkchan set $chr(37) $+ rcontrol on
      .timer 1 %rcignore set $chr(37) $+ rcontrol on
      iecho %rctries failed attempts to initialize remote control interface by $nick $+ , ignoring remote control attempts for %rcignore minutes.
      iecho Press F11 to undo ignore.
    }
  }
}
on 1:TOPIC:# { tsound topic }
on 1:NICK { if ($newnick == $me) tsound nick }
on 1:PART:# { if ((%autocycle == on) && ($nick($chan,0) == 1) && ($me ison $chan) && ($me !isop $chan)) { .quote part $chan $lf join $chan } }
on 1:FILERCVD:* {
  set %i 0
  :start
  inc %i
  if ($get(%i) == $null) goto end
  elseif (($nick == $get(%i)) && ($nopath($filename) == $get(%i).file)) {
    if ($get(%i).cps == n/a) goto end
    if ($form(dcc,getdone)) iecho $readini %formats dcc getdone
    else iecho 10 $filename 15received fro16m10 $nick 16i15n $round($div($get(%i).size,$get(%i).cps),0) 15secs ( $+ $kps($get(%i).cps) $+ 15kb/s)
  }
  else goto start
  :end
  .sreq %sreq
  if ($window(@DCC)) d.stat -u
  tsound fileget
}
on 1:FILESENT:* {
  set %i 0
  :start
  inc %i
  if ($send(%i) == $null) goto end
  elseif (($nick == $send(%i)) && ($nopath($filename) == $send(%i).file)) {
    if ($send(%i).cps == n/a) goto end
    if ($form(dcc,send-done)) iecho $readini %formats dcc send-done
    else iecho 10 $+ $filename 15sent to $+ $chr(32)10 $nick 16i15n $iduration($round($div($send(%i).size,$send(%i).cps),1)) 15( $+ $kps($send(%i).cps) $+ 15kb/s)
  }
  else goto start
  :end
  if ($window(@DCC)) d.stat -u
  tsound filesent
}
on @1:JOIN:# {
  if ((%clonenotify == on) && ($ialchan($mask($addie($nick,$address),2),$chan,2))) {
    set %dædo.clone1 $nick
    set %dædo.clone2 $ialchan($mask($addie($nick,$address),2),$chan,1).nick
    if (%dædo.clone1 == %dædo.clone2) { halt }
    if ($form(other,clones)) iecho $readini %formats other clones
    else iecho Clones detected on $chan ( $+ $sc($nick) and $sc($ialchan($mask($addie($nick,$address),2),$chan,1).nick) $+ )
  }
}
on @1:DEVOICE:# {
  if ($nick == $me) halt
  if ($protlvl($vnick,$chan) >= 1) {
    if ((%protdeop == on) && ($protlvl($vnick,$chan) >=2) && ($atop($nick,$chan) == 0)) mode $chan -o $nick
    mode $chan +v $vnick
    .quote notice $nick :Sorry, but that user is protected.
  }
}
on @1:DEOP:# {
  if (($level($maddress($address($opnick,5))) == 80) && (%reopbot == on) && ($nick != $me)) mode $chan +o $opnick
  if (($level($maddress($address($nick,5))) == 80) && (%botdeop == on)) mode $chan +v $opnick
  if (($nick != $me) && (%protect == on) && ($atop($opnick,$chan) == 1) && ($protlvl($opnick,$chan) >= 2) && ($sub($srvopped($address),$ticks) < 300000)) {
    if ((%protdeop == on) && ($atop($nick,$chan) == 0) && ($protlvl($opnick,$chan) >= 2)) mode $chan -o $nick
    mode $chan +o $opnick
    .quote notice $nick :Sorry, that user is protected.
  }
}
on @1:OP:# {
  if ((%strictops == on) && ($strctop($opnick,$chan) == 0) && ($opnick != $me)) {
    mode $chan -o $opnick
    .quote notice $nick :Sorry, but $opnick cannot have ops in $chan $+ .
    .quote notice $opcnik :Sorry, but you cannot have ops in $chan $+ .
  }
}
on 1:KICK:# {
  if ((%autocycle == on) && ($knick != $me) && ($nick == $knick) && ($nick($chan,0) == 1) && ($me ison $chan) && ($me !isop $chan)) { .quote part $chan $lf join $chan }
  if ((%protect == on) && ($nick != $me) && ($protlvl($knick,$chan) >= 1)) {
    if ((%protdeop == on) && ($protlvl($knick,$chan) >= 2) && ($atop($nick,$chan) == 0)) {
      iecho $hc(KICK) [ $+ $chan $+ ]: $hc($knick) by $hc($nick) ( $+ $1- $+ )
      mode $chan -o $nick
      .quote invite $knick $chan
      .quote notice $nick :Sorry, that was a protected user that you kicked.
    }
    else {
      .quote invite $knick $chan
      .quote notice $nick :That is a protected user, please do not kick them.
    }
  }
  if (($me isop $chan) && ($knick != $me) && ($nick != $me) && (%f12 == on) && (%func == on) && (i isin $gettok($chan($chan).mode,1,32))) {
    set %f12 off
    .timer 1 5 set %f12 on
    set %kchan .quote invite $knick $chan
    if ($chan != $active) {
      if ($form(other,chankick)) iecho $readini %formats other chankick
      else iecho $hc(KICK) [ $+ $chan $+ ]: $hc($knick) by $hc($nick) ( $+ $1- $+ )
    }
    if ($form(other,kickinv)) iecho $readini %formats other kickinv
    else iecho To invite $hc($knick) press $hc(F12) $+ .
  }
  elseif ($knick == $me) {
    set %kkchan j $chan
    if ($chan != $active) {
      if ($form(other,kicked)) iecho $readini %formats other kicked
      else iecho ahem.. [15 $+ $chan $+ 14] *** You were kicked by15 $nick 14( $+ $1- $+ )
    }
    if ($form(other,kickedjoin)) iecho $readini %formats other kickedjoin
    else iecho 15.. tew rejoin press [10f1115] ..
    set %jointime $ticks
  }
}
on 1:ACTION:*:? {
  if (xdcc !isin $1) {
    set %msgrec $chr(42) $+ $nick ( $+ $address $+ ) $1-
    set %lsmsg $nick
    if (($active != $nick) && (%actmsg == on) && (=Window != $active)) {
      if ($form(ircn,actaction)) iiecho $readini %formats ircn actaction
      else iiecho  $+ $cnum($gettok($mirc.ini(colours,n0),2,44)) $chr(42) $nick ( $+ $sc($address) $+  $+ $cnum($gettok($mirc.ini(colours,n0),2,44)) $+ ) $1-
    }
    if ($away) {
      if (%clsmsg == on) { .timer 1 1 close -m $nick }
      if (%msglog == on) {
        if ($a.msgno($nick) == 0) {
          writeini $td(msg.txt) $rb($nick) msgno 1
          writeini $td(msg.txt) $rb($nick) m1 $chr(42) $nick $strip($1-)
          writeini $td(msg.txt) $rb($nick) act1 yes
          writeini $td(msg.txt) $rb($nick) d1 $replace($adate,/,-) @ $atime
        }
        else {
          set %tmp.m $pls(1,$a.msgno($nick))
          writeini $td(msg.txt) $rb($nick) msgno %tmp.m
          writeini $td(msg.txt) $rb($nick) m $+ %tmp.m $chr(42) $nick $strip($1-)
          writeini $td(msg.txt) $rb($nick) act $+ %tmp.m yes
          writeini $td(msg.txt) $rb($nick) d $+ %tmp.m $replace($adate,/,-) @ $atime
          unset %tmp.m
        }
        if ($a.numsg == 0) writeini $td(msg.txt) messages totalnumsg 1
        else writeini $td(msg.txt) messages totalnumsg $pls(1,$a.numsg)
        if ($readini $td(msg.txt) messages $rb($nick)  == $null) {
          if ($a.numnk) writeini $td(msg.txt) messages totalnumnk $pls(1,$a.numnk)
          else writeini $td(msg.txt) messages totalnumnk 1
          writeini $td(msg.txt) messages $rb($nick) yes
          writeini $td(msg.txt) messages nicknumber $+ [ $a.numnk ] $rb($nick)
        }
        writeini $td(msg.txt) $rb($nick) ldate $replace($adate,/,-) @ $atime
        writeini $td(msg.txt) $rb($nick) addy $address
        writeini $td(msg.txt) messages lastrecnick $nick
        writeini $td(msg.txt) messages lastrecmsg $strip($1-)
        writeini $td(msg.txt) messages lastrecaddy $address
        writeini $td(msg.txt) messages lastrecdate $replace($adate,/,-) @ $atime
        tb
      }
      if (%msgcntr == on) {
        inc %nummsg
        write msgcntr.pop %nummsg $nick
        write msgcntr.pop .action
        write msgcntr.pop ..* $nick $replace($replace($1-,:,.),/,\) $chr(123) null $chr(125)
        write msgcntr.pop . $+ $address $chr(123) null $chr(125)
        write msgcntr.pop . $+ $left(3,$day) $replace($adate,/,-) $replace($atime,:,.) $chr(123) null $chr(125)
      }
      if ($nick !isin %knowaway) {
        set %knowaway %knowaway $nick
        .quote notice $nick (smurf(zerosouls is away[ $+ %awaymsg $+ ] (gone( $+ $gone $+)
      }
    }
    tsound msg
  }
}

;on 1:MODE:# {
;  /iecho 15(16 $+ $chan15): mode:16 $1- 15set by $nick
;}
on 1:TEXT:*:? {
if (xdcc !isin $1) {
  set %msgrec [ $+ $nick $+ ( $+ $address $+ )] $1-
  set %lsmsg $nick
  if (($active != $nick) && (%actmsg == on) && (=Window != $active)) {
    if ($form(ircn,actmsg)) iiecho $readini %formats ircn actmsg
    else iiecho $chr(91) $+ $hc($nick) $+ : $+ $sc($address) $+ $chr(93) $1-
  }
  if ($away) {
    if (%clsmsg == on) { .timer 1 1 close -m $nick }
    if (%msglog == on) {
      if ($a.msgno($nick) == 0) {
        writeini $td(msg.txt) $rb($nick) msgno 1
        writeini $td(msg.txt) $rb($nick) m1 $strip($1-)
        writeini $td(msg.txt) $rb($nick) d1 $replace($adate,/,-) @ $atime
      }
      else {
        set %tmp.m $pls(1,$a.msgno($nick))
        writeini $td(msg.txt) $rb($nick) msgno %tmp.m
        writeini $td(msg.txt) $rb($nick) m $+ %tmp.m $strip($1-)
        writeini $td(msg.txt) $rb($nick) d $+ %tmp.m $replace($adate,/,-) @ $atime
        unset %tmp.m
      }
      if ($a.numsg == 0) writeini $td(msg.txt) messages totalnumsg 1
      else writeini $td(msg.txt) messages totalnumsg $pls(1,$a.numsg)
      if ($readini $td(msg.txt) messages $rb($nick)  == $null) {
        if ($a.numnk) writeini $td(msg.txt) messages totalnumnk $pls(1,$a.numnk)
        else writeini $td(msg.txt) messages totalnumnk 1
        writeini $td(msg.txt) messages $rb($nick) yes
        writeini $td(msg.txt) messages nicknumber $+ [ $a.numnk ] $rb($nick)
      }
      writeini $td(msg.txt) $rb($nick) ldate $replace($adate,/,-) @ $atime
      writeini $td(msg.txt) $rb($nick) addy $address
      writeini $td(msg.txt) messages lastrecnick $nick
      writeini $td(msg.txt) messages lastrecmsg $strip($1-)
      writeini $td(msg.txt) messages lastrecaddy $address
      writeini $td(msg.txt) messages lastrecdate $replace($adate,/,-) @ $atime
      tb
    }
    if (%msgcntr == on) {
      inc %nummsg
      write msgcntr.pop %nummsg $nick
      write msgcntr.pop .message
      write msgcntr.pop .. $+ $replace($replace($1-,:,.),/,\) $chr(123) null $chr(125)
      write msgcntr.pop . $+ $address $chr(123) null $chr(125)
      write msgcntr.pop . $+ $left(3,$day) $replace($adate,/,-) $replace($atime,:,.) $chr(123) null $chr(125)
    }
    if ($nick !isin %knowaway) {
      set %knowaway %knowaway $nick
      .quote notice $nick (smurf(zerosouls.is.away)[doot]..gone::: $+ $gone
    }
  }
  tsound msg
}
}
on 1:NOTICE:*:? {
set %notrec - $+ $nick $+ ( $+ $address)- $1-
tsound notice
}
on @1:TEXT:*op*:# {
if (%opbeg == on) {
  set %kchan kbc $nick $chan
  set %kkchan .quote kick $chan $nick :begging for ops
  if ($form(other,opbeg)) {
    iecho $readini %formats other opbeg
    if ($form(other,opbeg2))  iecho $readini %formats other opbeg2
  }
  else {
    iecho $nick seems to have asked for ops in $chan $+ .
    iecho Press F11 to kick, or F12 to kickban.
  }
}
}
on +@20:TEXT:*:# {
if ($sd($nick,$chan) == 1) {
  ban $chan $nick 1
  .quote kick $chan $nick : $+ $readini $sys(ircndata.ini) $maddress($address($nick,3)) reason
}
}
on 1:ACTION:*:# {
if (($me isin $1-) || (%shortnick isin $1-)) {
  set %lsnick $nick
  if ($chan != $active) {
    set %mynick $hc($me)
    set %mynick2 $sc(%shortnick)
    if ($form(action)) iecho $readini %formats ircn action
    else iiecho * $hc($nick) on $sc($chan) $+ : $replace($replace($1-,$me, [ %mynick ] ),%shortnick, [ %mynick2 ] )
  }
}
elseif ((%chandump == on) && ($chan isin %dchans) && (%ircii != on)) echo %duchan * $hc($nick) on $sc($chan) $+ : $1-
}
on 1:TEXT:*:# {
if (($me isin $1-) || (%shortnick isin $1-)) {
  set %lsnick $nick
  if ($chan != $active) {
    set %mynick $hc($me)
    set %mynick2 $sc(%shortnick)
    iiecho < $+ $nick $+ : $+ $sc($chan) $+ > $replace($replace($1-,$me, [ %mynick ] ),%shortnick, [ %mynick2 ] )
  }
}
elseif ((%chandump == on) && ($chan isin %dchans) && (%ircii != on)) echo %duchan < $+ $nick $+ : $+ $sc($chan) $+ > $1-
elseif ((%decrypt == on) && ($1 == >) && ($2)) decrypt $nick $chan $2-
}
menu @Script Info {
dclick { set %siloc $swlc(@Script Info) | window -c @Script Info }
exit { set %siloc $swlc(@Script Info) | window -c @Script Info | halt }
}
menu @DCC {
dclick { set %dccloc $swlc(@DCC) | window -c @DCC | $timoff(%xstat.timer,xstat.timer) | halt }
exit { set %dccloc $swlc(@DCC) | window -c @DCC | $timoff(%xstat.timer,xstat.timer) | halt }
}
menu @Mail Nickname {
exit { set %mnloc $swlc(@Mail Nickname) | window -c @Mail Nickname | unset %temp.mailnick }
delete { mailnick -d %temp.mailnick | unset %temp.mailnick }
send mail { sendmail %temp.mailnick | unset %temp.mailnick }
}
menu @Whois {
exit { set %whloc $swlc(@Whois) | window -c @Whois }
}
menu @Help {
exit { window -c @Help }
-
turn off { set %onhelp off }
}
menu @Dictionary {
exit { set %dictloc $swlc(@Dictionary) | window -c @Dictionary }
}