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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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 16 Ocak 2005 12:11

Seçtiğim 10 Kişiyi Atmak...
 
kanalda seçtiğim 10 kişiyi aynı anda nasıl atacam. Sebebini ben belirlicem. yazdim hep hata verdi.

Alience 16 Ocak 2005 12:51

altaki kodu tamamen remoteye ekleyebilirsin
Kod:

menu nicklist {
  $iif($me isop $active || $me ishop $active,Mass Operator)
  .Seçilenleri Banla : MassOperator 1
  .Seçilenleri Kickle : MassOperator 2 $input(Kick mesajınızı yazınız,e,Mass Kicker, Mass Kick.!)
  .Seçilenleri Kickle/Banla : MassOperator 3 $input(Kick mesajınızı yazınız,e,Mass Kicker/Banner, Mass Ban.!)

}
alias MassOperator { var %i = $snick($active,0) | while %i { if $1 == 1 || $1 == 3 { ban $active $snick($active,%i) 2 } | if $1 == 2 || $1 == 3 { kick $active $snick($active,%i) $2- } | dec %i 1 } }

veya MassOperator komutunu aliasese ekliyeceksen basındaki alias ı kaldırıp oreye pastele.
veya nicklist menüsünü popupsta istediğin yere eklemek istiyorsan içindekileri al nicklist popupsuna pastele $iif($me isop $active || $me ishop $active,Mass Operator) nin anlamı sen bir kanalda op veya halfop % isen menü cıkıcak

bLackStar 16 Ocak 2005 14:55

Çok daha basit bir yol,

-

Popupsa,

Seçilenleri At:/kick # $$* Atıldınız.

-
Nick listte seçili olan herkesi kickler.

eviL 16 Ocak 2005 16:47

Tesekkür ederim. ilgilenen arkadaslara. bLackStar Donjem sana :D

eviL 16 Ocak 2005 17:19

Baslik acmisken bir sey daha vardi onuda soriyim. bahau,eXretmev8.22 su scriptlerin sahip oldugu br adoon var shitlist addonu.Bu addondaki en güzel özellik kanala girdiginde shitlistende biri varsa pat pat pat atiyor. ama normal bizim shitlist adonlarimiz kanala girdiklerinde tek atiyor.ßu kanala girdigimde shitlistemdeki kisi veyahut kisileri kanala girdidigimde atabilecegim bir kod veyahut addon varmidir elinizde?

Alience 16 Ocak 2005 17:22

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

eviL 16 Ocak 2005 18:05

iyide benim sordugumla senin sordugun farkli sey. kanalda ise shitlistemdeki kisi. ben birsey yapmadan script aticak. senin verdigin kod scan lama. o var bende.bir daha oku yazdigimi :)

DefauLt 16 Ocak 2005 18:24

Asagidaki kod sen OP oldugunda o kanaldaki 666 listesinde bulunan herkesi atar.

Kod:

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:*: {
badnicktara $1
}

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
  }
}
on *:op:#: {
if $opnick == $me {
badnicktara #
}
}


eviL 17 Ocak 2005 12:02

[ 12:00:29 ] *** Şu anda #eviL kanalındasınız
eviL kanalinda OP olmaniz gerekmektedir.
[ 12:00:29 ] *** ChanServ modu değiştirdi: +oq eviL eviL
Badnickler tarandi: #eviL - 0 badnick bulundu.
kanalinda OP olmaniz gerekmektedir.

Kanala girdigimde kanalda shitlistdeki kisi var ama atmiyor. senin verdigin kod kanala girirken atior sadece. oda isime yaramiyor. Bu kod'u yazmak baya zamanimi alicak heralde.

Alience 17 Ocak 2005 12:17

senin badnicklerin leveli kac burada arkadaşın verdiği level 666 senin badnickleri 5 ise mesela 666 yı 5 yapman gerek


ayrıca
raw 366:*: {
badnicktara $1
}
yerine
on *:op:#: { if $opnick == $me { badnicktara $chan } }
yazarsan daha iyi olur.

