diff -ur --new-file --recursive ircN705/system/Btnetfld.mrc ircN706/system/Btnetfld.mrc

--- ircN705/system/Btnetfld.mrc	Wed Apr  7 13:58:30 1999

+++ $mircdirBtnetfld.mrc Mon Apr 12 15:15:54 1999

@@ -20,7 +20,7 @@

)  }

)}

)CTCP 1:*:# {

-  if (($me isop $chan) && ($ulevel != 40)) bt.cscan $chan

+  if (($me isop $chan) && ($ulevel != 40)) bt.cscan $chan $bt.file($chan)

)}

)alias -l bt.mscan {

)  if (%bt.msg == on) {

diff -ur --new-file --recursive ircN705/system/Channel.als ircN706/system/Channel.als

--- ircN705/system/Channel.als	Fri Apr  9 01:17:26 1999

+++ $mircdirChannel.als  Fri Apr 16 18:31:54 1999

@@ -179,7 +179,7 @@

)  :start

)  inc %i.fk

)  if ($ialchan(%j.fk,%k.fk,%i.fk) != $null) {

-    if ($ialchan(%j.fk,%k.fk,%i.fk).nick != $me) set %tmp.fk %tmp.fk $+ $crlf $+ kick %k.fk $ialchan(%j.fk,%k.fk,%i.fk).nick : $+ $iif($1 ischan,$3-,$2-)

+    if ($ialchan(%j.fk,%k.fk,%i.fk).nick != $me) set %tmp.fk %tmp.fk $+ $crlf $+ kick %k.fk $ialchan(%j.fk,%k.fk,%i.fk).nick : $+ $iif($1 ischan,$iif($3,$3-,Filter kick of %j.fk),$iif($2,$2-,Filter kick of %j.fk))

)    goto start

)  }

)  if (%tmp.fk) .quote %tmp.fk

@@ -199,31 +199,15 @@

)  :start

)  inc %i.fkb

)  if ($ialchan(%j.fkb,%k.fkb,%i.fkb) != $null) {

-    if ($ialchan(%j.fkb,%k.fkb,%i.fkb).nick != $me) set %tmp.fkb %tmp.fkb $+ $crlf $+ kick %k.fkb $ialchan(%j.fkb,%k.fkb,%i.fkb).nick : $+ $iif($1 ischan,$3-,$2-)

+    if ($ialchan(%j.fkb,%k.fkb,%i.fkb).nick != $me) set %tmp.fkb %tmp.fkb $+ $crlf $+ kick %k.fkb $ialchan(%j.fkb,%k.fkb,%i.fkb).nick : $+ $iif($1 ischan,$iif($3,$3-,Filter kickban of %j.fkb),$iif($2,$2-,Filter kickban of %j.fkb))

)    goto start

)  }

)  if (%tmp.fkb) .quote %tmp.fkb

)  unset %tmp.fkb

)}

)fnk {

-  if ($1 ischan) set %k.fnk $1

-  else set %k.fnk #

-  if ($1 ischan) set %j.fnk $2

-  else set %j.fnk $1

-  if ($me !isop %k.fnk) {

-    iecho You do not have ops on $hc(%k.fnk) $+ .

-    return

-  }

-  unset %tmp.fnk

-  set %i.fnk 0

-  :start

-  inc %i.fnk

-  if ($ialchan(* [ $+ [ %j.fnk ] $+ ] *!*,%k.fnk,%i.fnk).nick != $null) {

-    if ($ialchan(* [ $+ [ %j.fnk ] $+ ] *!*,%k.fnk,%i.fnk).nick != $me) set %tmp.fnk %tmp.fnk $+ $crlf $+ kick %k.fnk $ialchan(* [ $+ [ %j.fnk ] $+ ] *!*,%k.fnk,%i.fnk).nick :filter kick of nicks containing $b(%j.fnk)

-    goto start

-  }

-  if (%tmp.fnk) .quote %tmp.fnk

-  unset %tmp.fnk

+  if ($1 ischan) fk $1 * $+ $2 $+ *!*@* $3-

+  else fk # * $+ $1 $+ *!*@* $2-

)}

)getops get.bot.ops # $1

)ht {

diff -ur --new-file --recursive ircN705/system/Npopup.pop ircN706/system/Npopup.pop

--- ircN705/system/Npopup.pop	Sun Apr  4 16:07:26 1999

+++ $mircdirNpopup.pop   Fri Apr 16 18:35:40 1999

@@ -33,9 +33,12 @@

).fast { kick # $1 }

).msg { kick # $1 $$?="Enter your reason" }

).filter

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

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

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

