| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Forum İstatistikleri |
» Toplam Üyeler: 2,482
» Son Üye: Hayko
» Toplam Konular: 4,687
» Toplam Yorumlar: 9,117
Detaylı İstatistikler
|
| Kimler Çevrimiçi |
Toplam: 73 kullanıcı aktif
» 0 Kayıtlı
» 72 Ziyaretçi
Google
|
|
|
Kanal Modları |
|
Yazar: Admin - 05-13-2020, 10:08 PM - Forum: IRCd Makaleler
- Yorum Yok
|
 |
Kullanimi : / Mode #KanalAdi +/-Mode
Örnegin : Mode Yerine +c Yazarsam Renkli Yazıların Kanala Gitmesini Engellerim.Kimse Renkli Yazı Yazamaz Kanalda.
Eger Kanala Renkli yazi Gelmesini istiyorsam -c Yaparım
Anlatilmak istenen ( + ) Ve ( – ) Değiskendir.
Eksi ( – ) : DeAktif Eder.
Artı ( + ) : Aktif Eder.
-
şimdi Kanal Modları ve Anlamlarını Anlatacağım , Alfabetik Sıraya Göre Gitmeye Özen Gösterdim.
+A modu : Kanala Admin Olmayan Giremez.
Kullanim : / Mode #KanalAdı +A
+b modu : Kanala Bir Nickin girişini Engeller. Kısacası +b ; Birine Ban Atmak için Kullanılır.
Kullanim : / Mode #KanalAdı +b Nick
+C modu : Kanala ctcp mesajları ( time , ping , version gibi ) Verilerin gönderilmesini engeller ,
Kullanim : / Mode #KanalAdı +C
+c modu : Kanalda renkli yazı yazılmasını engeller , yazılan yazılar görüntülenmez ,
Kullanim : / Mode #KanalAdı +c
+e modu : Kanalda banlardan etkilenmeyecek bir maske eklemek için kullanılır ( Acilimi : – exception-) , belirtilen nickname ban korumasına alınır.
Kullanim : / Mode #KanalAdı +e Nick
+f modu : Kanalda flood ( tekrar ) koruması için kullanılır. Basit kullanımı /mode #kanal +f Satır:Süre ( kullanıcılar kanalda belirtilen Sürede -Saniye- , belirtilen satırdan daha fazla yazı yazarsa kanaldan kicklenir
Kullanim : /mode #KanalAdi +f Satır:Süre
( kullanıcılar kanalda belirtilen Sürede , belirtilen satırdan daha fazla yazı yazarsa kanaldan kicklenir -Atılır- )
+G modu : Kanalda Adminler tarafından şeklinde filtrelenmiş bazı sözcüklerin ve url adreslerinin görüntülenmesini engeller
Kullanim : / Mode #KanalAdı +G
+I modu : Kanala giriş yapabilecek kullanıcı sayısına sınırlama getirmek için kullanılır , ( Sayı : Maximum kullanıcı sayısı )
Kullanim : / Mode #KanalAdı +I Sayı
+i modu : Bu modda bulunan ( davetsel konum ) bir kanala sadece davet edilenler ve kendisini chanserv’e davet ettirenler ( kanalda yetkisi olanlar yapabilir ) girebilir ,
Kullanim : / Mode #KanalAdı +i
Yetkin Varsa Kanala Girmek icin ;
Kullanim : /ChanServ invite #KanalAdi Seklindedir.
+j modu : Kanala yapılan girişlerde belirtilen sayıdan sonra yapılacak olan ilk girişe zaman limiti ( bekleme süresi ) koymak için kullanılır
Kullanim : /Mode #KanalAdi +j Sayı:Süre ( belirtilen Sayı’dan sonraki ilk giriş , belirtilen Süre kadar sonra olabilir )
+K modu : +i ( davetsel kanal ) moduyla birlikte kullanılabilir. +i modu sebebiyle kanala giremeyen kullanıcıların ( /knock #kanal mesaj ) şeklinde gönderdikleri mesajları engeller
Kullanim : / Mode #KanalAdı +K
+k modu : Kanala girişleri şifre ile sınırlar , sadece belirlenen şifreyi bilenler kanala giriş yapabilirler ,
Kullanim : / Mode #KanalAdı +k Sifre
+L modu : Kanalı bi başka kanala linklemek ( yönlendirmek , bağlamak )için kullanılır
Kullanim : / Mode #AKanali +L #BKanali ( A Kanalina Girenler Otomatik Olarak B Kanalına girecekler )
A Kanalinin Devamli B Kanalina Linkli Olunmasini isteniyorsa ;
Kullanim : / ChanServ Set #AKanali mlock +lL 1 #BKanali
+l modu : Bir kullanıcıyı +i ( davetsel kanal ) modundan etkilenmemesi için korumaya almayı sağlar , Kullanımı /mode #kanal +I Nick şeklindedir
Kullanim :
+M modu : Kanal penceresinde sadece kayıtlı ( ident edilmiş ) nicklerin konuşabilmesini sağlar , Kisacasi Nicki Sifreli Olan Konusabilir.
Kullanim : / Mode #KanalAdı +M
+m modu : Bu modda bulunan bir kanalda sadece voice ( + ) ve üst yetkide olan ( % , @ , & , ~ ) kullanıcıların konuşabilmesini sağlar ,
Kullanim : / Mode #Kanal +m
+N modu : Kanalda Nick Kimse Degistiremez.
Kullanim : / Mode #Kanal +N
+n modu : Bu mode kanalda bulunmayan kullanıcıların , kanal içerisine /notice mesaj , /msg mesaj vb. yöntemlerle mesaj göndermelerini engeller ,
Kullanim : / Mode #Kanal +n
+O modu : kanala girişleri IRCop’lar ile sınırlandırır [ IRCop(Oper) Olan Kanala Girebilir ]
Kullanim : / Mode #Kanal +O
+p modu : Bu modda bulunan kanallar, sunucuda /List komutu ile alınabilen genel kanal listesinden saklanır.
Kullanim : / Mode #Kanal +p
+Q modu : Q modunda olan bir kanalda kullanıcılar ‘kick’ ile uzaklaştırılamaz ( servicesler bu moddan etkilenmeden kick uygulayabilirler )
Kullanim : / Mode #Kanal +Q
+R modu : Kanala sadece kayıtlı ( register ) nicklerin giriş yapabilmesini sağlar
Kullanim : / Mode #Kanal +R
+r modu : Kanalın chanserv tarafından kaydedildiğini ( register ) gösterir.
Kullanim : Kanal Kaydetme Komutu Yapildiktan Sonra Kanal Kaydedilir.. +r Moduna Sahip Kanallar Kayitli Anlamina Gelir.. Sureklidir ,
+S modu : Kanalda yazılan renkli yazılar renksiz olarak ( yazıyı yazan renkli olarak görür ) görünür
Kullanim : / Mode #Kanal +S
+s modu : Kanal içinde bulunan herhangi bir kullanıcıya /whois çekildiğinde , kullanıcının içinde bulunduğu kanallar listesinde görünmez.
Kullanim : / Mode #Kanal +s
+u Modu : bu mode uygulandıgında kanal sahibini , ve Yetkilileri Kanala giren Kişi göremez.Gizlilik modesidir.
Kullanımı : /Mode Nick +u
+T modu : Kanalda sadece voice ( + ) ve üst yetkide olan ( % , @ , & , ~ ) kullanıcılar /notice #kanal mesaj şeklinde mesaj gönderebilirler ,
Kullanim : / Mode #Kanal +T
+t modu : Kanalda sadece kanal operatörleri topic değiştirebilir , sadece mlock ile değiştirilebilir
Kullanim : / Mode #Kanal +t
+V modu : Hiç bir kullanıcı kanala davet edilemez , /invite Nick #kanal komutunun kullanımı yasaklanır
Kullanim : / Mode #Kanal +V
+Z Modu : Bu Mode ile sadece guvenli baglanti yapanlar kanala girebilir. ( Mlock ile Alınabilir. )
Kullanim : / Cs Set #kanal mlock +z
NOT : Eğer Kanalda Kullanilacak Mode Nick ile Baglantili ise ;
Kullanimı : /mode #kanalAdi +/-Mode Nick
İRCFORUMLARI LAMERLER FORUM SİTESİ
|
|
|
| Çok Aranan Fakat Bulunamayan Komutlar: |
|
Yazar: Admin - 05-13-2020, 10:04 PM - Forum: IRCd Makaleler
- Yorum Yok
|
|
Nomercy üzerinde kanallara ve özellere atılan Reklam ve DUYURU mesajlarına çoğumuz denk gelmişizdir.
Bu mesajları hangi komutla atıldığını merak edeniniz oldu mu hiç?
Komutu bilemeyen kullanıcılar için paylaşmak istedim;
ıRC User konuşturma ve işlem yaptırma:
/sendraw #bundugu-kanal ::User-Nick PRIVMSG #konusturulacak-Kanal mesajınız
Örnek:
/sendraw #Uğur ::Türkiye PRIVMSG #Sohbet Selam.
iRC`de görünmeden mesaj yazma:
Komut:
/sendraw #Bulunduğu-Kanal ::nick quit Mesaj
Örnek:
/sendraw #Uğur ::Türkiye quit PingTimeout
Önemli: Komutu yazarken çıkış mesajında boşluk kullanılmaz. Sendraw komutu bunlarla sınırlı değildir.
Useri özelde konuşturma:
Komut:
/sendraw #Bulunduğu-Kanal ::User-Nick PRIVMSG Mesaj-Yazılacak-Nick Mesajınız.
Örnek:
/sendraw #Uğur ::Türkiye PRIVMSG İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir! Nbr kanka nasılsın?
Bilgilendirme: Privmsg komutunu özeldellerde boşluk bırakarak mesaj göndere bilirsiniz, bu komutu Reklam kontrol ve sunucu amaçlarına uygun Yönetim bilgilendirme mesajı, reklam amaçlı kullanabilirsiniz.
Yukarıda basitçe anlatmaya çalıştığım komutu sunucunuzda kullanmanız için önce Root Admin, Network Admin olmanız gerekiyor.
Sendraw komutunun sunucu Unreal`inizde kurulu olmasına dikkat ediniz.
|
|
|
|
|
OTO SELAM ALMA ADDONLARI |
|
Yazar: Admin - 05-13-2020, 09:54 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
OTO SELAM ALMA ADDONLARI codeleri mIRC‘inizde alt+R yaparak remoteler kısmına güzelce eklerseniz, selam alma addonunuz çalışacaktır.
Kod: menu status,menubar,channel {
.-
.» Auto selam System
..Açık:.enable #Otoselam | .echo -a 6 Auto selam System açıldı
..Kapalı:.disable #Otoselam | .echo -a 6 Auto selam System kapatıldı
.-
}
#Otoselam off
on *:text:*:#, :{ if $istok(slm s.a. sa selam Selamın Aleyküm Selamın Aleykum selamlar slms sLm. Selams s.a SeLamun ALeyküm ,$1-,32) { inc -eu10 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # aLéyküm SéLam $nick hoŞgeLdin (: } }
}
on *:Action:*:#, :{ if $istok(slm s.a. sa selam Selamın Aleyküm Selamın Aleykum selamlar slms sLm. Selams s.a SeLamun ALeyküm ,$1-,32) { inc -eu10 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # aLéyküm SéLam $nick hoŞgeLdin (: } }
}
#Otoselam end
Kod: dialog otos {
title “oto selam”
size -1 -1 60 53
option dbu
button “Açık”, 1, 12 5 37 12
button “Kapalı”, 2, 12 20 37 12
button “Tamam”, 3, 12 35 37 12, cancel
}
alias otos dialog -m otos otos
on *:dialogtos:sclick:*: {
if ($did == 1) { .enable #otos }
if ($did == 2) { .disable #otos }
}
#otos on
on *:text:*:?: {
msg $nick A.selam $nick
}
#otos end
Kod: on *:text:s.a:#:{ /msg $chan a.selam $nick hoşgeldin }
on *:text:slm:#:{ /msg $chan a.selam $nick hoşgeldin }
on *:text:selam:#:{ /msg $chan a.selam $nick hoşgeldin }
on *:text:selamlar:#:{ /msg $chan a.selam $nick hoşgeldin }
on *:text:selam aleykum:#:{ /msg $chan a.selam $nick hoşgeldin }
on *:text:s.aleykum:#:{ /msg $chan a.selam $nick hoşgeldin }
Kod: on @*:text:*:#:{
if ($nick isreg $chan) {
if (selam iswm $1-) || (s.a. iswm $1-) || (sa iswm $1-) || (slm iswm $1-) {
msg $chan ALeykum SeLaM 5 $nick }
}
Kod: on *:text:*:#:{ if $istok(slm sa selam selamm SLmlar sa selamlar s.a,$1-,32) { inc -eu60 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # $read(selam.txt) $nick } } }
on *:action:*:#:{ if $istok(slm sa selam selamm sa slmlar selamlar s.a,$1-,32) { inc -eu30 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # $read(selam.txt) $nick } } }
$read(selam.txt) Ayrica mirc klasorunda bir txt dosyasi acip icine bir kac selam yazisi yazip alt altta tabi bolece her selama ayri bir selam alarak cevap vermis olursunuz ve herkes sizi online zanneder.bot sanmayacaklardir.
selam.txt dosyasi acmak istemiyorsaniz kodu remoteye ekleyip sadece kirmizi kismi a.selam gibi degisiniz.
Kod: on *:text:*:#:{ if $istok(slm selam selamlar s.a,$1-,32) { inc -eu10 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # selam $nick } } }
Kodun işlevi:
1 Kişiye 300 saniyede selam verdiği taktirde 1 kere cevap verecektir. aynı kişi 300 saniye yani 5 dakika dolmadan selam yazsa dahi cevap vermeyecek ancak o süre bittikten sonra selam yazarsa karşılık yazacaksınız.
Not:
slm|selam|s\.a|s\.l\.m|sa\.
vs şeklinde selam türlerini çoğaltırsınız.
Kod: On *:Text:*:#:{
if $regex($1-,/(slm|selam|s\.a|s\.a\.)/ASi) && !$var($+(%,cesur,$nick)) {
msg $chan Aleykum Selam $nick
.set -u300 $+(%,cesur,$nick)
}
}
|
|
|
|
|
İstenmeyen Kanallardan oto çıkış |
|
Yazar: Admin - 05-13-2020, 09:46 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
İSTEMEDİNİZ KANALLARDAN OTO ÇIKMANIZA YARAYAN BİR ADDON OYUN KANALLARI GİBİ FAZLA KANALLARDAN OTO ÇIKINIZ LAMERLER FORUM İRCFORUM SİTESİ
Kod: on *:join:#: { if %kontrol $+ $network { if $istok(#oyun #yarisma #admin #ask #kelime #radyo #helpers #help #game #log #operhelp #ops #yetiskin,$chan,32) { part $chan } } }
on *:connect: { set -u60 %kontrol $+ $network }
|
|
|
|
|
Admin Nick, İdent ve Host Koruması |
|
Yazar: Admin - 05-13-2020, 09:38 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Bu koruma ile giren kullanıcıların nick, ident ve hostunu kontrol edip eklediğiniz nick , ident ve hostlara gzline atmanıza yarayan alternatif bir karaliste addonu.
Kod: ### /lamer komutu ile korumayı açabilirsiniz
### mircclub.org
alias lamer { /dialog -m start start }
dialog start {
title "Ident Nick Ekstra Korumaları"
size -1 -1 467 274
option pixels
box "", 11, 19 13 430 256
text "Güvenlik Giriş Ayarları", 1, 136 3 167 20
edit "", 3, 125 37 186 20, center
button "Nick gzline liste ekle", 8, 30 70 190 30, flat
button "İdent gzline liste ekle", 4, 30 108 190 30, flat
button "Host gzline liste ekle", 5, 30 148 190 30, flat
button "Host gzline list'en sil", 2, 240 148 190 30, flat
button "İdent gzline list'en sil", 6, 241 108 190 30, flat
button "Nick gzline list'en sil", 7, 240 70 190 30, flat
button "Kapat", 9, 125 190 192 29, flat
text " Bu koruma sunucuya hep aynı nick yada ident ile saldırıları önlemek için yazılmıştır.", 10, 24 228 413 16
}
on 1:dialog:start:*:*: {
if ($devent == init) {
did -a start 3 $null
}
if ($devent == sclick) {
if ($did == 8 ) { /auser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline Liste eklendi }
}
if ($devent == sclick) {
if ($did == 9 ) { /dialog -c start start }
}
if ($devent == sclick) {
if ($did == 7 ) { /ruser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline List'en silindi }
}
if ($devent == sclick) {
if ($did == 2 ) { /ruser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline List'en silindi }
}
if ($devent == sclick) {
if ($did == 4 ) { /auser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Liste eklendi }
}
if ($devent == sclick) {
if ($did == 6 ) { /ruser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Listen silindi }
}
if ($devent == sclick) {
if ($did == 5 ) { /auser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline Liste eklendi }
}
}
on gzline:join:#:{
gzline $nick : 4,1 Security Korumasi 4 $time -
}
İRCFORUMLARI LAMERLER FORUM İRCFORUM SİTESİ
|
|
|
|
|
Ip-nick-ident-koruması |
|
Yazar: Admin - 05-13-2020, 09:34 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
; Kodun çalışma mantığı aşağıda ki şemada belirtilmiştir.
; !ekle (IP Adresi) şeklinde ip ekleyebilir o nick'i sunucu/serverden uzaklaştırabilirsiniz.
; !ekle (@Ident) şeklinde ise, identd yasaklayabilirsiniz.
; !ekle Nick yaptığınızda da, bahsi geçen nick'i uzaklaştırır ayrıca, wildcard olarakta nickleri ekleyebilirsiniz örnk; *ali* olarak eklediniz ali ve türevi nickleri uzaklaştırır.
; !list (IP, NICK, IDENT) komutları ile de bahsi geçen listeleri görebilmektesiniz.
; 4DIPNOT (KOD) Oper/adminler için hazırlanmıştır bu nedenle bu rütbeye dahil olmayan/olamayan kişiler kullanamaz.
; ##### Bu kod sadece zline.txt dosyasından işlem yapmaktadir. ###
; ##### Yapimci: By Entrance ##### ircforumları lamerler forum sitesi
Kod: on *:input:*: {
if ($regex($1,/(^[!]ekle$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $read(zline.txt,w,$+(*:,$2,*)) { echo -a Zaten $token($read(zline.txt,w,$+(*,$2,*)),1,58) listeye ekli | halt }
if $regex($left($2,1),@) { echo -a Ident listeye eklendi! | write zline.txt $+(Ident:,$2) | halt }
if $regex($2,\d) && $regex($2,\W) { echo -a IP listeye eklendi! | write zline.txt $+(IP:,$2) | halt }
echo -a Nick listeye eklendi! | write zline.txt $+(Nick:,$2)
}
if ($regex($1,/(^[!]((ç|c)(i|ı)kar|s(i|ı)l)$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $regex($left($2,1),@) && $regex($2,$chr(64)) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a Ident listede bulunmuyor! | halt }
if $regex($2,\d) && $regex($2,\W) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a IP zaten listede bulunmuyor! | halt }
if !$read(zline.txt,w,$+(*,$2,*)) { echo -a Nick zaten listede bulunmuyor! | halt }
echo -a $token($read(zline.txt,w,$+(*,$2,*)),1,58) Listeden silindi! | write $+(-dl,$readn) zline.txt
}
if ($regex($1,/(^[!]l(i|ı)st$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if (!$regex($2,/(ip|ident|nick)/i)) { echo -a $qt($2) Adın da, mask bulunmuyor. Masklar: IP / Ident / Nick | halt }
if ($lines(zline.txt) == 0) { echo -a Listede hiç bir kayıt bulunmamaktadir! | halt }
if $masks($2) == 0 { echo -a $2 Listesinde kayıt bulunmuyor! | halt }
echo -ae $2 listesi -
var %s 1 | while (%s <= $lines(zline.txt)) { $iif($2 isin $read(zline.txt,%s),echo -a $+(%s,]) $replace($read(zline.txt,%s),$chr(58),$+(:,$chr(32)))) | inc %s
}
echo -ae List sonu.
}
}
alias masks { var %s 1 | while (%s <= $lines(zline.txt)) { $iif($1 isin $read(zline.txt,%s),return 1) | inc %s } return 0 }
on *:snotice:*connecting*: {
var %s 1, %nick $9, %ident $right($token($10,1,64),-1), %ip $remove($token($10,2,64),$chr(41))
while (%s <= $lines(zline.txt)) {
$iif($regex($read(zline.txt,%s),/Ident/i),$iif($right($gettok($read(zline.txt,%s),2,58),-1) == %ident,gzline %nick +0 Forbidden Tion! $+([Data:,%ident,]) ))
$iif($regex($read(zline.txt,%s),/IP/),$iif($gettok($read(zline.txt,%s),2,58) == %ip,gzline %nick +0 Forbidden Tion! $+([Data:,%ip,]) ))
$iif($regex($read(zline.txt,%s),/Nick/i),$iif($gettok($read(zline.txt,%s),2,58) iswm %nick,gzline %nick +0 Forbidden Tion! $+([Data:,%nick,]) ))
inc %s
}
}
|
|
|
|
|
Kanal Takip analiz addonları |
|
Yazar: Admin - 05-13-2020, 09:29 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Kanal takip analiz addonları
Kod: alias b_nick return BotNicki
alias b_pass return BotŞifresi
alias b_fullname return BotFullname
alias b_ident return BotIdent
alias b_chan return RaporKanalı
alias b_server return Sunucu PORT
alias b_ajoin return BotunGireceğiKanallar
alias b_admin return MasterNick
alias g_nick return $gettok($gettok($1,1,33),1,58)
alias sw { sockwrite -nt BOT $1- }
alias ekle { if !$read(slnck.txt,w,$1) { write slnck.txt $1 } }
alias bağlan {
if ($sockerr) { halt }
else { sıfırla | .remove slnck.txt | sockclose BOT | sockopen BOT $b_server | halt }
}
alias çık {
if ($sockerr) { halt }
else { sockclose BOT | halt }
}
on *:sockopen:BOT:{
if ($sockerr) { return }
sw NICK $b_nick
sw USER $b_ident * * : $b_fullname
}
on *:sockread:BOT:{
if !$sock($sockname) { halt }
var %bot
sockread %bot
tokenize 32 %bot
$iif(!$window(@bot), window -ne3 @bot) | echo @bot $1-
if $1 == PING { sw PONG $2 }
if :VERSION iswm $4- { sw notice $g_nick($1) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) }
if :FINGER iswm $4- { sw notice $g_nick($1) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) }
if $2 == 376 { sw identify $b_pass | sw join $b_chan | sw join $b_ajoin }
if ($2 == quit) { var %1 = 1,%2 = $numtok($b_ajoin,44) | while %1 <= %2 { if $hget($gettok($b_ajoin,%1,44)) { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } }
if ($2 == nick) { var %ü = 1,%& = $numtok($b_ajoin,44) | while %ü <= %& { if $hget($gettok($b_ajoin,%ü,44)) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$g_nick($1),$chr(2)) - Yeni nick: $+($chr(2),$right($3,-1)) } | inc %ü } }
if ($2 == join) { if $hget($right($3,-1)) { hinc $right($3,-1) $+(grs,½,$right($3,-1)) 1 } }
if ($2 == part) { if $hget($3) { hinc $3 $+(cks,½,$3) 1 } }
if ($2 == mode) {
if (+b isin $4) { if $hget($3) { hinc $3 $+(ban,½,$3) 1 | ekle $+($3,ban,.txt) | write $+($3,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banlıyan: $+($chr(2),$g_nick($1),$chr(2)) - Banlanan: $+($chr(2),$5,$chr(2)) | halt } }
if (-b isin $4) { if $hget($3) { hinc $3 $+(unbn,½,$3) 1 | ekle $+($3,unban,.txt) | write $+($3,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$g_nick($1),$chr(2)) - Banı açılan: $+($chr(2),$5) | halt } }
if (+v isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(vc,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$g_nick($1),$chr(2)) - Voice olan: $+($chr(2),$5,$chr(2)) | halt } }
if (+o isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(op,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$g_nick($1),$chr(2)) - Op olan: $+($chr(2),$5,$chr(2)) | halt } }
if (+h isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(hlp,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$g_nick($1),$chr(2)) - Halfop olan: $+($chr(2),$5,$chr(2)) | halt } }
if (-v isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(devc,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Voice'u alınan: $+($chr(2),$5,$chr(2)) | halt } }
if (-o isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(deop,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Op'u alınan: $+($chr(2),$5,$chr(2)) | halt } }
if (-h isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(dehlp,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Halfop'u alınan: $+($chr(2),$5,$chr(2)) | halt } }
else { if $hget($3) { hinc $3 $+(md,½,$3) 1 | ekle $+($3,mode,.txt) | write $+($3,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod değişen: $+($chr(2),$g_nick($1),$chr(2)) - Değişen mod: $+($chr(2),$4,$chr(2)) | halt } }
}
if ($2 == kick) && ($4 == $b_nick) { sw join $3 | sw privmsg $b_chan - $3 kanalından $g_nick($1) tarafından kicklendim. }
if ($2 == 474) { sw privmsg $b_chan - $4 kanalına banlı olduğum için giremedim. }
if ($2 == privmsg) {
if ($3 == $b_nick) && $istok($b_admin,$g_nick($1),32) { sw $right($4-,-1) }
if ($3 == $b_chan) {
if ($right($4,-1) == !kns) {
if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!kns #kanalismi) | halt }
if !$hget($+(yazı,$5)) { sw privmsg $b_chan - Veri bulunamadı. | halt }
else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($+(yazı,$5),0).item,$chr(2)) adet veri bulundu. | var %& = 1,%&& = $hget($+(yazı,$5),0).item | while %& <= %&& { sw privmsg $b_chan - Nick: $+($chr(2),$hget($+(yazı,$5),%&).item,$chr(2)) - Yazdığı satır miktarı: $+($chr(2),$hget($+(yazı,$5),%&).data,$chr(2)) | inc %& } }
}
if ($right($4,-1) == !bn) {
if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!bn #kanalismi) | halt }
if !$read($+($5,ban,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt }
else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(ban½,$5)),$chr(2)) adet veri bulundu. | var %1 = 1,%2 = $lines($+($5,ban,.txt)) | while %1 <= %2 { sw privmsg $b_chan - $read($+($5,ban,.txt),%1) | inc %1 } }
}
if ($right($4,-1) == !unbn) {
if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!unbn #kanalismi) | halt }
if !$read($+($5,unban,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt }
else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(unbn½,$5)),$chr(2)) adet veri bulundu. | var %s = 1,%x = $lines($+($5,unban,.txt)) | while %s <= %x { sw privmsg $b_chan - $read($+($5,unban,.txt),%s) | inc %s } }
}
if ($right($4,-1) == !yetki) {
if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!yetki #kanalismi) | halt }
if !$read($+($5,yetkiler,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt }
else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$lines($+($5,yetkiler,.txt)),$chr(2)) adet veri bulundu. | var %q = 1,%r = $lines($+($5,yetkiler,.txt)) | while %q <= %r { sw privmsg $b_chan - $read($+($5,yetkiler,.txt),%q) | inc %q } }
}
if ($right($4,-1) == !md) {
if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!md #kanalismi) | halt }
elseif !$read($+($5,mode,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt }
else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(md½,$5)),$chr(2)) adet veri bulundu. | var %p = 1,%f = $lines($+($5,mode,.txt)) | while %p <= %f { sw privmsg $b_chan - $read($+($5,mode,.txt),%p) | inc %p } }
}
if ($right($4,-1) == !nik) {
if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!nik #kanalismi) | halt }
if !$read($+($5,nick,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt }
else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(nck½,$5)),$chr(2)) adet veri bulundu. | var %z = 1,%o = $lines($+($5,nick,.txt)) | while %z <= %o { sw privmsg $b_chan - $read($+($5,nick,.txt),%z) | inc %z } }
}
if ($right($4,-1) == !sıfırla) { sw privmsg $b_chan - Tüm veriler sıfırlandı. | .hfree -w yazı* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo } }
if ($right($4,-1) == !takip) {
if !$5 { sw privmsg $b_chan Takip listesine alınacak kanalı girmediniz. Kullanım şekli; $+($chr(2),!takip #kanalismi,$chr(2)) | halt }
if $hget($5) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanal'ı zaten takip listesinde. | halt }
if $istok($b_ajoin,$5,44) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalında bulunmuyorum. | halt }
else { hmake $5 100 | sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalı takip listesine eklendi. }
}
if ($right($4,-1) == !rapor) {
if !$5 { sw privmsg $b_chan Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),!rapor #kanalismi,$chr(2)) | halt }
if !$hget($5) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanal'ı takip listesinde değil. | halt }
else {
sw privmsg $b_chan $+($chr(45),$chr(32),[,$chr(2),$5,$chr(2)) kanalı için istatistikler] -
sw privmsg $b_chan -
sw privmsg $b_chan - Prefixler $+($chr(40),$iif($hget($5,$+(yetki½,$5)),$+($chr(2),$hget($5,$+(yetki½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41))
sw privmsg $b_chan - [Voice: $+($iif($hget($5,$+(vc½,$5)),$+($chr(2),$hget($5,$+(vc½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($5,$+(op½,$5)),$+($chr(2),$hget($5,$+(op½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($5,$+(hlp½,$5)),$+($chr(2),$hget($5,$+(hlp½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),])
sw privmsg $b_chan - [Devoice: $+($iif($hget($5,$+(devc½,$5)),$+($chr(2),$hget($5,$+(devc½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($5,$+(deop½,$5)),$+($chr(2),$hget($5,$+(deop½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($5,$+(dehlp½,$5)),$+($chr(2),$hget($5,$+(dehlp½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),])
sw privmsg $b_chan - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),!yetki $5,$chr(2)) yazınız.
sw privmsg $b_chan -
sw privmsg $b_chan - Giren kullanıcı sayısı: $iif($hget($5,$+(grs½,$5)),$+($chr(2),$hget($5,$+(grs½,$5))),$+($chr(2),Giren kullanıcı yok.))
sw privmsg $b_chan - Ayrılan kullanıcı sayısı: $iif($hget($5,$+(cks½,$5)),$+($chr(2),$hget($5,$+(cks½,$5))),$+($chr(2),Ayrılan kullanıcı yok.))
sw privmsg $b_chan - Çıkan kullanıcı sayısı: $iif($hget($5,$+(ayr½,$5)),$+($chr(2),$hget($5,$+(ayr½,$5))),$+($chr(2),Çıkan kullanıcı yok.))
sw privmsg $b_chan - Nick değişim sayısı: $iif($hget($5,$+(nck½,$5)),$+($chr(2),$hget($5,$+(nck½,$5)),$chr(32),$chr(2), - (Değişen nick'leri görmek için; $+($chr(2),!nik $5,$chr(2)) yazınız.)),$+($chr(2),Nick değişen yok.))
sw privmsg $b_chan - Yazılan satır miktarı: $iif($hget($5,$+(yz½,$5)),$+($chr(2),$hget($5,$+(yz½,$5)),$chr(32),$chr(2), - (Kanal'da kimin kaç satır cümle kurduğunu görmek için: $+($chr(2),!kns $5,$chr(2)) yazınız.)),$+($chr(2),Herhangi bir yazı yazılmamış.))
sw privmsg $b_chan - Atılan ban sayısı: $iif($hget($5,$+(ban½,$5)),$+($chr(2),$hget($5,$+(ban½,$5)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atmış? Öğrenmek için: $+($chr(2),!bn $5,$chr(2)) yazınız.)),$+($chr(2),Atılan ban yok.))
sw privmsg $b_chan - Açılan ban sayısı: $iif($hget($5,$+(unbn½,$5)),$+($chr(2),$hget($5,$+(unbn½,$5)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açmış? Öğrenmek için: $+($chr(2),!unbn $5,$chr(2)) yazınız.)),$+($chr(2),Açılan ban yok.))
sw privmsg $b_chan - Değişen mod sayısı: $iif($hget($5,$+(md½,$5)),$+($chr(2),$hget($5,$+(md½,$5)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u değiştirmiş? Öğrenmek için: $+($chr(2),!md $5,$chr(2)) yazınız.)),$+($chr(2),Değişen mod yok.))
} } }
else { if $hget($3) { hinc $3 $+(yz,½,$3) 1 | hinc -m $+(yazı,$3) $g_nick($1) 1 } }
}
}
1- Kanal'da voice/halfop/op veren veya alanları.(Tarihleri dahil)
2- Kanal'da ban atan/atılan veya banı açan/açılan'ları.(Tarihleri dahil)
3- Kanal'da atılan ban sayısını.
4- Kanal'a giren kullanıcı sayısını.
5- Kanal'dan çıkan kullanıcı sayısını.
6- Kanal'da bulunupta IRC'den çıkan sayısını.
7- Kanal'a kaç satır text gönderdildiğini.
8- Kanal'da kimin ne zaman nick değiştiğini.(Tarihleri dahil)
9- Kanal'da ne zaman kim tarafından mod değiştirildiğini.(Tarihleri dahil)
Ek özellikler;
/kns #kanalismi yazarak kanal'da kimin kaç satır yazı yazdığını,
/nik #kanalismi yazarak kanal'da kimin ne zaman nick değiştiğini ve yeni nick'ini,
/unbn #kanalismi yazarak kanal'da kim tarafından ne zaman ban açıldığını,
/bn #kanalismi yazarak kanal'da kim tarafından, ne zaman ban atıldığını,
/md #kanalismi yazarak kanal'da kimin, ne zaman, hangi modu, değiştirdiğini,
/yetki #kanalismi yazarak kimin kime ne yetki verdiği, tarihleri ile beraber öğrenebilirsiniz.
/sıfırla yazarak tüm kayıtları sıfırlıyabilirsiniz.
/takip #kanalismi (Kanal'ı takip'e alır)
/rapor #kanalismi (Takip sonuçlarını gösterir)
Kod: alias takip {
if !$1 { echo -at Takip listesine alınacak kanal'ı girmediniz. Kullanım şekli; $+($chr(2),/takip #kanalismi,$chr(2)) | halt }
if $hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı zaten takip listesinde. | halt }
if $me !ison $1 { echo -at $+($chr(2),$1,$chr(2)) kanalında bulunmuyorsunuz. | halt }
else { hmake $1 100 | echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesine eklendi. }
}
on *:quit: { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { if $hget($comchan($me,%1)) { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } }
on *:nick: { var %= 1,%& = $comchan($me,0) | while %= <= %& { if $hget($comchan($me,%=)) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$nick,$chr(2)) - Yeni nick: $+($chr(2),$newnick) } | inc %= } }
on !*:join:#: { if $hget(#) { hinc # $+(grs,½,#) 1 } }
on *:part:#: { if $hget(#) { hinc # $+(cks,½,#) 1 } }
on *:text:*:#: { if $hget(#) { hinc # $+(yz,½,#) 1 | hinc -m $+(yazı,#) $nick 1 } }
on *:ban:#: { if $hget(#) { hinc # $+(ban,½,#) 1 | ekle $+(#,ban,.txt) | write $+(#,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banlıyan: $+($chr(2),$nick,$chr(2)) - Banlanan: $+($chr(2),$banmask,$chr(2)) } }
on *:unban:#: { if $hget(#) { hinc # $+(unbn,½,#) 1 | ekle $+(#,unban,.txt) | write $+(#,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$nick,$chr(2)) - Banı açılan: $+($chr(2),$banmask) } }
on *:voice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(vc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$nick,$chr(2)) - Voice olan: $+($chr(2),$vnick,$chr(2)) } }
on *:op:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(op,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$nick,$chr(2)) - Op olan: $+($chr(2),$opnick,$chr(2)) } }
on *:help:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(hlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$nick,$chr(2)) - Halfop olan: $+($chr(2),$hnick,$chr(2)) } }
on *:devoice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(devc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$nick,$chr(2)) - Voice'u alınan: $+($chr(2),$vnick,$chr(2)) } }
on *:deop:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(deop,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$nick,$chr(2)) - Op'u alınan: $+($chr(2),$opnick,$chr(2)) } }
on *:dehelp:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(dehlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$nick,$chr(2)) - Halfop'u alınan: $+($chr(2),$hnick,$chr(2)) } }
on *:mode:#: { if $hget(#) { hinc # $+(md,½,#) 1 | ekle $+(#,mode,.txt) | write $+(#,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod değişen: $+($chr(2),$nick,$chr(2)) - Değişen mod: $+($chr(2),$1-,$chr(2)) } }
alias rapor {
if !$1 { echo -at Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),/rapor #kanalismi,$chr(2)) | halt }
if !$hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesinde değil. | halt }
else {
echo -a $+($chr(45),$chr(32),[,$chr(2),$1,$chr(2)) kanal'ı için istatist'likler] -
echo -a -
echo -a - Prefixler $+($chr(40),$iif($hget($1,$+(yetki½,$1)),$+($chr(2),$hget($1,$+(yetki½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41))
echo -a - [Voice: $+($iif($hget($1,$+(vc½,$1)),$+($chr(2),$hget($1,$+(vc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($1,$+(op½,$1)),$+($chr(2),$hget($1,$+(op½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($1,$+(hlp½,$1)),$+($chr(2),$hget($1,$+(hlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),])
echo -a - [Devoice: $+($iif($hget($1,$+(devc½,$1)),$+($chr(2),$hget($1,$+(devc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($1,$+(deop½,$1)),$+($chr(2),$hget($1,$+(deop½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($1,$+(dehlp½,$1)),$+($chr(2),$hget($1,$+(dehlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),])
echo -a - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),/yetki $1,$chr(2)) yazınız.
echo -a -
echo -a - Giren kullanıcı sayısı: $iif($hget($1,$+(grs½,$1)),$+($chr(2),$hget($1,$+(grs½,$1))),$+($chr(2),Giren kullanıcı yok.))
echo -a - Ayrılan kullanıcı sayısı: $iif($hget($1,$+(cks½,$1)),$+($chr(2),$hget($1,$+(cks½,$1))),$+($chr(2),Ayrılan kullanıcı yok.))
echo -a - Çıkan kullanıcı sayısı: $iif($hget($1,$+(ayr½,$1)),$+($chr(2),$hget($1,$+(ayr½,$1))),$+($chr(2),Çıkan kullanıcı yok.))
echo -a - Nick değişim sayısı: $iif($hget($1,$+(nck½,$1)),$+($chr(2),$hget($1,$+(nck½,$1)),$chr(32),$chr(2), - (Değişen nick'leri görmek için; $+($chr(2),/nik $1,$chr(2)) yazınız.)),$+($chr(2),Nick değişen yok.))
echo -a - Yazılan satır miktarı: $iif($hget($1,$+(yz½,$1)),$+($chr(2),$hget($1,$+(yz½,$1)),$chr(32),$chr(2), - (Kanal'da kimin kaç satır cümle kurduğunu görmek için: $+($chr(2),/kns $1,$chr(2)) yazınız.)),$+($chr(2),Herhangi bir yazı yazılmamış.))
echo -a - Atılan ban sayısı: $iif($hget($1,$+(ban½,$1)),$+($chr(2),$hget($1,$+(ban½,$1)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atmış? Öğrenmek için: $+($chr(2),/bn $1,$chr(2)) yazınız.)),$+($chr(2),Atılan ban yok.))
echo -a - Açılan ban sayısı: $iif($hget($1,$+(unbn½,$1)),$+($chr(2),$hget($1,$+(unbn½,$1)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açmış? Öğrenmek için: $+($chr(2),/unbn $1,$chr(2)) yazınız.)),$+($chr(2),Açılan ban yok.))
echo -a - Değişen mod sayısı: $iif($hget($1,$+(md½,$1)),$+($chr(2),$hget($1,$+(md½,$1)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u değiştirmiş? Öğrenmek için: $+($chr(2),/md $1,$chr(2)) yazınız.)),$+($chr(2),Değişen mod yok.))
}
}
alias kns {
if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/kns #kanalismi) | halt }
if !$hget($+(yazı,$1)) { echo -a - Veri bulunamadı. | halt }
else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($+(yazı,$1),0).item,$chr(2)) adet veri bulundu. | var %& = 1,%&& = $hget($+(yazı,$1),0).item | while %& <= %&& { echo -a - Nick: $+($chr(2),$hget($+(yazı,$1),%&).item,$chr(2)) - Yazdığı satır miktarı: $+($chr(2),$hget($+(yazı,$1),%&).data,$chr(2)) | inc %& } }
}
alias bn {
if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/bn #kanalismi) | halt }
if !$read($+($1,ban,.txt)) { echo -a - Veri bulunamadı. | halt }
else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(ban½,$1)),$chr(2)) adet veri bulundu. | var %1 = 1,%2 = $lines($+($1,ban,.txt)) | while %1 <= %2 { echo -a - $read($+($1,ban,.txt),%1) | inc %1 } }
}
alias unbn {
if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/unbn #kanalismi) | halt }
if !$read($+($1,unban,.txt)) { echo -a - Veri bulunamadı. | halt }
else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(unbn½,$1)),$chr(2)) adet veri bulundu. | var %s = 1,%x = $lines($+($1,unban,.txt)) | while %s <= %x { echo -a - $read($+($1,unban,.txt),%s) | inc %s } }
}
alias yetki {
if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/yetki #kanalismi) | halt }
if !$read($+($1,yetkiler,.txt)) { echo -a - Veri bulunamadı. | halt }
else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$lines($+($1,yetkiler,.txt)),$chr(2)) adet veri bulundu. | var %q = 1,%r = $lines($+($1,yetkiler,.txt)) | while %q <= %r { echo -a - $read($+($1,yetkiler,.txt),%q) | inc %q } }
}
alias md {
if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/md #kanalismi) | halt }
if !$read($+($1,mode,.txt)) { echo -a - Veri bulunamadı. | halt }
else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(md½,$1)),$chr(2)) adet veri bulundu. | var %p = 1,%f = $lines($+($1,mode,.txt)) | while %p <= %f { echo -a - $read($+($1,mode,.txt),%p) | inc %p } }
}
alias nik {
if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/nik #kanalismi) | halt }
if !$read($+($1,nick,.txt)) { echo -a - Veri bulunamadı. | halt }
else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(nck½,$1)),$chr(2)) adet veri bulundu. | var %z = 1,%o = $lines($+($1,nick,.txt)) | while %z <= %o { echo -a - $read($+($1,nick,.txt),%z) | inc %z } }
}
alias ekle if (!$read(slnck.txt,w,$1)) { write slnck.txt $1 }
on *:connect:sıfırla | remove slnck.txt
alias sıfırla echo -a - Tüm veriler sıfır'landı. | .hfree -w yazı* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo }
|
|
|
|
|
join/part koruması addonları |
|
Yazar: Admin - 05-13-2020, 09:27 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
join/part koruması addonları remote bölümüne yüklemeniz yeterlidir
Kod: on *^:join:#:{
;multi join[tüm adresler]
inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj)
if (%mj- [ $+ [ $chan ] ] >= $ccrc(mjlimit)) {
mode $chan +l $calc($nick(#,0) - %mjj. [ $+ [ $chan ] ])
.unset %mjj. [ $+ [ $nick ] ]
}
;Clone join tek adres..
var %ad = $wildsite
inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj)
if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) {
echo -t $chan %ad $color(info) adresinden massjoin: $+(%mj. [ $+ [ %ad ] ] )
mode $chan +b %ad
unset %mj. [ $+ [ %ad ] ]
}
}
alias ccrc {
goto $1
;### Multi join conf
:mjhafıza {
RETURN 2
}
:mjaveraj {
;bu rakamı degiştirmeyin..
RETURN 1
}
:mjlimit {
RETURN 6
}
;### Clone join conf
:cjhafıza {
RETURN 3
}
:cjaveraj {
;bu rakamı değiştirmeyin..
RETURN 3
}
:cjlimit {
RETURN 3
}
}
Aşırı girişte join/part saldırı kodu
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 }
}
}
Help Kanalina Join/Part Korumasi
Kod: menu status,menubar, {
.-
.• © Help KanaLına Join Part Koruması !
..• Açık !:.enable #devletabsoluthelp | .echo -a 0,4 Help KanaLına Join Part Koruması Acıldı.. %logo
..• Kapalı !:.disable #devletabsoluthelp | .echo -a 0,4 Help KanaLına Join Part Koruması KapatıLdı.. %logo
.-
}
#devletabsoluthelp on
on *:join:#help:{ inc -u15 %hNc_k [ $+ [ $nick ] ] }
on *:part:#help:{ if (%hNc_k [ $+ [ $nick ] ]) { ban -u300 # $nick 2 | notice $nick Join Part Yaptıgınız için #help Kanalından 5 Dakikalığına Banlandınız %logo } }
#devletabsoluthelp end
|
|
|
|
Proxy iplist cekme Addonları |
|
Yazar: Admin - 05-13-2020, 09:16 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Proxy iplist cekme Addonları
Kod: off *:start:_al
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias _güncel { echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) | sockclose _proxy* | unset %* | .timercycle 1 5 kontrol }
alias _ekle {
if $regex($1,/(\d+\.\d+\.\d+\.\d+)) {
if !$read(proxy.txt,w,$1) { .write proxy.txt $+($1,:,$2) }
}
}
alias _al {
.remove proxy.txt
sockclose links
sockopen links www.proxyserverlist24.top 80
$+(.timer,qproxy) 1 60 _güncel
}
on *:sockopen:links:{
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:links:{
var %links | sockread %links | .tokenize 32 %links
if (*#more* iswm %links) { return }
if (*timestamp-link*.html* iswm %links) {
var %rand $rand(10,999999)
.sockopen $+(ipal,%rand) $sock($sockname).addr 80
.sockmark $+(ipal,%rand) $token($token(%links,3-5,47),1,39)
}
}
on *:sockopen:ipal*:{
sockwrite -nt $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:ipal*:{
var %ipal | sockread %ipal | .tokenize 32 %ipal
if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) {
_ekle $token(%ipal,1,58) $token(%ipal,2,58)
}
}
Kod: on *:sockread:_proxy4*:{ var %:proxy | sockread %:proxy | if (*timestamp-link*.html* iswm %:proxy) { _proxyal4 $+(/,$token($token(%:proxy,4,39),3-,47)) } }alias _proxyal4 { var %rand $rand(0,999999999) | sockopen $+(_proxyal4,%rand) www.vip-socks.net 80 | sockmark $+(_proxyal4,%rand) $1 }
on *:sockopen:_proxyal4*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET $+(/,$sock($sockname).mark) HTTP/1.1 | %:sockname2 Host: www.vip-socks.net | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxyal4*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
on *:sockopen:_proxy5*:{ var %:sockname .sockwrite -n $sockname | %:sockname GET / HTTP/1.1 | %:sockname Host: free-ssl-proxies.blogspot.com.tr | %:sockname Connection: Keep-Alive | %:sockname $crlf }
on *:sockread:_proxy5*:{ var %:proxy | sockread %:proxy | if (*timestamp-link*.html* iswm %:proxy) { _proxyal5 $+(/,$token($token(%:proxy,4,39),3-,47)) } }
alias _proxyal5 { var %rand $rand(0,999999999) | sockopen $+(_proxyal5,%rand) free-ssl-proxies.blogspot.com.tr 80 | sockmark $+(_proxyal5,%rand) $1 }
on *:sockopen:_proxyal5*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET $+(/,$sock($sockname).mark) HTTP/1.1 | %:sockname2 Host: free-ssl-proxies.blogspot.com.tr | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxyal5*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
on *:sockopen:_proxy6*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET /txt_anon/proxy.txt HTTP/1.1 | %:sockname2 Host: multiproxy.org | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxy6*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
on *:sockopen:_proxy7*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET /txt_all/proxy.txt HTTP/1.1 | %:sockname2 Host: multiproxy.org | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxy7*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
on *:sockopen:_proxy8*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET /proxylist.txt HTTP/1.1 | %:sockname2 Host: tubeincreaser.com | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxy8*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
on *:sockopen:_proxy9*:{ var %:sockname .sockwrite -n $sockname | %:sockname GET / HTTP/1.1 | %:sockname Host: www.proxyvadi.net | %:sockname Connection: Keep-Alive | %:sockname $crlf }
on *:sockread:_proxy9*:{ var %:proxy | sockread %:proxy | if (*http://www.proxyvadi.net/*proxy*.html#more* iswm %:proxy) { _proxyal9 $token($token(%:proxy,3,47),1,35) } }
alias _proxyal9 { var %rand $rand(0,999999999) | sockopen $+(_proxyal9,%rand) www.proxyvadi.net 80 | sockmark $+(_proxyal9,%rand) $1 }
on *:sockopen:_proxyal9*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET $+(/,$sock($sockname).mark) HTTP/1.1 | %:sockname2 Host: www.proxyvadi.net | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxyal9*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
on *:sockopen:_proxy01*:{ var %:sockname .sockwrite -n $sockname | %:sockname GET / HTTP/1.1 | %:sockname Host: www.live-socks.net | %:sockname Connection: Keep-Alive | %:sockname $crlf }
on *:sockread:_proxy01*:{ var %:proxy | sockread %:proxy | if (*timestamp-link*.html* iswm %:proxy) { _proxyal01 $+(/,$token($token(%:proxy,4,39),3-,47)) } }
alias _proxyal01 { var %rand $rand(0,999999999) | sockopen $+(_proxyal01,%rand) www.live-socks.net 80 | sockmark $+(_proxyal01,%rand) $1 }
on *:sockopen:_proxyal01*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET $+(/,$sock($sockname).mark) HTTP/1.1 | %:sockname2 Host: www.live-socks.net | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxyal01*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
on *:sockopen:_proxy02*:{ var %:sockname2 .sockwrite -n $sockname | %:sockname2 GET /socks_proxy.txt HTTP/1.1 | %:sockname2 Host: awmproxy.com | %:sockname2 Connection: Keep-Alive | %:sockname2 $crlf }
on *:sockread:_proxy02*:{ var %:proxy2 | sockread %:proxy2 | if (*.*:* iswm %:proxy2) && (*a* !iswm %:proxy2) { .hadd -ms Proxy $token($htmlfree(%:proxy2),1,58) $token($htmlfree(%:proxy2),2,58) } }
Kullanım: /_al
|
|
|
|
|
