dialog kanal {
  title ".........::SouLCaN ScripT::........."
  size -1 -1 128 70
  option dbu
  edit %kanalx, 1, 17 15 50 10
  button "Kanala gir", 2, 7 25 75 10
  button "#sohbet", 3, 7 39 37 10
  button "#oyun", 4, 47 39 37 10
  button "#muhabbet", 5, 7 52 37 10
  button "#radyo", 6, 47 52 37 10
  text "Girmek istediginiz kanalı yazınız", 7, 7 5 75 10
  box "", 8, 3 0 85 67
  box "", 9, 87 0 38 67
  button "Kapat", 10, 90 6 31 58,cancel
}
on 1:dialog:kanal:sclick:2:{ .set %kanalx $did(1) | join $did(1) }
on 1:dialog:kanal:sclick:3:{ join #sohbet }
on 1:dialog:kanal:sclick:4:{ join #oyun }
on 1:dialog:kanal:sclick:5:{ join #muhabbet }
on 1:dialog:kanal:sclick:6:{ join #radyo }

alias kanal { diyalog -m kanal kanal }