tetris oyunu ekleme Kodu eklendi mircindir.org (daha fazla…)
‘mIRC Hazır Kodlar’ kategorisi
tetris oyunu ekleme Kodu
Perşembe, 19 Mayıs 2011botlar icin oto voice ve devoice kodu
Perşembe, 19 Mayıs 2011mirc botlari icin oto voice ve devoice kodu mircindir.org (daha fazla…)
Özel Cevaplama Kodu
Salı, 17 Mayıs 2011Özel Cevaplama Kodu eklendi
on *:open:?:*:{
msg $nick 2Selam4 $nick
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss)
msg $nick 2Konu?mad???m Süre 4 $duration($idle)
msg $nick 2Toplam Aç?lan Özel Pencerem 4Say?s? %q!
inc %q!
msg $nick 2?u an Özelimdeki4 $+($query(0),.) 2Ki?isin Müsait Oldu?umda Cevap Verilecektir
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2 IRC Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz..
inc %q!
}
GerekLi Bazi Hazir Kodlar
Cuma, 13 Mayıs 2011Size seslenenleri seslenme içerigi sunucu ismi ve saati ile yansıtmak.
Statüs penceresine yansıtma. (daha fazla…)
op oldugun bütün kanallardan banlama
Pazartesi, 09 Mayıs 2011op olduğun bütün kanallardan banlama Kodu
Kod:
on *:text:*:?:{
if $read(oku.txt,w,* $+ $1- $+ *) {
var %i = $comchan($nick,0).op
while %i {
mode $comchan($nick,%i).op +b $nick
kick $chan $nick Reklam/küfür korumama yakalandınız.mIRCindir
dec %i 1
}
}
}
Banlanani kille
Pazartesi, 09 Mayıs 2011Banlanani kille Kodu
Kod:
on 1:TEXT:*argokelime*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | ban $chan $nick | if ($banmask !iswm $address($me)) .kill $nick Küfür Etmek Yasakt?r }
Kick sebebi atasozu
Perşembe, 05 Mayıs 2011Kick sebeblerini, atasozu olarak belirle (daha fazla…)
Botnet Mesajlarina Oto Spam
Perşembe, 05 Mayıs 2011Bu kod özelinize gelen botnet mesajlarına otomatik algılama yapıp spamfiltere eklemektedir. (daha fazla…)
Clone Proxy
Pazartesi, 02 Mayıs 2011alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha && $1- islower {
if (($count($1,a,e,i,o,u) >= 4)) { return $false }
if ($regex($1-,/([[:print:]])\\\\1\\\\1/gi) >= 1) { return $false }
if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
if ($regex($1,/^[^aeiou]{3}/)) { return $true }
elseif ($regex($1,/([a-z])\\\\1{2}/)) { return $true }
elseif ($regex($1,/[aeiou]{3/)) { return $true }
elseif ($regex($1,q[^u])) { return $true }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
else { return $false }
}
}
}
alias randn {
if $1- isalpha && $1- islower {
if ($regex($1-,/([[:print:]])\\\\1\\\\1/gi) >= 1) { return $false }
if ($len($1) == 7) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) – 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 
{
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) – 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 9) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) – 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 10) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) – 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) – 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) – 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
else { return $false }
}
}
menu channel,status {
Random Nick Korumas?
Aç :.enable #random | echo -at Random Nick Korumas? Ac?lm??d?r.
kapat:.disable #random | echo -at Random Nick Korumas? Kapat?lm??d?r.
}
Ortak Kanal
Pazartesi, 02 Mayıs 2011irc kodu ortak kanallarımızı gösteren hazır kod.
alias ortak_k {
if ($server == $null) { echo -a 4Herhangi bir server\\\’a ba?l? de?ilsiniz. }
elseif ($chan($me) == 0) { echo -a 4Herhangi bir kanala girmi? de?ilsiniz. }
elseif (!$1) { echo -a 4Ortak kanallar?n?z?n bulunaca?? nick belirtilmedi. }
elseif ($1 == $me) { echo -a 4Kendi nickinizi giremezsiniz. }
elseif ($comchan($1,0) == 0) { echo -a 4Beliritlen nick bulunamad?. }
else {
var %oid 1
set %orka $comchan($1,0)
unset %knms
while (%oid <= %orka) {
set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
inc %oid
}
return %knms
}
}
