home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 3.1.dxr / 00058_spelletje - hoeden en haar.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  2.0 KB  |  50 lines
  1. property spriteNum
  2.  
  3. on enterFrame me
  4.   global watschuifternou, origineleHoogtes, origineleBreedtes
  5.   if watschuifternou = spriteNum then
  6.     set the locV of sprite spriteNum to the mouseV
  7.     set the locH of sprite spriteNum to the mouseH
  8.     sprite(spriteNum).height = (100 + float(sprite(spriteNum).top)) / 100 * origineleHoogtes[spriteNum]
  9.     sprite(spriteNum).width = (100 + float(sprite(spriteNum).top)) / 100 * origineleBreedtes[spriteNum]
  10.   end if
  11. end
  12.  
  13. on mouseDown
  14.   global watschuifternou
  15.   watschuifternou = spriteNum
  16.   sprite(spriteNum).member = chars(sprite(spriteNum).member.name, 1, 2) & "A"
  17. end
  18.  
  19. on mouseUp
  20.   global origineleVposities, origineleHposities, origineleBreedtes, origineleHoogtes, hoedaan, watschuifternou
  21.   if (the mouseH > 150) and (the mouseH < 380) and (the mouseV > 60) and (the mouseV < 170) and (hoedaan = 0) then
  22.     sprite(spriteNum).member = chars(sprite(spriteNum).member.name, 1, 2) & "B"
  23.     sprite(spriteNum).locH = origineleHposities[spriteNum + 1]
  24.     sprite(spriteNum).locV = origineleVposities[spriteNum + 1]
  25.     sprite(spriteNum).width = origineleBreedtes[spriteNum + 1]
  26.     sprite(spriteNum).height = origineleHoogtes[spriteNum + 1]
  27.   else
  28.     sprite(spriteNum).locH = origineleHposities[spriteNum]
  29.     sprite(spriteNum).locV = origineleVposities[spriteNum]
  30.     sprite(spriteNum).width = origineleBreedtes[spriteNum]
  31.     sprite(spriteNum).height = origineleHoogtes[spriteNum]
  32.     sprite(spriteNum).member = chars(sprite(spriteNum).member.name, 1, 2) & "A"
  33.   end if
  34.   watschuifternou = 0
  35.   muisreactie()
  36. end
  37.  
  38. on mouseUpOutSide
  39.   global watschuifternou, origineleVposities, origineleHposities, origineleBreedtes, origineleHoogtes
  40.   if watschuifternou = spriteNum then
  41.     sprite(spriteNum).locH = origineleHposities[spriteNum]
  42.     sprite(spriteNum).locV = origineleVposities[spriteNum]
  43.     sprite(spriteNum).width = origineleBreedtes[spriteNum]
  44.     sprite(spriteNum).height = origineleHoogtes[spriteNum]
  45.     sprite(spriteNum).member = chars(sprite(spriteNum).member.name, 1, 2) & "A"
  46.     watschuifternou = 0
  47.     muisreactie()
  48.   end if
  49. end
  50.