socket botu konuşturma - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

RegSubex · 01 Mayıs 2011, 15:29

s.a arkadaşlar

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
alias _bnick return $read Nick.txt
alias _server return 
irc.sunucu.net
alias _identd return ChatWeb
alias _pass return 
 
alias _port return 6667
alias _username return Muhabbet
alias 
_usermsg return .
;-
alias partt if ($sock(_bot)) sockwrite -n $v1 part 
$1
alias çıkış $iif($sock(_bot),sockclose $v1)
alias _ch if 
($istok(#sohbet #muhabbet,$1,32)) { return $false } | return $true
alias 
konuş if ($sock(_bot)) sockwrite -n $v1 privmsg $1 $2-
on *:sockopen:_bot: 
{
  if ($sockerr) returnex
  var %:- sockwrite -n _bot
 
%:- nick $_bnick
  %:- user $_identd * * : $+ $_username
 
sockmark _bot $_bnick
}
on *:sockread:_bot: {
  if ($sockerr) 
returnex
  var %:- sockwrite -n _bot,%_bot,%_bn = 
$sock(_bot).mark
  sockread -n %_bot
  tokenize 32 
%_bot
  var %_us = $right($token($1-,1,33),-1),%_ch = 
$right($3,-1)
  if ($1 == PING) %:- pong $2- 
  ;botun gireceği 
kanallar
  %:- join #sohbet,#muhabbet
  if (%_us == %_bn 
&& $2 = join && $_ch(%_ch)) { %:- part %_ch }
  ;if ($2 
= join && !$_ch(%_ch)) { %:- privmsg %_us $_usermsg }
}

bu bota kanalda biri s.a dediğinde otomatik a.s nasıl dedirtiriz arkadaşlar

birde çıkış partt konuş gibi komutlarımı geç uyguluyor 1 veya 2 dakika sürüyor nedendir sizce

Difuzyon · 02 Mayıs 2011, 18:16

;Eğer $2 privmsg ise ve $3 bir kanal ise ve $4- ten sonrasında s.a geçiyorsa { sockbot $3 kanalına "A'slm" mesajını göndersin }
if $2 == privmsg && $remove($3,:) ischan && s.a isin $4- { sockwrite -n $sockname privmsg $3 A'slm }

RegSubex · 02 Mayıs 2011, 21:28

difizyun tşkler çalışıyor anlamadığım bir nokta daha var

[21:08:13] s.a yazdım
[21:11:17] yanıt verdi neden bukadar geç cvplıyor sence

artı tek kanaldaydım user sayısıda cok azdı

----------

ilave olarak butun özeline s.a yazılırsa a.s nasıl dedirtiriz şimdiden tşkler

Difuzyon · 02 Mayıs 2011, 22:43

Bunun birden çok nedeni olabilir.
Göze batan en belirgin sebep,kodun dizilim sıralaması:

Alıntı:

alias partt if ($sock(_bot)) sockwrite -n $v1 part
$1
alias çıkış $iif($sock(_bot),sockclose $v1)
alias _ch if
................

Socket botu sıfırdan kurgulamak senin düzeyindeki biri için çok zor olmamalı.
mIRC Scripting Dersleri bölümünde 2.sayfada el33t'in bu konuda bir anlatımı mevcut,oldukça açıklayıcı.
mIRC Scripting Görüntülü Dersler bölümünde SeRDaR406'ının eklediği görsel bir anlatımda mevcut,üstelik konu çok yeni.

RegSubex · 03 Mayıs 2011, 20:51

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
    if $2 == PRIVMSG {
      ;%n 
değişkenine nicki, %m değişkenine gelen mesajı, %k değişkenine kanalı 
ayarlıyoruz
      var %n = 
$gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = 
$3
 
;;;;;;;;;;;;;;;;;;;;;;;;kanalda;;;;;;;;;;;;;;;;;;
 
if $2 == privmsg && $remove($3,:) ischan && s.a isin $4- { 
.timer 1 $rand(1,10) sockwrite -n $sockname privmsg $3 
$gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt 
}
      if $2 == privmsg && $remove($3,:) 
ischan && slm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt 
}
      if $2 == privmsg && $remove($3,:) ischan && selam isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt }
      if $2 == privmsg && $remove($3,:) 
ischan && nbr isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\nbr.txt 
}
      if $2 == privmsg && $remove($3,:) 
ischan && sezer isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\YaPraK.txt 
}
      if $2 == privmsg && $remove($3,:) 
ischan && a.s isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt 
}
      if $2 == privmsg && $remove($3,:) 
