begin process at 2012 02 12 04:31:41
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Bots

 > BOT POUR SALON DE TEAM COUNTER-STRIKE (CS)

BOT POUR SALON DE TEAM COUNTER-STRIKE (CS)


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :15 104 / 687

Auteur : Hathor

Ecrire un message privé
Commentaire sur cette source (10)
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 !

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

10 mars 2005 01:18:00 :
Correction de fautes de frappes et précisions

 Sources du même auteur

MÉMORISER LES CHANS QU'ON JOIN/PART À LA MANIÈRE D'UN BNC
UN SYSTÊME VIP TRÈS SIMPLE
ANTI IDLE POUR SALON
SCRIPT DE PICKUP
SYSTÊME DE NEWS SIMPLE

 Sources de la même categorie

Source avec Zip GESTION.BOT V2.0 FINAL par aliassangelius
EXEMPLE DE TCL EN DCC par aliassangelius
Source avec Zip SERVICE GEOFRONT (PERL) par iZyTeHPariaH
Source avec Zip TCL EGGDROP par aliassangelius
ANIMATION POUR BOT par michounou

Commentaires et avis

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-) { ... }
}

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

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

Commentaire de MaX_62 le 10/03/2005 19:19:24

Niveau initié ? mdr..

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.

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

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.

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.

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                                                                                

Commentaire de SawKiller le 08/08/2009 20:37:54

y a t-il moyen de l'avoir en TCL ? j'y connait rien en TCL

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,635 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales