Ana Sayfa  Sohbet  Şarkı Sözleri  Sağlık  Fıkralar  Arama İletişim

Menü

 Ana Sayfa
   Sohbet
 Buluşma Noktası
 Chat Siteleri
 Cr Komutları
 Eggdrop
 Genel Odalar
 IRC Dökümanları
 Seo işleri
 Site Aracları
 Sohbet
 Sohbet Kanalları
 Sohbet Kuralları
 Sohbet Odaları
 Sohbet Siteleri
 Unreal Komutları
 Yaş Grupları
 İnternet Haberleri
 Şehir Odaları
  İletişim

 Kotu Nick Koruma

RUMUZ:
 

Nick yazip Seviyeli Sohbet 'Baglan' a tiklayin Betenabe.Com

Okunma

113

alias ldr { dialog -m ldr ldr }
dialog ldr {
title " BadNick Korumasi"
size -1 -1 192 138
option dbu
box "", 1, 4 7 184 117
box "", 2, 0 3 192 125
list 3, 35 38 59 50, size vsbar
edit "", 4, 35 24 59 12, return autohs autovs
edit " Kanallar", 5, 50 13 28 10, read
list 6, 127 38 59 50, size vsbar
edit "", 7, 127 24 59 12, return autohs autovs
edit " Nickler", 8, 142 13 28 10, read
button "Ekle", 9, 8 25 25 10
button "Çıkart", 10, 8 40 25 10
button "Ekle", 11, 100 25 25 10
button "Çıkart", 12, 100 39 25 10
check "Check Box", 13, 23 101 8 10
edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler giris yaparsa voice alır..", 14, 35 90 59 31, read multi
check "Check Box", 15, 115 100 8 10
edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler girerse kanaldan atılır", 16, 127 89 59 30, read multi
button "Kapat", 17, 163 128 29 10, ok
}

on *:dialog:ldr:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 9) {
if ($istok(%j,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%j,$did(4),32) == $false) { set %j $addtok(%j,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 10) {
if ($istok(%j,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%j,$did(4),32) == $true) { set %j $remtok(%j,$did(4),32) | did -d ldr 3 $did(3).sel }
did -r $dname 4
}
if ($did == 17) {
if ($did(13).state == 1) { .enable #vle } | else { .disable #vle }
if ($did(15).state == 1) { .enable #at } | else { .disable #at }
}
if ($did == 6) { did -ra $dname 7 $did(6).seltext }
if ($did == 11) {
if ($istok(%n,$did(7),32) == $true) { halt }
if ($did(7) == $null) { halt }
if ($istok(%n,$did(7),32) == $false) { set %n $addtok(%n,$did(7),32) | did -a $dname 6 $did(7) }
did -r $dname 7
}
if ($did == 12) {
if ($istok(%n,$did(7),32) == $false) && ($did(7) != $null) { halt }
if ($did(7) == $null) { halt }
if ($istok(%n,$did(7),32) == $true) { set %n $remtok(%n,$did(7),32) | did -d ldr 6 $did(6).sel }
did -r $dname 7
}
}
if ($devent == init) {
var %j.e = 1
var %j.d = $numtok(%j,32)
while (%j.e <= %j.d) { did -a $dname 3 $gettok(%j,%j.e,32) | inc %j.e }
}
if ($devent == init) {
var %n.e = 1
var %n.d = $numtok(%n,32)
while (%n.e <= %n.d) { did -a $dname 6 $gettok(%n,%n.e,32) | inc %n.e }
if ($group(#vle) == on) { did -c $dname 13 } | if ($group(#vle) == off) { did -u $dname 13 }
if ($group(#at) == on) { did -c $dname 15 } | if ($group(#at) == off) { did -u $dname 15 }
}
}

#vle off
on *:join:#: {
if $me isop %j {
if # == %j {
if $nick == %n {
mode %j +v %n
}
}
}
}
#vle end

#at on
on *:join:#: {
if $me isop %j {
if # == %j {
if $nick == %n {
mode %j +b $wildsite
kick %j %n 0,5« Kickban » 0,4 ? ? # ? ? Kanalına ? ? $nick Nick'i ile giriş Yapamazsınız ( Düşman Listemdesin ) ? ?
}
}
}
}
#at end
RUMUZ:
 

Nick yazip Seviyeli Sohbet 'Baglan' a tiklayin Betenabe.Com


  Yorumlar

 
Alaca sohbet odaları Alaca chat kanalları


Sütçüler Isparta sohbet kanalları chat siteleri


ücretsiz chat siteleri


Balıkesir ilinin ilçeleri Sohbet chat Balıkesir


Havsa sohbet kanalları Havsa chat siteleri Havsa


sohbet chat


trsohbet Sohbet Chat


Sohbetci Sohbet Chat


Mynet Sohbet Chat


Düzce Sohbet Chat


Copyright © 2008 Tüm Hakları Saklıdır SovmeN

Web Stats