İPUCU

Sosyal medya ve Sosyal Platformlar Sosyal Medya Ve Sosyal Platformlar Hakkında Her şey.

Seçenekler

Tüm Mirc addonları Sizde Paylaşa bilirsiniz

BeRz4h - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Nereden:
Elazığ
Yaş:
32
Mesajlar:
2.447
Konular:
729
Teşekkür (Etti):
252
Teşekkür (Aldı):
310
Ticaret:
(0) %
29-07-2013 15:35
#1
Tüm Mirc addonları Sizde Paylaşa bilirsiniz

Kick Sayacı 2013
Kick Sayacı 2013

#kicksayac on
alias kick {
if ( %kick.numara == $null ) {
set %kick.numara 1
}
kick $1- $+ 0,1(4,1 · %kick.numara · 0,1)
inc %kick.numara
}

;Sayacı Sıfırlamak için /ksifir
alias ksifir {
set %kick.numara 1
}
#kicksayac end

menu status {

Kick Sayacı
.Aç:.enable #kicksayac | /echo -a 12Kick Sayacı4 Açıldı.
.Kapat:.disable #kicksayac | /echo -a 12Kick Sayacı4 Kapatıldı.
.Sifirla:.ksifir | /echo -a 12Kick Sayacı4 Sıfırlandı.
}
_______________________________________________

mIRC Kayıt Addon
mIRC scriptlerinizi register ( şifrelemeye ) yarayan bir kod’dan oluşur.

kod:
alias kayit {
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16
var %kg.ctr = 4
var %kg.tot = $len($1-)
while (%kg.ctr <= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58)))
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58)))
inc %kg.ctr
}
if $file(register.reg) { .remove register.reg }
write register.reg REGEDIT4
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC]
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\Channels]
write register.reg @=\"\"
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\LockOptions]
write register.reg @=\"0,0\"
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\UserName]
write register.reg @=\" $+ $1- $+ \"
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\License]
write register.reg @=\" $+ $+(%kg.1,-,%kg.2) $+ \"
run regedit -s register.reg
}

__________________________________________________ ____________

AcıLıs Adonu DeğişimLi
ßu Adonu DeişimLi kuLana ßiLrsnz koLay geLsin
- ON *:START: {
.emailaddr mIRC@
.anick SohbetUser $+ $rand(1000,9999)
.set %logo 5 %logo
.set %nik User
echo -s 4«Türkçe mIRC» 12Tarih : 1 [ $date ]
echo -s 4«Türkçe mIRC» 12Saat : 1 [ $time ]
echo -s 4«Türkçe mIRC» 12Nickiniz : 1 [ $me ]
echo -s 4«Türkçe mIRC» 12Siz Şu ana Kadar «Türkçe mIRC»4 %session 12 kez açtınız
echo -s 4«Türkçe mIRC» 1212Türkçe mIRC Download Adresinizi yazın
echo -s 4«Türkçe mIRC» 12Komutlar hakkındaki Yardım Dosyasını Açmak için f1, 12Kısayolları Öğrenmek için ise 1f2 12tuşuna basınız...
halt
}


Helper Bot
- on *:connect: {
.join #help
.ns identify HelpBotSifresi
.remote on
.ignore $me
}
on *:text:*:?: {
if .n?ck iswm $1- {
/timer 1 0 msg $nick  .:: Nickserv Hakkında Komutlar Sıralanıyor ::.
/timer 1 1 msg $nick 
/timer 1 2 msg $nick 0,1 1- Nick Kaydetmek icin 4.nreg0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 3 msg $nick 0,1 2- Nick Droplamak icin 4.drop 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 4 msg $nick 0,1 3- Nick E-mail Değişmek icin 4.nmail0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 5 msg $nick 0,1 4- Nick UrL Değişmek icin 4.nurl 0,1yazarak komutu öğrenebilirsiniz...
/timer 1 6 msg $nick 0,1 5- Nick İnfosunu Görmek icin 4.ninfo 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 7 msg $nick 0,1 6- Nick Sifrenizi E-mail\'e Yollamak icin 4.nsend 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 8 msg $nick 0,1 7- Nick Sifrenizi Değiştirmek icin 4.nsifre 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 9 msg $nick 0,1 8- Askıda Kalan Nickinizi Düşürmek icin 4.nghost 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick 0,1 9- Nickinize Memo Gelmesin İstiyorsanız 4.nnmemo0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 11 msg $nick 0,1 10- Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız 4.nkill0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 12 msg $nick 0,1 11- Nick E-mail adresinizin Herkez Tarafından Görülmesini istiyorsanız 4.nshow0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 12 msg $nick 
/timer 1 14 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz.
}
if .nreg isin $1- {
msg $nick Nickinizi Kaydetmek ( Sifrelemek ) icin  /ns register sifre e-mailadress  Örnek : /ns register 123456 e-mailadres
}
if .ndrop isin $1- {
msg $nick Nickinizi Droplamak ( Kayıtları Silmek ) icin  /ns drop nick  Örnek : /ns drop OzAn
}
if .nma?l iswm $1- {
msg $nick Nickinizin E-mailini Değiştirmek icin  /ns set email yenie-mail  Örnek : /ns set user@adres user@adres  komutunu kullandıktan sonra yeni e-mail adresinize gelen onay kodunu giriniz.
}
if .nurl isin $1- {
msg $nick Nickinizin URL ( Webadres ) Değiştirmek icin  /ns set url yeni url  Örnek :  /ns set url adres 
}
if .n?nfo iswm $1- {
msg $nick Nickinizin İnfosunu Yada Herhangi Bir Nick\'in İnfosunu Görmek icin  /ns info nick   Örnek : /ns info berzah
}
if .nsend isin $1- {
msg $nick Nickinizin Sifresini E-mailinize Göndermek İstiyorsanız..  /ns sendpass nick   Örnek :  /ns sendpass OzAn
}
if .ns?fre iswm $1- {
msg $nick Nickinizin Sifresini Değiştirmek icin  /ns set password Yenisifreniz   Örnek :  /ns set password 321654
}
if .nghost isin $1- {
msg $nick Nickiniz askıda Kaldı ve Düşürmek istiyorsunuz Su Komutu Uygulayınız.. /ns ghost nick sifreniz  Örnek :  /ns ghost OzAn 123456
}
if .nnmemo isin $1- {
msg $nick Nickinize Memo Gelmesini İstemiyor iseniz Su Komutu Uygulayınız..  /ns SET nomemo ON
}
if .nk?ll iswm $1- {
msg $nick Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız Su Komutu Uygulayınız..  /ns set KILL on 
}
if .nshow isin $1- {
msg $nick Nickinizdeki E-mail Adresini Herkezin Görmesini İstiyorsanız Su Komutu Uygulayınız..  /ns set showemail off 
}
if .chan isin $1- {
/timer 1 0 msg $nick  .:: Chanserv Hakkındaki Komutlar Sıralanıyor ::.
/timer 1 1 msg $nick 
/timer 1 4 msg $nick 0,1 1- Kanal Kaydetmek icin 4.creg 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 5 msg $nick 0,1 2- Kanal Droplamak icin 4.cdrop 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 6 msg $nick 0,1 3- Kanal Founderi Değiştirmek icin 4.cfon0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 7 msg $nick 0,1 4- Kanal Sifresi Değiştirmek icin 4.csifre0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 8 msg $nick 0,1 5- Kanal E-mail Değiştirmek icin 4.cmail0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 9 msg $nick 0,1 6- Kanalınıza gönderilen memoları kapatmak yada okuyabilme yetki düzeyini ayarlamak icin 4.cmemo0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick 0,1 7- Kanalınıza giremiyorsanız INVITE modunda yada BANLI iseniz 4.invite0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 11 msg $nick 0,1 8- Kanalınıza SOP eklemek,silmek istiyorsanız 4.csop0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 12 msg $nick 0,1 9- Kanalınıza AOP eklemek,silmek istiyorsanız 4.caop0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 13 msg $nick 0,1 10- Kanalınıza VOP(voice(+)) eklemek istiyorsanız 4.cvop0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 14 msg $nick 0,1 11- Kanalınıza akick atmak icin 4.cakick0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 15 msg $nick 0,1 12- Kanalınıza accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için .4crest0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 16 msg $nick 0,1 13- Kanalınıza OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access\'inin,ne olup olmadığını görmek için4 .why0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 17 msg $nick 0,1 15- Kanalınıza bir başka kanala linklemek(yönlendirmek) istiyorsanız 4.link0,1 yazarak komutu öğrenebilirsiniz...
/timer 1 18 msg $nick 0,1 16- Kanalınıza Giris Mesajı atmak icin4 .cent0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 19 msg $nick 0,1 17- Kanalınızda op olan tüm kullanıcıları bir seferde deop edebilmek için 4.mdeop0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 20 msg $nick 0,1 18- Kanalınızdaki herkesi atmak için 4.mkick0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 21 msg $nick 0,1 19- Yetkili oldugunuz bi kanaldan size atılan banı kaldırmak için 4.cunban0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 22 msg $nick 
/timer 1 25 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz.
}
if .caop isin $1- {
msg $nick : AOP eklemek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal add Nick
msg $nick : AOP silmek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal del Nick
}
if .csop isin $1- {
msg $nick : SOP eklemek için ( Founder iseniz ), 4/chanserv sop #kanal add Nick
msg $nick : SOP silmek için ( Founder iseniz ), 4/chanserv sop #kanal del Nick
}
if .cvop isin $1- {
msg $nick : VOP eklemek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal add nick
msg $nick : VOP silmek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal del nick
}
if .mkick isin $1- {
msg $nick Kanaldaki herkesi atmak için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mkick #kanal
}
if .mdeop isin $1- {
msg $nick Kanaldaki herkesi deop etmek için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mdeop #kanal
}
if .l?nk isin $1- {
msg $nick, Kanal Yönlendirmek için, /mode #1.kanal +lO 1 #2.Kanal
}
if .why isin $1- {
msg $nick : Kanalda OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access in,nolup olmadığını görmek için, 4/chanserv why #kanal nick
}
if .crest isin $1- {
msg $nick : Kanala accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için, 4/chanserv set #kanal restrict ON Kaldırmak için 4/chanserv set #kanal restrict OFF
}
if .cunban isin $1- {
msg $nick : Chanserv i kullanarak size atılan ban\'ı kaldırmak için, 4/chanserv unban #kanal me
}
if .creg isin $1- {
msg $nick Kanalınızı Kaydetmek İstiyorsanız Su Komutu Uygulayınız  /cs register #kanal sifre acıklama   Örnek : /cs register #sohbet 123456 Hoşgeldiniz
}
if .cdrop isin $1- {
msg $nick Kanalınızı Droplamak ( Kayıtları Silmek ) icin Su Komutu Uygulayınız  /cs identify #kanalınız sifreniz   /cs drop #kanalınız  Örnek : /cs identify #sohbet 123456  /cs drop #sohbet
}
if .cfon isin $1- {
msg $nick Kanalınızın Founderini Değiştirmek icin Su Komutu Uygulayınız  /cs identify #kanalınız sifreniz   /cs set #kanalınız founder yenifounder  Örnek :  /cs identify #sohbet 123456   /cs set #sohbet founder OzAn 
}
if .cs?fre iswm $1- {
msg $nick Kanalınızın Sifresini Değiştirmek icin Su Komutu Uygulayınız  /cs set #kanaliniz password yenisifre   Örnek : /cs set #sohbet password 321654
}
if .cma?l iswm $1- {
msg $nick Kanalınızın E-mail adresini Değiştirmek icin Su Komutu Uygulayınız  /cs set #kanalınız email yenie-mail   Örnek :  /cs set #sohbet email adres
}
if .cmemo iswm $1- {
msg $nick Kanala memo yolladığınız zaman alacak alt düzeyi belirlemek için, 4/chanserv set #kanal memo none|aop|sop|founder
}
if .invite isin $1- {
msg $nick Kanal +i modunda ise vede kanalda en az AOP access iniz var ise kanala girmek için, 4/chanserv invite #kanal nick
}
if .cent isin $1- {
msg $nick Kanalınıza Giriş Mesajı atmak icin /cs set #kanal entrymsg mesajınız  Örnek : /cs set #sohbet entrymsg Hoşgeldiniz.
}
if .cak?ck iswm $1- {
msg $nick Kanalınızda akick almak icin Su Komutu Uygulayınız /cs akick #kanal add nick!*@* sebeb  Örnek : /cs akick #sohbet add OzAn!*@* Rahatsızlık
}
if .memo iswm $1- {
/timer 1 0 msg $nick  .:: Memoserv Hakkındaki Komutlar Sıralanıyor ::.
/timer 1 1 msg $nick 
/timer 1 3 msg $nick 0,1 1- Memo Göndermek icin 4.msend0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 4 msg $nick 0,1 2- Memo Okumak icin 4.mread0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 5 msg $nick 0,1 3- Memo Listesini Görmek icin 4.mlist0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 6 msg $nick 0,1 4- Memolarınızı E-mail adresinize Göndermek icin 4.mfor0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 7 msg $nick 0,1 5- Memolarınızı Silmek icin 4.mdel 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 8 msg $nick 0,1 6- Memolarınıza Limit Koymak icin 4.mlim 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 9 msg $nick 0,1 7- Memolarınız Hakkındaki Bilgileri Görmek icin 4.minfo 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick 0,1 8- Herhangi Bir Kullanıcının Size Memo Göndermesini İstemiyorsanız 4.mig 0,1yazarak komutu öğrenebilirsiniz..
/timer 1 10 msg $nick 
/timer 1 12 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz.
}
if .msend isin $1- {
msg $nick Memo Göndermek icin Su Komutu Uygulayınız.. /ms send nick mesajınız  Örnek :  /ms send OzAn Selam 
}
if .mread isin $1- {
msg $nick Memo Okumak icin Su Komutu yazarak komutu öğrenebilirsiniz.. /ms read memonumarası  Örnek :  /ms send 1 
}
if .ml?st iswm $1- {
msg $nick Memo Listenizi Görmek icin Su Komutu Uygulayınız  /ms list 
}
if .mfor isin $1- {
msg $nick Memolarınızı E-mail adresinize Göndermek icin Su komutu Uygulayınız /ms forward all
}
if .mdel isin $1- {
msg $nick Memolarınızı Silmek icin Su Komutu Uygulayınız  /ms del memonumarası  Örnek :  /ms del 1
}
if .ml?m iswm $1- {
msg $nick Memolarınıza Limit Koymak icin Su Komutu Uygulayınız /ms set limit LIMITSAYISI  Örnek : /ms set limit 10
}
if .m?nfo iswm $1- {
msg $nick Memolarınız Hakkındaki Bilgileri Görmek icin Su Komutu Uygulayınız  /ms info 
}
if .m?g iswm $1- {
msg $nick Herhangi Bir Kullanıcının Size Memo Göndermesini Engellemek icin Su Komutu Uygulayınız /ms ignore add nick  Örnek : /ms ignore add OzAn
}
}
on *pen:?: {
msg $nick Merhaba $nick, Yardım konularınız aşşağıdakilerdir.
msg $nick 0,1 .:: Lutfen komutları sorarken (4NOKTA 4(0 . 4)0,1) işaretini komut başına koymayı unutmayınız. Örneğin:4 .chan
msg $nick 0,1 .:: Chanserv Komutlarını Görmek icin = 4.chan0,1 yazarak komutu öğrenebilirsiniz.. ::.
msg $nick 0,1 .:: Nickserv Komutlarını Görmek icin = 4.nick0,1 yazarak komutu öğrenebilirsiniz.. ::.
msg $nick 0,1 .:: Memoserv Komutlarını Görmek icin = 4.memo 0,1yazarak komutu öğrenebilirsiniz.. ::.
}
on 1s:JOIN:#help: {
msg $nick Merhaba 
}

