

;Renkli Topic Sistemi
;---------------------------

alias ctopic_sys {
  dialog -m ctopicsys ctopicsys
  topicgos
  topic_kanal
  topic_gosterl
}

dialog ctopicsys {
  title ".::/ AnlaSevgimi ScripT - Renkli Topic! \::."
  size -1 -1 300 280
  icon dicon.ico
  text "Yazacaginiz Topic:" , 5 , 10 10 100 15
  edit "", 6 , 10 25 270 20 , autohs
  text "   Bir Topic Secin" , 10 , 10 50 90 15
  list 20 , 10 65 100 200, flat
  text "Kanal adı" , 30 , 115 50 70 15
  combo 40 , 115 65 80 100 , drop, flat
  text "Yazılan Harf" , 90 , 117 140 70 20
  edit "" , 100 , 115 160 70 20 ,center
  text "Kalan Harf" , 95 , 117 185 60 20
  edit "" , 105 , 115 205 70 20 ,center
  button "Uygula" , 2999 , 210 150 70 35 , tab 10, flat
  button "Iptal" , 3000 , 210 200 70 35 , default ok, flat
  text "just a dream LeoN work!.." , 187, 150 260 150 15, disable
}
on 1:dialog:ctopicsys:sclick:2999:topicuy
on 1:dialog:ctopicsys:sclick:40:topickanalsec
on 1:dialog:ctopicsys:sclick:20:set %topiclistsel $did(20).sel | topic_gosterw 
on 1:dialog:ctopicsys:sclick:3000:window -c @topic | set %cetopic AnlaSevgimi ScripT
on 1:dialog:ctopicsys:edit:6:set %cetopic $did(6).text   
alias topic_kanal {
  set %tnum.kanal 0
  :basla
  inc %tnum.kanal
  if ( $comchan($me,%tnum.kanal) ) {
    if ( $me isop $comchan($me,%tnum.kanal) ) did -a ctopicsys 40 $comchan($me,%tnum.kanal)
    else goto basla
  }
  unset %tnum.kanal
  if $comchan($me,0) == 0 echo -a -Durum- Bir Kanalda değilsiniz.. 
}

alias topic_gosterw {
  set %top_goster $read -l $+ %topiclistsel topics.txt
  if ( %top_goster == $null ) halt
  dline @topic 1
  aline @topic %top_goster 
  topichesapla
}
alias topic_gosterl {
  set %ctopkon 0
  :basla
  inc %ctopkon 
  set %ctop_goster $read -l $+ %ctopkon topics.txt
  if ( %ctop_goster == $null ) halt
  did -a ctopicsys 20 Topic %ctopkon 
  goto basla
}

alias topicgos {
  window -l +df @topic 80 400 700 15
  aline 1 @topic 1,1_  
  cline 1 @topic 1
}

alias topickanalsec {
  set %topickanalsec $did(40).text
}
alias topicuy {
  topic %topickanalsec %top_goster
}

alias topichesapla {
  set %topicyazilan $len(%top_goster)
  set %topickalan $calc( 250 - %topicyazilan )
  did -r ctopicsys 100
  did -a ctopicsys 100 %topicyazilan
  did -r ctopicsys 105
  did -a ctopicsys 105 %topickalan
}

;-----------------------------------------------------
