begin process at 2012 02 05 14:13:14
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Bots

 > EXEMPLE DE TCL EN DCC

EXEMPLE DE TCL EN DCC


 Information sur la source

Note :
Aucune note
Catégorie :Bots Classé sous :dcc, parti lyne, tcl Niveau :Débutant Date de création :31/07/2010 Vu :2 707
Auteur : aliassangelius

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

voilà un tcl que j'utilise pour mon bot en dcc si sa peut aider certaine personnes de si inspirer :)
il et basser sur un bot purtcl donc au pire modifier les "if {$levelnick>=0} {
par exemple.

Source

  • namespace eval helpcmds {}
  • bind dcc 0 cmds helpcmds::aide
  • proc helpcmds::aide {hand idx arg} {
  • set levelnick [getlevel $hand]
  • putdcc $idx "\00300,01AIDE => Commandes Robot XyLoO"
  • putdcc $idx "_"
  • putdcc $idx "$hand => $levelnick"
  • if {$levelnick>=0} {
  • putdcc $idx "\0031Level \002NULL\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
  • putdcc $idx "_"
  • putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
  • putdcc $idx "\0033Auth \0034Commandes \0031: \0032 /msg $::botnick auth [hand2nick $hand] pass"
  • putdcc $idx "\0033Cmds \0034Commandes \0031: \0032!cmds"
  • putdcc $idx "_"
  • }
  • if {$levelnick>=1} {
  • putdcc $idx "\0031Level \002I\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
  • putdcc $idx "_"
  • putdcc $idx "\0033Access \0034Commandes \0031: \0032!access"
  • putdcc $idx "\0033Autovoice \0034Commandes \0031: \0032!autovoice"
  • putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
  • putdcc $idx "\0033Addquote \0034Commandes \0031: \0032!addquote <text>"
  • putdcc $idx "\0033Findquote \0034Commandes \0031: \0032!findquote <text>"
  • putdcc $idx "\0033Statsquote \0034Commandes \0031: \0032!statsquote"
  • putdcc $idx "\0033Quote \0034Commandes \0031: \0032!quote <n°>"
  • putdcc $idx "\0033Man \0034Commandes \0031: \0032!man <commande> option"
  • putdcc $idx "\0033Voice \0034Commandes \0031: \0032!voice ou !voice <pseudo>"
  • putdcc $idx "\0033Devoice \0034Commandes \0031: \0032!devoice ou !devoice <pseudo>"
  • putdcc $idx "\0033Voiceall \0034Commandes \0031: \0032!voiceall"
  • putdcc $idx "\0033Devoiceall \0034Commandes \0031: \0032!devoiceall"
  • putdcc $idx "_"
  • }
  • if {$levelnick>=2} {
  • putdcc $idx "\0031Level \002II\002 \0031($::botnick) : \037COMMANDES Opérateurs\037"
  • putdcc $idx "_"
  • putdcc $idx "\0033Op \0034Commandes \0031: \0032!op ou !op <pseudo>"
  • putdcc $idx "\0033Deop \0034Commandes \0031: \0032!deop ou !deop <pseudo>"
  • putdcc $idx "\0033Opall \0034Commandes \0031: \0032!opall"
  • putdcc $idx "\0033Deopall \0034Commandes \0031: \0032!deopall"
  • putdcc $idx "\0033Mode \0034Commandes \0031: \0032!mode <mode>"
  • putdcc $idx "\0033Ban \0034Commandes \0031: \0032!ban <host/nick>"
  • putdcc $idx "\0033Unban \0034Commandes \0031: \0032!unban <host>"
  • putdcc $idx "\0033Banlist \0034Commandes \0031: \0032!banlist"
  • putdcc $idx "\0033Clearbans \0034Commandes \0031: \0032!clearbans"
  • putdcc $idx "\0033Kick \0034Commandes \0031: \0032!kick <pseudo> raison"
  • putdcc $idx "\0033Kickban \0034Commandes \0031: \0032!kickban <pseudo> raison"
  • putdcc $idx "\0033Topic \0034Commandes \0031: \0032!topic <phrase>"
  • putdcc $idx "_"
  • }
  • if {$levelnick>=3} {
  • putdcc $idx "\0031Level \002III\002 \0031($::botnick) : \037COMMANDES Chan-Master\037"
  • putdcc $idx "_"
  • putdcc $idx "\0033Deluser \0034Commandes \0031: \0032!deluser <pseudo>"
  • putdcc $idx "\0033Join \0034Commandes \0031: \0032!join <salon>"
  • putdcc $idx "\0033Part \0034Commandes \0031: \0032!part <salon>"
  • putdcc $idx "\0033Uptime \0034Commandes \0031: \0032!uptime"
  • putdcc $idx "\0033Xbl \0034Commandes \0031: \0032!xbl <pseudo>"
  • putdcc $idx "\0033Xblist \0034Commandes \0031: \0032!xblist"
  • putdcc $idx "\0033Xdelbl \0034Commandes \0031: \0032!xdelbl"
  • putdcc $idx "_"
  • }
  • if {$levelnick>=4} {
  • putdcc $idx "\0031Level \002IV\002 \0031($::botnick) : \037COMMANDES Administrateurs\037"
  • putdcc $idx "_"
  • putdcc $idx "\0033Autorise \0034Commandes \0031: \0032!autorise <pseudo>"
  • putdcc $idx "\0033Deautorise \0034Commandes \0031: \0032!deautorise <pseudo>"
  • putdcc $idx "\0033Die \0034Commandes \0031: \0032!die"
  • putdcc $idx "\0033Restart \0034Commandes \0031: \0032!restart <phrase> ou sans"
  • putdcc $idx "\0033Rehash \0034Commandes \0031: \0032!rehash"
  • putdcc $idx "\0033Save \0034Commandes \0031: \0032!save"
  • putdcc $idx "\0033Version \0034Commandes \0031: \0032!version"
  • putdcc $idx "\0033Tcl \0034Commandes \0031: \0032!tcl <argument>"
  • putdcc $idx "_"
  • }
  • }
       namespace eval helpcmds {}
       
      bind dcc 0 cmds helpcmds::aide
      proc helpcmds::aide {hand idx arg}  {
      set levelnick [getlevel $hand]
      putdcc $idx "\00300,01AIDE => Commandes Robot XyLoO"
      putdcc $idx "_"
      putdcc $idx "$hand => $levelnick"
      if {$levelnick>=0} {
      putdcc $idx "\0031Level \002NULL\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
      putdcc $idx "_"
      putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
      putdcc $idx "\0033Auth \0034Commandes \0031: \0032 /msg $::botnick auth [hand2nick $hand] pass"
      putdcc $idx "\0033Cmds \0034Commandes \0031: \0032!cmds"
      putdcc $idx "_"
      }
      if {$levelnick>=1} {
      putdcc $idx "\0031Level \002I\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
      putdcc $idx "_"
      putdcc $idx "\0033Access \0034Commandes \0031: \0032!access"
      putdcc $idx "\0033Autovoice \0034Commandes \0031: \0032!autovoice"
      putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
      putdcc $idx "\0033Addquote \0034Commandes \0031: \0032!addquote <text>"
      putdcc $idx "\0033Findquote \0034Commandes \0031: \0032!findquote <text>"
      putdcc $idx "\0033Statsquote \0034Commandes \0031: \0032!statsquote"
      putdcc $idx "\0033Quote \0034Commandes \0031: \0032!quote <n°>"
      putdcc $idx "\0033Man \0034Commandes \0031: \0032!man <commande> option"
      putdcc $idx "\0033Voice \0034Commandes \0031: \0032!voice ou !voice <pseudo>"
      putdcc $idx "\0033Devoice \0034Commandes \0031: \0032!devoice ou !devoice <pseudo>"
      putdcc $idx "\0033Voiceall \0034Commandes \0031: \0032!voiceall"
      putdcc $idx "\0033Devoiceall \0034Commandes \0031: \0032!devoiceall"
      putdcc $idx "_"
      }
      if {$levelnick>=2} {
      putdcc $idx "\0031Level \002II\002 \0031($::botnick) : \037COMMANDES Opérateurs\037"
      putdcc $idx "_"
      putdcc $idx "\0033Op \0034Commandes \0031: \0032!op ou !op <pseudo>"
      putdcc $idx "\0033Deop \0034Commandes \0031: \0032!deop ou !deop <pseudo>"
      putdcc $idx "\0033Opall \0034Commandes \0031: \0032!opall"
      putdcc $idx "\0033Deopall \0034Commandes \0031: \0032!deopall"
      putdcc $idx "\0033Mode \0034Commandes \0031: \0032!mode <mode>"
      putdcc $idx "\0033Ban \0034Commandes \0031: \0032!ban <host/nick>"
      putdcc $idx "\0033Unban \0034Commandes \0031: \0032!unban <host>"
      putdcc $idx "\0033Banlist \0034Commandes \0031: \0032!banlist"
      putdcc $idx "\0033Clearbans \0034Commandes \0031: \0032!clearbans"
      putdcc $idx "\0033Kick \0034Commandes \0031: \0032!kick <pseudo> raison"
      putdcc $idx "\0033Kickban \0034Commandes \0031: \0032!kickban <pseudo> raison"
      putdcc $idx "\0033Topic \0034Commandes \0031: \0032!topic <phrase>"
      putdcc $idx "_"
      }
      if {$levelnick>=3} {
      putdcc $idx "\0031Level \002III\002 \0031($::botnick) : \037COMMANDES Chan-Master\037"
      putdcc $idx "_"
      putdcc $idx "\0033Deluser \0034Commandes \0031: \0032!deluser <pseudo>"
      putdcc $idx "\0033Join \0034Commandes \0031: \0032!join <salon>"
      putdcc $idx "\0033Part \0034Commandes \0031: \0032!part <salon>"
      putdcc $idx "\0033Uptime \0034Commandes \0031: \0032!uptime"
      putdcc $idx "\0033Xbl \0034Commandes \0031: \0032!xbl <pseudo>"
      putdcc $idx "\0033Xblist \0034Commandes \0031: \0032!xblist"
      putdcc $idx "\0033Xdelbl \0034Commandes \0031: \0032!xdelbl"
      putdcc $idx "_"
      }
      if {$levelnick>=4} {
      putdcc $idx "\0031Level \002IV\002 \0031($::botnick) : \037COMMANDES Administrateurs\037"
      putdcc $idx "_"
      putdcc $idx "\0033Autorise \0034Commandes \0031: \0032!autorise <pseudo>"
      putdcc $idx "\0033Deautorise \0034Commandes \0031: \0032!deautorise <pseudo>"
      putdcc $idx "\0033Die \0034Commandes \0031: \0032!die"
      putdcc $idx "\0033Restart \0034Commandes \0031: \0032!restart <phrase> ou sans"
      putdcc $idx "\0033Rehash \0034Commandes \0031: \0032!rehash"
      putdcc $idx "\0033Save \0034Commandes \0031: \0032!save"
      putdcc $idx "\0033Version \0034Commandes \0031: \0032!version"
      putdcc $idx "\0033Tcl \0034Commandes \0031: \0032!tcl <argument>"
      putdcc $idx "_"
      }
      }



 Sources du même auteur

