Bende yeni yeni bişeyler öğreniyorum dialog kodlama hakkında ama umarım yanlış anlayıp ters bişey yapmamışımdır. Aşağıdaki kodu dene.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#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 }