Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ################################################################################
- # 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" {
- ## Commandes
- bind PUB - "!parole" [namespace current]::jdr_parole
- bind PUB - "!donner" [namespace current]::jdr_donner
- bind PUB - "!des" [namespace current]::jdr_des
- # 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
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement