SOCKETS DES JEUX OLYMPIQUES (2004 - ATHÈNES) : CLASSEMENT DES MÉDAILLES PAR PAYS

alias jo {
  if ($1) {
    if (!$read(jo.txt,1)) { echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Le fichier JO.txt n'existe pas. Tapez /jo pour le créer. 12] | return }
    if ($1 !isnum) {
      var %t = 1
      var %c = $1
      var %n = -0.9
echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
      while $read(jo.txt,%t) {
        tokenize 32 $read(jo.txt,%t)
        if ($2 == %c) { inc %n 3 | jo.say %t %n say }
        inc %t
      }
    }
    if ($1 isnum) {
      var %t = 1
      var %c = $1
      var %n = -0.9
echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
      while $read(jo.txt,%t) {
        tokenize 32 $read(jo.txt,%t)
        if ($remove($1,=) == %c) { inc %n 3 | jo.say %t %n say }
        inc %t
      }
    }
    return
  }
  if ($timer(jo.40)) { .timerjo.* off | echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Classement arrêté 12] | return }
  sockclose jo | write -c jo.txt | sockopen jo www.athens2004.com 80
}

on *:sockopen:jo:{
  sockwrite -nt $sockname GET http://www.athens2004.com/fr/OlympicMedals/medals HTTP/1.0
  sockwrite -nt $sockname $crlf
}

on *:sockread:jo:{
  sockread %a
  if ((<td align="center"> isin %a) && (</td><td align="left"><img src="/images/results/ isin %a)) {
    var %b = $remove(%a,<td,/td>,<td,align="left">,<img src="/images/results/,.gif",alt="">&nbsp;<a,title=",</a>," href=")
    var %b = $remove($replace(%b,< align="center">,$chr(165),$+(<,$chr(32)),$chr(32)),align="center">)
    var %b = $replace(%b,&egrave;,è,&eacute;,é,&ocirc;,ô,&ucirc;t,û,&agrave;,à,&ugrave;,ù,&ccedil;,ç,&iuml;,ï,USA_big,USA)
    write jo.txt $left(%b,-1)
  }
}

on *:sockclose:jo:{
  if (!$read(jo.txt,1)) { return }
  var %t = 1
  var %n = 0
echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
  while (%t <= $lines(jo.txt)) {
    jo.say %t %n echo
    inc %n
    inc %t
  }
}

alias jo.say {
  if (!$1) { return }
  var %n = 0
  if ($2) { var %n = $2 }
  var %m = $3-
  if ($3 == echo) { var %m = echo -a }
  var %h = 0
  tokenize 32 $read(jo.txt,$1)
  var %p = $1
;cette partie a été réalisée car il y a des pays qui sont composés de plusieurs mots
  :pays
  if ((/fr/ !isin $ [ $+ [ $calc(3 + %h) ] ]) && (%h < $0)) { inc %h | goto pays }
  var %e = $+($calc($0 -%h),-)
  var %e = $ [ $+ [ %e ] ]
  var %a = $replace($ [ $+ [ $calc(3 + %h) ] ],/fr/,$chr(165),">,$chr(165))
  tokenize 165 %a
  var %l = $+(www.athens2004.com/fr/,$2)
  tokenize 165 %e
  var %e = $1
  var %m1 = $2
  var %m2 = $3
  var %m3 = $4
  var %s = $5
  var %r = $6
  .timerjo. $+ %n 1 %n %m 12,1[ 14P15lace0 : $+(%p,e) 12::14 P15ays0 : %e 12::14 M15édailles0 :8 Or : %m1 12- 15Argent : %m2 12- 7Bronze : %m3 12-15 Total0 : %s 12::14 R15ang par total 0 : %r 12::14 Lien0 : %l (By ArKanis) 12]
}