#karizmayazi off
on 1:INPUT:*:{
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | haLt }
  %turkce = $repLacecs(%turkce,oke,0k£,mcx,4m3Ö7c13Ü 12x10X7x,np,no problem,bye,bash bashhh,ooo,OoOoOoOoOoOoOoO,böö,4b10Ö12ö2ö5Ö7 Ö6ö8Ö3ö1Ö0ö5Ö9ö7Ö6ö13Ö15ö14Ö,::,puhih ihehohöhühahehohuhI,ş,$,ı,I,Ş,$,l,L,İ,I,ç,ch)
  say %turkce
  unset %turkce
  haLt
}
#karizmayazi end
dialog karizmam {
  title "Karizmam Yazı"
  size -1 -1 80 50
  option dbu
  button "Tamam", 1, 15 35 49 10, ok
  box "Kişisel korumalar", 6, 3 2 75 30
  check "Aç - Kapat ", 2, 8 11 35 8
}
on 1:dialog:karizmam:sclick:*:{
  if ($did(2).state == 1) { .enable #karizmayazi } | else { .disable #karizmayazi }
}
on *:DIALOG:karizmam:init:0:{
  if ($group(#karizmayazi) == on) { did -c karizmam 2 }