Boucle while?Résolu

Question

hello, 

voici mon alias, je pense que j'ai un probleme avec la boucle while mais lequel :s 
alias cont {
  var %r = $read(oppose.txt)
  var %n = 2 
  set %opp $gettok(%r,1,42)
  set %oppr. $+ %n $gettok(%r,%n,42)  
  inc %n
  while (%n <= $numtok(%r,32)) {
    set %oppr. $+ %n $gettok(%r,%n,42)


  }    
  set %chrono 60
  
voil&#224; dans la boucle while, je set plusieurs variables en m&#234;me temps soit : 
%oppr.2
%oppr.3
%oppr.4

Si quelqu'un a une id&#233;e

merci par avance :-)

RCA ArKanis · Accepted Answer

ON *:TEXT:*:#:{
  var %n = 2
  tokenize 32 $strip($1-)
  while (%oppr. [ $+ [ %n ] ]) {
    var %mot = %oppr. [ $+ [ %n ] ])     if ($1 %mot) && ($nick %mot) {
      ;je ne comprends pas ce 2e if (quel est le rapport avec le nick ?!) Faudrait s&#251;rement l'enlever
      inc %point. [ $+ [ $nick ] ]
      ;pourquoi y-a-t-il un { apr&#232;s le SET ? FAUX
      msg $msn.get($cid,fullroom) Bravo, le mot contraire est bien (*) %mot (*) &#226;?&#169; Ton score est de %point. [ $+ [ $nick ] ] 
      unset %oppr2
      .timer.cont 1 2 cont
      ;Ton else est compl&#232;tement faux. ELSE signifie SINON      
    }
    inc %n
  }
}
alias cont {  var %r $read(oppose.txt), %n 2
  set %opp $gettok(%r,1,42)
  while (%n <= $numtok(%r,42)) { set %oppr. $+ %n $gettok(%r,%n,42) | inc %n }
  set %chrono 60
  .timerchrono 1 %chrono arret
  msg $msn.get($cid,fullroom) (o) Trouve le contraire de ce mot (o)
  msg $msn.get($cid,fullroom) (*) %opp (*)
}
alias arret {
   ;... a toi de le faire
}

pas test&#233;, mais j'ai pas vu d'erreur (de syntaxe en tout cas c'est s&#251;r)
en corrigeant, j'ai compris que ton timer d&#233;clence l'alias nomm&#233; ARRET, mais que les /msg qui &#233;taient entre { } n'en faisaient pas partie

cs_KiNdErMaXi · Answer

il faut incr&#233;ment %n apr&#232;s set %oppr. $+ %n $gettok(%r,%n,42)


[irc://irc.voila.fr/kinder Kinder_Maxi]

mr_orus1 · Answer

Bonsoir, 

Comme &#231;a tu veux dire?

alias cont {
  var %r = $read(oppose.txt)
  var %n = 2  
  set %opp $gettok(%r,1,42)
  set %oppr. $+ %n $gettok(%r,%n,42) 
  while (%n <= $numtok(%r,32)) {
  set %oppr. $+ %n $gettok(%r,%n,42) }  
  inc %n 
  set %chrono 60
  .timerchrono 1 %chrono /arret {
    msg $msn.get($cid,fullroom) (o) Trouve le contraire de ce mot (o)
    msg $msn.get($cid,fullroom) (*) %opp (*)
  }
}

en tout cas merci :-)

cs_KiNdErMaXi · Answer

non le } apr&#232;s inc %n


[irc://irc.voila.fr/kinder Kinder_Maxi]

mr_orus1 · Answer

Hello, 

Pour dire vrai, je ne comprends pas ce que tu veux me dire

 while (%n <= $numtok(%r,32)) {
  set %oppr. $+ %n $gettok(%r,%n,42)   
  inc %n }

o&#249;

 inc %n }
 while (%n <= $numtok(%r,32)) {
  set %oppr. $+ %n $gettok(%r,%n,42) 

merci ;)

RCA ArKanis · Answer

