home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / eo.dxr / 00035.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  275 b   |  17 lines
  1. global gGizmo
  2.  
  3. on exitFrame
  4.   if tellEOLegendState(gGizmo) then
  5.     turnLegend(#on)
  6.   else
  7.     turnLegend(#off)
  8.   end if
  9.   if not tellLeftBtnState(gGizmo, 1) then
  10.     puppetSprite(20, 1)
  11.     go(the frame + 2)
  12.   else
  13.     puppetSprite(20, 0)
  14.     go(the frame + 1)
  15.   end if
  16. end
  17.