Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

BOT DE LIASON DE CHANS


Information sur la source

Description

Ce bo permet de relier 2 ou 3 chans entre eux, des que quelque chose se passe sur #chan1 il le dit sur #chan2 et #chan3
 

Source

  • on *:start: {
  • if (!%parametre) {
  • set %chan.1 $$?#="Entrez le chan numéro 1 :"
  • set %chan.2 $$?#="Entrez le chan numéro 2 :"
  • set %chan.3 $$?#="Entrez si vous voulez le chan numéro 3 :"
  • if (!%chan.3) { set %chan.3 *inexistant* }
  • set %parametre ok
  • }
  • }
  • on *:TEXT:*:*: {
  • if ( $chan == %chan.1 ) {
  • msg %chan.2 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  • msg %chan.3 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  • }
  • if ( $chan == %chan.2 ) {
  • msg %chan.1 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  • msg %chan.3 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  • }
  • if ( $chan == %chan.3 ) {
  • msg %chan.1 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  • msg %chan.2 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  • }
  • }
  • on *:ACTION:*:*: {
  • if ( $chan == %chan.1 ) {
  • msg %chan.2 ( $+ $chan $+ ) * $nick $$1-
  • msg %chan.3 ( $+ $chan $+ ) * $nick $$1-
  • }
  • if ( $chan == %chan.2 ) {
  • msg %chan.1 ( $+ $chan $+ ) * $nick $$1-
  • msg %chan.3 ( $+ $chan $+ ) * $nick $$1-
  • }
  • if ( $chan == %chan.3 ) {
  • msg %chan.1 ( $+ $chan $+ ) * $nick $$1-
  • msg %chan.2 ( $+ $chan $+ ) * $nick $$1-
  • }
  • }
  • on *:PART:*: {
  • if ( $chan == %chan.1 ) {
  • msg %chan.2 ( $+ $chan $+ ) PART : $nick
  • msg %chan.3 ( $+ $chan $+ ) PART : $nick
  • }
  • if ( $chan == %chan.2 ) {
  • msg %chan.1 ( $+ $chan $+ ) PART : $nick
  • msg %chan.3 ( $+ $chan $+ ) PART : $nick
  • }
  • if ( $chan == %chan.3 ) {
  • msg %chan.1 ( $+ $chan $+ ) PART : $nick
  • msg %chan.2 ( $+ $chan $+ ) PART : $nick
  • }
  • }
  • on *:JOIN:*: {
  • if ( $nick != $me ) {
  • if ( $chan == %chan.1 ) {
  • msg %chan.2 ( $+ $chan $+ ) JOIN : $nick
  • msg %chan.3 ( $+ $chan $+ ) JOIN : $nick
  • }
  • if ( $chan == %chan.2 ) {
  • msg %chan.1 ( $+ $chan $+ ) JOIN : $nick
  • msg %chan.3 ( $+ $chan $+ ) JOIN : $nick
  • }
  • if ( $chan == %chan.3 ) {
  • msg %chan.1 ( $+ $chan $+ ) JOIN : $nick
  • msg %chan.2 ( $+ $chan $+ ) JOIN : $nick
  • }
  • }
  • }
  • on *:KICK:*: {
  • if ( $knick != $me ) {
  • if ( $chan == %chan.1 ) {
  • msg %chan.2 ( $+ $chan $+ ) KICK : $knick by $nick
  • msg %chan.3 ( $+ $chan $+ ) KICK : $knick by $nick
  • }
  • if ( $chan == %chan.2 ) {
  • msg %chan.1 ( $+ $chan $+ ) KICK : $knick by $nick
  • msg %chan.3 ( $+ $chan $+ ) KICK : $knick by $nick
  • }
  • if ( $chan == %chan.3 ) {
  • msg %chan.1 ( $+ $chan $+ ) KICK : $knick by $nick
  • msg %chan.2 ( $+ $chan $+ ) KICK : $knick by $nick
  • }
  • }
  • }
  • on *:NICK:*: {
  • if ( $chan == %chan.1 ) {
  • msg %chan.2 ( $+ $chan $+ ) NICK : $nick as $newnick
  • msg %chan.3 ( $+ $chan $+ ) NICK : $nick as $newnick
  • }
  • if ( $chan == %chan.2 ) {
  • msg %chan.1 ( $+ $chan $+ ) NICK : $nick as $newnick
  • msg %chan.3 ( $+ $chan $+ ) NICK : $nick as $newnick
  • }
  • if ( $chan == %chan.3 ) {
  • msg %chan.1 ( $+ $chan $+ ) NICK : $nick as $newnick
  • msg %chan.2 ( $+ $chan $+ ) NICK : $nick as $newnick
  • }
  • }
