IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
2Beğeni(ler)
  • 2 Post By diEfoRyoU

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Haziran 2020, 15:50   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
socket bot ile kanalda user karsilama



Aşağıdaki kodu aldım fakat çalıştıramadım.. Benim istediğim, servere soktuğum bot, kanala giren usere Sunucumuza hoş geldiniz. yazması

ayrıca Selam verenlere a.s. hoşqeldiniz demesi. Bana yardımcı olacak biri varmı?

birde servere soktuqumuz botu nasıl çıkarıyoruz. /sockopen x serverismi yapınca giriyor fakar çıkartmak için komut nedir. Yardımlarınızı bekliyorum..

on *:SOCKOPEN:X: {
sockwrite -nt $sockname NICK BotNick
sockwrite -nt $sockname USER Botident "" " $+ $iif($host,$host,$ip) $+ " :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.
.timer 1 3 sockwrite -nt $sockname join #kanal1,#kanal2,#kanal3(Giriceği kanallar)
}
if $2 == Notice {
if *Client connecting on* iswm $1- {
sockwrite -nt $sockname privmsg $12 Mesaj
sockwrite -nt $sockname privmsg $12 Mesaj2
sockwrite -nt $sockname privmsg $12 Mesaj3
sockwrite -nt $sockname privmsg $12 Mesaj4
sockwrite -nt $sockname privmsg $12 Mesaj5
}
}
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 21 Haziran 2020, 13:36   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



/bkontrol komutunu uyguladığında bot açıksa kapanır, kapalı ise açılır.

#kanal yazan yeri botun selam alacağı ve hoş geldiniz diyeceği kanalı yazmalısın.
botun hoş geldiniz demeyeceği nickler belirleye bilirsin.

botun selam almayacağı muaf nickler belirleye bilirsin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bkontrol { $iif($sock(X),sockclose X,sockopen X sunucu-ismi port) }
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.
  }
  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 $regex($remove($4,:),/^selam$|s\.a|slm|selam[İıu]n/i) && !$istok(muafnick muafnick muafnick Botnick,$gettok($remove($1,:),1,33),32) {  
    sockwrite -nt $sockname privmsg $3 A.selam $gettok($remove($1,:),1,33) $+ , hoş geldiniz. }
  }
}



Umarım işine yarar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 22 Haziran 2020, 12:05   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



Kardeşim çok teşekkürler.

İlave olarak, kanala her girene. Sunucumuza hoşgeldiniz. Keyifli sohbetler yazdırabilirmiyiz. ? Botun nickini. Botnick yazan yeremi yazacam..

Kusuruma bakma çok soruyorum, ben yeniyim bu işte.. İnşallah yardımlarınız sayesinde bir şeyler yapacam..

Son olarak, muaf nick yazan yere nick yazmasam sıkıntı olurmu ?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:43 -->-> Daha önceki mesaj 11:40 --

* /sockopen: Geçersiz parametre (Satır 1, script1.txt)

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:44 -->-> Daha önceki mesaj 11:43 --

böyle bir hata verdi. Remote ye attım.. /bkontrol yazdığımda böyle bir hata verdi

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 12:05 -->-> Daha önceki mesaj 11:44 --

Tamamdır kardeşim çözdüm eywallah ellerine sağlık çoook teşekkürler

 
Alıntı ile Cevapla

Alt 22 Haziran 2020, 14:35   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
/bkontrol komutunu uyguladığında bot açıksa kapanır, kapalı ise açılır.

#kanal yazan yeri botun selam alacağı ve hoş geldiniz diyeceği kanalı yazmalısın.
botun hoş geldiniz demeyeceği nickler belirleye bilirsin.

botun selam almayacağı muaf nickler belirleye bilirsin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bkontrol { $iif($sock(X),sockclose X,sockopen X sunucu-ismi port) }
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.
  }
  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 $regex($remove($4,:),/^selam$|s\.a|slm|selam[İıu]n/i) && !$istok(muafnick muafnick muafnick Botnick,$gettok($remove($1,:),1,33),32) {  
    sockwrite -nt $sockname privmsg $3 A.selam $gettok($remove($1,:),1,33) $+ , hoş geldiniz. }
  }
}



Umarım işine yarar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]




Çok işime yaradı.. Çok sağolll.. Bot 'un nickini şifrelesem.. İdentify yaptırabilirmiyiz? teşekkürler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
Alıntı ile Cevapla

