diff -ur --new-file --recursive ircN702/system/Btnetfld.mrc ircN703/system/Btnetfld.mrc

--- ircN702/system/Btnetfld.mrc	Wed Mar 10 19:18:42 1999

+++ $mircdirBtnetfld.mrc Sun Apr  4 19:57:06 1999

@@ -55,9 +55,7 @@

)          if (%bt.mknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl

)          iiecho ' $+ $str(-,25) $+ '

)        }

-        remini $2 botnet messages

-        remini $2 botnet mtime

-        return

+        writeini -n $2 botnet messages 0

)      }

)      writeini -n $2 botnet mtime $ticks

)    }

@@ -103,9 +101,7 @@

)          if (%bt.jknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl

)          iiecho ' $+ $str(-,25) $+ '

)        }

-        remini $2 botnet jtime

-        remini $2 botnet joins

-        return

+        writeini -n $2 botnet joins 0

)      }

)      writeini -n $2 botnet jtime $ticks

)    }

@@ -144,9 +140,7 @@

)        if (%bt.nknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl

)        iiecho ' $+ $str(-,25) $+ '

)      }

-      remini $2 botnet nicks

-      remini $2 botnet ntime

-      return

+      writeini -n $2 botnet nicks 0

)    }

)    writeini -n $2 botnet ntime $ticks

)  }

@@ -184,9 +178,7 @@

)          if (%bt.cknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl

)          iiecho ' $+ $str(-,25) $+ '

)        }

-        remini $2 botnet ctcps

-        remini $2 botnet ctime

-        return

+        writeini -n $2 botnet ctcps 0

)      }

)      writeini -n $2 botnet ctime $ticks

)    } 

@@ -207,8 +199,8 @@

)  set %i.bt.knop 0

)  :start

)  inc %i.bt.knop

-  if ($nopnick($1,%tmp.bt.knop)) {

-    if ($usr($nopnick($1,%tmp.bt.knop)) == $null) set %tmp.bt.knop %tmp.bt.knop $+ $crlf $+ kick $1 $nopnick($1,%i.bt.knop) : $+ $2-

+  if ($rnick($1,%tmp.bt.knop)) {

+    if ($usr($rnick($1,%tmp.bt.knop)) == $null) set %tmp.bt.knop %tmp.bt.knop $+ $crlf $+ kick $1 $rnick($1,%i.bt.knop) : $+ $2-

)    goto start

)  }

)  if (%tmp.bt.knop) .quote %tmp.bt.knop

diff -ur --new-file --recursive ircN702/system/Channel.als ircN703/system/Channel.als

--- ircN702/system/Channel.als	Sat Mar 27 12:59:54 1999

+++ $mircdirChannel.als  Sun Apr  4 19:14:20 1999

@@ -19,34 +19,7 @@

)  }

)  else iecho Syntax: /aj [#channel]

)}

-onjoin {

-  if ($2 !ischan) iecho Syntax: /onjoin +/-<m|n|c> <channel #>

-  elseif ($1 == +m) {

-    writeini -n $td(onjoin.txt) $2 msg $strip($$?="Enter onjoin message for [ $2 ] ")

-    iecho On join to $hc($2) $+ : (msg) $strip($!)

-  }

-  elseif ($1 == -m) {

-    remini $td(onjoin.txt) $2 msg

-    iecho Removed onjoin msg for $hc($2) $+

-  }

-  elseif ($1 == +n) {

-    writeini -n $td(onjoin.txt) $2 notice $strip($$?="Enter onjoin notice for [ $2 ] ")

-    iecho On join to $hc($2) $+ : (notice) $strip($!)

-  }

-  elseif ($1 == -n) {

-    remini $td(onjoin.txt) $2 notice

-    iecho Removed onjoin notice for $hc($2) $+ .

-  }

-  elseif ($1 == +c) {

-    writeini -n $td(onjoin.txt) $2 ctcp $strip($$?="Enter onjoin ctcp for [ $2 ] ")

-    iecho On join to $hc($2) $+ : (ctcp) $strip($!)

-  }

-  elseif ($1 == -c) {

-    remini $td(onjoin.txt) $2 ctcp

-    iecho Removed onjoin ctcp for $hc($2) $+ .

-  }

-  else iecho Syntax: /onjoin <+|-><m|n|c> <#channel>

-}

+ajoin dialog -m ircN.autojoin ircN.autojoin

)at .quote topic # : $+ $chan(#).topic $$1-

)bk {

)  if ($2) .quote kick # $nc($$1) : $+ $2- $+ $crlf $+ mode # +b $address($nc($$1),3)

@@ -164,7 +137,6 @@

)}

)cww cwhowas $1

)cwhowas {

-  inc %cwhois

)  inc %cwhowas

)  .quote whowas $$1

)}

@@ -290,19 +262,19 @@

)    set %i.join 0

)    :start

)    inc %i.join

-    if ($gettok($1,%i.join,44)) {

-      if ($gettok($2,%i.join,44)) writeini -n ircndata.ini channel-keys $gettok($1,%i.join,44) $gettok($2,%i.join,44)

-      if ($chn-key($gettok($1,%i.join,44))) .quote join $gettok($1,%i.join,44) $chn-key($gettok($1,%i.join,44))

-      .quote join $gettok($1,%i.join,44) $chn-key($gettok($1,%i.join,44))

+    if (#$gettok($1,%i.join,44)) {

+      if ($gettok($2,%i.join,44)) writeini -n ircndata.ini channel-keys #$gettok($1,%i.join,44) $gettok($2,%i.join,44)

+      if ($chn-key(#$gettok($1,%i.join,44))) .quote join #$gettok($1,%i.join,44) $chn-key(#$gettok($1,%i.join,44))

+      else .quote join #$gettok($1,%i.join,44)

)      goto start

)    }

)    set %jointime $ticks

)  }

)  elseif (#$1) {

-    if ($2) writeini -n ircndata.ini channel-keys $1 $2

+    if ($2) writeini -n ircndata.ini channel-keys #$1 $2

)    set %jointime $ticks

-    if ($chn-key($1)) .quote join $1 $chn-key($1)

-    else .quote join $1

+    if ($chn-key(#$1)) .quote join #$1 $chn-key(#$1)

+    else .quote join #$1

)  }

)}

)kick {

@@ -325,8 +297,8 @@

)    set %i.knop 0

)    :start

)    inc %i.knop

-    if ($nopnick($1,%i.knop)) {

-      set %tmp.knop %tmp.knop $+ $crlf $+ kick $1 $nopnick($1,%i.knop) : $+ $iif($2,$2-,nonop kick)

+    if ($rnick($1,%i.knop)) {

+      set %tmp.knop %tmp.knop $+ $crlf $+ kick $1 $rnick($1,%i.knop) : $+ $iif($2,$2-,nonop kick)

)      goto start

)    }

)    if (%tmp.knop) .quote %tmp.knop

@@ -341,8 +313,8 @@

)    set %i.knop 0

)    :start

)    inc %i.knop

-    if ($nopnick(#,%i.knop)) {

-      set %tmp.knop %tmp.knop $+ $crlf $+ kick # $nopnick(#,%i.knop) : $+ $iif($1,$1-,nonop kick)

+    if ($rnick(#,%i.knop)) {

+      set %tmp.knop %tmp.knop $+ $crlf $+ kick # $rnick(#,%i.knop) : $+ $iif($1,$1-,nonop kick)

)      goto start

)    }

)    if (%tmp.knop) .quote %tmp.knop

@@ -545,6 +517,34 @@

)}

)nwall nn $1-

)on wall $1-

+onjoin {

+  if ($2 !ischan) iecho Syntax: /onjoin +/-<m|n|c> <channel #>

+  elseif ($1 == +m) {

+    writeini -n $td(onjoin.txt) $2 msg $strip($$?="Enter onjoin message for [ $2 ] ")

+    iecho On join to $hc($2) $+ : (msg) $strip($!)

+  }

+  elseif ($1 == -m) {

+    remini $td(onjoin.txt) $2 msg

+    iecho Removed onjoin msg for $hc($2) $+

+  }

+  elseif ($1 == +n) {

+    writeini -n $td(onjoin.txt) $2 notice $strip($$?="Enter onjoin notice for [ $2 ] ")

+    iecho On join to $hc($2) $+ : (notice) $strip($!)

+  }

+  elseif ($1 == -n) {

+    remini $td(onjoin.txt) $2 notice

+    iecho Removed onjoin notice for $hc($2) $+ .

+  }

+  elseif ($1 == +c) {

+    writeini -n $td(onjoin.txt) $2 ctcp $strip($$?="Enter onjoin ctcp for [ $2 ] ")

+    iecho On join to $hc($2) $+ : (ctcp) $strip($!)

+  }

+  elseif ($1 == -c) {

+    remini $td(onjoin.txt) $2 ctcp

+    iecho Removed onjoin ctcp for $hc($2) $+ .

+  }

+  else iecho Syntax: /onjoin <+|-><m|n|c> <#channel>

+}

)op mmode # + o $1-

)p .quote part # $1-

)rban {

diff -ur --new-file --recursive ircN702/system/Npopup.pop ircN703/system/Npopup.pop

--- ircN702/system/Npopup.pop	Thu Mar 11 16:03:08 1999

+++ $mircdirNpopup.pop   Sun Apr  4 16:07:26 1999

@@ -36,7 +36,6 @@

)..kb { fkb $address($1,2) }

)..kick { fk $address($1,2) }

)..nick { fnk $$?="Enter nick string" }

-.kick nonops { knop }

)invite { invite $1 $$?="Enter channel to invite to" }

)-

)mass

@@ -53,6 +52,7 @@

)  }

)  .quote %tmp

)}

+.$iif($me isop #,kick nonops) { knop }

).$iif(o isin $usermode,kill) {

)  set %tmp.mk $$?="Enter reason"

)  unset %tmp

diff -ur --new-file --recursive ircN702/system/Stats.als ircN703/system/Stats.als

--- ircN702/system/Stats.als	Mon Mar 29 15:38:38 1999

+++ $mircdirStats.als    Sun Apr  4 19:09:06 1999

@@ -188,7 +188,7 @@

)  set %portnum 0

)  stats l %pserver

)}

-scriptinfo .load -rs scriptinfo.mrc

+scriptinfo dialog -m ircN.scriptinfo ircN.scriptinfo

)trace {

)  set %trcnm 0

)  if ($1 != $null) set %trcsvr $1

diff -ur --new-file --recursive ircN702/system/Xdcc.mrc ircN703/system/Xdcc.mrc

--- ircN702/system/Xdcc.mrc	Thu Apr  1 22:46:24 1999

+++ $mircdirXdcc.mrc     Fri Apr  2 15:22:00 1999

@@ -441,7 +441,7 @@

)    :start

)    inc %i

)    if (%i <= %maxslots)  {

-      if (($send(%i)) && ($send(%i).status == active)) aline @Xdcc %i $+ . $fix(10,$send(%i)) $fix(4,$x.file($send(%i).file)) $lfix(5,$kps($send(%i).cps)) $lfix(2,$send(%i).pc) $center(8,$d.s($rsc($duration($div($sub($send(%i).size,$send(%i).sent),$send(%i).cps))))) $center(8,$d.s($rsc($duration($div($send(%i).sent,$send(%i).cps)))))

+      if (($send(%i)) && ($send(%i).status == active)) aline @Xdcc %i $+ . $fix(10,$send(%i)) $fix(4,$x.file($send(%i).file)) $lfix(5,$kps($send(%i).cps)) $lfix(2,$send(%i).pc) $center(8,$rsc($duration($div($sub($send(%i).size,$d.s($send(%i).sent)),$d.s($send(%i).cps))))) $center(8,$rsc($duration($div($d.s($send(%i).sent),$d.s($send(%i).cps)))))

)      elseif ($send(%i)) aline @Xdcc %i $+ . $fix(10,$send(%i)) $fix(4,$x.file($send(%i).file)) $lfix(5,0.00) $lfix(2,0) $str(0,3) $send(%i).status

)      else aline @Xdcc %i $+ . $str( ,7) empty $str( ,10) slot

)      goto start

@@ -457,7 +457,7 @@

)    :start

)    inc %i

)    if (%i <= %maxslots) {

-      if (($send(%i)) && ($send(%i).status == active)) rline @Xdcc $pls(%i,1) %i $+ . $fix(10,$send(%i)) $fix(4,$x.file($send(%i).file)) $lfix(5,$kps($send(%i).cps)) $lfix(2,$send(%i).pc) $center(8,$d.s($rsc($duration($div($sub($send(%i).size,$send(%i).sent),$send(%i).cps))))) $center(8,$d.s($rsc($duration($div($send(%i).sent,$send(%i).cps)))))

+      if (($send(%i)) && ($send(%i).status == active)) rline @Xdcc $pls(%i,1) %i $+ . $fix(10,$send(%i)) $fix(4,$x.file($send(%i).file)) $lfix(5,$kps($send(%i).cps)) $lfix(2,$send(%i).pc) $center(8,$rsc($duration($div($sub($d.s($send(%i).size),$d.s($send(%i).sent)),$d.s($send(%i).cps))))) $center(8,$rsc($duration($div($d.s($send(%i).sent),$d.s($send(%i).cps)))))

)      elseif ($send(%i)) rline @Xdcc $pls(%i,1) %i $+ . $fix(10,$send(%i)) $fix(4,$x.file($send(%i).file)) $lfix(5,0.00) $lfix(2,0) $str( ,3) $send(%i).status

)      else rline @Xdcc $pls(%i,1) %i $+ . $str( ,7) empty $str( ,10) slot

)      goto start

diff -ur --new-file --recursive ircN702/system/addon2.mrc ircN703/system/addon.mrc

--- ircn702\system\addon2.mrc	Wed Mar 31 20:16:40 1999

+++ $mircdiraddon2.mrc   Mon Apr  5 01:20:00 1999

@@ -9,19 +9,6 @@

)  if ($findfile($adn,*.ad2,0) == 0) iecho No addons were found.

)  else dialog -m ircN.addons ircN.addons

)}

-dialog ircN.addons { 

-  title "ircN Addon Central"

-  size -1 -1 370 180

-  box "Not installed", 10, 10 10 140 160

-  list 11, 20 30 120 120, sort

-  text "", 12, 15 145 130 22, center

-  box "Installed", 20, 220 10 140 160

-  list 21, 230 30 120 120, sort

-  text "", 22, 225 145 130 22, center

-  button "->", 31, 160 30 50 25

-  button "&Close", 32, 160 70 50 30, cancel

-  button "<-", 33, 160 115 50 25

-}

)on 1:DIALOG:ircN.addons:*:* {

)  if ($devent == init) {

)    set %i.addons 0

@@ -79,6 +66,10 @@

)    iecho Syntax: /addon2 <filename.ad2>

)    return

)  }

+  if ($isfile($adn($1)) == $false) {

+    iecho Error! File $1 does not exist!

+    return

+  }

)  if ($avar($1,installtitle) == $null) {

)    iecho Error! $1 is an invalid .ad2 file!

)    return

@@ -86,27 +77,6 @@

)  set %ad2.install $1

)  dialog -m ircN.addon2 ircN.addon2

)}

-dialog ircN.addon2 {

-  title "ircN Addon2 Installer"

-  size -1 -1 320 160

-  button "", 1, 0 0 0 0, cancel hide

-  text "", 2, 0 15 320 25, center read

-  text "", 3, 0 35 320 25, center

-  text "", 4, 0 55 320 25, center

-  text "Addon Installer by The Quietust", 5, 0 130 320 25, center

-  box "", 6, 30 75 260 40, center

-  text "", 17, 35 90 250 15, center

-  radio "", 7, 40 90 20 20

-  radio "", 8, 65 90 20 20

-  radio "", 9, 90 90 20 20

-  radio "", 10, 115 90 20 20

-  radio "", 11, 140 90 20 20

-  radio "", 12, 165 90 20 20

-  radio "", 13, 190 90 20 20

-  radio "", 14, 215 90 20 20

-  radio "", 15, 240 90 20 20

-  radio "", 16, 265 90 20 20

-}

)on 1:DIALOG:ircN.addon2:init:* { ad2.inst %ad2.install 0 $dname }

)alias -l ad2.hidebar1 {

)  did -h ircN.addon2 7

@@ -259,6 +229,10 @@

)    iecho Syntax: /unaddon2 <filename.ad2>

)    return

)  }

+  if ($isfile($adn($1)) == $false) {

+    iecho Error! File $1 does not exist!

+    return

+  }

)  if ($avar($1,uninstalltitle) == $null) {

)    iecho Error! $1 is an invalid .ad2 file!

)    return

@@ -266,24 +240,6 @@

)  set %ad2.uninstall $1

)  dialog -m ircN.unaddon2 ircN.unaddon2

)}

-dialog ircN.unaddon2 {

-  title "ircN Addon2 Uninstaller"

-  size -1 -1 320 160

-  button "", 1, 0 0 0 0, cancel hide

-  text "Sample uninstall title here", 2, 0 15 320 25, center

-  text "Sample uninstall text1 here", 3, 0 35 320 25, center

-  text "Sample uninstall text2 here", 4, 0 55 320 25, center

-  text "Addon Uninstaller by The Quietust", 5, 0 130 320 25, center

-  box "", 6, 30 75 260 40, center

-  text "", 14, 35 90 250 15, center

-  radio "", 7, 50 90 20 20

-  radio "", 8, 84 90 20 20

-  radio "", 9, 118 90 20 20

-  radio "", 10, 152 90 20 20

-  radio "", 11, 186 90 20 20

-  radio "", 12, 220 90 20 20

-  radio "", 13, 254 90 20 20

-}

)on 1:DIALOG:ircN.unaddon2:init:* { ad2.uninst %ad2.uninstall 0 $dname }

)alias -l ad2.hidebar2 {

)  did -h ircN.unaddon2 7

@@ -393,15 +349,7 @@

)    else dialog -m themes themes

)  }

)}

-dialog themes {

-  title "ircN 7 Theme Manager"

-  size -1 -1 250 150

-  box "Themes available", 1, 10 10 160 125

-  list 2, 20 30 140 95, size

-  button "&Load", 10, 180 35 60 30, ok

-  button "E&xit", 20, 180 85 60 30, cancel

-}

-on 1:DIALOG:themes:*:* {

+on 1:DIALOG:ircN.themes:*:* {

)  if ($devent == init) {

)    set %i 0

)    :start

diff -ur --new-file --recursive ircN702/system/bckgrnd.als ircN703/system/bckgrnd.als

--- ircN702/system/bckgrnd.als	Thu Apr  1 23:18:56 1999

+++ $mircdirbckgrnd.als  Sat Apr  3 11:06:16 1999

@@ -486,9 +486,9 @@

)  }

)}

)verset {

-  set %iver ircN 7.02

+  set %iver ircN 7.03

)  if (%iver !isin %ver) {

-    if ((ircN isin %ver) && (%ver != %iver)) set %ver %iver + $remove(%ver,ircN,7.02)

+    if ((ircN isin %ver) && (%ver != %iver)) set %ver %iver + $remove(%ver,ircN,7.03)

)    else set %ver %iver + %ver

)  }

)  set %irc2.ver irc2 v3.0

diff -ur --new-file --recursive ircN702/system/client.als ircN703/system/client.als

--- ircN702/system/client.als	Fri Apr  2 11:24:46 1999

+++ $mircdirclient.als   Sun Apr  4 20:57:54 1999

@@ -50,6 +50,10 @@

)  .timer 0 %it msg %idlechan %im

)  set %idlectimer $ltimer

)}

+auto {

+  iecho Please do not attempt to use /auto for adding people to auto-op.

+  iecho Instead, add the user to your userlist and use the flag +a.

+}

)av {

)  if (%aver) say ircN - [ver $+ $gettok(%ver,2,32) $+ ] - $nv($1) - [ $avconv(%aver) ] -

)  else iecho No addons were detected.

@@ -88,6 +92,7 @@

)    tb

)  }

)}

+awaysettings dialog -m ircN.awaysettings ircN.awaysettings

)back {

)  if ($away) {

)    if ($1 != $null) set %tmp.back , $b($1-)

@@ -122,16 +127,8 @@

)  .copy $iif(%i.backup,-o) *.pop %dir $+ \backup\

)  iecho Backup complete.

)}

-cF1 {

-  if (%cloak == on) {

-    set %cloak off

-    iecho CTCP cloaking has been disabled.

-  }

-  else {

-    set %cloak on

-    iecho CTCP cloaking has been enabled.

-  }

-}

+btnetfld dialog -m ircN.btnetfld ircN.btnetfld

+cF1 cloaksettings

)cF2 if (%cf2cmd) %cf2cmd

)cF3 if (%cf3cmd) %cf3cmd

)cF5 if (%cf5cmd) %cf5cmd

@@ -142,6 +139,7 @@

)cF10 close -s

)cF11 close -m

)cF12 whois %lsmsg

+cloaksettings dialog -m ircN.cloaksettings ircN.cloaksettings

)cls clear

)color {

)  unset %tmp.color

@@ -222,6 +220,7 @@

)  if (($sock(remote.*,0)) && ($1) && (@iTelnet.* !iswm $1)) rc.relay $1-

)  echo $ansi2mirc($1-)

)}

+echosettings dialog -m ircN.echosettings ircN.echosettings

)exit {

)  if ($1 == -y) {

)    if ($2) exit $2-

@@ -232,7 +231,7 @@

)    else exit $read -n $td(quotes.txt)

)  }

)}

-F1 winhelp ircN.hlp

+F1 help

)F2 {

)  if ((@irc* * iswm $active) && (%i2.msgbind)) editbox -ap %i2.msgbind

)  elseif (($active ischan) && ($nc($editbox($active)) != $null)) editbox -ap $ncomp($nc($editbox($active)))

@@ -300,7 +299,8 @@

)}

)F11 if (%f11cmd) %f11cmd | elseif (%kkchan) %kkchan

)F12 if (%f12cmd) %f12cmd | elseif (%kchan) %kchan

-help F1

+fldprot dialog -m ircN.fldprot ircN.fldprot

+help winhelp ircN.hlp $1-

)idos {

)  if ($1 != $null) {

)    if (\ !isin $1) set %dir.path $left($mircdir,3) $+ $1

@@ -408,6 +408,7 @@

)  }

)  else load $1-

)}

+loadsettings dialog -m ircN.loadsettings ircN.loadsettings

)lset {

)  if ($1 != $null) set %person $1

)  else {

@@ -420,6 +421,7 @@

)  }

)  else .play -ctloadsettings %person $td(util.txt) 0

)}

+mail dialog -m ircN.pop3 ircN.pop3

)mailnick {

)  if (($1 == -v) && ($2)) {

)    if ($mail.nick($2) != yes) { iecho $2 is not an email nickname. | return }

@@ -539,6 +541,7 @@

)  tsound gotmsg

)}

)mdel {

+  if ($a.nknum($1) == $null) return

)  if ($a.msgno($a.nknum($1)) == messages) aline @Messages %h Messages for $hc($a.nknum($1)) were deleted @ $a.addy($a.nknum($1)) $+ .

)  elseif (($1 > $a.numnk) || ($1 == $null)) aline @Messages %h No such nick in message index. Total Nicks: $b($a.numnk)

)  else {

@@ -557,6 +560,7 @@

)  .splay $nopath(%midi)

)  iecho ircN - [midi: $+ $nopath(%midi) $+ / $+ size: $+ $alof($lof(%midi)) $+ ] -

)}

+miscsettings dialog -m ircN.miscsettings ircN.miscsettings

)offer {

)  set %numpacks $$?="Number of Packs"

)  set %i.offer 0

@@ -569,7 +573,7 @@

)    set %file [ $+ [ %i.offer ] ] $$dir="File for pack [ %i.offer ] " *.*

)    goto start

)  }

-  set %showsum $$?="Show summary line? (y|n)"

+  set %showsum $$?="Show summary line? (on/off)"

)  iecho Xdcc offer has been set.

)  set %record 0

)  set %lrecord 0

@@ -641,6 +645,22 @@

)    tsound seemsg

)  }

)}

+sendmail {

+  if ($1 == $null) {

+    iecho Syntax: /sendmail <email address> [subject]

+    return

+  }

+  unset %rcpt %subj

+  set %rcpt $1

+  if ($2) set %subj $2-

+  else set %subj Re:

+  dialog -m ircN.smtp ircN.smtp

+}

+server {

+  if ($left($1,1) == +) irc2 $getleft($1) $2-

+  else server $1-

+}

+servers dialog -m ircN.servers ircN.servers

)setpop {

)  set %account $$?="Enter a name for this account"

)  set %tmp.setpop $?!="Make this your default account?"

@@ -657,7 +677,6 @@

)  }

)  set %mailaccounts $addtok(%mailaccounts,%account,44)

)  iecho $hc(POP3) mail setup successful.

-  .load -rs ircNmail.mrc

)}

)setsmtp {

)  set %smailip $$?="Enter SMTP server address"

@@ -666,6 +685,7 @@

)  set %signature $dir="Location of signature file (cancel for none)" \

)  iecho $hc(SMTP) mail setup successful.

)}

+setupsettings dialog -m ircN.setupsettings ircN.setupsettings

)sF1 run command.com

)sF2 run explorer.exe

)sF3 if (%sf3cmd) %sf3cmd

@@ -709,10 +729,13 @@

)  }

)  else iecho Syntax: /telnet <host> [port]

)}

+themesettings dialog -m ircN.themesettings ircN.themesettings

)tv {

)  if (%theme == on) say ircN - [ver $+ $gettok(%ver,2,32) $+ ] - $nv($1) - [ $themefn ] -

)  else iecho No theme loaded.

)}

+userprot dialog -m ircN.userprot ircN.userprot

+usersettings dialog -m ircN.usersettings ircN.usersettings

)quit {

)  if ($1 != $null) quit $1-

)  else quit $read -n $td(quotes.txt)

@@ -728,6 +751,12 @@

)  else set %wav $$dir="Select a WAV file to play" $wavedir*.wav

)  .splay $nopath(%wav)

)  iecho ircN - [wav: $+ $nopath(%wav) $+ / $+ size: $+ $alof($lof(%wav)) $+ ] -

+}

+viewfile {

+  if ($1) {

+    set %viewfile $1

+    dialog -m ircN.viewfile ircN.viewfile

+  }

)}

)wholeft {

)  set %i.wholeft 0

diff -ur --new-file --recursive ircN702/system/ctcps.mrc ircN703/system/ctcps.mrc

--- ircN702/system/ctcps.mrc	Tue Mar 30 16:52:18 1999

+++ $mircdirctcps.mrc    Sun Apr  4 21:04:14 1999

@@ -136,7 +136,7 @@

)  if (%pager == on) {

)    if ($2) write $td(page.txt) $nick $address $adate $atime $2-

)    else write $td(page.txt) $nick $address $adate $atime (no message)

-    if ($away) qnotice $nick Your page has been received, away for $gone ( $+ $bld(%awaymsg) $+ ) $e-mail($email)

+    if ($away) qnotice $nick Your page has been received, away for $gone ( $+ $b(%awaymsg) $+ ) $e-mail($email)

)    else qnotice $nick Your page has been received.

)    tb

)    if ((%theme.page == on) && (%theme == on)) tsound page

@@ -148,21 +148,19 @@

)  }

)}

)CTCP 1:ADDON:* {

-  haltdef

)  if ($nick != $me) {

)    set %lastnick $nick

)    set %ctcprec [ $+ $nick $+ ( $+ $address $+ ) $+ $chan $+ ] $1-

)  }

