TCL !bombe
#1
bonjour a tous

Voila j'ai chercher dans votre site et j'ai trouver un jeu de bombe en tcl le probleme et que

quand on tape !allume
il dis [01:41] <Garde> Lesny sifflote, sort une bombe de sa poche et l'allume... Psssshhhhhhhhhhh...

et quand on veux passer la bombe a quelq'un il es ecris

[01:41] <Garde> Lesny tu veux passer quoi là ? T'as pas de bombe encore... !allume en une :)

donc c'est que ca dois merdouiller quelque part =)

je vous montre le code
Code :
######################################################################################################### # CONFIGURATION DU SCRIPT ######################################################################################################### # Le message d'aide qui sera envoyé au nick qui reçoit la bombe set bombe_message_aide "Pour passer la bombe tape !bombe suivi du nom de la personne ; tu peux aussi feinter avec !feinte nick. Si tu veux désamorcer tape !desamorce" set bomb_forbidchan "#channel2" ######################################################################################################### # FIN DE LA CONFIGURATION # Ne pas éditer plus bas tant que vous ne savez pas ce que vous faites :p ######################################################################################################### # COMMANDES BOMBE bind pub - !allume bombe_allumage bind pub - !bombe bombe_passe bind pub - !feinte bombe_feinte bind pub - !desamorce bombe_desamorce ### Initialisation des variables globales set bombe_en_cours 0 ### !allume proc bombe_allumage {nick host hand chan arg} { global bomb_forbidchan if {$chan == $bomb_forbidchan} { putserv "notice $nick :On ne joue pas à la roulette sur $roulette_forbidchan !" return 1 } global bombe_en_cours bombe_allumeur bombe_porteur bombe_timer_moitie bombe_timer_fini bombe_chan bombe_a_tourne bombe_message_aide if {$bombe_en_cours == 0} { putserv "PRIVMSG $chan :$nick sifflote, sort une bombe de sa poche et l'allume... Psssshhhhhhhhhhh..." putnotc $nick "$bombe_message_aide" set bombe_en_cours 1 set bombe_chan $chan set bombe_porteur $nick set bombe_allumeur $nick set bombe_a_tourne 0 set bombe_timer_moitie [utimer 60 bombe_timer_moitie] set bombe_timer_fini [utimer 120 bombe_timer_fini] } else { if {[strlwr $nick] == [strlwr $bombe_allumeur]} { puthelp "PRIVMSG $chan :$nick t'as déjà amorcé une bombe, pas la peine de tout faire exploser !!" } else { puthelp "PRIVMSG $chan :$bombe_allumeur a déjà piégé le chan $bombe_chan. C'est $bombe_porteur qui l'a entre les mains ... jusqu'à ce qu'il tape !bombe $nick ;)" } } } ### !bombe proc bombe_passe {nick host hand chan arg} { global bombe_en_cours bombe_allumeur bombe_porteur bombe_timer_moitie bombe_timer_fini bombe_chan bombe_a_tourne bombe_message_aide if {$bombe_en_cours==0} { puthelp "PRIVMSG $chan :$nick tu veux passer quoi là ? T'as pas de bombe encore... !allume en une :)" return 0 } if {[strlwr $nick] != [strlwr $bombe_porteur]} { puthelp "PRIVMSG $chan :Euh $nick c'est pas toi qui a la bombe c'est $bombe_porteur ... tant qu'il tape pas !bombe $nick :)" return 0 } if {$arg==""} { puthelp "PRIVMSG $chan :Ce serait sympa de préciser à qui tu veux refiler le bébé $nick :)" return 0 } if {[strlwr $arg] == [strlwr $nick]} { puthelp "PRIVMSG $chan :Euh $nick tu jongles avec la bombe là ? :)" return 0 } if {![onchan $arg $bombe_chan]} { puthelp "PRIVMSG $chan :Euh $nick je vois personne qui s'appelle $arg ici... Tu ferais mieux de la passer à quelqu'un de présent sur $bombe_chan :)" return 0 } if {[strlwr $arg] == [strlwr $bombe_allumeur]} { puthelp "PRIVMSG $chan :Ah ! La bombe a fait un tour et revient dans les mains de $bombe_allumeur sans que ça ait pété ! Beau jeu d'équipe !" } else { puthelp "PRIVMSG $chan :$nick jette la bombe à $arg... Vas-y débrouille toi avec ça !" } putnotc $arg "$bombe_message_aide" set bombe_porteur $arg set bombe_a_tourne 1 return 0 } ### !feinte proc bombe_feinte {nick host hand chan arg} { global bombe_en_cours bombe_allumeur bombe_porteur bombe_timer_moitie bombe_timer_fini bombe_chan bombe_a_tourne if {$bombe_en_cours==0} { puthelp "PRIVMSG $chan :$nick tu veux feinter avec quoi ! Tape déjà !allume tu verras après :)" return 0 } if {[strlwr $nick] != [strlwr $bombe_porteur]} { puthelp "PRIVMSG $chan :Euh $nick c'est pas toi qui a la bombe c'est $bombe_porteur ... tant qu'il tape pas !bombe $nick :)" return 0 } if {$arg==""} { puthelp "PRIVMSG $chan :$nick tu devrais dire qui tu veux feinter..." return 0 } if {[strlwr $arg] == [strlwr $nick]} { puthelp "PRIVMSG $chan :lol y'a $nick qui se feinte tout seul :p" return 0 } if {![onchan $arg $bombe_chan]} { puthelp "PRIVMSG $chan :Euh $nick je vois personne qui s'appelle $arg ici... Tu ferais mieux de feinter quelqu'un de présent sur $bombe_chan :)" return 0 } if {[strlwr $arg] == [strlwr $bombe_allumeur]} { puthelp "PRIVMSG $chan :Ah ! C'est $bombe_allumeur qui l'a allumée cette bombe, c'est normal qu'il y ait des représailles :)" } else { puthelp "PRIVMSG $chan :$nick s'approche de $arg comme s'il allait l'embrasser ... lui fourre la bombe sous le nez... puis repart avec. Quel talent d'acteur !!" } return 0 } ### !desamorce proc bombe_desamorce {nick host hand chan arg} { global bombe_en_cours bombe_allumeur bombe_porteur bombe_timer_moitie bombe_timer_fini bombe_chan bombe_a_tourne if {$bombe_en_cours==0} { puthelp "PRIVMSG $chan :$nick tu veux désamorcer quoi là, t'as chaud ? Tape déjà !allume tu verras après :)" return 0 } if {[strlwr $nick] != [strlwr $bombe_porteur]} { puthelp "PRIVMSG $chan :Euh $nick c'est pas toi qui a la bombe c'est $bombe_porteur ... tant qu'il tape pas !bombe $nick :)" return 0 } if {$bombe_a_tourne==0} { puthelp "PRIVMSG $chan :$nick désamorce la tranquillement la bombe, sans avoir menacé personne avec. C'est une variante de la !roulette ? T'as de la chance qu'elle t'ait pas explosé en pleine tronche..." } else { puthelp "PRIVMSG $chan :$nick sort fébrilement sa p'tite pince et coupe le fil rouge. Il était temps, à mon avis ça allait pas tarder à péter !" } set bombe_en_cours 0 if {[utimerexists bombe_timer_moitie]!=""} {killutimer $bombe_timer_moitie} if {[utimerexists bombe_timer_fini]!=""} {killutimer $bombe_timer_fini} return 0 } ### bombe_timer_moitie proc bombe_timer_moitie {} { global bombe_en_cours bombe_allumeur bombe_porteur bombe_timer_moitie bombe_timer_fini bombe_chan bombe_a_tourne if {$bombe_en_cours==0} { return 0 } if {$bombe_a_tourne==0} { puthelp "PRIVMSG $bombe_chan :La mèche de la bombe s'est déjà à moitié consumée, et c'est toujours $bombe_allumeur qui l'a dans les mains... $bombe_allumeur t'es pétrifié par la trouille ? :)" } else { puthelp "PRIVMSG $bombe_chan :$bombe_porteur s'aperçoit que la mèche de la bombe s'est déjà à moitié consumée..." } } ### bombe_timer_fini proc bombe_timer_fini {} { global bombe_en_cours bombe_allumeur bombe_porteur bombe_timer_moitie bombe_timer_fini bombe_chan bombe_a_tourne if {$bombe_en_cours==0} { return 0 } if {$bombe_a_tourne==0} { puthelp "PRIVMSG $bombe_chan :La mèche est totalement consumée, et $bombe_allumeur la tient toujours dans ses mains... C'était un suicide !" putserv "kick $bombe_chan $bombe_allumeur :BAOUM !!! :'( Adieu on t'aimait bien !" } else { puthelp "PRIVMSG $bombe_chan :$bombe_porteur n'a pas le temps de passer la bombe qu'elle explose ! Saleté de $bombe_allumeur tu le paieras ! :)" putserv "kick $bombe_chan $bombe_porteur :BAOUM !!! Ta mort sera vengée." } set bombe_en_cours 0 } ############################ # debug ############################ bind pub - !bdebug bombe_debug proc bombe_debug {nick host hand chan arg} { global bombe_en_cours bombe_allumeur bombe_porteur bombe_timer_moitie bombe_timer_fini bombe_chan bombe_a_tourne bombe_message_aide puthelp "PRIVMSG $bombe_chan :bombe_en_cours -> $bombe_en_cours | bombe_chan -> $bombe_chan | bombe_a_tourne -> $bombe_a_tourne" puthelp "PRIVMSG $bombe_chan :bombe_allumeur -> $bombe_allumeur | bombe_porteur -> $bombe_porteur" puthelp "PRIVMSG $bombe_chan :bombe_timer_moitie -> $bombe_timer_moitie | bombe_timer_fini -> $bombe_timer_fini" puthelp "PRIVMSG $bombe_chan :$bombe_message_aide" }


et voici mes erreures dans puuty

Code :
[01:40] Tcl error [bombe_allumage]: invalid command name "putnotc" [01:41] Tcl error [bombe_allumage]: invalid command name "putnotc" [01:41] #accueil: mode change '+o Lesny' by Lesny!~staff@3764623921.wanadoo.fr [01:41] Tcl error [bombe_allumage]: invalid command name "putnotc"
Répondre


Messages dans ce sujet
TCL !bombe - par lesny - 17/11/2010, 02:46
RE: TCL !bombe - par cestlemien - 17/11/2010, 09:46
RE: TCL !bombe - par CrazyCat - 17/11/2010, 10:20
RE: TCL !bombe - par cestlemien - 17/11/2010, 12:49
RE: TCL !bombe - par CrazyCat - 17/11/2010, 13:23
RE: TCL !bombe - par lesny - 17/11/2010, 15:37
RE: TCL !bombe - par lesny - 17/11/2010, 22:33

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit - Discutez en toute liberté - Transitionnez vers Linux - Discussions dans le Lauragais - Communauté LGBT respectueuse - soutien aux victimes de cybermalveillance - pour les filles par les filles Le forum pour passer le temps