03 Aralık 2008, 15:24 | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Kodeyi birbaşka kodeye çevirme. dialog kufur { title "Küfür Koruması [ NaTSuKa ]" size -1 -1 138 186 option dbu edit "", 1, 7 10 61 10 list 2, 7 22 60 50, size button "Ekle", 3, 7 74 27 12, flat button "Sil", 4, 39 74 27 12, flat check "Opları (@)", 5, 85 21 41 10, flat check "Voiceler (@)", 6, 85 10 42 10, flat combo 7, 7 102 52 51, size button "Ekle", 8, 7 154 24 9, flat button "Sil", 9, 35 154 23 9, flat box "Küfür listesi", 13, 3 2 71 88 box "Ayrılan Nickler", 14, 3 92 63 76 box "Ayrılan Kanallar", 15, 73 92 62 76 box "Ayır", 16, 78 2 56 33 button "Sil", 10, 106 154 23 9, flat button "Ekle", 11, 78 154 24 9, flat combo 12, 78 102 52 51, size box "İşlemler", 17, 78 37 56 53 radio "Opersem Kline", 18, 83 47 47 10, flat radio "Opersem Kill", 19, 83 57 47 10, flat radio "Opsam Kick", 20, 83 67 47 10, flat check "Banla", 21, 83 77 27 10, flat button "Kapat", 22, 97 171 37 12, flat ok } alias kufur { /dialog -m kufur kufur } on *:dialog:kufur:init:*: { if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt } if (%knickler) .didtok $dname 7 32 $ifmatch if (%kufkanal) .didtok $dname 12 32 $ifmatch if (%klineat) { .did -c $dname 18 } if (%killat) { .did -c $dname 19 } if (%kickat) { .did -c $dname 20 } if (%banla) { .did -c $dname 21 } if (%oplar) { .did -c $dname 5 } if (%vlar) { .did -c $dname 6 } } on *:dialog:kufur:sclick:*: { if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } } if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } } if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } } if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } } if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 } if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel } if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } } if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } } if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } } if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } } if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } } if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } } } on *:text:*:#: { if $istok(%kufkanal,#,32) == $true { halt } if $istok(%knickler,$nick,32) == $true { halt } if ($nick isop #) && (%oplar == on) { return } if ($nick isvo #) && (%vlar == on) { return } korukufurden $1- } alias korukufurden { var %HR $strip($1-) , %_: $lines(kufur.txt) while (%_ Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. { if $read(kufur.txt,%_ Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. iswm %HR iswm %HR { if (%banla == on) { .mode $chan +b $wildsite } if (%klineat == on) { .kline $nick Lutfen kufur etmeyin } if (%killat == on) { .kill $nick Lutfen kufur etmeyin } if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin } return } dec %_: } } Bu kodeyi badnick kodesine çevirme imkanımız var mı ? Bu kodeden " Ayır, Opersem Kline, Opersem Kill " gibi seçeneklerinde çıkarabilirseniz çok iyi olur. Onların yerine OP oldugumda tarama yapmasını ayrılan kanal ve ayrılan nicklerdekini es geçmesini ve nick değiştiğinde badnickse ayrılan kanal ve ayrılan nicklerinden biri degilse atmasını istiyorum. Bu pc`nin kasılmasına neden olmaz dimi.? Yardımlarınız için çok teşekkürler... İyi forumlar. | |
|
03 Aralık 2008, 19:36 | #2 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: Kodeyi birbaşka kodeye çevirme. Meraklıuser Bu Cod'u Badnick Korumasına Cevirmek Yerine Yeniden Bir Cod yazmak Biraz daha Mantıklı Geliyor. Bu Code'yi Başka Bir Code'ye Cevirirken Yani Codları Değişirken Bazı Sorunlarla Karşılaşılabilir. |
|
Etiketler |
birbaşka, cevirme, kodeye, kodeyi, mirc download, mirc indir |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
.mrc .tcl cevirme | skylord | mIRC Scripting Sorunları | 8 | 09 Nisan 2010 20:33 |
Şu kodeye bakabilirmisiniz LÜTFEN ? | MerakLıuSer | mIRC Scripting Sorunları | 5 | 13 Kasım 2008 19:29 |