begin process at 2008 08 20 13:19:01
1 228 858 membres
224 nouveaux aujourd'hui
14 257 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MÉLANGEUR DE MOT


Information sur la source

Description

C'est une fonction que j'utilise pour un plus gros projet (d'où les noms des var %devinette* vous étonnez pas), je la fais partager.
Elle mélange un mot, bizarrement j'ai eu énormément de bug au niveau de:
$instok(%devinettemotok,$gettok(%devinettemot,%b,32),$rand(1,5),32)
quand je voulais faire des trucs plus compliqué niveau mélange et j'ai trouvé qu'avec un petit $rand(1,5) pas trop gros (style pas $rand(1,99)) ça marchait toujours.
Si qu'unlqun pouvait m'expliquer pourquoi.

Source

  • ;Systême de mélangeur de mot par Kentix
  • ;Utilisation: être op puis !melangermot UnMot
  • ;Séparation char par char d'un mot qu'on stocke dans %devinettemot
  • alias separermot {
  • unset %devinettemot
  • set %devinettereponse $$1
  • var %a = $$1, %b = $len(%a), %c = 1
  • while (%c <= %b) {
  • set %devinettemot $instok(%devinettemot, $right($left(%a,%c),1), %b, 32)
  • inc %c
  • }
  • }
  • ;On mélange les chars, on stocke le mot obtenu dans %devinettemotok
  • alias melangermot {
  • unset %devinettemotok
  • var %a = $numtok(%devinettemot,32), %b = 1
  • while (%b <= %a) {
  • set %devinettemotok $instok(%devinettemotok,$gettok(%devinettemot,%b,32),$rand(1,5),32)
  • inc %b
  • }
  • }
  • ;On regroupe les chars mélangés dans la var %devinettemotrassembler
  • alias rassemblermot {
  • unset %devinettemotrassembler
  • var %a = $numtok(%devinettemotok,32), %b = 1
  • while (%b <= %a) {
  • set %devinettemotrassembler %devinettemotrassembler $+ $gettok(%devinettemotok,%b,32)
  • inc %b
  • }
  • }
  • on @*:text:!melangermot*:#:{
  • separermot $$2
  • melangermot
  • rassemblermot
  • msg $chan %devinettemotrassembler
  • }
;Systême de mélangeur de mot par Kentix
;Utilisation: être op puis !melangermot UnMot

;Séparation char par char d'un mot qu'on stocke dans %devinettemot
alias separermot {
  unset %devinettemot
  set %devinettereponse $$1
  var %a = $$1, %b = $len(%a), %c = 1
  while (%c <= %b) {
    set %devinettemot $instok(%devinettemot, $right($left(%a,%c),1), %b, 32)
    inc %c
  }
} 

;On mélange les chars, on stocke le mot obtenu dans %devinettemotok
alias melangermot {
  unset %devinettemotok
  var %a = $numtok(%devinettemot,32), %b = 1
  while (%b <= %a) {
    set %devinettemotok $instok(%devinettemotok,$gettok(%devinettemot,%b,32),$rand(1,5),32)
    inc %b
  }
}

;On regroupe les chars mélangés dans la var %devinettemotrassembler
alias rassemblermot {
  unset %devinettemotrassembler
  var %a = $numtok(%devinettemotok,32), %b = 1
  while (%b <= %a) {
    set %devinettemotrassembler %devinettemotrassembler $+ $gettok(%devinettemotok,%b,32)
    inc %b
  }
}
on @*:text:!melangermot*:#:{
  separermot $$2
  melangermot
  rassemblermot
  msg $chan %devinettemotrassembler
}
  • signaler à un administrateur
    Commentaire de RCA ArKanis le 02/02/2008 12:02:42

    Si c'est pour avoir de l'aide, c'est dans le forum qu'il faut aller ...

    Cette source sera supprimée ... quand un admin passera :)

    Repose ta question sur le forum et je te répondrai, ça ne sert à rien que je te réponde ici

  • signaler à un administrateur
    Commentaire de uaip le 03/02/2008 13:04:29

    idem... :s

  • signaler à un administrateur
    Commentaire de Kentix le 03/02/2008 19:46:36

    Non mais c'était une remarque

  • signaler à un administrateur
    Commentaire de Kentix le 04/02/2008 18:31:13

    La source fonctionne

  • signaler à un administrateur
    Commentaire de codefalse le 22/02/2008 21:48:10 administrateur CS

    Je voulais savoir si en l'état, le code est utilisable ou non ?

  • signaler à un administrateur
    Commentaire de uaip le 22/02/2008 22:00:12

    perso je sais pas.
    puis je vois pas trop l'intérêt de ce truc... ni du fait qu'il faille être op, d'ailleurs...

  • signaler à un administrateur
    Commentaire de codefalse le 22/02/2008 22:11:05 administrateur CS

    Ce "truc" peu intéresser d'autres personnes.
    Mais ta réflexion sur le fait d'être op à toute son utilité (un peu comme ton commentaire...) : J'ai été alerté de ce code mais je ne programme pas (ou plus) en "langage irc" donc je suis incapable de justifier de la qualité de ce code, je fait juste en sorte de laisser quelque chose de fonctionnel si c'est le cas.

    Depuis quand un op est censé maitriser tous les langages proposés par CS ?

  • signaler à un administrateur
    Commentaire de RCA ArKanis le 22/02/2008 22:26:24

    quand il a parlé de "op", il voulait dire "opérateur" en désignant le fait d'avoir des accès suffisant pour pouvoir bannir ou kicker quelqu'un d'un salon. Il ne parlait pas des administrateurs de ce site :p

    on @*:text:!melangermot*:#:{

    le @ signifie :
    if ($me isop $chan) <=> si le bot est opérateur

    ne t'en fais pas, il n'a aucunement critiqué le travail de vous autres, administrateurs :p

  • signaler à un administrateur
    Commentaire de uaip le 22/02/2008 22:33:50

    euh.. ué exact ^^
    ce code est un mélangeur de mots, donc utilisable par tous, donc je vois pas l'intérêt qu'il faille être opérateur (du salon irc ^^) pour pouvoir l'utiliser.
    ... j'essayerai d'être plus précis la prochaine fois.

  • signaler à un administrateur
    Commentaire de codefalse le 22/02/2008 22:49:44 administrateur CS

    Alors du coup c'est moi qui m'excuse de mal avoir compris la chose aussi :)
    D'apres vos remarques, le code n'a apparement pas sa place ici en l'état actuel.
    Je laisse à l'auteur le choix de la correction (modifier le fait de ne pas être op entre autre) sans quoi je supprimerai ce code.

  • signaler à un administrateur
    Commentaire de XyLOng le 17/03/2008 12:11:05

    idem...mm Pour ce code ca peut aller au forum mieux
    pour l'améliorer et le corriger .

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS