Aide: Bot en socketsRésolu

Question

Voila,
J'ai fait un bot en socket, il est connecter et tout.
Mais, je me demande si il est possible de faire des commande genre je dit !lolz, et le bot (en sockets) r&#233;pond Lolz $nick !!!
Si oui, pouvez vous &#233;crire le code ici ?
Merci d'avance.

fjxokt · Accepted Answer

On 1:Sockread:mech:{

  sockread %mech.read | tokenize 32 %mech.read

  if ($2 == PING) sockwrite -n mech PONG $remove($1,:)

  elseif ($2 == PRIVMSG) {

    if ($4 == !lol) {

      var %nick $remove($gettok($1,1,33),:)

      sockwrite -n mech PRIVMSG $3 :Lolllzz %nick

    }

  }

  unset %mech.read

}



j'ai pas test&#233; mais normalement &#231;a  devrait marcher

S333 · Answer

Oui, tu recr&#233;e le on text en fait...

dans ton sockread, tu aura diff&#233;rent truc, PRIVMSG #CHAN :message

Suffit de r&#233;cup&#233;rer le #chan et le :message.

Si tu veux voir &#224; quoi ressemblent tous les messages, fait un /debug.


-----------------------------
Signature des parents :

COOLMAN002 · Answer

Comme l'a signal&#233; S333, suffit de r&#233;cuperer les donn&#233;es de ton sockread et de prendre ce que tu as besoin.



Lors d'un PRIVMSG, en socket tu re&#231;ois:



:pseudo!ident@adresse PRIVMSG #salon :message



via ton event sockread (on *:sockread:BOT:), tu recuperes les donn&#233;es (variable par exemple), tu /TOKENIZE 32 VARIABLE.



Ensuite, "$1" sera &#233;gal &#224; :pseudo!ident@adresse

$2 = PRIVMSG

$3 = #Salon

$4 = :message

Si tu $gettok($1,1,33) (33 = valeur ASC de "!"), tu auras: :pseudo tu auras juste besoin de faire un p'tit $right avec comme valeur "1-" pour retourner le "$nick" en socket.



Si tu veux un exemple:

http://CM002.no-ip.biz/Socket.php

Mc_AbBeR · Answer

Je comprend pas trop...
j'ai essayer
On 1:Sockread:mech:{
  sockread %mech.read
  if ($gettok(%mech.read,1,32) == PING) sockwrite -n mech PONG $remove($gettok(%mech.read,2,32),:)
  elseif ($2 == PRIVMSG) { 
    if ($gettok(%mech.read,1,32) == PRIVMSG) sockwrite -n mech PRIVMSG #e.n.e.m.y :Lolzzz
  }
  unset %mech.read
}
mais sa marche pas:/

COOLMAN002 · Answer

euh...



On 1:Sockread:mech:{

  sockread %mech.read

  if ($gettok(%mech.read,1,32) = = PING) sockwrite -n mech PONG $remove($gettok(%mech.read,2,32),:)

  elseif ($2 == PRIVMSG) { 

    if ($gettok(%mech.read,1,32) == PRIVMSG) sockwrite -n mech PRIVMSG #e.n.e.m.y :Lolzzz

  }

  unset %mech.read

}



O&#249; se trouve ton  TOKENIZE 32 %mech.read  ?

Si tu n'as pas de TOKENIZE, tu as pas de "$N"



elseif ($2  == PRIVMSG) {

    if ($gettok(%mech.read,1,32) == PRIVMSG) ...



Ce qui donne:



elseif ($2 == PRIVMSG) {

    if ($1 == PRIVMSG) ...



Vois-tu tes erreurs ?



PS:

$1 = :pseudo!ident@adresse

$2 = PRIVMSG

$3 = #SALON

$4- = :message



ne l'oublie pas.

Mc_AbBeR · Answer

Je comprend toujours pas...
Peux tu me "faire" le code stp?

Mc_AbBeR · Answer

Sa marche pas tout &#224; fait!
J'ai rajouter
  elseif ($2 == PRIVMSG) {
    if ($4 == :!lol) {
      var %nick $remove($gettok($1,1,33),:)
      sockwrite -n irc PRIVMSG $3 :Lolllzz %nick
    }
  }
Pis sa marche
thx

Mc_AbBeR · Answer

vous pouvez me dire comment op quelqu'un en sockets?
exemple:
    if ($4 == :!op) {
      var %nick $remove($gettok($1,1,33),:)
      if %acces. [ $+ [ $address($nick,2) ] ] >= 300 sockwrite -n mech MODE $3 +o $nick
    }
  }

Sa marcherai?

fjxokt · Answer

et si tu essayais par toi m&#234;me ?

n'oublie pas que pour voir les commandes cot&#233; serveur, tu peux faire un /debug @win

talking · Answer

en socket le $nick n'est pas &#233;valu&#233;. Faut que tu le r&#233;cup&#233;res comme l'a &#233;voqu&#233; CoolMan avec $N . Ca doit &#234;tre $remove($gettok($1,1,33),:)

Aide: Bot en sockets

10 réponses

Votre réponse