| GeceyiSanaYazdim | 24 Şubat 2009 06:52 |
!kb Atasözü
selamun aleyküm
L4roXyL kardeşimizin verdiği kod PHP- Kodu:
on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.gulum.net 80)
on *:sockopen:atsz: {
var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1
sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf
}
on *:sockread:atsz: {
$iif($hget(atsz),hfree atsz) | var %s | sockread %s
if ($regex($gettok(%s,1,32),^ $) && !$regex(%s,http) && $gettok(%s,3,32)) {
hinc -m atsz $replacecs(%s, ,•,$+($chr(38),#9829,$chr(59)),•,$chr(32),½) 1
if ($hget(atsz,0).item == $r(1,10)) sockclose atsz
}
}
alias slct { var %u = $hget(atsz,0).item,%uu = $r(1,%u) | set %& $replacecs($hget(atsz,%uu).item,½,$chr(32)) }
alias kick { kick $1 $2 $iif($3,$3-,%&) | atasozu }
ve buda difuzyondan aldığım kickban kodu PHP- Kodu:
on @*:text:!kb *:#:{
if ($nick !isop $chan) {
notice $nick 5ßu Komutu KuLLanmaya yetkiLi DeğiLsiniz12 $nick 5ßu Komutu kuLLanabiLmek için ßenim ßuLunduğum KanaLLarda Sizinde ßuLunmanız Ve KanaLda Operatör 4(Op)5 oLmanız gerekiyor. !
}
else {
if $2 = $me { notice $nick hiç kusura bakma $nick kendimi atamam:) | return }
if $istok(Nick1 Nick2 Nick3,$2,32) { notice $nick Arkadaşım $2 'yi atamazsın,koruma altında:) | return }
.ban -k $chan $2 $3-
}
}
bu ikisini birleştirebilirmiyiz !kb yazdığımda bot kick mesajına atasözü eklesin ama ipinede ban atsın. olursa olur olmasa canınız sağolsun kolay gelsin |
