begin process at 2010 02 09 20:05:49
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > MÉLANGEUR DE MOT

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
}



 Sources du même auteur

Source avec Zip SIMPLE QUIZZ

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture DARKPROJECT - SCRIPT MIRC par Artwerks
Source avec Zip Source avec une capture LECTEUR DE RSS par ouroumov
Source avec Zip Source avec une capture NITR0`SCRIPT par juju3737
Source avec Zip SIMPLE QUIZZ par Kentix
Source avec Zip Source avec une capture BIRTHDAY MIRC MANAGER / GESTION DES ANNIVERSAIRES MIRC par galdinx

Commentaires et avis

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

Commentaire de uaip le 03/02/2008 13:04:29

idem... :s

Commentaire de Kentix le 03/02/2008 19:46:36

Non mais c'était une remarque

Commentaire de Kentix le 04/02/2008 18:31:13

La source fonctionne

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 ?

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...

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 ?

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

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.

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.

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


Discussions en rapport avec ce code source dans le forum

Regex multiligne [ par TropNul ] Bonjour tout le monde :o)n'ayant pas trouver grand aide sur le web, je me permet de poser ma question ici.j'aimerais savoir si cela est possible de fa Comment génerer un mot de passe aléatoire avec mélange de chiffre et de lettre par mirc [ par Driven ] Bonjour je me permet d'écrire à ce forum pour vous poser une question, voilà je recherche un codage mirc qui me ferait aléatoirement un mot de passe a Code mirc bd [ par Phadeb ] Une requete assez simple qui ne devrait pas faire + de 20 lignes et qui vous entrainera.Un script "wquizz", une base de donnée "database.txt"Des quest Aide pour une remote mIRC [ par Lunon ] Bonjour, je souhaite tester sur un bot une fonction très basique.En tappant par exemple !test dans un channel, je voudrais que le bot aille chercher d mIRC 6.33 [ par wims ] Et oui, Khaled l'avait annoncé, une version corrigeant des problèmes assez important devait sortir ( première fois qu'il donnait une info de ce genre identifieurs, commandes et événements mIRC dans un fichier.txt (ou autre) [ par uaip ] Bonjour z'à tous.Etant donné le nombre important d'identifieurs, commandes et événements en mIRC scripting, je vous demande un peu d'aide.J'aimerais c mIRC 6.34 [ par wims ] Khaled l'avait annoncé (j'ai fait une news sur scriptsdb.org), la version 6.34 viens donc de sortir pour corrigé un bug bien gênant qui rendait les co problemes de couleurs sur mirc 6.17 [ par torpe ] bonjour à tous ! voila je possede mirc 6.17 en francais sur mon script et quand je fais glisser mon curseur dessus un texte il met une autre couleur p suppression protocol [ par Tom_21 ] Bonjour,j'ai un soucis avec mon mIRC .comment puis je faire pour supprimer le protocol proxy et socks4 dans un mIRC ( alt+o - connect- firewall - et l


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,061 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales