Kolay Spam Ekleme Kodu
on 1:input:#:{
if ($1 == .spamekle) {
spamfilter add cpnaNtd gline 2d Spam/Advert $2
}
*******************************************************

on 1:input:#:{
if ($1 == .spamsil) {
spamfilter add cpnaNtd gline 2d Spam/Advert $2}

Herhangi Bir Kanalda ( Oper / Admin Yetkiniz Var ise ) .spamekle kelime / .spamsil kelime diyerek istediğiniz kelimeyi spama alabilir silebilirsiniz..

Helperlere özel mode kayıt kodu
alias help return #help
alias helper return #helper
alias helpadd writeini help.ini $1-
alias helpdel remini help.ini $1-
alias helpekle return $iif(!$ini(help.ini,$1,$2),1,$calc($readini(help.ini,$1,$2) + 1))
alias helpgoster return $iif(!$readini(help.ini,$1,$2),0,$readini(help.ini,$1,$2))
alias goster {
if ($ini(help.ini,0) == 0) { msg $helper Helperler Adina Kayit Bulunmamaktadir. | halt }
if ($1 == $null) { var %x = 1,%y = $ini(help.ini,0) | while (%x <= %y) {
msg $helper Helper: $($chr(2),$ini(help.ini,%x),$chr(2)) Voice: $+($chr(2),$helpgoster($ini(help.ini,%x),voice),$chr(2)) Devoice: $+($chr(2),$helpgoster($ini(help.ini,%x),devoice),$chr(2)) Ban: $+($chr(2),$helpgoster($ini(help.ini,%x),ban),$chr(2)) Kick: $+($chr(2),$helpgoster($ini(help.ini,%x),kick),$chr(2)) | inc %x } }
else {
if ($1 == -r) { msg $helper Helperlere Ait Butun Bilgiler Sifirlanmistir. | write -c help.ini | halt }
if ($ini(help.ini,$1) == 0) { msg $helper $1 Nickine Ait Bilgi Bulunmamaktadir! | halt }
msg $helper Helper: $($chr(2),$1,$chr(2)) Voice: $+($chr(2),$helpgoster($1,voice),$chr(2)) Devoice: $+($chr(2),$helpgoster($1,devoice),$chr(2)) Ban: $+($chr(2),$helpgoster($1,ban),$chr(2)) Kick: $+($chr(2),$helpgoster($1,kick),$chr(2))
}
}

on *:rawmode:#: {
if ($chan == $help) {
if ($1 == +v) { helpadd $nick voice $helpekle($2,voice) }
if ($1 == -v) { helpadd $nick devoice $helpekle($2,devoice) }
if ($1 == +b) { helpadd $nick ban $helpekle($2,ban) }
}
}
on *:kick:#: { if ($chan == $help) { helpadd $nick kick $helpekle($nick,kick) } }

on *:text:!bilgi*:#: {
if ($chan == $helper) {
if ($2 == $null) { goster | halt }
if ($2 == -r) { goster -r }
else { goster $2 }
}
}Kullanımı !bilgi – !bilgi nicktxt dosyasını silmek için !bilgi -r

