begin process at 2008 07 06 07:26:30
1 205 472 membres
51 nouveaux aujourd'hui
14 119 membres club

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 POUR SALON DE TEAM COUNTER-STRIKE (CS)


Information sur la source

Catégorie :Bots Niveau : Initié Date de création : 10/03/2005 Date de mise à jour : 10/03/2005 01:18:00 Vu / téléchargé: 12 089 / 614

Note :
6 / 10 - par 1 personne
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Pour les teams CS ne voulant pas se casser la tête avec un bot trop complexe il gère les requêtes basiques qu'une team peut attendre (!ip1, !radio, !url, !news...). Téléchargez le ZIP !

Source

  • ; Bot-Cs By Hathor @ #mIRC.fr
  • on *:text:!team*:#:{
  • msg $chan Team: %team
  • }
  • on *:text:!staff*:#:{
  • msg $chan Staff: %staff
  • }
  • on *:text:!news1:#:{
  • set %i $lines(news.txt)
  • var %x = 1
  • while (%x <= %i) {
  • .timer 1 %x msg $chan 4 $+ $read(news.txt,%x)
  • inc %x
  • }
  • }
  • on *:text:!news2:#:{
  • set %i $lines(news2.txt)
  • var %x = 1
  • while (%x <= %i) {
  • .timer 1 %x msg $chan 4 $+ $read(news2.txt,%x)
  • inc %x
  • }
  • }
  • on *:text:!even*:#:{
  • set %i $lines(events.txt)
  • var %x = 1
  • while (%x <= %i) {
  • .timer 1 %x msg $chan 4 $+ $read(events.txt,%x)
  • inc %x
  • }
  • }
  • on *:text:!war*:#:{
  • set %i $lines(wars.txt)
  • var %x = 1
  • while (%x <= %i) {
  • .timer 1 %x msg $chan 4 $+ $read(wars.txt,%x)
  • inc %x
  • }
  • }
  • on *:text:!result*:#:{
  • set %i $lines(results.txt)
  • var %x = 1
  • while (%x <= %i) {
  • .timer 1 %x msg $chan 4 $+ $read(results.txt,%x)
  • inc %x
  • }
  • }
  • on *:text:setnews1*:?:{
  • if ($2 == %pass) {
  • write -c news.txt
  • write news.txt $3-
  • notice $nick Ok changement des news effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setevents*:?:{
  • if ($2 == %pass) {
  • write -c events.txt
  • write events.txt $3-
  • notice $nick Ok changement des events effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setwars*:?:{
  • if ($2 == %pass) {
  • write -c wars.txt
  • write wars.txt $3-
  • notice $nick Ok changement des wars effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setresults*:?:{
  • if ($2 == %pass) {
  • write -c results.txt
  • write results.txt $3-
  • notice $nick Ok changement des results effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setnews2*:?:{
  • if ($2 == %pass) {
  • write -c news2.txt
  • write news2.txt $3-
  • notice $nick Ok changement des news2 effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setradio*:?:{
  • if ($2 == %pass) {
  • set %radio $3-
  • notice $nick Ok changement de la radio effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:seturl*:?:{
  • if ($2 == %pass) {
  • set %url $3-
  • notice $nick Ok changement de l'url effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setip1*:?:{
  • if ($2 == %pass) {
  • set %ip1 $3-
  • notice $nick Ok changement de l'ip 1 effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setip2*:?:{
  • if ($2 == %pass) {
  • set %ip2 $3-
  • notice $nick Ok changement de l'ip 2 effectué.
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setstaff*:?:{
  • if ($2 == %pass) {
  • set %staff $3-
  • notice $nick Ok staff mise à jour. Staff actuel: %staff
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:setteam*:?:{
  • if ($2 == %pass) {
  • set %team $3-
  • notice $nick Ok team mise à jour. Team actuelle: %team
  • }
  • else {
  • notice $nick Erreur mauvais pass.
  • }
  • }
  • on *:text:!radio*:#:msg $chan Radio: %radio
  • on *:text:!url*:#:msg $chan URL: %url
  • on *:text:!ip1*:#:msg $chan Server 1: %ip1
  • on *:text:!ip2*:#:msg $chan Server 2: %ip2
  • on *:text:!h*:#:msg $chan Il est $time
  • on *:text:!cmd*:#:{
  • set %i $lines(cmds.txt)
  • var %x = 1
  • while (%x <= %i) {
  • .timer 1 %x msg $chan $read(cmds.txt,%x)
  • inc %x
  • }
  • }
;                                               Bot-Cs By Hathor @ #mIRC.fr


on *:text:!team*:#:{
  msg $chan Team: %team
}
on *:text:!staff*:#:{
  msg $chan Staff: %staff
}
on *:text:!news1:#:{
  set %i $lines(news.txt)
  var %x = 1
  while (%x <= %i) { 
    .timer 1 %x msg $chan 4 $+ $read(news.txt,%x)
    inc %x
  }
}
on *:text:!news2:#:{
  set %i $lines(news2.txt)
  var %x = 1
  while (%x <= %i) { 
    .timer 1 %x msg $chan 4 $+ $read(news2.txt,%x)
    inc %x
  }
}
on *:text:!even*:#:{
  set %i $lines(events.txt)
  var %x = 1
  while (%x <= %i) { 
    .timer 1 %x msg $chan 4 $+ $read(events.txt,%x)
    inc %x
  }
}
on *:text:!war*:#:{
  set %i $lines(wars.txt)
  var %x = 1
  while (%x <= %i) { 
    .timer 1 %x msg $chan 4 $+ $read(wars.txt,%x)
    inc %x
  }
}
on *:text:!result*:#:{
  set %i $lines(results.txt)
  var %x = 1
  while (%x <= %i) { 
    .timer 1 %x msg $chan 4 $+ $read(results.txt,%x)
    inc %x
  }
}
on *:text:setnews1*:?:{
  if ($2 == %pass) {
    write -c news.txt
    write news.txt $3-
    notice $nick Ok changement des news effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setevents*:?:{
  if ($2 == %pass) {
    write -c events.txt
    write events.txt $3-
    notice $nick Ok changement des events effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setwars*:?:{
  if ($2 == %pass) {
    write -c wars.txt
    write wars.txt $3-
    notice $nick Ok changement des wars effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setresults*:?:{
  if ($2 == %pass) {
    write -c results.txt
    write results.txt $3-
    notice $nick Ok changement des results effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setnews2*:?:{
  if ($2 == %pass) {
    write -c news2.txt
    write news2.txt $3-
    notice $nick Ok changement des news2 effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setradio*:?:{
  if ($2 == %pass) {
    set %radio $3-
    notice $nick Ok changement de la radio effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:seturl*:?:{
  if ($2 == %pass) {
    set %url $3-
    notice $nick Ok changement de l'url effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setip1*:?:{
  if ($2 == %pass) {
    set %ip1 $3-
    notice $nick Ok changement de l'ip 1 effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setip2*:?:{
  if ($2 == %pass) {
    set %ip2 $3-
    notice $nick Ok changement de l'ip 2 effectué.
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setstaff*:?:{
  if ($2 == %pass) {
    set %staff $3-
    notice $nick Ok staff mise à jour. Staff actuel: %staff
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:setteam*:?:{
  if ($2 == %pass) {
    set %team $3-
    notice $nick Ok team mise à jour. Team actuelle: %team
  }
  else {
    notice $nick Erreur mauvais pass.
  }
}
on *:text:!radio*:#:msg $chan Radio: %radio
on *:text:!url*:#:msg $chan URL: %url
on *:text:!ip1*:#:msg $chan Server 1: %ip1
on *:text:!ip2*:#:msg $chan Server 2: %ip2
on *:text:!h*:#:msg $chan Il est $time
on *:text:!cmd*:#:{
  set %i $lines(cmds.txt)
  var %x = 1
  while (%x <= %i) { 
    .timer 1 %x msg $chan $read(cmds.txt,%x)
    inc %x
  }
}

Conclusion

Lisez de haut en bas l'aide sinon vous vous en sertirez jamais, téléchargez donc les 3 fichiers, le ZIP !
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

10 mars 2005 01:18:00 :
Correction de fautes de frappes et précisions
  • signaler à un administrateur
    Commentaire de MaX_62 le 10/03/2005 06:58:13

    Regroupe tes evenement ON TEXT !!

    on *:TEXT:*:#:{
      if (!team* iswm $1-) { ... }
      elseif (!staff* iswm $1-) { ... }
    }

  • signaler à un administrateur
    Commentaire de wims le 10/03/2005 15:23:54

    Ouais regroupe tes evenements
    Puis aussi utilise des variables differentes car %i ou %x ou %pass sont souvent utilisés

  • signaler à un administrateur
    Commentaire de MaX_62 le 10/03/2005 19:18:34

    au fait, en parlant de variable, utilises les variables locales !

    var %i $lines(news.txt) , %x 1

  • signaler à un administrateur
    Commentaire de MaX_62 le 10/03/2005 19:19:24

    Niveau initié ? mdr..

  • signaler à un administrateur
    Commentaire de COOLMAN002 le 10/03/2005 19:26:49

    on *:text:!team*:#:{
        msg $chan Team: %team
    }

    si %team n'existe pas ?
    si !team apparait en couleur, ton bot ne réagira pas.

    plus: ci dessus.

  • signaler à un administrateur
    Commentaire de GiUsTiNo le 11/03/2005 13:33:09

    Bon désolé mais je trouve ca exagéré de le mettre en "Initié" ...
    Bonne continuation quand même !

    Giustino, Admin VegaGames

  • signaler à un administrateur
    Commentaire de Huitre le 17/03/2005 23:28:10

    -Tes fichiers txt n existe pas, aucune verification ni creation le cas echeant.
    -Les espaces ne sont pas geres
    -Ce n est pas trop du inité
    -Cf autres remarques

    bonne chance.

  • signaler à un administrateur
    Commentaire de Allan007 le 11/07/2006 22:45:00

    Je te conseil de faire ton code en socket, car sinon tu as plusieur mIRC ouvert.... Moi perso mes bots sont en socket, c'est pas difficile.. il te faut un minimum de connaissance, sockopen, sockclose, sockread, var, gettok, hash tables / writeini / write / set.

    Je vote pas car tu as mit le niveaux de ton code en initié, alors que ce gere de chose tu trouve un peux partout.

    J'attend une mise a jours éventuelle, et bonne chance.

  • signaler à un administrateur
    Commentaire de Belath le 14/06/2007 16:50:04

    salut je sui pas hiper for en ordi j'aimerai un bot pour que mon perso xp mieu dans dofus merci de repondre  jai telecharger ton truc mai jai rien compris a ce quil faut faire merci de m'aider                                                                                

Ajouter un commentaire

Pub



Appels d'offres

Plugin Dialer outlook
Budget : 2 000€
Travail graphique- ill...
Budget : 1 000€
creation de marque et ...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS