Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Alias ktam { dialog -m kelime kelime }
- dialog Kelime {
- size -1 -1 274 186
- title Kelime Temamlama
- box "Kelimeler",1, 5 5 150 175
- list 2, 15 21 130 163, multi autovs vsbar
- box "Ayarlar",3, 159 5 110 142
- text "Kısa Kelime",4, 185 20 70 15
- edit "",5, 169 35 90 20, autohs center
- text "Uzun Kelime",6, 185 58 70 15
- edit "",7, 169 73 90 20, autohs center
- button "Ekle",8, 169 99 45 20, default flat multi
- button "Sil",9, 216 99 45 20, default flat multi
- button "Aç",10, 169 122 45 20
- button "Kapat",11, 216 122 45 20
- button "TAMAM",12, 159 150 110 30,ok
- }
- on 1:dialog:kelime:sclick:10: { enable #ktamam }
- on 1:dialog:kelime:sclick:11: { disable #ktamam }
- on 1:dialog:kelime:sclick:9: {
- if $read(kelime.txt,w,$did(2).seltext) { write $+(-dl,$readn) kelime.txt | did -d $dname 2 $did(2).sel }
- }
- on 1:dialog:kelime:sclick:8: {
- if ($did(5) == $null) { return $input(Kısa kelimeyi giriniz!,ohud,HATA) | halt }
- if ($did(7) == $null) { return $input(Uzun kelimeyi giriniz!,ohud,HATA) | halt }
- else { did -a $dname 2 $did(5) $+ % $+ $did(7) | write kelime.txt $did(5) $+ % $+ $did(7) | did -r $dname 5,7 }
- }
- on 1:dialog:kelime:*:*:{
- if ($devent == init) {
- loadbuf -o $dname 2 $shortfn(kelime.txt)
- }
- }
- #ktamam on
- on *:input:*: {
- if (/* !iswm $1-) {
- if $left($1-,1) != $readini(mirc.ini,text,commandchar) && ($active ischan || $query($active)) {
- var %i 1,%q $1-
- while %i <= $lines(kelime.txt) {
- %q = $replace(%q,$gettok($read(kelime.txt,%i),1,$asc(%)),$gettok($read(kelime.txt,%i),2,$asc(%)))
- inc %i
- .unset %t
- }
- say %q
- halt
- }
- }
- }
- #ktamam end
Add Comment
Please, Sign In to add comment