Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Générer un rire diabolique aléatoire (indispensable)
#1
 
Exemple :
Citation :.tcl rireDiabolique
Tcl: mwaaahAhHHaAhaHahHhAaAaaAHHHaHAAAHhahhhHAaahahhAAhh

tcl
proc rireDiabolique {} {
	set rire mw
	while {[incr iw] < 50} {
		append rire [lindex {h H a A} [expr ([rand 2744] + 78 * $iw) % 4]]
	}
	return $rire
}


imaginé par Fira
Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
  Répondre
#2
Le seul bout de code réellement utile de cette section. A implémenter dans tous les scripts. Essentiellement dans condoleances.tcl :)
  Répondre
#3
Après des années de recherche en autarcie, FiraLabs à réussi à améliorer l'algorithme rireDiabolique.

Les features highlight de la nouvelle version sont :
  • Maintenant 66.6% plus diabolique !
  • Plus de classe, autant de code !
  • Gestion des longueurs de chaine de sortie variable avec un paramètre !
  • Les chaines ont maintenant une longueur aléatoire !
  • Augmentation de la fréquence des A, pour un rire plus facilement prononçable !
  • Suppression des caractères identiques à la suite, pour un rire plus réaliste !

N'attendez plus, utilisez le maintenant :

tcl
proc rireDiabolique {{l 50} {c a}} { 
     set [set $c [set type mw]] [list ]
      while {[incr i]<$l} {
         if {$mw != [set mw [lindex [list h fira $c vous A passe H le A bonjour $c] [expr 2 * (int(rand()*[join [scan [join [info vars]] [string repeat %c [llength [info vars]]]] [list ]]) % [llength [info vars]]) ]]]} {
              [join [list $c pp end] [list ]] type [set [set $c]]  
        } 
     }
return [set [lindex [info frame [info frame]] [expr 1 == 2]]] }



Exemple:
Code :
<Fira> .tcl rireDiabolique 40
<Boole> Tcl: mwahHaAhAHAhAHaHAaAaHaAahAa

Have fun !
  Répondre
#4
(07/10/2013, 22:21)CrazyCat a écrit : Le seul bout de code réellement utile de cette section. A implémenter dans tous les scripts. Essentiellement dans condoleances.tcl :)

Bonjour,
En effet c'est bien vrai!
Je penses aussi que c'est tout ce qui manque!
  Répondre


Sujets apparemment similaires...
Sujet Auteur Réponses Affichages Dernier message
  Générer un masque de host MenzAgitat 0 2,954 07/10/2013, 20:12
Dernier message: MenzAgitat

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)