+..host ( $+ $address($1,2) $+ )

+...kick { fk # $address($1,2) $?="Enter reason (cancel for default)" }

+...kb { fkb # $address($1,2) $?="Enter reason (cancel for default)" }

+..nick

+...kick { fk # * $+ $$?="Enter string to search for in nicknames" $+ *!*@* $?="Enter reason (cancel for default)" }

+...kb { fkb # * $+ $$?="Enter string to search for in nicknames" $+ *!*@* $?="Enter reason (cancel for default)" }

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

)-

)mass

diff -ur --new-file --recursive ircN705/system/bckgrnd.als ircN706/system/bckgrnd.als

--- ircN705/system/bckgrnd.als	Fri Apr  9 16:10:34 1999

+++ $mircdirbckgrnd.als  Wed Apr 28 15:58:30 1999

@@ -288,19 +288,6 @@

)    goto start

)  }

)}

-ident {

-  if ($2) set %tmp.ident $2

-  else set %tmp.ident $1

-  set %i.ident $address($1,3)

-  if ($findtok($hstmask(%tmp.ident),%i.ident,1,32) != $null) {

-    qnotice $1 Your hostmask is already recorded!

-    iecho Rejected $hc(IDENT) request from $1 (hostmask already recorded)

-  }

-  else {

-    addhost %tmp.ident %i.ident

-    qnotice $1 Added hostmask: %i.ident

-  }

-}

)iecho {

)  if (($left($active,4) == @irc) && ($mid($active,5,1) isnum)) echo -ai2 $ac(irc) $+ $hc(N) $+ $ac(:) $+ %h $1-

)  elseif ($active == @ircII) echo -ai2 %h $1-

@@ -330,7 +317,9 @@

)  else set %efnet.hybrid6 $false

)  set %irc.network $1

)  set %modesonline $2

-  join %autojoin. [ $+ [ %irc.network ] ]

+  iecho Press $hc(F11) within the next 5 seconds to cancel autojoin.

+  .timerautojoin 1 5 join %autojoin. [ $+ [ %irc.network ] ]

+  set %f11cmd .timer 1 0 .timerautojoin off $vl iecho Autojoin for this session was cancelled. To manually trigger autojoin, press $hc(F11) again. $vl set % $+ f11cmd .timer 1 0 iecho join %autojoin. [ $+ [ %irc.network ] ]  $ $+ vl unset % $ $+ + f11cmd

)}

)nline {

)  if ($me ison %nameschannel) set %tmp.nline echo %nameschannel

diff -ur --new-file --recursive ircN705/system/client.als ircN706/system/client.als

--- ircN705/system/client.als	Mon Apr  5 15:45:00 1999

+++ $mircdirclient.als   Tue Apr 27 15:20:52 1999

@@ -35,7 +35,7 @@

)}

)af {

)  set %tmp.af $read -nl [ $+ [ $lines(cpopup.pop) ] ] cpopup.pop

-  set %tmp.af $pls($remove($gettok(%tmp.f,1,32),&,.),1)

+  set %tmp.af $pls($remove($gettok(%tmp.af,1,32),&,.),1)

)  if (%tmp.af !isnum) set %tmp.af 1

)  set %i.af $$?="Enter description of file"

)  set %j.af $$dir="Location of file" \

@@ -203,7 +203,7 @@

)d {

)  if ($2 != $null) {

)    crypt 1 $1 $2-

-    echo -tai2 < $+ $hc(crypt) $+ : $+ $sc(%encryptpw) $+ > $result

+    echo -tai2 < $+ $hc(crypt) $+ : $+ $sc($1) $+ > $result

)  }

)  else iecho Syntax: /d <password> <text>

)}

diff -ur --new-file --recursive ircN705/system/cpopup.pop ircN706/system/cpopup.pop

--- ircN705/system/cpopup.pop	Thu Apr  1 16:32:58 1999

+++ $mircdircpopup.pop   Sat Apr 10 02:27:02 1999

@@ -27,7 +27,7 @@

)..$togglec(%sreq,ask) ask { set %sreq ask | .sreq ask }

)..$togglec(%sreq,auto) auto { set %sreq auto | .sreq auto }

)..$togglec(%sreq,ignore) ignore { set %sreq ignore | .sreq ignore }

-.$toggled(%dccrelay) relay { dccrelay $toggler(%dccrelay) }

+.$toggled2(%dccrelay) relay { dccrelay $iif(%dccrelay == off,$$?="Enter nickname to forward to.",off) }

).$toggled(%pdcc) pump { pdcc $toggler (%pdcc) }

).$toggled(%dccstatus) status { dccstatus $toggler(%dccstatus) }

)ctcp

diff -ur --new-file --recursive ircN705/system/ctcps.mrc ircN706/system/ctcps.mrc

--- ircN705/system/ctcps.mrc	Sun Apr  4 21:04:14 1999

+++ $mircdirctcps.mrc    Wed Apr 28 16:07:16 1999

@@ -1,16 +1,15 @@

)CTCP 40:HELP:? {

)  qnotice $nick All commands start with /CTCP $me 'COMMAND'

)  if ($chkflag($usrh($fulladdress),*,o)) qnotice $nick 'OP <password> [channel]' - Grants you ops in the requested channel.

-  .timer 1 2 qnotice $nick 'CHAN' - Gives you a listing of all channels I am in.

+  if ((%showchans == on) || ($chkflag($usrh($fulladdress),$null,m))) .timer 1 2 qnotice $nick 'CHAN' - Gives you a listing of all channels I am in.

)  .timer 1 2 qnotice $nick 'INVITE <channel>' - Invites you to the requested channel.

)  .timer 1 4 qnotice $nick 'UNBAN <channel>' - Removes all bans on you in the requested channel.

)  .timer 1 4 qnotice $nick 'INFO [channel] <infoline|none>' - Sets your info line.

)  .timer 1 6 qnotice $nick 'PASS <password> [newpass]' - Sets or changes your password.

)  .timer 1 6 qnotice $nick 'IDENT <password> [nick]' - Adds a new hostmask to my userlist.

)  if ((%partyline == on) && ($chkflag($usrh($fulladdress),$null,p))) {

+    .timer 1 8 qnotice $nick 'PARTYLINE' - Connects you to my ircN telnet daemon via DCC chat.

)    .timer 1 8 qnotice $nick Many more commands are available in the partyline.

-    if ($chkflag($usrh($fulladdress),$null,c)) .timer 1 8 qnotice $nick Telnet to $ip on port %telnetport or DCC chat with me to access the partyline.

-    else .timer 1 8 qnotice $nick Telnet to $ip on port %telnetport to access the partyline.

)  }

)}

)CTCP 40:OP:? {

@@ -62,7 +61,7 @@

)  else qnotice $nick I'm not on $b($2) $+ .

)}

)CTCP 40:UNBAN:? {

-  if ($2 == $null) qnotice $nick Syntax: UNBAN <channel>

+  if ($2 == $null) qnotice $nick Syntax: /CTCP $me UNBAN <channel>

)  elseif ($me isop $2) {

)    set %unban on

)    set %ubadd $fulladdress

@@ -73,34 +72,49 @@

)}

)CTCP 40:INFO:? {

)  if ((($findtok($usrchans($usrh($fulladdress)),$2,1,44)) && ($3 == $null)) || ($2 == $null)) qnotice $nick Syntax: /CTCP $me INFO [channel] <infoline|none>

