[ mIRC away addonu menu seklinde ]


Kod:
alias awaymenu { dialog -m arkaway arkaway }
dialog arkaway {
title "CooL Love Esra Away / Meşgul Menüsü"
size -1 -1 217 98
option dbu
text "Away Sebebi : ", 1, 7 12 39 8
edit "", 2, 47 11 161 10
button "AWAY OL", 3, 141 27 57 9, flat
check "Nickin Sonuna Ekle :", 4, 7 27 57 8
edit "", 5, 68 26 64 10
box "Away Menü Ayarları :", 6, 3 1 210 40
button "Dışarıdayım", 8, 7 61 41 12, flat
button "Yemekteyim", 9, 60 61 41 12, flat
button "Oyundayım", 10, 113 61 41 12, flat
button "Uyuyorum", 11, 166 61 41 12, flat
box "Hazır Away Mesajları :", 12, 3 42 210 35
text "Seçtiğiniz Away Sebebinin Üstüne Tıkla***** Otomatik Olarak Away Olabilirsiniz.", 13, 12 50 196 8, disable
button "AWAYDAN DÖN", 7, 17 82 87 12
button "PENCEREYİ KAPAT", 14, 111 82 87 12, ok
}
on *:dialog:arkaway:init:0: {
.timer -m 1 10 /did -f arkaway 2
if (%addnick != $null) { did -c arkaway 4 | did -a arkaway 5 %addnick | did -e arkaway 5 }
if (%awayres != $null) { did -a arkaway 2 %awayres }
if (%addnick == $null) { did -u arkaway 4 | did -b arkaway 5
}
}
on *:dialog:arkaway:sclick:3: {
set %addnick $did(5)
set %awayres $did(2)
if ($did(4).state == 1) {
if ($away == $true) halt
set %backnick $me
/ame Şuanda Awayım. Sebep : ( $+ $did(2) $+ )  [-Arkadasca Script v6-]  | echo -a %logo $+ 2 Şuan awaysınız. 
/away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
/nick $me $+ $did(5)
}
if ($did(4).state == 0) {
if ($away == $true) halt
/ame Şuanda Awayım. Sebep : ( $did(2) )  [-CooL Love Esra-]  | echo -a %logo $+ 2 Şuan awaysınız. 
/away %logo 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 $did(2) 
}
}

on *:dialog:arkaway:sclick:4: {
if ($did(4).state == 0) { did -r arkaway 5 | did -b arkaway 5 | unset %addnick }
if ($did(4).state == 1) {
if (%addnick == $null) {
set %addnick _aWay
did -r arkaway 5
did -a arkaway 5 %addnick
did -e arkaway 5
}
did -e arkaway 5
}
}
on *:dialog:arkaway:sclick:8: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Dışarıdayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:9: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Yemekteyim!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:10: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Oyundayım!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:11: { away 14Şuan awayım10 $nick 14mesajlarına yanıt veremiyorum. Away sebebim:10 Uyuyorum!  | echo %logo 2Şuanda Awaysınız. }
on *:dialog:arkaway:sclick:7: { away | /amsg Awaydım Geri Döndüm! | echo %logo 2Away 
}


