on highscore
  global points, joueur
  put 0 into hicalc
  put cd field "hiscore5" into b
  put cd field "hiscore4" into c
  put cd field "hiscore3" into d
  put cd field "hiscore2" into e
  put cd field "hiscore1" into f
  if points > b then
    add 1 to hicalc
  end if
  if points > c then
    add 1 to hicalc
  end if
  if points > d then
    add 1 to hicalc
  end if
  if points > e then
    add 1 to hicalc
  end if
  if points > f then
    add 1 to hicalc
  end if
  if hicalc = 5 then
    put cd field "hcnom4" into cd field "hcnom5"
    put cd field "hiscore4" into cd field "hiscore5"
    put cd field "hcnom3" into cd field "hcnom4"
    put cd field "hiscore3" into cd field "hiscore4"
    put cd field "hcnom2" into cd field "hcnom3"
    put cd field "hiscore2" into cd field "hiscore3"
    put cd field "hcnom1" into cd field "hcnom2"
    put cd field "hiscore1" into cd field "hiscore2"
    put joueur into cd field "hcnom1"
    put points into cd field "hiscore1"
    answer "Félicitations" && joueur & ". Avec" && points && "points tu as obtenu le plus haut score!"
  end if
  if hicalc = 4 then
    put cd field "hcnom4" into cd field "hcnom5"
    put cd field "hiscore4" into cd field "hiscore5"
    put cd field "hcnom3" into cd field "hcnom4"
    put cd field "hiscore3" into cd field "hiscore4"
    put cd field "hcnom2" into cd field "hcnom3"
    put cd field "hiscore2" into cd field "hiscore3"
    put joueur into cd field "hcnom2"
    put points into cd field "hiscore2"
    answer "Félicitations" && joueur & ". Avec" && points && "points tu as obtenu le deuxième plus haut score!"
  end if
  if hicalc = 3 then
    put cd field "hcnom4" into cd field "hcnom5"
    put cd field "hiscore4" into cd field "hiscore5"
    put cd field "hcnom3" into cd field "hcnom4"
    put cd field "hiscore3" into cd field "hiscore4"
    put joueur into cd field "hcnom3"
    put points into cd field "hiscore3"
    answer "Félicitations" && joueur & ". Avec" && points && "points tu as obtenu le troisième plus haut score!"
  end if
  if hicalc = 2 then
    put cd field "hcnom4" into cd field "hcnom5"
    put cd field "hiscore4" into cd field "hiscore5"
    put joueur into cd field "hcnom4"
    put points into cd field "hiscore4"
    answer "Félicitations" && joueur & ". Avec" && points && "points tu as obtenu le quatrième plus haut score!"
  end if
  if hicalc = 1 then
    put joueur into cd field "hcnom5"
    put points into cd field "hiscore5"
    answer "Félicitations" && joueur & ". Avec" && points && "points tu as obtenu le cinquième plus haut score!"
  end if
end highscore

on hcreset
  put "Jensicoule" into cd field "hcnom1"
  put "Doudou" into cd field "hcnom2"
  put "Pantalon" into cd field "hcnom3"
  put "Bouli" into cd field "hcnom4"
  put "Rambo" into cd field "hcnom5"
  put 5 into cd field "hiscore1"
  put 4 into cd field "hiscore2"
  put 3 into cd field "hiscore3"
  put 2 into cd field "hiscore4"
  put 1 into cd field "hiscore5"
end hcreset