home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD2.ISO / ejv8-cd2 / viewer.dxr / 00037.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  530 b   |  19 lines
  1. on mouseEnter
  2.   member(the memberNum of sprite the currentSpriteNum).foreColor = 35
  3.   cursor(280)
  4. end
  5.  
  6. on mouseLeave
  7.   cursor(-1)
  8.   member(the memberNum of sprite the currentSpriteNum).foreColor = 4
  9. end
  10.  
  11. on mouseUp
  12.   dosRegister("84DB793-1819B7J")
  13.   resolX = getAt(dosGetDisplay(), 1)
  14.   resolY = getAt(dosGetDisplay(), 2)
  15.   window("INFO").rect = rect((resolX / 2) - (560 / 2), (resolY / 2) - (240 / 2), (resolX / 2) - (560 / 2) + 560, (resolY / 2) - (240 / 2) + 240)
  16.   close(window("choiDial.dir"))
  17.   open(window("info.dir"))
  18. end
  19.