Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  vaybe sohbet

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

Yeni Konu aç Konu Kapatılmıştır
 
LinkBack Seçenekler Arama Stil
Alt 18 Ekim 2010, 15:12   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yardım : Identi Belirli Usere Oto Zline ( Diyalog Halinde )



Merhana IF üyeleri. Bir kod gerek duyuyorum .

Örnek : Ahmet
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kendi mircimde ben bu "Deneme" identini Bad List diyaloğum gibi identi eklicem ve eklediğim zaman otomatik serverdan zline atıcam.

Mircimdeki Kanal Koruması Diyaloğumun Kodlarını Size veriyorum. Buna İdent Koruması Buton ve Diyaloğum eklenicek.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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
  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(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
}


Bad Nick List Diyaloğum Da Şöyle :
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 on
on 10:join:#: {
  if ($readini " $+ $mircini $+ " karalist karalist == on) { 
    if (($me isop $chan) || ($me ishelp $chan)) { 
      kotunickbans $nick
    }
  } 
}

Buda Görüntüsü.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kanal kontrol paneLinde . İşaretleyebileceğim ßir ident Koruması Ve de Bad Nick diyaloğum gb identi koruması diyaloğu lazım .

Hepinize Kolay Gelsin.

 

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan
Alt 18 Ekim 2010, 20:33   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yardım : Identi Belirli Usere Oto Zline ( Diyalog Halinde )



Selamlar; Vermiş olduğun koddan çıkarak birşeyler yapmaya çalıştım.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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..

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 

Alt 19 Ekim 2010, 04:07   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yardım : Identi Belirli Usere Oto Zline ( Diyalog Halinde )



A.Selam Lucifer . Ellerine sağlık remote işimi gördü. Buna Ek olarak identi korumamızı ON-OFF konumuna getirmek için benim kanal koruma diyaloğumda bad nick listesini işaretlediğim gibi ek özellik koyma imkanımı varmıdır.

if ($group(#ident koruma) == on) { did -c genel ?? }

 

Alt 07 Ağustos 2013, 13:14   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yardım : Identi Belirli Usere Oto Zline ( Diyalog Halinde )



Aynı Diyalog üzerinde Kötü İdent 'e Ban

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 8:join:#:{ if $nick ison #Admin { halt } } | { .mode $chan +b $nick | .kick # $nick  12Bad } }
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 
  }
 

Alt 07 Ağustos 2013, 13:31   #5
Deep
Misafir
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Yardım : Identi Belirli Usere Oto Zline ( Diyalog Halinde )



konu güncelliğini yitirdiğinden dolayı kilit.

 

Konu Kapatılmıştır

Etiketler
belirli, diyalog, halinde, identi, oto, usere, zline

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Elektrik çarpması halinde yapılacak ilk yardım nedir? Violent İlk Yardım 0 15 Mayıs 2013 19:52
Belirli Idenlere zLine AtiLinca UnzLine Yapma POSOFxBELA mIRC Scripting Sorunları 6 03 Şubat 2011 22:51
jawa identi ile 6667-7000 girişine zline ufulli1 Unreal IRCd 15 16 Kasım 2010 04:04
belirli bir url adresinden txt. dosyasından irc (yardım ) AraSh34 mIRC Scripting Sorunları 2 09 Mart 2010 11:14
jawa identi ile giren 6667 & 7000 portuna zline ufulli1 mIRC Scripting Sorunları 11 14 Haziran 2009 13:44




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet sohbet teması takipçi satın al tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers pubg mobile uc
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk
Kuşadası Web Site Tasarım & Teknik Destek - KuşadasıNET