faudrait penser &#224; reprendre tes anciens topics plut&#244;t que d'en cr&#233;er de nouveaux :/
c'est le 3e que tu cr&#233;es &#224; ce propos

  .timerchrono 1 %chrono /arret {
    msg $msn.get($cid,fullroom) (o) Trouve le contraire de ce mot (o)
    msg $msn.get($cid,fullroom) (*) %opp (*)
  }

mets plut&#244;t &#231;a :
.timerchrono 1 %chrono arret

et plus loin :
alias arret {
    msg $msn.get($cid,fullroom) (o) Trouve le contraire de ce mot (o)
    msg $msn.get($cid,fullroom) (*) %opp (*)
}

par rapport &#224; ton premier code, la ligne o&#249; il n'y a rien (dans la boucle while), c'est ici qu'il faut que tu mettes le inc %n

mr_orus1 · Answer

Hello, 
j'ai essay&#233; comme &#231;a, mais &#231;a ne me set toujours pas 
- %opp.3
- %opp.4

alias cont {
  var %r = $read(oppose.txt)
  var %n = 2  
  set %opp $gettok(%r,1,42)
  set %oppr. $+ %n $gettok(%r,%n,42) 
  while (%n <= $numtok(%r,32)) {
    set %oppr. $+ %n $gettok(%r,%n,42)   
  inc %n }
  set %chrono 60
  .timerchrono 1 %chrono arret {
    msg $msn.get($cid,fullroom) (o) Trouve le contraire de ce mot (o)
    msg $msn.get($cid,fullroom) (*) %opp (*)
  }
}

merci

RCA ArKanis · Answer

corrige ton timer comme je te l'ai dit :/

mr_orus1 · Answer

hello, 


je t'explique, si je fais un alias arret &#231;a me fera un deuxieme donc &#231;a passera pas


.timerchrono 1 %chrono arret   <<== ici arret est pour lancer l'alias arret

alias arret {
  msg $msn.get($cid,fullroom) Le jeu est sur off, tapez @cont pour le relancer (*)
  unset %opp %chrono %oppr.2 %oppr.3 %oppr.4

msg $msn.get($cid,fullroom) (o) Trouve le contraire de ce mot (o)
    msg $msn.get($cid,fullroom) (*) %opp (*)  , je le mettais dans le m&#234;me alias car il en fait parti.


<HR>
Mais &#231;a pourrait vreaiment avoir une incidence sur ma boucle while qui ne set pas 
%oppr.3 
%oppr.4  ?

ou j'ai plutot une erreur dans la boucle m&#234;me?



The-Real-Orus-style

RCA ArKanis · Answer

change le nom de l'alias alors
.timerchrono 1 %chrono arret.chrono

et plus loin :
alias arret.chrono {
    msg $msn.get($cid,fullroom) (o) Trouve le contraire de ce mot (o)
    msg $msn.get($cid,fullroom) (*) %opp (*)
}

mr_orus1 · Answer

re hello...

En fait ma boucle tournais pas a cause d'une erreur idiote ...

while (%n <= $numtok(%r,32)) au lieu de while(%n <= $numtok(%r,42))

Pour qu'il gere les espace, vous me conseiullez un $remove?

En tout cas merci de votre patience ;)

RCA ArKanis · Answer

quel espace ? celui apr&#232;s while ? il y en a toujours un !

faut mettre :
while (%n <= $numtok(%r,32)) { ... | inc %n }

mr_orus1 · Answer

non par exemple

mon fichier texte est fait de fa&#231;on suivante

question*reponse1*reponse2*reponse3

mais des fois il se presente exactement comme &#231;a
question*reponse une*reponse deux*reponse trois

Dans le cas question*repon1*reponse2*reponse3, &#231;a fonctionne bien car c'est juste un mot dans reponse2

mais dans le cas question*reponse une*reponse deux*.....

comme il y a un espace entre reponse et une par exemple, &#231;a ne marche pas.

donc je demandais si avec $remove sur le 32 &#231;a serait jute

RCA ArKanis · Answer

tu peux pas utiliser un caract&#232;re comme d&#233;limiteur ?

j'ai du mal &#224; te comprendre, donne des exemples concrets stp ^^

mr_orus1 · Answer

ok je vais essayer de m'expliquer "clairement" lol

dans mon fichier text

question*reponse1*reponse2*reponse3