on *:start: {
  if (!%parametre) {
    set %chan.1 $$?#="Entrez le chan numéro 1 :"
    set %chan.2 $$?#="Entrez le chan numéro 2 :"
    set %chan.3 $$?#="Entrez si vous voulez le chan numéro 3 :"
    if (!%chan.3) { set %chan.3 *inexistant* }
    set %parametre ok
  }
}

on *:TEXT:*:*: {
  if ( $chan == %chan.1 ) {
    msg %chan.2 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
    msg %chan.3 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  }
  if ( $chan == %chan.2 ) {
    msg %chan.1 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
    msg %chan.3 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  }
  if ( $chan == %chan.3 ) {
    msg %chan.1 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
    msg %chan.2 ( $+ $chan $+ ) < $+ $nick $+ > $$1-
  }
}

on *:ACTION:*:*: {
  if ( $chan == %chan.1 ) {
    msg %chan.2 ( $+ $chan $+ ) * $nick $$1-
    msg %chan.3 ( $+ $chan $+ ) * $nick $$1-
  }
  if ( $chan == %chan.2 ) {
    msg %chan.1 ( $+ $chan $+ ) * $nick $$1-
    msg %chan.3 ( $+ $chan $+ ) * $nick $$1-
  }
  if ( $chan == %chan.3 ) {
    msg %chan.1 ( $+ $chan $+ ) * $nick $$1-
    msg %chan.2 ( $+ $chan $+ ) * $nick $$1-
  }
}

on *:PART:*: {
  if ( $chan == %chan.1 ) {
    msg %chan.2 ( $+ $chan $+ ) PART : $nick
    msg %chan.3 ( $+ $chan $+ ) PART : $nick
  }
  if ( $chan == %chan.2 ) {
    msg %chan.1 ( $+ $chan $+ ) PART : $nick
    msg %chan.3 ( $+ $chan $+ ) PART : $nick
  }
  if ( $chan == %chan.3 ) {
    msg %chan.1 ( $+ $chan $+ ) PART : $nick
    msg %chan.2 ( $+ $chan $+ ) PART : $nick
  }
}

on *:JOIN:*: {
  if ( $nick != $me ) {
    if ( $chan == %chan.1 ) {
      msg %chan.2 ( $+ $chan $+ ) JOIN : $nick
      msg %chan.3 ( $+ $chan $+ ) JOIN : $nick
    }
    if ( $chan == %chan.2 ) {
      msg %chan.1 ( $+ $chan $+ ) JOIN : $nick
      msg %chan.3 ( $+ $chan $+ ) JOIN : $nick
    }
    if ( $chan == %chan.3 ) {
      msg %chan.1 ( $+ $chan $+ ) JOIN : $nick
      msg %chan.2 ( $+ $chan $+ ) JOIN : $nick
    }
  }
}

on *:KICK:*: {
  if ( $knick != $me ) {
    if ( $chan == %chan.1 ) {
      msg %chan.2 ( $+ $chan $+ ) KICK : $knick by $nick
      msg %chan.3 ( $+ $chan $+ ) KICK : $knick by $nick
    }
    if ( $chan == %chan.2 ) {
      msg %chan.1 ( $+ $chan $+ ) KICK : $knick by $nick
      msg %chan.3 ( $+ $chan $+ ) KICK : $knick by $nick
    }
    if ( $chan == %chan.3 ) {
      msg %chan.1 ( $+ $chan $+ ) KICK : $knick by $nick
      msg %chan.2 ( $+ $chan $+ ) KICK : $knick by $nick
    }
  }
}

