mirc, tükçe mirc, mirc indir, mirc yükle

Bu Kod ile Kanaldaki Banlarin hepsini kaldirabilir. Bazilarini kaldirabilir. Kod içinde anlatimida yazmaktadir. Kod sahibi : Ailence

;tub = total unban
alias tub {
if $1 !ischan || !$2 { /echo $color(info text) -at * /tub: insufficient parameters | halt }
if $me isop $1 || $me ishop $1 {
var %i = $ibl($1,0), %items = $iif($calc($ibl($1,0) – $2) < 0,$ibl($1,0),$2), %modespl = $null
if !$hget($+($1,-ibl)) { hmake $+($1,-ibl) %items }
while $hget($+($1,-ibl),0).item < %items {
if $3 { if $gettok($ibl($1,%i).by,1,33) == $3 { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime $gettok($ibl($1,%i).by,1,33) } }
else { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime }
dec %i 1
if %i <= 0 { break }
}
%i = $hget($+($1,-ibl),0).item
while %i {
if $calc($count(%modespl,$chr(32)) + 1) >= $modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$modespl)) %modespl | %modespl = $null }
%modespl = %modespl $hget($+($1,-ibl),%i).item
dec %i 1
}
if %modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$calc($count(%modespl,$chr(32)) + 1)))) %modespl }
hfree $+($1,-ibl)
}
}
on *:op:#: { if $opnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
on *:halfop:#: { if $hopnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
raw 367:*: { if %ibl { halt } }
raw 368:*: { if %ibl { unset %ibl | halt } }

;e?er kanal?n banlistesi 30 u geçmi?se($ibl($chan,0) >= 30) son 15 ban? kald?r(/tub $chan 15)
on *:ban:#: { if $ibl($chan,0) >= 30 { /tub $chan 15 } }

;f8 e bas?nca kanaldaki en son banlardan 15 tanesini kald?rs?n
alias F8 { if $active ischan { tub $active 15 } }

;ctrl + f8 e bas?nca kanaldaki en son banlar?n?zdan(sizin ban?n?z) 5 tanesini kald?rs?n
alias CF8 { if $active ischan { tub $active 5 $me } }

;shift + f8 e bas?nca kanaldaki en son verilen nickin banlar?ndan 5 tanesini kald?rs?n
VN:F [1.1.8_518]

Bekleyiniz…

Merhaba arkada?lar. Wordpress\\\’te anket sistemi ararken akl?ma mirc için yap?lm?? anket addonu var m?d?r diye dü?ündüm. Google\\\’da arad?m anket addonu yok, ircforumlari.net adresinde farkl? kelimeler ile arad?m yok.
?u an bu mesaj? yazmadan önce tekrar bir arayay?m dedim ve yine yok…
Kar??n?zda anket addonu.

Kodu çal??t?rmak için mirc\\\’e yükleyip, f1 tu?una basman?z yeterlidir.

Kod:

;Anket Addonu.
;Tüm kodlar kullan?labilir.
;Tek ricam bu addonu kalk?p ba?ka bir nick alt?nda \\"ben yazd?m diye yay?nlamay?n lütfen.
;Güle güle kullan?n.
;Ileti?im MSN : admin@chatix.org

On *:Join:#: {
if ($nick !== $me) {
if ($chan == %anketkanal) { .msg $nick Anketimize kat?lmak ister misiniz? | .msg $nick Anketimize kat?lmak için lütfen !Anket yaz?n?z. | .msg $nick Anket sonuçlar?n? görmek içinse !Sonuc yaz?n?z. | AnketleriBirArttir }
if ($chan !== %anketkanal) { Halt }
}
}
On *:Text:*:?: {
if ($1 == !Sonuc) { Sonuclar }
if ($1 == !Anket) { Anket }
if ($1 == !Oy) { Set %OyAdresi $address($nick,3) | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }
}
Alias Sonuclar {
if (%sonuc1 !== $null) { .msg $nick 4 %sonuc1 sonucunun ald??? oy say?s? %sonucoy1 }
if (%sonuc2 !== $null) { .msg $nick 2 %sonuc2 2sonucunun ald??? oy say?s? %sonucoy2 }
if (%sonuc3 !== $null) { .msg $nick 4 %sonuc3 2sonucunun ald??? oy say?s? %sonucoy3 }
if (%sonuc4 !== $null) { .msg $nick 2 %sonuc4 2sonucunun ald??? oy say?s? %sonucoy4 }
}
Alias Anket {
.msg $nick Anketimize ho?geldiniz.
.msg $nick Anket sorumuz ?öyledir.
.msg $nick 
.msg $nick %anketsoru
.msg $nick 
.SonucOzel
}
Alias SonucOzel {
if (%sonuc1 !== $null) { .msg $nick 1) 4 %sonuc1 }
if (%sonuc2 !== $null) { .msg $nick 2) 4 %sonuc2 }
if (%sonuc3 !== $null) { .msg $nick 3) 4 %sonuc3 }
if (%sonuc4 !== $null) { .msg $nick 4) 4 %sonuc4 }
.msg $nick 
.msg $nick Anketimize kat?lmak için lütfen !Oy Seçti?iniz ??kk?n numaras?. Örn : !Oy 1
}
Alias Denetleme {
if $read(Liste.txt,w,%OyAdresi) { .msg %Oyveren Üzgünüm, daha önceden oy kullanm??s?n?z. | halt }
if !$read(Liste.txt,w,%OyAdresi) { .Oylamayap }
}
Alias OylamaYap {
if (%VerdigiOy == $NULL) { .msg %Oyveren Lütfen seçti?iniz anket cevab?n?n numaras?n? giriniz. | .msg %Oyveren Örnek : !Oy 2 | halt }
if (%VerdigiOy == 1) { inc %sonucoy1 }
if (%VerdigiOy == 2) { inc %sonucoy2 }
if (%VerdigiOy == 3) { inc %sonucoy3 }
if (%VerdigiOy == 4) { inc %sonucoy4 }
.msg $nick Oyunuz kaydedilmi?tir. Oylama yapt???n?z anket cevap numaras? %VerdigiOy
.write Liste.txt %OyAdresi
.halt
}
Alias AnketleriBirArttir {
inc %ilkanketgiris
if (%ilkanketgiris == 1) {
if (%sonuc1 !== $null) { inc %sonucoy1 }
if (%sonuc2 !== $null) { inc %sonucoy2 }
if (%sonuc3 !== $null) { inc %sonucoy3 }
if (%sonuc4 !== $null) { inc %sonucoy4 }
}
if (%ilkanketgiris !== 1) { return }
}
Alias f1 {
set %anketkanal $$?=\\"Anket kanal?n? ba??nda # olarak yaz?n?z.\\" | TestKanal
}
Alias TestKanal {
if (%anketkanal == $null) { echo -a Anket sistemi anket kanal? olmadan maalesef çal??maz. | halt }
if (%anketkanal !== $null) { set %anketsoru $$?\\"Anketin sorusunu aç?k bir dille yaz?n?z.\\" | AnketSoruTest }
}
Alias AnketSoruTest {
if (%anketsoru == $Null) { echo -a Sorusuz anket olur mu hiç? | echo -a Lütfen ankete soru girin. | halt }
if (%anketsoru !== $null) { Set %sonuc1 $$?=\\"Anket cevap 1 yaz?n?z\\" | Cevapbirtest }
}
Alias CevapbirTest {
if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc1 !== $null) { set %sonuc2 $$?=\\"Anket cevap 2 yaz?n?z\\" | Cevapikitest }
}
Alias CevapikiTest {
if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc2 !== $null) { set %sonuc3 $$?=\\"Anket cevap 3 yaz?n?z\\" | Cevapuctest }
}
Alias CevapucTest {
if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc3 !== $null) { set %sonuc4 $$?=\\"Anket cevap 4 yaz?n?z\\" | Cevapdorttest }
}
Alias CevapdortTest {
if (%sonuc4 == $null) { halt }
if (%sonuc4 !== $null) { halt }
}

Kaynak: ircforumlari

on 1:connect:{ .IAL On | takip + 300 }
alias takip {
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreD??? ! }
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{
if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kulland??? nickler:14 $hget(Takip,$address($nick,2)) }
if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change }
}
#Takip end

kode ekled?kten sonra /takip yaz?n

kode ekledikten sonra /takip yazin