Seçtiğim 10 Kişiyi Atmak... - Sayfa 3 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

el33t · 22 Ocak 2005, 12:33

Evil'e atfen.

Alıntı:

eheh onu Denemisdim AntalyaTeam. calismior o bazi yerlerde yanlislik yapmisdi $iif yazmisdi mesela onlari felanda duzenledim ama olmadi.eXtreme'den almayi denicem. zamaninda az kullanmamisdim

Evil AntalyaTeam'in sana verdiği adreste benim yazdığım kod var.
Ben, AntalyaTeam, ve o scripti isteyen kişi için o kod çalışıyor, senin için neden çalışmadığını anlamadım. Kestirip atmak yerine çalışmaması üzerine somut sebebler söylersen daha mantıklı olmaz mı? $iif yazmıştı mesela onları felanda düzenledim demişsin $iif'de ne gibi bi yanlışlık var anlamadım?
mIRC'de $iif diye bir parametre var, kullanımı ise şöyle
Örneğin
//echo $iif($me isop #el33t,#el33t kanalında opsun,#el33t kanalında op değilsin)
$iif(a,1,2)
a daki durum doğruysa 1'deki durumu alıyor, doğru değilse 2'de durumu alıyor.

Umarım anlamışsındır.

eviL · 22 Ocak 2005, 13:53

* zuhaha Kullanıcı listesine eklendi
*** eviL mode değiştirdi:+b zuhaha!*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

*** zuhaha eviL Tarafından Kanaldan Atıldı (Shit listemdesin.)

*** Tekrar Girilmeye Çalışılıyor...
*** Kanala Tekrar Giriliyor #abc
*** Topic '.'
*** eviL Tarafından Tue Nov 02 14:07:09 tarihinde yazılmış
*** ChanServ mode değiştirdi:+oq eviL eviL

*** Ayrıldı: zuhaha (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Cycle )
*** Giriş: zuhaha (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

*** Ayrıldı: eviL (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Cycle )
*** Giriş: eviL (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
*** ChanServ mode değiştirdi:+oq eviL eviL

*** eviL mode değiştirdi:-b zuhaha!*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

*** Giriş: zuhaha (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Sadece Kanalda Ekleme yaptigim zaman atiyor.. Somut birseyler istemisdin al sana somut veri.Calisan birseye calismiyo diyecek kadar kafayi siyirmadim.

el33t · 22 Ocak 2005, 17:41

Aşağıdaki kod ben ve diğer 3 arkadaşımda nedense "sorunsuz çalıştı"
Sende sorun nedir bilemiyorum ama olabilecek tek sorun senin lagda olmandır. Çünkü bir kanala girdiğinde op olma süren önemli. Ben 5 saniyeye ayarladım ve bende hatasız çalıştı. [ON NICK'de ekledim. Böylece biri nick değiştirdiğinde de eğer ShitListendeyse o da atılır]
İşte kod:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 dialog shitlist { 
title "ShitList" 
size -1 -1 64 109 
option dbu 
list 1, 3 4 58 80, size 
edit "", 2, 3 85 34 10, autohs 
button "Ekle", 3, 38 85 23 10, 
check "Kapalı", 4, 3 96 29 10, push 
button "Kapat", 5, 32 96 29 10, cancel 
box "", 6, 1 0 62 108 
} 
on *:dialog:shitlist:init:*:if ($group(#shitlist) = on) { did -c $dname 4 0 | did -a $dname 4 Açık } | var %x = $lines(shitlist.txt) | while %x { did -a $dname 1 $read(shitlist.txt,%x) | dec %x } 
on *:dialog:shitlist:sclick:4:{ if ($did(4).state = 1) { .enable #shitlist | did -a $dname 4 Açık } | elseif ($did(4).state = 0) { .disable #shitlist | did -a $dname 4 Kapalı } } 
on *:dialog:shitlist:sclick:1:did -ra $dname 2 $did(1).seltext | did -ra $dname 3 Çıkar 
on *:dialog:shitlist:sclick:3:{ 
if ($did(3).text = Çıkar) { if ($read(shitlist.txt, w, $did(1).seltext)) { write -dl %4$s $readn shitlist.txt | did -d $dname 1 $did(1).sel | did -r $dname 2 } } 
if ($did(3).text = Ekle) && ($did(2).text) { write shitlist.txt $did(2).text | did -a $dname 1 $did(2).text | kickcomchan $did(2).text Shit listemdesin. } 
} 
on *:dialog:shitlist:edit:2:did -ra $dname 3 Ekle 
#shitlist on
on @*:join:#:if ($read(shitlist.txt, w, $nick)) ban -k # $nick Shit listemdesin. 
raw 353:*:var %x = $numtok($4-,32) | while %x { if ($read(shitlist.txt, w, $gettok($4-,%x,32))) { .timer 1 5 kickcomchan $gettok($4-,%x,32) Shit listemdesin. } | dec %x } 
on *:nick:{ if ($read(shitlist.txt, w, $newnick)) { kickcomchan $newnick Shit listemdesin } }
#shitlist end 
alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { $iif($me isop $comchan($1,%x),ban -k $comchan($1,%x) $1 $2-) | dec %x } } } 
menu channel,status,menubar { 
Shitlist:dialog -ma shitlist shitlist 
} 
alias shitlist { if ($dialog(shitlist)) { dialog -x shitlist } | dialog -ma shitlist shitlist }

Umarım işine yarar..

erdem55 · 30 Haziran 2005, 11:26

arkadaşlar yardım edermisiniz kickcomchan $newnick Shit listemdesin bu ban şeklini yani burdaki ban şekillerini ben
cs akick $comchan($4-,%x,32) $address($4-,2) shit listemdesin
Yani cs den ban atacak şekilde düzenlemek istiyorum ama bir türlü olmuyo nerde yanlış yapıyorum acaba?

UOnur · 30 Haziran 2005, 17:38

$comchan da Tek bir Nick Belirmelisin.$address tede öyle.
Sen orda $4- demişsin.$4- 'ün anlamı : 4. Kelime ve Sonrasındaki Kelimeler.
Yani Kullandığın yerde 4. kelimeden Sonra daha kelime varsa Kod çalışmaz.
Sadece $4 dene.

eviL · 30 Haziran 2005, 17:46

16-01-2005, 12:11 ufff bayağı olmus
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

erdem55 · 30 Haziran 2005, 23:56

alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { $iif($me isop $comchan($1,%x),ban -k $comchan($1,%x) $1 $2-) | dec %x } } }
bu bir kısa yol herhalde anladığım kadarıyla arkadaş kickcomchan yazınca direkt komut buraya geliyo
raw 353:*:var %x = $numtok($4-,32) | while %x { if ($read(shitlist.txt, w, $gettok($4-,%x,32))) { .timer 1 5 kickcomchan $gettok($4-,%x,32) Shit listemdesin. } | dec %x }
işte burda kullanmış sanırım bu ikinci koda ellemeden ilk verdiğim alias kickcomchan başlayan kodu değiştirmem gerekiyor öyle dimi

alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { $iif($me isop $comchan($1,%x),cs akick $comchan($1,%x) add $address($1,2) | dec %x } } }
şeklinde yaptım ama malesef akick komutu ile ilgili yardım almama gerektiğini söyleyen bi yazı ile karşılaştım.
Acaba raw 353 le başlayan kodda da bi değişiklik yapmam mı gerekiyor?

ayrıca
raw 353:*:var %x = $numtok($4-,32) | while %x { if ($read(shitlist.txt, w, $gettok($4-,%x,32))) { .timer 1 5 cs akick $comchan($4,%x,32) $address($4,2) shit listemdesin Shit listemdesin. } | dec %x }
Too many parameters: $comchan bu hatayı verdi ama bu yöntemde op olmasamda adam banlamaya çalışcak o nedenle arkadaşın yazdığı kısayol çok güzel olmuş bende o kısa yolu kulllanmak istiyorum yani kısa yolu değiştiricem cs den ban atacak ama o zaman raw

de değişecekmi değişecekse ne yazıcam ve kısa yola cs akick $comchan add $address($1,2) mi yazcam ki bunuda denedim yine sunuç alamadım
bu şekildede * Invalid format: $iif (line 25, script2.ini)
-bu hatayı veriyo

erdem55 · 01 Temmuz 2005, 10:33

alias badnicktara {
if $me isop $1 {
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 {
inc %:bulunan 1
mode $1 +b $ulist(%:gnick,666,1)
kick $1 %:gnick Badnick kullandiginiz tespit edildi!
}
inc %s
}
echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}

raw 366:*: {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { timer 1 3 .badnicktara $comchan($1,%i) }
inc %i
}
}

on *:join:#: {
if $level($nick $+ !*@*) == 666 {
mode # +b $ulist($nick,666,1)
kick # $nick Badnick kullandiginiz tespit edildi!
}
}

on *:nick: {
if $level($newnick $+ !*@*) == 666 {
banall $newnick $ulist($newnick,666,1)
kickall $newnick Badnick kullandiginiz tespit edildi!
}
}

alias banall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
inc %i
}
}

alias kickall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
inc %i
}
}

mesela alternatif olarak bunu buldum yine forumda üzerinde biraz değişiklik yaptım. Şuanda çalışıyor.
Ama bunada cs den ban attıramıyorum.
raw 366:*: {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { timer 1 3 .badnicktara $comchan($1,%i) }
inc %i
}
}
bu kıesmı ben değiştirdim. Valla bişiler yaptım doğrumu yaptım bilmiyorum ama çalışmayan kod çalıştı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
aslı şöyleydi
raw 366:*: {
badnicktara $1
}
ama böyle olunca çalışmıyordu
2 manyaq kanalinda OP olmaniz gerekmektedir.
böyle diyordu yani badnicktara #kanal yapacana benim nicki tarıyordu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Böyle yaptım şimdi gayet iyi çöalışıyor İstediğim sadece ban kısmını cs akick # $address($1,2) blacklistesin gibisindne bişi olması yani cs den ip e ban atmasını istiyorum. Yardım pls

MaeLStrOm · 01 Temmuz 2005, 12:30

mode $1 +b $ulist(%:gnick,666,1)
kick $1 %:gnick Badnick kullandiginiz tespit edildi!
;anlamadığım ban komutunda nick $ulist(%:gnick,666,1) iken kick komutunda %:gnick.Eğer aynı anlama geliyorsa aşağıdaki kodu koyarsan calısır
cs akick $1 add $+(%:gnick,!*@*) Badnick. | cs akick $1 enforce | cs akick $1 del $+(%:gnick,!*@*)

UOnur · 01 Temmuz 2005, 16:48

$address(%:gnick,2) dene...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
sectiğim nicklere online olunca oto selam	ZenqerDenq	mIRC Scripting Sorunları	3	05 Haziran 2013 15:38
Tek Yöne Seçtiğim Tüm Yollar	YapraK	Resimli Şiirler	0	20 Haziran 2012 16:41
Uyuşturucu aldı, 1 kişiyi öldürdü, 1 kişiyi yaraladı	Cemalizim	Haber Arşivi	0	12 Ağustos 2008 00:51
Seçtiğim Kişilere Mesaj Atmak...	Alper	mIRC Scripting Sorunları	9	23 Temmuz 2005 18:00

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

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.