home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SHOWKOMM.DXR / 00007.ls < prev    next >
Encoding:
Text File  |  1997-07-31  |  593 b   |  24 lines
  1. on n├ñchstesBild
  2.   global gWoBinIch
  3.   if the frameLabel < gWoBinIch then
  4.     go(the frame + 1)
  5.   end if
  6. end
  7.  
  8. on moove
  9.   global mymoove
  10.   if the right of sprite mymoove > (the right of sprite 4 + 60) then
  11.     set the visible of sprite 9 to not (the visible of sprite 9)
  12.   else
  13.     set the visible of sprite 9 to 0
  14.   end if
  15.   updateStage()
  16.   if the locV of sprite mymoove > 642 then
  17.     puppetSprite(mymoove, 0)
  18.   else
  19.     puppetSprite(mymoove, 1)
  20.   end if
  21.   set the locH of sprite mymoove to the locH of sprite mymoove + 2
  22.   set the locV of sprite mymoove to the locV of sprite mymoove + 1
  23. end
  24.