| ExceptioN | 10 Nisan 2011 18:02 |
Korumalar Kayıt Sorunu
S.a arkadaslar Elimde Kişisel ve kanal koruma dialogu var ancak bir sorun var
mesela bazı korumaları aktif ediyorum kaydet ve çık dedikten sonra tekrar açtığımda yaptığım değişiklikler yok oluyor eski halini alıyor
Yaptığım değişiklikleri nasıl kayıt ederim
Kodu inecelermisiniz Kod:
alias mdx { return $dll(dll/mdx.dll,$1,$2-) }
alias mdxdll { return $dll(dll/mdx.dll,$1,$2-) }
alias rebar { dll dll/rebar.dll $$1- }
alias bars { return dll/bars.mdx }
alias ctl { return dll/ctl_gen.mdx }
alias views { return dll/views.mdx }
dialog -m _prots.dialog _prots.dialog
dialog _prots.dialog {
title "Mirc Script Security System "
size -1 -1 383 226
option dbu
check "Tekrar Koruması", 5, 16 98 50 10
check "Flood Koruması", 6, 16 108 50 10
check "Caps Koruması", 7, 116 69 50 10
check "Uzun Yazı Koruması", 8, 116 79 60 10
check "Kontrol Kodu Koruması", 9, 116 89 67 10
check "Badnick Koruması", 2, 16 68 54 10
check "Küfür Koruması", 3, 16 78 50 10
check "Reklam Koruması", 4, 16 88 54 10
box "Kanal Korumaları", 1, 11 61 202 146
button "Ayarla", 12, 82 68 24 10
button "Ayarla", 13, 82 78 24 10
button "Ayarla", 14, 82 88 24 10
button "Ayarla", 15, 82 98 24 10
button "Ayarla", 16, 82 108 24 10
button "Ayarla", 17, 182 69 24 10
button "Ayarla", 18, 182 79 24 10
button "Ayarla", 19, 182 89 24 10
box "Kişisel Korumalar", 22, 215 61 157 146
check "Küfür Koruması", 23, 227 70 50 10
check "Reklam Koruması", 24, 227 80 53 10
check "Fullname Koruması", 10, 116 99 55 10
check "Ident Koruması", 11, 116 109 50 10
button "Ayarla", 20, 182 99 24 10
button "Ayarla", 21, 182 109 24 10
check "Flood Koruması", 25, 227 90 50 10
check "Caps Koruması", 26, 227 100 50 10
check "Uzun Yazı Koruması", 27, 16 120 57 10
button "Ayarla", 28, 285 70 24 10
button "Ayarla", 29, 285 80 24 10
button "Ayarla", 30, 285 90 24 10
button "Ayarla", 31, 285 100 24 10
button "Ayarla", 32, 82 118 24 10
button "EKLE", 35, 173 141 24 10
button "SiL", 36, 173 157 24 10
button "T.SiL", 38, 173 173 24 10
box "Muaf Kanallar", 37, 16 131 191 66
list 34, 20 154 149 37, size hsbar vsbar
edit "", 33, 21 141 147 10
box "Muaf Nickler", 39, 219 130 143 58
button "EKLE", 42, 335 139 24 10
edit "", 40, 228 139 105 10
list 41, 228 150 106 37, size hsbar vsbar
button "T.SiL", 44, 335 169 24 10
button "SiL", 43, 335 156 24 10
check "Clone Koruması", 45, 116 119 50 10
button "Ayarla", 46, 182 119 24 10
button "Kaydet / Kapat", 49, 102 211 183 11, ok
icon 47, 14 4 351 53, Resim/koruma.jpg, 0, noborder
}
on *:dialog:_prots.dialog:init:0: {
if $devent == init {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle 1
mdx SetDialog [ $dname ] bgcolor $rgb(237,248,252)
mdx SetDialog bgcolor $rgb(255,255,255)
mdx SetControlMDX $dname 1 toolbar wrap arrows nodivider noheader > $bars
mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
mdx SetColor 1 background [ $rgb(237,248,252) ]
mdx SetColor 2,3 textbg [ $rgb(237,248,252) ]
mdx SetColor 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 background [ $rgb(237,248,252) ]
mdx SetColor $dname 27,23,24,10,11,37 text $rgb(237,248,252)
mdx SetColor $dname 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 text $rgb(237,248,252)
mdx SetFont $dname 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 Tahoma
mdx SetFont $dname 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 12 1300 Tahoma
}
}
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
}
}
}
|
