BOT SE CONNECTANT EN SOCKET

alias bot-on {
  window -ae @ClientServeur
  sockclose irc-bot
 ;j'ai etabli la connexion avec le nom "irc-bot" sur la valeur de la variable(%serveur)
  sockopen irc-bot %serveur 
  echo @ClientServeur 4BOT connecter sur %serveur ,pour voir la liste des commandes tapez /botcommands !
}

;connexion

on *:sockopen:irc-bot:{
  ;stoper la connexion lors d'un erreure
  if ($sockerr) { echo @ClientServeur Erreur ,vous avez été deconecter | return }
  ;on crée une variable %nick-bot et on rajoute dans la 
  ;partie dialog ".exemple:/set %nick-bot $$?=" entrez la valeur de 
  ;%nick-bot "qui consistera a changer le nick par default par la suite
  sockwrite -n irc-bot NICK %nick-bot

  sockwrite -n irc-bot USER sdb sdb sdb :Bot de dielau (connecter en socket)

}

on *:sockread:irc-bot:{
  sockread %a
;sa j'ai pomper sa sert a dire pong et eviter le ping timeout
  if ($gettok(%a,1,32) == PING) sockwrite -n irc PONG $remove($gettok(%a,2,32),:)
  echo @ClientServeur %a
  unset %a
}
on *:sockclose:irc-bot:{ echo @ClientServeur 4BOT deconnecter de %serveur }
;voila les commandes du bot
on*:join:$me:#:{ sockwrite -n irc-bot PRIVMSG $chan : liste des commandes: !bonjour <nick>,!heure ! }
on *:text:!list:#:{ sockwrite -n irc-bot PRIVMSG $chan : liste des commandes: !bonjour <nick>,!heure ! }
on *:text:!heure:#:{ sockwrite -n irc-bot PRIVMSG $chan : il est $time ! }
on 1:TEXT:!bonjour*:#:{
  if ($2 == $nick) { sockwrite -n irc-bot PRIVMSG $chan :  12 ya $nick qui te dis bonjour $2- ! }
  elseif ($2 == %me-bot) { sockwrite -n irc-bot PRIVMSG $chan :  12 bonjour a toi ossi!!!!!  }
  elseif ($2 == $nul) { sockwrite -n irc-bot PRIVMSG $chan :  12  tu dis bonjour a qui $nick ??? }
  else { sockwrite -n irc-bot PRIVMSG $chan : 12 $nick te dis bonjour $2 $3 $4 $5 $6 $7 $8 $9 $10 !!! }
}


;controle du bot
alias botcommands { echo -a 7liste des commandes :/join-bot (dans le canal ou vous etes acutélement),/part-bot (dans le canal ou vous etes acutélment),/nick-bot <ancien-nick> <nouveau-nick>,/parle-bot <texte> ,/bot-off (pour deconnecter le bot) }
alias join-bot { if (!$1) { sockwrite -n irc-bot join $chan } | else { sockwrite -n irc-bot join $1 $+(,$2-) } }
alias part-bot { sockwrite -n irc-bot part $chan } | else { sockwrite -n irc-bot part $1 $+(,$2-) } }
alias nick-bot { sockwrite -n irc-bot nick $2 | set %me-bot $2 }
alias bot-parle { sockwrite -n irc-bot privmsg $chan : $1 $+(,$2-) }
alias bot-off { sockclose irc-bot } { echo @ClientServeur 4BOT deconnecter de %serveur }