-  if ((%cloak == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

+  if ((%cloak.addon == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

)  if (%aver) .ctcpreply $nick ADDON %ver for mIRC - [ $avconv(%aver) ] -

)}

)CTCP 1:PING:* {

-  haltdef

)  if ($nick != $me) {

)    set %lastnick $nick

)    set %ctcprec [ $+ $nick $+ ( $+ $address $+ ) $+ $chan $+ ] $1

)  }

-  if ((%cloak == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

+  if ((%cloak.ping == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

)  .ctcpreply $nick PING $2-

)}

)ctcp 1:SOUND:* {

@@ -176,35 +174,31 @@

)  }

)}

)CTCP 1:VERSION:* {

-  haltdef

)  if ($nick != $me) {

)    set %lastnick $nick

)    set %ctcprec [ $+ $nick $+ ( $+ $address $+ ) $+ $chan $+ ] $1-

)  }

-  if ((%cloak == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

+  if ((%cloak.version == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

)  .ctcpreply $nick VERSION %ver - $read -n $td(quotes.txt) -

)}

)CTCP 1:FINGER:* {

-  haltdef

)  if ($nick != $me) {

)    set %lastnick $nick

)    set %ctcprec [ $+ $nick $+ ( $+ $address $+ ) $+ $chan $+ ] $1-

)  }

-  if ((%cloak == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

+  if ((%cloak.finger == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

)  .ctcpreply $nick FINGER $readini -n mirc.ini mirc user ( $+ $readini -n mirc.ini mirc email $+ ) Idle $idle seconds $paren( [ $readini -n mirc.ini text finger ] )

)}

)CTCP 1:TIME:* {

-  haltdef

)  if ($nick != $me) {

)    set %lastnick $nick

)    set %ctcprec [ $+ $nick $+ ( $+ $address $+ ) $+ $chan $+ ] $1-

)  }

-  if ((%cloak == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

+  if ((%cloak.time == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) return

)  .ctcpreply $nick TIME $fulldate

)}

)CTCP 1:*:* {

-  haltdef

-  if ($1- == $null) halt

+  if ($1 == DCC) return

)  if ($nick != $me) {

)    set %lastnick $nick

)    set %ctcprec [ $+ $nick $+ ( $+ $address $+ ) $+ $chan $+ ] $1-

diff -ur --new-file --recursive ircN702/system/dialogs.mrc ircN703/system/dialogs.mrc

--- ircN702/system/dialogs.mrc	Thu Jan  1 00:00:00 1970

+++ $mircdirdialogs.mrc  Sun Apr  4 20:49:38 1999

@@ -0,0 +1,734 @@

+dialog ircN.fldprot {

+  title "ircN Channel Protection Settings"

+  size -1 -1 225 310

+  check "Enable Channel Protection", 3, 20 5 150 22

+  combo 5, 20 30 185 150, drop

+  box "Text Flood", 20, 10 60 205 165

+  check "Enabled", 21, 20 75 100 22

+  text "Channels:", 22, 38 103 50 22

+  edit "", 23, 90 100 115 22, autohs

+  text "Maximum lines:", 24, 38 128 90 22

+  edit "", 25, 135 125 70 22

+  text "Maximum lines/sec:", 26, 38 153 95 22

+  edit "", 27, 135 150 70 22

+  text "Kick message:", 28, 38 178 70 22

+  edit "", 29, 115 175 90 22, autohs

+  check "Ban", 30, 20 200 40 22

+  check "Kick ops", 31, 65 200 65 22

+  check "Kick users", 32, 130 200 75 22

+  box "Join Flood", 40, 10 60 205 165

+  check "Enabled", 41, 20 75 100 22

+  text "Channels:", 42, 38 103 50 22

+  edit "", 43, 90 100 115 22, autohs

+  text "Maximum joins:", 44, 38 128 90 22

+  edit "", 45, 135 125 70 22

+  text "Maximum joins/sec:", 46, 38 153 95 22

+  edit "", 47, 135 150 70 22

+  text "Kick message:", 48, 38 178 70 22

+  edit "", 49, 115 175 90 22, autohs

+  check "Ban", 50, 20 200 40 22

+  check "Kick users", 51, 130 200 75 22

+  box "Nick Flood", 60, 10 60 205 165

+  check "Enabled", 61, 20 75 100 22

+  text "Channels:", 62, 38 103 50 22

+  edit "", 63, 90 100 115 22, autohs

+  text "Maximum nicks:", 64, 38 128 90 22

+  edit "", 65, 135 125 70 22

+  text "Maximum nick/sec:", 66, 38 153 95 22

+  edit "", 67, 135 150 70 22

+  text "Kick message:", 68, 38 178 70 22

+  edit "", 69, 115 175 90 22, autohs

+  check "Ban", 70, 20 200 40 22

+  check "Kick ops", 71, 65 200 65 22

+  check "Kick users", 72, 130 200 75 22

+  box "Mass Kick", 80, 10 60 205 165

+  check "Enabled", 81, 20 75 100 22

+  text "Channels:", 82, 38 103 50 22

+  edit "", 83, 90 100 115 22, autohs

+  text "Maximum kicks:", 84, 38 128 90 22

+  edit "", 85, 135 125 70 22

+  text "Maximum kick/sec:", 86, 38 153 95 22

+  edit "", 87, 135 150 70 22

+  text "Kick message:", 88, 38 178 70 22

+  edit "", 89, 115 175 90 22, autohs

+  check "Ban", 90, 20 200 40 22

+  check "Kick users", 91, 130 200 75 22

+  box "Mass Deop", 100, 10 60 205 165

+  check "Enabled", 101, 20 75 100 22

+  text "Channels:", 102, 38 103 50 22

+  edit "", 103, 90 100 115 22, autohs

+  text "Maximum deops:", 104, 38 128 90 22

+  edit "", 105, 135 125 70 22

+  text "Maximum deop/sec:", 106, 38 153 96 22

+  edit "", 107, 135 150 70 22

+  text "Kick message:", 108, 38 178 70 22

+  edit "", 109, 115 175 90 22, autohs

+  check "Ban", 110, 20 200 40 22

+  check "Kick users", 111, 130 200 75 22

+  box "Caps Flood", 120, 10 60 205 190

+  check "Enabled", 121, 20 75 100 22

+  text "Channels:", 122, 38 103 50 22

+  edit "", 123, 90 100 115 22, autohs

+  text "Maximum lines:", 124, 38 128 90 22

+  edit "", 125, 135 125 70 22

+  text "Maximum lines/sec:", 126, 38 153 95 22

+  edit "", 127, 135 150 70 22

+  text "Minimum % caps:", 128, 38 178 95 22

+  edit "", 129, 135 175 70 22

+  text "Kick message:", 130, 38 203 70 22

+  edit "", 131, 115 200 90 22, autohs

+  check "Ban", 132, 20 225 40 22

+  check "Kick ops", 133, 65 225 65 22

+  check "Kick users", 134, 130 225 75 22

+  box "Ascii Flood", 140, 10 60 205 190

+  check "Enabled", 141, 20 75 100 22

+  text "Channels:", 142, 38 103 50 22

+  edit "", 143, 90 100 115 22, autohs

+  text "Maximum lines:", 144, 38 128 90 22

+  edit "", 145, 135 125 70 22

+  text "Maximum lines/sec:", 146, 38 153 95 22

+  edit "", 147, 135 150 70 22

+  text "Minimum % ascii:", 148, 38 178 95 22

+  edit "", 149, 135 175 70 22

+  text "Kick message:", 150, 38 203 70 22

+  edit "", 151, 115 200 90 22, autohs

+  check "Ban", 152, 20 225 40 22

+  check "Kick ops", 153, 65 225 65 22

+  check "Kick users", 154, 130 225 75 22

+  box "Repeat Flood", 160, 10 60 205 190

+  check "Enabled", 161, 20 75 100 22

+  text "Channels:", 162, 38 103 50 22

+  edit "", 163, 90 100 115 22, autohs

+  text "Maximum lines:", 164, 38 128 90 22

+  edit "", 165, 135 125 70 22

+  text "Maximum lines/sec:", 166, 38 153 95 22

+  edit "", 167, 135 150 70 22

+  text "Minimum length:", 168, 38 178 95 22

+  edit "", 169, 135 175 70 22

+  text "Kick message:", 170, 38 203 70 22

+  edit "", 171, 115 200 90 22, autohs

+  check "Ban", 172, 20 225 40 22

+  check "Kick ops", 173, 65 225 65 22

+  check "Kick users", 174, 130 225 75 22

+  box "ServerOp Protection", 180, 10 60 205 70

+  check "Enabled", 181, 20 75 100 22

+  text "Channels:", 182, 38 103 50 22

+  edit "", 183, 90 100 115 22, autohs

+  button "&OK", 1, 10 265 60 30, ok default

+  button "&Cancel", 2, 80 265 65 30, cancel

+  button "&Apply", 4, 155 265 60 30, disabled

+}

+dialog ircN.userprot {

+  title "ircN Flood Protection Settings"

+  size -1 -1 440 485

+  check "Enable Flood Protection", 3, 20 5 150 22

+  box "Message Flood", 10, 10 30 205 200

+  check "Enabled", 11, 20 45 100 22

+  text "User:	Max Messages", 12, 20 73 135 22

+  edit "", 13, 155 70 50 22

+  text "	Max Messages/sec", 14, 20 98 135 22

+  edit "", 15, 155 95 50 22

+  text "	Ignore Time (sec)", 16, 20 123 135 22

+  edit "", 17, 155 120 50 22

+  text "Total:	Max Messages", 18, 20 148 135 22

+  edit "", 19, 155 145 50 22

+  text "	Max Messages/sec", 20, 20 173 135 22

+  edit "", 21, 155 170 50 22

+  text "	Ignore Time (sec)", 22, 20 198 135 22

+  edit "", 23, 155 195 50 22

+  box "CTCP Flood", 30, 10 235 205 200

+  check "Enabled", 31, 20 250 100 22

+  text "User:	Max CTCPs", 32, 20 278 135 22

+  edit "", 33, 155 275 50 22

+  text "	Max CTCPs/sec", 34, 20 303 135 22

+  edit "", 35, 155 300 50 22

+  text "	Ignore Time (sec)", 36, 20 328 135 22

+  edit "", 37, 155 325 50 22

+  text "Total:	Max CTCPs", 38, 20 353 135 22

+  edit "", 39, 155 350 50 22

+  text "	Max CTCPs/sec", 40, 20 378 135 22

+  edit "", 41, 155 375 50 22

+  text "	Ignore Time (sec)", 42, 20 403 135 22

+  edit "", 43, 155 400 50 22

+  box "Notice Flood", 50, 225 30 205 200

+  check "Enabled", 51, 235 45 100 22

+  text "User:	Max Notices", 52, 235 73 135 22

+  edit "", 53, 370 70 50 22

+  text "	Max Notices/sec", 54, 235 98 135 22

+  edit "", 55, 370 95 50 22

+  text "	Ignore Time (sec)", 56, 235 123 135 22

+  edit "", 57, 370 120 50 22

+  text "Total:	Max Notices", 58, 235 148 135 22

+  edit "", 59, 370 145 50 22

+  text "	Max Notices/sec", 60, 235 173 135 22

+  edit "", 61, 370 170 50 22

+  text "	Ignore Time (sec)", 62, 235 198 135 22

+  edit "", 63, 370 195 50 22

+  box "Invite Flood", 70, 225 235 205 200

+  check "Enabled", 71, 235 250 100 22

+  text "User:	Max Invites", 72, 235 278 135 22

+  edit "", 73, 370 275 50 22

+  text "	Max Invites/sec", 74, 235 303 135 22

+  edit "", 75, 370 300 50 22

+  text "	Ignore Time (sec)", 76, 235 328 135 22

+  edit "", 77, 370 325 50 22

+  text "Total:	Max Invites", 78, 235 353 135 22

+  edit "", 79, 370 350 50 22

+  text "	Max Invites/sec", 80, 235 378 135 22

+  edit "", 81, 370 375 50 22

+  text "	Ignore Time (sec)", 82, 235 403 135 22

+  edit "", 83, 370 400 50 22

+  button "&OK", 1, 225 445 60 30, ok default

+  button "&Cancel", 2, 295 445 65 30, cancel

+  button "&Apply", 4, 370 445 60 30, disabled

+}

+dialog ircN.btnetfld {

+  title "ircN Botnet Flood Protection Settings"

+  size -1 -1 440 415

+  check "Enable Botnet Flood Protection", 3, 20 5 170 22

+  box "Join Flood", 10, 10 30 205 165

+  check "Enabled", 11, 20 45 100 22

+  text "Channels:", 12, 38 73 50 22

+  edit "", 13, 90 70 115 22, autohs

+  text "Maximum joins:", 14, 38 98 90 22

+  edit "", 15, 135 95 70 22

+  text "Maximum delay:", 16, 38 123 95 22

+  edit "", 17, 135 120 70 22

+  text "Kick message:", 18, 38 148 70 22

+  edit "", 19, 115 145 90 22, autohs

+  check "Set +i", 20, 20 170 50 22

+  check "Kick nonops", 21, 125 170 80 22

+  box "Message Flood", 30, 10 200 205 165

+  check "Enabled", 31, 20 215 100 22

+  text "Channels:", 32, 38 243 50 22

+  edit "", 33, 90 240 115 22, autohs

+  text "Maximum messages:", 34, 38 268 97 22

+  edit "", 35, 135 265 70 22

+  text "Maximum delay:", 36, 38 293 95 22

+  edit "", 37, 135 290 70 22

+  text "Kick message:", 38, 38 318 70 22

+  edit "", 39, 115 315 90 22, autohs

+  check "Set +m", 40, 20 340 55 22

+  check "Kick nonops", 41, 125 340 80 22

+  box "Nick Flood", 50, 225 30 205 165

+  check "Enabled", 51, 235 45 100 22

+  text "Channels:", 52, 253 73 50 22

+  edit "", 53, 305 70 115 22, autohs

+  text "Maximum nicks:", 54, 253 98 90 22

+  edit "", 55, 350 95 70 22

+  text "Maximum delay:", 56, 253 123 95 22

+  edit "", 57, 350 120 70 22

+  text "Kick message:", 58, 253 148 70 22

+  edit "", 59, 330 145 90 22, autohs

+  check "Set +i", 60, 235 170 50 22

+  check "Kick nonops", 61, 340 170 80 22

+  box "CTCP Flood", 70, 225 200 205 165

+  check "Enabled", 71, 235 215 100 22

+  text "Channels:", 72, 253 243 50 22

+  edit "", 73, 305 240 115 22, autohs

+  text "Maximum CTCPs:", 74, 253 268 90 22

+  edit "", 75, 350 265 70 22

+  text "Maximum delay:", 76, 253 293 95 22

+  edit "", 77, 350 290 70 22

+  text "Kick message:", 78, 253 318 70 22

+  edit "", 79, 330 315 90 22, autohs

+  check "Set +m", 80, 235 340 55 22

+  check "Kick nonops", 81, 340 340 80 22

+  button "&OK", 1, 225 375 60 30, ok default

+  button "&Cancel", 2, 295 375 65 30, cancel

+  button "&Apply", 4, 370 375 60 30, disabled

+}

+dialog ircN.miscsettings {

+  title "ircN Miscellaneous Settings"

+  size -1 -1 330 405

+  box "Miscellaneous", 10, 10 10 175 345

+  check "Accept Sound requests", 11, 20 25 150 20

+  check "Copy IP on DNS", 12, 20 50 150 20

+  check "Raw Reveal", 13, 20 75 150 20

+  check "Script Theme", 14, 20 100 150 20

+  check "Kick on Ban", 15, 20 125 150 20

+  check "Nicklist Colors", 16, 20 150 150 20

+  check "Netsplit Detector", 17, 20 175 150 20

+  check "Splash Screen", 18, 20 200 150 20

+  check "Auto-'Ping me' bot", 19, 20 225 150 20

+  check "Hide 'PING? PONG!'", 20, 20 250 150 20

+  check "Lag Status", 21, 20 275 150 20

+  text "Updated every", 22, 38 303 72 22

+  edit "", 23, 112 300 22 22, autohs

+  text "minute(s)", 24, 135 303 45 22

+  check "Autocycle Mode:", 25, 20 325 100 20

+  edit "", 26, 125 325 40 22, autohs

+  box "Delete Logs...", 60, 195 10 125 100

+  radio "Manual Only", 61, 205 25 80 22, group 

+  radio "On Start", 62, 205 50 80 22

+  radio "On Connect", 63, 205 75 80 22

+  box "DCC options", 70, 195 115 125 240

+  text "Get:", 71, 205 135 80 20

+  radio "Show get dialog", 72, 205 155 100 22, group

+  radio "Auto-accept", 73, 205 180 100 22

+  radio "Ignore all", 74, 205 205 100 22

+  text "Chat:", 75, 205 240 80 20

+  radio "Show chat dialog", 76, 205 260 100 22, group

+  radio "Auto-accept", 77, 205 285 100 22

+  radio "Ignore all", 78, 205 310 100 22

+  button "&OK", 1, 125 365 60 30, ok default

+  button "&Cancel", 2, 195 365 60 30, cancel

+  button "&Apply", 3, 265 365 55 30, disabled

+}

+dialog ircN.usersettings {

+  title "ircN User Settings"

+  size -1 -1 290 320

+  box "Bot Options", 10, 10 10 130 140

+  check "Auto Get Ops", 11, 20 25 110 20

+  check "Auto Op", 12, 20 50 110 20

+  check "Reop Bot", 13, 20 75 110 20

+  check "Voice on Bot Deop", 14, 20 100 110 20

+  check "Auto Pass", 15, 20 125 110 20

+  box "iNotify", 20, 10 155 130 115

+  check "Enabled", 21, 20 170 110 20

+  check "Whois", 22, 30 195 100 20

+  check "Invite", 23, 30 220 100 20

+  check "Show Unknown", 24, 30 245 100 20

+  box "User Access", 30, 150 10 130 65

+  check "Allow User Bans", 31, 160 25 110 20

+  check "Enable CHAN ctcp", 32, 160 50 110 20

+  box "Info Line", 40, 150 80 130 95

+  check "Enabled", 41, 160 95 110 22

+  text "Left Bracket:", 42, 160 123 70 20

+  edit "", 43, 240 120 30 22, autohs

+  text "Right Bracket:", 44, 160 148 70 20

+  edit "", 45, 240 145 30 22, autohs

+  box "Bitch Mode", 50, 150 180 130 90

+  check "Enabled", 51, 160 195 110 20

+  text "Channels:", 52, 160 223 50 20

+  edit "", 53, 215 220 55 22, autohs

+  check "Revenge", 54, 160 245 110 20

+  button "&OK", 1, 80 280 60 30, ok default

+  button "&Cancel", 2, 150 280 60 30, cancel

+  button "&Apply", 3, 220 280 60 30, disabled

+}

+dialog ircN.awaysettings {

+  title "IrcN Away Settings"

+  size -1 -1 355 310

+  box "Main settings", 10, 10 10 200 250

+  check "Message log", 11, 20 25 80 22

+  check "Pager", 12, 20 50 80 22

+  check "Show Email", 13, 20 75 80 22

+  check "Show UIN:", 14, 20 100 80 22

+  edit "", 15, 100 100 60 22, autohs

+  check "Anti-Idle", 16, 20 125 80 22

+  check "Default AutoAway Msg", 17, 20 150 140 22

+  check "Close Queries", 18, 20 175 90 22

+  check "AutoAway", 19, 20 200 80 22

+  text "AwayMsg Chans:", 20, 38 228 85 22

+  edit "", 21, 125 225 75 22, autohs

+  box "Announcer", 30, 220 10 125 250

+  check "Enabled", 31, 230 25 80 22

+  text "Alternative Nicks:", 32, 230 53 90 22

+  edit "", 33, 240 75 80 22, autohs

+  edit "", 34, 240 100 80 22, autohs

+  text "Method:", 35, 230 153 80 22

+  radio "Action", 36, 240 175 80 22

+  radio "Notice", 37, 240 200 80 22

+  radio "Channel", 38, 240 225 80 22

+  button "&Ok", 1, 150 270 60 30, ok default

+  button "&Cancel", 2, 220 270 60 30, cancel

+  button "&Apply", 3, 290 270 55 30, disabled

+}

+dialog ircN.echosettings {

+  title "IrcN Echo Settings"

+  size -1 -1 365 340

+  box "Main settings", 10, 10 10 155 145

+  check "Idle Whois", 11, 20 25 75 22

+  check "Whois Window", 12, 20 50 95 22

+  check "Wallops in Active", 13, 20 75 105 22

+  check "Server Notices in Active", 14, 20 100 135 22

+  check "User Status", 15, 20 125 80 22

+  box "Join Stats", 20, 10 160 155 170

+  check "Enabled", 21, 20 175 70 22

+  check "Show Topic", 22, 38 200 80 22

+  check "Show Totals", 23, 38 225 80 22

+  check "Show Names", 24, 38 250 90 22

+  check "Show Synched", 25, 38 275 95 22

+  check "Show Topic Set", 26, 38 300 100 22

+  box "Clone Scan", 30, 175 10 180 170

+  check "Enabled", 31, 185 25 80 22

+  text "Channels:", 32, 203 53 55 22

+  edit "", 33, 260 50 85 22, autohs

+  check "Kick Ops", 34, 185 75 65 22

+  check "Kick Users", 35, 260 75 75 22

+  text "Protection Level:", 36, 203 103 100 22

+  radio "Echo", 37, 200 125 50 22, group

+  radio "Warn", 38, 260 125 50 22

+  radio "Kick", 39, 200 150 50 22

+  radio "KB", 40, 260 150 50 22

+  box "Clock", 50, 175 185 180 105

+  check "Titlebar", 51, 185 200 80 22

+  text "Every 30 minutes:", 52, 185 228 100 22

+  radio "Channel", 53, 185 250 60 22, group

+  radio "Echo", 54, 250 250 45 22

+  radio "None", 55, 300 250 45 22

+  button "&Ok", 1, 175 300 55 30, ok default

+  button "&Cancel", 2, 240 300 55 30, cancel

+  button "&Apply", 3, 305 300 50 30, disabled

+}

+dialog ircN.loadsettings {

+  title "IrcN Load Settings"

+  size -1 -1 360 230

+  box "Telnet Daemon", 10, 10 10 165 95

+  check "Enabled", 11, 20 25 65 22

+  text "Port:", 12, 100 28 25 22

+  edit "", 13, 125 25 40 22

+  check "Partyline", 14, 20 50 65 22

+  button "Edit MOTD", 15, 100 50 65 22

+  check "Remote Control", 16, 20 75 105 22

+  box "Seen Bot", 20, 10 110 165 70

+  check "Enabled", 21, 20 125 65 22

+  text "Channels:", 22, 38 153 50 22

+  edit "", 23, 90 150 75 22, autohs

+  box "Modules", 30, 185 10 165 95

+  check "ircII Mode", 31, 195 25 75 22

+  check "XDCC", 32, 195 50 55 22

+  check "Chan Dump", 33, 195 75 80 22

+  box "Encrypter", 40, 185 110 165 70

+  check "Enabled", 41, 195 125 65 22

+  text "Password:", 42, 213 153 55 22

+  edit "", 43, 270 150 70 22, autohs

+  button "&Ok", 1, 165 190 55 30, ok default

+  button "&Cancel", 2, 230 190 55 30, cancel

+  button "&Apply", 3, 295 190 55 30, disabled

+}

+dialog ircN.themesettings {

+  title "IrcN Sound Theme Settings"

+  size -1 -1 250 425

+  check "Enable Sound Themes", 4, 20 5 150 20

+  box "Dcc", 10, 10 30 110 120

+  check "Got file", 11, 20 45 60 22

+  check "Sent file", 12, 20 70 65 22

+  check "Chat request", 13, 20 95 90 22

+  check "Send request", 14, 20 120 90 22

+  box "Message Log", 20, 10 155 110 120

+  check "No messages", 21, 20 170 90 22

+  check "Got messages", 22, 20 195 90 22

+  check "Viewing msgs", 23, 20 220 90 22

+  check "Deleted msgs", 24, 20 245 90 22

+  box "Incoming...", 30, 10 280 110 95

+  check "Message", 31, 20 295 75 20

+  check "Notice", 32, 20 320 60 20

+  check "Page", 33, 20 345 60 20

+  box "Client", 40, 130 30 110 95

+  check "Open ircN", 41, 140 45 80 22

+  check "Connect", 42, 140 70 70 22

+  check "Disconnect", 43, 140 95 80 22

+  box "Events", 50, 130 130 110 245

+  check "Netsplit", 51, 140 145 60 22

+  check "Got Kicked", 52, 140 170 90 22

+  check "Change Nick", 53, 140 195 90 22

+  check "Change Topic", 54, 140 220 90 22

+  check "Set Away", 55, 140 245 70 22

+  check "Set Back", 56, 140 270 70 22

+  check "Flood", 57, 140 295 55 22

+  check "Invite", 58, 140 320 55 22

+  check "Split Rejoin", 59, 140 345 90 22

+  button "&Ok", 1, 55 385 55 30, ok default

+  button "&Cancel", 2, 120 385 55 30, cancel

+  button "&Apply", 3, 185 385 55 30, disabled

+}

+dialog ircN.setupsettings {

+  title "IrcN Setup Settings"

+  size -1 -1 595 490

+  box "Idle", 10, 10 10 190 275

+  text "Autoaway Limit:", 11, 20 28 85 22

+  edit "", 12, 100 25 50 22, autohs

+  text "minutes", 13, 155 28 40 22

+  text "Autoaway Cmd:", 14, 20 53 80 22

+  edit "", 15, 100 50 70 22, autohs

+  text "Anti-idle Msg:", 16, 20 78 65 22

+  edit "", 17, 100 75 70 22, autohs

+  text "Anti-idle Delay:", 18, 20 103 75 22

+  edit "", 19, 100 100 50 22, autohs

+  text "minutes", 20, 155 103 40 22

+  box "Monitor", 30, 20 125 170 150

+  check "Enabled", 31, 30 140 60 22

+  check "Kick idlers", 32, 110 140 70 22

+  text "Max:", 33, 30 168 30 22

+  edit "", 34, 60 165 50 22, autohs

+  text "minutes", 35, 115 168 40 22

+  text "Channels:", 36, 30 193 50 22

+  edit "", 37, 80 190 75 22, autohs

+  check "Anti-Idle Scan", 38, 30 215 100 22

+  text "Phrase:", 39, 30 243 40 22

+  edit "", 40, 70 240 110 22, autohs

+  box "Nick Completion", 50, 10 290 190 150

+  check "Enabled", 51, 20 305 65 22

+  text "Left Side:", 52, 20 333 60 22

+  edit "", 53, 90 330 90 22, autohs

+  text "Right Side:", 54, 20 358 60 22

+  edit "", 55, 90 355 90 22, autohs

+  text "Activator:", 56, 20 383 60 22

+  edit "", 57, 90 380 90 22, autohs

+  text "Style:", 58, 20 408 60 22

+  combo 59, 90 405 90 100, drop

+  box "Messages", 60, 210 10 190 150

+  text "Kickban:", 61, 220 28 50 22

+  edit "", 62, 310 25 80 22, autohs

+  text "Anti-Idle Kick:", 63, 220 53 70 22

+  edit "", 64, 310 50 80 22, autohs

+  text "Invite Kick:", 65, 220 78 60 22

+  edit "", 66, 310 75 80 22, autohs

+  text "Mass Kick:", 67, 220 103 60 22

+  edit "", 68, 310 100 80 22, autohs 

+  text "On Banning You:", 69, 220 128 90 22

+  edit "", 70, 310 125 80 22, autohs

+  box "Away", 80, 210 165 190 100

+  text "Away Msg:", 81, 220 183 80 22

+  edit "", 82, 310 180 80 22, autohs

+  text "Back Msg:", 83, 220 208 80 22

+  edit "", 84, 310 205 80 22, autohs

+  text "Page Sound:", 85, 220 233 80 22

+  button "Select", 86, 310 230 80 22

+  box "Channel", 90, 210 270 190 170

+  text "Topic:", 91, 220 288 40 22

+  edit "", 92, 310 285 80 22, autohs

+  text "Wallop:", 93, 220 313 50 22

+  edit "", 94, 310 310 80 22, autohs

+  text "Voice:", 95, 220 338 40 22

+  edit "", 96, 310 335 80 22, autohs

+  text "Nonops:", 97, 220 363 50 22

+  edit "", 98, 310 360 80 22, autohs

+  text "* Modes per Line:", 99, 220 388 85 22

+  edit "", 100, 310 385 80 22, autohs

+  text "* Automatically set upon connection", 101, 220 413 170 22

+  box "User", 110, 410 10 175 150

+  text "Time Zone:", 111, 420 28 60 22

+  edit "", 112, 485 25 90 22, autohs

+  text "User Mode:", 113, 420 53 60 22

+  edit "", 114, 485 50 90 22, autohs

+  check "Highlight Word:", 115, 420 75 95 22

+  edit "", 116, 520 75 55 22, autohs

+  check "Highlight Nickname", 117, 420 100 120 22

+  text "iDOS Directory:", 118, 420 128 80 22

+  button "Select", 119, 510 125 65 22

+  box "Raw", 120, 410 165 175 275

+  text "irc2:", 121, 420 183 25 22

+  text "Primary Nick:", 122, 420 208 70 22

+  edit "", 123, 505 205 70 22, autohs

+  text "Alternate Nick:", 124, 420 233 80 22

+  edit "", 125, 505 230 70 22, autohs

+  check "Auto-rejoin when kicked", 126, 420 255 140 22

+  text "E-mail:", 127, 420 283 30 22

+  button "Add POP3", 128, 455 280 60 22

+  button "Set SMTP", 129, 520 280 55 22

+  text "Mail Nickname:", 130, 420 308 80 22

+  edit "", 131, 505 305 70 22, autohs

+  button "Add", 132, 420 330 40 22

+  button "Remove", 133, 465 330 60 22

+  button "View", 134, 530 330 45 22

+  button "Add", 135, 420 355 40 22

+  button "Rem", 136, 465 355 35 22

+  edit "", 137, 505 355 70 22, autohs

+  text "Def. Telnet port:", 138, 420 383 80 22

+  edit "", 139, 505 380 40 22, autohs

+  check "Local Echo", 140, 420 405 75 22

+  button "Select", 141, 505 405 70 22

+  button "&Ok", 1, 410 450 55 30, ok default

+  button "&Cancel", 2, 470 450 55 30, cancel

+  button "&Apply", 3, 530 450 55 30, disabled

+}

+dialog ircN.pop3 {

+  title "ircN Email Reader"

+  size -1 -1 640 480

+  text "Date:", 1, 10 13 50 22, disabled

+  text "From:", 2, 10 38 50 22, disabled

+  text "Subject:", 3, 10 63 50 22, disabled

+  text "Reply-To:", 4, 10 88 50 22, disabled

+  edit "", 5, 60 10 250 22, read autohs disabled

+  edit "", 6, 60 35 250 22, read autohs disabled

+  edit "", 7, 60 60 250 22, read autohs disabled

+  edit "", 8, 60 85 250 22, read autohs disabled

+  edit "", 9, 10 120 620 342, read multi vsbar autovs disabled

+  list 10, 320 10 250 102, sort disabled

+  button "&Save", 20, 580 10 50 22, disabled

+  button "&Delete", 11, 580 35 50 22, disabled

+  button "&Reply", 12, 580 60 50 22, disabled

+  button "&Exit", 13, 580 85 50 22, cancel

+  text "Profile Name:", 14, 160 253 70 22

+  combo 15, 250 250 100 100, drop edit

+  button "&Connect", 16, 360 250 50 22

+  text "Password:", 17, 160 302 50 22, disabled

+  edit "", 18, 250 300 100 22, disabled pass

+  button "&Send", 19, 360 300 50 22, disabled

+}

+dialog ircN.smtp {

+  title "ircN Email Sender"

+  size -1 -1 640 480

+  text "To:", 1, 10 13 50 22

+  text "Subject:", 2, 10 43 50 22

+  edit "", 3, 60 10 570 22

+  edit "", 4, 60 40 570 22

+  edit "", 5, 10 75 620 358, multi return vsbar autovs

+  button "&Send", 6, 200 445 60 22

+  button "&Cancel", 7, 400 445 60 22, ok

+}

+dialog ircN.viewfile {

+  title "ircN File Viewer"

+  size -1 -1 640 480

+  edit "", 1, 10 10 620 422, read multi vsbar autovs

+  button "&Close", 2, 300 445 60 22, cancel default

+}

+dialog ircN.addons { 

+  title "ircN Addon Central"

+  size -1 -1 370 180

+  box "Not installed", 10, 10 10 140 160

+  list 11, 20 30 120 120, sort

+  text "", 12, 15 145 130 22, center

+  box "Installed", 20, 220 10 140 160

+  list 21, 230 30 120 120, sort

+  text "", 22, 225 145 130 22, center

+  button "->", 31, 160 30 50 25

+  button "&Close", 32, 160 70 50 30, cancel

+  button "<-", 33, 160 115 50 25

+}

+dialog ircN.addon2 {

+  title "ircN Addon2 Installer"

+  size -1 -1 320 160

+  button "", 1, 0 0 0 0, cancel hide

+  text "", 2, 0 15 320 25, center read

+  text "", 3, 0 35 320 25, center

+  text "", 4, 0 55 320 25, center

+  text "Addon Installer by The Quietust", 5, 0 130 320 25, center

+  box "", 6, 30 75 260 40, center

+  text "", 17, 35 90 250 15, center

+  radio "", 7, 40 90 20 20

+  radio "", 8, 65 90 20 20

+  radio "", 9, 90 90 20 20

+  radio "", 10, 115 90 20 20

+  radio "", 11, 140 90 20 20

+  radio "", 12, 165 90 20 20

+  radio "", 13, 190 90 20 20

+  radio "", 14, 215 90 20 20

+  radio "", 15, 240 90 20 20

+  radio "", 16, 265 90 20 20

+}

+dialog ircN.unaddon2 {

+  title "ircN Addon2 Uninstaller"

+  size -1 -1 320 160

+  button "", 1, 0 0 0 0, cancel hide

+  text "", 2, 0 15 320 25, center

+  text "", 3, 0 35 320 25, center

+  text "", 4, 0 55 320 25, center

+  text "Addon Uninstaller by The Quietust", 5, 0 130 320 25, center

+  box "", 6, 30 75 260 40, center

+  text "", 14, 35 90 250 15, center

+  radio "", 7, 50 90 20 20

+  radio "", 8, 84 90 20 20

+  radio "", 9, 118 90 20 20

+  radio "", 10, 152 90 20 20

+  radio "", 11, 186 90 20 20

+  radio "", 12, 220 90 20 20

+  radio "", 13, 254 90 20 20

+}

+dialog ircN.themes {

+  title "ircN 7 Theme Manager"

+  size -1 -1 250 150

+  box "Themes available", 1, 10 10 160 125

+  list 2, 20 30 140 95, size

+  button "&Load", 10, 180 35 60 30, ok

+  button "E&xit", 20, 180 85 60 30, cancel

+}

+dialog ircN.servers {

+  title "ircN server editor"

+  size -1 -1 450 205

+  box "Network:", 2, 10 10 125 55

+  combo 3, 20 30 105 200, drop

+  box "Port:", 4, 10 72 125 55

+  combo 5, 20 92 105 100, drop

+  button "&Update (only in main)", 6, 10 140 125 25

+  box "Server:", 7, 145 10 180 155

+  list 8, 155 30 160 134

+  button "&Connect", 9, 335 15 50 25

+  box "Current Stats:", 10, 335 80 105 118

+  text "", 11, 345 100 90 18

+  text "", 12, 345 115 90 36

+  text "", 13, 345 144 90 18

+  text "", 14, 345 158 90 18

+  text "", 15, 345 174 90 18

+  text "Description:", 16, 10 178 60 50 

+  edit "", 17, 70 174 256 23, read

+  button "&Close", 18, 390 45 50 25, Cancel

+  button "&Refresh", 19, 335 45 50 25

+  button "&irc2", 20, 390 15 50 25

+}

+dialog ircN.autojoin {

+  title "ircN autojoin editor"

+  size -1 -1 360 180

+  box "Autojoin chans", 1, 10 10 120 155

+  list 2, 20 25 100 110

+  button "Remove", 3, 20 130 55 25

+  button "Clear", 4, 80 130 40 25 

+  box "Currently in...", 5, 140 10 120 155

+  list 6, 150 25 100 110

+  button "Add to", 7, 150 130 45 25

+  button "Refresh", 8, 200 130 50 25

+  box "Stats", 9, 270 75 80 90

+  text "", 10, 279 96 60 30

+  text "", 13, 279 118 60 30

+  text "", 14, 279 140 60 30

+  button "&Close", 11, 270 15 80 25, cancel

+  button "&Apply", 12, 270 45 80 25

+}

+dialog ircN.scriptinfo {

+  title "IrcN Script Information"

+  size -1 -1 300 270

+  text "Scripts:", 2, 20 23 80 20

+  combo 3, 65 20 215 200, drop

+  box "Information", 4, 10 55 280 200

+  text "", 5, 20 78 40 22, right

+  text "", 6, 20 103 40 22, right

+  text "", 7, 20 128 40 22, right

+  text "", 8, 20 153 40 22, right

+  text "", 9, 20 178 40 22, right

+  edit "", 10, 65 75 215 22, read autohs

+  edit "", 11, 65 100 215 22, read autohs

+  edit "", 12, 65 125 215 22, read autohs

+  edit "", 13, 65 150 215 22, read autohs

+  edit "", 14, 65 175 215 22, read autohs

+  button "&Close", 1, 125 210 60 30, cancel

+}

+dialog ircN.diff {

+  title "ircN DIFF Patcher"

+  size -1 -1 320 250

+  button "", 1, 130 200 60 30, cancel hide

+  box "ircN Patch Application", 2, 10 10 300 125

+  text "Reading from patch file:", 3, 20 28 116 22, right

+  edit "", 4, 140 25 160 22, read

+  text "Currently parsing at line", 5, 20 53 116 22, right

+  edit "", 6, 140 50 60 22, read

+  text "of", 7, 205 53 30 22, center

+  edit "", 8, 240 50 60 22, read

+  text "Currently patching to file:", 9, 20 78 116 22, right

+  edit "", 10, 140 75 160 22, read

+  text "Currently patching at line", 11, 20 103 116 22, right

+  edit "", 12, 140 100 60 22, read

+  text "of", 13, 205 103 30 22, center

+  edit "", 14, 240 100 60 22, read

+  box "Patch Status", 20, 10 140 300 100

+  text "Original Text:", 21, 20 158 70 22, right

+  edit "", 22, 95 155 205 22, read

+  text "Patch Text:", 23, 20 183 70 22, right

+  edit "", 24, 95 180 205 22, read

+  text "Last Action:", 25, 20 208 70 22, right

+  edit "", 26, 95 205 205 22, read

+}

+dialog ircN.cloaksettings {

+  title "ircN Cloak settings"

+  size -1 -1 220 170

+  check "Cloak Addons", 11, 20 25 120 20

+  check "Cloak Ping", 12, 20 50 120 20

+  check "Cloak Version", 13, 20 75 120 20

+  check "Cloak Finger", 14, 20 100 120 20

+  check "Cloak Time", 15, 20 125 120 20

+  button "&OK", 1, 140 20 60 30, ok default

+  button "&Cancel", 2, 140 70 60 30, cancel

+  button "&Apply", 3, 140 120 60 30, disabled

+}

diff -ur --new-file --recursive ircN702/system/diff2.mrc ircN703/system/diff2.mrc

--- ircN702/system/diff2.mrc	Thu Jan  1 00:00:00 1970

+++ $mircdirdiff2.mrc    Sun Apr  4 21:23:46 1999

@@ -0,0 +1,199 @@

+;%%%%%%%%%%%%%%%%%%%%%%%%

+;script ircN DIFF patcher

+;version 7.1

+;author Quietust

+;email quietust@ircN.org

+;url http://www.ircN.org

+;%%%%%%%%%%%%%%%%%%%%%%%%

+alias diff {

+  unset %diff.*

+  if ($1) set %diff.patchfile $1 

+  else set %diff.patchfile $$dir="ircN Patch Application Procedure" *.dif

+  set %diff.read 1

+  set %diff.hunkoff 1

+  dialog -m ircN.diff ircN.diff

+  did -ra ircN.diff 4 %diff.patchfile

+  did -ra ircN.diff 6 0

+  did -ra ircN.diff 8 $lines(%diff.patchfile)

+  diff.findfile

+}

+alias -l diff.findfile {

+  :loop

+  set %diff.text $read -l [ $+ [ %diff.read ] ] %diff.patchfile

+  if ($gettok(%diff.text,1,32) != +++) {

+    inc %diff.read

+    goto loop

+  }

+  did -ra ircN.diff 26 Found file to be patched

+  if ((%diff.file != $null) && (%diff.reload == yes)) diff.reload

+  set %diff.file $gettok(%diff.text,2,32)

+  if (($alias(%diff.file)) || ($script(%diff.file)))  set %diff.reload yes

+  elseif ($nopath(%diff.file) == users.mrc) diff.save -ru

+  elseif ($nopath(%diff.file) == vars.mrc) diff.save -rv

+  elseif ($nopath(%diff.file) == spopup.pop) diff.save -ps

+  elseif ($nopath(%diff.file) == cpopup.pop) diff.save -pc

+  elseif ($nopath(%diff.file) == qpopup.pop) diff.save -pq

+  elseif ($nopath(%diff.file) == npopup.pop) diff.save -pn

+  elseif ($nopath(%diff.file) == mpopup.pop) diff.save -pm

+  did -ra ircN.diff 10 %diff.file

+  did -ra ircN.diff 12 0

+  did -ra ircN.diff 14 $lines(%diff.file)

+  if ($exists(%diff.file) == $false) write -c %diff.file

+  diff.findhunk

+}

+alias -l diff.findhunk {

+  :loop

+  set %diff.text $read -nl [ $+ [ %diff.read ] ] %diff.patchfile

+  if ($gettok(%diff.text,1,32) != @@) {

+    inc %diff.read

+    goto loop

+  }

+  did -ra ircN.diff 26 Found patch hunk

+  set %diff.hunkoff $remove($gettok($gettok(%diff.text,3,32),1,44),+)

+  did -ra ircN.diff 12 %diff.hunkoff

+  inc %diff.read

+  diff.patchhunk

+}

+alias -l diff.patchhunk {

+  did -ra ircN.diff 12 %diff.hunkoff

+  did -ra ircN.diff 6 %diff.read

+  set %diff.text $read -nl [ $+ [ %diff.read ] ] %diff.patchfile

+  if ($gettok(%diff.text,1,32) == @@) diff.findhunk

+  elseif ($gettok(%diff.text,1,32) == diff) diff.findfile

+  else {

+    did -ra ircN.diff 22 $read -nl [ $+ [ %diff.hunkoff ] ] %diff.file

+    did -ra ircN.diff 24 $getright(%diff.text)

+    if ($left(%diff.text,1) == -) {

+      did -ra ircN.diff 26 Deleting text...

+      if ($did(ircN.diff,22) != $did(ircN.diff,24)) {

+        did -ra ircN.diff 26 Patch procedure failed! Restore backup files or reinstall.

+        .timer 1 3 dialog -x ircN.diff

+        return

+      }

+      write -dl [ $+ [ %diff.hunkoff ] ] %diff.file

+      dec %diff.hunkoff

+    }

+    elseif ($left(%diff.text,1) == +) {

+      did -ra ircN.diff 26 Inserting text...

+      write -il [ $+ [ %diff.hunkoff ] ] %diff.file $did(ircN.diff,24)

+    }

+    elseif ($left(%diff.text,1) == $chr(41)) {

+      did -ra ircN.diff 26 Verifying original text...

+      if ($did(ircN.diff,22) != $did(ircN.diff,24)) {

+        did -ra ircN.diff 26 Patch procedure failed! Restore backup files or reinstall.

+        .timer 1 3 dialog -x ircN.diff

+        return

+      }

+    }

+    inc %diff.hunkoff

+    inc %diff.read

+    if (%diff.read <= $lines(%diff.patchfile)) .timerdiff 1 0 diff.patchhunk

+    else {

+      if (%diff.reload == yes) diff.reload

+      did -ra ircN.diff 26 Found EOF, Patch applied successfully!

+      .timer 1 3 dialog -x ircN.diff

+    }

+  }

+}

+alias -l diff.load .reload $1 %diff.file

+alias -l diff.save {

+  .save $1 %diff.file

+  set %diff.reload yes

+}

+alias -l diff.reload {

+  unset %diff.reload

+  if ($right(%diff.file,4) == .als) diff.load -a

+  elseif (($right(%diff.file,4) == .mrc) || ($right(%diff.file,4) == .gui)) {

+    if ($nopath(%diff.file) == users.mrc) diff.load -ru

+    elseif ($nopath(%diff.file) == vars.mrc) diff.load -rv

+    else diff.load -rs

+  }

+  elseif ($right(%diff.file,9) == popup.pop) {

+    if ($nopath(%diff.file) == spopup.pop) diff.load -ps

+    elseif ($nopath(%diff.file) == cpopup.pop) diff.load -pc

+    elseif ($nopath(%diff.file) == qpopup.pop) diff.load -pq

+    elseif ($nopath(%diff.file) == npopup.pop) diff.load -pn

+    elseif ($nopath(%diff.file) == mpopup.pop) diff.load -pm

+  }

+}

+alias difftest {

+  unset %diff.*

+  if ($1) set %diff.patchfile $1

+  else set %diff.patchfile $$dir="ircN Patch Test Procedure" *.dif

+  set %diff.read 1

+  set %diff.hunkoff 1

+  dialog -m ircN.diff ircN.diff

+  did -ra ircN.diff 2 ircN Patch Test

+  did -ra ircN.diff 4 %diff.patchfile

+  did -ra ircN.diff 6 0

+  did -ra ircN.diff 8 $lines(%diff.patchfile)

+  did -ra ircN.diff 9 Currently testing file:

+  did -ra ircN.diff 11 Currently testing line

+  difftest.findfile

+}

+alias -l difftest.findfile {

+  :loop

+  set %diff.text $read -l [ $+ [ %diff.read ] ] %diff.patchfile

+  if ($left(%diff.text,3) != +++) {

+    inc %diff.read

+    goto loop

+  }

+  did -ra ircN.diff 26 Found file to be patched

+  set %diff.file $gettok(%diff.text,2,32)

+  if ($isfile(%diff.file) == $false) write -c %diff.file

+  did -ra ircN.diff 10 %diff.file

+  did -ra ircN.diff 12 0

+  did -ra ircN.diff 14 $lines(%diff.file)

+  difftest.findhunk

+}

+alias -l difftest.findhunk {

+  :loop

+  set %diff.text $read -nl [ $+ [ %diff.read ] ] %diff.patchfile

+  if ($left(%diff.text,2) != @@) {

+    inc %diff.read

+    goto loop

+  }

+  did -ra ircN.diff 26 Found patch hunk

+  set %diff.hunkoff $remove($gettok($gettok(%diff.text,2,32),1,44),-)

+  did -ra ircN.diff 12 %diff.hunkoff

+  inc %diff.read

+  difftest.testhunk

+}

+alias -l difftest.testhunk {

+  did -ra ircN.diff 6 %diff.read

+  did -ra ircN.diff 12 %diff.hunkoff

+  set %diff.text $read -nl [ $+ [ %diff.read ] ] %diff.patchfile

+  if ($gettok(%diff.text,1,32) == @@) difftest.findhunk

+  elseif ($gettok(%diff.text,1,32) == diff) difftest.findfile

+  else {

+    did -ra ircN.diff 22 $read -nl [ $+ [ %diff.hunkoff ] ] %diff.file

+    did -ra ircN.diff 24 $getright(%diff.text)

+    if ($left(%diff.text,1) == -) {

+      did -ra ircN.diff 26 Verifying text to be removed...

+      if ($did(ircN.diff,24) != $did(ircN.diff,22)) {

+        did -ra ircN.diff 26 Patch test failed!

+        .timer 1 3 dialog -x ircN.diff

+        return

+      }

+    }

+    elseif ($left(%diff.text,1) == +) {

+      did -ra ircN.diff 26 Skipping text to be added...

+      dec %diff.hunkoff

+    }

+    elseif ($left(%diff.text,1) == $chr(41)) {

+      did -ra ircN.diff 26 Verifying original text...

+      if ($did(ircN.diff,24) != $did(ircN.diff,22)) {

+        did -ra ircN.diff 26 Patch test failed!

+        .timer 1 3 dialog -x ircN.diff

+        return

+      }

+    }

+    inc %diff.read

+    inc %diff.hunkoff

+    if (%diff.read <= $lines(%diff.patchfile)) .timerdiff 1 0 difftest.testhunk

+    else {

+      did -ra ircN.diff 26 Found EOF, Patch test passed!

+      .timer 1 3 dialog -x ircN.diff

+    }

+  }

+}

diff -ur --new-file --recursive ircN702/system/events.mrc ircN703/system/events.mrc

--- ircN702/system/events.mrc	Wed Mar 31 20:16:40 1999

+++ $mircdirevents.mrc   Sun Apr  4 17:03:04 1999

@@ -45,7 +45,7 @@

)  tsound welcome

)}

)on 1:CONNECT {

-  sockclose identd

+  if ($mflag(options,n0,27) == 0) sockclose identd

)  titlebar [[ Connected: initializing ]] [[ $strip(%ver) ]]

)  mode $me %umode

)  if (%delogs == connect) delog -q

@@ -352,8 +352,8 @@

)on 1:TEXT:*:# {

)  if (($away) && (%announce == on)) {

)    if (($me isin $1-) || ((%altnick1 isin $1-) && (%altnick1 != $null)) || ((%altnick2 isin $1-) && (%altnick2 != $null))) {

-      if ($findtok(%knowaway,$nick,1,32) == $null) {

-        set %knowaway $addtok(%knowaway,$nick,32)

+      if ($findtok(%knowaway,$nick,1,44) == $null) {

+        set %knowaway $addtok(%knowaway,$nick,44)

)        if (%saytype == notice) .notice $nick I am away, $b(%awaymsg) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin) Gone for $b($gone)

)        elseif (%saytype == action) .describe $nick is away, $b(%awaymsg) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin) Gone for $b($gone)

)        elseif (%saytype == channel) describe $chan is away, $b(%awaymsg) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin) Gone for $b($gone)

diff -ur --new-file --recursive ircN702/system/fldprot.mrc ircN703/system/fldprot.mrc

--- ircN702/system/fldprot.mrc	Wed Mar 31 20:16:42 1999

+++ $mircdirfldprot.mrc  Sun Apr  4 19:59:12 1999

@@ -28,10 +28,10 @@

)  elseif (%joinfld == on) c.jscan $ulevel $nick $site $chan $c.file($chan)

)}

)on @1:DEOP:# {

-  if (%mdopfld == on) c.dscan $ulevel $nick $site $chan $c.file($chan)

+  if (%mdopfld == on) c.dscan $level($fulladdress) $nick $site $chan $c.file($chan)

)}

)on @1:KICK:# {

-  if (%kickfld == on) c.kscan $ulevel $nick $site $chan $c.file($chan)

+  if (%kickfld == on) c.kscan $level($fulladdress) $nick $site $chan $c.file($chan)

)}

)on 1:NICK {

)  if (%nickfld != on) return

@@ -47,7 +47,7 @@

)  if ((%ckops == off) && ($2 isop $4)) return

)  elseif ((%cck == off) && ($1 == 40)) return

)  elseif (($isvalidchan(%cpchans,$4)) && ($caps($6-) > %maxcaps)) {

-    if ($c.stat($5,$3,clines) == $null) {

+    if ($c.stat($5,$3,clines) < 1) {

)      writeini -n $5 $3 clines 1

)      writeini -n $5 $3 ctime $ticks

)      writeini -n $5 $3 caps 1000

@@ -68,7 +68,7 @@

)      if (%cpban == on) ban $4 $2 2

)      if (%kckmsg.cap) kick $4 $2 %kckmsg.cap

)      else kick $4 $2 Caps Flood ( $+ %maxclines lines at $rrpt($div($c.stat($5,$3,caps),%maxclines)) line/s $+ )

-      remini $5 $3 clines

+      writeini -n $5 $3 clines 0

)    }

)  }

)}

@@ -76,7 +76,7 @@

)  if ((%akops == off) && ($2 isop $4)) return

)  elseif ((%ack == off) && ($1 == 40)) return

)  elseif (($isvalidchan(%aschans,$4)) && ($ascode(123,255,$remove($6-,$chr(32))) > %maxascii)) {

-    if ($c.stat($5,$3,slines) == $null) {

+    if ($c.stat($5,$3,slines) < 1) {

)      writeini -n $5 $3 slines 1

)      writeini -n $5 $3 stime $ticks

)      writeini -n $5 $3 saps 1000

@@ -97,7 +97,7 @@

)      if (%asban == on) ban $4 $2 2

)      if (%kckmsg.asc) kick $4 $2 %kckmsg.asc

)      else kick $4 $2 ASCII Code Flood ( $+ %maxalines lines at $rrpt($div($c.stat($5,$3,saps),%maxalines)) line/s $+ )

-      remini $5 $3 slines

+      writeini -n $5 $3 slines 0

)    }

)  }

)}

@@ -106,11 +106,11 @@

)  elseif ((%rck != on) && ($1 == 40)) return

)  elseif ($isvalidchan(%rpchans,$4)) {

)    if ($len($strip($6-)) < %minrpt) {

-      remini $5 $3 lastmsg

-      remini $5 $3 numrpt

+      writeini -n $5 $3 lastmsg  

+      writeini -n $5 $3 numrpt 0

)      return

)    }

-    if ($c.stat($5,$3,lastmsg) == $null) {

+    if ($c.stat($5,$3,lastmsg) < 1) {

)      writeini -n $5 $3 lastmsg $6-

)      writeini -n $5 $3 numrpt 1

)      writeini -n $5 $3 rtime $ticks

@@ -136,8 +136,8 @@

)        if (%rban == on) ban $4 $2 1

)        if (%kckmsg.rpt) kick $4 $2 %kckmsg.rpt

)        else kick $4 $2 Repeat Flood ( $+ %maxrpt repeats at $rrpt($div($c.stat($5,$3,raps),%maxrpt)) rpts/s)

-        remini $5 $3 lastmsg

-        remini $5 $3 numrpt

+        writeini -n $5 $3 lastmsg  

+        writeini -n $5 $3 numrpt 0

)      }

)    }

)    else {

@@ -152,7 +152,7 @@

)  if ((%ktops == off) && ($2 isop $4)) return

)  elseif ((%tck == off) && ($1 == 40)) return

)  elseif ($isvalidchan(%tfchans,$4)) {

-    if ($c.stat($5,$3,lines) == $null) {

+    if ($c.stat($5,$3,lines) < 1) {

)      writeini -n $5 $3 lines 1

)      writeini -n $5 $3 ltime $ticks

)      writeini -n $5 $3 laps 1000

