################################################################################
# jdr.tcl v1.0                                                     #
# LICENSE : GNU GPLv3                                      #
#                                                                              #
# Auteur:   Dakin Quelia <webmaster@swjdr.com>                 #
# Date:     08/02/2011                                                     #
#------------------------------------------------------------------------------#
#                                  Description                                 #
#------------------------------------------------------------------------------#
# Ce script permet aux webmasters de site d'avoir un jeu de rôles sur IRC.     #
#                                                                              #
# On peut trouver:                                                             #
#    - Un système de lancer de dés                           #
#    - Des actions préfaites                                                   #
################################################################################
namespace eval "jdr" {

  # Emettre une parole
  proc jdr_parole { nick chan msg } {
          putserv "PRIVMSG $chan :« $::msg »"
          return 1
  }

  # Donner un objet
  proc jdr_donner { nick chan msg objet perso } {
          putserv "PRIVMSG $chan : $nick a donné l'objet « $::objet » à « $::perso »."
          return 1
  }

  # Système de dés
  proc jdr_des { nick chan msg dices }{
    ## En cours
  }
  ## Commandes
  bind PUB - "!parole" [namespace current]::jdr_parole
  bind PUB - "!donner" [namespace current]::jdr_donner
  bind PUB - "!des" [namespace current]::jdr_des
}