Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias access { dialog -ma access access }
alias team { return $dll(access\dll\mdx.dll,$1,$2-) }
dialog access {
title "Pratik Access"
size -1 -1 122 172
option dbu
text "Kanal", 1, 25 24 25 8
text "Nick", 2, 25 39 25 8
text "Seviye", 3, 25 54 25 8
edit "", 4, 58 24 50 10
edit "", 5, 58 39 50 10
edit "", 6, 58 54 50 10
box "Access Ekle", 7, 5 14 109 53
text "Nick", 9, 25 109 25 8
text "Kanal", 10, 25 94 25 8
edit "", 11, 58 94 50 10
edit "", 12, 58 109 50 10
box "Access Sil", 13, 5 84 109 41
button "Ekle", 8, 5 69 109 12
button "İptal/Çık", 14, 5 147 109 12, cancel
button "Sil", 15, 5 127 109 12
box "", 16, 4 141 111 21
icon 17, 7 20 15 13, access\icon\add.ico, 0
icon 18, 7 35 15 13, access\icon\add.ico, 0
icon 19, 7 50 15 13, access\icon\add.ico, 0
icon 20, 7 91 15 15, access\icon\del.ico, 0
icon 21, 7 106 15 15, access\icon\del.ico, 0
}
on 1:dialog:access:sclick:*:{
if ($did == 8 ) { /cs access $did(4) add $did(5) $did(6) }
if ($did == 15 ) { /cs access $did(11) del $did(12) }
}
on *:dialog:access:init:*: {
team MarkDialog $dname
team SetFont $dname 500 Arial
team SetFont $dname 1,2,3,9,10,8,15,14 20 700 Arial
team SetColor $dname 1,2,3,9,10,8,15,14 text $rgb(255,0,0)
team SetBorderStyle $dname
team SetControlMDX $dname Toolbar arrow nodivider flat list > $bars
}
menu channel,status,query,menubar {
©>Access İşlemleri
.Access İşlemleri Aç:access | .echo -a 4 Access işlemleri addonun açıldı.
.Access İşlemleri Unload:/unload -rs access\access.mrc
}
on *:load: {
echo -a 4 Access işlemleri addonunu yüklediniz.
echo -a 4 Add-on Yapımcısı :TeaM
echo -a 4 Fikir :Kan
echo -a 4 Kaldırmak için : 2/unload -rs access\access.mrc4 yazınız.
}