| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Kimler Çevrimiçi |
Toplam: 78 kullanıcı aktif
» 1 Kayıtlı
» 76 Ziyaretçi
Google, chaos415
|
|
|
| Kanal Temizleme Systemi "Clear System " |
|
Yazar: Admin - 05-26-2020, 08:10 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
 |
Kanal Temizleme Systemi "Clear System "
Kod: on *:text:*:#: {
if .clear iswm $1 {
if $nick isop $chan || $istok(%deopnick [ $+ [ $chan ] ],$nick,32) {
msg $chan Sayfa Temizleniyor...
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan
msg $chan 4SOHBET ODASI KURALLARI
msg $chan 2Kanal genelinde kufur/argo kelime kullanmak12,
msg $chan 2Kanal genelinde ve ozellerde reklam yapmak12,
msg $chan 2Kanal genelince Cinsel - Siyaset - Futbol icerikli sohbet etmek12,
msg $chan 2Ard arda kelime tekrari yapmak (flood)12,
msg $chan 2Kelimelerin sonunda harfleri uzatmak12,
msg $chan 2Kanal genelince tartismak v.b. seyler12
msg $chan 4Kesinlikle yasaktir12
msg $chan 14Genel kurallara bakmak icin:/motd Yapınız12.
msg $chan 2Seviyeli bir sohbet ortami olusturmak icin lutfen kurallara uyunuz12.
msg $chan 2Her turlu gorus/istek/dilek(leriniz) icin: 4lamerler.com 2'adresine mail veya msn yoluyla ulasabilirsiniz12.
msg $chan 4 Sunucu.Com 2Kullanıcılarına 4iyi Sohbetler Diler...
}
else {
msg $chan " $+ $nick $+ " Kanalda Yetkili Durumunda Olmadiginiz İçin Bu Komutu Kullanamiyorsunuz. Lütfen Her Hangi Bir Servisten Yetki Alip Öyle Komutlari Kullaniniz.
}
}
}
|
|
|
3 Saniye içinde 4 Giris olursa kanalı +RM Alır 4 Cloneyide uzaklastırır. |
|
Yazar: Admin - 05-26-2020, 08:07 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Kod: 3 Saniye içinde 4 Giris olursa kanalı +RM Alır 4 Cloneyide uzaklastırır.
Kod: on @!*:JOIN:#KANAL:{
inc -u3 %joins [ %4$s %4$s($cid,$chan) ]
set -u3 %joinsnicks [ %4$s %4$s($cid,$chan) ] $addtok(%joinsnicks [ %4$s %4$s($cid,$chan) ],$nick,32)
if (%joins [ %4$s %4$s($cid,$chan) ] > 4) {
var %x = %joins [ %4$s %4$s($cid,$chan) ]
mode $chan +MR
.timer 1 30 mode $chan -MR
while (%x) {
if ($gettok(%joinsnicks [ %4$s %4$s($cid,$chan) ],%x,32) ison $chan) { ban -u1000 $chan $ifmatch 2 | kick $chan $ifmatch 4 # 1Kanal Kurallarına Aykırı Hareket Eddiniz. }
dec %x
}
}
}
Saldırı Anında Kanalı +m ye Alır
Kod: on @*:join:#:{
if (globaldesk isin $address) || (admin isin $address) || (oper isin $address) || (Helpdesk isin $address) || (Operdesk isin $address) { halt }
if ($nick isop #) return
var %join.flood = $wildsite
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
set -u4 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1
return
}
else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 3) {
if (%join.check. [ $+ [ $wildsite ] ] == $null) {
set -u1 %join.check. [ $+ [ $wildsite ] ] 1
.mode # +M
.timer 1 40 /mode # -M
.Mode # +b $address($nick,2)
}
Kanalı sürekli +M'de tutmak
Kod: on *:mode:#kanalın:{ if -*M* iswmcs $1 { mode # +M } }
|
|
|
|
| #guvenlik kanalına girene kod sorgulatma |
|
Yazar: Admin - 05-26-2020, 08:00 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
#guvenlik kanalına girene kod sorgulatma
Kod: 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 #guvenlik 2Merhaba 4 $nick , 2 Suan Bot Olarak Algilaniyorsunuz ;
msg #guvenlik 4 2 Dakika 2İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz!
msg #guvenlik 2Bot Olmadiginizi Belirtmek İçin Lütfen 4!nobot %version [ $+ [ $address($nick,2) ] ] 2Komutunu Özelime Yaziniz.
msg #Opers 4[BILGI] 2[Nick: $nick ] 7[Version Çekildi]
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 { zline $$1 1h Güvenlik Kodunu Yanlış Girdiğinizden dolayı sunucudan uzaklastırıldınız. $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 Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
sapart $nick #guvenlik
close -m $nick
halt
}
}
if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) {
msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
sapart $nick #guvenlik
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
}
}
|
|
|
|
|
LOG , belirlediğiniz kanalı okuyabilirsiniz. |
|
Yazar: Admin - 05-26-2020, 07:58 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
LOG , belirlediğiniz kanalı okuyabilirsiniz.
Kod: on *:text:*:#:{
if $chan == #kanalkontrol {
if $1 == !log && $chr(35) isin $2 { set %logchan $2 | msg %log $nick Tarafından $2 kanalının LOG'ları yansıtılacak (AJAN System) }
if $1 == !log && $2 == off { set %logchan x | msg #kanalkontrol Ajan Systemi Kapatıldı. }
}
if %logchan == $chan { msg #kanalkontrol $date $timestamp $+(,$nick,) $+ mesaj: $1- }
}
|
|
|
|
MultiJOIN 7 Saniyeli Sistem |
|
Yazar: Admin - 05-26-2020, 07:55 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
MultiJOIN 7 Saniyeli Sistem
Kod: ;Botun Nicki
alias botnick return JoinServ
;Botun Nick Sifresi
alias nickpass return brusk
;Botun Operi ve Sifresi
alias opers return Sistem brusk
;Botun Girecegi Sunucu ve Portu
alias sunucu return irc.lamerler.com 6667
;Botun Sunucuya Sokacagi Kanallar
alias girischan return #bulmaca,#radyo,
;Botun Bekletme Suresi
alias beklemesure return 7
;Botun Giriste Uygulatacagi Parametreler --
;Join Parametresi - Giriste 7 Saniye Statuste Bekletip Sonra Kanallara Alinir , ve Komut Kullanimi Bekletme suresi kadar yasaklanilir.
;Privmsg Parametresi - Giriste Join Yaparak Kanallara Alinip - Kanallarda Konusma Yasaklatilir. ve komut kullanamaz.
;alias girissistem return join
alias girissistem return join
alias bagla {
sockclose $botnick
sockopen $botnick $sunucu
}
alias kopar {
sockclose $botnick
}
alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}
on *:SOCKOPEN:$($botnick): {
sw $sockname nick Guard $+ $r(0,99)
sw $sockname USER JoinServ " " : $+ $+([,,$botnick,,]) ( System v1 * by JoinServ)
}
on *:sockread:$($botnick): {
if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
var %q
sockread %q
tokenize 32 %q
if $2 == 005 {
sw $sockname oper $opers
sw $sockname join 0,
sw $sockname nick $botnick
sw $sockname identify $nickpass
}
if $1 == PING {
sw $sockname PONG $2
}
if ($2 == 352) {
sw $sockname shun -*@ $+ $6
}
if ($2 == notice) {
if (connecting isin $1-) {
if ($girissistem == join) {
sw $sockname shun $12 $+(+,$calc($beklemesure - 1)) $botnick JOIN Sistem!
sw $sockname notice $12 ~~~~~~~~~~~~~~ $botnick Socket Sistem Giris Teknolojiy v1 * By JoinServ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sw $sockname notice $12 -
sw $sockname notice $12 1Merhaba5 $12 ,1Sunucu Korumalarindan Geciyorsunuz Lutfen Bekleyiniz..
sw $sockname notice $12 -
sw $sockname notice $12 1Kanallara Alinma Sureniz 5 $beklemesure 1 Saniyedir..
$+(.timer,$12) 1 $beklemesure sw $sockname notice $12 1Sureniz Tamamlanmistor , Kanallara Aliniyorsunuz. $(|) sw $sockname who +I $12 $(|) sw $sockname os raw svsjoin $12 $girischan
}
if ($girissistem == privmsg) {
sw $sockname shun $12 $+(+,$calc($beklemesure + 1)) $botnick PRIVMSG Sistem!
sw $sockname os raw svsjoin $12 $girischan
sw $sockname privmsg $12 4~~~~~~~~~~~~~~~1 $botnick Socket Sistem Giris Teknolojiy v1 * By JoinServ 4~~~~~~~~~~~~~~~~~~~~~~~
sw $sockname privmsg $12 -
sw $sockname privmsg $12 1Merhaba5 $12 ,1Sunucu Korumalari Konusma Yasagi ve Komut Kullanimi Yasagi Konulmustur.
sw $sockname privmsg $12 -
sw $sockname privmsg $12 1Yasaklarinizin Kalkma Suresi 5 $beklemesure 1 Saniyedir..
$+(.timer,$12) 1 $beklemesure sw $sockname privmsg $12 1Sureniz Tamamlanmistor , Artik Konusmama Engeliniz Kalkmistir , Hos Sohbetler..
}
}
}
}
|
|
|
|
| Istenmeyen Nicklere B L O C K ! |
|
Yazar: Admin - 05-26-2020, 07:51 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Istenmeyen Nicklere B L O C K !
Kullanımı : /ksc
İşlev : Bellirlediğimiz ; nick - ident - host 'lar ; yazı yazıldığında ve list'e ekli ise , @Engel Penceresine yansıtacaktır. Kanal + Özel Konuşma birleştirildi.
Kod: alias ksc { /dialog -m ı-dncr ı-dncr }
dialog ı-dncr {
title "KSC system "
size -1 -1 467 274
option pixels
box "", 11, 19 13 430 256
text "KSC System", 1, 136 3 167 20
edit "", 3, 125 37 186 20, center
button "Engel Nick liste ekle", 8, 30 70 190 30, flat
button "Engel İdent liste ekle", 4, 30 108 190 30, flat
button "Engel host liste ekle", 5, 30 148 190 30, flat
button "Host engel list'en sil", 2, 240 148 190 30, flat
button "İdent engel list'en sil", 6, 241 108 190 30, flat
button "Nick engel list'en sil", 7, 240 70 190 30, flat
button "Kapat", 9, 125 190 192 29, flat
text " Kişiye özel Engel koruması", 10, 24 228 413 16
text " KSC Farkı Hisset", 12, 140 248 165 16
}
on 1:dialog:start:*:*: {
if ($devent == init) {
did -a start 3 $null
}
if ($devent == sclick) {
if ($did == 8 ) { /auser engel $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Engel Liste eklendi }
}
if ($devent == sclick) {
if ($did == 9 ) { /dialog -c ı-dncr ı-dncr }
}
|
|
|
|
| Saldırıda oto +m ve temizleme |
|
Yazar: Admin - 05-26-2020, 07:48 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Kanal belirlediğiniz flood saldırısında, kanalı belirlediğiniz süre ile +m moduna alıp, temizle.mrc dosyasındaki verilerle kanalı temizleyip tekrar kanalaı açmak için kullanılan bir kod
Kod: alias -l fld {
hinc $+(-mu,$1) fld $+($3,½,$4,$encode($5)) 1
if ($hget(fld,$+($3,½,$4,$encode($5))) >= $2) return $true
else return $false
}
alias temizle {
var %t 1
while %t <= $lines(temizle.mrc) {
msg $1 $read(temizle.mrc,%t)
inc %t
}
}
on @*:text:*:#: {
if $nick isreg # && $fld(10,3,#,$nick,$1-) {
ban -k # $nick 2 sebeb.
mode # +m
temizle #
msg # Kanal güvenlik amaçlı 25 sn +m moduna alındı.
if !$timer($+(#,½,fld)) {
$+(.timer,½,#) 1 25 mode # -m
.timer 1 26 msg # Kanal açıldı.
}
}
}
|
|
|
|
| #Dj Kanalına Özel Codeler |
|
Yazar: Admin - 05-26-2020, 07:45 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Kod'u Kopyalayın Bot Yapacağınız mIRC ' de ALT R Yaparak Dosya Sekmesinden Yeni Seçeneğini TıklayıN. Açılan Yeni Pencereye Bu Kod'u Yapıştırıyoruz Hepsi Bu Kadar.
Not : Kod Sadece #Dj Kanalında Çalışmaktadır #Dj Kanalına Ve Dj'lere Özel Olduğu İçin
Kırmızı İle Belirttiğim Yerleri Kendinize Göre Ayarlayın
Kod: on *:Join:#dj: {
msg $chan 14------------------------------
msg $chan 4 Hoşgeldiniz 5 Dj' $nick
msg $chan 14------------------------------
msg $chan 14----------------------------------------------------------------------------------------
msg $chan 4Dj 5Kanalında Yapabiliceklerinizi Görmek İçin 4 !Bilgi 5Yazabilirsiniz.
msg $chan 14----------------------------------------------------------------------------------------
}
on *:TEXT:*:#dj: {
if ($1 == !var) { /msg $chan $2 5Nickinin Özeline Mesaj Yollanmıştır 1. | /msg $2 5 İstediğiniz Şarkı Mevcut 1, 5 Çalma Listesine Alınmıştır 1. 4Teşekkür Ederiz 1. }
if ($1 == !yok) { /msg $chan $2 5Nickinin Özeline Mesaj Yollanmıştır 1. | /msg $2 5 Üzgünüm İstediğiniz Şarkı Mevcut 4Değildir 1. 5Dilerseniz Başka Bir İstek Şarkısı İsteyebilirsiniz 1. }
if ($1 == !reklam) { /msg $chan $2 5Nickine Özel Radyo Global Reklamı Atılmıştır 1. | /os global 7 Radyo Yayınımızı 4 Dj' $2 7 İle Dinlemek İçin Tıklayın >> Radyonuzun Linki }
if ($1 == !şifre) { /msg $chan 4 Bu Bilgileri Lütfen Kimseyle Paylaşmayın.
/msg $chan 14----------------------------------------------------------------
/msg $chan 5 IP 1: 4 22.000.111.444
/msg $chan 5 Port 1: 4 0100
/msg $chan 5 Şifre 1: 4 Radyo Şifresi
/msg $chan 14----------------------------------------------------------------
/msg $chan 14--------------------------
/msg $chan 5 Radyo Bilgilerinin Sonu.
/msg $chan 14--------------------------
/msg $chan 14----------------------------------------
/msg $chan 4 Radyo Bilgilerini Alan Nick 1( 5 $nick 1)
/msg $chan 14------------------------------------------
/msg $chan 5 Hoş Sohbetler 1, 5 İyi Yayınlar 7 $nick
/msg $chan 14------------------------------------------
}
if ($1 == !bilgi) {
msg $chan 14-------------------------------------------------------------------------------------------------------------------------------------------------
/msg $chan 5 İstenilen Şarkı Varsa 4 !var Nick 5 Yazınız 1( 6 Belirttiğiniz Nick'in Özeline Şarkının Olduğunu Belirten Mesaj Atar 1)
/msg $chan 5 İstenilen Şarkı Yoksa 4 !yok Nick 5 Yazınız 1( 6 Belirttiğiniz Nick'in Özeline Şarkının Olmadığını Belirten Mesaj Atar 1)
/msg $chan 5 Dj'e Özel Radyo Reklamı İçin 4 !reklam Nick 5 Yazınız 1( 6 Belirttiğiniz Nick'e Özel Radyo Global Reklamı Atar 1)
/msg $chan 5 Radyo Bilgileri İçin 4!şifre 5 Yazınız 1( 6 Radyo Bilgilerini : IP , Port , Şifre Bilgilerini Verir 1)
/msg $chan 5 !var Nick 1-- 5 !yok Nick 5 Komutlarında Kullanılan Mesajları Görmek İçin 4 !msj 5 Yazınız
/msg $chan 14------------------------------------------------------------------------------------------------------------------------------------------------
/msg $chan 14-----------------------
/msg $chan 5 Bilgi Listesinin Sonu.
/msg $chan 14-----------------------
}
if ($1 == !msj) {
msg $chan 14-------------------------------------------------------------------------------------------------------------------------------------------------
msg $chan !var Nick Komutunda ;
msg $chan 14-------------------------------------------------------------------------------------------------------------------------------------------------
msg $chan 5 İstediğiniz Şarkı Mevcut 1, 5 Çalma Listesine Alınmıştır 1. 4Teşekkür Ederiz 1.
msg $chan 14-------------------------------------------------------------------------------------------------------------------------------------------------
msg $chan 5 Mesajı Yollanıyor.
msg $chan 14-------------------------------------------------------------------------------------------------------------------------------------------------
msg $chan !yok Nick Komutunda ;
msg $chan 14-------------------------------------------------------------------------------------------------------------------------------------------------
msg $chan 5 5 Üzgünüm İstediğiniz Şarkı Mevcut 4Değildir 1. 5Dilerseniz Başka Bir İstek Şarkısı İsteyebilirsiniz 1.
msg $chan 14-------------------------------------------------------------------------------------------------------------------------------------------------
msg $chan 5 Mesajı Yollanıyor.
}
}
|
|
|
|
|
Sqline Listesini Temizleme kod |
|
Yazar: Admin - 05-26-2020, 07:42 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Sunucunuzdaki sqline listesini tek tek silmek yerine, bu kod sayesinde sqlineyi temizleyebileceksiniz. mIRC Remote kısmına ekleyin ve /_temizle yazarak sqline listesini temizleyin..
Kod: alias _temizle { .set -u3 %:sqline on | echo -a Sqline List Temizleniyor.. | os sqline list }
on *:notice:*:?:{
if %:sqline == on {
if ($nick == OperServ) && (SQLINE listesinden silindi !isin $strip($1-)) {
if (Aktüel liste: isin $1-) { return }
os sqline del $1
}
}
}
|
|
|
|
|
