|
diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
kodu remote kısmına ekledikten sonra aşağıdaki komutlar aktif olacaktır.
/kmesaj ekle söylenecek-kelime verilecek karşılık
ÖRNEK: /kmesaj ekle selam a.selam <N> hoş geldiniz.
Not: <N> seçeneği opsiyonel eğer eklemeyi örnekteki gibi yaparsan bot şu şekilde cevap verecektir.
a.selam XPass hoş geldiniz.
Artık karşılık verilmesini istemediğin kelimeyi aşağıdaki komutla silebilirsin.
/kmesaj sil söylenecek kelime
Aşağıdaki komutla karşılama mesajlarını listeleyebilirsin.
/kmesaj list
Kod: Kodu kopyalamak için üzerine çift tıklayın! alias bkontrol { $iif($sock(X),sockclose X,sockopen X sunucu-ismi port)
$iif(!$isfile(kmesaj.die),write -c kmesaj.die)
hmake 100 kmesaj | hload kmesaj kmesaj.die
}
alias replace? return $regsubex($1,/[ÖÇŞĞÜİöçşığü]/g,?)
alias kmesaj { if !$istok(ekle sil list,$1,32) { echo Geçersiz parametre:4 $1 | return }
if $1 = ekle { hadd -m kmesaj $replace?($2) $3-
hsave kmesaj kmesaj.die | hload kmesaj kmesaj.die
echo :14 $2 kelimesi için12 $3- 12karşılama mesajı eklendi | return }
if $1 = sil { if $hmatch(kmesaj,$2) { hdel -w kmesaj $2 | hsave kmesaj kmesaj.die | hload kmesaj kmesaj.die
echo :14 $2 kelimesi için karşılama mesajı silindi. | return }
else {
echo :14 $2 kelimesi için karşılama mesajı bulunamadı | return }
}
if $1 = list { if !$hget(kmesaj) { echo kmesajma mesajı için oluşturulmuş kelime listesi bulunamadı. | return }
var %> = 1 | while ($hget(kmesaj, %>).item) {
echo : %> $+ ) Söylenecek kelime:12 $v1 Karşılığı=>14 $hget(kmesaj, $v1)
inc %>
}
}
}
on *:SOCKOPEN:X: {
sockwrite -nt $sockname NICK Botnick
sockwrite -nt $sockname USER Bot-ident "" " $+ $iif($host,$host,$ip) $+ " :Bot-fullname
}
on *:SOCKREAD:X: {
var %s
sockread %s
tokenize 32 %s
if $1 == PING {
sockwrite -nt $sockname PONG $2
}
if $2 == 376 {
; sockwrite -nt $sockname join 0,
.timer 1 2 sockwrite -nt $sockname oper operpass.
.timeridentify 1 20 sockwrite -nt $sockname ns identify nickpass
}
if $2 = join && !$istok(muafnick muafnick muafnick Botnick,$gettok($remove($1,:),1,33),32) && $remove($3,:) = #kanal {
sockwrite -nt $sockname privmsg $remove($3,:) Sunucumuza hoş geldiniz $gettok($remove($1,:),1,33) }
if $2 = privmsg && $3 = #kanal {
if $hmatch(kmesaj,$remove($4,:)) {
sockwrite -nt $sockname privmsg $3 $replace($hget(kmesaj,$ifmatch),<N>,$gettok($remove($1,:),1,33)) }
}
}
Umarım anlaşılır bir bilgilendirme olmuştur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
Tekrardan Çook Teşekkürler.. Uygulayacağım Sağolasın
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 10:25 -->-> Daha önceki mesaj 10:13 --
@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Herşey için çok tşk. Elimde bir kod var. Lamer takip adılı bir kod. Aşağıda paylaşıyorum. Kod çalışıyor, siz bu işten anlıyorsunuz. Bu koda ilaveten. /ipekle 88.274* yaptığımda. 88.274 ile başlayan iplere oto zline uygulayabilirmiyim. Mümkünmüdür. Şimdiden çok teşekkürler.
Kullanacağınız komutlar.
; /ipekle ip Örnek : /ipekle 88.274.*
; /ipsil ip Örnek : /ipsil 88.274.*
; /iplist
;AÇIKLAMA :
; Arkadaşlar modem resetlendiğinde örnek ipimiz ; 85.108.5.177
; Ip adresimisimizin ilk 2 aralığı değişmez. Yani : 85.108. ( Bölgeye göre bu sabitlik değişebilir yani 5 resetten sonra ip adresi de değişebilir )
; Sizde bu şekilde gelen lameri /ipekle İP.No.* şeklinde ekleyerek takip edebilirsiniz.
#takiplamer on
on *:snotice:*client connecting*: {
var %ses = 1
while $read(iptakip.txt,%ses) {
if $v1 iswm $gettok($remove($10,$chr(41)),2,64) {
$iif(!$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -enz @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
aline -hp @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] BANLA! : Nick : $9 Ident : $remove($gettok($10,1,64),$chr(40),$chr(41)) Port: $8 IP aralığı : $gettok($remove($10,$chr(41)),2,64) Ban için IP'e tıklayın | aline -hp @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -
if $8 == 6668: { echo -a mIRC! : Nick : $9 Ident : $remove($gettok($10,1,64),$chr(40),$chr(41)) IP aralığı : $gettok($remove($10,$chr(41)),2,64) }
else { echo -a Web! : Nick : $9 Ident : $remove($gettok($10,1,64),$chr(40),$chr(41)) IP aralığı : $gettok($remove($10,$chr(41)),2,64) }
return
}
inc %ses
}
}
on ^*:hotlink:*.*:@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:return
on *:hotlink:*:@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: {
gline $gettok($hotline,21,32) 1d The drone/spam bot blocked. Spam/advertising blocked. ßy $me )
}
#takiplamer end
alias ipekle {
if !$read(iptakip.txt,w,$1) {
write iptakip.txt $1
echo -a $1 eklendi
}
else {
echo -a $1 $+($readn,.) satırında mevcut.
}
}
alias iplist {
var %lst = 1
while %lst <= $lines(iptakip.txt) {
/echo -a %lst $+(-,) $read(iptakip.txt,%lst)
inc %lst
}
}
alias ipsil {
if $read(iptakip.txt,w,$1) {
write $+(-dl,$readn) iptakip.txt
echo -a $1 Lamerin ipi silindi $me
}
else {
echo -a $1 Böyle bir ip yok $me kendindemisin ?
}
}
menu channel,menubar {
» Lamer Takip
.» Lamer Takip Aç:.enable #takiplamer | echo -a Lamer Takip Devrede
.-
.» Lamer Takip Kapat:.disable #takiplamer | echo -a Lamer Takip Kapalı
}