home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Mainmn12.dxr / Internal_7_regulargraphics.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  653 b   |  16 lines
  1. on regulargraphics
  2.   global MainRegularGraphic, MainRegularGraphicList, MainRegularGraphicCount, MainLastUpdate
  3.   if the timer > (MainLastUpdate + 50) then
  4.     if MainRegularGraphicCount = count(MainRegularGraphicList) then
  5.       set MainRegularGraphicCount to 1
  6.       set the member of sprite MainRegularGraphic to getAt(MainRegularGraphicList, MainRegularGraphicCount)
  7.       updateStage()
  8.     else
  9.       set MainRegularGraphicCount to MainRegularGraphicCount + 1
  10.       set the member of sprite MainRegularGraphic to getAt(MainRegularGraphicList, MainRegularGraphicCount)
  11.       updateStage()
  12.     end if
  13.     set MainLastUpdate to the timer
  14.   end if
  15. end
  16.