home *** CD-ROM | disk | FTP | other *** search
/ Matemágica / Matemágica.mdf / Media / Recortables.dxr / Internal_18.ls < prev    next >
Encoding:
Text File  |  2000-12-01  |  656 b   |  30 lines
  1. property miSprite, miMember, miBillete
  2.  
  3. on beginSprite me
  4.   miSprite = me.spriteNum
  5.   miMember = sprite(miSprite).member.name
  6. end
  7.  
  8. on mouseEnter me
  9.   sprite(miSprite).member = miMember & "H"
  10. end
  11.  
  12. on mouseLeave me
  13.   sprite(miSprite).member = miMember
  14. end
  15.  
  16. on mouseDown me
  17.   click()
  18.   sprite(miSprite).member = miMember & "D"
  19.   updateStage()
  20.   Preparando(1)
  21.   Imprime("ImpTexto6-", 1, "Imprimiendo Introducci├│n Billetes y Monedas")
  22.   ImprimeEspecial("Imp" & miBillete, "Imprimiendo Billetes")
  23.   Preparando(0)
  24. end
  25.  
  26. on getPropertyDescriptionList
  27.   p_list = [#miBillete: [#comment: "Billete que Imprime:", #format: #string, #default: "#"]]
  28.   return p_list
  29. end
  30.