home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Fácil 3 / CDFACIL3.iso / lazer / desafios / stact053.Dxr / 00358.ls < prev    next >
Encoding:
Text File  |  1996-12-01  |  468 b   |  22 lines
  1. on exitFrame
  2.   global ghandle, levnum, godir, killtime, priorcursor, arrowgraph
  3.   set curry to -1
  4.   if rollOver(46) then
  5.     set curry to 0
  6.   end if
  7.   if curry <> priorcursor then
  8.     set priorcursor to curry
  9.     if curry = -1 then
  10.       cursor(-1)
  11.     else
  12.       cursor([arrowgraph, arrowgraph + 1])
  13.     end if
  14.   end if
  15.   set why to mInitLevel(levnum)
  16.   repeat with xxx = 2 to 40
  17.     puppetSprite(xxx, 1)
  18.   end repeat
  19.   set godir to 0
  20.   set killtime to the timer
  21. end
  22.