Fun.tcl

[Aragorn]

bonjour j'ai opter pour la solution de heretoc que je trouve plus facile as comprendre lol encore merci de votre aide
Je vous poste le code complet pour ceux qui veule on ne sais jamais

tclcopier

#########################
#                       #
#        Fun.tcl        #  
#     Par Alucard68     #
#     Le 29/06/2009     #
#                       #
######################### 
 
set fun_ver "1.1"
set fun_author "Alucard68"
 
bind pub - "!cmd" pub:cmd
bind pub - "!cmds" pub:cmd
bind pub - "!liste" pub:cmd
bind pub - "!jokes" pub:cmd
bind pub - "!commande" pub:cmd
bind pub - "!biere" pub:biere
bind pub - "!champagne" pub:champagne
bind pub - "!sky" pub:sky
bind pub - "!cafe" pub:cafe
bind pub - "!coca" pub:coca
bind pub - "!kiss" pub:kiss
bind pub - "!palo" pub:palo
bind pub - "!calin" pub:calin
bind pub - "!love" pub:love
bind pub - "!rose" pub:rose
bind pub - "!sexy" pub:sexy
bind pub - "!fouette" pub:fouette
bind pub - "!baffe" pub:baffe
bind pub - "!relou" pub:relou
bind pub - "!vanne" pub:vanne
bind pub - "!clope" pub:clope
 
proc pub:cmd { nick uhost handle chan arg } {
  putserv "NOTICE $nick :\0032Pour faire fonctionner les commandes il faut taper de la maniere suivante !cmd pseudo ( exemple: !bierre Hathor )"
  putserv "NOTICE $nick :\0036Voici les commandes de Fun"
  putserv "NOTICE $nick :\0034"
  putserv "NOTICE $nick :\0037Les commandes barman:"
  putserv "NOTICE $nick :\00312!biere\0034 !coca\00312 !sky\0034 !cafe\00312 !champagne"
  putserv "NOTICE $nick :\0037Les commandes love:"
  putserv "NOTICE $nick :\00312!kiss\0034 !palo\00312 !love\0034 !calin\00312 !rose\0034 !sexy"
  putserv "NOTICE $nick :\0037Les commandes violantes:"
  putserv "NOTICE $nick :\00312!fouette\0034 !baffe\00312 !relou\0034 !vanne"
  putserv "NOTICE $nick :\0037Les commandes diverses:"
  putserv "NOTICE $nick :\00312!clope \0034!story (raconte une histoire bizarre)\00312 !chuck (raconte une aventure de Chuck Norris)\0034 !oracle (!oracle Une question ? exemple: !oracle qui est le plus beau ?)"
  putserv "NOTICE $nick :\0034"
  putserv "NOTICE $nick :\0036Fin des commandes de Fun"
  putserv "NOTICE $nick :\0032Fun a été crée par Alucard68 pour SliverChat."
}
 
proc pub:biere { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312offre une bonne bière bien fraiche à  \0034$pseudo"
  }
}
 
proc pub:champagne { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick  \00312offre une bonne coupe de champagne à  \0034$pseudo"
  }
}
 
proc pub:coca { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312offre un coca bien frais à  \0034$pseudo"
  }
}
 
proc pub:sky { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312offre un bon sky 16 ans d'age à  \0034$pseudo"
  }
}
 
proc pub:cafe { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312offre une tasse de \0034café\00312 à  \0034$pseudo \00312Hmmm :D"
  }
}
 
proc pub:kiss { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312fait un énorme kisssss à  \0034$pseudo"
  }
}
 
proc pub:palo { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312roule un énorme paloOoOoOoOo à  \0034$pseudo"
  }
}
 
proc pub:calin { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0034$nick \00312prend \0037$pseudo \00312dans ses bras et lui fait un énorme calin"
  }
}
 
proc pub:love { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0034$nick \00312t'aime de tout son coeur \0037$pseudo ! \00312Déclaration devant vous sur $chan !"
  }
}
 
proc pub:rose { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312offre une belle rose à  \0034$pseudo"
  }
}
 
proc pub:sexy { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312te trouve vraiment \0034très \00313tres \0037SEXY!!! \0034$pseudo"
  }
}
 
proc pub:fouette { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312fouette \0034$pseudo \00312de toute ses force (t'aime sa hein)"
  }
}
 
proc pub:baffe { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312prend le plus d'élant possible et donne une énorme baffe à\0034$ pseudo"
  }
}
 
proc pub:relou { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312trouve vraiment que \0034$pseudo \00312est très relou."
  }
}
 
proc pub:vanne { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\00312C'était \0034Vanne Pourri Edition Collector\00312 powered by\0034 $pseudo \00312!!"
  }
}
 
proc pub:clope { nick uhost handle chan arg } {
  set pseudo [split $arg]
  if {$pseudo != ""} {
    putserv "PRIVMSG $chan :\0037$nick \00312offre une cigarette \002(\037)¯¯¯¯)¯¯¯¯¯¯¯¯¯¯¯\037)~~~\002\00312 à \0034 $pseudo \00312(c'est pas bien de fumer)"
  }
}
 
bind join - "*" join:
  proc join:  { nick uhost hand chan } {
  if {$chan == "#Accueil"} {
    putserv "NOTICE $nick \00312Bienvenue\0034 $nick ,\00312 je suis Fun le robot d'animation pour connaitre mes commandes tapez !cmd (uniquement en couleur noir)"
  return 0
  }
}
 
putlog "\0034Fun Version $fun_ver By $fun_author loaded"
putlog "\0034Have Fun"

Cordialement Aragorn