Alt 22 Haziran 2020, 23:40   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



kısaca;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
   .timer 1 2 sockwrite -nt $sockname oper operpass.

satırının hemen altına
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
.timeridentify 1 20 sockwrite -nt $sockname ns identify nickpass

satırını eklersen pek ala yaptırabilirsin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 23 Haziran 2020, 09:27   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kısaca;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
   .timer 1 2 sockwrite -nt $sockname oper operpass.

satırının hemen altına
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
.timeridentify 1 20 sockwrite -nt $sockname ns identify nickpass

satırını eklersen pek ala yaptırabilirsin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Eywallah kardeşim çok sağol bu kod çok işime yaradı çok sağol varol +1

 
Alıntı ile Cevapla

Alt 24 Haziran 2020, 09:29   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kısaca;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
   .timer 1 2 sockwrite -nt $sockname oper operpass.

satırının hemen altına
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
.timeridentify 1 20 sockwrite -nt $sockname ns identify nickpass

satırını eklersen pek ala yaptırabilirsin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


SON BİR ŞEY DAHA SORABİLİRMİYİM. SELAM İŞİ TAMAM.. İLAVE KELİMELER NASIL EKLERİM. BAYA DENEMELER YAPTIM OLMADI..KODU BOZARIM DİYE BIRAKTIM..

MESELA GÜNAYDIN DİYENE. GÜNAYDIN HOŞGELDNİZ.

GİDİYORUM DİYENE.. GÜLE GÜLE GİDİN TEKRAR BEKLERİZ GİBİ EKLEMELER YAPMAK İSTEDİM..
BUNA BENZER İLAVE KELİME EKLEYECEĞİMDE NE YAPMALIYIM. BİRDE ARALIK VARMI MESELA ŞÖYLE SÖYLEYEYİM. *SELAM* BÖYLE YAPILINCA MİSAL. CÜMLE İÇİNDE SELAM GEÇİYORSA CEVAPLARMI.. İNŞALLAH ANLATABİLMİŞİMDİR. TEŞEKKÜRLER

 
Alıntı ile Cevapla

Alt 24 Haziran 2020, 21:14   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



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...]

__________________
TurkSohbet.NET | #XPass
Konu diEfoRyoU tarafından (24 Haziran 2020 Saat 21:58 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 25 Haziran 2020, 10:25   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



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ı
}

 
Alıntı ile Cevapla

Alt 02 Ekim 2020, 20:21   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot ile kanalda user karsilama



diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
/bkontrol komutunu uyguladığında bot açıksa kapanır, kapalı ise açılır.

#kanal yazan yeri botun selam alacağı ve hoş geldiniz diyeceği kanalı yazmalısın.
botun hoş geldiniz demeyeceği nickler belirleye bilirsin.

botun selam almayacağı muaf nickler belirleye bilirsin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bkontrol { $iif($sock(X),sockclose X,sockopen X sunucu-ismi port) }
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.
  }
  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 $regex($remove($4,:),/^selam$|s\.a|slm|selam[İıu]n/i) && !$istok(muafnick muafnick muafnick Botnick,$gettok($remove($1,:),1,33),32) {  
    sockwrite -nt $sockname privmsg $3 A.selam $gettok($remove($1,:),1,33) $+ , hoş geldiniz. }
  }
}



Umarım işine yarar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod çok güzel çalışıyor.
Bir ricam daha var. Birde kanaldan çıkış yapanlara exit veya part yapanlara mesaj verdirebilirmiyiz? Örnek veriyorum
Nick Çıkış yapmıştır, Sunucumuza tekrar bekleriz.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bot ekleme, bot kodu, socket, socket anket

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Socket bot kanalda nick sorgulama xqw mIRC Scripting Sorunları 4 06 Haziran 2016 21:43
Özel User Karsilama Kodu Leo mIRC Scripting Sorunları 5 19 Mayıs 2010 06:59
whois kanalda gösterme ve kanaldaki user listesi seçimi TaaRuZ mIRC Scripting Sorunları 7 20 Kasım 2008 15:28
kanalda yazı yazan op ise +user ise kodları sniper mIRC Scripting Sorunları 1 12 Temmuz 2008 17:36
Socket ßotta Kanalda ve özelde komut uygulatma bLaCkdeviL mIRC Scripting Sorunları 8 28 Ocak 2007 14:18




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org