Seslenme remotesi V.2
Seslenme remotesi V.2 eklendi yepyeni seslenme remotesi sitemize eklendi iyi eğlenmeler.
on *:load: {
if ($version >= 5.81) {
set %me $me
set %ses +
echo -a 14 Ses Sistemi Menubar Popups\'una 4Yüklendi.
echo -a 14 Menubari Bilmiyorsaniz 4/ses 14Komutunu Kullanın...
echo -a 14 Eğer $öyle bir hata ile kar$ila$irsaniz 6> 4 * /dialog: \'ses\' error loading icon \'images/ses.bmp\' (line 16 ses.mrc) 14 Lütfen 4ses.bmp 14 dosyasını mIRC32.exe dosyasıyla aynı yere koyun.
ses
}
else {
}
}
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
alias ses {
if ( $dialog(ses) == $null ) { dialog -m ses ses }
else { /zaten }
}
dialog ses {
size -1 -1 350 300
title \"* Ses Düzenleme\"
button \"Tamam\" 500 500 570 75 30ok
text \"Bağlandığımda\"15 13 75 20
text \"Kanala Girdiğimde\"25 33 95 20
text \"Op - Voice\"35 53 75 20
text \"Kick Me\"45 73 75 20
text \"Kick User\"55 93 75 20
text \"Ping\"65 113 75 20
text \"Nickim Geçtiğinde\"75 133 95 20
text \"Notifyde\"85 153 75 20
text \"Düştüğümde\"95 173 75 20
edit \"\"10100 10 160 20autohs
edit \"\"11100 30 160 20autohs
edit \"\"12100 50 160 20autohs
edit \"\"13100 70 160 20autohs
edit \"\"14100 90 160 20autohs
edit \"\"15100 110 160 20autohs
edit \"\"16100 130 160 20autohs
edit \"\"17100 150 160 20autohs
edit \"\"18100 170 160 20autohs
icon 19 270 5 30 30 ses.bmp
icon 20 270 25 30 30 ses.bmp
icon 21 270 45 30 30 ses.bmp
icon 22 270 65 30 30 ses.bmp
icon 23 270 85 30 30 ses.bmp
icon 24 270 105 30 30 ses.bmp
icon 25 270 125 30 30 ses.bmp
icon 26 270 145 30 30 ses.bmp
icon 27 270 165 30 30 ses.bmp
button \"Ayarla\"28 300 10 40 20
button \"Ayarla\"29 300 30 40 20
button \"Ayarla\"30 300 50 40 20
button \"Ayarla\"31 300 70 40 20
button \"Ayarla\"32 300 90 40 20
button \"Ayarla\"33 300 110 40 20
button \"Ayarla\"34 300 130 40 20
button \"Ayarla\"35 300 150 40 20
button \"Ayarla\"36 300 170 40 20
edit \"\" 37 100 210 200 80multivsbar
radio \"Açik\"38 5 210 40 20
radio \"Kapali\"39 5 230 60 20
}
; Hepsi Acik & Hepsi Kapali xxxxxxxxxxxxxxxx
on *:dialog:ses:sclick:39:{
set %ses -
did -r ses 10
did -r ses 11
did -r ses 12
did -r ses 13
did -r ses 14
did -r ses 15
did -r ses 16
did -r ses 17
did -r ses 18
did -b ses 10
did -b ses 11
did -b ses 12
did -b ses 13
did -b ses 14
did -b ses 15
did -b ses 16
did -b ses 17
did -b ses 18
}
on *:dialog:ses:sclick:38:{
set %ses +
did -e ses 10
did -e ses 11
did -e ses 12
did -e ses 13
did -e ses 14
did -e ses 15
did -e ses 16
did -e ses 17
did -e ses 18
did -a ses 10 %ses.1
did -a ses 11 %ses.2
did -a ses 12 %ses.3
did -a ses 13 %ses.4
did -a ses 14 %ses.5
did -a ses 15 %ses.6
did -a ses 16 %ses.7
did -a ses 17 %ses.8
did -a ses 18 %ses.9
}
;xxxxxxxxxx açilis xxxxxxxxxxxxxxxx
on *:dialog:ses:init:*:{
if %ses == - {
did -c ses 39
did -r ses 10
did -r ses 11
did -r ses 12
did -r ses 13
did -r ses 14
did -r ses 15
did -r ses 16
did -r ses 17
did -r ses 18
did -b ses 10
did -b ses 11
did -b ses 12
did -b ses 13
did -b ses 14
did -b ses 15
did -b ses 16
did -b ses 17
did -b ses 18
}
else {
did -c ses 38
did -e ses 10
did -e ses 11
did -e ses 12
did -e ses 13
did -e ses 14
did -e ses 15
did -e ses 16
did -e ses 17
did -e ses 18
did -a ses 10 %ses.1
did -a ses 11 %ses.2
did -a ses 12 %ses.3
did -a ses 13 %ses.4
did -a ses 14 %ses.5
did -a ses 15 %ses.6
did -a ses 16 %ses.7
did -a ses 17 %ses.8
did -a ses 18 %ses.9
}
}
;XXXXXXXX BUTTON VE RESIM LINKLERI VE GOREVLERI DAGITILIYOR XXXXXXXXXXXXXXXXXXXXXX
on *:dialog:ses:sclick:19: if (%ses == +) && (%ses.1 != $null) { .splay %ses.1 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:20: if (%ses == +) && (%ses.2 != $null) { .splay %ses.2 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:21: if (%ses == +) && (%ses.3 != $null) { .splay %ses.3 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:22: if (%ses == +) && (%ses.4 != $null) { .splay %ses.4 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:23: if (%ses == +) && (%ses.5 != $null) { .splay %ses.5 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:24: if (%ses == +) && (%ses.6 != $null) { .splay %ses.6 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:25: if (%ses == +) && (%ses.7 != $null) { .splay %ses.7 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:26: if (%ses == +) && (%ses.8 != $null) { .splay %ses.8 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:27: if (%ses == +) && (%ses.9 != $null) { .splay %ses.9 } | else { did -r ses 37 | did -a ses 37 .... Bu kutucukta ses dosyasi yok! $crlf .... Veya ses ayarlari kapali | .timer 1 2 did -r ses 37 }
on *:dialog:ses:sclick:28: if (%ses == +) { set %ses.1 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 10 %ses.1 }
on *:dialog:ses:sclick:29: if (%ses == +) { set %ses.2 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 11 %ses.2 }
on *:dialog:ses:sclick:30: if (%ses == +) { set %ses.3 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 12 %ses.3 }
on *:dialog:ses:sclick:31: if (%ses == +) { set %ses.4 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 13 %ses.4 }
on *:dialog:ses:sclick:32: if (%ses == +) { set %ses.5 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 14 %ses.5 }
on *:dialog:ses:sclick:33: if (%ses == +) { set %ses.6 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 15 %ses.6 }
on *:dialog:ses:sclick:34: if (%ses == +) { set %ses.7 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 16 %ses.7 }
on *:dialog:ses:sclick:35: if (%ses == +) { set %ses.8 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 17 %ses.8 }
on *:dialog:ses:sclick:36: if (%ses == +) { set %ses.9 $1 $file=\"Bir Ses Dosyasi Seçiniz\" $mircdir\\*.wav | did -a ses 18 %ses.9 }
;XXXXXXXXXX SESLER UYGULANIYOR XXXXXXXXXXXXXXXXXXX
raw 329:*:{ set %me $me | if (%ses == +) && (%ses.2 != $null) { .splay %ses.2 } | halt }
ON *:OP:#: { set %me $me | if ($opnick == $me) && (%ses == +) && (%ses.3 != $null) { .splay %ses.3 } }
ON *:VOICE:#: { set %me $me | if ($opnick == $me) && (%ses == +) && (%ses.3 != $null) { .splay %ses.3 } }
on *:KICK:#:{ set %me $me | if ($knick == $me) && (%ses == +) && (%ses.4 != $null) { .splay %ses.4 | .timer 1 0 join # } }
alias /kick { set %me $me | /kick # $$1 | if (%ses == +) && (%ses.5 != $null) { .splay %ses.5 } }
alias /ping { set %me $me | /ctcp $$1 ping | if (%ses == +) && (%ses.6 != $null) { .splay %ses.6 } }
on *:text:%me:#: { if (%ses == +) && (%ses.7 != $null) { .splay %ses.7 } }
on *:NOTIFY:{ set %me $me | if (%ses == +) && (%ses.8 != $null) { .splay %ses.8 } | echo -a 14 $nick 4Online }
on DISCONNECT: { if (%ses == +) && (%ses.9 != $null) { .splay %ses.9 } }
on CONNECT: { set %me $me | if (%ses == +) && (%ses.1 != $null) { .splay %ses.1 } }
;XXXXXXX ADDON KISAYOLU MENUBARA ATILIYOR XXXXXXXXXXXX
menu menubar {
-
Seslenme
.Sesleri Ayarla:set %me $me | ses
.-
.Unload: {
unset %ses
unset %ses.1
unset %ses.2
unset %ses.3
unset %ses.4
unset %ses.5
unset %ses.6
unset %ses.7
unset %ses.8
unset %ses.9
unset %me
echo -a 14 Ses Düzeni 4 Unload 14Edildi...
.unload -rs $script
}

Whois Code

irc kodu:
raw 301:*: {
haltdef
echo -a 4» Away Durumu:12 ( $+ $3- $+ )
}
raw 310:*: {
haltdef
echo -a 4» IRC Helper
}
raw 311:*:{
echo -a 4————————-1<12Kimlik Bilgisi Sorgulamas?1>4————————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» ?p Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo -a 4» Kanaldaki Klonlar?: (14 Clone yok! 4)
else echo -a 4» Klonlar?: 4( $+ $numtok(%clone,44) $+ 4) 1ki?i:12 %clone
haltdef
}
alias kanalclone {
if ($ial($address($1,2),0) == 1) return
var %nickler = 0 | var %clone = $1
while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
return %clone
}
raw 338:*:{
haltdef
echo -a 4» Gerçek ?p Adresi: $3
echo -a 4» Gerçek ?p: $4
}

raw 312:*:{
haltdef
echo -a 4» Ba?l? Oldu?u Server: $3
}
raw 313:*: {
haltdef
echo -a 4» Network Özelli?i: $5 $6 $7 $8 $9
}
raw 307:*: {
haltdef
echo -a 4» Kay?t Durumu: Bu Nick Kay?tl? ve ?dentify Edilmi?tir.
}

raw 314:*:{
haltdef
echo -a 4————————1<12Kimlik Bilgisi Sorgulamas? Sonu1>14———————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» ?p Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 317:*:{
haltdef
%idle = $replace($duration($3),secs, saniye,sec, saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,day s,gün,day,gün,wks,hafta,wk,hafta)
%baglanis = $replace($asctime($4),mon,Pazartesi,tue,Sal?,wed,Ç ar?amba,thu,Per?embe,fri,Cuma,sat,Cumartesi,sun,Pa zar,jan,Ocak,Feb,?ubat,Mar,Mart,apr,Nisan,May,May? s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct ,Ekim,Nov,Kas?m,Dec,Aral?k)
echo -a 4» Ba?land??? Zaman: %baglanis
echo -a 4» Bo? Oldu?u Süre: %idle
echo -a 4» Ba?land?ktan Sonra Geçen Süre: $duration($calc($ctime - $4))
}
raw 318:*:{
haltdef
echo -a 4———————–1<12Kimlik Bilgisi Sorgulamas? Sonu1>4———————
}
raw 319:*:{
haltdef
echo -a 4» Kanallar?: $3-
}
raw 320:*:{
haltdef
echo -a 4» swhois: $4-
}
raw 378:*:{
haltdef
echo -a 4» Gerçek Ip Adresi: $6
}
raw 379:*:{
haltdef
echo -a 4» Nick modeleri: $6-
}
raw 671:*:{
haltdef
echo -a 4» Baglantı: $3-
}


HASH Kufur korumasi
mirc HASH Kufur korumasi
17.01.2011
irc kodu:
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
ban -u300 # $nick 3
kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
}
}
alias kufur {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
hadd kufur $2
secho  $2  veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(kufur,$2)) {
hdel kufur $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(kufur,0).item) {
set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
inc %x
}
if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@kufur)) { window -e @kufur }
echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.htb
on *:start: {
hmake kufur 1000
if ($exists(kufur.htb)) { hsave -o kufur kufur.htb }
hload kufur kufur.htb
}
/kufur ekle belirtilen kufuru tablomuza ekler
/kufur sil belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
seklinde eklendiginde sokarim sokrlar sokarak gibi kelimeler de de uyarilacak ve kanaldan atilacaktir


NotKodları Nasıl eklerim?: http://www.turkhackteam.net/msn-icq-...l-eklenir.html
---------------------
Elazığspor


Gakgoşlar Ölmez

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı