[Script] Un help en tcl.

[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é"