HORSES : COURSE DE CHEVAUX EN DIRECT !

;=========================================
;=============== CHEVAUX! ================
;=========================================

menu channel {
  Chevaux: /chevaux
}

alias /chevaux {
  /set %cheval1 WinterHorse
  /set %cheval2 Napoléon
  /set %cheval3 Tornade
  /set %cheval4 Ouragan
  /set %cheval5 Black
  /set %che_val1 0
  /set %che_val2 0
  /set %che_val3 0
  /set %che_val4 0
  /set %che_val5 0
  /set %parieur1 M. De la Motte Voisée
  /set %parieur2 Duc de Chamberlain
  /set %parieur3 Victor Neument
  /set %parieur4 Henry W. Walker
  /set %parieur5 Bob Drumontal
  /set %pari1 0
  /set %pari2 0
  /set %pari3 0
  /set %pari4 0
  /set %pari5 0
  /set %temps 20
  /set %nbr $rand(15,20)
  /set %nbr2 %nbr

  /set %txt100 3Extraordinaire !
  /set %txt101 3Et voici un fabuleux revers ! En effet
  /set %txt102 3Tant et si bien que se jouant du leader,
  /set %txt103 3AHURISSANT ! 
  /set %txt104 3Mais voilà qu'augmentant sa vitesse,
  /set %txt105 3Mais voilà que sous les coups de cravache,
  /set %txt106 3Et dans le feu de l'action,
  /set %txt107 3Oula, il me semble apercevoir que
  /set %txt108 3Et c'est un coup de théâtre fabuleux !
  /set %txt109 3L'avez-vous seulement vu ?

  /set %txt200 3Il fallait s'y attendre, 
  /set %txt201 3Vu sa vitesse, il est normal que
  /set %txt202 3Mais c'est un véritable tank !
  /set %txt203 3Il ne lachera rien !
  /set %txt204 3Et il n'en démordra pas !
  /set %txt205 3Le croirez vous ?
  /set %txt206 3C'était joué d'avance !
  /set %txt207 3Et cette échappée lui a été favorable, en effet
  /set %txt208 3Que d'émotions, voilà un moment que
  /set %txt209 3C'est IN-CRO-YA-BLE !

  /set %txt110 3cravache sauvagement
  /set %txt111 3passe 
  /set %txt112 3arrive sans soucis
  /set %txt113 3court littéralement 
  /set %txt114 3galope majestueusement
  /set %txt115 3fonce tête baissée
  /set %txt116 3se démène  

  /set %txt120 3 au devant de ses adversaires,
  /set %txt121 3 en tête, 
  /set %txt122 3 devant les autres, 
  /set %txt123 3 en avant,  
  /set %txt124 3 en premiere place, 
  /set %txt125 3 en premiere position,   

  /set %txt130 3 sous l'ovation des spectateurs !
  /set %txt131 3 coutournant les obstacles !
  /set %txt132 3 c'est une performance quasiment inespérée !
  /set %txt133 3 fruit du travail acharné de son jockey !
  /set %txt134 3 et commence à montrer les crocs !
  /set %txt135 3 laissant tout le monde à plusieurs mêtres derrière lui !
  /set %txt136 3 quelle course !
  /set %txt137 3 mais il peut surement faire encore mieux !
  /set %txt138 3 infatigable !
  /set %txt139 3 malgré un terrain particulièrement dangeureux !

  /set %txt210 3reste 
  /set %txt211 3figure toujours 
  /set %txt212 3ne veut aller ailleurs qu'  
  /set %txt213 3s'acharne à rester
  /set %txt214 3persiste 

  /set %txt220 3 en tête, 
  /set %txt221 3 au devant de tout le monde, 
  /set %txt222 3 en place de leader, 

  /set %txt230 3 bien décidé à ne pas en sortir !
  /set %txt231 3 malgré les efforts de ses adversaires !
  /set %txt232 3 infatigable !
  /set %txt233 3 imbattable !
  /set %txt234 3 dans l'ahurissement total de la foule !
  /set %txt235 3 c'est un vrai champion !
  /set %txt236 3 nous avons affaire à un mustang !
  /set %txt237 3 mais gardera t'il ce rythme ?

  /msg $chan 1
  /msg $chan <====================== 3Course de chevaux ======================>
  /msg $chan 1
  /msg $chan 2Départ :4 10 2pts 3// 2Passage en tête :4 8 2pts 3\\ 2Conservation :4 10 2pts
  /msg $chan 2Celui qui a le plus de points passera le premier !
  /msg $chan 1
  /msg $chan 7Pariez sur un canasson (tapez son nom) :
  /msg $chan 7::4 %cheval1
  /msg $chan 7::4 %cheval2
  /msg $chan 7::4 %cheval3
  /msg $chan 7::4 %cheval4
  /msg $chan 7::4 %cheval5
  /msg $chan 7Vous avez4 %temps 7secondes pour choisir.
  /.timer1 1 %temps { /start_ch }
}

alias /start_ch {
  /msg $chan 1
  /msg $chan <====================== Résumé des choix =======================>
  /msg $chan 4 %parieur1 3a misé sur 4 %cheval1
  /msg $chan 4 %parieur2 3a misé sur 4 %cheval2
  /msg $chan 4 %parieur3 3a misé sur 4 %cheval3
  /msg $chan 4 %parieur4 3a misé sur 4 %cheval4
  /msg $chan 4 %parieur5 3a misé sur 4 %cheval5
  /msg $chan 1
  /.timer2 1 6 { /loop_ch }
}

