home *** CD-ROM | disk | FTP | other *** search
/ Buffalo Sabres 2001-2002 Promotional CD / Sabres.iso / pc / game.dxr / 00007_answers.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  793 b   |  49 lines
  1. property whichanswer, S, ro, m
  2. global answered
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #whichanswer, [#default: "A", #format: #text, #comment: "whichanswer"])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   S = me.spriteNum
  12.   m = the memberNum of sprite S
  13.   ro = member("catbuttonro.TGA")
  14. end
  15.  
  16. on mouseEnter me
  17.   if answered then
  18.     pass()
  19.   else
  20.     rocursor()
  21.     set the memberNum of sprite S to ro.memberNum
  22.   end if
  23. end
  24.  
  25. on mouseLeave me
  26.   if answered then
  27.     pass()
  28.   else
  29.     regcursor()
  30.     set the memberNum of sprite S to m
  31.   end if
  32. end
  33.  
  34. on mouseUp me
  35.   global answered
  36.   if answered then
  37.     pass()
  38.   else
  39.     answered = 1
  40.     updateStage()
  41.     regcursor()
  42.     answer(whichanswer)
  43.   end if
  44. end
  45.  
  46. on reset me
  47.   set the memberNum of sprite S to m
  48. end
  49.