@@ -173,14 +173,14 @@

)      if (%txban == on) ban $4 $2 2

)      if (%kckmsg.txt) kick $4 $2 %kckmsg.txt

)      else kick $4 $2 Text Flood ( $+ %maxlines lines at $rrpt($div($c.stat($5,$3,laps),%maxlines)) line/s $+ )

-      remini $5 $3 lines

+      writeini -n $5 $3 lines 0

)    }

)  }

)}

)alias -l c.jscan {

)  if ((%jck == off) && ($1 == 40)) return

)  elseif (($isvalidchan(%jfchans,$4)) && ($2 != $me)) {

-    if ($c.stat($5,$3,joins) == $null) {

+    if ($c.stat($5,$3,joins) < 1) {

)      writeini -n $5 $3 joins 1

)      writeini -n $5 $3 jtime $ticks

)      writeini -n $5 $3 japs 1000

@@ -201,7 +201,7 @@

)      if (%jban == on) ban $4 $2 2

)      if (%kckmsg.join) kick $4 $2 %kckmsg.join

)      else kick $4 $2 Join Flood ( $+ %maxjoins joins at $rrpt($div($c.stat($5,$3,japs),%maxjoins)) join/s $+ )

-      remini $5 $3 joins

+      writeini -n $5 $3 joins 0

)    }

)  }

)}

@@ -209,7 +209,7 @@

)  if ((%nck == off) && ($1 == 40)) return

)  elseif ((%knpops == off) && ($2 isop $4)) return

)  elseif (($isvalidchan(%nfchans,$4)) && ($2 != $me)) {

-    if ($c.stat($5,$3,nicks) == $null) {

+    if ($c.stat($5,$3,nicks) < 1) {

)      writeini -n $5 $3 nicks 1

)      writeini -n $5 $3 ntime $ticks

)      writeini -n $5 $3 naps 1000

@@ -230,14 +230,14 @@

)      if (%nban == on) ban $4 $2

)      if (%kckmsg.nick) kick $4 $2 %kckmsg.nick

)      else kick $4 $2 Nick Flood ( $+ %maxnicks nicks at $rrpt($div($c.stat($5,$3,naps)),%maxnicks)) nick/s $+ )

-      remini $5 $3 nicks

+      writeini -n $5 $3 nicks 0

)    }

)  }

)}

)alias -l c.dscan {

)  if ((%dck == off) && ($1 == 40)) return

)  elseif (($isvalidchan(%dfchans,$4)) && ($2 != $me)) {

-    if ($c.stat($5,$3,deops) == $null) {

+    if ($c.stat($5,$3,deops) < 1) {

)      writeini -n $5 $3 deops 1

)      writeini -n $5 $3 dtime $ticks

)      writeini -n $5 $3 daps 1000

@@ -259,14 +259,14 @@

)      if (%dban == on) ban $4 $2 2

)      if (%kckmsg.deop) kick $4 $2 %kckmsg.deop

)      else kick $4 $2 Mass Deop ( $+ %maxdeops deops at $rrpt($div($c.stat($5,$3,daps),%maxdeops)) deop/s $+ )

-      remini $5 $3 deops

+      writeini -n $5 $3 deops 0

)    }

)  }

)}

)alias -l c.kscan {

)  if ((%dck == off) && ($1 == 40)) return

)  elseif (($isvalidchan(%kfchans,$4)) && ($2 != $me)) {

-    if ($c.stat($5,$3,kicks) == $null) {

+    if ($c.stat($5,$3,kicks) < 1) {

)      writeini -n $5 $3 kicks 1

)      writeini -n $5 $3 ktime $ticks

)      writeini -n $5 $3 kaps 1000

@@ -287,7 +287,7 @@

)      if (%kban == on) ban $4 $2 2

)      if (%kckmsg.kick) kick $4 $2 %kckmsg.kick

)      else kick $4 $2 Mass Kick ( $+ %maxkicks kicks at $rrpt($div($c.stat($5,$3,kaps),%maxkicks)) kick/s $+ )

-      remini $5 $3 kicks

+      writeini -n $5 $3 kicks 0

)    }

)  }

)}

diff -ur --new-file --recursive ircN702/system/identfrs.als ircN703/system/identfrs.als

--- ircN702/system/identfrs.als	Wed Mar 31 20:42:32 1999

+++ $mircdiridentfrs.als Fri Apr  2 15:20:06 1999

@@ -236,8 +236,8 @@

)  else iecho DIV Error, $1 and $2 are not numbers!

)}

)d.s {

-  if (($send($1).cps == n/a) || ($send($1).cps == 0)) return n/a

-  else return $2

+  if ($1 == n/a) return 0

+  else return $1

)}

)e-mail if (%em == on) return [email: $+ $1 $+ ]

)ed return %dir $+ \email\ $+ $1

diff -ur --new-file --recursive ircN702/system/idraw.mrc ircN703/system/idraw.mrc

--- ircN702/system/idraw.mrc	Wed Mar 31 20:16:42 1999

+++ $mircdiridraw.mrc    Sun Apr  4 20:22:04 1999

@@ -130,7 +130,7 @@

)      sockmark $1 $deltok($sock($1).mark,1,44)

)      goto lp

)    }

-    .timer 1 1 sockclose $1

+    sockclose $1

)    if ($sock(iDraw.*,0) == 0) echo $colour(Info) -ti2 @iDraw4 *** Disconnected

)  }

)  elseif ($2 == RP) {

@@ -258,8 +258,7 @@

)  window -c @idraw3

)  window -c @idraw4

)  if ($sock(idraw.*)) sockwrite -n idraw.* LP $me ( $+ $ip $+ )

-  sockmark idraw*

-  .timer 1 1 sockclose idraw*

+  sockclose idraw*

)}

)alias id.setthick {

)  if ($sline(@idraw3,1).ln == 1) dec %idraw.thickness

diff -ur --new-file --recursive ircN702/system/irc2-2.mrc ircN703/system/irc2-2.mrc

--- ircN702/system/irc2-2.mrc	Fri Apr  2 11:05:26 1999

+++ $mircdirirc2-2.mrc   Sun Apr  4 17:01:58 1999

@@ -386,7 +386,7 @@

)      i2.notify $1

)      .timer 0 40 i2.notify $1

)      set %timer.i2notify. [ $+ [ $1 ] ] $ltimer

-      sockclose identd

+      if ($mflag(options,n0,27) == 0) sockclose identd

)    }

)  }

)  elseif ($3 == 377) i2.secho $1 - $6-

@@ -424,7 +424,7 @@

)      i2.notify $1

)      .timer 0 40 i2.notify $1

)      set %timer.i2notify. [ $+ [ $1 ] ] $ltimer

-      sockclose identd

+      if ($mflag(options,n0,27) == 0) sockclose identd

)    }

)  }  

)  elseif ($3 == 423) i2.saecho $1 $5 $nocolon($6-)

diff -ur --new-file --recursive ircN702/system/irc2.als ircN703/system/irc2.als

--- ircN702/system/irc2.als	Wed Mar 31 15:47:50 1999

+++ $mircdirirc2.als     Sun Apr  4 20:18:44 1999

@@ -361,7 +361,7 @@

)  if ($window($i2.status($1))) {

)    if (($i2.ischan($2)) && ($window($i2.win($1,$2)) == $null)) i2.part $1 $2

)    elseif ($window($i2.win($1,$2)) == $null) {

-      window -ake $i2.win($1,$2) %i2qloc @i2.query $replace($readini $mircini Fonts fquery,$chr(44),$chr(32))

+      window -anke $i2.win($1,$2) %i2qloc @i2.query $replace($readini $mircini Fonts fquery,$chr(44),$chr(32))

)      set %i2.msgbind /msg $2

)      echo $iif($3 isnum,$3) -ti2 $i2.win($1,$2) $iif($3 isnum,$4-,$23-)

)    }

diff -ur --new-file --recursive ircN702/system/irc2.mrc ircN703/system/irc2.mrc

--- ircN702/system/irc2.mrc	Thu Apr  1 17:06:08 1999

+++ $mircdirirc2.mrc     Sun Apr  4 17:03:04 1999

@@ -26,7 +26,7 @@

)  if ($sockerr > 0) {

)    i2.secho $sockname $colour(Info) *** Connection lost

)    timoff %timer.i2notify timer.i2notify

-    sockclose identd

+    if ($mflag(options,n0,27) == 0) sockclose identd

)    i2.quit $sockname

)    i2.closechans

)    return

@@ -38,7 +38,7 @@

)on 1:SOCKCLOSE:irc2.* {

)  i2.secho $sockname $colour(Info) *** Disconnected

)  timoff %timer.i2notify timer.i2notify

-  sockclose identd

+  if ($mflag(options,n0,27) == 0) sockclose identd

)  i2.quit $sockname

)}

)on 1:INPUT:@irc* * {

@@ -305,6 +305,9 @@

)  .fast { i2.kick $i2.actsession($active) $i2.active $i2.actline }

)  .msg { i2.kick $i2.actsession($active) $i2.active $i2.actline $$?="Enter your reason" }

)  -

+  $iif($mouse.win == $null,dcc)

+  .chat { set %i2.dccnick $i2.actsession($active) $i2.actline | .enable #i2.dcc | .timer 1 0 dcc chat $me }

+  .send { set %i2.dccnick $i2.actsession($active) $i2.actline | .enable #i2.dcc | .timer 1 0 dcc send $me }

)  $iif($mouse.win == $null,ctcp)

)  .mass

)  ..ping { i2.mctcp $i2.actsession($active) PING $ticks }

@@ -353,6 +356,9 @@

)  who { i2.who $i2.actsession($active) $i2.active }

)  -

)  invite { i2.quote $i2.actsession($active) invite $i2.active #$$?="inviting [ $i2.active ] to channel:" }

+  dcc

+  .chat { set %i2.dccnick $i2.actsession($active) $i2.active | .enable #i2.dcc | .timer 1 0 dcc chat $me }

+  .send { set %i2.dccnick $i2.actsession($active) $i2.active | .enable #i2.dcc | .timer 1 0 dcc send $me }

)  ctcp

)  .ping { i2.ctcp $i2.actsession($active) $i2.active ping }

)  .time { i2.ctcp $i2.actsession($active) $i2.active time }

diff -ur --new-file ircn702\system/ircNgui1.mrc ircN703\system/ircNgui1.mrc

--- ircn702\system/ircNgui1.mrc	Thu Jan  1 00:00:00 1970

+++ $mircdirircNgui1.mrc Mon Apr  5 11:15:42 1999

@@ -0,0 +1,990 @@

+;%%%%%%%%%%%%%%%%%%%%%%%%

+;script ircN Settings GUIs

+;version 7.0

+;author Quietust/draco

+;email quietust@ircN.org

+;url http://www.ircN.org

+;%%%%%%%%%%%%%%%%%%%%%%%%

+on 1:DIALOG:ircN.loadsettings:*:* {

+  if ($devent == init) {

+    if (%tdaemon == on) did -c $dname 11

+    if (%telnetport != $null) did -a $dname 13 %telnetport

+    else did -a $dname 13 3333

+    if (%partyline == on) did -c $dname 14

+    if (%rcontrol == on) did -c $dname 16

+    if (%seenbot == on) did -c $dname 21

+    if (%seenchans != $null) did -a $dname 23 %seenchans

+    if (%ircii == on) did -c $dname 31

+    if (%xdccs == on) did -c $dname 32

+    if (%chandump == on) did -c $dname 33

+    if (%decrypt == on) did -c $dname 41

+    if (%encryptpw != $null) did -a $dname 43 %encryptpw

+    else did -a $dname 43 ircN

+    loadsettings.update

+    did -b $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      did -b $dname 3

+      if (($did(13) != %telnetport) && (($did(11).state) || (%tdaemon == on))) {

+        if ($portfree($did(13))) {

+          set %telnetport $did(13)

+          tdaemon on

+        }

+        else {

+          iecho WARNING! Unable to open $hc(Telnet daemon) on port $hc(%telnetport) $+ !

+          halt

+        }

+      }

+      else {

+        if ($did(13)) set %telnetport $did(13)

+        else set %telnetport 3333

+        if (($did(11).state) && (%tdaemon == off)) tdaemon on

+        elseif (($did(11).state == 0) && (%tdaemon == on)) tdaemon off

+      }

+      if (($did(14).state) && (%partyline == off)) partyline on

+      elseif (($did(14).state == 0) && (%partyline == on)) partyline off

+      if (($did(16).state) && (%rcontrol == off)) rcontrol on

+      elseif (($did(16).state == 0) && (%rcontrol == on)) rcontrol off

+      if (($did(21).state) && (%seenbot == off)) seen on

+      elseif (($did(21).state == 0) && (%seenbot == on)) seen off

+      if ($did(23)) set %seenchans $did(23)

+      else set %seenchans none

+      if (($did(31).state) && (%ircii == off)) ircii on

+      elseif (($did(31).state == 0) && (%ircii == on)) ircii off

+      if (($did(32).state) && (%xdccs == off)) xdcc on

+      elseif (($did(32).state == 0) && (%xdccs == on)) xdcc off

+      if (($did(33).state) && (%chandump == off)) .timer 1 0 chandump on

+      elseif (($did(33).state == 0) && (%chandump == on)) chandump off

+      if ($did(41).state) set %decrypt on

+      else set %decrypt off

+      if ($did(43)) set %encryptpw $did(43)

+      else set %encryptpw ircN

+    }

+    elseif ($did == 15) run notepad $td(cmotd.txt)

+    else loadsettings.update

+  }

+  elseif ($devent == edit) did -e $dname 3

+}

+alias -l loadsettings.update {

+  if ($did(11).state) {

+    did -e $dname 10

+    did -e $dname 12

+    did -e $dname 13

+    did -e $dname 14

+    if ($did(14).state) did -e $dname 15

+    else did -b $dname 15

+    did -e $dname 16

+  }

+  else {

+    did -b $dname 10

+    did -b $dname 12

+    did -b $dname 13

+    did -bu $dname 14

+    did -b $dname 15

+    did -bu $dname 16

+  }

+  if ($did(21).state) {

+    did -e $dname 20

+    did -e $dname 22

+    did -e $dname 23

+  }

+  else {

+    did -b $dname 20

+    did -b $dname 22

+    did -b $dname 23

+  }

+  if ($did(41).state) {

+    did -e $dname 40

+    did -e $dname 42

+    did -e $dname 43

+  }

+  else {

+    did -b $dname 40

+    did -b $dname 42

+    did -b $dname 43

+  }

+  did -e $dname 3

+}

+on 1:DIALOG:ircN.fldprot:*:* {

+  if ($devent == init) {

+    if (%chanprot == on) did -c $dname 3

+    if (%txtfld == on) did -c $dname 21

+    if (%tfchans) did -ra $dname 23 %tfchans

+    else did -ra $dname 23 none

+    if (%maxlines) did -ra $dname 25 %maxlines

+    else did -ra $dname 25 10

+    if (%lps) did -ra $dname 27 $div(%lps,1000)

+    else did -ra $dname 27 3

+    if (%kckmsg.txt) did -ra $dname 29 %kckmsg.txt

+    if (%txban == on) did -c $dname 30

+    if (%ktops == on) did -c $dname 31

+    if (%tck == on) did -c $dname 32

+    if (%joinfld == on) did -c $dname 41

+    if (%jfchans) did -ra $dname 43 %jfchans

+    else did -ra $dname 43 none

+    if (%maxjoins) did -ra $dname 45 %maxjoins

+    else did -ra $dname 45 3

+    if (%jps) did -ra $dname 47 $div(%jps,1000)

+    else did -ra $dname 47 3

+    if (%kckmsg.join) did -ra $dname 49 %kckmsg.join

+    if (%jban == on) did -c $dname 50

+    if (%jck == on) did -c $dname 51

+    if (%nickfld == on) did -c $dname 61

+    if (%nfchans) did -ra $dname 63 %nfchans

+    else did -ra $dname 63 none

+    if (%maxnicks) did -ra $dname 65 %maxnicks

+    else did -ra $dname 65 3

+    if (%nps) did -ra $dname 67 $div(%nps,1000)

+    else did -ra $dname 67 3

+    if (%kckmsg.nick) did -ra $dname 69 %kckmsg.nick

+    if (%nban == on) did -c $dname 70

+    if (%knpops == on) did -c $dname 71

+    if (%nck == on) did -c $dname 72

+    if (%kickfld == on) did -c $dname 81

+    if (%kfchans) did -ra $dname 83 %kfchans

+    else did -ra $dname 83 none

+    if (%maxkicks) did -ra $dname 85 %maxkicks

+    else did -ra $dname 85 5

+    if (%kcps) did -ra $dname 87 $div(%kcps,1000)

+    else did -ra $dname 87 3

+    if (%kckmsg.nick) did -ra $dname 89 %kckmsg.kick

+    if (%kban == on) did -c $dname 90

+    if (%kck == on) did -c $dname 91

+    if (%mdopfld == on) did -c $dname 101

+    if (%dfchans) did -ra $dname 103 %dfchans

+    else did -ra $dname 103 none

+    if (%maxdeops) did -ra $dname 105 %maxdeops

+    else did -ra $dname 105 3

+    if (%dps) did -ra $dname 107 $div(%dps,1000)

+    else did -ra $dname 107 3

+    if (%kckmsg.deop) did -ra $dname 109 %kckmsg.deop

+    if (%dban == on) did -c $dname 110

+    if (%dck == on) did -c $dname 111

+    if (%capsfld == on) did -c $dname 121

+    if (%cpchans) did -ra $dname 123 %cpchans

+    else did -ra $dname 123 none

+    if (%maxclines) did -ra $dname 125 %maxclines

+    else did -ra $dname 125 3

+    if (%cps) did -ra $dname 127 $div(%cps,1000)

+    else did -ra $dname 127 3

+    if (%maxcaps) did -ra $dname 129 %maxcaps

+    else did -ra $dname 129 3

+    if (%kckmsg.caps) did -ra $dname 131 %kckmsg.caps

+    if (%cban == on) did -c $dname 132

+    if (%ckops == on) did -c $dname 133

+    if (%cck == on) did -c $dname 134

+    if (%asciifld == on) did -c $dname 141

+    if (%aschans) did -ra $dname 143 %aschans

+    else did -ra $dname 143 none

+    if (%maxalines) did -ra $dname 145 %maxalines

+    else did -ra $dname 145 3

+    if (%aps) did -ra $dname 147 $div(%aps,1000)

+    else did -ra $dname 147 3

+    if (%maxascii) did -ra $dname 149 %maxascii

+    else did -ra $dname 149 60

+    if (%kckmsg.caps) did -ra $dname 151 %kckmsg.asc

+    if (%aban == on) did -c $dname 152

+    if (%akops == on) did -c $dname 153

+    if (%ack == on) did -c $dname 154

+    if (%rptfld == on) did -c $dname 161

+    if (%rpchans) did -ra $dname 163 %rpchans

+    else did -ra $dname 163 none

+    if (%maxrpt) did -ra $dname 165 %maxrpt

+    else did -ra $dname 165 4

+    if (%rps) did -ra $dname 167 $div(%rps,1000)

+    else did -ra $dname 167 3

+    if (%minrpt) did -ra $dname 169 %minrpt

+    else did -ra $dname 169 10

+    if (%kckmsg.rpt) did -ra $dname 171 %kckmsg.rpt

+    if (%rban == on) did -c $dname 172

+    if (%krops == on) did -c $dname 173

+    if (%rck == on) did -c $dname 174

+    if (%serverprot == on) did -c $dname 181

+    if (%svchans) did -ra $dname 183 %svchans

+    else did -ra $dname 183 none

+    fldprot.update

+    did -b $dname 4

+    fldprot.hide 40 51

+    fldprot.hide 60 72

+    fldprot.hide 80 91

+    fldprot.hide 100 111

+    fldprot.hide 120 134

+    fldprot.hide 140 154

+    fldprot.hide 160 174

+    fldprot.hide 180 183

+    did -a $dname 5 Text Flood

+    did -a $dname 5 Join Flood

+    did -a $dname 5 Nick Flood

+    did -a $dname 5 Mass Kick

+    did -a $dname 5 Mass Deop

+    did -a $dname 5 Caps Flood

+    did -a $dname 5 Ascii Flood

+    did -a $dname 5 Repeat Flood

+    did -a $dname 5 Server Op

+    did -c $dname 5 1

+  }

+  elseif ($devent == sclick) {

+    if ($did == 5) {

+      fldprot.hide 20 32

+      fldprot.hide 40 51

+      fldprot.hide 60 72

+      fldprot.hide 80 91

+      fldprot.hide 100 111

+      fldprot.hide 120 134

+      fldprot.hide 140 154

+      fldprot.hide 160 174

+      fldprot.hide 180 183

+      if ($did(5).sel == 1) fldprot.show 20 32

+      elseif ($did(5).sel == 2) fldprot.show 40 51

+      elseif ($did(5).sel == 3) fldprot.show 60 72

+      elseif ($did(5).sel == 4) fldprot.show 80 91

+      elseif ($did(5).sel == 5) fldprot.show 100 111

+      elseif ($did(5).sel == 6) fldprot.show 120 134

+      elseif ($did(5).sel == 7) fldprot.show 140 154

+      elseif ($did(5).sel == 8) fldprot.show 160 174

+      elseif ($did(5).sel == 9) fldprot.show 180 183

+    }

+    elseif ((($did == 1) && ($did(2).next == 4)) || ($did == 4)) {

+      did -b $dname 4

+      if (($did(3).state) && (%chanprot == off)) cprot on

+      elseif (($did(3).state == 0) && (%chanprot == on)) cprot off

+      if ($did(21).state) set %txtfld on

+      else set %txtfld off

+      set %tfchans $did(23)

+      set %maxlines $did(25)

+      set %lps $mpy($did(27),1000)

+      if ($did(29)) set %kckmsg.txt $did(29)

+      else unset %kckmsg.txt

+      if ($did(30).state) set %txban on

+      else set %txban off

+      if ($did(31).state) set %ktops on

+      else set %ktops off

+      if ($did(32).state) set %tck on

+      else set %tck off

+      if ($did(41).state) set %joinfld on

+      else set %joinfld off

+      set %jfchans $did(43)

+      set %maxjoins $did(45)

+      set %jps $mpy($did(47),1000)

+      if ($did(49)) set %kckmsg.join $did(49)

+      else unset %kckmsg.join

+      if ($did(50).state) set %jban on

+      else set %jban off

+      if ($did(51).state) set %jck on

+      else set %jck off

+      if ($did(61).state) set %nickfld on

+      else set %nickfld off

+      set %nfchans $did(63)

+      set %maxnicks $did(65)

+      set %nps $mpy($did(67),1000)

+      if ($did(69)) set %kckmsg.nick $did(69)

+      else unset %kckmsg.nick

+      if ($did(70).state) set %nban on

+      else set %nban off

+      if ($did(71).state) set %knpops on

+      else set %knpops off

+      if ($did(72).state) set %nck on

+      else set %nck off

+      if ($did(81).state) set %kickfld on

+      else set %kickfld off

+      set %kfchans $did(83)

+      set %maxkicks $did(85)

+      set %kcps $mpy($did(87),1000)

+      if ($did(89)) set %kckmsg.kick $did(89)

+      else unset %kckmsg.nick

+      if ($did(90).state) set %kban on

+      else set %kban off

+      if ($did(91).state) set %kck on

+      else set %kck off

+      if ($did(101).state) set %mdopfld on

+      else set %mdopfld off

+      set %dfchans $did(103)

+      set %maxdeops $did(105)

+      set %dps $mpy($did(107),1000)

+      if ($did(109)) set %kckmsg.deop $did(109)

+      else unset %kckmsg.deop

+      if ($did(110).state) set %dban on

+      else set %dban off

+      if ($did(111).state) set %dck on

+      else set %dck off

+      if ($did(121).state) set %capsfld on

+      else set %capsfld off

+      set %cpchans $did(123)

+      set %maxclines $did(125)

+      set %cps $mpy($did(127),1000)

+      set %maxcaps $did(129)

+      if ($did(131)) set %kckmsg.caps $did(131)

+      else unset %kckmsg.caps

+      if ($did(132).state) set %cban on

+      else set %cban off

+      if ($did(133).state) set %ckops on

+      else set %ckops off

+      if ($did(134).state) set %cck on

+      else set %cck off

+      if ($did(141).state) set %asciifld on

+      else set %asciifld off

+      set %aschans $did(143)

+      set %maxalines $did(145)

+      set %aps $mpy($did(147),1000)

+      set %maxascii $did(149)

+      if ($did(151)) set %kckmsg.asc $did(151)

+      else unset %kckmsg.asc

+      if ($did(152).state) set %aban on

+      else set %aban off

+      if ($did(153).state) set %akops on

+      else set %akops off

+      if ($did(154).state) set %ack on

+      else set %ack off

+      if ($did(161).state) set %rptfld on

+      else set %rptfld off

+      set %rpchans $did(163)

+      set %maxrpt $did(165)

+      set %rps $mpy($did(167),1000)

+      set %minrpt $did(169)

+      if ($did(171)) set %kckmsg.rpt $did(171)

+      else unset %kckmsg.rpt

+      if ($did(172).state) set %rban on

+      else set %rban off

+      if ($did(173).state) set %krops on

+      else set %krops off

+      if ($did(174).state) set %rck on

+      else set %rck off

+      if ($did(181).state) set %serverprot on

+      else set %serverprot off

+      set %svchans $did(183)

+    }

+    else fldprot.update

+  }

+  elseif ($devent == edit) did -e $dname 4

+}

