Bon voila, certain doivent connaitre acrostiche.tcl pour eggdrop et ben c'est le meme genre.
Si d'autre ne connaissent pas sa ressemble a sa :
L'acronyme de Jujuquatre : Judicieux(euse) Unike Jovial(e) Unik Quintescent(e) Unique Acceullant(e) Tendre Raffiné(e) Energique
Lol enfaite c'est chaque lettre du mot forme un mot
Dessus vous pouvez choisir entre des mot gentil ou vulgaire ( meme tres vulgaire defois alors attention )
Les commandes :
!acrog <le mot> | pour dire un acronyme gentil du mot
!acrom <le mot> | pour dire un acronyme mechant du mot
!addacrog <le mot a ajouter> | pour ajouter un mot gentil
!addacrom <le mot a ajouter> | pour ajouter un mot mechant
Source / Exemple :
;############ Acronyme #############
on *:text:*!acrog*:#:{
var %textrecu = $2-
var %i = 1
while %i <= $len(%textrecu) {
var %text.temp = $mid(%textrecu,%i,1)
if (%text.temp != a) && (%text.temp != b) && (%text.temp != c) && (%text.temp != d) && (%text.temp != e) && (%text.temp != f) && (%text.temp != g) && (%text.temp != h) && (%text.temp != i) && (%text.temp != j) && (%text.temp != k) && (%text.temp != l) && (%text.temp != m) && (%text.temp != n) && (%text.temp != o) && (%text.temp != p) && (%text.temp != q) && (%text.temp != r) && (%text.temp != s) && (%text.temp != t) && (%text.temp != u) && (%text.temp != v) && (%text.temp != w) && (%text.temp != x) && (%text.temp != y) && (%text.temp != z) { set %token1acro %token1acro 4 $+ %text.temp }
if (%text.temp == a) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/a.txt) } }
if (%text.temp == b) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/b.txt) } }
if (%text.temp == c) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/c.txt) } }
if (%text.temp == d) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/d.txt) } }
if (%text.temp == e) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/e.txt) } }
if (%text.temp == f) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/f.txt) } }
if (%text.temp == g) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/g.txt) } }
if (%text.temp == h) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/h.txt) } }
if (%text.temp == i) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/i.txt) } }
if (%text.temp == j) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/j.txt) } }
if (%text.temp == k) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/k.txt) } }
if (%text.temp == l) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/l.txt) } }
if (%text.temp == m) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/m.txt) } }
if (%text.temp == n) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/n.txt) } }
if (%text.temp == o) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/o.txt) } }
if (%text.temp == p) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/p.txt) } }
if (%text.temp == q) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/q.txt) } }
if (%text.temp == r) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/r.txt) } }
if (%text.temp == s) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/s.txt) } }
if (%text.temp == t) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/t.txt) } }
if (%text.temp == u) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/u.txt) } }
if (%text.temp == v) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/v.txt) } }
if (%text.temp == w) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/w.txt) } }
if (%text.temp == x) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/x.txt) } }
if (%text.temp == y) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/y.txt) } }
if (%text.temp == z) { if %token1acro != $null { set %token1acro %token1acro $read(acro/gent/z.txt) } }
if ( %i >= $len(%textrecu)) { msg $chan %token1acro }
inc %i
}
unset %token1acro
set %token1acro Acronyme ->
return %textrecu
}
on *:text:*!acrom*:#:{
var %textrecu = $2-
var %i = 1
while %i <= $len(%textrecu) {
var %text.temp = $mid(%textrecu,%i,1)
if (%text.temp != a) && (%text.temp != b) && (%text.temp != c) && (%text.temp != d) && (%text.temp != e) && (%text.temp != f) && (%text.temp != g) && (%text.temp != h) && (%text.temp != i) && (%text.temp != j) && (%text.temp != k) && (%text.temp != l) && (%text.temp != m) && (%text.temp != n) && (%text.temp != o) && (%text.temp != p) && (%text.temp != q) && (%text.temp != r) && (%text.temp != s) && (%text.temp != t) && (%text.temp != u) && (%text.temp != v) && (%text.temp != w) && (%text.temp != x) && (%text.temp != y) && (%text.temp != z) { set %token1acro %token1acro 4 $+ %text.temp }
if (%text.temp == a) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/a.txt) } }
if (%text.temp == b) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/b.txt) } }
if (%text.temp == c) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/c.txt) } }
if (%text.temp == d) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/d.txt) } }
if (%text.temp == e) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/e.txt) } }
if (%text.temp == f) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/f.txt) } }
if (%text.temp == g) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/g.txt) } }
if (%text.temp == h) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/h.txt) } }
if (%text.temp == i) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/i.txt) } }
if (%text.temp == j) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/j.txt) } }
if (%text.temp == k) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/k.txt) } }
if (%text.temp == l) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/l.txt) } }
if (%text.temp == m) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/m.txt) } }
if (%text.temp == n) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/n.txt) } }
if (%text.temp == o) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/o.txt) } }
if (%text.temp == p) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/p.txt) } }
if (%text.temp == q) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/q.txt) } }
if (%text.temp == r) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/r.txt) } }
if (%text.temp == s) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/s.txt) } }
if (%text.temp == t) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/t.txt) } }
if (%text.temp == u) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/u.txt) } }
if (%text.temp == v) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/v.txt) } }
if (%text.temp == w) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/w.txt) } }
if (%text.temp == x) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/x.txt) } }
if (%text.temp == y) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/y.txt) } }
if (%text.temp == z) { if %token1acro != $null { set %token1acro %token1acro $read(acro/mech/z.txt) } }
if ( %i >= $len(%textrecu)) { msg $chan %token1acro }
inc %i
}
unset %token1acro
set %token1acro Acronyme ->
return %textrecu
}
on *:text:*!addacrom*:*:{
if ( $2- == $null ) { msg $chan Marque au moin un mot ! | halt }
if ($chr(32) isin $2-) { msg $chan Ne met pas d'espace ! | halt }
set %acro2.say $2-
set %acro2.PremLettre2 $left(%acro2.say,1)
set %acro2.PremLettre $left(%acro2.say,1)
Set %acro2.RestLettre.Cal $calc($len(%acro2.say) - 1)
Set %acro2.RestLettre $right(%acro2.say,%acro2.RestLettre.cal)
set %acro2.PremLettre 4 $+ $upper(%acro2.PremLettre)
set %acro2.TextComplet %acro2.PremLettre $+ $+ %acro2.RestLettre
write acro/mech/ $+ %acro2.PremLettre2 $+ .txt %acro2.TextComplet
msg $chan le Mot %acro2.TextComplet a bien etait ajouter dans les acronyme vulgaire !
}
on *:text:*!addacrog*:*:{
if ( $2- == $null ) { msg $chan Marque au moin un mot ! | halt }
if ($chr(32) isin $2-) { msg $chan Ne met pas d'espace ! | halt }
set %acro2.say $2-
set %acro2.PremLettre2 $left(%acro2.say,1)
set %acro2.PremLettre $left(%acro2.say,1)
Set %acro2.RestLettre.Cal $calc($len(%acro2.say) - 1)
Set %acro2.RestLettre $right(%acro2.say,%acro2.RestLettre.cal)
set %acro2.PremLettre 4 $+ $upper(%acro2.PremLettre)
set %acro2.TextComplet %acro2.PremLettre $+ $+ %acro2.RestLettre
write acro/gent/ $+ %acro2.PremLettre2 $+ .txt %acro2.TextComplet
msg $chan le Mot %acro2.TextComplet a bien etait ajouter dans les acronyme gentil !
}
Conclusion :
Bon je pour "kolibot" il me dira surment que le code et vraiment trop long et pas optimiser mais bon je les fait vite fait en passant car je le fesait pour mon script en dialog mais bon tan que sa marche :P
Sinon vous devez telecharger le .zip pour avoir les mots ( a dezipper dans le dossier racine du bot )
Vous pouvez mettre des access a !addacrom et !addacrog qui vivement conseiller :)
Et vous pouvez le modifier a volonté :p
Voila mci ++
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.