-  else chinfo $usrh($fulladdress) $2-

-}  

+  else {

+    chinfo $usrh($fulladdress) $2-

+    if ($findtok($usrchans($usrh($fulladdress)),$2,1,44)) {

+      if ($3- == none) qnotice $nick Removed your infoline in $b($2)

+      else qnotice $nick Changed your infoline in $b($2) to " $+ $strip($3-) $+ "

+    }

+    elseif ($2- == none) qnotice $nick Removed your global infoline.

+    else qnotice $nick Changed your global infoline to " $+ $strip($2-) $+ "

+  }

+}

)CTCP 40:PASS:? {

)  if ($3) {

)    if ($len($3) < 4) qnotice $nick Please use at least 4 characters (security reasons).

)    elseif ($password($usrh($fulladdress)) === $2) {

)      chpass $usrh($fulladdress) $3

-      qnotice $nick Changed your password.

+      qnotice $nick Your password has been changed.

)    }

)    else qnotice $nick Password you supplied did not match.

)  }

)  elseif ($2) {

-    if ($password($usrh($fulladdress))) qnotice $nick You already have a password set.

+    if ($password($usrh($fulladdress))) qnotice $nick You already have a password set!

)    elseif ($len($2) < 4) qnotice $nick Please use at least 4 characters (security reasons).

)    else {

)      chpass $usrh($fulladdress) $2

-      qnotice $nick Changed your password.

+      qnotice $nick Your password has been set.

)    }

)  }

)  else qnotice $nick Syntax: /CTCP $me PASS <password> [newpass]

)}

)CTCP 40:PARTYLINE:? {

-  if ($chkflag($usrh($fulladdress),$null,p)) qctcp $nick DCC CHAT chat $longip($ip) %telnetport

+  if (($chkflag($usrh($fulladdress),$null,p)) || ($chkflag($usrh($fulladdress),$null,r))) qctcp $nick DCC CHAT chat $longip($ip) %telnetport

)  else qnotice $nick Access denied.

)}

)CTCP +1:IDENT:? {

)  if ($2 == $null) qnotice $nick Syntax: /CTCP $me IDENT <password> [nick]

-  elseif ((($3 != $null) && ($2 === $password($3))) || (($3 == $null) && ($password($nick) === $2))) ident $nick $3

+  elseif ((($3 != $null) && ($2 === $password($3))) || (($3 == $null) && ($password($nick) === $2))) {

+    if ($findtok($hstmask($iif($3,$3,$nick)),$mask($fulladdress,3),1,32) != $null) qnotice $nick Your hostmask is already recorded!

+    else {

+      addhost $iif($3,$3,$nick) $mask($fulladdress,3)

+      qnotice $1 Added hostmask: $mask($fulladdress,3)

+    }

+  }

+  else qnotice $nick Invalid username/password!

)}

)CTCP 1:DCC CHAT:? {

)  if ($5 == 19) .creq ignore

diff -ur --new-file --recursive ircN705/system/events.mrc ircN706/system/events.mrc

--- ircN705/system/events.mrc	Fri Apr  9 23:20:32 1999

+++ $mircdirevents.mrc   Wed Apr 28 16:31:12 1999

@@ -138,7 +138,7 @@

)  }

)}

)on 1:JOIN:# {

-  if (%firstjoin) .timer 1 0 firstjoin

+  if ((%firstjoin) && ($nick == $me)) .timer 1 0 firstjoin

)  if (%bt.dont.trigger == on) {

)    inc %bt.dont.trigger.joins

)    timoff %bt.dont.timer bt.dont.timer

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

)    else return

)  }

)}

-on 1:TEXT:* ping me *:# { if (%autoping == on) ctcp $nick PING $ticks }

)on 1:CTCPREPLY:PING * {

)  if ($left($2,1) == $) {

)    iecho PING reply exploit detected from $hc($nick) $rbrk($address) $+ : $ac($2-)