+alias -l fldprot.update {

+  if ($did(3).state) {

+    did -e $dname 21

+    did -e $dname 41

+    did -e $dname 61

+    did -e $dname 81

+    did -e $dname 101

+    did -e $dname 121

+    did -e $dname 141

+    did -e $dname 161

+    did -e $dname 181

+  }

+  else {

+    did -ub $dname 21

+    did -ub $dname 41

+    did -ub $dname 61

+    did -ub $dname 81

+    did -ub $dname 101

+    did -ub $dname 121

+    did -ub $dname 141

+    did -ub $dname 161

+    did -ub $dname 181

+  }

+  if ($did(21).state) {

+    did -e $dname 20

+    did -e $dname 22

+    did -e $dname 23

+    did -e $dname 24

+    did -e $dname 25

+    did -e $dname 26

+    did -e $dname 27

+    did -e $dname 28

+    did -e $dname 29

+    did -e $dname 30

+    did -e $dname 31

+    did -e $dname 32

+  }

+  else {

+    did -b $dname 20

+    did -b $dname 22

+    did -b $dname 23

+    did -b $dname 24

+    did -b $dname 25

+    did -b $dname 26

+    did -b $dname 27

+    did -b $dname 28

+    did -b $dname 29

+    did -b $dname 30

+    did -b $dname 31

+    did -b $dname 32

+  }

+  if ($did(41).state) {

+    did -e $dname 40

+    did -e $dname 42

+    did -e $dname 43

+    did -e $dname 44

+    did -e $dname 45

+    did -e $dname 46

+    did -e $dname 47

+    did -e $dname 48

+    did -e $dname 49

+    did -e $dname 50

+    did -e $dname 51

+  }

+  else {

+    did -b $dname 40

+    did -b $dname 42

+    did -b $dname 43

+    did -b $dname 44

+    did -b $dname 45

+    did -b $dname 46

+    did -b $dname 47

+    did -b $dname 48

+    did -b $dname 49

+    did -b $dname 50

+    did -b $dname 51

+  }

+  if ($did(61).state) {

+    did -e $dname 60

+    did -e $dname 62

+    did -e $dname 63

+    did -e $dname 64

+    did -e $dname 65

+    did -e $dname 66

+    did -e $dname 67

+    did -e $dname 68

+    did -e $dname 69

+    did -e $dname 70

+    did -e $dname 71

+    did -e $dname 72

+  }

+  else {

+    did -b $dname 60

+    did -b $dname 62

+    did -b $dname 63

+    did -b $dname 64

+    did -b $dname 65

+    did -b $dname 66

+    did -b $dname 67

+    did -b $dname 68

+    did -b $dname 69

+    did -b $dname 70

+    did -b $dname 71

+    did -b $dname 72

+  }

+  if ($did(81).state) {

+    did -e $dname 80

+    did -e $dname 82

+    did -e $dname 83

+    did -e $dname 84

+    did -e $dname 85

+    did -e $dname 86

+    did -e $dname 87

+    did -e $dname 88

+    did -e $dname 89

+    did -e $dname 90

+    did -e $dname 91

+  }

+  else {

+    did -b $dname 80

+    did -b $dname 82

+    did -b $dname 83

+    did -b $dname 84

+    did -b $dname 85

+    did -b $dname 86

+    did -b $dname 87

+    did -b $dname 88

+    did -b $dname 89

+    did -b $dname 90

+    did -b $dname 91

+  }

+  if ($did(101).state) {

+    did -e $dname 100

+    did -e $dname 102

+    did -e $dname 103

+    did -e $dname 104

+    did -e $dname 105

+    did -e $dname 106

+    did -e $dname 107

+    did -e $dname 108

+    did -e $dname 109

+    did -e $dname 110

+    did -e $dname 111

+  }

+  else {

+    did -b $dname 100

+    did -b $dname 102

+    did -b $dname 103

+    did -b $dname 104

+    did -b $dname 105

+    did -b $dname 106

+    did -b $dname 107

+    did -b $dname 108

+    did -b $dname 109

+    did -b $dname 110

+    did -b $dname 111

+  }

+  if ($did(121).state) {

+    did -e $dname 120

+    did -e $dname 122

+    did -e $dname 123

+    did -e $dname 124

+    did -e $dname 125

+    did -e $dname 126

+    did -e $dname 127

+    did -e $dname 128

+    did -e $dname 129

+    did -e $dname 130

+    did -e $dname 131

+    did -e $dname 132

+    did -e $dname 133

+    did -e $dname 134

+  }

+  else {

+    did -b $dname 120

+    did -b $dname 122

+    did -b $dname 123

+    did -b $dname 124

+    did -b $dname 125

+    did -b $dname 126

+    did -b $dname 127

+    did -b $dname 128

+    did -b $dname 129

+    did -b $dname 130

+    did -b $dname 131

+    did -b $dname 132

+    did -b $dname 133

+    did -b $dname 134

+  }

+  if ($did(141).state) {

+    did -e $dname 140

+    did -e $dname 142

+    did -e $dname 143

+    did -e $dname 144

+    did -e $dname 145

+    did -e $dname 146

+    did -e $dname 147

+    did -e $dname 148

+    did -e $dname 149

+    did -e $dname 150

+    did -e $dname 151

+    did -e $dname 152

+    did -e $dname 153

+    did -e $dname 154

+  }

+  else {

+    did -b $dname 140

+    did -b $dname 142

+    did -b $dname 143

+    did -b $dname 144

+    did -b $dname 145

+    did -b $dname 146

+    did -b $dname 147

+    did -b $dname 148

+    did -b $dname 149

+    did -b $dname 150

+    did -b $dname 151

+    did -b $dname 152

+    did -b $dname 153

+    did -b $dname 154

+  }

+  if ($did(161).state) {

+    did -e $dname 160

+    did -e $dname 162

+    did -e $dname 163

+    did -e $dname 164

+    did -e $dname 165

+    did -e $dname 166

+    did -e $dname 167

+    did -e $dname 168

+    did -e $dname 169

+    did -e $dname 170

+    did -e $dname 171

+    did -e $dname 172

+    did -e $dname 173

+    did -e $dname 174

+  }

+  else {

+    did -b $dname 160

+    did -b $dname 162

+    did -b $dname 163

+    did -b $dname 164

+    did -b $dname 165

+    did -b $dname 166

+    did -b $dname 167

+    did -b $dname 168

+    did -b $dname 169

+    did -b $dname 170

+    did -b $dname 171

+    did -b $dname 172

+    did -b $dname 173

+    did -b $dname 174

+  }

+  if ($did(181).state) {

+    did -e $dname 180

+    did -e $dname 182

+    did -e $dname 183

+  }

+  else {

+    did -b $dname 180

+    did -b $dname 182

+    did -b $dname 183

+  }

+  did -e $dname 4

+}

+alias -l fldprot.show {

+  set %i.fldprot.show $sub($1,1)

+  :start

+  inc %i.fldprot.show

+  if (%i.fldprot.show <= $2) {

+    did -v $dname %i.fldprot.show

+    goto start

+  }

+}

+alias -l fldprot.hide {

+  set %i.fldprot.hide $sub($1,1)

+  :start

+  inc %i.fldprot.hide

+  if (%i.fldprot.hide <= $2) {

+    did -h $dname %i.fldprot.hide

+    goto start

+  }

+}

+on 1:DIALOG:ircN.btnetfld:*:* {

+  if ($devent == init) {

+    if (%bt.flood == on) did -c $dname 3

+    if (%bt.join == on) did -c $dname 11

+    if (%bt.jchan) did -ra $dname 13 %bt.jchan

+    else did -ra $dname 13 none

+    if (%bt.maxjoins) did -ra $dname 15 %bt.maxjoins

+    else did -ra $dname 15 15

+    if (%bt.jtime) did -ra $dname 17 $div(%bt.jtime,1000)

+    else did -ra $dname 17 3

+    if (%bt.jkick) did -ra $dname 19 %bt.jkick

+    else did -ra $dname 19 Botnet JOIN flood

+    if (%bt.jmod == on) did -c $dname 20

+    if (%bt.jknop == on) did -c $dname 21

+    if (%bt.msg == on) did -c $dname 31

+    if (%bt.mchan) did -ra $dname 33 %bt.mchan

+    else did -ra $dname 33 none

+    if (%bt.maxmsgs) did -ra $dname 35 %bt.maxmsgs

+    else did -ra $dname 35 30

+    if (%bt.mtime) did -ra $dname 37 $div(%bt.mtime,1000)

+    else did -ra $dname 37 3

+    if (%bt.mkick) did -ra $dname 39 %bt.mkick

+    else did -ra $dname 39 Botnet MESSAGE flood

+    if (%bt.mmod == on) did -c $dname 40

+    if (%bt.mknop == on) did -c $dname 41

+    if (%bt.nick == on) did -c $dname 51

+    if (%bt.nchan) did -ra $dname 53 %bt.nchan

+    else did -ra $dname 53 none

+    if (%bt.maxnicks) did -ra $dname 55 %bt.maxnicks

+    else did -ra $dname 55 10

+    if (%bt.ntime) did -ra $dname 57 $div(%bt.ntime,1000)

+    else did -ra $dname 57 3

+    if (%bt.nkick) did -ra $dname 59 %bt.nkick

+    else did -ra $dname 59 Botnet NICK flood

+    if (%bt.nmod == on) did -c $dname 60

+    if (%bt.nknop == on) did -c $dname 61

+    if (%bt.ctcp == on) did -c $dname 71

+    if (%bt.cchan) did -ra $dname 73 %bt.cchan

+    else did -ra $dname 73 none

+    if (%bt.maxctcps) did -ra $dname 75 %bt.maxctcps

+    else did -ra $dname 75 10

+    if (%bt.ctime) did -ra $dname 77 $div(%bt.ctime,1000)

+    else did -ra $dname 77 3

+    if (%bt.ckick) did -ra $dname 79 %bt.ckick

+    else did -ra $dname 79 Botnet CTCP flood

+    did -ra $dname 77 $div(%bt.jtime,1000)

+    if (%bt.cmod == on) did -c $dname 80

+    if (%bt.cknop == on) did -c $dname 81

+    btnetfld.update

+    did -b $dname 4

+  }

+  elseif ($devent == edit) did -e $dname 4

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 4)) || ($did == 4)) {

+      did -b $dname 4

+      if (($did(3).state) && (%bt.flood == off)) botflood on

+      elseif (($did(3).state == 0) && (%bt.flood == on)) botflood off

+      if ($did(11).state) set %bt.join on

+      else set %bt.join off

+      set %bt.jchan $did(13)

+      set %bt.maxjoins $did(15)

+      set %bt.jtime $mpy($did(17),1000)

+      set %bt.jkick $did(19)

+      if ($did(20).state) set %bt.jmod on

+      else set %bt.jmod off

+      if ($did(21).state) set %bt.jknop on

+      else set %bt.jknop off

+      if ($did(31).state) set %bt.msg on

+      else set %bt.msg off

+      set %bt.mchan $did(33)

+      set %bt.maxmsgs $did(35)

+      set %bt.mtime $mpy($did(37),1000)

+      set %bt.mkick $did(39)

+      if ($did(40).state) set %bt.mmod on

+      else set %bt.mmod off

+      if ($did(41).state) set %bt.mknop on

+      else set %bt.mknop off

+      if ($did(51).state) set %bt.nick on

+      else set %bt.nick off

+      set %bt.nchan $did(53)

+      set %bt.maxnicks $did(55)

+      set %bt.ntime $mpy($did(57),1000)

+      set %bt.nkick $did(59)

+      if ($did(60).state) set %bt.nmod on

+      else set %bt.nmod off

+      if ($did(61).state) set %bt.nknop on

+      else set %bt.nknop off

+      if ($did(71).state) set %bt.ctcp on

+      else set %bt.ctcp off

+      set %bt.cchan $did(73)

+      set %bt.maxctcps $did(75)

+      set %bt.ctime $mpy($did(77),1000)

+      set %bt.ckick $did(79)

+      if ($did(80).state) set %bt.cmod on

+      else set %bt.cmod off

+      if ($did(81).state) set %bt.cknop on

+      else set %bt.cknop off

+    }

+    else btnetfld.update

+  }

+  elseif ($devent == edit) did -e $dname 4

+}

+alias -l btnetfld.update {

+  if ($did(3).state) {

+    did -e $dname 11

+    did -e $dname 31

+    did -e $dname 51

+    did -e $dname 71

+  }

+  else {

+    did -ub $dname 11

+    did -ub $dname 31

+    did -ub $dname 51

+    did -ub $dname 71

+  }

+  if ($did(11).state) {

+    did -e $dname 10

+    did -e $dname 12

+    did -e $dname 13

+    did -e $dname 14

+    did -e $dname 15

+    did -e $dname 16

+    did -e $dname 17

+    did -e $dname 18

+    did -e $dname 19

+    did -e $dname 20

+    did -e $dname 21

+  }

+  else {

+    did -b $dname 10

+    did -b $dname 12

+    did -b $dname 13

+    did -b $dname 14

+    did -b $dname 15

+    did -b $dname 16

+    did -b $dname 17

+    did -b $dname 18

+    did -b $dname 19

+    did -b $dname 20

+    did -b $dname 21

+  }

+  if ($did(31).state) {

+    did -e $dname 30

+    did -e $dname 32

+    did -e $dname 33

+    did -e $dname 34

+    did -e $dname 35

+    did -e $dname 36

+    did -e $dname 37

+    did -e $dname 38

+    did -e $dname 39

+    did -e $dname 40

+    did -e $dname 41

+  }

+  else {

+    did -b $dname 30

+    did -b $dname 32

+    did -b $dname 33

+    did -b $dname 34

+    did -b $dname 35

+    did -b $dname 36

+    did -b $dname 37

+    did -b $dname 38

+    did -b $dname 39

+    did -b $dname 40

+    did -b $dname 41

+  }

+  if ($did(51).state) {

+    did -e $dname 50

+    did -e $dname 52

+    did -e $dname 53

+    did -e $dname 54

+    did -e $dname 55

+    did -e $dname 56

+    did -e $dname 57

+    did -e $dname 58

+    did -e $dname 59

+    did -e $dname 60

+    did -e $dname 61

+  }

+  else {

+    did -b $dname 50

+    did -b $dname 52

+    did -b $dname 53

+    did -b $dname 54

+    did -b $dname 55

+    did -b $dname 56

+    did -b $dname 57

+    did -b $dname 58

+    did -b $dname 59

+    did -b $dname 60

+    did -b $dname 61

+  }

+  if ($did(71).state) {

+    did -e $dname 70

+    did -e $dname 72

+    did -e $dname 73

+    did -e $dname 74

+    did -e $dname 75

+    did -e $dname 76

+    did -e $dname 77

+    did -e $dname 78

+    did -e $dname 79

+    did -e $dname 80

+    did -e $dname 81

+  }

+  else {

+    did -b $dname 70

+    did -b $dname 72

+    did -b $dname 73

+    did -b $dname 74

+    did -b $dname 75

+    did -b $dname 76

+    did -b $dname 77

+    did -b $dname 78

+    did -b $dname 79

+    did -b $dname 80

+    did -b $dname 81

+  }

+  did -e $dname 4

+}

+on 1:DIALOG:ircN.userprot:*:* {

+  if ($devent == init) {

+    if (%userprot == on) did -c $dname 3

+    if (%msgfld == on) did -c $dname 11

+    if (%msgmaxu) did -ra $dname 13 %msgmaxu

+    else did -ra $dname 13 15

+    if (%murps) did -ra $dname 15 $div(%murps,1000)

+    else did -ra $dname 15 3

+    if (%msgremu) did -ra $dname 17 %msgremu

+    else did -ra $dname 17 45

+    if (%msgmax) did -ra $dname 19 %msgmax

+    else did -ra $dname 19 25

+    if (%mrps) did -ra $dname 21 $div(%mrps,1000)

+    else did -ra $dname 21 2

+    if (%msgrem) did -ra $dname 23 %msgrem

+    else did -ra $dname 23 30

+    if (%ctcpfld == on) did -c $dname 31

+    if (%ctcpmaxu) did -ra $dname 33 %ctcpmaxu

+    else did -ra $dname 33 5

+    if (%curps) did -ra $dname 35 $div(%curps,1000)

+    else did -ra $dname 35 3

+    if (%ctcpremu) did -ra $dname 37 %ctcpremu

+    else did -ra $dname 37 45

+    if (%ctcpmax) did -ra $dname 39 %ctcpmax

+    else did -ra $dname 39 15

+    if (%crps) did -ra $dname 41 $div(%crps,1000)

+    else did -ra $dname 41 2

+    if (%ctcprem) did -ra $dname 43 %ctcprem

+    else did -ra $dname 43 30

+    if (%notfld == on) did -c $dname 51

+    if (%notmaxu) did -ra $dname 53 %notmaxu

+    else did -ra $dname 53 20

+    if (%nturps) did -ra $dname 55 $div(%nturps,1000)

+    else did -ra $dname 55 3

+    if (%notremu) did -ra $dname 57 %notremu

+    else did -ra $dname 57 45

+    if (%notmax) did -ra $dname 59 %notmax

+    else did -ra $dname 59 35

+    if (%ntrps) did -ra $dname 61 $div(%ntrps,1000)

+    else did -ra $dname 61 5

+    if (%notrem) did -ra $dname 63 %notrem

+    else did -ra $dname 63 30

+    if (%invfld == on) did -c $dname 71

+    if (%invmaxu) did -ra $dname 73 %invmaxu

+    else did -ra $dname 73 5

+    if (%iurps) did -ra $dname 75 $div(%iurps,1000)

+    else did -ra $dname 75 3

+    if (%invremu) did -ra $dname 77 %invremu

+    else did -ra $dname 77 45

+    if (%invmax) did -ra $dname 79 %invmax

+    else did -ra $dname 79 10

+    if (%irps) did -ra $dname 81 $div(%irps,1000)

+    else did -ra $dname 81 2

+    if (%invrem) did -ra $dname 83 %invrem

+    else did -ra $dname 83 30

+    userprot.update

+    did -b $dname 4

+  }

+  elseif ($devent == edit) did -e $dname 4

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 4)) || ($did == 4)) {

+      did -b $dname 4

+      if (($did(3).state) && (%userprot == off)) fprot on

+      elseif (($did(3).state == 0) && (%userprot == on)) fprot off

+      if ($did(11).state) set %msgfld on

+      else set %msgfld off

+      set %msgmaxu $did(13)

+      set %murps $mpy($did(15),1000)

+      set %msgremu $did(17)

+      set %msgmax $did(19)

+      set %mrps $mpy($did(21),1000)

+      set %msgrem $did(23)

+      if ($did(31).state) set %ctcpfld on

+      else set %ctcpfld off

+      set %ctcpmaxu $did(33)

+      set %curps $mpy($did(35),1000)

+      set %ctcpremu $did(37)

+      set %ctcpmax $did(39)

+      set %crps $mpy($did(41),1000)

+      set %ctcprem $did(43)

+      if ($did(51).state) set %notfld on

+      else set %notfld off

+      set %notmaxu $did(53)

+      set %nturps $mpy($did(55),1000)

+      set %notremu $did(57)

+      set %notmax $did(59)

+      set %ntrps $mpy($did(61),1000)

+      set %notrem $did(63)

+      if ($did(71).state) set %invfld on

+      else set %invfld off

+      set %invmaxu $did(73)

+      set %iurps $mpy($did(75),1000)

+      set %invremu $did(77)

+      set %invmax $did(79)

+      set %irps $mpy($did(81),1000)

+      set %invrem $did(83)

+    }

+    else userprot.update

+  }

+  elseif ($devent == edit) did -e $dname 4

+}

+on 1:DIALOG:ircN.cloaksettings:*:* {

+  if ($devent == init) {

+    if (%cloak.addon == on) did -c $dname 11

+    if (%cloak.ping == on) did -c $dname 12

+    if (%cloak.version == on) did -c $dname 13

+    if (%cloak.finger == on) did -c $dname 14

+    if (%cloak.time == on) did -c $dname 15

+  }

+  elseif ($devent == sclick) {  

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      did -b $dname 3

+      if ($did(11).state) set %cloak.addon on

+      else set %cloak.addon off

+      if ($did(12).state) set %cloak.ping on

+      else set %cloak.ping off

+      if ($did(13).state) set %cloak.version on

+      else set %cloak.version off

+      if ($did(14).state) set %cloak.finger on

+      else set %cloak.finger off

+      if ($did(15).state) set %cloak.time on

+      else set %cloak.time off

+    }

+    else did -e $dname 3

+  }

+}

diff -ur --new-file ircn702\system/ircngui2.mrc ircN703\system/ircngui2.mrc

--- ircn702\system/ircngui2.mrc	Thu Jan  1 00:00:00 1970

+++ $mircdirircngui2.mrc Mon Apr  5 11:18:20 1999

@@ -0,0 +1,952 @@

+alias -l userprot.update {

+  if ($did(3).state) {

+    did -e $dname 11

+    did -e $dname 31

+    did -e $dname 51

+    did -e $dname 71

+  }

+  else {

+    did -ub $dname 11

+    did -ub $dname 31

+    did -ub $dname 51

+    did -ub $dname 71

+  }

+  if ($did(11).state) {

+    did -e $dname 10

+    did -e $dname 12

+    did -e $dname 13

+    did -e $dname 14

+    did -e $dname 15

+    did -e $dname 16

+    did -e $dname 17

+    did -e $dname 18

+    did -e $dname 19

+    did -e $dname 20

+    did -e $dname 21

+    did -e $dname 22

+    did -e $dname 23

+  }

+  else {

+    did -b $dname 10

+    did -b $dname 12

+    did -b $dname 13

+    did -b $dname 14

+    did -b $dname 15

+    did -b $dname 16

+    did -b $dname 17

+    did -b $dname 18

+    did -b $dname 19

+    did -b $dname 20

+    did -b $dname 21

+    did -b $dname 22

+    did -b $dname 23

+  }

+  if ($did(31).state) {

+    did -e $dname 30

+    did -e $dname 32

+    did -e $dname 33

+    did -e $dname 34

+    did -e $dname 35

+    did -e $dname 36

+    did -e $dname 37

+    did -e $dname 38

+    did -e $dname 39

+    did -e $dname 40

+    did -e $dname 41

+    did -e $dname 42

+    did -e $dname 43

+  }

+  else {

+    did -b $dname 30

+    did -b $dname 32

+    did -b $dname 33

+    did -b $dname 34

+    did -b $dname 35

+    did -b $dname 36

+    did -b $dname 37

+    did -b $dname 38

+    did -b $dname 39

+    did -b $dname 40

+    did -b $dname 41

+    did -b $dname 42

+    did -b $dname 43

+  }

+  if ($did(51).state) {

+    did -e $dname 50

+    did -e $dname 52

+    did -e $dname 53

+    did -e $dname 54

+    did -e $dname 55

+    did -e $dname 56

+    did -e $dname 57

+    did -e $dname 58

+    did -e $dname 59

+    did -e $dname 60

+    did -e $dname 61

+    did -e $dname 62

+    did -e $dname 63

+  }

+  else {

+    did -b $dname 50

+    did -b $dname 52

+    did -b $dname 53

+    did -b $dname 54

+    did -b $dname 55

+    did -b $dname 56

+    did -b $dname 57

+    did -b $dname 58

+    did -b $dname 59

+    did -b $dname 60

+    did -b $dname 61

+    did -b $dname 62

+    did -b $dname 63

+  }

+  if ($did(71).state) {

+    did -e $dname 70

+    did -e $dname 72

+    did -e $dname 73

+    did -e $dname 74

+    did -e $dname 75

+    did -e $dname 76

+    did -e $dname 77

+    did -e $dname 78

+    did -e $dname 79

+    did -e $dname 80

+    did -e $dname 81

+    did -e $dname 82

+    did -e $dname 83

+  }

+  else {

+    did -b $dname 70

+    did -b $dname 72

+    did -b $dname 73

+    did -b $dname 74

+    did -b $dname 75

+    did -b $dname 76

+    did -b $dname 77

+    did -b $dname 78

+    did -b $dname 79

+    did -b $dname 80

+    did -b $dname 81

+    did -b $dname 82

+    did -b $dname 83

+  }

+  did -e $dname 4

+}

+on 1:DIALOG:ircN.usersettings:*:* {

+  if ($devent == init) {

+    if (%botgetops == on) did -c $dname 11

+    if (%opbot == on) did -c $dname 12

+    if (%reopbot == on) did -c $dname 13

+    if (%botdeop == on) did -c $dname 14

+    if (%botautopass == on) did -c $dname 15

+    if (%notify == on) did -c $dname 21

+    if (%ntwhs == on) did -c $dname 22

+    if (%inotify == on) did -c $dname 23

+    if (%nsukn == on) did -c $dname 24

+    if (%userbans == on) did -c $dname 31

+    if (%showchans == on) did -c $dname 32

+    if (%info == on) did -c $dname 41

+    if (%lb) did -ra $dname 43 %lb

+    if (%rb) did -ra $dname 45 %rb

+    if (%strictops == on) did -c $dname 51

+    if (%strictchans) did -ra $dname 53 %strictchans

+    if (%protdeop == on) did -c $dname 54

+    usersettings.update

+    did -b $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      if ($did(11).state) set %botgetops on

+      else set %botgetops off

+      if ($did(12).state) set %opbot on

+      else set %opbot off

+      if ($did(13).state) set %reopbot on

+      else set %reopbot off

+      if ($did(14).state) set %botdeop on

+      else set %botdeop off

+      if ($did(15).state) set %botautopass on

+      else set %botautopass off

+      if ($did(21).state) set %notify on

+      else set %notify off

+      if ($did(22).state) set %ntwhs on

+      else set %ntwhs off

+      if ($did(23).state) set %inotify on

+      else set %inotify off

+      if ($did(24).state) set %nsukn on

+      else set %nsukn off

+      if ($did(31).state) set %userbans on

+      else set %userbans off

+      if ($did(32).state) set %showchans on

+      else set %showchans off

+      if ($did(41).state) set %info on

+      else set %info off

+      if ($did(43).text) set %lb $did(43)

+      else unset %lb

+      if ($did(45).text) set %rb $did(45)

+      else unset %rb

+      if ($did(51).state) set %strictops on

+      else set %strictops off

+      if ($did(53).text) set %strictchans $did(53)

+      else set %strictchans none

+      if ($did(54).state) set %protdeop on

+      else set %protdeop off

+      did -b $dname 3

+    }

+    else usersettings.update

+  }

+  elseif ($devent == edit) usersettings.update

+}

+alias -l usersettings.update {

+  if ($did(21).state) {

+    did -e $dname 20

+    did -e $dname 22

+    did -e $dname 23

+    did -e $dname 24

+  }

+  else {

+    did -b $dname 20

+    did -b $dname 22

+    did -b $dname 23

+    did -b $dname 24

+  }

+  if ($did(41).state) {

+    did -e $dname 40

+    did -e $dname 42

+    did -e $dname 43

+    did -e $dname 44

+    did -e $dname 45

+  }

+  else {

+    did -b $dname 40

+    did -b $dname 42

+    did -b $dname 43

+    did -b $dname 44

+    did -b $dname 45

+  }

+  if ($did(51).state) {

+    did -e $dname 52

+    did -e $dname 53

+  }

+  else {

+    did -b $dname 52

+    did -b $dname 53

+  }

+  did -e $dname 3

+}

+on 1:DIALOG:ircN.awaysettings:*:* {

+  if ($devent == init) {

+    if (%msglog == on) did -c $dname 11

+    if (%pager == on) did -c $dname 12

+    if (%em == on) did -c $dname 13

+    if (%showuin == on) did -c $dname 14

+    if (%uin != $null) did -a $dname 15 %uin

+    if (%idlesave == on) did -c $dname 16

+    if (%autousedef == on) did -c $dname 17

+    if (%clsmsg == on) did -c $dname 18

+    if (%autoaway == on) did -c $dname 19

+    if (%away.chan != $null) did -a $dname 21 %away.chan

+    if (%announce == on) did -c $dname 31

+    if (%altnick1 != $null) did -a $dname 33 %altnick1

+    if (%altnick2 != $null) did -a $dname 34 %altnick2

+    if (%saytype == action) did -c $dname 36

+    elseif (%saytype == notice) did -c $dname 37

+    elseif (%saytype == channel) did -c $dname 38

+    else did -c $dname 37

+    awaysettings.update

+    did -b $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      did -b $dname 3

+      if (($did(11).state) && (%msglog == off)) msglog on

+      elseif (($did(11).state == 0) && (%msglog == on)) msglog off

+      if (($did(12).state) && (%pager == off)) pager on

+      elseif (($did(12).state == 0) && (%pager == on)) pager off

+      if ($did(13).state) set %em on

+      else set %em off

+      if ($did(14).state) set %showuin on

+      else set %showuin off

+      if ($did(15) != $null) set %uin $did(15)

+      else unset %uin

+      if ($did(16).state) set %idlesave on

+      else set %idlesave off

+      if ($did(17).state) set %autousedef on

+      else set %autousedef off

+      if ($did(18).state) set %clsmsg on

+      else set %clsmsg off

+      if (($did(19).state) && (%autoaway == off)) autoaway on

+      elseif (($did(19).state == 0) && (%autoaway == on)) autoaway off

+      if ($did(21) != $null) set %away.chan $did(21)

+      else unset %away.chan

+      if ($did(31).state) set %announce on

+      else set %announce off

+      if ($did(33) != $null) set %altnick1 $did(33)

+      else unset %altnick1

+      if ($did(34) != $null) set %altnick2 $did(34)

+      else unset %altnick2

+      if ($did(36).state) set %saytype action

+      elseif ($did(37).state) set %saytype notice

+      elseif ($did(38).state) set %saytype channel

+      else set %saytype notice

+    }

+    else awaysettings.update

+  }

