Forums Bug Reports Example for /unset-Bug in mIRC 6.10

alias bug { 
  var %string = abcd efgh
  var %x = 1 | while (%x <= $len(%string)) {
    var %ascii = $asc($mid(%string,%x,1))
    if ((%ascii < 65 || %ascii > 90 && %ascii < 97 || %ascii > 122) && (%ascii != 160 && %ascii != 196 && %ascii != 214 && %ascii != 220 && %ascii != 223 && %ascii != 228 && %ascii != 246 && %ascii != 252)) {
    %words = %words $+ $chr(32) $+ $chr(%ascii) $+ $chr(32) $+ $chr(32) } 
    else { %words = %words $+ $chr(%ascii) }
  inc %x }
  var %x = 1 | while (%x <= $numtok(%words,32)) {
    echo -a %x $+ .1 word: %word
    var %word = $gettok(%words,%x,32)
    echo -a %x $+ .2 word: %word
    if ($len($remove(%word,$chr(160))) > 3) {
      var %head = $left(%word,1)
      if ($right(%word,1) == $chr(160)) { var %foot = $right(%word,2) }
      else { var %foot = $right(%word,1) }
      var %body = $mid($remove(%word,$chr(160)),2,$calc($len($remove(%word,$chr(160))) -2))
      var %oldbody = %body
      echo -a %x $+ .3 word:4 %word

      ;-> [color:red]BUG[/color] <-----------------------------------
      [color:red]unset %word[/color]
      ;-------------------------------------------
      ; [color:green]It olny works if I use 'unset %word %word'[/color]
      ;-------------------------------------------

      echo -a 3-> unset $chr(37) $+ word <-
      if (%x == 2) echo -a %x $+ .4 word:4 %word <- what's that?
      else echo -a %x $+ .4 word:4 %word
      var %y = 1 | while (%y <= $len(%body)) { %word = %word $+ $mid(%body,%y,1) $+ $chr(46) | inc %y }
      echo -a %x $+ .5 word: %word
      var %body = $left(%word,$calc($len(%word) -1))
    var %newbody = %body }
    else { echo -at %x $+ . word: ->7 $+ %word $+ <- }
    echo -a -----------------
  inc %x }
unset %word %words }

1.1 word:
1.2 word: abcd
1.3 word: [color:red]abcd[/color]
[color:green]-> unset %word <-[/color]
1.4 word:
1.5 word: b.c.
-----------------
2.1 word: b.c.
2.2 word: efgh
2.3 word: [color:red]efgh[/color]
[color:green]-> unset %word <-[/color]
2.4 word: [color:red]b.c.[/color] <- what's that?
2.5 word: b.c.f.g.
-----------------

[color:red]unset %word[/color]  <- didn't work well

exit

alias unsetvar.test {
  echo -a begin test 1
  set -s %test1 global
  var -s %test1 = local
  echo -a %test1 %test1 <--
  unset -s %test1
  echo -a %test1 %test1 <--
  echo -a begin test 2
  set -s %test2 global
  var -s %test2 = local
  echo -a %test2 %test2 <--
  unset -s %test2 %test2
  echo -a %test2 %test2 <--
}

alias whee {
  set %test global
  var %test = local
  echo -a *** %test
  unset %test
  echo -a *** %test
}