@@ -267,11 +266,11 @@

)  halt

)}

)on 1:BAN:# {

-  ;if (($me isop $chan) && ($chkflag($usrh($banmask),$chan,f)) && ($chkflag($usr($nick),$chan,m) == $false)) {

-  ;  if (%protdeop == on) mode $chan -ob $nick $banmask

-  ;  else mode $chan -b $banmask

-  ;  qnotice $nick Sorry, that hostmask ( $+ $usrh($banmask) $+ ) is protected.

-  ; }

+  if (($me isop $chan) && ($banmask iswm $ulist($banmask,40,1)) && ($chkflag($usrh($banmask),$chan,f)) && ($chkflag($usr($nick),$chan,m) == $false) || ($chkflag($usr($nick),$chan,b) == $false)) {

+    if (%protdeop == on) mode $chan -ob $nick $banmask

+    else mode $chan -b $banmask

+    qnotice $nick Sorry, that hostmask ( $+ $usrh($banmask) $+ ) is protected.

+  }

)  if (($me isop $chan) && (%f11 == on) && ($nick != $me)) {

)    if ($chan != $active) {

)      if ($form(other,chanban)) iecho $readini %formats other chanban

@@ -283,7 +282,7 @@

)    .timer 1 7 set %f11 on

)    set %f11cmd mode $chan -b $banmask

)  }

-  if (%kickonban != on) return

+  if ((%kickonban != on) || ($chkflag($usr($nick),$null,b))) return

)  set %tmp.kb 0

)  :start

)  inc %tmp.kb

@@ -294,12 +293,10 @@

)      if ((%tmpnick == $me) && ($nick != $me)) .quote mode $chan -ob $nick $banmask $+ $crlf $+ kick $chan $nick : $+ %bankick

)      elseif (%tmpnick == $me) .quote mode $chan -b $banmask

)      elseif (%tmpnick == $nick) .quote mode $chan -ob $nick $banmask $+ $crlf $+ kick $chan $nick :insanity check -- user attempted to ban self

-      else {

-        if ($chkflag($usr(%tmpnick),$chan,f)) goto start

-        elseif (($chkflag($usr($nick),$null,b) == $false) && ($level(%tmpmask) != 20)) {

-          iecho $hc(%tmpnick) has been banned from $brkt($chan) by $sc($nick) $+ , kicking...

-          kick $chan %tmpnick banned

-        }

+      elseif ($chkflag($usr(%tmpnick),$chan,f)) goto start

+      elseif ($level(%tmpmask) != 20) {

+        iecho $hc(%tmpnick) has been banned from $brkt($chan) by $sc($nick) $+ , kicking...

+        .quote kick $chan %tmpnick :banned

)      }

)    }

)    goto start

@@ -319,7 +316,7 @@

)  }

)}

)on 1:INVITE:* {

-  if ($chkflag($usrh($fulladdress),$null,b)) {

+  if (($chkflag($usrh($fulladdress),$null,b)) || ($chkflag($usrh($fulladdress),$null,m))) {

)    if ($form(other,inviteajoin)) iecho $readini %formats other inviteajoin

)    else iecho Autojoining $hc($chan) by the request of $hc($nick) $rbrk($address)

)    join $chan

@@ -349,6 +346,7 @@

)  tsound invite

)}

)on 1:TEXT:*:# {

+  if (%autoping == on) && ((ping me * iswm $1-) || (* ping me * iswm $1-) || (* ping me iswm $1-))) qctcp $nick PING $ticks

)  if (($away) && (%announce == on)) {

)    if (($me isin $1-) || ((%altnick1 isin $1-) && (%altnick1 != $null)) || ((%altnick2 isin $1-) && (%altnick2 != $null))) {

)      if ($findtok(%knowaway,$nick,1,44) == $null) {

diff -ur --new-file --recursive ircN705/system/identfrs.als ircN706/system/identfrs.als

--- ircN705/system/identfrs.als	Fri Apr  9 16:44:30 1999

+++ $mircdiridentfrs.als Thu Apr 15 16:11:38 1999

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

)a.dte return $asctime( [ $readini -n $td(msg.txt) $1 d [ $+ [ $2 ] ] ] ,dd-mm-yy @ h:nntt)

)a.f return $remove($1-,/,|)

)a.lastaddy return ( $+ $readini -n $td(msg.txt) messages lastrecaddy $+ )