compte tenu de ma boucle et des tok


&#231;a me set 
%question1
%question2
%question3
 jusque l&#224;, pas de soucis

maintenant si dans mon fichier txt, il y a des espaces

par exemple dans le fichier
 j'ai
question*reponseespaceune*reponseespacedeux*reponseespacetrois

l&#224; &#231;a marchera pas parce qu'il y a un espace dans le fichier

j'espere que j'ai &#233;t&#233; &#224; peu pres clair..

Merci ;)



The-Real-Orus-style

RCA ArKanis · Answer

while (%n <= $numtok(%r,32)) { ... | inc %n } 
pourquoi &#231;a serait pas 42 au lieu de 32 ici ?

au besoin, utilise un autre caract&#232;res (comme _ ou tout autre rarement utilis&#233; ) qui repr&#233;sentera un d&#233;limiteur, comme dit pr&#233;c&#233;dement

qu'est ce qui ne marchera pas, comme tu le dis ?

mr_orus1 · Answer

while (%n <= $numtok(%r,32)) { ... | inc %n } 
 comme je l'ai indiqu&#233; plus haut la boucle tournait pas &#224; cause du 32 que j'ai remplac&#233; par 42 (le delimitateur *)

maintenant je te donne un exemple un exemple concret 

fichier txt : 

Rire*pleurer*bouder

ici, pleurer = oppr.2
bouder = oppr.3

donc avec : 

on *:TEXT:*:#: {
  if ($strip($1) == %oppr.2) {     if ($1- [ %oppr. $+[ %n ] ] ) && ($nick [ %oppr. $+ [ %n ] ] )
    else set %point. [ $+ [ $nick ] ] $calc(%point. [ $+ [ $nick ] ] + 1) {
      msg $msn.get($cid,fullroom) Bravo, le mot contraire est bien (*) %oppr.2 (*) &#226;?&#169; Ton score est de %point. [ $+ [ $nick ] ] 
      unset %oppr2 | timer.cont 1 2 cont
    }
  }
}
on *:TEXT:*:#: {
  if ($strip($1) == %oppr.3) {     if ($1- [ %oppr. $+[ %n ] ] ) && ($nick [ %oppr. $+ [ %n ] ] )
    else set %point. [ $+ [ $nick ] ] $calc(%point. [ $+ [ $nick ] ] + 1) {
      msg $msn.get($cid,fullroom) Bravo, le mot contraire est bien (*) %oppr.3 (*) &#226;?&#169; Ton score est de %point. [ $+ [ $nick ] ] 
      unset %oppr.3 | timer.cont 1 2 cont
    }
  }
}
 

&#231;a me retourne si %oppr.2 = pleurer

bravo le mot contraire est bien pleurer

Maintenant, si mon fichier text il y a

Rire*se morfondre

&#231;a ne marche pas, parce qu'il y a un espace entre se et morfondre 

Tu vois ce que je veux dire?

merci ;)

The-Real-Orus-style

mr_orus1 · Answer

Merci :d ;)

mr_orus1 · Answer

hello, 

J'ai un autres soucis, sur mon script, j'ai plusieurs ON *:TEXT

la lecture s'arrete &#224; la fin du premier, alors j'ai essay&#233; sur le premier on *:text: de rajouter un "^" pour faire 
On ^*:text: pour le forcer a continuer de lire la page...

Mais &#231;a ne marche pas sur tout les on:text:

J'ai bien pens&#233; &#224; rassembler les commandes mais je vois pas comment...

Si quelqu'un a une id&#233;e..

Merci :)

RCA ArKanis · Answer

ON *:TEXT:*:#:{
  if ($1 == !commande1) { ... }
  elseif ($1 == !commande2) { ... }
  elseif ($1 == !commande3) { ... }
  ;etc ...
  else {
    ;mets ici ta boucle et tout ce qui va avec ...
  }
}

mr_orus1 · Answer

