home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 June / WPCJUN97.ISO / dxrs / mgiwjun.dxr / 00022_MGIStarTurn.ls < prev    next >
Encoding:
Text File  |  1997-04-07  |  979 b   |  30 lines
  1. on MGIStarTurn
  2.   global MGIRotateRCounter, MGIStoneyCounter, MGISTONEON
  3.   if the castNum of sprite 7 <> the number of member "endStar" then
  4.     set the castNum of sprite 7 to the castNum of sprite 7 + 1
  5.     updateStage()
  6.   else
  7.     set the castNum of sprite 7 to the number of member "StartStar"
  8.     updateStage()
  9.   end if
  10.   if the castNum of sprite 8 <> the number of member "StartStar" then
  11.     set the castNum of sprite 8 to the castNum of sprite 8 - 1
  12.     updateStage()
  13.   else
  14.     set the castNum of sprite 8 to the number of member "endStar"
  15.     updateStage()
  16.   end if
  17.   case MGIRotateRCounter of
  18.     1:
  19.       if the castNum of sprite 9 <> the number of member "EndR" then
  20.         set the castNum of sprite 9 to the castNum of sprite 9 + 1
  21.         updateStage()
  22.       else
  23.         set the castNum of sprite 9 to the number of member "StartR"
  24.         updateStage()
  25.       end if
  26.       set MGIRotateRCounter to 0
  27.   end case
  28.   set MGIRotateRCounter to 1 + MGIRotateRCounter
  29. end
  30.