home *** CD-ROM | disk | FTP | other *** search
/ FHM 100 Bombázó Ajándék CD / fhm_hu_1997.iso / fhm.exe / fhm.dxr / 00031.ls < prev    next >
Encoding:
Text File  |  2001-03-18  |  476 b   |  28 lines
  1. on anim
  2.   global run_anim
  3.   run_anim = 1
  4.   repeat with n = 1 to 29
  5.     mozgass_csajok_csik("next")
  6.   end repeat
  7.   repeat with n = 1 to 49
  8.     mozgass_csajok_csik("next")
  9.     if random(8) = 2 then
  10.       vaku(12)
  11.       next repeat
  12.     end if
  13.   end repeat
  14.   startTimer()
  15.   repeat while the timer < 3
  16.   end repeat
  17.   vaku(12)
  18.   startTimer()
  19.   repeat while the timer < 6
  20.   end repeat
  21.   vaku(12)
  22.   startTimer()
  23.   repeat while the timer < 9
  24.   end repeat
  25.   vaku(12)
  26.   run_anim = 0
  27. end
  28.