100 Plus Great Games 2/100PLUSV2.BIN/games/CubeSlide.dxr/00002_newGame.ls

Text File | 2002-01-25 | 5.5 KB | 159 lines

global gKountaX, gKountaY, gScorePosition, gSides, gColor, gGameBoard1, gGameBoard2, gGameBoard3, gGameBoard4, gGameBoard5, gGameBoard6, gGameBoard7, gGameBoard8, gSelectH, gSelectV, gSelectH2, gSelectV2, gMouseFix, gCubeSelect, gRemoveH, gRemoveV, gMouseFix2, gMouseFix3, gConnecting, gTop, gRight, gBottom, gLeft, gSlide, gOffset, gWhite, gSlide2, gSlideLeft, gSlideRight, gSlideUp, gSlideDown, gSprites0, gSprites, gSprites2, gSprites3, gSprites4, gSprites5, gSprites6, gSprites7, gSprites8, gSearch1, gSearch2, gSearch3, gSearch4, gSearch5, gSearch6, gSearch7, gSearch8, gSelection, gSelection2, gFinishSlide, gOffset2, gColumnNum, gEmptyColumn, gMoves, gScore

on mouseEnter
  sprite(10).member = "new-over-state"
  puppetSound(3, "continue&restart")
end

on mouseLeave
  sprite(10).member = "new-up-state"
end

on mouseUp
  puppetSound(4, "select")
  if gSelection2 = 1 then
    gScorePosition = gScorePosition - 1
    sprite(gScorePosition).puppet = 0
    if gConnecting = 1 then
      gScorePosition = gScorePosition - 1
      sprite(gScorePosition).puppet = 0
    else
      if gConnecting = 2 then
        gScorePosition = gScorePosition - 1
        sprite(gScorePosition).puppet = 0
        gScorePosition = gScorePosition - 1
        sprite(gScorePosition).puppet = 0
      else
        if gConnecting = 3 then
          gScorePosition = gScorePosition - 1
          sprite(gScorePosition).puppet = 0
          gScorePosition = gScorePosition - 1
          sprite(gScorePosition).puppet = 0
          gScorePosition = gScorePosition - 1
          sprite(gScorePosition).puppet = 0
        else
          if gConnecting = 4 then
            gScorePosition = gScorePosition - 1
            sprite(gScorePosition).puppet = 0
            gScorePosition = gScorePosition - 1
            sprite(gScorePosition).puppet = 0
            gScorePosition = gScorePosition - 1
            sprite(gScorePosition).puppet = 0
            gScorePosition = gScorePosition - 1
            sprite(gScorePosition).puppet = 0
          end if
        end if
      end if
    end if
    gTop = 0
    gRight = 0
    gBottom = 0
    gLeft = 0
    gConnecting = 0
    gCubeSelect = 0
    gMouseFix2 = 0
    gMouseFix3 = 0
    gSelection2 = 0
    gSelection = 0
  end if
  gScore = 0
  gKountaX = 0
  gKountaY = 0
  gScorePosition = 25
  gColor = random(4)
  gSides = 4
  gGameBoard1 = [[1, 1, 1, 1], [2, 2, 69, 2], [3, 3, 3, 3], [4, 4, 4, 4], [5, 5, 5, 5], [6, 6, 6, 6], [7, 7, 7, 7], [8, 8, 8, 8]]
  gGameBoard2 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
  gGameBoard3 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
  gGameBoard4 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
  gGameBoard5 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
  gGameBoard6 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
  gGameBoard7 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
  gGameBoard8 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
  gMouseFix = 0
  gCubeSelect = 0
  gMouseFix2 = 0
  gConnecting = 0
  gTop = 0
  gRight = 0
  gBottom = 0
  gLeft = 0
  gMouseFix3 = 0
  gSlide = 0
  gOffset = 0
  gWhite = 0
  gSlide2 = 0
  gSlideLeft = 0
  gSlideRight = 0
  gSlideUp = 0
  gSlideDown = 0
  gSelection = 0
  gFinishSlide = 1
  gOffset2 = 0
  gEmptyColumn = 0
  gSprites0 = 25
  gSprites = 25
  gSprites2 = 25
  gSprites3 = 25
  gSprites4 = 25
  gSprites5 = 25
  gSprites6 = 25
  gSprites7 = 25
  gSprites8 = 25
  gSearch1 = 1
  gSearch2 = 1
  gSearch3 = 1
  gSearch4 = 1
  gSearch5 = 1
  gSearch6 = 1
  gSearch7 = 1
  gSearch8 = 1
  gMoves = 0
  member("MovesText").text = string(gMoves)
  repeat with gKountaY = 0 to 7
    repeat with gKountaX = 0 to 7
      sprite(gScorePosition).puppet = 1
      sprite(gScorePosition).member = "cube01"
      sprite(gScorePosition).visible = 1
      sprite(gScorePosition).loc = point(52 + (gKountaX * 48), 52 + (gKountaY * 48))
      gScorePosition = gScorePosition + 1
      repeat with gSides = 0 to 3
        sprite(gScorePosition).puppet = 1
        gColor = random(4)
        case gColor of
          1:
            sprite(gScorePosition).member = "blue"
          2:
            sprite(gScorePosition).member = "green"
          3:
            sprite(gScorePosition).member = "red"
          4:
            sprite(gScorePosition).member = "yellow"
        end case
        case gKountaY of
          0:
            gGameBoard1[gKountaX + 1][gSides + 1] = gColor
          1:
            gGameBoard2[gKountaX + 1][gSides + 1] = gColor
          2:
            gGameBoard3[gKountaX + 1][gSides + 1] = gColor
          3:
            gGameBoard4[gKountaX + 1][gSides + 1] = gColor
          4:
            gGameBoard5[gKountaX + 1][gSides + 1] = gColor
          5:
            gGameBoard6[gKountaX + 1][gSides + 1] = gColor
          6:
            gGameBoard7[gKountaX + 1][gSides + 1] = gColor
          7:
            gGameBoard8[gKountaX + 1][gSides + 1] = gColor
        end case
        sprite(gScorePosition).visible = 1
        sprite(gScorePosition).rotation = gSides * 90
        sprite(gScorePosition).loc = point(52 + (gKountaX * 48), 52 + (gKountaY * 48))
        gScorePosition = gScorePosition + 1
      end repeat
    end repeat
  end repeat
end