Forums Scripts & Popups Sockets breaking loop

alias -l dict {

  set %dict.term $$1-
  set %dict.url /?s= $+ $replace($$1-,$chr(32),+)
  sockopen dict www.dict.cc 80
; ------------------------
  timerdict.autoreset 1 2 dictautoreset
; ------------------------
}
; ------------------------
alias -l dictautoreset {
  msg %dict.recipient 4***Error 14 No Match for <14 %dict.term >14. Please visit7 www.dict.cc $+ %dict.url 14for more information. 
  unset %dict.*
  sockclose dict
}
; ------------------------
on *:SOCKOPEN:dict:{
  sockwrite -nt $sockname GET %dict.url HTTP/1.1
  sockwrite -nt $sockname HOST: www.dict.cc
  sockwrite -n $sockname
}


on *:SOCKREAD:dict: {
  if ($sockerr > 0) { echo -a Error while reading from $sockname $+ . | echo -a Error # $+ $sockerr occurred. | return }
  sockread %dict.read
  while ($sockbr) {
    if ($regex(%dict.read,var c.Arr = new Array)) {
      if ($mid(%dict.read,6,1) == 1) {
; ------------------------
        timerdict.autoreset off
; ------------------------
        set %dict.text.eng %dict.read
      }
      if ($mid(%dict.read,6,1) == 2) {
        set %dict.valid.result 1
        set %dict.text.deu %dict.read   
        dict.form
        halt
      }
    }
    sockread %dict.read 
  }
}
on *:SOCKCLOSE:dict: { msg %dict.recipient 4***Error14 - No match, please visit7 www.dict.cc $+ %dict.url 14for more information | unset %dict.* }


alias -l dict.form {
  Set %dict.char.remove 1
  msg %dict.recipient <14 %dict.term > 7Dict.cc14 Translation 12English - 3Deutsch 
  while (%dict.char.remove <= %dictresultcount) {
    Set %dict.word.eng.out $remove($remove($mid(%dict.text.eng,$pos(%dict.text.eng," $+ $chr(44) $+ ",%dict.char.remove),$calc($pos(%dict.text.eng," $+ $chr(44) $+ ",$calc(%dict.char.remove + 1)) - $pos(%dict.text.eng," $+ $chr(44) $+ ",%dict.char.remove)))," $+ $chr(44) $+ "),",\)
    Set %dict.word.deu.out $remove($remove($mid(%dict.text.deu,$pos(%dict.text.deu," $+ $chr(44) $+ ",%dict.char.remove),$calc($pos(%dict.text.deu," $+ $chr(44) $+ ",$calc(%dict.char.remove + 1)) - $pos(%dict.text.deu," $+ $chr(44) $+ ",%dict.char.remove)))," $+ $chr(44) $+ "),",\)
    if (%dict.word.eng.out) { msg %dict.recipient 12 %dict.word.eng.out -3 %dict.word.deu.out }
    inc %dict.char.remove
  }
  msg %dict.recipient 14for more information visit7 www.dict.cc $+ %dict.url 
  unset %dict.*
  sockclose dict
}

if ($regex(%dict.read,re) {
  unset %dict.*
  sockclose dict
  halt
}

on *:SOCKREAD:dict.*: {
  if ($sockerr > 0) { echo -a Error while reading from $sockname $+ . | echo -a Error # $+ $sockerr occurred. | return }
  sockread % [ $+ $sockname ]
  while ($sockbr) {
    hadd -m $sockname $+ .text $hget($sockname,count) % [ $+ $sockname ]
    hinc $sockname count   
    sockread % [ $+ $sockname ] 
  }
  timer $+ $sockname -m 1 100 dict.form $sockname
}

if ($sockbr == $null) { dict.form $sockname }

if ($sock($sockname).rq == $null) { dict.form $sockname }

if ($regex(% [ $+ $sockname ],"text that appears in the last recived string from dict.cc")) { dict.form $sockname }

$regex(% [ $+ $sockname ],var c.Arr = new Array)

alias dict {
  if ($sock(dict)) { set -e $+(%,dictq.,$ticks,.,$r(1,999)) $1 $$2- | return }
  ; The above line sets a queue if the script is already busy
  set -e %dict.term $+(<14,$$2-,>14)
  set -e %dict.chan $1
  set -e %dict.url /?s= $+ $replace($2-,$chr(32),+)
  sockopen dict www.dict.cc 80
}
on *:SOCKOPEN:dict:{
  if ($sockerr) {
    echo -a 4***Error:14 DICT Socket error: [Error $sock($sockname).wserr occurred]
    dict.nogo Socket error 
    return
  }
  sockwrite -nt $sockname GET %dict.url HTTP/1.1
  sockwrite -nt $sockname HOST: www.dict.cc
  sockwrite -n $sockname
}
on *:SOCKREAD:dict:{
  var %read
  sockread %read
  if (*no translations found* iswm %read) {
    sockclose dict
    dict.nogo No match
  }
  elseif (& c?Arr ? new Array* iswm %read) {
    if ($mid(%read,6,1) == 1) {
      tokenize 34 %read
      set -e %dict.text.eng $left($3-,-2)
    }
    elseif ($mid(%read,6,1) == 2) {
      tokenize 34 %read
      set -e %dict.text.deu $left($3-,-2)
      dict.form
    }
  }
}
on *:SOCKCLOSE:dict:{ dict.nogo No result }
alias -l dict.nogo {
  msg %dict.chan 4***Error14 %dict.term $([,$1,]) -- please visit7 www.dict.cc $+ %dict.url
  dict.new
}
alias -l dict.form {
  sockclose dict
  msg %dict.chan %dict.term 7Dict.cc14 Translation 12English - 3Deutsch
  var %i = 1,%x = $numtok(%dict.text.eng,44)
  while (%i !> %x) {
    msg %dict.chan %dict.term $+([,%i of %x,]) 12 $gettok(%dict.text.eng,%i,44) -3 $gettok(%dict.text.deu,%i,44)
    inc %i
    if (%i > 3) { break }
  }
  msg %dict.chan 14for more $iif(%x > 3,matches,information) visit7 www.dict.cc $+ %dict.url 
  dict.new
}
; Now process the next queued search (if there is any)
alias -l dict.new {
  unset %dict.*
  if ($var(%dictq.*,1) && $v1 != $var(%dictq.*,1).value) {
    unset $v1
    dict $v2
  }
}

if (*no translations found* iswm %read)