home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / hsqdemo.dxr / 00096.ls < prev    next >
Encoding:
Text File  |  1996-09-26  |  732 b   |  36 lines
  1. on exitFrame
  2.   charmove()
  3.   if the timer > 660 then
  4.     nothing()
  5.   else
  6.     go(the frame)
  7.   end if
  8. end
  9.  
  10. on charmove
  11.   global work10, work9
  12.   set ymax to [68, 99, 77, 77, 96, 73, 101, 80]
  13.   set ymin to [38, 47, 36, 36, 36, 26, 34, 38]
  14.   repeat with n = 1 to 8
  15.     set a to getAt(work10, n)
  16.     set b to getAt(work9, n)
  17.     set yp to the locV of sprite (n + 10)
  18.     if b = 0 then
  19.       set ym to getAt(ymin, n)
  20.       set ny to yp - a
  21.       if ym > ny then
  22.         set ny to ym
  23.         setAt(work9, n, 1)
  24.       end if
  25.     else
  26.       set ym to getAt(ymax, n)
  27.       set ny to yp + a
  28.       if ym < ny then
  29.         set ny to ym
  30.         setAt(work9, n, 0)
  31.       end if
  32.     end if
  33.     set the locV of sprite (n + 10) to ny
  34.   end repeat
  35. end
  36.