eviL 17 Ocak 2005 12:36

Denedim onuda Alience . istedigim seye ulasamadim. kanala girdiginde atior. kanalda oldugunda atmior.

DefauLt 17 Ocak 2005 12:52

Iyi de, var o zaten.

on *:op:#: {
if $opnick == $me {
badnicktara #
}
}

666 listesindeki sadece "Nick" kayitlarini atar. IP kayitlarini vs. de atmasini istiyorsan manual bir shitlist olusturmalisin.

Alience 17 Ocak 2005 12:59

pardon opera da aşağısını göstermiyorda :). [ps. ona bir bakmam lasım]

eviL 17 Ocak 2005 13:04

DefauLt istersen sordugum seyi bir daha oku sanirim okumadan cvp yazmissin :) istedigim sey "nick" kayitlarini kanalda olduklari zamanda atsin. senin verdigin kode tarama yapiyor.olsaydi bile 300kisilik bir kanala girdigimde ve bunlardan 50.si shitlistemde ise. o taramada sunucuda kalabilmem imkansiz :). eger incelemek isteyen varsa [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] orda eXtreme script var.ondaki shitlist turundeki birseyi istiyorum. eger inceleyebilen olucaksa ben cevaplarinizi bekliyorum.

UOnur 17 Ocak 2005 15:29

sen tam tersinimi istiosun? listene bakacak eğer kanalda biri varsa atacak.bumu? yoksa başka bişimi?

eviL 17 Ocak 2005 19:07

tersi birsey degil :) kanala girdigimde eger nicklistemde aaa nicki varsa girdigim gibi atmasini istiyorum. sonra kanala girsede kanalda nick degisde v.s isde hic bir sekilde sonradan atmiyim o direkt atilsin. hepsi tamam bunlarin sadece isde kanalda var ise atilmasi lazim.bilmem anlatabildimmi..

Alience 17 Ocak 2005 22:41

sanırım istediğin bu, ayrıca Default un verdiği koddanda yapardında armut piş azıma düş diyor herkez :confused:.

Kod:

raw 353:*: {
  var %~i = 1 | while $ [ $+ [ %~i ] ] { if $left($ifmatch,1) == $chr(35) { var %~gchn = $ [ $+ [ %~i ] ] | if (!$hget($+(gh-tmp,%~gchn)) &&  $ulist(*,666,0) > 0) { .hmake $+(gh-tmp,%~gchn) $ulist(*,666,0) } } | inc %~i 1 }
  var %~i = 2 | while $ [ $+ [ %~i ] ] { if $ulist($ifmatch,666,0) { hadd $+(gh-tmp,%~gchn) $ [ $+ [ %~i ] ] } | inc %~i 1 }
}
alias gcautokickall {
  var %~gcachn = $+($chr(35),$gettok($1,2,35))
  if $hget($1,0).item { if $me isop %~gcachn || $me ishop %~gcachn { ban %~gcachn $hget($1,1).item 2 | kick %~gcachn $hget($1,1).item Shitlisted.! | hdel $1 $hget($1,1).item } }
  else { if $hget($1) { .hfree $1 } | if $timer(gc $+ %~gcachn) == 1 { .timergc $+ %~gcachn off } }
}
on *:connect: { .hfree -w gh-tmp* }
on *:disconnect: { .hfree -w gh-tmp* }
on *:part:#: { if ($nick == $me && $hget($+(gh-tmp,$chan))) { .hfree $+(gh-tmp,$chan) } }
on *:op:#: { if $opnick == $me { .timergc $+ $chan 0 3 /gcautokickall $+(gh-tmp,$chan) } }
on *:help:#: { if $hnick == $me { .timergc $+ $chan 0 3 /gcautokickall $+(gh-tmp,$chan) } }
;yukarıdaki help halfop için unreal serverlerde :)

