| Lucifer | 18 Ekim 2010 20:33 |
Cevap: Yardım : Identi Belirli Usere Oto Zline ( Diyalog Halinde )
Selamlar; Vermiş olduğun koddan çıkarak birşeyler yapmaya çalıştım. Kod:
dialog genel {
title "Unique Menu"
size -1 -1 179 139
option dbu
button "Tamam", 14, 69 121 37 12, flat ok cancel
tab "Ayarlar", 20, 4 3 170 131
box "Ayarlar", 25, 7 20 162 100, flat tab 20
box "", 26, 102 25 57 87, flat tab 20
box "", 27, 17 25 57 87, flat tab 20
check "IP Kontrolu", 28, 20 31 50 10, flat flat tab 20
check "Özelleri Kapat", 29, 20 46 50 10, flat tab 20
check "Isteyeni Pingle", 30, 20 61 50 10, flat tab 20
check "Bağlantı Menüsü", 31, 20 77 50 10, flat tab 20
check "Notice Penceresi", 32, 20 93 50 10, flat tab 20
check "Ses Efektleri", 33, 105 31 50 10, flat tab 20
check "Nick Uyarıcı", 34, 105 46 50 10, flat tab 20
check "Op+Voice Teşk.", 35, 105 61 50 10, flat tab 20
check "Clone Dedectörü", 36, 105 77 50 10, flat tab 20
check "Kelime tamamla.", 37, 105 93 50 10, flat tab 20
tab "Kanal Koruması", 21
check "Tekrar Kor.", 39, 11 28 50 10, flat tab 21
check "Flood Kor.", 40, 11 38 50 10, flat tab 21
check "Küfür Kor.", 41, 11 48 50 10, flat tab 21
check "Büy. Harf Kor.", 42, 11 58 50 10, flat tab 21
check "Otomsg Kor.", 43, 11 77 50 10, flat tab 21
check "Invite Kor.", 44, 11 67 50 10, flat tab 21
check "Badnick Kor.", 45, 11 87 50 10, flat tab 21
check "Uzun Y. Kor.", 46, 11 97 50 10, flat tab 21
check "Cizgili Y. Kor.", 47, 65 28 50 10, flat tab 21
check "JoinPart Kor.", 48, 65 38 50 10, flat tab 21
check "Tel Num. Kor.", 49, 65 48 50 10, flat tab 21
check "Dcc/Virus Kor.", 50, 65 58 50 10, flat tab 21
check "Mass Kic Kor.", 51, 65 68 50 10, flat tab 21
check "Mass Ban Kor.", 52, 65 78 50 10, flat tab 21
check "Mass Op Kor.", 53, 65 88 50 10, flat tab 21
check "Mass Deop Kor.", 54, 65 97 50 10, flat tab 21
check "Banlanınca Kick", 56, 117 28 50 10, flat tab 21
check "Renkli Y. Kor.", 57, 117 38 50 10, flat tab 21
check "Kalın Y. Kor.", 58, 117 48 50 10, flat tab 21
button "Küfür Listesi", 60, 118 68 45 11, flat tab 21
button "KötüNick Listesi", 61, 119 86 45 11, flat tab 21
button "İdent Koruma", 99, 119 105 45 11, flat tab 21
box "Kanal Koruması", 38, 7 20 162 100, flat tab 21
tab "Kişisel Koruma", 22
box "", 62, 17 25 57 87, flat tab 22
box "", 63, 102 25 57 87, flat tab 22
check "Flood Koruması", 64, 20 31 50 10, flat flat tab 22
check "Küfür Koruması", 65, 20 46 50 10, flat tab 22
check "Reklam Koruması", 66, 20 61 50 10, flat tab 22
check "Notice Koruması", 67, 20 77 50 10, flat tab 22
check "Ctcp Koruması", 68, 20 93 50 10, flat tab 22
check "Kick Koruması", 69, 105 31 50 10, flat tab 22
check "Ban Koruması", 70, 105 45 50 10, flat tab 22
check "Deop Koruması", 71, 105 61 50 10, flat tab 22
check "Bandan Kaçma", 72, 105 77 50 10, flat tab 22
check "KickBan Koruması", 73, 105 94 50 10, flat tab 22
box "Kişisel Koruma", 74, 7 20 162 100, flat tab 22
tab "Diğer İşlemler", 23
button "Mp3 Player", 75, 12 29 70 12, flat tab 23
button "Auto Join", 76, 12 74 70 12, flat tab 23
button "Log Kayıtları", 77, 95 29 70 12, flat flat tab 23
button "AntiSpam Bot", 78, 12 104 70 12, flat tab 23
button "Auto Identify", 79, 12 59 70 12, flat tab 23
button "Auto Mesaj", 80, 12 89 70 12, flat tab 23
button "Away Islemleri", 82, 12 44 70 12, flat tab 23
button "Programlar", 83, 95 44 70 12, flat tab 23
button "Lag Gösterici", 86, 95 59 70 12, flat tab 23
button "Ircop Taraması", 87, 95 74 70 12, flat tab 23
button "Arama Motoru", 88, 95 89 70 12, flat tab 23
button "Yazı Tipi", 89, 95 104 70 12, flat tab 23
box "Ekstra", 85, 7 20 162 99, flat tab 23
}
on 1:dialog:genel:sclick:*:{
if ($did == 87 ) { .opendl c ircop 260 190 489 336 }
if ($did == 86 ) { .lag }
if ($did == 83 ) { .opendl a prog 260 190 280 400 }
if ($did == 78 ) { .opendl j asb 260 190 380 302 }
if ($did == 80 ) { opendl i automsg 260 190 300 160 }
if ($did == 79 ) { .opendl e autoid 260 190 260 300 }
if ($did == 76 ) { .opendl h auto.chanjoin 260 190 292 216 }
if ($did == 82 ) { .opendl e awayset 260 190 333 151 }
if ($did == 77 ) { .opendl k logsys 260 190 272 300 }
if ($did == 75 ) { opendl d Uniquemp3s 260 190 470 255 }
if ($did == 88 ) { .opendl h Webpagedial 450 190 200 240 }
if ($did == 89 ) { .opendl f yazitip 260 190 234 342 }
if ($did(39).state == 1) { .enable #tekrar } | else { .disable #tekrar }
if ($did(40).state == 1) { .enable #flood } | else { .disable #flood }
if ($did(42).state == 1) { .enable #caps } | else { .disable #caps }
if ($did(57).state == 1) { .enable #renk } | else { .disable #renk }
if ($did(58).state == 1) { .enable #bold } | else { .disable #bold }
if ($did(46).state == 1) { .enable #uzunyazi } | else { .disable #uzunyazi }
if ($did(45).state == 1) { .enable #reklam } | else { .disable #reklam }
if ($did(44).state == 1) { .enable #invite } | else { .disable #invite }
if ($did(56).state == 1) { .enable #banlama } | else { .disable #banlama }
if ($did(50).state == 1) { .enable #virus } | else { .disable #virus }
if ($did(41).state == 1) { .enable #kufur } | else { .disable #kufur }
if ($did(45).state == 1) { .enable #kotunick } | else { .disable #kotunick }
if ($did(43).state == 1) { .enable #otomesaj } | else { .disable #otomesaj }
if ($did(48).state == 1) { .enable #jpart } | else { .disable #jpart }
if ($did(47).state == 1) { .enable #cizgili } | else { .disable #cizgili }
if ($did(49).state == 1) { .enable #telefonpro } | else { .disable #telefonpro }
if ($did(51).state == 1) { .enable #masskick } | else { .disable #masskick }
if ($did(52).state == 1) { .enable #massban } | else { .disable #massban }
if ($did(53).state == 1) { .enable #massop } | else { .disable #massop }
if ($did(54).state == 1) { .enable #massdeop } | else { .disable #massdeop }
if ($did == 60 ) { .dialog -m swear swear }
if ($did == 61 ) { .kotunicklist }
if ($did == 99 ) { .shitconf }
if ($did(64).state == 1) { .enable #ozelflood } | else { .disable #ozelflood }
if ($did(65).state == 1) { .enable #ozelekufur } | else { .disable #ozelekufur }
if ($did(66).state == 1) { .enable #inviter } | else { .disable #inviter }
if ($did(67).state == 1) { .enable #ozelnotice } | else { .disable #ozelnotice }
if ($did(68).state == 1) { .enable #ctcp } | else { .disable #ctcp }
if ($did(73).state == 1) { .enable #ozelmesaj } | else { .disable #ozelmesaj }
if ($did(72).state == 1) { .enable #bankac } | else { .disable #bankac }
if ($did(71).state == 1) { .enable #pdeop } | else { .disable #pdeop }
if ($did(70).state == 1) { .enable #pban } | else { .disable #pban }
if ($did(69).state == 1) { .enable #pkick } | else { .disable #pkick }
}
on 1:dialog:genel:init:0:{
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle 60,61,75,76,77,78,79,80,82,83,86,87,88,89 staticedge
mdx SetFont 60,61,75,76,77,78,79,80,82,83,86,87,88,89 tahoma
mdx SetFont 17 700 tahoma
mdx SetFont 75 700 tahoma
mdx SetFont 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 14 550 arial
}
if ($group(#tekrar) == on) { did -c genel 39 }
if ($group(#flood) == on) { did -c genel 40 }
if ($group(#caps) == on) { did -c genel 42 }
if ($group(#renk) == on) { did -c genel 57 }
if ($group(#bold) == on) { did -c genel 58 }
if ($group(#uzunyazi) == on) { did -c genel 46 }
if ($group(#reklam) == on) { did -c genel 45 }
if ($group(#invite) == on) { did -c genel 44 }
if ($group(#banlama) == on) { did -c genel 56 }
if ($group(#virus) == on) { did -c genel 50 }
if ($group(#kufur) == on) { did -c genel 41 }
if ($group(#kotunick) == on) { did -c genel 45 }
if ($group(#otomesaj) == on) { did -c genel 43 }
if ($group(#jpart) == on) { did -c genel 48 }
if ($group(#cizgili) == on) { did -c genel 47 }
if ($group(#telefonpro) == on) { did -c genel 49 }
if ($group(#masskick) == on) { did -c genel 51 }
if ($group(#massban) == on) { did -c genel 52 }
if ($group(#massop) == on) { did -c genel 53 }
if ($group(#massdeop) == on) { did -c genel 54 }
if ($group(#ozelflood) == on) { did -c genel 64 }
if ($group(#ozelekufur) == on) { did -c genel 65 }
if ($group(#inviter) == on) { did -c genel 66 }
if ($group(#ozelnotice) == on) { did -c genel 67 }
if ($group(#ctcp) == on) { did -c genel 68 }
if ($group(#ozelmesaj) == on) { did -c genel 73 }
if ($group(#bankac) == on) { did -c genel 72 }
if ($group(#pdeop) == on) { did -c genel 71 }
if ($group(#pban) == on) { did -c genel 70 }
if ($group(#pkick) == on) { did -c genel 69 }
}
alias mdx_fullpath { return $+(",System\DLL\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias mdxinit {
dll $mdx_fullpath SetMircVersion $version
dll $mdx_fullpath MarkDialog $dname
}
Buda Kötü Nick listesi kodun.. Kod:
alias kotunicklist { if ($dialog(karalist)) { dialog -c karalist } | dialog -ma karalist karalist }
dialog karalist {
title "Unique BadNick Listesi"
size -1 -1 281 294
option pixels
box "", 7, 10 4 261 280
text "", 8, 10 9 261 274
combo 1, 19 38 168 223, vsbar
button "&Ekle", 2, 196 41 61 22
button "&Sil", 3, 196 68 61 22
button "&Tamam", 4, 196 231 61 27, ok
check "Korumayı Aktif Et", 5, 19 263 110 18, disable
text "Kötü Nick Ekleme", 6, 32 17 115 16, disable center
}
on *:dialog:karalist:*:*: {
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle 1,2,3,4 staticedge
mdx SetFont 2,3,4,5 14 550 arial
mdx SetFont 6 14 550 arial
mdx SetFont 1 14 550 arial
mdx SetColor 6 16 text $rgb(255,030,010)
mdx SetColor text $rgb(010,050,255)
.karalist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | karalist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | karalist.init } }
if ($did == 5) {
if ($did(5).state == 1) { writeini " $+ $mircini $+ " karalist karalist on }
if ($did(5).state == 0) { writeini " $+ $mircini $+ " karalist karalist off }
}
}
}
alias karalist.init {
did -r karalist 1
if ($readini " $+ $mircini $+ " karalist karalist == on) { did -c karalist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 10) { did -a karalist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
alias kotunickbans { .mode $chan +b $nick | .kick # $nick 12Bad14 & 12Kötü Nick 3Kullandığınızdan 12 $+ $chan 3 Kanalına Girişiniz Süresiz Yasaklanmıştır! 4,1 Unique Script }
#kotunick off
on 10:join:#: {
if ($readini " $+ $mircini $+ " karalist karalist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
kotunickbans $nick
}
}
}
Buda en son olarak, istemiş olduğun GZLİNE ident koruması. Kod:
on 8:join:#:{ if $nick ison #Admin { halt } } | { .gzline $nick 4Açıklama: 1Lutfen Nickinizi Degistiriniz! } }
alias shitconf if $dialog(Shitlist) == $null dialog -m shitlist shitlist
dialog shitlist {
title "BadNick\İdent Koruma"
size -1 -1 200 265
button "Tamam", 1, 110 200 70 20,ok
list 2, 10 20 180 135, sort
box "Kotu Nick", 3, 5 5 190 145
edit "*", 4, 10 165 180 20, autohs
box "Eklenecek Nick'i Girin", 5, 5 150 190 45
button "Ekle", 6, 20 200 70 20
box "Not:", 7, 5 225 190 35
text "Nick Silmek İcin Nick'e Cift Tiklayin", 8, 25 240 180 45
}
alias shitsetup if $dialog(shitlist) == $null dialog -m shitlist shitlist
on *:dialog:shitlist:dclick:2:{ .ruser 8 $did(2).seltext | did -d shitlist 2 $did(2).sel }
on *:dialog:shitlist:sclick:6:{ if ($did(4) != $null) { did -a shitlist 2 $did(4) | .auser 8 $did(4) | did -fr shitlist 4 } }
on *:dialog:shitlist:init:*:{
if ($ulist(*,8,0) != $null) {
set %cnt.shit 0
while (%cnt.shit < $ulist(*,8,0)) {
inc %cnt.shit 1
did -a shitlist 2 $ulist(*,8,%cnt.shit)
}
unset %cnt.shit
}
}
Remotene eklediğinde, yeni bir sayfaya işini görecektir. Diğerleriyle bunların yerlerini değiştirerek.
Normalde en son verdiğim, badnick\ident korumasıdır. Sen istemediğin Nick veya identleri açılan yere yazdığında, işleme girecek ve GZLİNE atacaktır.
Hoşça forumlar.. |
