Bot pour salon de team counter-strike (cs)

Soyez le premier à donner votre avis sur cette source.

Vue 16 372 fois - Téléchargée 748 fois

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 / Exemple :


;                                               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 !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
2 mars 2011

y a t-il moyen de l'avoir en TCL ? j'y connait rien en TCL
Messages postés
1
Date d'inscription
mercredi 6 juin 2007
Statut
Membre
Dernière intervention
14 juin 2007

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
Messages postés
82
Date d'inscription
samedi 6 décembre 2003
Statut
Membre
Dernière intervention
12 février 2012

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.
Messages postés
290
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
29 février 2008

-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.
Messages postés
129
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
30 juin 2012

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

Giustino, Admin VegaGames
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.