&#231;a devrait donner quelquechoses comme &#231;a?
on ^*:text:*:#: {
  if (%opfl == stopflood) halt {
    if ($1 == *!test1*) { msg $msn.get($cid,fullroom) Hello $nick &#226;?&#169;  (o) $date $+ , $time (o)  &#226;?&#169; (o) Le Jeu est activ&#195;&#169; (o)cont | timer.cont 1 2 cont | set -u2 %opfl stopflood 
    }
    elseif ($1 == *!test2*) {
      arret | timerchrono off | set -u2 %opfl stopflood 
    }
    elseif ($strip($1) == %oppr.2) {
      set %point. [ $+ [ $nick ] ] $calc(%point. [ $+ [ $nick ] ] + 1) {
        write synantnick.txt  $nick - $calc(%point. [ $+ [ $nick ] ] + 1)    
        msg $msn.get($cid,fullroom) Bravo, le mot contraire est bien (*) %oppr.2 (*) &#226;?&#169; Ton score est de %point. [ $+ [ $nick ] ] 
        unset %oppr2 | timer.cont 1 2 cont | hadd score %point. [ $+ [ $nick ] ]
      }
    }
  }
  elseif ($strip($1) == %oppr.3) { 
    set %point. [ $+ [ $nick ] ] $calc(%point. [ $+ [ $nick ] ] + 1) {
      write synantnick.txt  $nick - $calc(%point. [ $+ [ $nick ] ] + 1)     
      msg $msn.get($cid,fullroom) Bravo, le mot contraire est bien (*) %oppr.3 (*) &#226;?&#169; Ton score est de %point. [ $+ [ $nick ] ] 
      unset %oppr.3 | timer.cont 1 2 cont | hadd score %point. [ $+ [ $nick ] ]
    }
  }
}
elseif ($strip($1) == %oppr.4) {   if ($1- [ %oppr. $+[ %n ] ] ) && ($nick [ %oppr. $+ [ %n ] ] )
  set %point. [ $+ [ $nick ] ] $calc(%point. [ $+ [ $nick ] ] + 1) {
    write synantnick.txt  $nick - $calc(%point. [ $+ [ $nick ] ] + 1)     
    msg $msn.get($cid,fullroom) Bravo, le mot contraire est bien (*) %oppr.4 (*) &#226;?&#169; Ton score est de %point. [ $+ [ $nick ] ] 
    unset %oppr.2 %oppr.3 %oppr.4 | timer.cont 1 2 cont | hadd score %point. [ $+ [ $nick ] ]
  }

merci ;)

RCA ArKanis · Answer

ta syntaxe ne veut rien dire !
tu ne peux pas utiliser de { n'importe o&#249;

if (%opfl == stopflood) halt {
enl&#232;ve le {, &#231;a sera beaucoup plus correct

$1 == *!test2* ?
faut vraiment taper *!test2* sur ton chan pour en arriver l&#224; ?

fait un tokenize 32 $strip($1-) apr&#232;s le ON TEXT
t'auras plus besoin de $strip apr&#232;s

 set %point. [ $+ [ $nick ] ] $calc(%point. [ $+ [ $nick ] ] + 1) {
encore une fois ... je te l'avais corrig&#233; celui l&#224; en plus ... si tu ne tiens m&#234;me pas compte de nos corrections, pourquoi tu nous en demandes encore ?
=> reprends ce que tu as valid&#233; (ce qui est en vert)

corrige les { }, et recolle apr&#232;s
t'en as beaucoup trop &#224; mon go&#251;t, j'ai pas envie de tous les v&#233;rifier :/

mr_orus1 · Answer

re hello, 

J'avais corrig&#233; comme plus haut, mais quand j'avais lanc&#233; la commande le script avait plant&#233; alors j'avais rechang&#233; dans la panique et pas pens&#233; a remettre...

j'ai essay&#233; de corriger comme tu me l'as dit, voici ce que j'ai maintenant :
ON *:TEXT:*:#: {
  tokenize 32 $strip($1-) 
  if (%opfl == stopflood) halt
  if ($1 == @test1) {
    msg $msn.get($cid,fullroom) Hello $nick &#226;?&#169;  (o) $date $+ , $time (o)  &#226;?&#169; (o) Le Jeu est activ&#195;&#169; (o) | timer.cont 1 2 cont | set -u2 %opfl stopflood 
  } 
  elseif ($1 == @test2) {
    arret | timerchrono off | set -u2 %opfl stopflood 
  }
  var %n = 2
  tokenize 32 $strip($1-)
  while (%oppr. [ $+ [ %n ] ]) {
    var %mot = %oppr. [ $+ [ %n ] ])     elseif ($1 %mot) && ($nick %mot) {
      inc %point. [ $+ [ $nick ] ]
      msg $msn.get($cid,fullroom) Bravo, le mot contraire est bien (*) %mot (*) &#226;?&#169; Ton score est de %point. [ $+ [ $nick ] ] 
      unset %oppr2
      .timer.cont 1 2 cont
    }
    inc %n
  }
}

donc &#231;a lance bien les messages de @test 1 et @test 2

Mais pour la suite du code (notamment la boucle + msg), 

&#231;a ne fonctionne pas...

J'ai d&#251; oublier quelque chose que tu as expliqu&#233; mais je ne vois pas quoi ...

En tout cas merci pour ta patience ;)

