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
  Répondre   Avertir
#2
Le seul bout de code réellement utile de cette section. A implémenter dans tous les scripts. Essentiellement dans condoleances.tcl Smile
  Répondre   Avertir
#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   Avertir
#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 Smile

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


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

Atteindre :


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