+  elseif ($devent == edit) did -e $dname 3

+}

+alias -l awaysettings.update {

+  if ($did(14).state) did -e $dname 15

+  else did -b $dname 15

+  if ($did(31).state) {

+    did -e $dname 30

+    did -e $dname 32

+    did -e $dname 33

+    did -e $dname 34

+    did -e $dname 35

+    did -e $dname 36

+    did -e $dname 37

+    did -e $dname 38

+  }

+  else {

+    did -b $dname 30

+    did -b $dname 32

+    did -b $dname 33

+    did -b $dname 34

+    did -b $dname 35

+    did -b $dname 36

+    did -b $dname 37

+    did -b $dname 38

+  }

+  did -e $dname 3

+}

+on 1:DIALOG:ircN.miscsettings:*:* {

+  if ($devent == init) {

+    if (%playsnds == on) did -c $dname 11

+    if (%copydns == on) did -c $dname 12

+    if (%rawreveal == on) did -c $dname 13

+    if (%sthemes == on) did -c $dname 14

+    if (%kickonban == on) did -c $dname 15

+    if (%colnick == on) did -c $dname 16

+    if (%netsplit == on) did -c $dname 17

+    if (%splash == on) did -c $dname 18

+    if (%autoping == on) did -c $dname 19

+    if (%hideping == on) did -c $dname 20

+    if (%lag != off) did -c $dname 21

+    if (%pongi != $null) did -a $dname 23 %pongi

+    else did -a $dname 23 1

+    if (%autocycle == on) did -c $dname 25

+    if (%autocycle.mode != $null) did -a $dname 26 %autocycle.mode

+    else did -a $dname 26 nt

+    if (%delogs == off) did -c $dname 61

+    elseif (%delogs == start) did -c $dname 62

+    elseif (%delogs == connect) did -c $dname 63

+    else did -c $dname 61

+    if (%sreq == ask) did -c $dname 72

+    elseif (%sreq == auto) did -c $dname 73

+    elseif (%sreq == ignore) did -c $dname 74

+    else did -c $dname 72

+    if (%creq == ask) did -c $dname 76

+    elseif (%creq == auto) did -c $dname 77

+    elseif (%creq == ignore) did -c $dname 78

+    else did -c $dname 76

+    miscsettings.update

+    did -b $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      did -b $dname 3

+      if ($did(11).state) set %playsnds on

+      else set %playsnds off

+      if ($did(12).state) set %copydns on

+      else set %copydns off

+      if ($did(13).state) set %rawreveal on

+      else set %rawreveal off

+      if (($did(14).state) && (%sthemes == off)) stheme on

+      elseif (($did(14).state == 0) && (%sthemes == on)) stheme off

+      if ($did(15).state) set %kickonban on

+      else set %kickonban off

+      if (($did(16).state) && (%colnick == off)) colnick on

+      elseif (($did(16).state == 0) && (%colnick == on)) colnick off

+      if ($did(17).state) set %netsplit on

+      else set %netsplit off

+      if ($did(18).state) set %splash on

+      else set %splash off

+      if ($did(19).state) set %autoping on

+      else set %autoping off

+      if (($did(20).state) && (%hideping == off)) hideping on

+      elseif (($did(20).state == 0) && (%hideping == on)) hideping off

+      if ($did(21).state) set %lag 0

+      else set %lag off

+      if ($did(23)) set %pongi $did(23)

+      else set %pongi 1

+      if ($did(25).state) set %autocycle on

+      else set %autocycle off

+      if ($did(26)) set %autocycle.mode $did(26)

+      else set %autocycle.mode nt

+      if ($did(61).state) set %delogs off

+      elseif ($did(62).state) set %delogs start

+      elseif ($did(63).state) set %delogs connect

+      else set %delogs off

+      if ($did(72).state) set %sreq ask

+      elseif ($did(73).state) set %sreq auto

+      elseif ($did(74).state) set %sreq ignore

+      else set %sreq ask

+      if ($did(76).state) set %creq ask

+      elseif ($did(77).state) set %creq auto

+      elseif ($did(78).state) set %creq ignore

+      else set %creq ask

+    }

+    else miscsettings.update

+  }

+  elseif ($devent == edit) did -e $dname 3

+}

+alias -l miscsettings.update {

+  if ($did(21).state) {

+    did -e $dname 22

+    did -e $dname 23

+    did -e $dname 24

+  }

+  else {

+    did -b $dname 22

+    did -b $dname 23

+    did -b $dname 24

+  }

+  if ($did(25).state) did -e $dname 26

+  else did -b $dname 26

+  did -e $dname 3

+}

+on 1:DIALOG:ircN.echosettings:*:* {

+  if ($devent == init) {

+    if (%idlewhois == on) did -c $dname 11

+    if (%whoiswin == on) did -c $dname 12

+    if (%wllp == on) did -c $dname 13

+    if (%snotice == on) did -c $dname 14

+    if (%userstatus == on) did -c $dname 15

+    if (%joinch == on) did -c $dname 21

+    if (%jointpc == on) did -c $dname 22

+    if (%jointtl == on) did -c $dname 23

+    if (%joinnms == on) did -c $dname 24

+    if (%joinsyn == on) did -c $dname 25

+    if (%jointst == on) did -c $dname 26

+    if (%clonescan == on) did -c $dname 31

+    if (%clonechannels != $null) did -a $dname 33 %clonechannels

+    else did -a $dname 33 none

+    if (%clopkick == on) did -c $dname 34

+    if (%clusrkick == on) did -c $dname 35

+    if (%clonelevel == 1) did -c $dname 37

+    elseif (%clonelevel == 2) did -c $dname 38

+    elseif (%clonelevel == 3) did -c $dname 39

+    elseif (%clonelevel == 4) did -c $dname 40

+    else did -c $dname 37

+    if (%clocktb == on) did -c $dname 51

+    if (%clock == chan) did -c $dname 53

+    elseif (%clock == echo) did -c $dname 54

+    elseif (%clock == off) did -c $dname 55

+    else did -c $dname 55

+    echosettings.update

+    did -b $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      did -b $dname 3

+      if ($did(11).state) set %idlewhois on

+      else set %idlewhois off

+      if ($did(12).state) set %whoiswin on

+      else set %whoiswin off

+      if ($did(13).state) set %wllp on

+      else set %wllp off

+      if ($did(14).state) set %snotice on

+      else set %snotice off

+      if ($did(15).state) set %userstatus on

+      else set %userstatus off

+      if ($did(21).state) set %joinch on

+      else set %joinch off

+      if ($did(22).state) set %jointpc on

+      else set %jointpc off

+      if ($did(23).state) set %jointtl on

+      else set %jointtl off

+      if ($did(24).state) set %joinnms on

+      else set %joinnms off

+      if ($did(25).state) set %joinsyn on

+      else set %joinsyn off

+      if ($did(26).state) set %jointst on

+      else set %jointst off

+      if ($did(31).state) set %clonescan on

+      else set %clonescan off

+      if ($did(33)) set %clonechannels $did(33)

+      else set %clonechannels none

+      if ($did(34).state) set %clopkick on

+      else set %clopkick off

+      if ($did(35).state) set %clusrkick on

+      else set %clusrkick off

+      if ($did(37).state) set %clonelevel 1

+      elseif ($did(38).state) set %clonelevel 2

+      elseif ($did(39).state) set %clonelevel 3

+      elseif ($did(40).state) set %clonelevel 4

+      else set %clonelevel 1

+      if ($did(51).state) set %clocktb on

+      else set %clocktb off

+      if ($did(53).state) set %clock chan

+      elseif ($did(54).state) set %clock echo

+      elseif ($did(55).state) set %clock off

+      else set %clock off

+    }

+    else echosettings.update

+  }

+  elseif ($devent == edit) did -e $dname 3

+}

+alias -l echosettings.update {

+  if ($did(21).state) {

+    did -e $dname 20

+    did -e $dname 22

+    did -e $dname 23

+    did -e $dname 24

+    did -e $dname 25

+    did -e $dname 26

+  }

+  else {

+    did -b $dname 20

+    did -b $dname 22

+    did -b $dname 23

+    did -b $dname 24

+    did -b $dname 25

+    did -b $dname 26

+  }

+  if ($did(31).state) {

+    did -e $dname 30

+    did -e $dname 32

+    did -e $dname 33

+    did -e $dname 34

+    did -e $dname 35

+    did -e $dname 36

+    did -e $dname 37

+    did -e $dname 38

+    did -e $dname 39

+    did -e $dname 40

+  }

+  else {

+    did -b $dname 30

+    did -b $dname 32

+    did -b $dname 33

+    did -b $dname 34

+    did -b $dname 35

+    did -b $dname 36

+    did -b $dname 37

+    did -b $dname 38

+    did -b $dname 39

+    did -b $dname 40

+  }

+  did -e $dname 3

+}

+on 1:DIALOG:ircN.themesettings:*:* {

+  if ($devent == init) {

+    if (%theme == on) did -c $dname 4

+    if (%theme.fileget == on) did -c $dname 11

+    if (%theme.filesent == on) did -c $dname 12

+    if (%theme.dccchat == on) did -c $dname 13

+    if (%theme.dccsend == on) did -c $dname 14

+    if (%theme.nomsg == on) did -c $dname 21

+    if (%theme.gotmsg == on) did -c $dname 22

+    if (%theme.seemsg == on) did -c $dname 23

+    if (%theme.delmsg == on) did -c $dname 24

+    if (%theme.msg == on) did -c $dname 31

+    if (%theme.notice == on) did -c $dname 32

+    if (%theme.page == on) did -c $dname 33

+    if (%theme.welcome == on) did -c $dname 41

+    if (%theme.connect == on) did -c $dname 42

+    if (%theme.disconnect == on) did -c $dname 43

+    if (%theme.split == on) did -c $dname 51

+    if (%theme.kicked == on) did -c $dname 52

+    if (%theme.nick == on) did -c $dname 53

+    if (%theme.topic == on) did -c $dname 54

+    if (%theme.away == on) did -c $dname 55

+    if (%theme.back == on) did -c $dname 56

+    if (%theme.flood == on) did -c $dname 57

+    if (%theme.invite == on) did -c $dname 58

+    if (%theme.rejoin == on) did -c $dname 59

+    themesettings.update

+    did -b $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      did -b $dname 3

+      if (($did(4).state) && (%theme == off)) themes on

+      elseif (($did(4).state == 0) && (%theme == on)) themes off

+      if ($did(11).state) set %theme.fileget on

+      else set %theme.fileget off

+      if ($did(12).state) set %theme.filesent on

+      else set %theme.filesent off

+      if ($did(13).state) set %theme.dccchat on

+      else set %theme.dccchat off

+      if ($did(14).state) set %theme.dccsend on

+      else set %theme.dccsend off

+      if ($did(21).state) set %theme.nomsg on

+      else set %theme.nomsg off

+      if ($did(22).state) set %theme.gotmsg on

+      else set %theme.gotmsg off

+      if ($did(23).state) set %theme.seemsg on

+      else set %theme.seemsg off

+      if ($did(24).state) set %theme.delmsg on

+      else set %theme.delmsg off

+      if ($did(31).state) set %theme.msg on

+      else set %theme.msg off

+      if ($did(32).state) set %theme.notice on

+      else set %theme.notice off

+      if ($did(33).state) set %theme.page on

+      else set %theme.page off

+      if ($did(41).state) set %theme.welcome on

+      else set %theme.welcome off

+      if ($did(42).state) set %theme.connect on

+      else set %theme.connect off

+      if ($did(43).state) set %theme.disconnect on

+      else set %theme.disconnect off

+      if ($did(51).state) set %theme.split on

+      else set %theme.split off

+      if ($did(52).state) set %theme.kicked on

+      else set %theme.kicked off

+      if ($did(53).state) set %theme.nick on

+      else set %theme.nick off

+      if ($did(54).state) set %theme.topic on

+      else set %theme.topic off

+      if ($did(55).state) set %theme.away on

+      else set %theme.away off

+      if ($did(56).state) set %theme.back on

+      else set %theme.back off

+      if ($did(57).state) set %theme.flood on

+      else set %theme.flood off

+      if ($did(58).state) set %theme.invite on

+      else set %theme.invite off

+      if ($did(59).state) set %theme.rejoin on

+      else set %theme.rejoin off

+    }

+    else themesettings.update

+  }

+}

+alias -l themesettings.update {

+  if ($did(4).state) {

+    did -e $dname 10

+    did -e $dname 11

+    did -e $dname 12

+    did -e $dname 13

+    did -e $dname 14

+    did -e $dname 20

+    did -e $dname 21

+    did -e $dname 22

+    did -e $dname 23

+    did -e $dname 24

+    did -e $dname 30

+    did -e $dname 31

+    did -e $dname 32

+    did -e $dname 33

+    did -e $dname 40

+    did -e $dname 41

+    did -e $dname 42

+    did -e $dname 43

+    did -e $dname 50

+    did -e $dname 51

+    did -e $dname 52

+    did -e $dname 53

+    did -e $dname 54

+    did -e $dname 55

+    did -e $dname 56

+    did -e $dname 57

+    did -e $dname 58

+    did -e $dname 59

+  }

+  else {

+    did -b $dname 10

+    did -b $dname 11

+    did -b $dname 12

+    did -b $dname 13

+    did -b $dname 14

+    did -b $dname 20

+    did -b $dname 21

+    did -b $dname 22

+    did -b $dname 23

+    did -b $dname 24

+    did -b $dname 30

+    did -b $dname 31

+    did -b $dname 32

+    did -b $dname 33

+    did -b $dname 40

+    did -b $dname 41

+    did -b $dname 42

+    did -b $dname 43

+    did -b $dname 50

+    did -b $dname 51

+    did -b $dname 52

+    did -b $dname 53

+    did -b $dname 54

+    did -b $dname 55

+    did -b $dname 56

+    did -b $dname 57

+    did -b $dname 58

+    did -b $dname 59

+  }

+  did -e $dname 3

+}

+on 1:DIALOG:ircN.setupsettings:*:* {

+  if ($devent == init) {

+    if (%idle != $null) did -a $dname 12 $div(%idle,60)

+    else did -a $dname 12 10

+    if (%awaycmd != $null) did -a $dname 15 %awaycmd

+    else did -a $dname 15 /away

+    if (%im != $null) did -a $dname 17 %im

+    else did -a $dname 17 .

+    if (%it != $null) did -a $dname 19 $div(%it,60)

+    else did -a $dname 19 1

+    if (%idcheck == on) did -c $dname 31

+    if (%idauto == on) did -c $dname 32

+    if (%idlemax != $null) did -a $dname 34 $div(%idlemax,60)

+    else did -a $dname 34 1

+    if (%idchan != $null) did -a $dname 37 %idchan

+    else did -a $dname 37 none

+    if (%idtog == on) did -c $dname 38

+    if (%idphrase != $null) did -a $dname 40 %idphrase

+    else did -a $dname 40 .

+    if (%nc == on) did -c $dname 51

+    if (%nlb != $null) did -a $dname 53 %nlb

+    if (%nrb != $null) did -a $dname 55 %nrb

+    if (%nch != $null) did -a $dname 57 %nch

+    else did -a $dname 57 :

+    if (%sthemes == on) {

+      set %i 0

+      :ncstyle

+      inc %i

+      if ($gettok($form(nickcomp,styles),%i,44)) {

+        did -a $dname 59 $gettok($form(nickcomp,styles),%i,44)

+        goto ncstyle

+      }

+      did -a $dname 59 random

+      if (%ncstyle == random) did -c $dname 59 $did(59).lines

+      else did -c $dname 59 $findtok($form(nickcomp,styles),%ncstyle,1,44)

+    }

+    if (%shitkick != $null) did -a $dname 62 %shitkick

+    else did -a $dname 62 lewser

+    if (%idreason != $null) did -a $dname 64 %idreason

+    else did -a $dname 64 anti-idles suck

+    if (%ckb != $null) did -a $dname 66 %ckb

+    else did -a $dname 66 invites are lame

+    if (%msk != $null) did -a $dname 68 %msk

+    else did -a $dname 68 mass kick

+    if (%bankick != $null) did -a $dname 70 %bankick

+    else did -a $dname 70 don't ban me

+    if (%defaulta != $null) did -a $dname 82 %defaulta

+    if (%dback != $null) did -a $dname 84 %dback

+    if (%defaultt != $null) did -a $dname 92 %defaultt

+    if (%wall != $null) did -a $dname 94 %wall

+    else did -a $dname 94 WallOP

+    if (%voice != $null) did -a $dname 96 %voice

+    else did -a $dname 96 voice

+    if (%nonops != $null) did -a $dname 98 %nonops

+    else did -a $dname 98 nonops

+    if (%modesonline != $null) did -a $dname 100 %modesonline

+    else did -a $dname 100 3

+    if (%tz != $null) did -a $dname 112 %tz

+    if (%umode != $null) did -a $dname 114 %umode

+    else did -a $dname 114 +i

+    if (%showword == on) did -c $dname 115

+    if (%shortnick != $null) did -a $dname 116 %shortnick

+    if (%shownick == on) did -c $dname 117

+    if (%irc2.nick != $null) did -a $dname 123 %irc2.nick

+    else did -a $dname 123 $readini $mircini mirc nick

+    if (%irc2.altnick != $null) did -a $dname 125 %irc2.altnick

+    else did -a $dname 125 $readini $mircini mirc anick

+    if (%irc2.rejoin == on) did -c $dname 126

+    did -a $dname 137 email address

+    if (%def.tel.port != $null) did -a $dname 139 %def.tel.port

+    else did -a $dname 139 23

+    if (%def.tel.echo == on) did -c $dname 140

+    setupsettings.update

+    did -b $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {

+      did -b $dname 3

+      if ($did(12)) set %idle $mpy($did(12),60)

+      else set %idle 600

+      if ($did(15)) set %awaycmd $did(15)

+      else set %awaycmd /away

+      if ($did(17)) set %im $did(17)

+      else set %im .

+      if ($did(19)) set %it $mpy($did(19),60)

+      else set %it 60

+      if (($did(31).state) && (%idcheck == off)) idlechk on

+      elseif (($did(31).state == 0) && (%idcheck == on)) idlechk off

+      if ($did(32).state) {

+        set %idauto on

+        .timer 0 300 idchk

+        set %idchktimer $ltimer

+      }

+      else {

+        set %idauto off

+        timoff %idchktimer idchktimer

+      }

+      if ($did(34)) set %idlemax $mpy($did(34),60)

+      else set %idlemax 3600

+      if ($did(37)) set %idchan $did(37)

+      else set %idchan none

+      if ($did(38).state) set %idtog on

+      else set %idtog off

+      if ($did(40)) set %idphrase $did(40)

+      else set %idphrase .

+      if ($did(51).state) set %nc on

+      else set %nc off

+      if ($did(53)) set %nlb $did(53)

+      else unset %nlb

+      if ($did(55)) set %nrb $did(55)

+      else unset %nrb

+      if ($did(57)) set %nch $did(57)

+      else set %nch :

+      if (%sthemes == on) set %ncstyle $did(59,$did(59).sel)

+      if ($did(62)) set %shitkick $did(62)

+      else set %shitkick lewser

+      if ($did(64)) set %idreason $did(64)

+      else set %idreason anti-idles suck

+      if ($did(66)) set %ckb $did(66)

+      else set %ckb invites are lame

+      if ($did(68)) set %msk $did(68)

+      else set %msk mass kick

+      if ($did(70)) set %bankick $did(70)

+      else set %bankick don't ban me

+      if ($did(82)) set %defaulta $did(82)

+      else unset %defaulta

+      if ($did(84)) set %dback $did(84)

+      else unset %dback

+      if ($did(92)) set %defaultt $did(92)

+      else unset %defaultt

+      if ($did(94)) set %wall $did(94)

+      else set %wall WallOP

+      if ($did(96)) set %voice $did(96)

+      else set %voice voice

+      if ($did(98)) set %nonops $did(98)

+      else set %nonops nonops

+      if ($did(100)) set %modesonline $did(100)

+      else set %modesonline 3

+      if ($did(112)) set %tz $did(112)

+      else unset %tz

+      if ($did(114)) set %umode $did(114)

+      else set %umode +i

+      if ($did(115).state) set %showword on

+      else set %showword off

+      if ($did(116)) set %shortnick $did(116)

+      else unset %shortnick

+      if ($did(117).state) set %shownick on

+      else set %shownick off

+      if ($did(123)) set %irc2.nick $did(123)

+      else set %irc2.nick $readini $mircini mirc nick

+      if ($did(125)) set %irc2.altnick $did(125)

+      else set %irc2.altnick $readini $mircini mirc anick

+      if ($did(126).state) set %irc2.rejoin on

+      else set %irc2.rejoin off

+      if ($did(139)) set %def.tel.port $did(139)

+      else set %def.tel.port 23 

+      if ($did(140).state) set %def.tel.echo on

+      else set %def.tel.echo off

+    }

+    elseif ($did == 86) .timer 1 0 set %sound $$ $+ dir="Select pager sound." $wavdir(*.wav)

+    elseif ($did == 119) .timer 1 0 set %idosdir $$ $+ sdir="Choose default iDOS directory." .

+    elseif ($did == 128) .timer 1 0 setpop

+    elseif ($did == 129) .timer 1 0 setsmtp

+    elseif ($did == 132) .timer 1 0 mailnick -n $did(131)

+    elseif ($did == 133) .timer 1 0 mailnick -d $did(131)

+    elseif ($did == 134) .timer 1 0 mailnick -v $did(131)

+    elseif ($did == 135) .timer 1 0 mailnick -a $did(131) $did(137)

+    elseif ($did == 136) .timer 1 0 mailnick -r $did(131) $did(137)

+    elseif ($did == 141) .timer 1 0 set %def.tel.exe $$ $+ dir="Enter telnet application for vt100 emulation" c:\windows\*.exe $ $+ ?="Parameters? (cancel for none)"

+    else setupsettings.update

+  }

+  elseif ($devent == edit) setupsettings.update

+}

+alias -l setupsettings.update {

+  if ($did(31).state) {

+    did -e $dname 30

+    did -e $dname 32

+    if ($did(32).state) {

+      did -e $dname 33

+      did -e $dname 34

+      did -e $dname 35

+    }

+    else {

+      did -b $dname 33

+      did -b $dname 34

+      did -b $dname 35

+    }

+    did -e $dname 36

+    did -e $dname 37

+    did -e $dname 38

+    if ($did(38).state) {

+      did -e $dname 39

+      did -e $dname 40

+    }

+    else {

+      did -b $dname 39

+      did -b $dname 40

+    }

+  }

+  else {

+    did -b $dname 30

+    did -bu $dname 32

+    did -b $dname 33

+    did -b $dname 34

+    did -b $dname 35

+    did -b $dname 36

+    did -b $dname 37

+    did -bu $dname 38

+    did -b $dname 39

+    did -b $dname 40

+  }

+  if ($did(51).state) {

+    did -e $dname 50

+    did -e $dname 52

+    did -e $dname 53

+    did -e $dname 54

+    did -e $dname 55

+    did -e $dname 56

+    did -e $dname 57

+    if (%sthemes == on) {

+      did -e $dname 58

+      did -e $dname 59

+    }

+    else {

+      did -b $dname 58

+      did -bu $dname 59

+    }

+  }

+  else {

+    did -b $dname 50

+    did -b $dname 52

+    did -b $dname 53

+    did -b $dname 54

+    did -b $dname 55

+    did -b $dname 56

+    did -b $dname 57

+    did -b $dname 58

+    did -b $dname 59

+  }

+  if ($did(115).state) did -e $dname 116

+  else did -b $dname 116

+  if ($did(131) != $null) {

+    did -e $dname 132

+    did -e $dname 133

+    did -e $dname 134

+    did -e $dname 137

+    if ($did(137) != $null) {

+      did -e $dname 135

+      did -e $dname 136

+    }

+    else {

+      did -b $dname 135

+      did -b $dname 136

+    }

+  }

+  else {

+    did -b $dname 132

+    did -b $dname 133

+    did -b $dname 134

+    did -b $dname 135

+    did -b $dname 136

+    did -b $dname 137

+  }

+  did -e $dname 3

+}

diff -ur --new-file --recursive ircN702/system/mpopup.pop ircN703/system/mpopup.pop

--- ircN702/system/mpopup.pop	Wed Mar 31 20:26:58 1999

+++ $mircdirmpopup.pop   Sun Apr  4 20:55:14 1999

@@ -10,6 +10,7 @@

)-

)misc { miscsettings }

)echo { echosettings }

+ctcp cloak { cloaksettings }

)colors { colors }

)$toggled(%theme) theme { themesettings }

)-

diff -ur --new-file --recursive ircN702/system/partylin.als ircN703/system/partylin.als

--- ircN702/system/partylin.als	Wed Mar 24 15:59:46 1999

+++ $mircdirpartylin.als Sun Apr  4 20:26:24 1999

@@ -855,5 +855,5 @@

)  }

)  partyline.chat $1 .chat off

)  sockrename $1 $puttok($1,remote,1,46)

-  rc.login $puttok($1,telnet,1,46) remote

+  rc.login $puttok($1,remote,1,46)

)}

diff -ur --new-file --recursive ircN702/system/query.als ircN703/system/query.als

--- ircN702/system/query.als	Fri Apr  2 11:09:30 1999

+++ $mircdirquery.als    Fri Apr  2 23:31:00 1999

@@ -286,7 +286,6 @@

)  }

)}

)whois {

-  inc %whois

)  if (%idlewhois == on) wii $1

)  else wi $1-

)}

diff -ur --new-file --recursive ircN702/system/raw.mrc ircN703/system/raw.mrc

--- ircN702/system/raw.mrc	Fri Mar 26 14:28:24 1999

+++ $mircdirraw.mrc      Fri Apr  2 18:53:56 1999

@@ -309,16 +309,15 @@

)    halt

)  }

)  elseif (%cwhois) {

-    if (%cwhowas) {

-      if ($form(cwhowas,server)) msg $active $readini %formats cwhowas server

-      else msg $active $vl serv : $3

-      if ($form(cwhowas,last)) msg $active $readini %formats cwhowas last

-      else msg $active $vl last : $4-

-    }

-    else {

-      if ($form(cwhois,server)) msg $active $readini %formats cwhois server

-      else msg $active $vl serv : $3

-    }

+    if ($form(cwhois,server)) msg $active $readini %formats cwhois server

+    else msg $active $vl serv : $3

+    halt

+  }

+  elseif (%cwhowas) {

+    if ($form(cwhowas,server)) msg $active $readini %formats cwhowas server

+    else msg $active $vl serv : $3

+    if ($form(cwhowas,last)) msg $active $readini %formats cwhowas last

+    else msg $active $vl last : $4-

)    halt

)  }

)}

diff -ur --new-file --recursive ircN702/system/raw3.mrc ircN703/system/raw3.mrc

--- ircN702/system/raw3.mrc	Fri Mar 26 15:59:20 1999

+++ $mircdirraw3.mrc     Fri Apr  2 18:57:18 1999

@@ -397,7 +397,7 @@

)    inc %nwhois

)    halt

)  }

-  elseif (%cwhois == on) {

+  elseif (%cwhois) {

)    if ($form(cwhois,error)) iecho $readini %formats cwhois error

)    else iecho No such nickname $hc($2) on IRC.

)    dec %cwhois

@@ -474,6 +474,13 @@

)    if ($form(whowas,error)) iecho $readini %formats whowas error

)    else iecho Could not locate $hc(WHOWAS) information for $hc($2) $+ .

)    dec %whowas

+    inc %nwhowas

+    halt

+  }

+  if (%cwhowas) {

+    if ($form(whowas,error)) iecho $readini %formats whowas error

+    else iecho Could not locate $hc(WHOWAS) information for $hc($2) $+ .

+    dec %cwhowas

)    inc %nwhowas

)    halt

)  }

diff -ur --new-file --recursive ircN702/system/telnet.mrc ircN703/system/telnet.mrc

--- ircN702/system/telnet.mrc	Wed Mar 31 21:07:54 1999

+++ $mircdirtelnet.mrc   Mon Apr  5 00:58:18 1999

@@ -87,3 +87,236 @@

)    .timer 1 0 tel.login $1 .

)  }

)}

+on 1:SOCKREAD:partyline.* {

+  if ($sockerr > 0) return

+  sockread %pl.parse

+  if ($sockbr == 0) return

+  if (%pl.parse != $null) pl.parse $sockname $remove(%pl.parse,$chr(8))

+}

+alias pl.parse {

+  if ((($chkflag($gettok($1,2,46),*,m)) || ($chkflag($gettok($1,2,46),$null,n))) && ($left($2,1) == ,)) pl.fbc m - $+ $gettok($1,2,46) $+ - $getright($2-)

+  elseif (($pl.var($gettok($1,2,46),channel) == $null) || ($left($2,1) == .)) {

+    set %tmp.pl.parse $iif($left($2,1) == .,$getright($2),$2)

+    if ($isalias($addtok(partyline,%tmp.pl.parse,46))) {

+      $addtok(partyline,%tmp.pl.parse,46) $1-

+      set %tmp.pl.parse $iif($left($2,1) == .,$getright($2),$2)

+      if ($result == -2) sockwrite -n $1 You have chat turned off.

+      elseif ($result == -1) {

+        if ($pl.var($gettok($1,2,46),channel) != $null) sockwrite -n $1 What? Try '.help'

+        else sockwrite -n $1 What? Try 'help'

+      }

+      elseif ($result == 0) return

+      elseif ($result == 1) pl.fbc m $chr(35) $+ $gettok($1,2,46) $+ $chr(35) %tmp.pl.parse $3-

+      elseif ($result == 2) pl.fbc m $chr(35) $+ $gettok($1,2,46) $+ $chr(35) %tmp.pl.parse (something)

+      elseif ($result == 3) pl.fbc m $chr(35) $+ $gettok($1,2,46) $+ $chr(35) %tmp.pl.parse $3 (something)

+      elseif ($result isnum) pl.fbc m $chr(35) $+ $gettok($1,2,46) $+ $chr(35) %tmp.pl.parse $3- [ $+ [ $result ] ] (something)

+      else partyline.boot partyline. $+ $gettok(%owner,1,44) .boot $gettok($1,2,46) Command ' $+ %tmp.pl.parse $+ ' returned invalid value!

+    }

+    elseif ($pl.var($gettok($1,2,46),channel) != $null) sockwrite -n $1 What? Try '.help'

+    else sockwrite -n $1 What? Try 'help'

+  }

+  elseif ($pl.var($gettok($1,2,46),channel) != $null) {

+    partyline.say $1-

+    if ($result == -2) sockwrite -n $1 You have chat turned off.

+  }

+}

+alias pl.login {

+  sockwrite -n $1 $crlf $+ Connected to $me $+ , running $strip(%iver) (c) 1999 The Quietust $+ $crlf

+  qplay -f $td(cmotd.txt) sockwrite -n $1

+  sockwrite -n $1 $crlf $+ Commands start with '.' (like '.quit' or '.help') $+ $crlf $+ Everything else goes out to the party line. $+ $crlf

+  sockmark $1 on off - - $ctime 0

+  pl.bc $1 *** $gettok($1,2,46) joined the party line.

+}

+alias pl.chkowner {

+  set %i 0

+  :start

+  inc %i

+  if ($gettok(%owner,%i,44)) {

+    set %tmp.pl.chkowner +

+    if ($chkflag($gettok(%owner,%i,44),$null,n) == $false) set %tmp.pl.chkowner %tmp.pl.chkowner $+ n

+    if ($chkflag($gettok(%owner,%i,44),$null,m) == $false) set %tmp.pl.chkowner %tmp.pl.chkowner $+ m

+    if ($chkflag($gettok(%owner,%i,44),$null,p) == $false) set %tmp.pl.chkowner %tmp.pl.chkowner $+ p

+    if (%tmp.pl.chkowner != +) chattr $gettok(%owner,%i,44) %tmp.pl.chkowner

+    goto start

+  }

+}

+alias pl.set {

+  if ($2 == echo) sockmark $addtok(partyline,$1,46) $3 $gettok($sock($addtok(partyline,$1,46)).mark,2-,32)

+  elseif ($2 == timestamp) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1,32) $3 $gettok($sock($addtok(partyline,$1,46)).mark,3-,32)

+  elseif ($2 == consolechannel) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1-2,32) $3 $gettok($sock($addtok(partyline,$1,46)).mark,4-,32)

+  elseif ($2 == consolemode) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1-3,32) $3 $gettok($sock($addtok(partyline,$1,46)).mark,5-,32)

+  elseif ($2 == idle) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1-4,32) $3 $gettok($sock($addtok(partyline,$1,46)).mark,6-,32)

+  elseif ($2 == channel) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1-5,32) $3 $gettok($sock($addtok(partyline,$1,46)).mark,7-,32)

+  elseif ($2 == away) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1-6,32) $3-

+}

+alias pl.var {

+  if ($2 == echo) return $gettok($sock($addtok(partyline,$1,46)).mark,1,32)

+  elseif ($2 == timestamp) return $gettok($sock($addtok(partyline,$1,46)).mark,2,32)

+  elseif ($2 == consolechannel) return $gettok($sock($addtok(partyline,$1,46)).mark,3,32)

+  elseif ($2 == consolemode) return $gettok($sock($addtok(partyline,$1,46)).mark,4,32)

+  elseif ($2 == idle) return $gettok($sock($addtok(partyline,$1,46)).mark,5,32)

+  elseif ($2 == channel) return $gettok($sock($addtok(partyline,$1,46)).mark,6,32)

+  elseif ($2 == away) return $gettok($sock($addtok(partyline,$1,46)).mark,7-,32)

+}

+alias pl.unset {

+  if ($2 == channel) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1-5,32) - $gettok($sock($addtok(partyline,$1,46)).mark,7-,32)

+  elseif ($2 == away) sockmark $addtok(partyline,$1,46) $gettok($sock($addtok(partyline,$1,46)).mark,1-6,32)

+}

+alias pl.clr sockmark $addtok(partyline,$1,46)

+alias pl.bc {

+  set %i 0

+  :start

+  inc %i

+  set %dcnick $gettok($sock(partyline.*,%i),2,46)

+  if (%dcnick) {

+    if ($pl.var(%dcnick,channel) != $null) {

+      if (($gettok($1,2,46) == %dcnick) && ($pl.var(%dcnick,echo) == off)) goto start

+      if ($pl.var(%dcnick,channel) == $pl.var($gettok($1,2,46),channel)) {

+        if ($pl.var(%dcnick,timestamp) == on) sockwrite -n $addtok(partyline,%dcnick,46) $timestamp $2-

+        else sockwrite -n $addtok(partyline,%dcnick,46) $2-

+      }

+    }

+    goto start

+  }

+}

+alias pl.fbc {

+  set %i 0

+  :start

+  inc %i

+  set %dcnick $gettok($sock(partyline.*,%i),2,46)

+  if (%dcnick) {

+    if ($chkflag(%dcnick,*,$1)) {

+      if ($pl.var(%dcnick,timestamp) == on) sockwrite -n $addtok(partyline,%dcnick,46) $timestamp $2-

+      else sockwrite -n $addtok(partyline,%dcnick,46) $2-

+    }

+    goto start

+  }

+}

+alias partychat telnet $ip $sock(telnet).port

+alias pl.whom {

+  set %pl.tmp $flags($1)

+  if (n isincs %pl.tmp) return * $+ $1

+  if (m isincs %pl.tmp) return + $+ $1

+  if (o isincs %pl.tmp) return @ $+ $1

+  if ($chkflag($1,$pl.var($1,consolechannel),o)) return @ $+ $1

+  return $1

+}

+on 1:SOCKCLOSE:partyline.* {

+  if ($pl.var($gettok($sockname,2,46),channel) != $null) {

+    pl.bc $sockname *** $gettok($sockname,2,46) lost dcc link.

+    pl.clr $gettok($sockname,2,46)

+  }

+}

+on 1:CHAT:.partyline {

+  qctcp $nick DCC CHAT chat $longip($ip) %telnetport

+  close -c $nick

+}

+alias pl.checkflags {

+  set %tmp.pl.checkflags $addtok(partyline,$1,46)

+  if ($sock(%tmp.pl.checkflags)) {

+    if ((x !isin $2) && (x isin $3)) {

+      sockwrite -n %tmp.pl.checkflags -+- POOF! -+-

+      sockwrite -n %tmp.pl.checkflags You now have file area access.

+    }

+    if ((m !isin $2) && (m isin $3)) {

+      sockwrite -n %tmp.pl.checkflags *** POOF! ***

+      sockwrite -n %tmp.pl.checkflags You are now a master.

+    }

+    if ((n !isin $2) && (n isin $3)) {

+      sockwrite -n %tmp.pl.checkflags @@@ POOF! @@@

+      sockwrite -n %tmp.pl.checkflags You are now an OWNER.

+    }

+    if ((r !isin $2) && (r isin $3)) {

+      sockwrite -n %tmp.pl.checkflags ### POOF! ###

+      sockwrite -n %tmp.pl.checkflags You now have REMOTE CONTROL access.

+    }

+    if ((r isin $2) && (r !isin $3)) {

+      sockwrite -n %tmp.pl.checkflags ### POOF! ###

+      sockwrite -n %tmp.pl.checkflags You no longer have remote control access.

+    }

+    if ((n isin $2) && (n !isin $3)) {

+      sockwrite -n %tmp.pl.checkflags @@@ POOF! @@@

+      sockwrite -n %tmp.pl.checkflags You are no longer an owner.

+    }

+    if ((m isin $2) && (m !isin $3)) {

+      sockwrite -n %tmp.pl.checkflags *** POOF! ***

+      sockwrite -n %tmp.pl.checkflags You are no longer a master.

+    }

+    if ((x isin $2) && (x !isin $3)) {

+      sockwrite -n %tmp.pl.checkflags -+- POOF! -+-

+      sockwrite -n %tmp.pl.checkflags You no longer have file area access.

+    }

+    if ((p isin $2) && (p !isin $3)) {

+      sockwrite -n %tmp.pl.checkflags -*- POOF! -*-

+      sockwrite -n %tmp.pl.checkflags You no longer have party line access.

+      .timer 1 0 partyline.boot partyline. $+ $gettok(%owner,1,44) .boot $1 User no longer has party line access.

+    }

+  }

+  set %tmp.pl.checkflags $addtok(remote,$1,46)

+  if ($sock(%tmp.pl.checkflags)) {

+    if ((r isin $2) && (r !isin $3)) {

+      sockwrite -n %tmp.pl.checkflags ### POOF! ###

+      sockwrite -n %tmp.pl.checkflags You no longer have remote control access.

+      if ($sock($addtok(telnet,$1,46))) sockclose %tmp.pl.checkflags

+      else {

+        sockwrite -n %tmp.pl.checkflags Returning to interface menu...

+        sockrename %tmp.pl.checkflags $addtok(telnet,$1,46)

+        tel.login $addtok(telnet,$1,46) .

+      }

+    }

+  }

+}

+on 1:SOCKREAD:su.* {

+  if ($sockerr > 0) return

+  sockread %su.parse

+  if ($sockbr == 0) return

+  pl.su $sockname %su.parse

+}

+alias pl.su {

+  if ($2 === $password($gettok($1,2,46))) {

+    sockwrite $1 $crlf

+    sockrename $1 $addtok(partyline,$gettok($1,2,46),46)

+    pl.login $addtok(partyline,$gettok($1,2,46),46)

+  }

+  else {

+    sockwrite -n $1 Negative on that, Houston.

+    sockrename $1 $addtok(partyline,$gettok($1,3,46),46)

+    pl.login $addtok(partyline,$gettok($1,3,46),46)

+  }

+}

+on 1:SOCKREAD:remote.* {

+  if ($sockerr > 0) return

+  sockread %rc.parse

+  if ($sockbr == 0) return

+  rc.parse $sockname %rc.parse

+}

+alias rc.login {

+  iecho Remote control interface with $gettok($1,2,46) initialized.

+  sockwrite -n $1 Remote control interface initiated. $+ $crlf $+ Type ".return" to return to the interface menu.

+}

+alias rc.parse {

+  if ($2 == .return) {

+    sockwrite -n $1 Remote control interface terminated.

+    if ($sock($puttok($1,telnet,1,46))) sockclose $1

+    else {

+      sockwrite -n $1 Returning to interface menu...

+      sockrename $1 $puttok($1,telnet,1,46)

+      tel.login $puttok($1,telnet,1,46) .

+    }

+    iecho Remote control interface with $gettok($1,2,46) terminated.

+  }

+  else $2-

+}

+alias rc.relay {

+  set %rc.txt $1-

+  if ($gettok(%rc.txt,1,32) isnum) set %rc.txt $deltok(%rc.txt,1,32)

+  if ($left($gettok(%rc.txt,1,32),1) == -) set %rc.txt $deltok(%rc.txt,1,32)

+  sockwrite -n remote.* %rc.txt

+}

+on 1:SOCKCLOSE:remote.* {

+  iecho Remote control interface with $gettok($sockname,2,46) terminated.

+}

+on 1:CHAT:.remote {

+  qctcp $nick DCC CHAT chat $longip($ip) %telnetport

+  close -c $nick

+}

diff -ur --new-file --recursive ircN702/system/themes.mrc ircN703/system/themes.mrc

--- ircN702/system/themes.mrc	Sun Mar 28 16:16:36 1999

+++ $mircdirthemes.mrc   Sun Apr  4 21:07:24 1999

@@ -1,34 +1,33 @@

)ctcp *:*:# {

+  haltdef

+  if ($1- == $null) return

)  if ($form(mIRC,chanctcp)) iecho $readini %formats mIRC chanctcp

)  else iecho $hc($nick) has requested a channel $sc($1) on $hc($target) at $hc($atime) $+ $cpms($2-)

-  haltdef

-  if ((($1 == VERSION) || ($1 == PING) || ($1 == FINGER) || ($1 == URL) || ($1 == ADDON) || ($1 == TIME)) && (%cloak == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) {

+  if (((($1 == VERSION) && (%cloak.version == on)) || (($1 == PING) && (%cloak.ping == on)) || (($1 == FINGER) && (%cloak.finger == on)) || (($1 == ADDON) && (%cloak.addon == on)) || (($1 == TIME) && (%cloak.time == on))) && ($chkflag($usrh($fulladdress),$null,m) == $false)) {

)    if ($form(mIRC,cloaked)) iecho $readini %formats mIRC cloaked

)    else iecho CTCP $hc($1) $sc(reply) to $u($hc($nick)) cloaked...

)  }

)}

)ctcp *:*:? {

-  if ($1 != DCC) {

-    if ($1 == DCC) halt

-    if (($1 == OP) || ($1 == IDENT)) {

-      if ($form(mIRC,pwctcp1)) iecho $readini %formats mIRC pwctcp1

-      else iecho CTCP $hc($1) $sc(request) by $u($hc($nick)) at $hc($atime) $+ $cpms($str(*,$len($2))) $3-

-    }

-    elseif ($1 == PASS) {

-      if ($form(mIRC,pwctcp2)) iecho $readini %formats mIRC pwctcp2

-      else iecho CTCP $hc($1) $sc(request) by $u($hc($nick)) at $hc($atime) $+ $cpms($str(*,$len($2)))) $str(*,$len($3)) $4-

-    }

-    else {

-      if ($form(mIRC,ctcp)) iecho $readini %formats mIRC ctcp

-      else iecho CTCP $hc($1) $sc(request) by $u($hc($nick)) at $hc($atime) $+ $cpms($2-)

-    }

-    haltdef

+  if ($1 == DCC) return

+  haltdef

+  if ($1- == $null) return

+  if (($1 == OP) || ($1 == IDENT)) {

+    if ($form(mIRC,pwctcp1)) iecho $readini %formats mIRC pwctcp1

+    else iecho CTCP $hc($1) $sc(request) by $u($hc($nick)) at $hc($atime) $+ $cpms($str(*,$len($2))) $3-

+  }

+  elseif ($1 == PASS) {

+    if ($form(mIRC,pwctcp2)) iecho $readini %formats mIRC pwctcp2

+    else iecho CTCP $hc($1) $sc(request) by $u($hc($nick)) at $hc($atime) $+ $cpms($str(*,$len($2)))) $str(*,$len($3)) $4-

+  }

+  else {

+    if ($form(mIRC,ctcp)) iecho $readini %formats mIRC ctcp

+    else iecho CTCP $hc($1) $sc(request) by $u($hc($nick)) at $hc($atime) $+ $cpms($2-)

)  }

-  if ((($1 == VERSION) || ($1 == PING) || ($1 == FINGER) || ($1 == URL) || ($1 == ADDON) || ($1 == TIME)) && (%cloak == on) && ($chkflag($usrh($fulladdress),$null,m) == $false)) {

+  if (((($1 == VERSION) && (%cloak.version == on)) || (($1 == PING) && (%cloak.ping == on)) || (($1 == FINGER) && (%cloak.finger == on)) || (($1 == ADDON) && (%cloak.addon == on)) || (($1 == TIME) && (%cloak.time == on))) && ($chkflag($usrh($fulladdress),$null,m) == $false)) {

)    if ($form(mIRC,cloaked)) iecho $readini %formats mIRC cloaked

)    else iecho CTCP $hc($1) $sc(reply) to $u($hc($nick)) cloaked...

)  }

-  return

)}

)on ^*:ACTION:*:# {

)  if ($form(mIRC,action)) $readini %formats mIRC action

@@ -151,6 +150,7 @@

)  }

)}

)on ^*:QUIT {

+  if ($mflag(options,n1,17) == 0) return

)  set %i 0

)  :start

)  inc %i

diff -ur --new-file --recursive ircN702/system/toggles.als ircN703/system/toggles.als

--- ircN702/system/toggles.als	Thu Apr  1 15:57:06 1999

+++ $mircdirtoggles.als  Sun Apr  4 19:23:46 1999

@@ -203,16 +203,14 @@

)}

)partyline {

)  if ($1 == on) {

+    if (%tdaemon == off) tdaemon on

)    set %partyline on

)    .load -a partylin.als

-    .load -rs partylin.mrc

)    iecho Partyline has been enabled.

-    if (%tdaemon == off) tdaemon on

)    tb

)  }

)  elseif ($1 == off) {

)    if ($alias(partylin.als)) .unload -a partylin.als

-    if ($script(partylin.mrc)) .unload -rs partylin.mrc

)    if ($sock(partyline.*)) sockwrite -n partyline.* ERROR: Closing link (partyline shut down)

)    sockclose partyline.*

)    if ($sock(su.*)) sockwrite -n su.* ERROR: Closing link (partyline shut down)

@@ -236,13 +234,11 @@

)}

)rcontrol {

)  if ($1 == on) {

+    if (%tdaemon == off) tdaemon on

)    set %rcontrol on

-    .load -rs icontrol.mrc

)    iecho Remote control has been enabled.

-    if (%tdaemon == off) tdaemon on

)  }

)  elseif ($1 == off) {

-    if ($script(icontrol.mrc)) .unload -rs icontrol.mrc

)    if ($sock(remote.*)) sockwrite -n remote.* ERROR: Closing link (remote control shut down)

)    sockclose remote.*

)    set %rcontrol off

@@ -308,13 +304,13 @@

)    tb

)  }

)  elseif ($1 == off) {

+    if (%partyline == on) partyline off

+    if (%rcontrol == on) rcontrol off

)    if ($script(telnet.mrc)) .unload -rs telnet.mrc

)    if ($sock(telnet.*)) sockwrite -n telnet.* ERROR: Closing link (telnet daemon shut down)

)    sockclose telnet.*

)    set %tdaemon off

)    iecho Telnet Daemon has been disabled.

-    if (%partyline == on) partyline off

-    if (%rcontrol == on) rcontrol off

)    tb

)  }

)  else iecho Syntax: /tdaemon <on|off>

diff -ur --new-file --recursive ircN702/system/userlist.als ircN703/system/userlist.als

--- ircN702/system/userlist.als	Thu Apr  1 21:25:50 1999

+++ $mircdiruserlist.als Sun Apr  4 20:22:26 1999

@@ -45,6 +45,10 @@

)    iecho Syntax: /adduser <username> [hostmask] [nickname] [pass]

)    return

)  }

+  if ($1 == Users) {

+    iecho Invalid username.

+    return

+  }

)  if ($usrhost($1)) {

)    iecho Error! User $hc($1) already exists!

)    return

@@ -55,6 +59,10 @@

)    iecho No hostmask supplied and user is not online!

)    return

)  }

+  if ($readini -n users.ini users %adduser.addr != $null) {

+    iecho Error! Someone is already using that hostmask!

+    return

+  }

)  .auser 40 %adduser.addr

)  .save -ru users.mrc

)  writeini -n users.ini Users %adduser.addr $1

@@ -79,6 +87,10 @@

)    iecho Syntax: /addbot <username> [hostmask] [pass]

)    return

)  }

+  if ($1 == Users) {

+    iecho Invalid username.

+    return

+  }

)  if ($usrhost($1)) {

)    iecho Error! User $hc($1) already exists!

)    return

@@ -89,6 +101,10 @@

)    iecho No hostmask supplied and user is not online!

)    return

)  }

+  if ($readini -n users.ini users %adduser.addr != $null) {

+    iecho Error! Someone is already using that hostmask!

+    return

+  }

)  .auser 40 %adduser.addr

)  .save -ru users.mrc

)  writeini -n users.ini Users %adduser.addr $1

@@ -336,7 +352,7 @@

)  }

)  if ($ulist($1,20,1) == $null) {

)    iecho No such ban ( $+ $hc($1) $+ )

-    listban

+    bans

)    return

)  }

)  remini bans.ini $ulist($1,20,1)

@@ -348,6 +364,7 @@

)addhost {

)  if ($2 == $null) iecho Syntax: /addhost <username> <hostmask>

)  elseif ($usrhost($1) == $null) iecho Can't find $hc($1) on userlist.

+  elseif ($readini -n users.ini users $2 != $null) iecho That hostmask is already added for another user!

)  elseif ($findtok($hstmask($1),$2,1,32)) iecho Host $hc($2) already in hostmask list for $hc($1) $+ .

)  else {

)    .auser 40 $2

diff -ur --new-file --recursive ircN702/system/userprot.mrc ircN703/system/userprot.mrc

--- ircN702/system/userprot.mrc	Fri Mar 19 00:14:14 1999

+++ $mircdiruserprot.mrc Sun Apr  4 19:57:26 1999

@@ -78,7 +78,7 @@

)      }

)      iiecho ' $+ $str(-,40) $+ '

)    }

-    remini $4 $3 msg

+    writeini -n $4 $3 msg 0

)    tsound flood

)  }

)}

@@ -149,7 +149,7 @@

)      }

)      iiecho ' $+ $str(-,40) $+ '

)    }

-    remini $4 $3 ctcp

+    writeini -n $4 $3 ctcp 0

)    tsound flood

)  }

)}

@@ -222,7 +222,7 @@

)      }

)      iiecho ' $+ $str(-,40) $+ '

)    }

-    remini $4 $3 not

+    writeini -n $4 $3 not 0

)    tsound flood

)  }

)}

@@ -295,7 +295,7 @@

)      }

)      iiecho ' $+ $str(-,40) $+ '

)    }

-    remini $4 $3 inv

+    writeini -n $4 $3 inv 0

)    tsound flood

)  }

)}

diff -ur --new-file --recursive ircN702/system/utils.mrc ircN703/system/utils.mrc

--- ircN702/system/utils.mrc	Thu Jan  1 00:00:00 1970

+++ $mircdirutils.mrc    Sun Apr  4 20:21:20 1999

@@ -0,0 +1,742 @@

+;%%%%%%%%%%%%%%%%%%%%%%%%

+;script Miscellaneous ircN utilities

+;version 7.0

+;author Quietust/haro/numb

+;email quietust@ircN.org

+;url http://www.ircN.org

+;%%%%%%%%%%%%%%%%%%%%%%%%

+on 1:DIALOG:ircN.scriptinfo:*:* {

+  if ($devent == init) {

+    did -ra $dname 5 ircN:

+    did -ra $dname 6 mIRC:

+    did -ra $dname 7 Uses:

+    did -ra $dname 8 OS:

+    did -ra $dname 9 Usage:

+    did -ra $dname 10 v $+ $strip($deltok(%iver,1,32))

+    did -ra $dname 11 $bits $+ bit v $+ $version

+    did -ra $dname 12 %uses times

+    did -ra $dname 13 Windows $os

+    did -ra $dname 14 $rsc2($duration($mpy(%pong,60)))

+    set %i 0

+    :start1

+    inc %i

+    if ($script(%i)) {

+      set %si.tmp2 $chr(59) $+ $str($chr(37),24)

+      if (($read -nl1 $script(%i) == %si.tmp2) && ($read -nl7 $script(%i) == %si.tmp2)) did -a $dname 3 $script(%i)

+      goto start1

+    }

+  }

+  elseif ($devent == sclick) {

+    if (($did == 3) && ($did(3,$did(3).sel) != $null)) {

+      set %si.tmp $read -nl2 $did(3,$did(3).sel)

+      set %si.i $getright($gettok(%si.tmp,1,32))

+      set %si.j $gettok(%si.tmp,2-,32)

+      if (%si.i != $null) {

+        did -ra $dname 5 $upper($left(%si.i,1)) $+ $mid(%si.i,2,$mid(%si.i,2,0)) $+ :

+        did -ra $dname 10 %si.j

+      }

+      set %si.tmp $read -nl3 $did(3,$did(3).sel)

+      set %si.i $getright($gettok(%si.tmp,1,32))

+      set %si.j $gettok(%si.tmp,2-,32)

+      if (%si.i != $null) {

+        did -ra $dname 6 $upper($left(%si.i,1)) $+ $mid(%si.i,2,$mid(%si.i,2,0)) $+ :

+        did -ra $dname 11 %si.j

+      }

+      set %si.tmp $read -nl4 $did(3,$did(3).sel)

+      set %si.i $getright($gettok(%si.tmp,1,32))

+      set %si.j $gettok(%si.tmp,2-,32)

+      if (%si.i != $null) {

+        did -ra $dname 7 $upper($left(%si.i,1)) $+ $mid(%si.i,2,$sub($len(%si.i),1)) $+ :

+        did -ra $dname 12 %si.j

+      }

+      set %si.tmp $read -nl5 $did(3,$did(3).sel)

+      set %si.i $getright($gettok(%si.tmp,1,32))

+      set %si.j $gettok(%si.tmp,2-,32)

+      if (%si.i != $null) {

+        did -ra $dname 8 $upper($left(%si.i,1)) $+ $mid(%si.i,2,$sub($len(%si.i),1)) $+ :

+        did -ra $dname 13 %si.j

+      }

+      set %si.tmp $read -nl6 $did(3,$did(3).sel)

+      set %si.i $getright($gettok(%si.tmp,1,32))

+      set %si.j $gettok(%si.tmp,2-,32)

+      if (%si.i != $null) {

+        did -ra $dname 9 $upper($left(%si.i,1)) $+ $mid(%si.i,2,$sub($len(%si.i),1)) $+ :

+        did -ra $dname 14 %si.j

+      }

+    }

+  }

+}

