home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 45 / cda45.iso / intro.dxr / scripts_9_menu.ls < prev    next >
Encoding:
Text File  |  2000-04-18  |  747 b   |  36 lines
  1. property sp, mInactivo, mActivo, accion
  2.  
  3. on getPropertyDescriptionList me
  4.   m = sprite(the currentSpriteNum).member + 1
  5.   lista = [:]
  6.   addProp(lista, #mActivo, [#format: #bitmap, #default: m, #comment: "cast activo"])
  7.   addProp(lista, #accion, [#format: #symbol, #range: [#web, #staff, #salir, #ayuda], #default: EMPTY, #comment: "cast activo"])
  8.   return lista
  9. end
  10.  
  11. on beginSprite me
  12.   sp = me.spriteNum
  13.   mInactivo = sprite(sp).member
  14. end
  15.  
  16. on mouseEnter me
  17.   sprite(sp).member = mActivo
  18. end
  19.  
  20. on mouseLeave me
  21.   sprite(sp).member = mInactivo
  22. end
  23.  
  24. on mouseUp me
  25.   case accion of
  26.     #web:
  27.       gotoNetPage("www.pc-actual.es")
  28.     #staff:
  29.       open(window("staff"))
  30.     #salir:
  31.       halt()
  32.     #ayuda:
  33.       open(window("ayuda"))
  34.   end case
  35. end
  36.