dialog otopart {
  title "Oto Part Kanalları"
  size -1 -1 167 41
  option dbu
  edit "", 1, 14 14 145 12
  radio "Sürekli Part Et", 2, 14 29 50 10
  radio "Sadece İlk Giriş Aninda Part Et", 3, 80 29 89 10
  check "Sistemi Aç/Kapat", 4, 54 2 54 10
}
on *:dialog:otopart:*:*: { 
  if $devent == close { 
    set %otopart $did(1)
    if %otopart == $null { unset %otopart }
  }
  if $devent == sclick { 
    if $did(2).state == 1 { set %supart on | unset %30spart } 
    if $did(3).state == 1 { set %30spart on | unset %supart } 
    if $did(4).state == 1 { set %opaon on }
    else { unset %opaon }
  }
  if $devent == init { 
    if %supart == on { did -c $dname 2 }
    if %30spart == on { did -c $dname 3 }
    if %opaon == on { did -c $dname 4 }
    if %otopart { did -a $dname 1 %otopart }
  }
}

 edit "", 1, 14 14 145 12, autohs