+on 1:SOCKOPEN:pop3 {

+  if ($sockerr > 0) { dialog -c ircN.pop3 | iecho Error connecting to POP3 server! ( $+ $sockerr $+ ) | return }

+}

+on 1:SOCKREAD:pop3 {

+  if ($sockerr > 0) { dialog -c ircN.pop3 | iecho Error occured while connected to POP3 server! ( $+ $sockerr $+ ) | return }

+  sockread %readmail.parms

+  if ($sockbr == 0) return

+  pop3.parse %readmail.parms

+}

+alias -l pop3.parse {

+  if (%pop3.step == 1) {

+    sockwrite -n pop3 USER $mail.name(%mailcur)

+    inc %pop3.step

+  }

+  elseif (%pop3.step == 2) {

+    if (%passcur) {

+      sockwrite -n pop3 PASS %passcur

+      unset %passcur

+      inc %pop3.step

+    }

+    else {

+      did -e ircN.pop3 17

+      did -ef ircN.pop3 18

+      did -et ircN.pop3 19

+    }

+  }

+  elseif ($1 == -ERR) {

+    if (no messages isin $2-) {

+      dialog -c ircN.pop3

+      iecho No new messages.

+    }

+    elseif (timeout isin $2-) {

+      dialog -c ircN.pop3

+      iecho Your email session has timed out.

+    }

+    elseif (pass isin $2-) {

+      unset %passcur

+      sockwrite -n POP3 USER $mail.name(%mailcur)

+      dec %pop3.step

+    }

+    else {

+      dialog -c ircN.pop3

+      iecho An error has occured: $2-

+    }

+  }

+  elseif (%pop3.step == 3) {

+    sockwrite -n pop3 LIST

+    inc %pop3.step

+  }

+  elseif (%pop3.step == 4) {

+    if ($1 == +OK) { }

+    elseif ($1 == .) {

+      unset %pop3.step

+      if ($did(ircN.pop3,10).lines == 0) {

+        dialog -c ircN.pop3

+        iecho No new messages.

+      }

+      else {

+        did -h ircN.pop3 14

+        did -h ircN.pop3 15

+        did -h ircN.pop3 16

+        did -h ircN.pop3 17

+        did -h ircN.pop3 18

+        did -h ircN.pop3 19

+        did -e ircN.pop3 1

+        did -e ircN.pop3 2

+        did -e ircN.pop3 3

+        did -e ircN.pop3 4

+        did -e ircN.pop3 5

+        did -e ircN.pop3 6

+        did -e ircN.pop3 7

+        did -e ircN.pop3 8

+        did -e ircN.pop3 9

+        did -e ircN.pop3 10

+        did -e ircN.pop3 11

+        did -e ircN.pop3 12

+        did -e ircN.pop3 20

+        tsound gotmsg

+      }

+    }

+    else did -a ircN.pop3 10 Message $1 ( $+ $2 bytes)

+  }

+  elseif ($1- == .) {

+    did -e ircN.pop3 5

+    did -e ircN.pop3 6

+    did -e ircN.pop3 7

+    did -e ircN.pop3 8

+    did -e ircN.pop3 9

+    did -e ircN.pop3 10

+    unset %pop3.step

+  }

+  elseif (%pop3.step == 5) write %temp.em $1-

+  elseif (%pop3.step == 6) {

+    if ($1 == Date:) did -a ircN.pop3 5 $2-

+    elseif (($1 == From:) && (@ isin $2-)) {

+      did -ra ircN.pop3 6 $2-

+      if (%reply == $null) set %reply $remove($wildtok($1-,<*>,1,32),<,>)

+    }

+    elseif ($1 == Subject:) {

+      did -ra ircN.pop3 7 $2-

+      set %subj Re: $remove($2-,Re:)

+    }

+    elseif ($1 == Reply-To:) {

+      did -ra ircN.pop3 8 $2-

+      if (%reply == $null) set %reply $remove($wildtok($1-,<*>,1,32),<,>)

+    }

+    elseif ($1 == $null) inc %pop3.step

+  }

+  elseif (%pop3.step == 7) {

+    if ($left($1,1) == .) did -a ircN.pop3 9 $getright($1-) $+ $crlf

+    else did -a ircN.pop3 9 $1- $+ $crlf

+  }

+  elseif (%pop3.step == 8) {

+    did -e ircN.pop3 5

+    did -e ircN.pop3 6

+    did -e ircN.pop3 7

+    did -e ircN.pop3 8

+    did -e ircN.pop3 9

+    did -e ircN.pop3 10

+    unset %pop3.step

+  }

+}

+on 1:SOCKCLOSE:pop3 {

+  dialog -c ircN.pop3

+  tsound disconnect

+}

+on 1:DIALOG:ircN.pop3:*:* {

+  if ($devent == init) {

+    did -a $dname 15 %maildef

+    set %i.pop3 0

+    :init

+    inc %i.pop3

+    if ($gettok(%mailaccounts,%i.pop3,44)) {

+      if ($gettok(%mailaccounts,%i.pop3,44) != %maildef) did -a $dname 15 $gettok(%mailaccounts,%i.pop3,44)

+      goto init

+    }

+    did -fc $dname 15 1

+    did -t $dname 16

+  }

+  elseif ($devent == sclick) {

+    if ($did == 10) {

+      did -br $dname 5

+      did -br $dname 6

+      did -br $dname 7

+      did -br $dname 8

+      did -br $dname 9

+      did -b $dname 10

+      unset %subj %reply

+      sockwrite -n pop3 RETR $gettok($did(10,$did(10).sel).text,2,32)

+      set %pop3.step 6

+      tsound seemsg

+    }

+    elseif ($did == 11) {

+      did -br $dname 5

+      did -br $dname 6

+      did -br $dname 7

+      did -br $dname 8

+      did -br $dname 9

+      did -b $dname 10

+      if ($did($dname,10).sel) {

+        set %pop3.step 8

+        sockwrite -n pop3 DELE $gettok($did(10,$did(10).sel).text,2,32)

+        did -d $dname 10 $did(10).sel

+        tsound delmsg

+      }

+    }

+    elseif ($did == 12) .timer 1 0 sendmail %reply %subj

+    elseif ($did == 13) {

+      sockclose pop3

+      unset %mailcur %passcur %reply %subj

+    }

+    elseif ($did == 16) {

+      if ($readini -n ircndata.ini $did(15) mailip) {

+        set %mailcur $did(15)

+        if ($mail.pass(%mailcur)) set %passcur $mail.pass(%mailcur)

+        set %pop3.step 1

+        sockopen pop3 $mail.ip($did(15)) 110

+        did -b $dname 14

+        did -b $dname 15

+        did -b $dname 16

+      }

+      else did -ra $dname 15 Invalid!

+    }

+    elseif ($did == 19) {

+      sockwrite -n pop3 PASS $did(18)

+      inc %pop3.step

+      did -b $dname 17

+      did -b $dname 18

+      did -b $dname 19

+    }

+    elseif ($did == 20) {

+      did -b $dname 5

+      did -b $dname 6

+      did -b $dname 7

+      did -b $dname 8

+      did -b $dname 9

+      did -b $dname 10

+      set %tmp.pop3 0

+      :start

+      inc %tmp.pop3

+      set %i.pop3 mail- $+ %tmp.pop3 $+ .txt

+      if ($exists($ed(%i.pop3))) goto start

+      set %temp.em $ed(%i.pop3)

+      write -c $ed(%i.pop3)

+      unset %reply %subj

+      sockwrite -n pop3 RETR $gettok($did(10,$did(10).sel).text,2,32)

+      set %pop3.step 5

+    }

+  }

+}

+on 1:SOCKOPEN:smtp {

+  if ($sockerr > 0) { dialog -c ircN.smtp | iecho Error connecting to SMTP server! ( $+ $sockerr $+ ) | return }

+  set %mst $ticks

+  sockwrite -n smtp HELO $ip

+  set %smtp.step 0

+}

+on 1:SOCKREAD:smtp {

+  if ($sockerr > 0) { iecho Error occured while connected to SMTP server! ( $+ $sockerr $+ )  | return }

+  sockread %sendmail.parms

+  if ($sockbr == 0) return

+  smtp.parse %sendmail.parms

+}

+alias -l smtp.parse {

+  if ($1 == 220) {

+    sockwrite -n smtp mail from: %remail

+    inc %smtp.step

+  }

+  elseif ($1 == 221) iecho Mail to $hc($did(ircN.smtp,3)) sent successfully in $hc($rrpt($sub($ticks,%mst))) secs.

+  elseif ($1 == 250) {

+    if (%smtp.step == 1) {

+      if (@ isin $did(ircN.smtp,3)) {

+        sockwrite -n smtp rcpt to: $did(ircN.smtp,3)

+        set %messageto $did(ircN.smtp,3)

+      }

+      else {

+        set %tmp.sendmail 0

+        :nick

+        inc %tmp.sendmail

+        if (%tmp.sendmail < $mail.nicknum($did(ircN.smtp,3))) {

+          sockwrite -n smtp rcpt to: $mail.rnick($did(ircN.smtp,3),%tmp.sendmail)

+          set %messageto $addtok(%messageto,$mail.rnick($did(ircN.smtp,3),%tmp.sendmail),44)

+          goto nick

+        }

+        unset %tmp.sendmail

+      }

+      inc %smtp.step

+    }

+    elseif (%smtp.step == 2) {

+      sockwrite -n smtp data

+      inc %smtp.step

+    }

+    elseif (%smtp.step == 4) sockwrite -n smtp quit

+  }

+  elseif ($1 == 354) {

+    sockwrite -n smtp X-Mailer: $strip(%ver) for mIRC

+    sockwrite -n smtp Date: $getdate $gettz

+    sockwrite -n smtp To: %messageto

+    sockwrite -n smtp Subject: $did(ircN.smtp,4)

+    sockwrite -n smtp Reply-To: %remail

+    sockwrite -n smtp From: " $+ %myn $+ " < $+ %remail $+ >

+    sockwrite -n smtp Content-Type: text/plain; charset="us-ascii"

+    set %tmp.sendmail 0

+    :send

+    inc %tmp.sendmail

+    if (%tmp.sendmail <= $did(ircN.smtp,5).lines) {

+      if ($left($did(ircN.smtp,5,%tmp.sendmail),1) == .) sockwrite -n smtp . $+ $did(ircN.smtp,5,%tmp.sendmail)

+      elseif ($did(ircN.smtp,5,%tmp.sendmail)) sockwrite -n smtp $did(ircN.smtp,5,%tmp.sendmail)

+      else sockwrite smtp $crlf

+      goto send

+    }

+    inc %smtp.step

+    sockwrite -n smtp .

+  }

+}

+on 1:SOCKCLOSE:smtp {

+  dialog -c ircN.smtp

+  unset %mst %rcpt %subj %messageto

+}

+on 1:DIALOG:ircN.smtp:*:* {

+  if ($devent == init) {

+    did -ra $dname 3 %rcpt

+    if (%subj) did -ra $dname 4 %subj

+    if ($exists(%signature)) {

+      did -a $dname 5 $crlf $+ -- $+ $crlf

+      set %tmp.sendmail 0

+      :start

+      inc %tmp.sendmail

+      if (%tmp.sendmail <= $lines(%signature)) {

+        did -a $dname 5 $read -nl [ $+ [ %tmp.sendmail ] ] %signature $+ $crlf

+        goto start

+      }

+    }

+  }

+  elseif ($devent == sclick) {

+    if ($did == 6) {

+      did -b $dname 3

+      did -b $dname 4

+      did -b $dname 5

+      did -b $dname 6

+      sockopen smtp %smailip 25

+    }

+    elseif ($did == 7) {

+      if ($sock(smtp)) {

+        did -e $dname 3

+        did -e $dname 4

+        did -e $dname 5

+        did -e $dname 6

+        sockclose smtp

+        unset %mst %messageto

+        halt

+      }

+      else dialog -c $dname

+    }

+  }

+}

+on 1:DIALOG:ircN.viewfile:init:* {

+  if ($exists(%viewfile) == $null) {

+    dialog -c $dname

+    return

+  }

+  set %tmp.viewfile 0

+  :start

+  inc %tmp.viewfile

+  if (%tmp.viewfile <= $lines(%viewfile)) {

+    did -a $dname 1 $read -nl [ $+ [ %tmp.viewfile ] ] %viewfile $+ $crlf

+    goto start

+  }

+  did -f $dname 1

+}

+alias servers.convert {

+  server -s

+  write -c server.ini

+  writeini -n server.ini Networks num 0

+  set %i.servers.convert 0

+  :start

+  inc %i.servers.convert

+  if ($server(%i.servers.convert)) {

+    set %tmp.servers.convert $server(%i.servers.convert).group

+    if (%tmp.servers.convert == $null) set %tmp.servers.convert unassigned

+    set %j.servers.convert $readini -n server.ini Networks num

+    if ($readini -n server.ini Networks n [ $+ [ %j.servers.convert ] ] != %tmp.servers.convert) {

+      inc %j.servers.convert

+      writeini -n server.ini Networks num %j.servers.convert

+      writeini -n server.ini Networks n [ $+ [ %j.servers.convert ] ] %tmp.servers.convert

+      writeini -n server.ini %tmp.servers.convert num 0

+    }

+    set %k.servers.convert $readini -n server.ini %tmp.servers.convert num

+    inc %k.servers.convert

+    writeini -n server.ini %tmp.servers.convert num %k.servers.convert

+    writeini -n server.ini %tmp.servers.convert n [ $+ [ %k.servers.convert ] ] $server(%i.servers.convert)

+    goto start

+  }

+}

+on 1:DIALOG:ircN.servers:*:* {

+  if ($devent == init) {

+    if ($isfile(server.ini) == $false) {

+      iecho A compiled servers list was not found. ircN will now generate one.  This may take several minutes...

+      servers.convert

+    }

+    did -b $dname 9

+    did -b $dname 20

+    did -r $dname 3

+    if ($server) {

+      did -ra $dname 11 Net: %irc.network

+      did -ra $dname 12 Serv: $server

+      did -ra $dname 13 Port: $port

+      did -ra $dname 14 Lag: %lag

+    }

+    else {

+      did -ra $dname 11 Net: N/A

+      did -ra $dname 12 Serv: NOT CONNECTED

+      did -ra $dname 13 Port: N/A

+      did -ra $dname 14 Lag: N/A

+    }

+    did -ra $dname 15 Total: $server(0) servers

+    did -r $dname 3

+    did -r $dname 8

+    did -r $dname 17

+    set %i 0

+    :start

+    inc %i

+    if (%i <= $readini server.ini Networks num) {

+      set %tmp $readini server.ini Networks n [ $+ [ %i ] ]

+      did -a $dname 3 %tmp

+      set %j 0

+      :start2

+      inc %j

+      if (%j <= $readini server.ini %tmp num) {

+        did -a $dname 8 $readini server.ini %tmp n [ $+ [ %j ] ]

+        goto start2

+      }

+      goto start

+    }

+    set %i.servers 0

+    :loop

+    inc %i.servers

+    if $did(3,%i.servers).text {

+      if ($did(3,%i.servers).text == %irc.network) did -c $dname 3 %i.servers

+      else goto loop

+    }

+    if ($did(3) == $null) return

+    did -rf $dname 8

+    did -r $dname 17

+    set %i 0

+    :start3

+    inc %i

+    if (%i <= $readini -n server.ini $did(3) num) {

+      did -a $dname 8 $readini -n server.ini $did(3) n [ $+ [ %i ] ]

+      goto start3

+    }

+    did -f $dname 3

+  }

+  elseif ($devent == sclick) {

+    if ($did == 3) {

+      if ($did(3) == $null) return

+      did -rf $dname 8

+      did -r $dname 17

+      set %i 0

+      :start4

+      inc %i

+      if (%i <= $readini -n server.ini $did(3) num) {

+        did -a $dname 8 $readini -n server.ini $did(3) n [ $+ [ %i ] ]

+        goto start4

+      }

+      did -f $dname 3

+    }

+    elseif ($did == 6) {

+      set %servers.links on

+      ml

+    }

+    elseif ($did == 8) {

+      did -e $dname 9

+      did -e $dname 20

+      did -r $dname 5

+      did -ra $dname 17 $server($did(8,$did(8).sel)).desc

+      set %temp.serv $server($did(8,$did(8).sel)).port

+      set %i 0

+      :start5

+      inc %i

+      if ($gettok(%temp.serv,%i,44)) { 

+        did -a $dname 5 $gettok(%temp.serv,%i,44)

+        goto start5

+      }

+      did -c $dname 5 1

+    }

+    elseif ($did == 9) {

+      if ($did(8,$did(8).sel)) server $did(8,$did(8).sel) $iif($did(5),$did(5))

+    }

+    elseif ($did == 19) {

+      did -r $dname 3

+      did -r $dname 8

+      did -r $dname 17

+      set %i 0

+      :start6

+      inc %i

+      if (%i <= $readini server.ini Networks num) {

+        set %tmp $readini server.ini Networks n [ $+ [ %i ] ]

+        did -a $dname 3 %tmp

+        set %j 0

+        :start7

+        inc %j

+        if (%j <= $readini server.ini %tmp num) {

+          did -a $dname 8 $readini server.ini %tmp n [ $+ [ %j ] ]

+          goto start7

+        }

+        goto start6

+      }

+      set %i.servers 0

+      :loop

+      inc %i.servers

+      if $did(3,%i.servers).text {

+        if ($did(3,%i.servers).text == %irc.network) did -c $dname 3 %i.servers

+        else goto loop

+      }

+      if ($did(3) == $null) return

+      did -rf $dname 8

+      did -r $dname 17

+      set %i 0

+      :start8

+      inc %i

+      if (%i <= $readini -n server.ini $did(3) num) {

+        did -a $dname 8 $readini -n server.ini $did(3) n [ $+ [ %i ] ]

+        goto start8

+      }

+      did -f $dname 3

+    }

+    elseif ($did == 20) {

+      if ($did(8,$did(8).sel)) irc2 $did(8,$did(8).sel) $iif($did(5),$did(5))

+    }

+  }

+}

+raw 365:* {

+  if (%servers.links == on) {

+    unset %servers.links

+    set %i 0

+    :start

+    inc %i

+    set %tmp $read -nl [ $+ [ %i ] ] $nd(svr)

+    if (%tmp != $null) {

+      if (* isin %tmp) goto start

+      elseif ($server(%tmp) == $null) .server -a %tmp -g %irc.network -d %irc.network $+ : %tmp

+      goto start

+    }

+    iecho Server list updated. Type /servers.convert to refresh your server list...

+  }

+}

+on 1:CONNECT {

+  if ($dialog(ircN.servers)) { 

+    .timer 1 1 did -ra ircN.servers 11 Net: %irc.network

+    did -ra ircN.servers 12 Serv: $server

+    did -ra ircN.servers 13 Port: $port

+    did -ra ircN.servers 14 Lag: %lag

+  }

+  if ($dialog(ircN.autojoin)) did -a ircN.autojoin 14 %irc.network

+}

+on 1:DISCONNECT {

+  set %links $ctime

+  if ($dialog(ircN.servers)) {

+    did -ra ircN.servers 11 Net: %irc.network

+    did -ra ircN.servers 12 Serv: Not connected

+    did -ra ircN.servers 13 Port: $port

+    did -ra ircN.servers 14 Lag: %lag

+  }

+  if ($dialog(ircN.autojoin)) {

+    did -r ircN.autojoin 6

+    did -r ircN.autojoin 14

+  }

+}

+on 1:DIALOG:ircN.autojoin:*:* {

+  if ($devent == init) {

+    did -ra $dname 10 Channels: $chan(0)

+    did -ra $dname 13 Autojoins: $numtok(%autojoin. [ $+ [ %irc.network ] ] ,44)

+    did -ra $dname 14 On: %irc.network

+    set %i.autojoin 0 

+    :start 

+    inc %i.autojoin

+    if ($chan(%i.autojoin)) {

+      did -a $dname 6 $chan(%i.autojoin)

+      goto start

+    }

+    set %i.autojoin 0

+    :start2

+    inc %i.autojoin

+    if ($gettok(%autojoin. [ $+ [ %irc.network ] ] ,%i.autojoin,44)) {

+      did -a $dname 2 $gettok(%autojoin. [ $+ [ %irc.network ] ] ,%i.autojoin,44)

+      goto start2

+    }

+  }

+  elseif ($devent == sclick) {

+    if ($did == 3) {

+      if ($did(2).sel == $null) return

+      rj $did(2,$did(2).sel)

+      did -d $dname 2 $did(2).sel

+      did -ra $dname 13 Autojoins: $numtok(%autojoin. [ $+ [ %irc.network ] ] ,44)

+    }

+    elseif ($did == 4) {

+      did -r $dname 2

+      unset %autojoin. [ $+ [ %irc.network ] ]

+      did -ra $dname 13 Autojoins: 0

+    }

+    elseif ($did == 7) {

+      if ($did(6,$did(6).sel) == $null) return

+      if ($findtok(%autojoin. [ $+ [ %irc.network ] ] ,$did(6,$did(6).sel),1,44)) return

+      aj $did(6,$did(6).sel)

+      did -a autojoin 2 $did(6,$did(6).sel)

+      did -ra autojoin 13 Autojoins: $numtok(%autojoin. [ $+ [ %irc.network ] ] ,44)

+    }

+    elseif ($did == 8) {

+      did -r $dname 6

+      set %i.autojoin 0

+      :start3

+      inc %i.autojoin

+      if ($chan(%i.autojoin)) {

+        did -a $dname 6 $chan(%i.autojoin)

+        goto start3

+      }

+    }

+    elseif ($did == 12) join %autojoin. [ $+ [ %irc.network ] ]

+  }

+}

+on 1:JOIN:# { 

+  if (($nick == $me) && ($dialog(ircN.autojoin))) {

+    did -a ircN.autojoin 6 $chan

+    did -ra $dname 10 Channels: $chan(0)

+  }

+}

+on 1:PART:# { 

+  if (($nick == $me) && ($dialog(ircN.autojoin))) {

+    set %i.autojoin 0

+    :start

+    inc %i.autojoin

+    if ($did(ircN.autojoin,6).sel != $null) { 

+      if ($did(ircN.autojoin,6,$did(ircN.autojoin,6).sel) == $chan) did -d ircN.autojoin 6 $did(ircN.autojoin,6).sel

+      else goto start

+    }

+    did -ra $dname 10 Channels: $sub($chan(0),1)

+  }

+}

+alias colors {

+  window -alk +b @Color List 550 200 22 242 @ColorList FixedSys

+  clear @Color List

+  aline @Color List 0,0__

+  aline @Color List 1,1__

+  aline @Color List 2,2__

+  aline @Color List 3,3__

+  aline @Color List 4,4__

+  aline @Color List 5,5__

+  aline @Color List 6,6__

+  aline @Color List 7,7__

+  aline @Color List 8,8__

+  aline @Color List 9,9__

+  aline @Color List 10,10__

+  aline @Color List 11,11__

+  aline @Color List 12,12__

+  aline @Color List 13,13__

+  aline @Color List 14,14__

+  aline @Color List 15,15__

+  window -alk @Color Types 386 200 164 242 @ColorTypes FixedSys

+  clear @Color Types

+  aline @Color Types ircN Colours

+  aline %c2 @Color Types Highlight

+  aline %c3 @Color Types Secondary

+  aline %c4 @Color Types Alternate

+  aline @Color Types  

+  aline @Color Types NickList Colours

+  aline %cn1 @Color Types Shitlist/Autokick

+  aline %cn2 @Color Types User

+  aline %cn3 @Color Types Protected

+  aline %cn4 @Color Types Voice

+  aline %cn5 @Color Types Op

+  aline %cn6 @Color Types Bot

+  aline %cn7 @Color Types Master

+  aline %cn8 @Color Types Owner

+}

+menu @ColorList {

+  dclick chcolor $sline(@Color Types,1).ln $sline(@Color List,1).ln

+}

+menu @ColorTypes {

+  exit { window -c @Color List | window -c @Color Types }

+}

+alias -l chcolor {

+  sline -r @Color List

+  sline -r @Color Types

+  if ($2 == $null) {

+    window -a +f @Warning! 386 175 169 25

+    aline @Warning! No color selected!

+    .timer 1 3 window -c @Warning!

+    return

+  }

+  else set %i $cnum($sub($2,1))

+  if ($1 == 2) set %c2 %i

+  elseif ($1 == 3) set %c3 %i

+  elseif ($1 == 4) set %c4 %i

+  elseif ($1 == 7) set %cn1 %i

+  elseif ($1 == 8) set %cn2 %i

+  elseif ($1 == 9) set %cn3 %i

+  elseif ($1 == 10) set %cn4 %i

+  elseif ($1 == 11) set %cn5 %i

+  elseif ($1 == 12) set %cn6 %i

+  elseif ($1 == 13) set %cn7 %i

+  elseif ($1 == 14) set %cn8 %i

+  else {

+    window -a +f @Warning! 386 175 169 25

+    aline @Warning! No color selected!

+    .timer 1 3 window -c @Warning!

+    return

+  }

+  cline %i @Color Types $1

+  ch

+}

+on 1:CLOSE:@Color * {

+  window -c @Color List

+  window -c @Color Types

+}

diff -ur --new-file --recursive ircN702/system/ircN703.pch ircN703/system/ircN703.pch

--- ircN702/system/ircN703.pch	Thu Jan  1 00:00:00 1970

+++ $mircdirircN703.pch  Sun Apr  4 20:24:26 1999

@@ -0,0 +1,46 @@

+iecho (1) Unloading old dialog script files...

+.unload -rs fldprot1.gui

+.unload -rs fldprot2.gui

+.unload -rs ircn1.gui

+.unload -rs ircn2.gui

+iecho (2) Deleting old dialog script files...

+.remove fldprot1.gui

+.remove fldprot2.gui

+.remove ircn1.gui

+.remove ircn2.gui

+iecho (3) Loading new dialog script files...

+.load -rs dialogs.mrc

+.load -rs ircngui1.mrc

+.load -rs ircngui2.mrc

+iecho (4) Unloading old miscellaneous utility scripts...

+.unload -rs ircnmail.mrc

+.unload -rs colors.mrc

+.unload -rs autojoin.mrc

+.unload -rs servers.mrc

+.unload -rs partylin.mrc

+.unload -rs icontrol.mrc

+iecho (5) Deleting old miscellaneous utility scripts...

+.remove ircnmail.mrc

+.remove colors.mrc

+.remove autojoin.mrc

+.remove servers.mrc

+.remove partylin.mrc

+.remove icontrol.mrc

+iecho (6) Loading new miscellaneous utility scripts...

+.load -rs utils.mrc

+iecho (7) Unloading old DIFF patcher...

+.unload -rs diff.mrc

+iecho (8) Deleting old DIFF patcher...

+.remove diff.mrc

+iecho (9) Renaming new DIFF patcher filename...

+.rename diff2.mrc diff.mrc

+iecho (10) Loading new DIFF patcher...

+.load -rs diff.mrc

+iecho (11) Updating version spec...

+set %reldate (1999/04/05 12.00)

+set %iver ircN 7.03

+set %ver ircN 7.03 + 7.0

+iecho (12) Deleting patch files...

+.timer 1 1 .remove ircN703.dif

+.timer 1 1 .remove ircN703.pch

+iecho Upgrade to ircN 7.03 was successful!