- 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 }
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 }