IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
7Beğeni(ler)
  • 4 Post By KiLLed
  • 3 Post By KiLLed

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 08 Ocak 2013, 20:50   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
KiLLed Zline Kodu




Zline Paneli
kendi yazdığım

Nick ident host küfür zline korumasını
sizlerle paylaşıyorum
kodun görüntüsü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

işte kod:
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu channel 
  -
  
H » Zline Koruması:/gzl
  
-
}
alias gzl dialog -m gzl gzl }
dialog Gzl {
  
title "KiLLed Zline Paneli"
  
size --1 310 210
  option dbu
  
list 5710 30 50 50size
  edit 
""210 19 50 10 return autohs
  button 
"Ekle"310 8 25 10
  button 
"Sil"435 8 25 10
  
list 570 30 50 50size
  edit 
""670 19 50 10 return autohs
  button 
"Ekle"770 8 25 10
  button 
"Sil"895 8 25 10
  
list 9130 30 50 50size
  edit 
""10130 19 50 10 return autohs
  button 
"Ekle"11130 8 25 10
  button 
"Sil"12155 8 25 10
  
list 1310 122 50 50size
  edit 
""1410 111 50 10 return autohs
  button 
"Ekle"1510 100 25 10
  button 
"Sil"1635 100 25 10
  
list 1770 122 50 50size
  edit 
""1870 111 50 10 return autohs
  button 
"Ekle"1970 100 25 10
  button 
"Sil"2095 100 25 10
  
list 21130 122 50 50size
  edit 
""22130 111 50 10 return autohs
  button 
"Ekle"23130 100 25 10
  button 
"Sil"24155 100 25 10
  
list 25190 30 50 50size
  edit 
""26190 19 50 10 return autohs
  button 
"Ekle"27190 8 25 10
  button 
"Sil"28215 8 25 10
  
list 29190 122 50 50size
  edit 
""30190 111 50 10 return autohs
  button 
"Ekle"31190 100 25 10
  button 
"Sil"32215 100 25 10
  
list 33250 30 50 50size
  edit 
""34250 19 50 10 return autohs
  button 
"Ekle"35250 8 25 10
  button 
"Sil"36275 8 25 10
  
list 37250 122 50 50size
  edit 
""38250 111 50 10 return autohs
  button 
"Ekle"39250 100 25 10
  button 
"Sil"40275 100 25 10
  check 
"Ac/Kapat"4110 80 50 10
  check 
"Ac/Kapat"4270 80 50 10
  check 
"Ac/Kapat"43130 80 50 10
  check 
"Ac/Kapat"44190 80 50 10
  button 
"Tamam Kapat"4610 190 290 12,ok
  box 
"BadNick Korumasi"475 1 60 90
  box 
"Ident Korumasi"4865 1 60 90
  box 
"Host Korumasi"49125 1 60 90
  box 
"Küfür Korumasi"50185 1 60 90
  box 
"Tüm Korumalara Muaf"51245 1 60 90
  box 
"Muaf Nick Kor."525 92 60 90
  box 
"Muaf Ident Kor."5365 92 60 90
  box 
"Muaf Host Kor."54125 92 60 90
  box 
"Muaf Kelime Kor."55185 92 60 90
  box 
"Muaf Kanal Kor."56245 92 60 90
}
on *:dialog:gzl:sclick:*:{
  if (
$did(41).state == 1) { .enable #znick } | else { .disable #znick }
  
if ($did(42).state == 1) { .enable #zident } | else { .disable #zident }
  
if ($did(43).state == 1) { .enable #zhost } | else { .disable #zhost }
  
if ($did(44).state == 1) { .enable #zkufur } | else { .disable #zkufur }
  
if ($did == 3) { did -a gzl 57 $did(2) | .auser zni $did(2) | did -r gzl 2 }
  if (
$did == 4) { .ruser zni $did(57).seltext did -d gzl 57 $did(57).sel }
  if (
$did == 7) { did -a gzl 5 $did(6) | .auser zid $did(6) | did -r gzl 6 }
  if (
$did == 8) { .ruser zid $did(5).seltext did -d gzl 5 $did(5).sel }
  if (
$did == 11) { did -a gzl 9 $did(10) | .auser zho $did(10) | did -r gzl 10 }
  if (
$did == 12) { .ruser zho $did(9).seltext did -d gzl 9 $did(9).sel }
  if (
$did == 27) { did -a gzl 25 $did(26) | .auser zku $did(26) | did -r gzl 26 }
  if (
$did == 28) { .ruser zku $did(25).seltext did -d gzl 25 $did(25).sel }
  if (
$did == 35) { did -a gzl 33 $did(34) | .auser tkm $did(34) | did -r gzl 34 }
  if (
$did == 36) { .ruser tkm $did(33).seltext did -d gzl 33 $did(33).sel }
  if (
$did == 15) { did -a gzl 13 $did(14) | .auser zmni $did(14) | did -r gzl 14 }
  if (
$did == 16) { .ruser zmni $did(13).seltext did -d gzl 13 $did(13).sel }
  if (
$did == 19) { did -a gzl 17 $did(18) | .auser zmid $did(18) | did -r gzl 18 }
  if (
$did == 20) { .ruser zmid $did(17).seltext did -d gzl 17 $did(17).sel }
  if (
$did == 23) { did -a gzl 21 $did(22) | .auser zmho $did(22) | did -r gzl 22 }
  if (
$did == 24) { .ruser zmho $did(21).seltext did -d gzl 21 $did(21).sel }
  if (
$did == 31) { did -a gzl 29 $did(30) | .auser kmke $did(30) | did -r gzl 30 }
  if (
$did == 32) { .ruser kmke $did(29).seltext did -d gzl 29 $did(29).sel }
  if (
$did == 39) { did -a gzl 37 $did(38) | .auser zmka $did(38) | did -r gzl 38 }
  if (
$did == 40) { .ruser zmka $did(37).seltext did -d gzl 37 $did(37).sel }
}
on 1:dialog:gzl:init:*: { 
  if (
$group(#znick) == on) { did -c gzl 41 } 
  
if ($group(#zident) == on) { did -c gzl 42 }
  
if ($group(#zhost) == on) { did -c gzl 43 }
  
if ($group(#zkufur) == on) { did -c gzl 44 } 
  
if $ulist(*,zni,0) > {
    var %
i 1
    
while %<= $ulist(*,zni,0) {
      .
did -a gzl 57 $ulist(*,zni,%i)
      
inc %
    
}
  }
  if 
$ulist(*,zmni,0) > {
    var %
i 1
    
while %<= $ulist(*,zmni,0) {
      .
did -a gzl 13 $ulist(*,zmni,%i)
      
inc %
    
}
  }
  if 
$ulist(*,zku,0) > {
    var %
i 1
    
while %<= $ulist(*,zku,0) {
      .
did -a gzl 25 $ulist(*,zku,%i)
      
inc %
    
}
  }
  if 
$ulist(*,zid,0) > {
    var %
i 1
    
while %<= $ulist(*,zid,0) {
      .
did -a gzl 5 $ulist(*,zid,%i)
      
inc %
    
}
  }
  if 
$ulist(*,zmid,0) > {
    var %
i 1
    
while %<= $ulist(*,zmid,0) {
      .
did -a gzl 17 $ulist(*,zmid,%i)
      
inc %
    
}
  }
  if 
$ulist(*,zho,0) > {
    var %
i 1
    
while %<= $ulist(*,zho,0) {
      .
did -a gzl 9 $ulist(*,zho,%i)
      
inc %
    
}
  }
  if 
$ulist(*,zmho,0) > {
    var %
i 1
    
while %<= $ulist(*,zmho,0) {
      .
did -a gzl 21 $ulist(*,zmho,%i)
      
inc %
    
}
  }
  if 
$ulist(*,tkm,0) > {
    var %
i 1
    
while %<= $ulist(*,tkm,0) {
      .
did -a gzl 33 $ulist(*,tkm,%i)
      
inc %
    
}
  }
  if 
$ulist(*,zmka,0) > {
    var %
i 1
    
while %<= $ulist(*,zmka,0) {
      .
did -a gzl 37 $ulist(*,zmka,%i)
      
inc %
    
}
  }
  if 
$ulist(*,kmke,0) > {
    var %
i 1
    
while %<= $ulist(*,kmke,0) {
      .
did -a gzl 29 $ulist(*,kmke,%i)
      
inc %
    
}
  }
}
#znick on
on !zni:join:#:{
  
if ($ulist($nick,zmni,0) >= 1) { return }
  if (
$ulist($chan,zmka,0) >= 1) { return }
  if (
$ulist($fulladdress,tkm,0) >= 1) { return }
  .
gzline $nick +30d 2 $nick HayırLı YoLcuLukLar...
}
on *:nick: {
  if (
$ulist($chan,zmka,0) >= 1) { return }
  if (
$ulist($fulladdress,tkm,0) >= 1) { return }
  if 
$ulist($newnick,zmni,0) > halt }
  if 
$level($newnick) == zni {
    var %
i 1
    
while %<= $comchan($newnick,0) {
      if (
$nick != $me) && $level($newnick) == zni && $level($comchan($newnick,%i)) != zmka { .gzline $newnick +30d 2  $newnick HayırLı YoLcuLukLar... }
      
inc %i
    
}
  }
}
#znick end
#zident on
on !zid:join:#: {
  
if ($ulist($chan,zmka,0) >= 1) { return }
  if (
$ulist($fulladdress,tkm,0) >= 1) { return }
  if (
$ulist($address,zmid,0) >= 1) { return }
  if 
$level($gettok($gettok($address($nick,5),2,33),1,64)) == zid {
    .
gzline $nick +30d 1,14 $nick ident Korumasına Yakalandınız
  }
}
#zident end
#zhost off
on !zho:join:#: {
  
if ($ulist($chan,zmka,0) >= 1) { return }
  if (
$ulist($fulladdress,tkm,0) >= 1) { return }
  if (
$ulist($address,zmho,0) >= 1) { return }
  if 
$level($gettok($gettok($address($nick,5),2,33),2,64)) == zho {
    .
gzline $nick +30d 1,14  $nick Host Korumasına Yakalandınız
  }
}
#zhost end
#zkufur off
on *:text:*:#:{
  
if ($ulist($chan,zmka,0) >= 1) { return }
  if (
$ulist($fulladdress,tkm,0) >= 1) { return }
  var %
i 1
  
while %<= ${
    if 
$ulist($eval($ $+ %i,2),kmke,0) > 0  { goto cyc2 }
    if 
$level($eval($ $+ %i,2)) == zku && $len($eval($ $+ %i,2)) > 1  { .gzline $nick +30d 14,14l15,1  $nick ) ( $chan KanaLın'da Küfür Ettiğiniz Tespit Edildi. 14,14l }
    :cyc2
    inc %i
  }
}
#zkufur end 


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 23 Şubat 2013, 22:04   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KiLLed Zline Kodu




Kod için teşekkürler.. Görüntedeki gibi diyalog rgb kodu yok mu Killed kardeşim?

Bir de alttaki satırda kırmızı ile belirttiğim yerler Ctrl + K renk kodu mu acaba..

if $level($eval($ $+ %i,2)) == zku && $len($eval($ $+ %i,2)) > 1 { .gzline $nick +30d 14,14l15,1 ( $nick ) ( $chan ) KanaLında Küfür Ettiğiniz Tespit Edildi. 14,14l }

 
Alıntı ile Cevapla

Alt 24 Şubat 2013, 08:59   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KiLLed Zline Kodu




[BOX="+b"]menu channel {
-
H » Zline Koruması:/gzl
-
}
alias gzl { dialog -m gzl gzl }
dialog Gzl {
title "KiLLed Zline Paneli"
size -1 -1 310 210
option dbu
list 57, 10 30 50 50, size
edit "", 2, 10 19 50 10 return autohs
button "Ekle", 3, 10 8 25 10
button "Sil", 4, 35 8 25 10
list 5, 70 30 50 50, size
edit "", 6, 70 19 50 10 return autohs
button "Ekle", 7, 70 8 25 10
button "Sil", 8, 95 8 25 10
list 9, 130 30 50 50, size
edit "", 10, 130 19 50 10 return autohs
button "Ekle", 11, 130 8 25 10
button "Sil", 12, 155 8 25 10
list 13, 10 122 50 50, size
edit "", 14, 10 111 50 10 return autohs
button "Ekle", 15, 10 100 25 10
button "Sil", 16, 35 100 25 10
list 17, 70 122 50 50, size
edit "", 18, 70 111 50 10 return autohs
button "Ekle", 19, 70 100 25 10
button "Sil", 20, 95 100 25 10
list 21, 130 122 50 50, size
edit "", 22, 130 111 50 10 return autohs
button "Ekle", 23, 130 100 25 10
button "Sil", 24, 155 100 25 10
list 25, 190 30 50 50, size
edit "", 26, 190 19 50 10 return autohs
button "Ekle", 27, 190 8 25 10
button "Sil", 28, 215 8 25 10
list 29, 190 122 50 50, size
edit "", 30, 190 111 50 10 return autohs
button "Ekle", 31, 190 100 25 10
button "Sil", 32, 215 100 25 10
list 33, 250 30 50 50, size
edit "", 34, 250 19 50 10 return autohs
button "Ekle", 35, 250 8 25 10
button "Sil", 36, 275 8 25 10
list 37, 250 122 50 50, size
edit "", 38, 250 111 50 10 return autohs
button "Ekle", 39, 250 100 25 10
button "Sil", 40, 275 100 25 10
check "Ac/Kapat", 41, 10 80 50 10
check "Ac/Kapat", 42, 70 80 50 10
check "Ac/Kapat", 43, 130 80 50 10
check "Ac/Kapat", 44, 190 80 50 10
button "Tamam Kapat", 46, 10 190 290 12,ok
box "BadNick Korumasi", 47, 5 1 60 90
box "Ident Korumasi", 48, 65 1 60 90
box "Host Korumasi", 49, 125 1 60 90
box "Küfür Korumasi", 50, 185 1 60 90
box "Tüm Korumalara Muaf", 51, 245 1 60 90
box "Muaf Nick Kor.", 52, 5 92 60 90
box "Muaf Ident Kor.", 53, 65 92 60 90
box "Muaf Host Kor.", 54, 125 92 60 90
box "Muaf Kelime Kor.", 55, 185 92 60 90
box "Muaf Kanal Kor.", 56, 245 92 60 90
}
on *:dialog:gzl:sclick:*:{
if ($did(41).state == 1) { .enable #znick } | else { .disable #znick }
if ($did(42).state == 1) { .enable #zident } | else { .disable #zident }
if ($did(43).state == 1) { .enable #zhost } | else { .disable #zhost }
if ($did(44).state == 1) { .enable #zkufur } | else { .disable #zkufur }
if ($did == 3) { did -a gzl 57 $did(2) | .auser zni $did(2) | did -r gzl 2 }
if ($did == 4) { .ruser zni $did(57).seltext | did -d gzl 57 $did(57).sel }
if ($did == 7) { did -a gzl 5 $did(6) | .auser zid $did(6) | did -r gzl 6 }
if ($did == 8) { .ruser zid $did(5).seltext | did -d gzl 5 $did(5).sel }
if ($did == 11) { did -a gzl 9 $did(10) | .auser zho $did(10) | did -r gzl 10 }
if ($did == 12) { .ruser zho $did(9).seltext | did -d gzl 9 $did(9).sel }
if ($did == 27) { did -a gzl 25 $did(26) | .auser zku $did(26) | did -r gzl 26 }
if ($did == 28) { .ruser zku $did(25).seltext | did -d gzl 25 $did(25).sel }
if ($did == 35) { did -a gzl 33 $did(34) | .auser tkm $did(34) | did -r gzl 34 }
if ($did == 36) { .ruser tkm $did(33).seltext | did -d gzl 33 $did(33).sel }
if ($did == 15) { did -a gzl 13 $did(14) | .auser zmni $did(14) | did -r gzl 14 }
if ($did == 16) { .ruser zmni $did(13).seltext | did -d gzl 13 $did(13).sel }
if ($did == 19) { did -a gzl 17 $did(18) | .auser zmid $did(18) | did -r gzl 18 }
if ($did == 20) { .ruser zmid $did(17).seltext | did -d gzl 17 $did(17).sel }
if ($did == 23) { did -a gzl 21 $did(22) | .auser zmho $did(22) | did -r gzl 22 }
if ($did == 24) { .ruser zmho $did(21).seltext | did -d gzl 21 $did(21).sel }
if ($did == 31) { did -a gzl 29 $did(30) | .auser kmke $did(30) | did -r gzl 30 }
if ($did == 32) { .ruser kmke $did(29).seltext | did -d gzl 29 $did(29).sel }
if ($did == 39) { did -a gzl 37 $did(38) | .auser zmka $did(38) | did -r gzl 38 }
if ($did == 40) { .ruser zmka $did(37).seltext | did -d gzl 37 $did(37).sel }
}
on 1:dialog:gzl:init:*: {
.KiLLedrenk
if ($group(#znick) == on) { did -c gzl 41 }
if ($group(#zident) == on) { did -c gzl 42 }
if ($group(#zhost) == on) { did -c gzl 43 }
if ($group(#zkufur) == on) { did -c gzl 44 }
if $ulist(*,zni,0) > 0 {
var %i 1
while %i <= $ulist(*,zni,0) {
.did -a gzl 57 $ulist(*,zni,%i)
inc %i
}
}
if $ulist(*,zmni,0) > 0 {
var %i 1
while %i <= $ulist(*,zmni,0) {
.did -a gzl 13 $ulist(*,zmni,%i)
inc %i
}
}
if $ulist(*,zku,0) > 0 {
var %i 1
while %i <= $ulist(*,zku,0) {
.did -a gzl 25 $ulist(*,zku,%i)
inc %i
}
}
if $ulist(*,zid,0) > 0 {
var %i 1
while %i <= $ulist(*,zid,0) {
.did -a gzl 5 $ulist(*,zid,%i)
inc %i
}
}
if $ulist(*,zmid,0) > 0 {
var %i 1
while %i <= $ulist(*,zmid,0) {
.did -a gzl 17 $ulist(*,zmid,%i)
inc %i
}
}
if $ulist(*,zho,0) > 0 {
var %i 1
while %i <= $ulist(*,zho,0) {
.did -a gzl 9 $ulist(*,zho,%i)
inc %i
}
}
if $ulist(*,zmho,0) > 0 {
var %i 1
while %i <= $ulist(*,zmho,0) {
.did -a gzl 21 $ulist(*,zmho,%i)
inc %i
}
}
if $ulist(*,tkm,0) > 0 {
var %i 1
while %i <= $ulist(*,tkm,0) {
.did -a gzl 33 $ulist(*,tkm,%i)
inc %i
}
}
if $ulist(*,zmka,0) > 0 {
var %i 1
while %i <= $ulist(*,zmka,0) {
.did -a gzl 37 $ulist(*,zmka,%i)
inc %i
}
}
if $ulist(*,kmke,0) > 0 {
var %i 1
while %i <= $ulist(*,kmke,0) {
.did -a gzl 29 $ulist(*,kmke,%i)
inc %i
}
}
}
#znick off
on !zni:join:#:{
if ($ulist($nick,zmni,0) >= 1) { return }
if ($ulist($chan,zmka,0) >= 1) { return }
if ($ulist($fulladdress,tkm,0) >= 1) { return }
.gzline $nick +30d 2 ( $nick ) HayırLı YoLcuLukLar...
}
on *:nick: {
if ($ulist($chan,zmka,0) >= 1) { return }
if ($ulist($fulladdress,tkm,0) >= 1) { return }
if $ulist($newnick,zmni,0) > 0 { halt }
if $level($newnick) == zni {
var %i 1
while %i <= $comchan($newnick,0) {
if ($nick != $me) && $level($newnick) == zni && $level($comchan($newnick,%i)) != zmka { .gzline $newnick +30d 2 ( $newnick ) HayırLı YoLcuLukLar... }
inc %i
}
}
}
#znick end
#zident off
on !zid:join:#: {
if ($ulist($chan,zmka,0) >= 1) { return }
if ($ulist($fulladdress,tkm,0) >= 1) { return }
if ($ulist($address,zmid,0) >= 1) { return }
if $level($gettok($gettok($address($nick,5),2,33),1,6 4)) == zid {
.gzline $nick +30d 1,14 ( $nick ) ident Korumasına Yakalandınız. 
}
}
#zident end
#zhost off
on !zho:join:#: {
if ($ulist($chan,zmka,0) >= 1) { return }
if ($ulist($fulladdress,tkm,0) >= 1) { return }
if ($ulist($address,zmho,0) >= 1) { return }
if $level($gettok($gettok($address($nick,5),2,33),2,6 4)) == zho {
.gzline $nick +30d 1,14 ( $nick ) Host Korumasına Yakalandınız. 
}
}
#zhost end
#zkufur off
on *:text:*:#:{
if ($ulist($chan,zmka,0) >= 1) { return }
if ($ulist($fulladdress,tkm,0) >= 1) { return }
var %i 1
while %i <= $0 {
if $ulist($eval($ $+ %i,2),kmke,0) > 0 { goto cyc2 }
if $level($eval($ $+ %i,2)) == zku && $len($eval($ $+ %i,2)) > 1 { .gzline $nick +30d 14,14l15,1  ( $nick ) ( $chan ) KanaLın'da Küfür Ettiğiniz Tespit Edildi. 14,14l }
:cyc2
inc %i
}
}
#zkufur end
[/BOX]
[BOX="+b"]
alias KiLLedrenk {
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetDialog $dname bgcolor $rgb(126,126,250)
}[/BOX]
bunu mircine ekle mavi renk kodudur
kodu yeniden veriyorum renklerle birlikte alırsın.
dialoğun init event'inin altına KiLLedrenk yazarsan tüm diyalogların aynı renk alır. yani her diyaloğun init kısmı vardır hangisinin o renk olmasını istersen ona KiLLedrenk yazman yeterli olacak.
on 1:dialog:gzl:init:*: {
KiLLedrenk
}

 
Alıntı ile Cevapla

Cevapla

Etiketler
killed, kodu, zline


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
KiLLed Script KiLLed mIRC Scripting Tanıtımları 48 18 Eylül 2014 23:33
iden/setname uyumu belirlendiğinde oto zline kodu SabotaJ_ mIRC Scripting Sorunları 3 09 Mart 2010 20:39
Kanala aynı ipten 2 den fazla nickle girenlere otomatik zline kodu AciL ! SabotaJ_ mIRC Scripting Sorunları 15 18 Aralık 2009 18:07
!zline nick Sebeb kodu lazım LoStreameR mIRC Scripting Hazır Kodlar 4 09 Kasım 2009 03:09