home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Pente.dxr / 00018_undoButton.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.4 KB  |  53 lines
  1. global singleUndo, gGameBoard, gKounterV, gKounterH, gPuppeter, gPosH, gPosV, gEMoves, gEKountH, gEKountV, gPlayerHasEaten, gEnemyHasEaten, gCapturedPlayer, gCapturedEnemy, gEatmV, gEatmH
  2.  
  3. on beginSprite
  4.   sprite(6).visible = 0
  5.   sprite(7).visible = 0
  6. end
  7.  
  8. on mouseWithin me
  9.   sprite(6).visible = 1
  10. end
  11.  
  12. on mouseLeave me
  13.   sprite(6).visible = 0
  14.   sprite(7).visible = 0
  15. end
  16.  
  17. on mouseDown me
  18.   if gEMoves >= 1 then
  19.     if singleUndo = 1 then
  20.       sprite(7).visible = 1
  21.       singleUndo = 0
  22.       gGameBoard[gPosV][gPosH] = 0
  23.       if gPlayerHasEaten = 1 then
  24.         gCapturedPlayer = gCapturedPlayer - 2
  25.         sprite(gPuppeter - 6).puppet = 0
  26.         sprite(gPuppeter - 5).puppet = 0
  27.         sprite(gPuppeter - 4).puppet = 0
  28.         if sprite(gPuppeter - 3).locH < 40 then
  29.           sprite(gPuppeter - 3).puppet = 0
  30.         end if
  31.       else
  32.         if gEnemyHasEaten = 1 then
  33.           gCapturedEnemy = gCapturedEnemy - 2
  34.           sprite(gPuppeter - 6).puppet = 0
  35.           sprite(gPuppeter - 5).puppet = 0
  36.           sprite(gPuppeter - 4).puppet = 0
  37.           if sprite(gPuppeter - 3).locH < 40 then
  38.             sprite(gPuppeter - 3).puppet = 0
  39.           end if
  40.         else
  41.           gPuppeter = gPuppeter - 1
  42.           sprite(gPuppeter - 1).puppet = 0
  43.         end if
  44.       end if
  45.       gPuppeter = gPuppeter + 1
  46.     end if
  47.   end if
  48. end
  49.  
  50. on mouseUp me
  51.   sprite(7).visible = 0
  52. end
  53.