ischan && aslm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt 
}
      if $2 == privmsg && $remove($3,:) 
ischan && nasılsın isin $4- { .timer 1 $rand(1,10) sockwrite -n 
$sockname privmsg $3 $gettok($gettok($1-,1,33),1,58) $read 
bot\bot\nasılsınız.txt }
      if $2 == privmsg 
&& $remove($3,:) ischan && bot isin $4- { .timer 1 $rand(1,10) 
sockwrite -n $sockname privmsg $3 $gettok($gettok($1-,1,33),1,58) $read 
bot\bot\bot.txt }
 
;;;;;;;;;;;;;;;;;;;;;;;;özelde;;;;;;;;;;;;;;;;;;
 
if $2 == privmsg && $remove($3,:) == sezer && bot isin $4- { 
.timer 1 $rand(1,2) sockwrite -n $sockname privmsg 
$gettok($gettok($1-,1,33),1,58) $read bot\bot\bot.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && s.a isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && slm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && selam isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && nbr isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\nbr.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && sezer isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\YaPraK.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && a.s isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && aslm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt 
}
      if $2 == privmsg && $remove($3,:) == 
sezer && nasılsın isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname 
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\nasılsınız.txt 
}
    }

socket botu konuşturma kodu belki birinin işine yarat küfür koruma olarakta değiştirilip kullanıla bilir bot nick sezer dir. kodlamaya göre

Difuzyon · 03 Mayıs 2011, 21:15

Kod içindeki klasörlerin\belgelerin içeriğinin ne şekilde olacağını da üyelere tarif etmelisin yoksa bu haliyle eklendiğinde hata mesajı verecektir.

RegSubex · 03 Mayıs 2011, 21:31

aklıma geldi difizyun okadar ayrıntıyı bilmeyenin işine yarıyacağını sanmadığım için gerek duymadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

RegSubex · 08 Mayıs 2011, 14:40

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $2 == privmsg && $remove($remove($3,:),#oyun) && slm isin $4- 
{ .timer 1 $rand(1,10) sockwrite -n $sockname privmsg $3  
$gettok($gettok($1-,1,33),1,58) $read bot/slm.txt  
}
      if $2 == privmsg && 
$remove($remove($3,:),#oyun) && nbr isin $4- { .timer 1 $rand(1,10) 
sockwrite -n $sockname privmsg $3  $gettok($gettok($1-,1,33),1,58) $read 
bot/nbr.txt  }

arkadaşlar socket bilgisi olanlardan ricam botum kanalda aynı satırda gecen kelimelere ayrı ayrı cvp vermesi sıkıntı yaratıyor

slm nbr dendiğinde bor ıkısınede ayrı ayrı satırlarda cvp veriyor bu sorunu isin yerine iswm kullanarak denedim pek bişey elde edemedim

1: && slm isin $4- bu satırı && slm naber isin $4- gibi ekleyınce okuta bilirmiyiz bota && slm naber isin $4- bu şekıldeki kodları okumuyor

2: bota kayıtlı olan ıkı kelime satırda geciyorsa tek cvp verdire bilirmiyiz

Difuzyon · 24 Mayıs 2011, 23:35

if sorgusunda belirttiğiniz tanımı eşitlemeyen bir belirsizlik var:

$remove($remove($3,:),#oyun)

buna bir karşılık belirtilmediğinden sorgu yanıt alamayacaktır.Şayet burda ki durumu "#oyun kanalı hariç" şeklinde almak istiyorsanız sorgunuz:
$remove($3,:) != #oyun
şeklinde olmalıdır.

RegSubex · 25 Mayıs 2011, 19:46

if $2 == privmsg && $remove($remove($remove($remove($remove($remove($3 ,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,#oxm),#kelime),#test),#yarisma),#oyun) bu şekilde muafm kanalalr eklemiştim

$remove($3,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= #oyun bu sorguya göre muafkanalalr sıralamasını nasıl yapmam uygun olur butun oyun kanallarını muaf tutmak istiyorun

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Koruma BOTU Socket	GhostLy	IRCd Botlar	12	23 Haziran 2024 20:03
Çözüldü Socket Bot Konuşturma hakkında.	Masters	mIRC Scripting Sorunları	5	29 Eylül 2022 02:19
Güvenlik Botu Socket (Aux v1.0)	YouMyCure	IRCd Botlar	1	30 Ekim 2020 22:00
RSS Botu (Socket)	Toprak	IRCd Botlar	0	02 Nisan 2019 14:43

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.