-a.lastdate return $readini -n $td(msg.txt) messages lastrecdate

+a.lastdate return $asctime( [ $readini -n $td(msg.txt) messages lastrecdate ] ,dd-mm-yy @ h:nntt)

)a.lastmsg return $readini -n $td(msg.txt) messages lastrecmsg

)a.lastnick return $readini -n $td(msg.txt) messages lastrecnick

)ab return [[ $+ $1- $+ ]]

@@ -56,7 +56,7 @@

)}

)atp return %dir $+ \addon\temp\ $+ $1

)autoawymsg {

-  if (%autousedef == on) return %iver - autoaway after $div(%idle,60) $+ m

+  if (%autousedef == on) return  $+ %iver - autoaway after  $+ $div(%idle,60) $+ m

)  else return %defaulta

)}

)avconv {

@@ -312,12 +312,7 @@

)  :start

)  inc %i

)  if ($gettok($highlight,%i,44)) {

-    if ($gettok($highlight,%i,44) isin $3-) {

-      if ($mflag(options,n2,17) == 1) beep

-      if ($mflag(options,n4,25) == 1) flash -w [message waiting]

-      return $colour(Highlight)

-    }

-    elseif (($gettok($highlight,%i,44) isin $2) && ($mflag(options,n2,25) == 1)) {

+    if (($gettok($highlight,%i,44) isin $3-) || (($gettok($highlight,%i,44) isin $2) && ($mflag(options,n2,25) == 1))) {

)      if ($mflag(options,n2,17) == 1) beep

)      if ($mflag(options,n4,25) == 1) flash -w [message waiting]

)      return $colour(Highlight)

diff -ur --new-file --recursive ircN705/system/irc2.als ircN706/system/irc2.als

--- ircN705/system/irc2.als	Sun Apr  4 20:18:44 1999

+++ $mircdirirc2.als     Wed Apr 14 17:00:02 1999

@@ -175,7 +175,7 @@

)  i2.set $1 jointime $ticks

)  i2.set $1 namechan on

)  i2.set $1 joining on

-  i2.quote $1 join $2-

+  i2.quote $1 join #$2-

)}

)i2.key {

)  set %tmp.i2.key $i2.cvar($1,$2,mode)

@@ -262,7 +262,7 @@

)  i2.quote $1 names $1-

)}

)i2.nc {

-  if ($i2.active == Status:) return $2

+  if ($i2.ischan($i2.active) == $false) return $2

)  elseif (%nc == on) {

)    unset %j.i2.nc

)    set %tmp.i2.nc * $+ $2 $+ *

@@ -279,7 +279,7 @@

)  else return $2

)}

)i2.ncc {

-  if ($i2.active == Status:) return $2

+  if ($i2.ischan($i2.active) == $false) return $2

)  elseif (%nc == on) {

)    unset %j.i2.ncc

)    set %tmp.i2.ncc * $+ $2 $+ *

diff -ur --new-file --recursive ircN705/system/irc2.mrc ircN706/system/irc2.mrc

--- ircN705/system/irc2.mrc	Fri Apr  9 23:23:26 1999

+++ $mircdirirc2.mrc     Wed Apr 14 16:56:00 1999

@@ -45,7 +45,7 @@

)  if ($1 == $null) halt

)  elseif ($left($1,1) != /) {

)    if ($active == $i2.status($i2.actsession($active))) i2.secho $i2.actsession($active) $colour(Info) *** You're not on a channel

-    elseif ((%nch isin $1) && (%nc == on) && ($i2.ncc($i2.actsession($active),$remove($1,%nch)))) i2.pmsg $i2.actsession($active) $i2.active $ncomp($i2.ncc($i2.actsession($active),$remove($1,%nch))) $2-