Source avec Zip GESTION.BOT V2.0 FINAL
Source avec Zip Source avec une capture PANNEAU DE CONFIGURATION PS7
Source avec Zip TCL EGGDROP
Toutes les sources de aliassangelius

 Sources de la même categorie

Source avec Zip GESTION.BOT V2.0 FINAL par aliassangelius
Source avec Zip SERVICE GEOFRONT (PERL) par iZyTeHPariaH
Source avec Zip TCL EGGDROP par aliassangelius
ANIMATION POUR BOT par michounou
RECORD AFFLUENCE MULTI-SALON par extarsik
Toutes les sources de la catégorie Bots

 Sources en rapport avec celle ci

Source avec Zip CRÉER DU MONDE SUR VOTRE SERVEUR IRC par Averell
Source avec Zip GESTION.BOT V2.0 FINAL par aliassangelius
[TCL] AUTOJOIN DE ROBOT AUTOMATIQUE par Atok
TCL - AJOUT SUPPRESSION DE LOGS par Atok
LA CONFIGURATION D'UN EGGDROP QUI ENLÈVE LES BANS APRÈS X ... par Atok

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Partage de connex ADSL et DCC send sous mIrc [ par mslot1 ] Rien a voir avec la prog mais je pense que c'est le meilleurendroit pour avoir une reponse. (ca fais 2 ans que jecherche une solution s'en en avoir t Partage de connex ADSL et DCC send sous mIrc [ par mslot1 ] Rien a voir avec la prog mais je pense que c'est le meilleurendroit pour avoir une reponse. (ca fais 2 ans que jecherche une solution s'en en avoir t Partage de connex ADSL et DCC send sous mIrc [ par mslot1 ] Rien a voir avec la prog mais je pense que c'est le meilleurendroit pour avoir une reponse. (ca fais 2 ans que jecherche une solution s'en en avoir t Partage de connex ADSL et DCC send sous mIrc [ par mslot1 ] Rien a voir avec la prog mais je pense que c'est le meilleurendroit pour avoir une reponse. (ca fais 2 ans que jecherche une solution s'en en avoir t Pb dcc et début dans le mirc [ par Zear ] Tout d'abord bonjour ! (bon ça c'est fait...)Je vais me lancer directement, en faite je voulais savoir pourquoi mes DCC ne marchent pas, en effet j'ai Tcl : récupération de données [ par Nenex ] Bjour, voilà je cherche à recupérer des données inscrites au préalable dans un fichier "monfichier" à la racine du répartoire de mon eggdrop.code de c dcc pending à l'aide !!!! [ par ilvec ] voila mon probleme, quand je veux telecharger sur irc, je recois ce message : You have a DCC pending, Set your client to receive the transfer. (150 se DCC/options "Flush Files" mIRC >6.02 [ par samourai79 ] Quelle est la fonction de l'option à cocher ds les options DCC nommée "Flush Files" ?Ceux qui confondent avec la commande /flush pour la user list mer Probleme:DCC Pending [ par toonez ] Bonjour !Je ne peux pas recevoir les fichiers avec MIRC L'envoyeur me demande de rêgler mon client "to receive the file"Pourtant il a l'air bien confi Dcc Pending [ par Gryfter ] Bonjour. J'ain un p'tit prob.Sur certains chan, lorsque je veux télécharger, j'ai un dcc pending. Mais cela me le fait que sur certains chan.J'ai pour


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
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 : 1,154 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)