home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / RowsAndColumns.dxr / 00005.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  973 b   |  26 lines
  1. on mouseDown
  2.   global verticalAData, verticalBData, horizontalAData, horizontalBData, stampShape, fallBlockData
  3.   pointClicked = the mouseLoc - the loc of sprite 2
  4.   tileClicked = (pointClicked / 40) + 1
  5.   horizontalAData[tileClicked[2]][tileClicked[1]] = stampShape[1]
  6.   horizontalBData[tileClicked[2]][tileClicked[1]] = stampShape[2]
  7.   verticalAData[tileClicked[2]][tileClicked[1]] = stampShape[3]
  8.   verticalBData[tileClicked[2]][tileClicked[1]] = stampShape[4]
  9.   wY = tileClicked[2]
  10.   wX = tileClicked[1]
  11.   h1 = horizontalAData[wY][wX]
  12.   h2 = horizontalBData[wY][wX]
  13.   v1 = verticalAData[wY][wX]
  14.   v2 = verticalBData[wY][wX]
  15.   bitData = translateSet(h1, h2, v1, v2)
  16.   testSolidity()
  17.   stampShape = [0, 0, 0, 0]
  18.   stampShape[1] = random(2) - 1
  19.   stampShape[2] = random(2) - 1
  20.   stampShape[3] = random(2) - 1
  21.   stampShape[4] = random(2) - 1
  22.   setBlock(stampShape[1], stampShape[2], stampShape[3], stampShape[4])
  23.   fallBlockData[2] = point(3, 0)
  24.   fallBlockData[4] = 0
  25. end
  26.