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
}