;iddaa sorgulama
;release: 0.1
;Author: Alience
on *:text:!iddaa*:#iddaa: {
if $sock(ida) { msg $chan $nick şu anda iişlem yapılıyor biraz sonra tekrar deneyin! | return }
hadd -m iddaa chan $chan
hadd -m iddaa nick $nick
if $regex($2,^\d\d(\.|\\|\/|\-)\d\d(\.|\\|\/|\-)\d\d\d\d) && !$3 {
if $calc(($ctime($date) – $ctime($2)) / 86400) < 30 { hadd -m iddaa type count | hadd -m iddaa date $2 | ida $calc(($ctime($date) – $ctime($2)) / 86400) }
else { msg $chan $nick 30 günden erken olan maçlara bakabilirsiniz! | return }
}
elseif $regex($2,^\d\d(\.|\\|\/|\-)\d\d(\.|\\|\/|\-)\d\d\d\d) {
if $regex($3,^\d\d\d$) {
echo oke
hadd -m iddaa type code
hadd -m iddaa match $3
hadd -m iddaa date $2
ida $calc(($ctime($date) – $ctime($2)) / 86400)
}
elseif $regex($3,^(\d\d|\d)$) {
;sayfa istemi
hadd -m iddaa type page
hadd -m iddaa match $3
hadd -m iddaa date $2
hadd -m iddaa end $calc($3 + 6)
ida $calc(($ctime($date) – $ctime($2)) / 86400)
}
}
elseif !$2 {
hadd -m iddaa type count | hadd -m iddaa date 0 | ida 0
}
elseif $regex($2,^\d\d\d$) {
hadd -m iddaa type code
hadd -m iddaa match $2
hadd -m iddaa date 0
ida 0
}
elseif $regex($2,^(\d\d|\d)$) {
;sayfa istemi
hadd -m iddaa type page
hadd -m iddaa match $2
hadd -m iddaa date 0
hadd -m iddaa end $calc($2 + 6)
ida 0
}
}
alias ida {
sockopen ida www.iddaa.com 80
hadd -m iddaa count 0
if $1 { hadd -m iddaa request $1 }
else { hdel -m iddaa request }
}
on *:sockopen:ida: {
sockwrite -n $sockname GET http://www.iddaa.com/XML/FinishedMat…dex.htm?drawid= $+ $iif($hget(iddaa,request),$v1,0) HTTP/1.1 $crlf
sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf
sockwrite -n $sockname Accept: */* $crlf
sockwrite -n $sockname Host: www.koeri.boun.edu.tr $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:ida: {
var %gstr, %match = 0
sockread %gstr
if $regex(%gstr, if $regex(%gstr,matchkod=) {
hadd -m iddaa temp $hget(iddaa,temp) KOD: $+ $noqt($regsubex(%gstr,(^.*=),$null))
if $hget(iddaa,type) == code {
if $hget(iddaa,match) == $noqt($regsubex(%gstr,(^.*=),$null)) {
hadd -m iddaa type codeok
}
}
}
if $regex(%gstr,takimlar=) { hadd -m iddaa temp $hget(iddaa,temp) Takımlar: $+ $remove($strip($regsubex(%gstr,(^.*=),$null)),”) }
if $regex(%gstr,lig=) { hadd -m iddaa temp $hget(iddaa,temp) Lig: $+ $noqt($regsubex(%gstr,(^.*=),$null)) }
if $regex(%gstr,scorehalfhome=) { hadd -m iddaa temp $hget(iddaa,temp) İlk Yarı: $+ $noqt($regsubex(%gstr,(^.*=),$null)) $+ – }
if $regex(%gstr,scorehalfaway=) { hadd -m iddaa temp $hget(iddaa,temp) $+ $noqt($regsubex(%gstr,(^.*=),$null)) }
if $regex(%gstr,scorecurrenthome=) { hadd -m iddaa temp $hget(iddaa,temp) Maç Sonucu: $+ $noqt($regsubex(%gstr,(^.*=),$null)) $+ – }
if $regex(%gstr,scorecurrentaway=) { hadd -m iddaa temp $hget(iddaa,temp) $+ $noqt($regsubex(%gstr,(^.*=),$null)) }
if $regex(%gstr,) {
if $hget(iddaa,type) == count {
hinc iddaa count 1
}
else {
if $hget(iddaa,type) == codeok {
msg $hget(iddaa,chan) $hget(iddaa,nick) $ghta($hget(iddaa,temp))
sockclose $sockname
}
elseif $hget(iddaa,type) == page {
hinc iddaa count 1
if $hget(iddaa,count) >= $hget(iddaa,match) && $hget(iddaa,count) < $hget(iddaa,end) {
msg $hget(iddaa,chan) $hget(iddaa,nick) $ghta($hget(iddaa,temp))
}
if $hget(iddaa,count) >= $hget(iddaa,end) { sockclose $sockname | msg $hget(iddaa,chan) $hget(iddaa,nick) – iddaa listeleme SONU }
}
}
hdel -m iddaa temp
}
if $regex(%gstr,) {
sockclose $sockname
if $hget(iddaa,type) == count {
var %date = $hget(iddaa,date)
if %date != 0 {
msg $hget(iddaa,chan) $hget(iddaa,nick) %date tarihine ait toplam $hget(iddaa,count) maç sonucu mevcut, maç listesini görebilmek için !iddaa %date 1
msg $hget(iddaa,chan) $hget(iddaa,nick) %date tarihine ait koda göre arama yapmak için !iddaa %date kod yazmalısınız.
}
else {
msg $hget(iddaa,chan) $hget(iddaa,nick) Bu güne ait toplam $hget(iddaa,count) maç sonucu mevcut, maç listesini görebilmek için !iddaa 1
msg $hget(iddaa,chan) $hget(iddaa,nick) Bu güne ait koda göre arama yapmak için !iddaa kod yazmalısınız.
}
}
elseif $hget(iddaa,type) == page {
msg $hget(iddaa,chan) $hget(iddaa,nick) – iddaa listeleme SONU
}
}
}
;ghta: get html code to ascii code
;Author: Alience
;Date: 06/10/2009
;release: 0.1
alias ghta {
return $replace($1-,İ,İ,ı,ı,Ö,Ö,Ö,Ö,ö,ö,ö,ö,Ü,Ü,Ü,Ü,ü,ü,ü,ü,Ç,Ç,Ç,Ç,ç,ç,ç,ç,Ğ,Ğ,ğ,ğ,Ş,Ş,ş,ş,₤,?)
}Script Editörüne ( Alt + R ) Ekleyiniz.!iddaamIRC üzerinde belirlenen kanalda! iddaa ile başlayan kodları kullanmanızı saglayan addon;
Yazar: Alience
Versiyon: 0.1

Kurulum:
on *: text:! iddaa *:# Ida: (
Kırmızı yazılı # ida yerine kanalınızın adını yazmanız yeterli

Komutları:
! iddaa <- Bu Günkü sonuçlanan kaç tane maç olduğunu gösterir
! iddaa rakkam <- Bu gün sonuçlanan maçlardan 6 şeklinde görmenizi sağlar rakkam yerine 2 (örn:! Iddaa 2) yazarsan 2 Sarli liste. Sıradan başlayıp 8. Sıradaki maça kadar olan maçları listeler
! iddaa kod <- Bu gün maçı olan numarasına göre aramanızı sağlar eğer maç var ise listeler kod

Kodlayan: Difuzyon

Amaç:

Ramazan ayına müteakip belirtilen ildeki İmsak-Güneş-İkindi-Akşam-Yatsı saatlerini veren bir çalışmadır.Bu çalışmada ?İftara ne kadar kaldı?? diye merak edenlere süre olarak yanıtta verecektir.

Bu çalışmayı mirc botunuza veya kendinize eklemeniz halinde #iftar kanalında faaliyete geçirebilirsiniz.(#iftar kanalı yerine uygun gördüğünüz #kanal ismini kendinize göre değiştirebilirsiniz.)

#iftar kanalına giriş yapan kullanıcılara bilgiyi nasıl alabileceği konusunda notice mesaj gönderecektir.

Kullanımı:

Kodu scriptinizin remote kısmına eklemiz ve #iftar kanalında bulun(dur)manız yeterlidir.

Örnek sunum :

[04:19] *gümüşhane

[04:19] <@Kerim> Bilgiler alınıyor..

[04:19] <@Kerim> [Gumushane] 11 Agu 2010 – Çarşamba
[04:19] <@Kerim> İmsak – 03:26
[04:19] <@Kerim> Güneş – 05:20
[04:19] <@Kerim> Öğle – 12:37
[04:19] <@Kerim> İkindi – 16:28
[04:19] <@Kerim> Akşam – 19:36 (İftar) Kalan Süre: 15saat 16dakika 48saniye
[04:19] <@Kerim> Yatsı – 21:14

Kodlarr:

on $*:text:/^[\*](\S+)$/i:#iftar:{
if $sock(ramazan,1).status == active { msg $chan Sırada bekleyen bilgi alınıyor,lütfen bitmesini bekleyiniz | halt }
set -e %\/ $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
set -e %\/zeki $address($nick,2)
msg $chan Bilgiler alınıyor..
imsakiye
}
on !*:join:#iftar:{
.notice $nick ..Hoş geldiniz
.notice $nick Bulunduğunuz ilin bugünkü imsakiye bilgileri için kanala *şehir yazınız.Örnek: *İstanbul
.notice $nick Hoşca vakitler..
}
alias imsakiye {
$iif($isfile(ramazan.txt),.remove ramazan.txt)
sockopen ramazan diyanettakvimi.com 80
}
on *:sockopen:ramazan:{
sockwrite -n $sockname GET $+(/turkiye/,%\/,-imsakiye.html) HTTP/1.1
sockwrite -n $sockname Host: diyanettakvimi.com $str($crlf,2)
}
on *:sockread:ramazan:{
if ($sockerr) { msg #iftar Veri alımında hata oluştu. | halt }
else {
var %dify
sockread %dify
if $regex(%dify,/(A(ğ|g)ustos|Eyl(ü|u)l)/i) { write ramazan.txt $regsubex($regsubex(%dify,/<.+>/Ug,$null),/(.+>)|(Ramazan.+)/,$null) }
elseif $regex(%dify,/

Versiyon, Finger, Time ve Script Sorgusu

-
- mIRC Sunucu bağlanırken versiyon ve diğer sorgulara cevap vermesine yarayan kodlar

Versiyon, Finger, Time ve Script Sorgusu

ctcp 1:version:*:{
ctcpreply $nick VERSION Türkçe Mirc 6. VERSION System [Giris Tanimlandi]
}
ctcp 1:finger:*:{
ctcpreply $nick FINGER Türkçe Mirc 6.2 FINGER System [Giris Tanimlandi]
}
ctcp 1:time:*:{
ctcpreply $nick TIME Türkçe Mirc 6.2 TIME System [Giris Tanimlandi]
}
CTCP 1:script:*: {
ctcpreply $nick SCRIPT Türkçe Mirc 6.2 SCRIPT System [Giris Tanimlandi]