Version 8 fix from Julian

To make Mircryption work on Ircap 8.0, you should edit the file ircap1.mrc located on C:\mIRC\s.

You need to change "Original" parts to the "Mod" ones as follows:

1) Original:

on ^+69:NOTICE:*:*: {

 identificanick $1-

 if ($window(@cbots)) cbotinfo  $+ $Nick $+ : $1-

 echo -stq $botecho($Nick) $1- | .timerBOTSEP 1 1 linesep | halt

}

Mod:

identificanick $1- )

on ^+69:NOTICE:*:*: {if ($halted) return

 identificanick $1-

 echo -stq $botecho($Nick) $1- | halt

}

2) Original:

on 1:TEXT:*:*: if ($me isin $strip($1-)) { cuac $1- | if ($away) && ($chan) && (%away.noti == on) { .timerRAWAY 1 3 qc notice $nick $mg(notiaw,$nexe($awaymsg)) } }

Mod:

on 1:TEXT:*:*: if ($halted) return | if ($me isin $strip($1-)) { echo -set $chan < $+ $nick $+ > $nexe($1-) | .timerCUAC 1 1 sss cuac | if ($away == $true) && ($chan != $null) && (%away.noti == on) { .timerRAWAY 1 3 qc notice $nick $mg(notiaw,$nexe($awaymsg)) } }

3) Original:

on ^1:TEXT:*:#: {

 if ($len($1-) > 50) teflod $len($1-)

 if (%spam.sex == on) { if ($nick !isop $chan) { var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { halt } | dec %prh } } }

 if (%nick@ == on) { var %tma.p = %tma.n2 $+ $left($remove($nick($chan,$nick).pnick,$nick),1) }

 var %ni.ck = %tma.n1 $+ %tma.p $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)

 if ($isalias(tma.text)) { $tma.text(%ni.an,$chan,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an $chan %ni.ck $+  $1- }

 halt

}

Mod:

on ^1:TEXT:*:#: {

  if ($halted) return

 if ($len($1-) > 50) teflod $len($1-)

 if (%spam.sex == on) { if ($nick !isop $chan) { var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { halt } | dec %prh } } }

 if (%nick@ == on) { var %tma.p = %tma.n2 $+ $left($remove($nick($chan,$nick).pnick,$nick),1) }

 var %ni.ck = %tma.n1 $+ %tma.p $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)

 if ($isalias(tma.text)) { $tma.text(%ni.an,$chan,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an $chan %ni.ck $+  $1- }

 halt

}

4) Original:

on ^1:TEXT:*:?:{

 if ($len($1-) > 50) teflod $len($1-)

 if (%spam.jix == on) {

   if ($ulevel < 7) {

     var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { if ($nnet != $nnet($site)) { window -c $nick | ignore -pu30 $site | if %spam.log == on write " $+ $logdir $+ SPAM.log" $timestamp $nnet $Nick (msg) : $1- | echo -ste $logo $mg(nospamp) ( $nick > $nexe($left($1-,10)) ..) | halt } } | dec %prh }

   }

 }

Mod:

on ^1:TEXT:*:?:{if ($halted) return

 if ($len($1-) > 50) teflod $len($1-)

 if (%spam.jix == on) {

   if ($ulevel < 7) {

     var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { if ($nnet != $nnet($site)) { window -c $nick | ignore -pu30 $site | if %spam.log == on write " $+ $logdir $+ SPAM.log" $timestamp $nnet $Nick (msg) : $1- | echo -ste $logo $mg(nospamp) ( $nick > $nexe($left($1-,10)) ..) | halt } } | dec %prh }

   }

 }

5) Original:

#hablo on

on *:input:#: if ($left($1,1) != / ) { escribiendo $active $1- | halt }

on *:input:?: if ($left($1,1) != / ) { escribiendo $active $1- | halt }

on *:input:=: if ($left($1,1) != / ) { escribiendo $active $1- | halt }

on *:input:!: if ($left($1,1) != / ) { escribiendo $active $1- | halt }

#hablo end

Mod:

#hablo on

on *:input:#: if (!$halted && $left($1,1) != / ) { escribiendo $active $1- | halt }

on *:input:?: if (!$halted && $left($1,1) != / ) { escribiendo $active $1- | halt }

on *:input:=: if (!$halted && $left($1,1) != / ) { escribiendo $active $1- | halt }

on *:input:!: if (!$halted && $left($1,1) != / ) { escribiendo $active $1- | halt }

#hablo end

6) Original:

on ^+69:TEXT:*:*: identificanick $1-

identificanick $1- )

on ^+69:NOTICE:*:*: {if ($halted) return

 identificanick $1-

 echo -stq $botecho($Nick) $1- | halt

}

Mod:

on ^+69:TEXT:*:*: {

if ($halted) return

identificanick $1- )

on ^+69:NOTICE:*:*: {if ($halted) return

 identificanick $1-

 echo -stq $botecho($Nick) $1- | halt

}