*** Topics ***

dialog topicchan {
title "ScripT -=> Channel Topic <=-"
size 150 200 377 109
option pixels
box "Channel Topic", 1, 3 0 371 100
text " ", 2, 12 23 61 14
combo 3, 79 20 218 100, drop
edit "", 4, 78 50 220 20, disable autohs
button "C&hange", 5, 78 75 105 20, disable ok
button "&Cancel", 6, 193 75 105 20, cancel
text "", 9, 12 52 61 15
}


on 1:dialog:topicchan:*:*:{
if ($devent == init) {
%hk.topcan = $active
.disable #topic
.enable #topikcek
did -a $dname 3 Fades-grey 
did -a $dname 3 Fades-purple
did -a $dname 3 Fades-green
did -a $dname 3 Fades-green-purple 
did -a $dname 3 Fades-seablue
did -a $dname 3 Fades-seagrey
did -a $dname 3 Fades-hotfire
did -a $dname 3 Fades-boldfire
did -a $dname 3 Fades-redfire
did -a $dname 3 Firespikes
did -a $dname 3 Pennies
did -a $dname 3 Purple-design
did -a $dname 3 Lines
did -a $dname 3 Squares
did -a $dname 3 Rainbow
did -a $dname 3 Diamonds
topic %hk.topcan
}
if ($devent == sclick) {
if ($did == 3) { %hk.topic = $did(3) | did -e $dname 4 | did -e $dname 5 }
if ($did == 5) { 

if (%hk.topic == Fades-grey) { topic %hk.topcan 0,15%,15`%15,14%,1`%15,1%,15,1 %hk.topchan 15,1`%1,14%,15`%15,15%,0`%3,0 }
if (%hk.topic == Fades-purple) { topic %hk.topcan 13,0<0,13>1,13<13,6>1,6<1,2>1,2<1,1>0,1 %hk.topchan 1,1<1,2>1,2<1,6>13,6<1,13>0,13<13,0> }
if (%hk.topic == Fades-green) { topic %hk.topcan 9`%16,9%, 3,9`%9,3%, 1,3`%3,1%,16,1 %hk.topchan 3,1`%1,3%, 9,3`%3,9%, 16,9`%9,16%, 1 } 
if (%hk.topic == Fades-green-purple) { topic %hk.topcan 15,0,%0,15%`13,15,%15,13%`1,13,%13,6%`5,6,% 8 %hk.topchan 5,6%,13,6`%1,13%,15,13`%13,15%,0,15`%15,0%, } 
if (%hk.topic == Fades-seablue) { topic %hk.topcan 11,0%0,11% 10,11%11,10% 1,10%10,2% 1,2%1,1%0,1  %hk.topchan  1,1%1,2% 10,2%1,10% 11,10%10,11% 0,11%11,0% } 
if (%hk.topic == Fades-seagrey) { topic %hk.topcan 16,15%,15,15`%15,14%,10,14`%15,10%,1,10`%10,2%,15,2 %hk.topchan 10,2`%1,10%,15,10`%10,14%,15,14`%15,1516,1515,15`% 16,15%, }
if (%hk.topic == Fades-hotfire) { topic %hk.topcan 8,0 ,%0,8%`7,8,%8,7%`4,7,%7,4%`8,4 %hk.topchan 7,4`%4,7%,8,7`%7,8%,0,8`%8,0%,  }
if (%hk.topic == Fades-boldfire) { topic %hk.topcan 1215,8%8,8|4,8%8,4%4,4|5,4%4,5%5,5|1,5%5,1%1-- 16 %hk.topchan 1--5,1%1,5%5,5|4,5%5,4%4,4|8,4%4,8%8,8|15,8%1 } 
if (%hk.topic == Fades-redfire) { topic %hk.topcan 4,0%0,4%4,4 5,4%4,5%5,5 1,5%5,1%1,1 15,1 %hk.topchan 5,1%1,5%5,5 4,5%5,4%4,4 0,4%4,0% }
if (%hk.topic == Firespikes) { topic %hk.topcan 8,0|0,8|7,8|8,7|4,7|7,4|5,4|4,5|1,5|5,1| 9,1 %hk.topchan 5,1 |1,5|4,5|5,4|7,4|4,7|8,7|7,8| }
if (%hk.topic == Pennies) { topic %hk.topcan 8,18,148,158,08,158,148,1 0 %hk.topchan 8,18,148,158,08,158,148,1 }
if (%hk.topic == Purple-design) { topic %hk.topcan 8,60`48=0.,8_0,6 %hk.topchan 8,6_,.0=840`8 } 
if (%hk.topic == Lines) { topic %hk.topcan 15/0,15/15,14/15,1/0,1 %hk.topchan 15,1\15,14\0,15\15,0\ } 
if (%hk.topic == Squares) { topic %hk.topcan 1,11,21,31,41,51,61,71,81,91,108,1 %hk.topchan 1,101,91,81,71,61,51,41,31,21 } 
if (%hk.topic == Rainbow) { topic %hk.topcan 1{3{4{5{1{7{8{9{10{11{12{13{15{15{1{3{4{5{1{7{8{9{10{11{12{13{15{15{1 %hk.topchan 15}15}13}12}11}10}9}8}7}1}5}4}3}1}15}15}13}12}11}10}9}8}7}1}5}4}3}1} }
if (%hk.topic == Diamonds) { topic %hk.topcan 4,21,413,21,1315,21,158,21,811,21,119,21,90,1 %hk.topchan 1,99,21,1111,21,88,21,1515,21,1313,21,44,2 }
}
}
if ($devent == edit) {
if ($did == 4) { %hk.topchan = $did(4) }
}
}
menu channel {
-
Topics:dialog -m topicchan topicchan
-
}


 