home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme2.dxr / Internal_6_insolite.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.7 KB  |  75 lines

  1. on endSprite me
  2.   if soundBusy(1) then
  3.     puppetSound(1, 0)
  4.   end if
  5. end
  6.  
  7. on mouseEnter me
  8.   tmp = the member of sprite the currentSpriteNum
  9.   nome = member(tmp).name
  10.   if nome <> "TastiOpere5_F3" then
  11.     cursor(280)
  12.     set the member of sprite the currentSpriteNum to "TastiOpere5_F2"
  13.     updateStage()
  14.   end if
  15. end
  16.  
  17. on mouseDown me
  18.   tmp = the member of sprite the currentSpriteNum
  19.   nome = member(tmp).name
  20.   if nome <> "TastiOpere5_F3" then
  21.     set the member of sprite the currentSpriteNum to "TastiOpere5_F3"
  22.     updateStage()
  23.   end if
  24. end
  25.  
  26. on mouseLeave me
  27.   tmp = the member of sprite the currentSpriteNum
  28.   nome = member(tmp).name
  29.   if nome <> "TastiOpere5_F3" then
  30.     cursor(-1)
  31.     set the member of sprite the currentSpriteNum to "TastiOpere5"
  32.     updateStage()
  33.   end if
  34. end
  35.  
  36. on mouseUpOutSide me
  37.   tmp = the member of sprite the currentSpriteNum
  38.   nome = member(tmp).name
  39.   if nome = "TastiOpere5_F3" then
  40.     set the member of sprite the currentSpriteNum to "TastiOpere5"
  41.     updateStage()
  42.   end if
  43. end
  44.  
  45. on mouseUp me
  46.   global gpittore, gQuadro, gSuonoAttivo, riattivagSuonoAttivo
  47.   cursor(-1)
  48.   suono = gpittore & gQuadro & "s"
  49.   if soundBusy(1) then
  50.     exit
  51.   end if
  52.   go("scheda")
  53.   puppetSound(3, 0)
  54.   if gSuonoAttivo = 1 then
  55.     gSuonoAttivo = 0
  56.     riattivagSuonoAttivo = 1
  57.   else
  58.     riattivagSuonoAttivo = 0
  59.   end if
  60.   if the number of member suono = -1 then
  61.     puppetSound(1, member("bling", "common"))
  62.   else
  63.     puppetSound(1, member(suono))
  64.   end if
  65. end
  66.  
  67. on exitFrame
  68.   if (soundBusy(1) = 0) and (sprite(the currentSpriteNum).member.name = "TastiOpere5_F3") and (the mouseDown = 0) then
  69.     sprite(the currentSpriteNum).member = "TastiOpere5"
  70.   end if
  71.   if soundBusy(1) = 1 then
  72.     sprite(the currentSpriteNum).member = "TastiOpere5_F3"
  73.   end if
  74. end
  75.