home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TowerHanoy.dxr / 00020_hotspot.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.8 KB  |  46 lines
  1. on beginSprite me
  2.   global tableau
  3.   sprite(me.spriteNum).blendLevel = 0
  4.   sprite(me.spriteNum).loc = tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count].location
  5. end
  6.  
  7. on mouseEnter me
  8.   global equalvalue, hotcard, tableau, grabsprite
  9.   if (the clickOn <> me.spriteNum) and (the clickOn <> 0) then
  10.     if (sprite(the clickOn).visible = 1) and (sprite(the clickOn).moveableSprite = 1) then
  11.       if tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count > 0 then
  12.         if tableau[symbol(string(sprite(the clickOn).startFrame))].cards[tableau[symbol(string(sprite(the clickOn).startFrame))].cards.count].rankvalue < tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count].rankvalue then
  13.           equalvalue = 1
  14.           hotcard = tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count].spnum
  15.         else
  16.           equalvalue = 0
  17.           hotcard = 0
  18.         end if
  19.       else
  20.         equalvalue = 1
  21.         hotcard = grabsprite.getProp(symbol(string(sprite(me.spriteNum).startFrame)))
  22.       end if
  23.     end if
  24.   end if
  25. end
  26.  
  27. on mouseLeave me
  28.   global tableau, equalvalue, hotcard, win
  29.   equalvalue = 0
  30.   hotcard = 0
  31.   if tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count = 9 then
  32.     x = 1
  33.     repeat with i = tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards.count down to 1
  34.       if tableau[symbol(string(sprite(me.spriteNum).startFrame))].cards[i].rankvalue <> x then
  35.         exit repeat
  36.       end if
  37.       x = x + 1
  38.       if i <> 1 then
  39.         next repeat
  40.       end if
  41.       win = "yes"
  42.       go("gameover")
  43.     end repeat
  44.   end if
  45. end
  46.