BOT DE LIASON DE CHANS

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