+    elseif ((%nc == on) && ($right($1,1) == %nch) && ($1 != %nch) && ($chr(44) !isin $getleft($1)) && ($chr(40) !isin $getleft($1)) && ($chr(41) !isin $getleft($1)) && ($i2.ncc($i2.actsession($active),$getleft($1)))) i2.pmsg $i2.actsession($active) $i2.active $ncomp($i2.ncc($i2.actsession($active),$getleft($1))) $2-

)    else i2.pmsg $i2.actsession($active) $i2.active $1-

)  }

)  elseif ($1 == /say) i2.pmsg $i2.actsession($active) $i2.active $2-

diff -ur --new-file --recursive ircN705/system/telnet.mrc ircN706/system/telnet.mrc

--- ircN705/system/telnet.mrc	Mon Apr  5 16:13:10 1999

+++ $mircdirtelnet.mrc   Sat Apr 17 23:31:58 1999

@@ -314,7 +314,7 @@

)  sockwrite -n remote.* %rc.txt

)}

)on 1:SOCKCLOSE:remote.* {

-  iecho Remote control interface with $gettok($sockname,2,46) terminated.

+  .timer 1 0 iecho Remote control interface with $gettok($sockname,2,46) terminated.

)}

)on 1:CHAT:.remote {

)  qctcp $nick DCC CHAT chat $longip($ip) %telnetport

diff -ur --new-file --recursive ircN705/system/userlist.als ircN706/system/userlist.als

--- ircN705/system/userlist.als	Fri Apr  9 01:15:40 1999

+++ $mircdiruserlist.als Wed Apr 28 15:52:58 1999

@@ -129,11 +129,8 @@

)    return

)  }

)  if ($3) {

-    if ($findtok($usrchans($1),$3,1,44)) set %tmp.chattr $cflags($1,$3)

-    else {

-      writeini -n users.ini $1 channels $addtok($usrchans($1),$3,44)

-      set %tmp.chattr -

-    }

+    if ($findtok($usrchans($1),$3,1,44) == $null) addchan $1 $3

+    set %tmp.chattr $cflags($1,$3)

)  }

)  else set %tmp.chattr $flags($1)

)  if ((+ isin $2) || (- isin $2)) {

@@ -276,6 +273,7 @@

)    else iecho Can't find $hc($1) on userlist.

)    return

)  }

+  if (($findtok($usrchans($1),$2,1,44) == $null) && ($2 ischan)) addchan $1-2

)  if ($findtok($usrchans($1),$2,1,44)) {

)    if ($3- == none) {

)      remini users.ini $1 infoline. [ $+ [ $2 ] ]

diff -ur --new-file --recursive ircN705/system/utils.mrc ircN706/system/utils.mrc

--- ircN705/system/utils.mrc	Tue Apr  6 12:17:10 1999

+++ $mircdirutils.mrc    Thu Apr 15 16:16:04 1999

@@ -630,8 +630,8 @@

)      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)

+      did -a $dname 2 $did(6,$did(6).sel)

+      did -ra $dname 13 Autojoins: $numtok(%autojoin. [ $+ [ %irc.network ] ] ,44)

)    }

)    elseif ($did == 8) {

)      did -r $dname 6

diff -ur --new-file --recursive ircN705/system/ircN706.pch ircN706/system/ircN706.pch

--- ircN705/system/ircN706.pch	Thu Jan  1 00:00:00 1970

+++ $mircdirircN706.pch  Wed Apr 28 16:29:52 1999

@@ -0,0 +1,8 @@

+iecho (1) Updating version spec...

+set %reldate (1999/04/28 17.00)

+set %iver ircN 7.06

+set %ver ircN 7.06 + 7.0

+iecho (2) Deleting patch files...

+.timer 1 1 .remove ircN706.dif

+.timer 1 1 .remove ircN706.pch

+iecho Upgrade to ircN 7.06 was successful!