5 Mart 2009 için Arşiv

Tüm banları açma koduum Banlar? Acma Kodu

 

 

 

 

alias clearallban {if ($regex($usermode,/(o|O|N|a|A|C))) {

echo 4 -a IRCop modu tespit edildi, bulundu?unuz bütün kanallar?n ban? aç?l?yor..

var %cx = 1,%xc = $chan(0)

while (%cx <= %xc) {

clearbans $chan(%cx)

inc %cx 1

}

halt

}

var %u = 1,%f = $chan(0)

while (%u <= %f) {

if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanal?n?n ban? aç?l?yor.. }

inc %u 1

}

}

raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanal?n?n Ban Listesi Dolmu? Durumda, Banlar Temizleniyor.. | clearbans $2 | Halt } }

alias massmode {

var %i = 1, %x = $numtok($3-,32), %y = $modespl

while (%i <= %x) {

mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)

inc %i %y

}

}

alias clearbans {

var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t

if (%b == 0) {

echo -t %1 * Ban Listesi Al?n?yor $+(%1,…)

mode %1 b

}

else {

var %i = $ibl(%1,0)

while (%i) {

var %t = $addtok(%t,$ibl(%1,%i),32)

dec %i

}

massmode %1 -b %t

}

}

_________________

kodu remoteye ekliyorsunuz alt+r

op olduğunuz tüm kanalların banını

ircop iseniz bulunduğunuz bütün kanalların banını açar.

 

 

 

 

 

Comments Yorum Yok »

alias yolla {
var %i 1
while %i <= $nick(#,0) {
.timer 1 $calc(%i * 5) .msg $nick(#,%i) $1-
inc %i
}
}

yolla Mesajınız
Şeklinde Çalışır..

5 Saniye Aralıklarla Kanaldaki Herkesin Özeline Belirttiğiniz Mesajı Atar..

Not : Kırmızı İle Yazılı Yerdeki 5 \\\'i İstediğiniz Şekilde Değiştirebilirsiniz..
Flood\\\'dan Düşülmemesi İçin 5 Tercih Edilmiştir..

Comments Yorum Yok »

Bu sistemi kullanmak için yapılması gereken işlemler ;

#Sınavdesk kanalını kayıt edin.

//run $mircdir yaparak soru1.txt soru2.txt soru3.txt soru4.txt soru5.txt cevap1.txt cevap2.txt cevap3.txt cevap4.txt cevap5.txt dosyaları oluşturun veya ;

Yazının geri kalanını oku »

Comments Yorum Yok »

Her gün farklı Sözler öğrenmenize yarar.

PHP- Kodu:
dialog söz {
title “Günün Sözü ”
size -1 -1 312 24
option dbu
edit
“”, 1, 11 6 291 10
}
alias htmlfree {
var %
x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp ;)
return %
x
}
alias gününsözü { sockopen söz www.gununsozu.com 80 | dialog -m söz söz }
on *:sockopen:söz:{
sockwrite -n $sockname GET / HTTP/1.0
sockwrite
-n $sockname Host: gununsozu.com $+ $crlf $+ $crlf
}
on *:sockread:söz:{
if (
$sockerr) {
echo
4 -a hata var!
}
else {
var %
gününsözü
sockread
%gününsözü
if <p id=“text<font color=” align=center“> isin %gününsözü {
set %sözler ”
$deltok($htmlfree(%gününsözü),,9) $+ “ )
}
}
}
on *:Dialog:söz:init:0:{
did -a söz 1 %sözler
}

/Gününsözü

Şeklinde Çalıştırabilirsiniz.

Comments Yorum Yok »

Kategoriler

chat sohbet | Sohbet