alias /loop_ch {
  if ( %nbr2 == %nbr ) {
    /set %op $rand(1,5)
    /set %op2 %op
    %che_val [ $+ [ %op ] ] = %che_val [ $+ [ %op ] ] + 10
    /msg $chan 7Départ de la course !
    /msg $chan 1
    /msg $chan 3-- 3 Dès les premiers mêtres,4 %cheval [ $+ [ %op ] ] 3prend la tête de la course !
    %nbr = %nbr - 1
    /.timer3 1 4 { /loop_ch }
  }
  if ( %nbr2 > %nbr ) && ( %nbr > 0 ) {
    /set %test $rand(1,1250)
    if ( %test <= 250 ) { %op = 1 }
    if ( %test <= 500 ) && ( %test > 250 ) { %op = 2 }
    if ( %test <= 750 ) && ( %test > 500 ) { %op = 3 }
    if ( %test <= 1000 ) && ( %test > 750 ) { %op = 4 }
    if ( %test <= 1250 ) && ( %test > 1000 ) { %op = 5 }
    if ( %op != %op2 ) {
      /set %txt1 %txt11 [ $+ [ $rand(0,6) ] ]
      /set %txt2 %txt12 [ $+ [ $rand(0,5) ] ]
      /set %txt3 %txt13 [ $+ [ $rand(0,9) ] ]
      /set %txt %txt1 $+ %txt2 $+ %txt3
      /set %pre_txt %txt10 [ $+ [ $rand(0,9) ] ]
      %che_val [ $+ [ %op ] ] = %che_val [ $+ [ %op ] ] + 8
    }
    if ( %op == %op2 ) {
      /set %txt1 %txt21 [ $+ [ $rand(0,4) ] ]
      /set %txt2 %txt22 [ $+ [ $rand(0,2) ] ]
      /set %txt3 %txt23 [ $+ [ $rand(0,7) ] ]
      /set %txt %txt1 $+ %txt2 $+ %txt3
      /set %pre_txt %txt20 [ $+ [ $rand(0,9) ] ]
      %che_val [ $+ [ %op ] ] = %che_val [ $+ [ %op ] ] + 10
    }
    /msg $chan 1
    /msg $chan -- %pre_txt 4 %cheval [ $+ [ %op ] ] %txt
    %nbr = %nbr - 1
    %op2 = %op
    /.timer3 1 4 { /loop_ch }
  }
  if ( %nbr == 0 ) {
    if ( %che_val1 > %che_val2 ) && ( %che_val1 > %che_val3 ) && ( %che_val1 > %che_val4 ) && ( %che_val1 > %che_val5 ) { %op = 1 }
    if ( %che_val2 > %che_val1 ) && ( %che_val2 > %che_val3 ) && ( %che_val2 > %che_val4 ) && ( %che_val2 > %che_val5 ) { %op = 2 }
    if ( %che_val3 > %che_val1 ) && ( %che_val3 > %che_val2 ) && ( %che_val3 > %che_val4 ) && ( %che_val3 > %che_val5 ) { %op = 3 }
    if ( %che_val4 > %che_val1 ) && ( %che_val4 > %che_val2 ) && ( %che_val4 > %che_val3 ) && ( %che_val4 > %che_val5 ) { %op = 4 }
    if ( %che_val5 > %che_val1 ) && ( %che_val5 > %che_val2 ) && ( %che_val5 > %che_val3 ) && ( %che_val5 > %che_val4 ) { %op = 5 }
    /msg $chan 1
    /msg $chan 3-- 2 Et c'est finalement4 %cheval [ $+ [ %op ] ] 2qui remporte cette course ! Cher4 %parieur [ $+ [ %op ] ] 2, vous avez  sû faire le bon choix !
    /msg $chan 1
    /msg $chan 7SCORES =2 %cheval1 7:4 %che_val1 7,2 %cheval2 7:4 %che_val2 7,2 %cheval3 7:4 %che_val3 7,2 %cheval4 7:4 %che_val4 7,2 %cheval5 7:4 %che_val5 7!
    %nbr = %nbr - 1
    halt
  }
}

on 1:TEXT:%cheval1:#: {
  if ( %pari1 == 0 ) && ( %parieur1 != $nick ) {
    /set %parieur1 $nick
    /set %pari1 1
  }
}
on 1:TEXT:%cheval2:#: {
  if ( %pari2 == 0 ) && ( %parieur2 != $nick ) {
    /set %parieur2 $nick
    /set %pari2 1
  }
}
on 1:TEXT:%cheval3:#: {
  if ( %pari3 == 0 ) && ( %parieur3 != $nick ) {
    /set %parieur3 $nick
    /set %pari3 1
  }
}
on 1:TEXT:%cheval4:#: {
  if ( %pari4 == 0 ) && ( %parieur4 != $nick ) {
    /set %parieur4 $nick
    /set %pari4 1
  }
}
on 1:TEXT:%cheval5:#: {
  if ( %pari5 == 0 ) && ( %parieur5 != $nick ) {
    /set %parieur5 $nick
    /set %pari5 1
  }
}