Yukarıdaki kodun yaptığı işlemi sırası ile açıklıyım
1) kanal girince names liste ilk önce kanal adını çıkarıyor
2) sonra bu kanal adına ait senin shitlistindekiler kadar hash olusturuyor
3) eğer sen kanalda op veya halfop(%) olursan otomatik timer ile bu listi tarıyor laga düşmeni engellemek amaçlı.
4) kanaldan çıkarsan/disconnect/connect olursan bu hash dosyalarını temizliyor ayrıca her aradığı kanal içinde hash dosyalarını siliyor.


buradaki tek dikkat etmen gereken kısım shitlistindeki kişilerin levelini 666 olarak tanımladım sen bunu sendeki shitlisteki levelse gore ayarlaman yani senin eklediğin userlerin leveli 456 ise sen $ulist(*,666,0) lerdeki 666 yı 456 yapman yani $ulist(*,456,0) gibi.

eviL 17 Ocak 2005 23:08

oldu gibi :) eywallah saolasin. biraz yawas ama onada ben ayar vermeye calisacam. tesekkürler. /hmake: invalid parameters (line 2, script35.ini) su hatayi veriyor bazen. kanaldaki userlerden biraz fazla olunca verme hatasinin olasigimidir bu ?

AntalyaTeam 21 Ocak 2005 19:10

Dostum işine yaramı bilmiyorum...
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

eviL 22 Ocak 2005 09:15

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

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:

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

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

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

erdem55 01 Temmuz 2005 17:07

maelstrom senin kod çalışıyor fakat nick ban atıyor ben ip ban atmak istiyorum. Uonur malesef senin dediğin şekilde çalışmadı:( yarım pls

UOnur 01 Temmuz 2005 17:19

$address($ulist(%:gnick,666,1),2) Dene :)

erdem55 01 Temmuz 2005 17:23

-ChanServ- "mask" nick!kullanici@IP seklinde tanimlanmali.
malesef olmadı
cs akick $1 add $address($ulist(%:gnick,666,1),2) Badnick.
bu şekilde ekledim

erdem55 01 Temmuz 2005 17:24

eğer o olmuyosa bunu cs den ip e ban atacak şeklilde ayarlayabilirmiyiz?
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 }

aslında eğer mümkünse ikisinide cs den ip ban atacak şekilde ayarlamak istiyorum ama olmuyo işte heleki benim gibi daha yeni biri için baya zor oldu bu iş ya çıkamıyorum işin içinden

erdem55 01 Temmuz 2005 21:11

ya yardımcı olacak kimse yokmu acaba off delircem ya ne denediysem olmuyo

UOnur 01 Temmuz 2005 21:46

En baştan Okumadan Bişiler Dedim ama Olmamış :)
Sana bi Kod veriim idare eder heralde seni.

alias akickle {
var %ğh $comchan($1,0)
while (0 < %ğh) {
cs akick $comchan($1,%ğh) add $address($1,2)
dec %ğh
}
}

/akickle UOnur yap Bana ip'den akick kosun :)
Ama Sadece Ortak Kanallarımızda Akick Ekler.Eğer Ortak kanal Yoksa Eklemez...

erdem55 02 Temmuz 2005 08:25

uonur sanırım yine okumadınız. Bende allban zaten varki. Benim istediğim. Yukarda verdiğim kodlardaki normal banı kaldırıp cs ban eklemek ve bunu ip ye atmasını sağlamak.

UOnur 02 Temmuz 2005 12:42

Ban Atan Kısım Şu:

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

Ve sen Banlamasın onun yerine Akick eklesin Diyorsun Deilmi?

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) $2-) | dec %x } } }

erdem55 02 Temmuz 2005 13:01

-ChanServ- "mask" nick!kullanici@IP seklinde tanimlanmali.

aynen bunu söylüyor

UOnur 02 Temmuz 2005 13:10

Alla Alla.
Ortak Kanalın varsa $address calısır.
Eğer Yoksa ztn Kod çalışmaz.Bu ne biçim iş .)

Bağlandığın Sunucuyla Alakalı birşey Olabilirmi ?
ip akick Konulmayabilir yada başka bisi ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:29.

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