CONVERTISSEUR EURO POUR BOT

Commentaire de PaDa le 13/07/2004 14:00:12

j'aime "pas trop" la facon dont tu as codé... tu aurais pu faire une table des taux de conversion et ensuite faire un seul on text en considérant les deux monnaies citées c'eut été plus joli et intéressant ... et configurable aussi ... :)

Commentaire de edp3242 le 13/07/2004 14:52:06

J'ai essayer de le faire avec un seul on text voila ce que j'ai fait:

On *:text:*:#: {

  if ($1 == !fr|euro*)  { .msg $chan $nick $+ , $2 Francs francais valent $calc($2 / 6.55957) ¤ }

  if ($1 == !fr|bel|euro*) { .msg $chan $nick $+ , $2 Francs belges ou luxembougeois valent $calc($2 / 40.3399) ¤ }

  if ($1 == !pes|euro*) { .msg $chan $nick $+ , $2 Pesetas espagnols valent $calc($2 / 166.386) ¤ }

  if ($1 == !liv|euro*) { .msg $chan $nick $+ , $2 Livres irlandaise valent $calc($2 / 0.787564) ¤ }

  if ($1 == !marks|all|euro*) { .msg $chan $nick $+ , $2 Marks allemands valent $calc($2 / 1.95583) ¤ }


  if ($1 == !lires|euro*) { .msg $chan $nick $+ , $2 Lires italiennes valent $calc($2 / 1936.27) ¤ }

  if ($1 == !flo|euro*) { .msg $chan $nick $+ , $2 Florins hollandais valent $calc($2 / 2.2037) ¤ }

  if ($1 == !sch|euro*) { .msg $chan $nick $+ , $2 Schillings autrichiens valent $calc($2 / 13.7603) ¤ }

  if ($1 == !ecus|euro*) { .msg $chan $nick $+ , $2 Ecus portugais valent $calc($2 / 200.482) ¤ }

  if ($1 == !marks|fin|euro*) { .msg $chan $nick $+ , $2 Marks finlandais valent $calc($2 / 5.94573) ¤ }



  if ($1 == !euro|fr*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 6.55957) Francs francais }

  if ($1 == !euro|fr|bel*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 40.3399) Francs belges ou luxembourgeois }

  if ($1 == !euro|marks|all*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 1.95583) Marks allemands }

  if ($1 == !euro|pes*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 166.386) Pesetas espagnols }

  if ($1 == !euro|liv*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 0.787564) Livres irlandaises }

  if ($1 == !euro|lires*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 1936.27) Lires italiennes }

  if ($1 == !euro|flo*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 2.2037) Florins hollandais }

  if ($1 == !sch|euro*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 13.7603) Schillings autrichiens }

  if ($1 == !euro|ecus*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 200.482) Ecus portugais }

  if ($1 == !euro|marks|fin*) { .msg $chan $nick $+ , $2 $+ ¤ valent $calc($2 * 5.94573) Marks finlandais }

}

Ca marche pas, pourquoi?

Commentaire de winwarrior le 13/07/2004 18:03:52

et voila encore un convertisseur ... enfin pour une fois il y a plusieurs pays ...
voila sinon je vois pas trop comment mieu le coder lol

Bon scripting.

Commentaire de PaDa le 13/07/2004 19:53:58

A titre pédagogique (LOL) : c'est surement très mal codé surement plein d'erreurs etc je poste juste ca pour donner une idée de ce qui peut etre intéressant ...
fonctionnement : " !convertir Euro|FFR 5 "
pour cui qui a l'alias /dialog -m Convert Convert ...

dialog Convert {
  title "Taux"
  size -1 -1 109 28
  option dbu
  combo 1, 24 2 60 101, size drop
  text "Monnaie", 2, 1 4 21 8
  edit "", 3, 17 17 44 10
  text "Taux", 4, 1 18 14 8
  text "= 1 Euro", 5, 63 18 23 8
  button "+", 6, 86 2 10 10
  button "-", 7, 98 2 10 10
  button "Ok", 8, 88 17 20 10,ok
}
on *:Start:{
hmake Conversions 50
if ($exists(taux.txt)) { hload Conversions taux.txt }
else { hadd Conversions Euro 1 | hsave -o Conversions taux.txt }
}
on *:dialog:Convert:*:*:{
  if ($devent == init) { Conver.update }
  if ($devent == sclick) {
    if ($did == 1) { did -ra $dname 3 $hget(Conversions,$did(1).seltext) }
    if ($did == 6) { hadd Conversions $$?="Nom de la monnaie ? (ex: FFR,Mark)" $$?="Taux de conversion ? (équivalence à 1 Euro)" | Conver.update }
    if ($did == 7) && ($did(1).seltext != Euro) { hdel Conversions $did(1).seltext | Conver.update }
  }
  if ($devent == edit) && ($did(1).seltext != Euro)  { hadd Conversions $did(1).seltext $iif($did(3),$ifmatch,0) }
  if ($devent == close) { hsave -o Conversions taux.txt }
}
alias Conver.update {
  did -r Convert 1,3
  var %x = $hget(Conversions,0).item
  while %x { did -a Convert 1 $hget(Conversions,%x).item | dec %x }
  did -c Convert 1 1
did -ra Convert 3 $hget(Conversions,$did(1).seltext)
}
alias Conversion {
if  (!$hget(Conversions,$1)) || (!$hget(Conversions,$2)) || ($3 !isnum) return ERROR
else return $calc($3 * $hget(Conversions,$2) / $hget(Conversions,$1))
}
On *:text:!convertir *:#: {
msg $chan $nick $+ , $3 $gettok($2,1,124) $+ s valent $round($conversion($gettok($2,1,124),$gettok($2,2,124),$3),2) $gettok($2,2,124) $+ s
}

C'est une piste , ca te fait voir un peu le fonctionnement des hashtables et tu pourras surement faire un truc configurable de cette manière ... et donc intéressant niveau code a défaut de l'être vraiment niveau utilisation j'avoue =)
bonne continuation

Commentaire de edp3242 le 13/07/2004 20:03:28

Merci PaDa je vais essayé de comprendre ton code et après je changerai le mien ;)

Commentaire de Kerrigan le 14/07/2004 18:55:18

trop de if ! c pas bon faut garder le premier et transformer tous les autres en elseif.

sinon c deja vu ... dommage.

Commentaire de tempusus le 15/07/2004 17:24:25 administrateur CS

bonjour,

pour un debutant je trouve que c'est pas mal. Avec l'aide des scripteurs de ce site je suis sur que tu va vite t'améliorer.

Je te met 6/10 pour cette premiere source :)

cordialement
Tempusus

Commentaire de winwarrior le 15/07/2004 19:05:31

edp3242 > ça accelererai le script (un petit peu) ... et ça évite certaines erreurs =]