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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Seçtiğim 10 Kişiyi Atmak... (https://www.ircforumlari.net/mirc-scripting-sorunlari/706-sectigim-10-kisiyi-atmak.html)

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.

* 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.

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:

 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..

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?

$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.

16-01-2005, 12:11 ufff bayağı olmus :)

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

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ı:) 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:) 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

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,!*@*)

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