on *:NICK:*: {
  if ( $chan == %chan.1 ) {
    msg %chan.2 ( $+ $chan $+ ) NICK : $nick as $newnick
    msg %chan.3 ( $+ $chan $+ ) NICK : $nick as $newnick
  }
  if ( $chan == %chan.2 ) {
    msg %chan.1 ( $+ $chan $+ ) NICK : $nick as $newnick
    msg %chan.3 ( $+ $chan $+ ) NICK : $nick as $newnick
  }
  if ( $chan == %chan.3 ) {
    msg %chan.1 ( $+ $chan $+ ) NICK : $nick as $newnick
    msg %chan.2 ( $+ $chan $+ ) NICK : $nick as $newnick
  }
}

Conclusion

Merci de me communiquer tout bug problème ...
 

Commentaires et avis

signaler à un administrateur
Commentaire de ISoKa le 24/10/2007 23:14:25

Bonjour,

vu comment c'est fait si ca parle bien sur les chans bonjour l'excess flood. pour chaque evenements tes action se ressemble bcp, pose des alias que tu appel ca rendra ton code plus court et propre. essai de le rendre parametrable aussi pck là on a aucun control sur quoi que soit.

signaler à un administrateur
Commentaire de Cmd_Max13 le 02/05/2008 07:52:50

Bonjour,

C'est la première fois que je viens sur ce site de Codes-SourceS, et je trouve intéressant ce petit robot de liaison... Mais comment fait-on pour utiliser cette source, et comment fait-on pour utiliser ce bot ?

Merci de votre aide !

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Pub pour 1 channel de chat. [ par Ifrit ] Bonjour aux lecteurs de mon message.!!Depuis le 25 février j'ai créé un chan sur le serveur chat.communautés.tiscali.fr.Et mon projet c'est d'en faire Fenetre de topic / banlist / mode salon [ par popelechat ] Bonjour,J'ai récupéré une remote qui permet d'avoir l'historique des topic et avec un esthétique me convenant plus, mais j'ai un probleme car elle ne record channel pour bot [ par HySteriK ] Salut , je cherche une source pour mon bot qui me dirait le record du chan ainsi que le nick de l'auteur qui a permit ceci et le bot m'informerait Petit bug et optimisation de code [ par Lestat_2070 ] Bonjour &#224; tous, Voil&#224;, j'ai fait quelques tests pour un addon perso, et je suis tomb&#233; sur un ptit bug . En effet, j'ai automatis&#233; Bot anti-pub [ par YkS ] Bonjour &#224; tous, voil&#224; j'ai &#233;t&#233; charg&#233; de faire un bot anti-pub pour un channel sur QuakeNet. Il est sens&#233;, lorsque quelq problem de programation tcl [ par WentiCoKe ] voilà le fichier :# Le channel sur le quel le script va réagir:set pschan #Tchat-Ados# Le bot réagit t'il sur tout les chan ou juste sur# celui mentio Message automatique pour certains users [ par lops91 ] Bonjour/soir,Sur le chan ou je suis, il y a pas mal d'users se connectant avec un nick prédéfinit, et ils ont le même préfixe ( guest_XXX )J'aimerais juste un petit soucis avec mes ban.. svp [ par La_Faucheuse ] bonjour,j'ai trouvé un code sur ce site pour creer des kicks/bans sympas. Je cherche juste a modifier les raisons de kick, j'ai aussi essayé de rajout Un probleme avec mes notices... [ par La_Faucheuse ] Bonjour a tous, j'ai un soucis avec mes notices : avant lorque je passais par un script deja tout fait et que l'on parlait de moi sur un autre salon, Anti spam chan [ par Azerty10100 ] j ai refais un source de Delirium ( qui est la http://www.ircfr.com/codes/ANTI-SPAM-OU-GROS-MOT-AVEC-AVERTISSEMENT-PUIS_14472.aspx ) en anti spam avec


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,749 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.