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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   socket bot ile kanalda user karsilama (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/873061-socket-bot-ile-kanalda-user-karsilama.html)

DeLiKanLl 15 Haziran 2020 15:50
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
}
}
}

diEfoRyoU 21 Haziran 2020 13:36
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:
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...]

DeLiKanLl 22 Haziran 2020 12:05
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

DeLiKanLl 22 Haziran 2020 14:35
Cevap: socket bot ile kanalda user karsilama
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042325670)
/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:
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:tatli::tatli:

diEfoRyoU 22 Haziran 2020 23:40
Cevap: socket bot ile kanalda user karsilama
 
kısaca;

Kod:
  .timer 1 2 sockwrite -nt $sockname oper operpass.
satırının hemen altına
Kod:
.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...] :)

DeLiKanLl 23 Haziran 2020 09:27
Cevap: socket bot ile kanalda user karsilama
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042326354)
kısaca;

Kod:
  .timer 1 2 sockwrite -nt $sockname oper operpass.
satırının hemen altına
Kod:
.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...] :)

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

DeLiKanLl 24 Haziran 2020 09:29
Cevap: socket bot ile kanalda user karsilama
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042326354)
kısaca;

Kod:
  .timer 1 2 sockwrite -nt $sockname oper operpass.
satırının hemen altına
Kod:
.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...] :)

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

diEfoRyoU 24 Haziran 2020 21:14
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:
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...]

DeLiKanLl 25 Haziran 2020 10:25
Cevap: socket bot ile kanalda user karsilama
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042327153)
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:
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ı
}

DeLiKanLl 02 Ekim 2020 20:21
Cevap: socket bot ile kanalda user karsilama
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042325670)
/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:
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:43.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk