[TCL] Un help en tcl.

[aliasangelius]

Bonjour,

Voila suite à plusieurs discussions, et a divers aides voir demande.. je vais faire un tcl.
Je m'explique, le tcl sera équivalent à la commande .help disppnible en dcc "pl".
Avec bien évidement le tout en français, je resterais sur un code pas trop compliqué sur du switch je pense.

Le but : vous montrer les définitions, avec un lien sur le wiki pour le complément d'informations.
Le code servira pour vous familiariser plus ou moins avec les bases tels que les binds par exemple, ainsi que les code couleurs.

Dites moi si ça intéresse ou pas

"Envoyé depuis mon GT-N7000 avec Tapatalk"

[BaGrift]

Salut,

Oui sa pouré être pas mal j'aimerais bien voir ce que sa donne :p

[aliasangelius]

Merci de ta réponse, je ferais sa alors.. je donnerais un exemple de code en test voir si sa vous convient

"Envoyé depuis mon GT-N7000 avec Tapatalk"

[BaGrift]

Ok j'attend avec impatience ton code

[Guese]

J'avais codé un petit script il y a bien des années de cela, avec les commandes de bases, je m'en sert encore aujourd'hui avec l'ensemble des mes eggdrops :

Code :

########################################################
#            Aide.tcl by Guese                #
########################################################

bind dcc p aide dcc_aide
bind dcc p user dcc_user
bind dcc p operateur dcc_operateur
bind dcc p master dcc_master
bind dcc p owner dcc_owner
bind dcc p flags dcc_flags
bind dcc p modes dcc_modes

    proc dcc_aide {hand idx arg} {
      global botnick reason rest
      set chan [lindex [console $idx] 0]
      set flag [lindex $arg 0]
      set rest ""
    if {[llength $arg] > "1"} {
      if {[string index [lindex $arg 1] 0] == ":"} {
       set rest ""
       set reason [lrange $arg 1 end]
       } {
      set rest [lindex $arg 1]
       if {[string index [lindex $arg 2] 0] == ":"} {
       set reason [string trim $arg [lrange $arg 0 1]]
       }
      }
     }

    if {$flag == ""} {
        putdcc $idx "Commandes"
        putdcc $idx ".user Commandes des Users"
        putdcc $idx ".operateur Commandes des Opérateurs"
        putdcc $idx ".master Commandes des Masters"
        putdcc $idx ".owner Commandes des Owners"
        putdcc $idx ""
        putdcc $idx ".flags Différents flags (User + Bot)"
        putdcc $idx ".modes Différents modes (Console + Chanset)"
        return 0
        }
    }

    proc dcc_user {hand idx arg} {
      global botnick reason rest
      set chan [lindex [console $idx] 0]
      set flag [lindex $arg 0]
      set rest ""
    if {[llength $arg] > "1"} {
      if {[string index [lindex $arg 1] 0] == ":"} {
       set rest ""
       set reason [lrange $arg 1 end]
       } {
      set rest [lindex $arg 1]
       if {[string index [lindex $arg 2] 0] == ":"} {
       set reason [string trim $arg [lrange $arg 0 1]]
       }
      }
     }

    if {$flag == ""} {
        putdcc $idx "Commandes des Users"
        putdcc $idx ".who Lister les utilisateurs sur la party line"
        putdcc $idx ".whom Lister les utilisateurs sur la party line"
        putdcc $idx ".echo <on/off> Eviter les retours de message sur la party line"
        putdcc $idx ".resetbans Supprimer les bans non permanents"
        putdcc $idx ".me Agir sur la party line"
        putdcc $idx ".nick <pseudo> Changer de pseudo"
        putdcc $idx ".newpass <pass> Changer de mot de passe"
        putdcc $idx ".botinfo Donner les informations sur le bot"
        return 0
        }
    }

    proc dcc_operateur {hand idx arg} {
      global botnick reason rest
      set chan [lindex [console $idx] 0]
      set flag [lindex $arg 0]
      set rest ""
    if {[llength $arg] > "1"} {
      if {[string index [lindex $arg 1] 0] == ":"} {
       set rest ""
       set reason [lrange $arg 1 end]
       } {
      set rest [lindex $arg 1]
       if {[string index [lindex $arg 2] 0] == ":"} {
       set reason [string trim $arg [lrange $arg 0 1]]
       }
      }
     }

    if {$flag == ""} {
        putdcc $idx "Commandes des Opérateurs"
        putdcc $idx ".op <pseudo> Oper"
        putdcc $idx ".deop <pseudo> Deoper"
        putdcc $idx ".voice <pseudo> Voicer"
        putdcc $idx ".devoice <pseudo> Devoicer"
        putdcc $idx ".kick <pseudo> <msg> Kicker"
        putdcc $idx ".kickban <pseudo> <msg> Bannir (2h)"
        putdcc $idx ".+ban <pseudo> <#salon> <msg> Bannir (permanent)"
        putdcc $idx ".+ban <host> Bannir un host"
        putdcc $idx ".-ban <host> Débannir"
        putdcc $idx ".bans <#salon> all Afficher les bans permanents"
        putdcc $idx ".+ignore <host> Ignorer"
        putdcc $idx ".-ignore <host> Enlever l'ignore"
        putdcc $idx ".say <msg> Faire parler le bot"
        putdcc $idx ".act <msg> Faire agir le bot"
        putdcc $idx ".msg <pseudo> Parler en pv"
        putdcc $idx ".topic <msg> Changer le topic"
        putdcc $idx ".invite <pseudo> Inviter"
        putdcc $idx ".servers Lister les serveurs utilisés"
        putdcc $idx ".channel <#salon> Donner la liste des users sur un salon"
        putdcc $idx ".console <#salon> modes Orienter le bot sur un salon"
        putdcc $idx ".match <pseudo> Donner les infos sur un user"
        putdcc $idx ".whois <pseudo> Donner les infos sur un user"
        return 0
        }
    }

    proc dcc_master {hand idx arg} {
      global botnick reason rest
      set chan [lindex [console $idx] 0]
      set flag [lindex $arg 0]
      set rest ""
    if {[llength $arg] > "1"} {
      if {[string index [lindex $arg 1] 0] == ":"} {
       set rest ""
       set reason [lrange $arg 1 end]
       } {
      set rest [lindex $arg 1]
       if {[string index [lindex $arg 2] 0] == ":"} {
       set reason [string trim $arg [lrange $arg 0 1]]
       }
      }
     }

    if {$flag == ""} {
        putdcc $idx "Commandes des Masters"
        putdcc $idx ".chaninfo Afficher les config. du bot pour le salon"
        putdcc $idx ".save Sauver le fichier utilisateurs"
        putdcc $idx ".reload Relancer le userfile"
        putdcc $idx ".rehash Relancer le bot"
        putdcc $idx ".restart Redémarrer le bot"
        putdcc $idx ".adduser <pseudo> Ajouter un user présent"
        putdcc $idx ".deluser Supprimer un user présent"
        putdcc $idx ".+user <pseudo> Ajouter un user"
        putdcc $idx ".-user <pseudo> Supprimer un user"
        putdcc $idx ".+host <pseudo> <host> Ajouter un host"
        putdcc $idx ".-host <pseudo> <host> Supprimer un host"
        putdcc $idx ".+bot <pseudo> Ajouter un bot"
        putdcc $idx ".-bot <pseudo> Supprimer un bot"
        putdcc $idx ".chattr <pseudo> <+flag> Changer les flags d'un user"
        putdcc $idx ".chpass <pseudo> <pass> Changer le pass d'un user"
        putdcc $idx ".chnick Changer le pseudo d'un user"
        putdcc $idx ".chinfo <pseudo> <msg> Changer le message d'accueil"
        putdcc $idx ".jump Changer le server"
        putdcc $idx ".status Bilan général"
        return 0
        }
    }

    proc dcc_owner {hand idx arg} {
      global botnick reason rest
      set chan [lindex [console $idx] 0]
      set flag [lindex $arg 0]
      set rest ""
    if {[llength $arg] > "1"} {
      if {[string index [lindex $arg 1] 0] == ":"} {
       set rest ""
       set reason [lrange $arg 1 end]
       } {
      set rest [lindex $arg 1]
       if {[string index [lindex $arg 2] 0] == ":"} {
       set reason [string trim $arg [lrange $arg 0 1]]
       }
      }
     }

    if {$flag == ""} {
        putdcc $idx "Commandes des Owners"
        putdcc $idx ".+chan <salon> Ajouter un salon"
        putdcc $idx ".-chan <salon> Supprimer un salon"
        putdcc $idx ".chansave Sauver la config. du bot"
        putdcc $idx ".chanload Relancer la config. du bot"
        putdcc $idx ".chanset Changer la config. du bot"
        putdcc $idx ".set <variable> <valeur> Modifier la valeur d'une variable"
        putdcc $idx ".loadmodule Lancer un module"
        putdcc $idx ".unloadmodule Annuler un module"
        putdcc $idx ".die Tuer le bot"
        return 0
        }
    }

    proc dcc_flags {hand idx arg} {
      global botnick reason rest
      set chan [lindex [console $idx] 0]
      set flag [lindex $arg 0]
      set rest ""
    if {[llength $arg] > "1"} {
      if {[string index [lindex $arg 1] 0] == ":"} {
       set rest ""
       set reason [lrange $arg 1 end]
       } {
      set rest [lindex $arg 1]
       if {[string index [lindex $arg 2] 0] == ":"} {
       set reason [string trim $arg [lrange $arg 0 1]]
       }
      }
     }

    if {$flag == ""} {
        putdcc $idx "Flags User"
        putdcc $idx "E Protect -m"
        putdcc $idx "h Hyperlink (telnet)"
        putdcc $idx "m Master"
        putdcc $idx "n Owner"
        putdcc $idx "t Botnet"
        putdcc $idx "p Party-Line"
        putdcc $idx "b Bot"
        putdcc $idx "o Opérateur"
        putdcc $idx "d Déop"
        putdcc $idx "l Halfop"
        putdcc $idx "r Déhalfop"
        putdcc $idx "k Kick"
        putdcc $idx "f Friend (utilisateur n'étant pas puni lorsqu'il s'en prend au bot)"
        putdcc $idx "a Auto-Op"
        putdcc $idx "y Auto-Halfop"
        putdcc $idx "v Auto-Voice"
        putdcc $idx ""
        putdcc $idx "Flags Bot"
        putdcc $idx "F Friend"
        putdcc $idx "f Flood"
        putdcc $idx "a Auto-Op"
        putdcc $idx "b Bot"
        putdcc $idx "o Op"
        return 0
        }
    }

    proc dcc_modes {hand idx arg} {
      global botnick reason rest
      set chan [lindex [console $idx] 0]
      set flag [lindex $arg 0]
      set rest ""
    if {[llength $arg] > "1"} {
      if {[string index [lindex $arg 1] 0] == ":"} {
       set rest ""
       set reason [lrange $arg 1 end]
       } {
      set rest [lindex $arg 1]
       if {[string index [lindex $arg 2] 0] == ":"} {
       set reason [string trim $arg [lrange $arg 0 1]]
       }
      }
     }

    if {$flag == ""} {
        putdcc $idx "Modes console"
        putdcc $idx "m Affiche les messages privés et les CTCP envoyés au bot"
        putdcc $idx "p Affiche les messages et les CTCP envoyés sur le salon"
        putdcc $idx "k Affiche les KICK/BAN/changements de mode sur le salon"
        putdcc $idx "j Affiche les JOIN/PART/changements de NICK/SIGNOFF/etc sur le salon"
        putdcc $idx "b Affiche les LINK/UNLINK/partages de fichiers avec d'autres bots"
        putdcc $idx "c Affiche les commandes des users"
        putdcc $idx "x Affiche les envois de fichier"
        putdcc $idx "s Affiche les messages du serveur, les connections et déconnections"
        putdcc $idx "w Donne les messages entre IRCops"
        putdcc $idx "o Donne les notices des autres bots"
        return 0
        }
    }


putlog "Aide.tcl chargé"

[CrazyCat]

Ajoute les modes l et y :)

[aliasangelius]

Salut,

Ce ne sera pas vraiment ainsis que je le ferais.
La faut un axx PL pour permettre de voir les commandes.

La ce que je ferais moi sera "une explication sur les commandes", avec un lien du wiki pour plus de détail.
Et voir aussi des exemple de bout de code transmis pour une meilleurs compréhension.

Mais ton idée et pas mal j'aime bien franchement :)

[Guese]

Modes ajoutés =)
Oui c'est clair que là c'est basique de chez basique, il peut largement être amélioré.