[ mIRC Version Ve Sifreli Giris [ Mirc bOt ICın ]

S.a. ben bir Süredir bu Kod üstünde calişiyordum Kelebek.Orgunda böyLe Bir Korumasi Vardir , version korumasi cevap vermiyeni spam kanalina alip bot kod istiyor gibi işte , bende böyle bir kodu telneten degilde sadece mirc üzerinde yapmak için az ugraştim ve galiba basardim , bazi kötü yazilim programlari versionlari belirlidir sc5 botnet gibi botnet versiona cevap verir ama versionlari belirlidir , bide sc5 cevap vermez ve yeni cıkmıs mynet clone programi vardir onlarda versiona cevap vermez bilgidiniz üzere , bende bunu bot tarafindan sadece yaptirmaya caliştim ,


Kullanimi ;


Servere Giren USere version Çekiyor Eger Versiona Cevap vermezse 30 saniye içinde #guvenlik kanalina cekiyor , mesela nick deqiştirirler spam kanalina girmemek için sajoin işlemez mesela , ama Sagopa-Mirckanka arkadaşimiz'a teşekür ederim yardimci olduqu için o kodu cözdüm ve nick deqişse bile kod tekrar istiyor


#guvenlik kanalina giren usere tekrar version cekiyor version cevap vermezse eger özeline kod veriyor ;


<daHi> Merhaba  yQk`Larda , Suan Bot Olarak Algilaniyorsunuz ;
<daHi> 5 2 Dakika İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz!
<daHi> Bot Olmadiginizi Belirtmek İçin Lütfen !nobot 9q9  Komutunu Özelime Yaziniz.

version cekiş cevabini aldiginde kodu siliyor ve

<daHi> Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.


Die cevap Veriyor Eger version halen cevap vermemişseniz kodu ve kodu girmediyseniz 2 dakika içinde sunucudan uzaklastiriyor

eger kodu girerseniz


[20:58:55] <Set> !nobot 2p6
[20:58:56] <daHi> Şifreyi Dogru Girdiniz , Güvenlik Kanalindan Cıkarildiniz , Hoş Sohbetler Dileriz .
[20:58:57] -irc.AsmaCafe.Com- *** You were forced to part #guvenlik


#guvenlik kanalindan cıkartip sohbetine kaldigi yerden devam edebiliyor

kod ;

PHP- Kodu:
on *:snotice:*: {
if (connecting isin $1-) {
writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
timer 1 2 ctcp $9 version
timer $+ $readini(version.ini,$9,ip) 1 10 /who $+(*,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64),*)
}
}
raw 352:*:{
sajoin $6 #guvenlik
}

on *:join:#guvenlik: {
if ($level($nick) == muafnlist) { halt }
if $nick == $me { halt }
if ($regex($address($nick,2),/(helper|admin|ircop|services|dj|tech|global|Securty)/i)) { halt }
if !$read(admin.txt,w,$nick) {
ctcp $nick version
set %version [ $+ [ $address($nick,2) ] ] $rand(0,9) $+ $rand(a,z) $+ $rand(0,9)
msg $nick Merhaba $nick , Suan Bot Olarak Algilaniyorsunuz ;
msg $nick 5 2 Dakika İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz!
msg $nick Bot Olmadiginizi Belirtmek İçin Lütfen !nobot %version [ $+ [ $address($nick,2) ] ] Komutunu Özelime Yaziniz.
enable #vis
userip $nick
timer 1 2 /disable #vis
timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $nick ] ]
timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $address($nick,2) ] ]
}
}

alias veban { gzline $$1 +3800 Lütfen %web Adresinden Sunucumuzun Scriptini Indirip Tekrar Giris Yapiniz $date $time $+([,%botnick,]) }
#vis off
raw 340:*: {
timer $+ $remove($gettok($2-,1,61),*) 1 120 /veban *@ [ $+ [ $gettok($2-,2,64) ] ]
}
#vis end

on 1:ctcpreply:* {
if $read(admin.txt,w,$nick) { halt }
if ($1 == version) {
.timer $+ $readini(version.ini,$nick,ip) off
remini version.ini $nick
timer $+ $nick off
unset %version [ $+ [ $address($nick,2) ] ]
unset %version [ $+ [ $nick ] ]
msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
sapart $nick #guvenlik
close -m $nick
}
}
on *:text:!nobot *:?: {
if ( $2 !== %version [ $+ [ $address($nick,2) ] ] ) {
if $nick == $nick {
msg $nick Sizin Guvenlik Sifreniz Bulunmamaktadir , #Guvenlik Kanalindan Cıkabilirsiniz , Hoş Sohbetler Dilerim.
close -m $nick
halt
}
}
if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) {
msg $nick Şifreyi Dogru Girdiniz , Güvenlik Kanalindan Cıkarildiniz , Hoş Sohbetler Dileriz .
timer $+ $nick off
unset %version [ $+ [ $address($nick,2) ] ]
unset %version [ $+ [ $nick ] ]
sapart $nick #guvenlik
close -m $nick
}
else {
msg $nick Yanlis Kod Girdiniz , Lütfen Kodu Duzgun Giriniz.
msg $nick Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ]
msg $nick Lütfen Kodu Düzgün Giriniz.
close -m $nick
}
}
___
[ mIRC Ban Takip ]

on *:Load:{ echo -a /Banlist #Kanal }
aLias Banlist {
if $1 == $nuLL { echo -a Kanalın Başına ' (#) ' İşareti Getirmediniz ; Örnek Kullanım : /Banlist #Kanal Şeklindedir. | halt }
else { window -aek21S @Banlistesi Tahoma 15
var %banlistesi 1 , %banlistesi2 $ibl(#$1,0)
while %banlistesi <= %banlistesi2 {
echo @Banlistesi Ban Atılan : $ibl(#$1,%banlistesi) , Banı Atan : $ibl(#$1,%banlistesi).by
inc %banlistesi
}
}
}

X Kanalındaki Atılan Banları ve Banı Atan Nickleri Verir..



[ nickin yazıldığında farklı noticeler ]

on *:text:*nickiniz*:#: {
notice $nick $read(x.txt)
}
on *:text:*nickiniz*:?: {
notice $nick $read(x.txt)
}

kalın yerlere kendi nickini yaz sonra mirc klasorune ben adını x olarak belırledım sen ıstedını koy ama kodda da x yazan yerre kendı adlandırdığın dosya.txt yi yaz. sonra bu bu txt. dosyasına alt alta yollamak istediğin noticeleri yaz nickin her yazıldığında farklı bi notice çıksın

[ mIRCDEN Diskinizin bilgilerini Öğrenme ]

Bu Kod Sayesinde ( Bilgisayarınızdaki Tüm Disklerinizin Kapasitesini İnceleyebilirsiniz mIRC üzerinden.

PHP- Kodu:
/cekdisk

şeklinde çalışır.

PHP- Kodu:
alias cekdisk {
var %sbt = $1
var %i = 1
while (%i <= $disk(0)) {
if ($disk(%i).type == fixed) {
$iif(%sbt == $null,echo -a,%sbt) (HDD) $disk(%i).path Kullanılan : $bytes($disk(%i).size,g) $+ GB Bo$ : $bytes($disk(%i).free,g) $+ GB
}
inc %i
}
} 

[ !Kural Komutu Kullanımı ]
on 9999:text:!kural*:#: {
tokenize 32 $strip($1-)
if ($2 == ekle) {
if ($3) {
writeini kurallar.ini $network $3- $+([,$nick,])
msg $chan 4" $+ $3- $+ " $nick $+  in kuralı eklendi.
}
else .notice $nick 4Kural eklemek için: !kural ekle KURAL
}
if ($2 == sil) {
if ($3) {
if ($readini(kurallar.ini,$network,$3)) {
remini kurallar.ini $network $3- [ $nick ]
msg $chan 4 $3- kural listesinden çıkarıldı.
}
}
else {
msg $chan 4Kural girişi yok.
.notice $nick 4Kural listesin görmek istiyorsanız !kural listesi yazınız.
}
}
if ($2 == listesi) {
.notice $nick 4Girilen kurallar listesi:
var %a 1, %z $ini(kurallar.ini,$network,0)
while (%a <= %z) {
.notice $nick 04 $+ %a $ini(kurallar.ini,$network,%a) $readini(kurallar.ini,$network,$ini(kurallar.ini,$ network,%a))
inc %a
}
.notice $nick 4Listenin sonu. %y Giriş(ler) devre dışı.
}
}


[ mIRC Son Dakika HaberLeri (ßotlar Icin) ]

Alıntı:
on *:sockopen:sdk*: {
if ($sockerr) .msg $remove($sockname,sdk*) Bağlantı Kurulamadı...!
else {
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: www.aksam.com.tr
sockwrite -n $sockname $crlf
}
}
on *:sockread:sdk*: {
var %sd
sockread %sd
if (color="maroon"> isin %sd) set %saat $htmlfree(%sd)
if (sondakika.asp?a= isin %sd) {
var %url = $remove($gettok(%sd,3,32),onClick="MM_openBrWindow ,$chr(40),'sondakika.asp?a=,sd,width=500,height=40 0,top=20,left=20,scrollbars=yes,$chr(9),$chr(44),' ) | .msg $remove($sockname,sdk*) $+(,%saat,$chr(32),--,$chr(32),4,$htmlfree(%sd),$chr(32),--,$chr(32),7,http://www.aksam.com.tr/sondakika.asp?a=,%url) }
}
on *:text:*:#HaberLer: {
if ($1 == !sondk) {
.msg $nick Son Dakika Haberleri Alınıyor.Lütfen bekleyiniz...
sockclose $+(sdk*,$nick)
sockopen $+(sdk*,$nick) www.aksam.com.tr 80
}
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x } }
HaberLer KanaLında !sondk Yazıldıqında qeLisen Son Dakika HaberLeri OzeLe Yazılır Ve Devamlı qunceLLenmektedir

[ mIRC Connection Flood Korumasi ]
Arkadaş Buda Benden Size Connection Aşırı Flood için Bir Koruma olsun.. Buyrun Kullanın Kullanmadan Yorum yapmayın ne kadar işe yaradığını anlıcaksınız.
Kod:
on *:snotice:*client connecting*: {
if $nick == irc.sunucu.com {
%::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1)
cf %::Con.nick.on %::Con.ident.on %::Con.ip.on
}
}
alias cf {
;Connect Flood -1-
hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3)
if %t == 2 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -2-
hinc -mu2 cf $3 1 | var %t $hget(cf,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -3-
hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
txt dosyası oluşturup flood.txt gibi script dosyasına txt i atın
scriptinizde /load -rs flood.txt yapin
Güle Güle Kullanın.

[ mIRC Saniye & Giriş Sayısı: Saldırı Korumaları ]

5 ayrı süre/giriş koruması:
Süreler, giriş miktarları ve kick mesajları kırmızı renk ile belirtilmiştir, isteğinize göre düzenleyin:
1) Bir saniyede giriş/çıkış yapanın host'una ban atar >
Kod:
on @*:join:#:{ inc -u1 %hNc_k [ $+ [ $nick ] ] }
on @*art:#:{ if (%hNc_k [ $+ [ $nick ] ]) { ban # $nick 2 } }
2) 30 saniyede aynı host'tan 3 giriş/çıkış yapıldığında hepsini atar >
Kod:
on @*:JOIN:#:{ inc -u30 $+(%,jp.,$chan,$wildsite) | if $($+(%,jp.,$chan,$wildsite),2) >= 3 { mode # +b $wildsite | var %{ = $ialchan($wildsite,#,0) | while %{ { if $gettok($ialchan($wildsite,#,%{),1,33) isreg # { kick $chan $ifmatch join/part flood } | dec %{ } } }
3) 3 saniyede 5 kişi giriş yaptığında girenlerin hepsini atar kanalı 60 saniyeliğini +mR moduna alır >
Kod:
on @!*:JOIN:#:{
inc -u3 %joins [ $+ $+($cid,$chan) ]
set -u3 %joinsnicks [ $+ $+($cid,$chan) ] $addtok(%joinsnicks [ $+ $+($cid,$chan) ],$nick,32)
if (%joins [ $+ $+($cid,$chan) ] > 4) {
var %x = %joins [ $+ $+($cid,$chan) ]
mode $chan +mR | .timer 1 60 mode $chan -mR
while (%x) { if ($gettok(%joinsnicks [ $+ $+($cid,$chan) ],%x,32) ison $chan) { ban -u120 $chan $ifmatch 2 | kick $chan $ifmatch Join Flood } | dec %x }
}
}
4) 6 saniyede 8 giriş yapıldığında hepsini atar >
Kod:
on @*:join:#:{
var %^ = $+(%,#) | set $iif(!$(%^,1),-u6) $(%^,1) $addtok($(%^,2),$nick,32)
if $numtok($(%^,2),32) >= 8 { var %_ = 1 | while $gettok($(%^,2),%_,32) { if $v1 ison # { ban -k # $v1 2 dışarı } | inc %_ } }
}
5) 5 saniyede 8 giriş yapıldığında kanalı 1 dakikalığına +mR moduna alır >
Kod:
on @*:join:#:{ inc -u5 $+(%,$chan) | if ($($+(%,$chan),2) > 7) { mode $chan +mR | .timer 1 60 mode $chan -mR } }