home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / Itch / work_info / flycycle.dcr / 00001_StartStuff.ls next >
Encoding:
Text File  |  1999-03-07  |  628 b   |  49 lines
  1. global RepNum
  2.  
  3. on startMovie
  4.   clearGlobals()
  5.   tell the stage
  6.     posWind(528, 300)
  7.   end tell
  8.   case the colorDepth of
  9.     8:
  10.       RepNum = 1000
  11.     16:
  12.       RepNum = 500
  13.     32:
  14.       RepNum = 500
  15.   end case
  16.   cursor(200)
  17.   preLoad()
  18.   InitStuff()
  19.   BirthInit()
  20. end
  21.  
  22. on idle
  23.   RepFly(RepNum)
  24. end
  25.  
  26. on Wait tim
  27.   temp = the timer + tim
  28.   repeat while the timer < temp
  29.   end repeat
  30. end
  31.  
  32. on RepFly aNum
  33.   global flyCount
  34.   flyCount = flyCount + 1
  35.   if flyCount > aNum then
  36.     MakeFly()
  37.     flyCount = 0
  38.   end if
  39. end
  40.  
  41. on endmovie
  42.   play movie "@//itch_Browser"
  43. end
  44.  
  45. on stopMovie
  46.   sound stop 1
  47.   put " " into field "Intro"
  48. end
  49.