alias multiclone { 
  dialog -md multi multi 
} 
menu * { 
  Scan for Clones:/dialog -md multi multi 
} 
dialog multi { 
  title "Multi Channel Clone Scanner" 
  size -1 -1 613 302 
  option notheme 
  edit "#channel 1", 1, 103 40 100 20 
  edit "#channel 2", 2, 493 40 100 20 
  text "Channel 1", 3, 12 48 72 17, right 
  text "Clones", 4, 276 48 51 17, center 
  text "Channel 2", 5, 399 48 72 17, right 
  text "Made by Chris_Alot77", 6, 12 9 159 17 
  button "Scan", 7, 12 260 92 23 
  button "Clear", 8, 111 260 92 23 
  button "Clear All", 9, 256 260 92 23 
  button "Scan", 10, 402 260 92 23 
  button "Clear", 11, 501 260 92 23 
  button "Compare Channels", 12, 247 12 112 23, disable 
  list 13, 12 67 191 186, size vsbar tab 200 hsbar 
  list 14, 221 67 166 186, size hsbar vsbar 
  list 15, 402 67 191 186, size hsbar vsbar 
} 
on *:dialog:multi:sclick:9: { 
  did -b multi 12 
  did -r multi 13 
  did -r multi 14 
  did -r multi 15 
  remove chanone.txt 
  remove chantwo.txt 
  remove bothchans.txt 
  remove bothchansfull.txt 
  remove chanonefull.txt 
  remove chantwofull.txt 
} 
on *:dialog:multi:sclick:8: { 
  did -r multi 13 
  did -b multi 12 
  remove chanone.txt 
  remove chanonefull.txt 
} 
on *:dialog:multi:sclick:11: { 
  did -r multi 15 
  did -b multi 12 
  remove chantwo.txt 
  remove chantwofull.txt 
} 
on *:dialog:multi:sclick:7: { 
  unset %chantwo 
  remove chanone.txt 
  remove chanonefull.txt 
  set %chanone ON 
  if ($did(multi,15,1) != $null) { 
    did -e multi 12 
    did -r multi 14 
    did -r multi 13 
    if ($me ison $did(multi,1)) { 
      who $did(multi,1) 
      timer 1 1 singleclonecheck 
      timer 1 1 did -z multi 13 
      timer 1 1 did -z multi 14 
    } 
    if ($me !ison $did(multi,1)) { 
      join $did(multi,1) 
      who $did(multi,1) 
      timer 1 1 singleclonecheck 
      timer 1 1 did -z multi 13 
      timer 1 1 did -z multi 14 
    } 
  } 
  else { 
    did -z multi 13 
    did -z multi 14 
    did -r multi 14 
    did -r multi 13 
    if ($me ison $did(multi,1)) { 
      who $did(multi,1) 
      timer 1 1 singleclonecheck 
      timer 1 1 did -z multi 13 
      timer 1 1 did -z multi 14 
    } 
    if ($me !ison $did(multi,1)) { 
      join $did(multi,1) 
      who $did(multi,1) 
      timer 1 1 singleclonecheck 
      timer 1 1 did -z multi 13 
      timer 1 1 did -z multi 14 
    } 
  } 
} 
on *:dialog:multi:sclick:10:{ 
  unset %chanone 
  set %chantwo ON 
  remove chantwo.txt 
  remove chantwofull.txt 
  if ($did(multi,13,1) != $null) { 
    did -e multi 12 
    did -r multi 14 
    did -r multi 15 
    if ($me ison $did(multi,2)) { 
      who $did(multi,2) 
      timer 1 1 singleclonecheck 
      timer 1 1 did -z multi 15 
      timer 1 1 did -z multi 14 
    } 
    if ($me !ison $did(multi,2)) { 
      join $did(multi,2) 
      who $did(multi,2) 
      timer 1 1 singleclonecheck 
      timer 1 1 did -z multi 15 
      timer 1 1 did -z multi 14 
    } 
  } 
  else { 
    if ($did(multi,13,1) == $null) { 
      did -z multi 15 
      did -z multi 14 
      did -r multi 14 
      did -r multi 15 
      if ($me ison $did(multi,2)) { 
        who $did(multi,2) 
        timer 1 1 singleclonecheck 
        timer 1 1 did -z multi 15 
        timer 1 1 did -z multi 14 
      } 
      if ($me !ison $did(multi,2)) { 
        join $did(multi,2) 
        who $did(multi,2) 
        timer 1 1 singleclonecheck 
        timer 1 1 did -z multi 15 
        timer 1 1 did -z multi 14 
      } 
    } 
  } 
} 
raw 352:*: { 
  if ($dialog(multi)) { 
    if (%chanone == ON) { 
      did -a multi 13 $6 $4 
      write chanone.txt $4 
      write chanonefull.txt $6 $did(multi,1) $4 
    } 
    if (%chantwo == ON) { 
      did -a multi 15 $6 $4 
      write chantwo.txt $4 
      write chantwofull.txt $6 $did(multi,2) $4 
    } 
  } 
} 
on *:dialog:multi:sclick:12:{ 
  did -r multi 14 
  remove bothchans.txt 
  remove bothchansfull.txt 
  copy -o chanone.txt bothchans.txt 
  copy -a chantwo.txt bothchans.txt 
  copy -o chanonefull.txt bothchansfull.txt 
  copy -a chantwofull.txt bothchansfull.txt 
  timer 1 2  did -z multi 14 
  var %x = 1 
  var %y = 1 
  while ($read(bothchansfull.txt,%x)) { 
    filter -ff bothchans.txt NUL $gettok($read(bothchansfull.txt,%x),3,32) 
    if ($filtered != 1) { 
      did -a multi 14 $read(bothchansfull.txt,%x) 
    } 
    inc %x 
  } 
} 
alias singleclonecheck {  
  if (%chanone == ON) { 
    var %x = 1 
    while (%x <= $did(multi,13).lines) { 
      filter -ff chanone.txt NUL $gettok($did(multi,13,%x),2,32) 
      if ($filtered != 1) { did -a multi 14 $did(multi,13,%x) } 
      inc %x 
    } 
  } 
  if (%chantwo == ON) { 
    var %x = 1 
    while (%x <= $did(multi,15).lines) { 
      filter -ff chantwo.txt NUL $gettok($did(multi,15,%x),2,32) 
      if ($filtered != 1) { did -a multi 14 $did(multi,15,%x) } 
      inc %x 
    } 
  } 
} 
on *:dialog:multi:close:0: { 
  remove chanone.txt 
  remove chantwo.txt 
  remove chanonefull.txt 
  remove chantwofull.txt 
  remove bothchans.txt 
  remove bothchansfull.txt 
}