RCA ArKanis · Answer

ton 2e tokenize est inutile

var %mot = %oppr. [ $+ [ %n ] ])
y'a une ) en trop, excuse moi

je t'avais pas d&#233;j&#224; conseill&#233; de mettre %opfl = 1, au lieu de stopflood, pour raccourcir ton code ?

mr_orus1 · Answer

j'ai corrig&#233; ce que tu m'as indiqu&#233;, mais en fait je suis sur d'avoir oubli&#233; un truc, car le system "reponse" ne fonctionne pas...

Aussi, j'ai pr&#233;f&#233;r&#233; garder pour le moment (j'ai bien pris note de ton astuce pour alleger) le set -u2 %opfl stopflood pour mes control dans les variable, c'est plus pratique pour moi 
 
merci

mr_orus1 · Answer

Voilà ce que j'ai fait..
J'ai suivit tout les conseil et procédé..
l'alias cont se lance bien
Par contre, pour la reponse, ça prend pas en compte, ça ne marche pas..

ON *:TEXT:*:#: {
  Tokenize 32 $strip($1-)
  var %n = 2
  while (%n <= %oppr. [ $+ [ %n ] ] {
    var %mot = %oppr. [ $+ [ %n ] ] 
    inc %point. [ $+ [ $nick ] ] 
    msg $msn.get($cid,fullroom) Bravo, le mot 


contraire est bien (*) %mot (*) ? Ton score 


est de %point. [ $+ [ $nick ] ] 
    unset %oppr2
    .timer.cont 1 2 cont
  }    
  inc %n
}


alias cont {var %r $read(oppose.txt), %n 2
set %opp $gettok(%r,1,42)
while (%n <= $numtok(%r,42)) { set %oppr. $+ 


%n $gettok(%r,%n,42) | inc %n }
set %chrono 60
.timerchrono 1 %chrono arret
msg $msn.get($cid,fullroom) (o) Trouve le 


contraire de ce mot (o)
msg $msn.get($cid,fullroom) (*) %opp (*)
}

ou ai je fait une erreur???

En tout cas merci 

The-Real-Orus-style

RCA ArKanis · Answer

d'où tu sors cette boucle ?
(la première,  celle du ON TEXT)
while (%n <%oppr. [ $+ [ %n ] ]> c'est carrément faux !!
reprends ce qu'on t'a donné, et n'invente rien, apparement ça vaut mieux
de même : le /msg et le /unset doivent très certainement être en dehors de la boucle ...

while (%n <= $numtok(%r,42)) { set %oppr. $+ 


%n $gettok(%r,%n,42) | inc %n }
c'est quoi cette chose ?!
ça, c'est déjà mieux : while (%n <= $numtok(%r,42)) { set %oppr. $+ %n $gettok(%r,%n,42) | inc %n }

copie/colle ce qu'on te donne, et évite de le modifier ://

mr_orus1 · Answer

merci, en fait j'avais simplement suivi  ce qui était validé en vert.

Je vais essayer ça 

Merci ;)

RCA ArKanis · Answer

dans ce qui est en vert, y'a while (%oppr. [ $+ [ %n ] ]) et pas ton truc là :/

Boucle while?

29 réponses

Votre réponse

Discussions similaires