dialog _prots.dialog {
title “Korumalar by Serdar”
size -1 -1 186 193
option dbu
check “Tekrar Koruması”, 5, 4 38 50 10
check “Flood Koruması”, 6, 4 48 50 10
check “Caps Koruması”, 7, 4 58 50 10
check “Uzun Yazı Koruması”, 8, 4 68 60 10
check “Kontrol Kodu Koruması”, 9, 4 78 67 10
check “Badnick Koruması”, 2, 4 8 54 10
check “Küfür Koruması”, 3, 4 18 50 10
check “Reklam Koruması”, 4, 4 28 54 10
box “Kanal Korumaları”, 1, 2 1 95 120
button “Ayarla”, 12, 70 8 24 10
button “Ayarla”, 13, 70 18 24 10
button “Ayarla”, 14, 70 28 24 10
button “Ayarla”, 15, 70 38 24 10
button “Ayarla”, 16, 70 48 24 10
button “Ayarla”, 17, 70 58 24 10
button “Ayarla”, 18, 70 68 24 10
button “Ayarla”, 19, 70 78 24 10
box “KiÅŸisel Korumalar”, 22, 98 1 87 120
check “Küfür Koruması”, 23, 100 8 50 10
check “Reklam Koruması”, 24, 100 18 53 10
check “Fullname Koruması”, 10, 4 88 55 10
check “Ident Koruması”, 11, 4 98 50 10
button “Ayarla”, 20, 70 88 24 10
button “Ayarla”, 21, 70 98 24 10
check “Flood Koruması”, 25, 100 28 50 10
check “Caps Koruması”, 26, 100 38 50 10
check “Uzun Yazı Koruması”, 27, 100 48 57 10
button “Ayarla”, 28, 158 8 24 10
button “Ayarla”, 29, 158 18 24 10
button “Ayarla”, 30, 158 28 24 10
button “Ayarla”, 31, 158 38 24 10
button “Ayarla”, 32, 158 48 24 10
button “EKLE”, 35, 70 130 24 10
button “SiL”, 36, 70 148 24 10
button “T.SiL”, 38, 70 160 24 10
box “Muaf Kanallar”, 37, 2 121 95 58
list 34, 4 141 64 37, size hsbar vsbar
edit “”, 33, 4 130 64 10
box “Muaf Nickler”, 39, 98 121 87 58
button “EKLE”, 42, 158 130 24 10
edit “”, 40, 100 130 56 10
list 41, 100 141 56 37, size hsbar vsbar
button “T.SiL”, 44, 158 160 24 10
button “SiL”, 43, 158 148 24 10
check “Clone Koruması”, 45, 4 108 50 10
button “Ayarla”, 46, 70 108 24 10
text “Korumalar by Serdar”, 47, 100 68 82 9, center
text “Kayıt dosyaları : muafkanal.db , muafnick.db , badnick.db , kufur.db , reklam.db , badident.db fullname.db”, 48, 99 82 83 29, center
button “Kaydet / Kapat”, 49, 2 180 183 11, ok
}
on *:start: {
if !$isfile(muafkanal.db) { .write muafkanal.db }
if !$isfile(muafnick.db) { .write muafnick.db }
if $isfile(badnick.db) { hmake badnick 100 | hload -i badnick badnick.db } | else { hmake badnick 100 | hsave -i badnick badnick.db }
if $isfile(kufur.db) { hmake kufur 100 | hload -i kufur kufur.db } | else { hmake kufur 100 | hsave -i kufur kufur.db }
if $isfile(reklam.db) { hmake reklam 100 | hload -i reklam reklam.db } | else { hmake reklam 100 | hsave -i reklam reklam.db }
if $isfile(fullname.db) { hmake fullname 100 | hload -i fullname fullname.db } | else { hmake fullname 100 | hsave -i fullname fullname.db }
if $isfile(badident.db) { hmake badident 100 | hload -i badident badident.db } | else { hmake badident 100 | hsave -i badident badident.db }
}
on *:dialog:_prots.dialog:*:*: {
if $devent == SCLICK {
if $did == 2 && $did(2).state == 1 { set %badkor on | did -e $dname 12 }
if $did == 2 && $did(2).state == 0 { set %badkor off | did -b $dname 12 }
if $did == 3 && $did(3).state == 1 { set %kkufurkor on | did -e $dname 13 }
if $did == 3 && $did(3).state == 0 { set %kkufurkor off | did -b $dname 13 }
if $did == 4 && $did(4).state == 1 { set %krekkor on | did -e $dname 14 }
if $did == 4 && $did(4).state == 0 { set %krekkor off | did -b $dname 14 }
if $did == 5 && $did(5).state == 1 { set %tekkor on | did -e $dname 15 }
if $did == 5 && $did(5).state == 0 { set %tekkor off | did -b $dname 15 }
if $did == 6 && $did(6).state == 1 { set %fldkor on | did -e $dname 16 }
if $did == 6 && $did(6).state == 0 { set %fldkor off | did -b $dname 16 }
if $did == 7 && $did(7).state == 1 { set %capskor on | did -e $dname 17 }
if $did == 7 && $did(7).state == 0 { set %capskor off | did -b $dname 17 }
if $did == 8 && $did(8).state == 1 { set %lwkor on | did -e $dname 18 }
if $did == 8 && $did(8).state == 0 { set %lwkor off | did -b $dname 18 }
if $did == 9 && $did(9).state == 1 { set %ctrlkor on | did -e $dname 19 }
if $did == 9 && $did(9).state == 0 { set %ctrlkor off | did -b $dname 19 }
if $did == 10 && $did(10).state == 1 { set %fnamekor on | did -e $dname 20 }
if $did == 10 && $did(10).state == 0 { set %fnamekor off | did -b $dname 20 }
if $did == 11 && $did(11).state == 1 { set %identkor on | did -e $dname 21 }
if $did == 11 && $did(11).state == 0 { set %identkor off | did -b $dname 21 }
if $did == 45 && $did(45).state == 1 { set %clnkor on | did -e $dname 46 }
if $did == 45 && $did(45).state == 0 { set %clnkor off | did -b $dname 46 }
if $did == 23 && $did(23).state == 1 { set %okufurkor on | did -e $dname 28 }
if $did == 23 && $did(23).state == 0 { set %okufurkor off | did -b $dname 28 }
if $did == 24 && $did(24).state == 1 { set %orekkor on | did -e $dname 29 }
if $did == 24 && $did(24).state == 0 { set %orekkor off | did -b $dname 29 }
if $did == 25 && $did(25).state == 1 { set %ofldkor on | did -e $dname 30 }
if $did == 25 && $did(25).state == 0 { set %ofldkor off | did -b $dname 30 }
if $did == 26 && $did(26).state == 1 { set %ocapskor on | did -e $dname 31 }
if $did == 26 && $did(26).state == 0 { set %ocapskor off | did -b $dname 31 }
if $did == 27 && $did(27).state == 1 { set %olwkor on | did -e $dname 32 }
if $did == 27 && $did(27).state == 0 { set %olwkor off | did -b $dname 32 }
if $did == 12 { dialog -m badekle badekle }
if $did == 13 { dialog -m kufekle kufekle }
if $did == 14 { dialog -m rekekle rekekle }
if $did == 15 { dialog -m tekrar tekrar }
if $did == 16 { dialog -m flood flood }
if $did == 17 { dialog -m caps caps }
if $did == 18 { dialog -m lwd lwd }
if $did == 20 { dialog -m fnameekle fnameekle }
if $did == 21 { dialog -m badidentekle badidentekle }
if $did == 46 { dialog -m cln cln }
if $did == 28 { dialog -m kufekle kufekle }
if $did == 29 { dialog -m rekekle rekekle }
if $did == 30 { dialog -m flood flood }
if $did == 31 { dialog -m caps caps }
if $did == 32 { dialog -m lwd lwd }
if $did == 35 {
if $did(33).text == $null { $iif($input(Herhangi bir kanal girmediniz.,ohud,Hata) == $true,halt,return) }
else {
var %muafk = $did(33).text
did -a $dname 34 %muafk
write muafkanal.db %muafk
did -r $dname 33
}
}
if $did == 36 {
var %; = $did($dname,34).sel,%/ = $did($dname,34).seltext
if !%; { $iif($input(Listeden bir kanal seçmelisiniz.,ohud,Hata) == $true,halt,return) }
else {
.write -ds $+ %/ muafkanal.db
did -d $dname 34 %;
}
}
if $did == 38 {
did -r $dname 34
.write -c muafkanal.db
}
}
if $did == 42 {
if $did(40).text == $null { $iif($input(Herhangi bir nick girmediniz.,ohud,Hata) == $true,halt,return) }
else {
var %muafn = $did(40).text
did -a $dname 41 %muafn
write muafnick.db %muafn
did -r $dname 40
}
}
if $did == 43 {
var %; = $did($dname,41).sel,%/ = $did($dname,41).seltext
if !%; { $iif($input(Listeden bir nick seçmelisiniz.,ohud,Hata) == $true,halt,return) }
else {
.write -ds $+ %/ muafnick.db
did -d $dname 41 %;
}
}
if $did == 44 {
did -r $dname 41
.write -c muafnick.db
}
if $devent == INIT {
if %badkor == on { did -c $dname 2 } | else { did -b $dname 12 }
if %kkufurkor == on { did -c $dname 3 } | else { did -b $dname 13 }
if %krekkor == on { did -c $dname 4 } | else { did -b $dname 14 }
if %tekkor == on { did -c $dname 5 } | else { did -b $dname 15 }
if %fldkor == on { did -c $dname 6 } | else { did -b $dname 16 }
if %capskor == on { did -c $dname 7 } | else { did -b $dname 17 }
if %lwkor == on { did -c $dname 8 } | else { did -b $dname 18 }
if %ctrlkor == on { did -c $dname 9 } | else { did -b $dname 19 }
if %fnamekor == on { did -c $dname 10 } | else { did -b $dname 20 }
if %identkor == on { did -c $dname 11 } | else { did -b $dname 21 }
if %clnkor == on { did -c $dname 45 } | else { did -b $dname 46 }
if %okufurkor == on { did -c $dname 23 } | else { did -b $dname 28 }
if %orekkor == on { did -c $dname 24 } | else { did -b $dname 29 }
if %ofldkor == on { did -c $dname 25 } | else { did -b $dname 30 }
if %ocapskor == on { did -c $dname 26 } | else { did -b $dname 31 }
if %olwkor == on { did -c $dname 27 } | else { did -b $dname 32 }
filter -fo muafkanal.db $dname 34 *
filter -fo muafnick.db $dname 41 *
}
}
alias prots { dialog -m _prots.dialog _prots.dialog }
on !*:JOIN:#: {
if $read(muafkanal.db,w,#) || $read(muafnick.db,w,$nick) { halt }
if ($me isop #) || o isin $usermode {
var %nick = $nick,%ident = $remove($ial($nick).user,~)
;BADNICK
if $hfind(badnick,%nick,1,W).data && %badkor == on {
.mode # +b %nick
.kick # %nick Badnick!
}
;BADIDENT
if $hfind(badident,%ident,1,W).data && %identkor == on {
.mode # +b %nick
.kick # %nick BadIdent!
}
;CLONE
if ($ialchan($wildsite,#,0) > %clonesay) && %clonekor == on {
var %’ = $ifmatch, %. | while %’ {
var %7 = $gettok($ialchan($wildsite,#,%’),1,33)
if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %’ } | else { return } }
if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) Clone! $+([,$calc(%clonesay + 1),]) | dec %~ } }
}
;FULLNAME
if %fnamekor == on { set %fnick $nick | set %fchan # | .enable #fname | who $nick }
}
}
on ^*:TEXT:*:?: {
if !$read(muafnick.db,w,$nick) {
;KUFUR
if $hfind(kufur,$1-,1,W).data && %okufurkor == on {
.echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden küfür etti.Mesaj gösterilmedi.
.closemsg $nick
halt
}
;REKLAM
if $hfind(reklam,$1-,1,W).data && %orekkor == on {
set %lreklam $1-
var %w $iif($window($nick),$nick,-a)
linesep %w
.echo $colour(info) -a $timestamp *** $qt($nick) nickli kişiden gelen mesaj reklam içerikli olduğu için gösterilmedi.
.echo $colour(info) -a $timestamp *** Mesajı görmek için buraya çift tıklayın.
linesep %w
.closemsg $nick
halt
}
;FLOOD
.hinc $+(-mu,%flds) flood $+(fld,.,$nick) 1
if (%ofldkor == on) && $hget(flood,$+(fld,.,$nick)) == %fldt {
.echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden flood yapıyor.Mesaj gösterilmedi.
.hdel -s flood $+(fld,.,$nick))
.closemsg $nick
halt
}
;UZUNYAZI
if (%olwkor == on) {
if ($len($strip($1-)) >= %lwd) {
hinc -mu20 long $+(long,.,$nick) 1
if $hget(long,$+(long,.,$nick)) == 1 {
.echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden çok uzun yazı yazdı.Mesaj gösterilmedi.
.hdel -s long $+(long,.,$nick))
.closemsg $nick
}
}
}
;CAPS
if (%ocapskor == on) {
var %e = $remove($strip($1-),$chr(32))
if ($calc($regex(%e,/[A-ZÄÖÜĞÇİ]/g)/$len(%e) * 100) >= %capsd) {
hinc -mu30 caps $+(caps,.,$nick) 1
if $hget(caps,$+(caps,.,$nick)) == 1 {
.echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden çok fazla büyük harf içeren mesaj gönderdi.Mesaj gösterilmedi.
.hdel -s caps $+(caps,.,$nick))
.closemsg $nick
}
}
}
}
}
on *:TEXT:*:#: {
if $read(muafkanal.db,w,#) || $read(muafnick.db,w,$nick) { halt }
if ($me isop #) || o isin $usermode {
;TEKRAR
.hinc $+(-mu,%kteks) repeat $+($nick,.,$1-) 1
if (%ktekkor == on) && $hget(repeat,$+($nick,.,$1-)) == %ktekt {
mode # +b $nick
kick # $nick tekrar! %kteks sn, $+ %ktekt aynı yazı
.hdel -s repeat $+($nick,.,$1-))
halt
}
;FLOOD
.hinc $+(-mu,%flds) flood $+($chan,.,$nick) 1
if (%fldkor == on) && $hget(flood,$+($chan,.,$nick)) == %fldt {
mode # +b $nick
kick # $nick flood! %flds sn, $+ %fldt
.hdel -s flood $+($chan,.,$nick))
halt
}
;CAPS
if (%capskor == on) {
var %e = $remove($strip($1-),$chr(32))
if ($calc($regex(%e,/[A-ZÄÖÜĞÇİ]/g)/$len(%e) * 100) >= %capsd) {
hinc -mu30 caps $+($chan,.,$nick) 1
if $hget(caps,$+($chan,.,$nick)) == 1 { .msg # $+(,$nick,) UYARI1 }
if $hget(caps,$+($chan,.,$nick)) == 2 { .msg # $+(,$nick,) UYARI2 }
if $hget(caps,$+($chan,.,$nick)) == 3 {
mode # +b $nick
kick # $nick Çok fazla büyük harf kullandınız!
.hdel -s caps $+($chan,.,$nick))
}
}
}
;UZUNYAZI
if (%lwkor == on) {
if ($len($strip($1-)) >= %lwd) {
hinc -mu20 long $+($chan,.,$nick) 1
if $hget(long,$+($chan,.,$nick)) == 1 { .msg # $+(,$nick,) UYARI1 }
if $hget(long,$+($chan,.,$nick)) == 2 { .msg # $+(,$nick,) UYARI2 }
if $hget(long,$+($chan,.,$nick)) == 3 {
mode # +b $nick
kick # $nick Çok fazla karakter kullandınız!
.hdel -s long $+($chan,.,$nick))
}
}
}
;CTRL
if (%ctrlkor == on) {
if ** iswm $1- || ** iswm $1- || * * iswm $1- {
hinc -mu60 ctrl $+($chan,.,$nick) 1
if $hget(ctrl,$+($chan,.,$nick)) == 1 { .msg # $nick UYARI1 }
if $hget(ctrl,$+($chan,.,$nick)) == 2 { .msg # $nick UYARI2 }
if $hget(ctrl,$+($chan,.,$nick)) == 3 {
mode # +b $nick
kick # $nick CTRL yasak!
.hdel -s ctrl $+($chan,.,$nick))
}
}
}
;KUFUR
if $hfind(kufur,$1-,1,W).data && %kkufurkor == on {
.mode # +b $nick
.kick # $nick Küfür!
}
;REKLAM
if $hfind(reklam,$1-,1,W).data && %krekkor == on {
.mode # +b $nick
.kick # $nick Reklam!
}
}
}
on ^*:HOTLINK:*:*: {
if Mesajı görmek için buraya çift tıklayın.  isin $1- {
return
}
else { halt }
}
on *:HOTLINK:*:*: {
if Mesajı görmek için buraya çift tıklayın. isin $1- {
linesep -a
.echo $colour(info) -a $timestamp *** 4Engellenen mesaj:2 %lreklam
linesep -a
}
}
on *:NICK: {
if $hfind(badnick,$newnick,1,W).data {
var %i 1
while %i <= $comchan($newnick,0) {
if $me isop $comchan($newnick,%i) {
mode $comchan($newnick,%i) +b $newnick
kick $comchan($newnick,%i) $newnick badnick!
}
inc %i
}
}
}
#fname on
raw 352:*:{
var %fname = $9
if $hfind(fullname,%fname,1,W).data {
.mode %fchan +b +fnick
.kick %fcan %fnick BadFullname!
.disable #fname
.unset %fchan %fnick
}
}
#fname end
alias ekle {
if $1 == kufur {
hadd -m kufur $r(1000,999999) $2
hsave kufur kufur.db
}
elseif $1 == reklam {
hadd -m reklam $r(1000,999999) $2
hsave reklam reklam.db
}
elseif $1 == badnick {
hadd -m badnick $r(1000,999999) $2
hsave badnick badnick.db
}
}
dialog badekle {
title “Badnick”
size -1 -1 80 34
option dbu
edit “”, 1, 2 1 50 10
button “EKLE”, 2, 53 2 25 8
edit “”, 3, 2 12 50 10
button “SiL”, 4, 53 13 25 8
button “Kapat”, 5, 2 23 77 10, ok
}
on *:dialog:badekle:*:*: {
if $devent == SCLICK {
if $did == 2 {
hadd -m badnick $r(1000,999999) $did(1).text
hsave badnick badnick.db
.echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
dialog -x badekle
}
if $did == 4 {
var %; $did(3).text
if $hfind(badnick,%;,1,W).data {
hdel badnick $ifmatch
hsave badnick badnick.db
.echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
dialog -x badekle
}
else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
}
}
}
dialog kufekle {
title “Kufur”
size -1 -1 80 34
option dbu
edit “”, 1, 2 1 50 10
button “EKLE”, 2, 53 2 25 8
edit “”, 3, 2 12 50 10
button “SiL”, 4, 53 13 25 8
button “Kapat”, 5, 2 23 77 10, ok
}
on *:dialog:kufekle:*:*: {
if $devent == SCLICK {
if $did == 2 {
hadd -m kufur $r(1000,999999) $did(1).text
hsave kufur kufur.db
.echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
dialog -x kufekle
}
if $did == 4 {
var %; $did(3).text
if $hfind(kufur,%;,1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.db
.echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
dialog -x kufekle
}
else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
}
}
}
dialog rekekle {
title “reklam”
size -1 -1 80 34
option dbu
edit “”, 1, 2 1 50 10
button “EKLE”, 2, 53 2 25 8
edit “”, 3, 2 12 50 10
button “SiL”, 4, 53 13 25 8
button “Kapat”, 5, 2 23 77 10, ok
}
on *:dialog:rekekle:*:*: {
if $devent == SCLICK {
if $did == 2 {
hadd -m reklam $r(1000,999999) $did(1).text
hsave reklam reklam.db
.echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
dialog -x rekekle
}
if $did == 4 {
var %; $did(3).text
if $hfind(reklam,%;,1,W).data {
hdel reklam $ifmatch
hsave reklam reklam.db
.echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
dialog -x rekekle
}
else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
}
}
}
dialog tekrar {
title “x”
size -1 -1 54 40
option dbu
edit “”, 1, 3 2 15 11
text “saniyede”, 2, 20 4 25 8
edit “”, 3, 3 16 15 11
text “tekrar olursa”, 4, 20 18 34 8
button “Kaydet”, 5, 2 28 50 10
}
on *:dialog:tekrar:*:*: {
if $devent == INIT {
did -a $dname 1 %kteks
did -a $dname 3 %ktekt
}
if $devent == SCLICK {
if $did == 5 {
.set %kteks $did(1).text
.set %ktekt $did(3).text
dialog -x tekrar
}
}
}
dialog flood {
title “x”
size -1 -1 54 40
option dbu
edit “”, 1, 3 2 15 11
text “saniyede”, 2, 20 4 25 8
edit “”, 3, 3 16 15 11
text “flood olursa”, 4, 20 18 34 8
button “Kaydet”, 5, 2 28 50 10
}
on *:dialog:flood:*:*: {
if $devent == INIT {
did -a $dname 1 %flds
did -a $dname 3 %fldt
}
if $devent == SCLICK {
if $did == 5 {
.set %flds $did(1).text
.set %fldt $did(3).text
dialog -x flood
}
}
}
dialog caps {
title “New Project”
size -1 -1 54 23
option dbu
edit “”, 1, 13 8 15 11
text “%”, 2, 4 9 8 8
box “Caps Oran”, 3, 1 0 52 22
button “Kaydet”, 4, 29 7 21 12
}
on *:dialog:caps:*:*: {
if $devent == INIT {
did -a $dname 1 %capsd
}
if $devent == SCLICK {
if $did == 4 {
.set %capsd $did(1).text
dialog -x caps
}
}
}
dialog lwd {
title “x”
size -1 -1 60 33
option dbu
edit “”, 1, 3 8 20 10
text “karakterden fazla yazılırsa”, 2, 25 7 31 22
box “Uzunuk”, 3, 1 0 58 32
button “Kaydet”, 4, 2 18 22 12
}
on *:dialog:lwd:*:*: {
if $devent == INIT {
did -a $dname 1 %lwd
}
if $devent == SCLICK {
if $did == 4 {
.set %lwd $did(1).text
dialog -x lwd
}
}
}
dialog fnameekle {
title “fullname”
size -1 -1 80 34
option dbu
edit “”, 1, 2 1 50 10
button “EKLE”, 2, 53 2 25 8
edit “”, 3, 2 12 50 10
button “SiL”, 4, 53 13 25 8
button “Kapat”, 5, 2 23 77 10, ok
}
on *:dialog:fnameekle:*:*: {
if $devent == SCLICK {
if $did == 2 {
hadd -m fullname $r(1000,999999) $did(1).text
hsave fullname fullname.db
.echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
dialog -x fnameekle
}
if $did == 4 {
var %; $did(3).text
if $hfind(fullname,%;,1,W).data {
hdel fullname $ifmatch
hsave fullname fullname.db
.echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
dialog -x fnameekle
}
else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
}
}
}
dialog badidentekle {
title “badident”
size -1 -1 80 34
option dbu
edit “”, 1, 2 1 50 10
button “EKLE”, 2, 53 2 25 8
edit “”, 3, 2 12 50 10
button “SiL”, 4, 53 13 25 8
button “Kapat”, 5, 2 23 77 10, ok
}
on *:dialog:badidentekle:*:*: {
if $devent == SCLICK {
if $did == 2 {
hadd -m badident $r(1000,999999) $did(1).text
hsave badident badident.db
.echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
dialog -x badidentekle
}
if $did == 4 {
var %; $did(3).text
if $hfind(badident,%;,1,W).data {
hdel badident $ifmatch
hsave badident badident.db
.echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
dialog -x badidentekle
}
else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
}
}
}
dialog cln {
title “x”
size -1 -1 54 33
option dbu
edit “”, 1, 3 8 20 10
text “clone giriÅŸinde atılsın”, 2, 25 7 26 22
box “Clone”, 3, 1 0 52 32
button “Kaydet”, 4, 2 18 20 12
}
on *:dialog:cln:*:*: {
if $devent == INIT {
did -a $dname 1 %clonesay
}
if $devent == SCLICK {
if $did == 4 {
.set %clonesay $did(1).text
dialog -x cln
}
}
}
Alt+R yaparak scriptinize ekleyin. kanal operatörlerinin işine yarayacağını düşünüyorum.
