home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / NinetyOne.dxr / 00082_geezer.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  541 b   |  25 lines

  1. property pgeezer, spriteNum, pOriginalLoc
  2.  
  3. on beginSprite me
  4.   pgeezer = sprite(spriteNum)
  5.   pOriginalLoc = pgeezer.loc
  6. end
  7.  
  8. on enterFrame me
  9.   if not pgeezer.flipH then
  10.     if pgeezer.loc[1] > (0 + pgeezer.width) then
  11.       pgeezer.locH = float(pgeezer.locH) - 1
  12.     else
  13.       pgeezer.flipH = not pgeezer.flipH
  14.     end if
  15.   else
  16.     if pgeezer.flipH then
  17.       if pgeezer.loc[1] < pOriginalLoc[1] then
  18.         pgeezer.locH = float(pgeezer.locH) + 1
  19.       else
  20.         pgeezer.flipH = not pgeezer.flipH
  21.       end if
  22.     end if
  23.   end if
  24. end
  25.