| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Kimler Çevrimiçi |
Toplam: 45 kullanıcı aktif
» 0 Kayıtlı
» 44 Ziyaretçi
Google
|
|
|
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
|
|
|
|
|
Hızlı services bot oluşturma aliası |
|
Yazar: Admin - 05-13-2020, 09:12 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Merhaba LAMERLER.COM İRCFORUMLARI İRCFORUM KULLANICILARI , yine bir başka mirc severlerin sıklıkla kullandığı ve ihtiyaç duyduğu kod ile karşınızdayız.Bu kodu kullanabilmeniz için en az servis admin yetkisine sahip olmanız yada oper supass şifresini girmeniz gerekmektedir.Bu kodla sahip olduğunuz irc serverinize onlarca botu tek bir komutla atabilirsiniz.Bunun için kodu mircinize ekledikten sonra mircde yazı satırına /botat yazmanız gerekiyor.Daha sonra karşınıza gelecek ekranlara ayrı ayrı serveriniz , botların girmesi gerekn kanalları ve oluşturulacak servis bot sayısını yazarsanız.Botlarınız bağlanmaya başlar.Bu botlar sabit servis botları olup kanalınıza giriş çıkış yapmaya ayarlanır.Ayrıca şunuda unutmamalısınız.Mirc klasöründe system adlı yeni bir klasör olupturup içinede nicks.txt adında bir not defteri sayfası yapıp içine alt atla gelecek şekilde nickler eklemeniz gerekmektedir.
Tekrar etmek gerekirse;
mirc klasörüne system bir klasör , klasör içine nicks.txt adlı bir text sayfası ve text sayfası içine nicklerinizi alt atla gelecek şekilde yazınız.
En son mirciniz açıkken yazı kısmına /botat yazmanız gerekir.Bu kadar.
Kod: /botat {
/set %server $$?=”Serveriniz”
/set %kanal1 $$?=”Botun Gireceği Kanal 1? (Ornek: #Kanal)”
/set %kanal2 $$?=”Botun Gireceği Kanal 2? (Ornek: #Kanal)”
/set %kanal3 $$?=”Botun Gireceği Kanal 3? (Ornek: #Kanal)”
/set %kanal4 $$?=”Botun Gireceği Kanal 4? (Ornek: #Kanal)”
/set %kanal5 $$?=”Botun Gireceği Kanal 5? (Ornek: #Kanal)”
/set %kanal6 $$?=”Botun Gireceği Kanal 6? (Ornek: #Kanal)”
/set %kanal7 $$?=”Botun Gireceği Kanal 7? (Ornek: #Kanal)”
/set %kanal8 $$?=”Botun Gireceği Kanal 8? (Ornek: #Kanal)”
/set %kanal9 $$?=”Botun Gireceği Kanal 9? (Ornek: #Kanal)”
/set %kanal10 $$?=”Botun Gireceği Kanal 10? (Ornek: #Kanal)”
/set %os-timer $$?=”Kaç tane services bot oluşturulacak? (Ornek: 25)”
/timer %os-timer 4 /bot-2
}
/bot-2 {
//set %nicks $read(“system/nicks.txt”
//botserv bot add %nicks Admin %server 7©Mobil.7© | //msg #bot.raw %nicks Nickinde Bot Oluşturuldu. Zaman: $time \ $date dir. ßy Admin
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına girdi.
//timer 0 110 //msg operserv raw : $+ %nicks part %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına çıktı.
//timer 0 120 //msg operserv raw : $+ %nicks part %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına çıktı.
//timer 0 130 //msg operserv raw : $+ %nicks part %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına çıktı.
//timer 0 140 //msg operserv raw : $+ %nicks part %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına çıktı.
//timer 0 150 //msg operserv raw : $+ %nicks part %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına çıktı.
//timer 0 160 //msg operserv raw : $+ %nicks part %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına çıktı.
//timer 0 170 //msg operserv raw : $+ %nicks part %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına çıktı.
//timer 0 180 //msg operserv raw : $+ %nicks part %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına çıktı.
//timer 0 190 //msg operserv raw : $+ %nicks part %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına çıktı.
//timer 0 200 //msg operserv raw : $+ %nicks part %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına çıktı.
}
#bot.raw da hangi botun nereye girdiğini görebilirsiniz.Ama bir nicks.txt olması lazım bunu oluşturup system die bir klasöre atın addon hazır… İRCFORUMLARI - İRCFORUMLAR LAMERLER FORUM SİTESİ
|
|
|
|
|
GünceL Altın Ve Döviz Kodu |
|
Yazar: Admin - 05-13-2020, 09:06 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Bu mirc kodu ile en güncel altın ve döviz fiyatlarını altın fiyatlarını yarım , çeyrek , gram ve cumhuriyet altını olarak bunun yanında dolar ve euro güncel kurunu size yansıtır.Kod döviz bilgilerini hurriyet.com.tr den çekmektedir.
Kod sadece mirce ekleyen tarafından kullanılabilir.Kullanımı ise /exchange komutu ile yapılır.
Kod: alias d_exc_total return $+(=,$chr(3),12) $remove($replace($gettok($gettok($1,15-,$asc(“)),2-1,44),$chr(44),$+($chr(32),TL,$chr(32),$chr(3),4),:,$+(:,$chr(32))),”) TL
alias exchange {
sockopen exchange bigpara.hurriyet.com.tr 80
sockmark exchange http://bigpara.hurriyet.com.tr/altin/ }
on *:sockopen:exchange: {
if ($sockerr) { echo $color(notice) -a *** Siteye bağlantı sağlanamadı! | return }
sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname Host: $sock($sockname).addr
sockwrite -n $sockname User-Agent: */*
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname }
on *:sockread:exchange: { if ($sockerr) { echo $color(notice) -a *** Veriler alinamadi! | return }
var %d_exc | sockread %d_exc | if ($sockbr) {
if $regex(%d_exc,/var \$altindata =/i) { var %r 1 | while %r <= $numtok(%d_exc,123) { %total = $gettok(%d_exc,%r,123)
if *”sembolid”:2199* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** GRAM ALTIN $d_exc_total($v2) }
if *”sembolid”:473* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** CUMHURİYET ALTINI $d_exc_total($v2) }
if *”sembolid”:2356* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** CEYREK ALTIN $d_exc_total($v2) }
if *”sembolid”:2640* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** 22 AYAR BİLEZİK $d_exc_total($v2) }
if *”sembolid”:2355* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** YARIM ALTIN $d_exc_total($v2) }
if *”sembolid”:1302* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** DOLAR $d_exc_total($v2) }
if *”sembolid”:1639* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** EURO $d_exc_total($v2) }
inc %r } } } }
on *:sockclose:exchange: { echo $color(notice) -a *** $+($chr(3),4) $time $chr(3) itibari ile güncel fiyatlar listelendi. }
|
|
|
|
|
Özel Karşılama Kodları |
|
Yazar: Admin - 05-13-2020, 09:03 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
ÖZEL KARŞILAMA ADDONLARI
Kod: on *:open:?:{
var %:idle $replace($duration($idle),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta,min,Dakika,Hr,Saat,sec,Saniye)
msg $nick Selam $nick
msg $nick Özel penceresini açtığınız kişi $me !
msg $nick Bugün $date Saat $time
msg $nick Konuşmadığım süre: %:idle
if $away { msg $nick Şuanda away'ım Sebep: $strip($awaymsg) }
inc %:pen
msg $nick Toplam açılan özel pencerem sayısı %:pen
msg $nick Şu an özelimdeki $+($query(0),.) kişisin
msg $nick Müsait olduğumda cevap verilecektir..
}
Kod: on *:text:*:*:{
if ($nick == $nick) || ($nick == GamZe) {
if !Zline == $1 { msg $nick 13 Açtırmak iStediginiz Ip numarasını Özelime Yazabilirsiniz.. }
if !şikayet == $1 { msg $nick 13 !ŞikayetEdene EttiĞiniz Kişiye EttiĞiniz Konuya ßaqLı oLarak DeqerLendiriLiCekdir. }
if !Help == $1 { msg $nick 13 !help Komut SorCaksanız HeLp KanaLını KuLLanınız. O KanaL Sizin İçin Var. /join #help YapaßiLirsiniz. } if !sohbet == $1 { msg $nick 13 !Sohbet iStiOsan ßoSuna ßekLeme GLoßaL KanaLLarı KuLLan. / }
if !aşk == $1 { msg $nick 13 !Aşk'a ayırıCak vakdIm yoq Ben Aradığım aŞkı Buldum }
if !access == $1 { msg $nick 13 !Access iStediĞiniz KanaLın HeLp KanaLına ve/veya SopLarına Gidiniz.
}
}
}
Kod: menu status,menubar,channel {
Korumalar
.-
.» Özel Karşılama
..Acık:.enable #kaarsıla | .echo -a Özel karşılama açıldı.
..Kapalı:.disable #kaarsıla | .echo -a Özel karşılama kapatıldı.
.-
}
#kaarsıla on
on !*:open:?:*:{
if $nick == NoMercy { halt }
msg $nick 4 Merhaba 2 $nick
msg $nick 4 Bugün Saat ; 10 $time Tarih ; $date
msg $nick 4 Konuşmadığım Süre 10 $replace($duration($idle),mins,Dakika,secs,Saniye, hr,Saat,days,Gün)
msg $nick 4 İsim : 2 Dogan can
msg $nick 4 Şehir : 2 İSTANBUL
msg $nick 4 Yaş : 2 30
msg $nick 4 Takım : 2 BEŞİKTAŞ!
}
#karsıla end
Kod: on *open:?:{
msg $nick 1,7S elam 0,2Hg 3,1 $nick
msg $nick 7,1Bugün0,12 $date 7,1 ve Saat 0,12 $time(HH:nn.ss)
msg $nick 11,1Toplam Açılan Özel Pencerem Sayısı 0,4 %q!
msg $nick 7,1Şu an Özelimdeki015,1 $+($query(0)15.)15 . 15 Kişisin. 9,1 Ben server görevlisi.7 $me
msg $nick 13,1Sizede Diğerleri Gibi 8,1 En Kısa Sürede 11,1 Bakmaya Çalışıcam. 4,1 Bakmazsam Israr Etme LÜtfen Olurmu !!!..
inc %q!
}
özelinize gelen insanlara sizinle görüşmek istedikleri kategori hakkında hazır komutlarla cevaplarla yardım etmek yada özelden karşılamaktır.
Siz bu komutlara dilediğiniz gibi eklemeler yapabileceğiniz gibi yada kısa kısa kendinize uyumlu hale de getirebilirsiniz.
Kod: on *:OPEN:?:*: {
/msg $nick Görüşmek İstediğiniz Kategoriyi Seçiniz (!kategori adı ) !access !şikayet !help !ircd !sohbet !ssl !raw !ircarabirim !ping !lag !operhelp !khaled !bnc !eggdrop !shell | halt }
on *:text:*:?:{
if !access iswm $1 { msg $nick Muhabbet KanaLı Dı$ında ßir KanaLın Acc-Change ini KuLLanmıyorum. Muhabbet KanaLı içinde Ki$iseL gözLem ve ki$inin kanaL performansına göre değerLendiriyorum.}
if !şikayet iswm $1 { msg $nick KanaL GeneL ŞikayetLeriniz İçin /ms <Notunuz/Mesajınız> yazıp gönderiniz.}
if !help iswm $1 { msg $nick ServisLer için ExampLe : /cs help /ns help /ms help yapabilirsiniz. MeşkuL deyiLsem sizinLe iLgiLeneßilirim.}
if !ircd iswm $1 { msg $nick ircd komutLarı için /helpop yapaßiLirsiniz. DetayLı ßiLgi için meşkuL deyilsem ßirebir yardımcı olabilirim. }
if !sohbet iswm $1 { msg $nick MeşkuL değilsem herzaman sohbete açığım. }
if !ssl iswm $1 { msg $nick SSL(secure socket layer) network üzerindeki bilgi transferi sırasında güvenlik ve gizliliğin sağlanması amacıyla Netscape tarafından geliştirilmiş bir güvenlik protokolüdür.Bu şekilde bağlanmak için kendi donanımınız kurup server özel portu(6697) ile bağlanabilirsiniz. Yüklü oLdugunu //echo -s $ ssl komutunu kullandıktan sonra $true cevabını alırsanız anlayabilirsiniz.}
if !raw iswm $1 { msg $nick RAW:çiğmemiş,pişmemiş sözlük anlamı. IRC’de ise Rawlar “Serverin Diri mesajları” anlamına gelmektedir.Yani bu mesajlar, IRC server programının içine düzenli bir şekilde yerleştirilip, program tarafından belirli zamanlarda kullanıcılara iletiliyor.Raw’larla ilgili ilk belgelerin sahibi Jarkko Oikarinen ve S. M. Allen Rawları 6 ana bölüme ayırıyorlar.}
if !ircarabirim iswm $1 { msg $nick Sık KuLLanıLan ÖrnekLerdir: Mirc, Xchat, Bersirc, Bitchx, Klient, GLChat, PircH, Chat Space,Miranda IM,Trillian }
if !ping iswm $1 { msg $nick Pocket Internet Network Group /ping nick & /raw ping nick }
if !lag iswm $1 { msg $nick Lag, gönderdiğiniz mesajın başkaları tarafından okunmasında yaşanan gecikmedir. Normalde bu sadece bir kaç saniye sürer, ancak ağ çok meşgul olduğunda bu süre daha da uzayabilir ve bu duruma da LAG denir. PING komutuyla, iki kişi arasındaki lag süresini ölçebilirsiniz. Sunucuları değiştirmek, yoğun olan lagı azaltmanıza yardımcı olabilir.}
if !operhelp iswm $1 { msg $nick Yardım almak icin #ircop kanalına qiriniz. (/j ircop)}
if !khaled iswm $1 { msg $nick Khaled Mardam Bey.1968’de Jordan’ın (Ürdün) Amman şehrinde doğdu. İsminin ilginç olmasının sebebi ise Suriye’li bir babası, Filistinli bir annesi ve Danimarka’lı bir büyükannesinin olması. Ama şuan kendisi bir İngiliz vatandaşı. İngiltere de oturuyor ve 1995’te kurduğu mIRC Co.Ltd şirketinde çalışıyor.}
if !bnc iswm $1 { msg $nick BNC (BouNCer), kullanıcıların shell üzerinden IRC sunucularına bağlanmasını sağlar. BNC, bir proxy server kurmanızı sağlamaz, kendisi proxy sunucur. BNC bu hizmeti verirken sizin shell hesabınıza bağlanmanız gerekmez. Mirc, IRC programlarını kullanarak BNC üzerinden istediğiniz sunucuya bağlanırsınız.Shell alıdığınız şirketin size verdiği imkanlarla yüzlerlerce vhost ve IP kullanabilir, yaratabilirsiniz.}
if !eggdrop iswm $1 { msg $nick Aslında eggdrop da bir irc bottur ancak shell ile çalıştırılabilen, geliştirilebilen bir programdır. IRC Bot gibi kanalınızda 24 saat durmanın yanında (yüklediğiniz scriptlere göre) kendi listesinde bulunan kullanıcılara op veya voice verme, kanal koruma (küfür, flood vs), kanalda olan yazışmaları kayıt etme gibi değiştirilebilir ve programlanabilir özellikleri vardır.}
if !shell iswm $1 { msg $nick Basitçe, bir shell hesabı aldığınızda sürekli ve yüksek hızda(T1,T3,Kablo vs.) internete bağlı bir bilgisayarınız olacak diyebiliriz. İrc sunucusu kurmak, eggdrop kurmak yada bir bouncer kurmak için sheller ideal olabilir. Shell hesabınızın olduğu bilgisayarlar donanım ve yazılım olarak üst seviye bilgisayarlardır. Genellikle Unix, Linux ve FreeBSD gibi işletim sistemleri kullanılır.}
|
|
|
|
|
Sqline Listesini Temizleme Addonu |
|
Yazar: Admin - 05-13-2020, 08:51 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
}
}
}
|
|
|
|
|
Mass Repeat & Repeat | Kollektif Tekrar ve Tekrar koruması. |
|
Yazar: Admin - 05-13-2020, 08:45 PM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Adından da anlaşılacağı gibi.. Toplu tekrar ve tekrar koruması..
olayımız şu..
birden fazla nick'in aynı metni tekrar etmesi durumundan korur..
ayrıca bir nick içinde yine aynı durum geçerlidir..
farklı nick'lerin tekrar taşkınlıkların da banlar tek,tek degil +bbb şeklinde atılır.. böylece zaten tekrar durumlarında kirlenen kanalı ban ve kick notlarıyla işgal etmez..
kırmızı alan ne kadar süre içinde; mavi alan kaç tekrara izin verildiğini gösterir.. musahamanıza göre ayalarını yapabilirsiniz..
Çalışma örneği:
Kod: on *:text:*:#: mul $chan $nick $1-
alias -l mul {
;<#chan> <nick> <text>
hinc -mu10 $+(f:,$1) $md5($3-) | hadd -mu10 $+(n:,$1) $2 $1
if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item {
var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
while %i <= $token(%b~,0,38) {
mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
tokenize 32 $token(%b~,%i,38)
kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
inc %i
}
}
}
|
|
|
|
|
