counter 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. # counter
  2. if music_on <> music_on_prev or $music_theme <> $music_theme_prev:
  3. close $cur_theme[track[$music_theme_prev]]
  4. music_on_prev = music_on
  5. $music_theme_prev = $music_theme
  6. if $music_theme <> '':
  7. ! WD: Numeric arrays 'cur_theme' & 'tracklist_*' don`t exist use string arrays
  8. copyarr '$cur_theme', '$tracklist_<<$music_theme>>'
  9. track[$music_theme] = track[$music_theme] - 1
  10. if track[$music_theme] < 0:track[$music_theme] = arrsize('$cur_theme')
  11. end
  12. end
  13. if music_on = 1 and $music_theme <> '':
  14. if no isplay ($cur_theme[track[$music_theme]]):
  15. track[$music_theme] += 1
  16. if arrsize('$cur_theme') <= track[$music_theme]:track[$music_theme] = 0
  17. end
  18. play $cur_theme[track[$music_theme]], volume
  19. end
  20. ! WD: Code not called
  21. ! WD: Uninitialised~ '$race1[]', '$showcar'
  22. ! {
  23. if race_start = 1:
  24. bcolor = rgb(255, 255, 255)
  25. refint
  26. *clr
  27. if race_hit = 0:
  28. race_miss += 1
  29. race_hit = 1
  30. elseif [race_row] <> ' ' and race_row > 0:
  31. race_hit = 0
  32. end
  33. '<center><b><<$car>></b></center>'
  34. !!interior of the vehicle and the line route
  35. *pl $showcar
  36. *p $race1[race_row]
  37. if $race1[race_row] = '<center>-------FINISH--------</center>':
  38. race_start = 0
  39. !!return timer
  40. settimer 500
  41. wait 2000
  42. $metka = 'finish'
  43. $loc = 'RACE_COUNT'
  44. gt $loc, $metka
  45. end
  46. race_row += 1
  47. end
  48. } !
  49. --- counter ---------------------------------