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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Socket Bot Sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/290531-socket-bot-sorun.html)

skylord 08 Kasım 2009 15:35

Socket Bot Sorun
 
Herkese kolay gelsin öncelikli olarak Quakenet kullanıcı oldugumu söyleyeyim.Socket Bot kullanıyordum ama geçen içinde biraz oynarken bi ayarını bozmuşum ve bulamıyorum.Neresinde sorun olduğu konusunda yardımcı olur musunuz ? :)

------------------------
alias bot { sockopen bot irc.quakenet.org 6667 }
on *:sockopen:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
swbot NICK Junnys
swbot USER Junnys * * :4Junnys
sockmark $sockname aaaa
}
on *:sockread:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
var %; | sockread %; | tokenize 32 %;
swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION IRC Security $+ $chr(1) }
if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER IRC Security $+ $chr(1) }
if $1 == PING { swbot PONG $2- }
if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(admin1 admin2,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
if *irc.* iswm %m { swbot PRIVMSG #spam reklam, $nick }
}
if * iswm %m { swbot PRIVMSG #spam $remove($4-,:) }
}
}
}
on *:JOIN:#KANAL: {
/sockwrite -nt bot privmsg $nick #BENİM_KANALIM
/sockwrite -nt bot privmsg $nick Gelirmisin:)
}

-----------------------------------------

Rohit 08 Kasım 2009 15:47

Cevap: Socket Bot Sorun
 
Kod:

on *:sockopen:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun ba&eth;lant&yacute;s&yacute; kesildi. | return }
  swbot NICK $read(mircturk.txt)
  swbot USER mIRCTurk * * :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockmark $sockname MTUser- $+ $rand(1000,9999)
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias gir { sockopen bot irc.mircturk.de 6667 }
on *:SOCKREAD:bot: {
  var %a
  sockread %a
  tokenize 32 %a
  if $1 == PING {
    swbot $sockname PONG $2
  }

Buyur istedigin gibi Editle belki i$ine Yarar.
1+1 Giri$ Yani Script'ten Sunucuya Girdigin zaman Ardindan bir Sock Girer.
mIRC Klasorunde mirctur.txt diye bir Dosta ac
icine istedigin Gibi Nick'ler yaz.

skylord 08 Kasım 2009 16:11

Cevap: Socket Bot Sorun
 
İstediğim şey bu değil.1 tane irc kanalda oluyor socket bot o kanalda olmadan , o kanala girenlere otomatik olarak #reklam atıyor
senın verdiğin biraz daha farklı bi sistem :)

Editor 08 Kasım 2009 19:02

Cevap: Socket Bot Sorun
 
Sen aldığın sorunu yazarsan daha mantıklı olmaz mı?

skylord 09 Kasım 2009 02:38

Cevap: Socket Bot Sorun
 
Aldıgım sorun yok işte , eskıden bunu remoteye ekledıgıde kanala gırmeden,kanala girenlere reklam atıyordu,sımdı ise hıc bişe yok :) cok ufak bi yerinde sorun var mınnacık bişe ama bulamıyorum...

Editor 09 Kasım 2009 22:08

Cevap: Socket Bot Sorun
 
Kod:

alias bot { sockopen bot irc.quakenet.org 6667 }
on *:sockopen:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  swbot NICK Junnys
  swbot USER Junnys * * :4Junnys
  sockmark $sockname aaaa
}
on *:sockread:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %; | sockread %; | tokenize 32 %;
  swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
  if $sock(bot) {
    var %: = echo $color(info) -st > Socket bot:
    if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION IRC Security $+ $chr(1) }
    if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER IRC Security $+ $chr(1) }
    if $1 == JOIN && #KANAL { swbot PRIVMSG %: #KANAL kanalına Hoşgeldiniz. | swbot PRIVMSG %: #KANAL kanalına Beklerim gelirmisin. }
    if $1 == PING { swbot PONG $2- }
    if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
    if $2 == PRIVMSG {
      var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
      if $istok(admin1 admin2,%n,32) {
        if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
        if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
        if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
        if *irc.* iswm %m { swbot PRIVMSG #spam reklam, $nick }
      }
      if * iswm %m { swbot PRIVMSG #spam $remove($4-, }
    }
  }
}

Düzenliyeceğin yer #KANAL yazan yerdir.Umarım işine yarar kolay gelsin.

skylord 10 Kasım 2009 21:28

Cevap: Socket Bot Sorun
 
İlgine teşekkür ederim sagopa ama istediğim benım kanalıma girene oto msj atması değil.rakıp kanala sokacagım bu botu :) tam olarak anlatamadım sanırım kusura bakmayın

skylord 14 Kasım 2009 02:14

Cevap: Socket Bot Sorun
 
Yardım edebilicek kaliteli bi coderimiz yok sanırım :)

rkl 05 Şubat 2011 00:09

Cevap: Socket Bot Sorun
 
Alıntı:

skylord Nickli Üyeden Alıntı (Mesaj 861093)
Herkese kolay gelsin öncelikli olarak Quakenet kullanıcı oldugumu söyleyeyim.Socket Bot kullanıyordum ama geçen içinde biraz oynarken bi ayarını bozmuşum ve bulamıyorum.Neresinde sorun olduğu konusunda yardımcı olur musunuz ? :)

------------------------
alias bot { sockopen bot irc.quakenet.org 6667 }
on *:sockopen:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
swbot NICK Junnys
swbot USER Junnys * * :4Junnys
sockmark $sockname aaaa
}
on *:sockread:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
var %; | sockread %; | tokenize 32 %;
swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION IRC Security $+ $chr(1) }
if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER IRC Security $+ $chr(1) }
if $1 == PING { swbot PONG $2- }
if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(admin1 admin2,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
if *irc.* iswm %m { swbot PRIVMSG #spam reklam, $nick }
}
if * iswm %m { swbot PRIVMSG #spam $remove($4-,:) }
}
}
}
if $2 == JOIN {
if $right($3,-1) == #Rakip Kanal {
sw bot privmsg $nick #BENİM_KANALIM
sw bot privmsg $nick Gelirmisin:)
}

-----------------------------------------

boyle dene ısdersen.


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

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