home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Tantrix.dxr / 00002_main.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  7.1 KB  |  234 lines
  1. property pTimeTicks
  2. global gSelectedTile, gTileArray, gNumTiles, gCurrentLevel, gColorRequired, gLevelTime
  3.  
  4. on new me
  5.   gLevelTime = 0
  6.   gCurrentLevel = gCurrentLevel + 1
  7.   newLevel()
  8.   pTimeTicks = the ticks
  9. end
  10.  
  11. on exitFrame me
  12.   if (pTimeTicks + 60) < the ticks then
  13.     pTimeTicks = the ticks
  14.     gLevelTime = gLevelTime + 1
  15.     displayTime()
  16.   end if
  17.   checkMouseMovement()
  18.   go(the frame)
  19. end
  20.  
  21. on checkMouseMovement
  22.   if the rightMouseDown = 1 then
  23.     put sendSprite(gSelectedTile, #getHexProperty)
  24.   end if
  25.   if gSelectedTile = 0 then
  26.     exit
  27.   end if
  28.   if the mouseUp = 1 then
  29.     sendSprite(gSelectedTile, #dropTile)
  30.   end if
  31.   sendSprite(gSelectedTile, #moveTile)
  32. end
  33.  
  34. on newLevel
  35.   member("leveldisp").text = "L" && string(gCurrentLevel)
  36.   case gCurrentLevel of
  37.     1:
  38.       gNumTiles = 3
  39.       gColorRequired = 1
  40.       sprite(10).member = "hex5"
  41.       sprite(11).member = "hex5"
  42.       sprite(12).member = "hex5"
  43.       updateStage()
  44.       sendSprite(10, #setTileProperty)
  45.       sendSprite(11, #setTileProperty)
  46.       sendSprite(12, #setTileProperty)
  47.       member("instructions").text = "Create a blue loop."
  48.     2:
  49.       gNumTiles = 4
  50.       gColorRequired = 2
  51.       sprite(10).member = "hex3"
  52.       sprite(11).member = "hex7"
  53.       sprite(12).member = "hex5"
  54.       sprite(13).member = "hex8"
  55.       updateStage()
  56.       sendSprite(10, #setTileProperty)
  57.       sendSprite(11, #setTileProperty)
  58.       sendSprite(12, #setTileProperty)
  59.       sendSprite(13, #setTileProperty)
  60.       member("instructions").text = "Create a red loop."
  61.     3:
  62.       gNumTiles = 5
  63.       gColorRequired = 2
  64.       sprite(10).member = "hex1"
  65.       sprite(11).member = "hex11"
  66.       sprite(12).member = "hex5"
  67.       sprite(13).member = "hex8"
  68.       sprite(14).member = "hex4"
  69.       updateStage()
  70.       sendSprite(10, #setTileProperty)
  71.       sendSprite(11, #setTileProperty)
  72.       sendSprite(12, #setTileProperty)
  73.       sendSprite(13, #setTileProperty)
  74.       sendSprite(14, #setTileProperty)
  75.       member("instructions").text = "Create a red loop."
  76.     4:
  77.       gNumTiles = 6
  78.       gColorRequired = 1
  79.       sprite(10).member = "hex2"
  80.       sprite(11).member = "hex4"
  81.       sprite(12).member = "hex7"
  82.       sprite(13).member = "hex5"
  83.       sprite(14).member = "hex8"
  84.       sprite(15).member = "hex11"
  85.       updateStage()
  86.       sendSprite(10, #setTileProperty)
  87.       sendSprite(11, #setTileProperty)
  88.       sendSprite(12, #setTileProperty)
  89.       sendSprite(13, #setTileProperty)
  90.       sendSprite(14, #setTileProperty)
  91.       sendSprite(15, #setTileProperty)
  92.       member("instructions").text = "Create a blue loop."
  93.     5:
  94.       gNumTiles = 7
  95.       gColorRequired = 2
  96.       sprite(10).member = "hex2"
  97.       sprite(11).member = "hex10"
  98.       sprite(12).member = "hex4"
  99.       sprite(13).member = "hex7"
  100.       sprite(14).member = "hex8"
  101.       sprite(15).member = "hex5"
  102.       sprite(16).member = "hex11"
  103.       updateStage()
  104.       sendSprite(10, #setTileProperty)
  105.       sendSprite(11, #setTileProperty)
  106.       sendSprite(12, #setTileProperty)
  107.       sendSprite(13, #setTileProperty)
  108.       sendSprite(14, #setTileProperty)
  109.       sendSprite(15, #setTileProperty)
  110.       sendSprite(16, #setTileProperty)
  111.       member("instructions").text = "Create a red loop."
  112.     6:
  113.       gNumTiles = 8
  114.       gColorRequired = 1
  115.       sprite(10).member = "hex4"
  116.       sprite(11).member = "hex7"
  117.       sprite(12).member = "hex5"
  118.       sprite(13).member = "hex8"
  119.       sprite(14).member = "hex11"
  120.       sprite(15).member = "hex2"
  121.       sprite(16).member = "hex10"
  122.       sprite(17).member = "hex9"
  123.       updateStage()
  124.       sendSprite(10, #setTileProperty)
  125.       sendSprite(11, #setTileProperty)
  126.       sendSprite(12, #setTileProperty)
  127.       sendSprite(13, #setTileProperty)
  128.       sendSprite(14, #setTileProperty)
  129.       sendSprite(15, #setTileProperty)
  130.       sendSprite(16, #setTileProperty)
  131.       sendSprite(17, #setTileProperty)
  132.       member("instructions").text = "Create a blue loop."
  133.     7:
  134.       gNumTiles = 9
  135.       gColorRequired = 3
  136.       sprite(10).member = "hex4"
  137.       sprite(11).member = "hex7"
  138.       sprite(12).member = "hex5"
  139.       sprite(13).member = "hex8"
  140.       sprite(14).member = "hex11"
  141.       sprite(15).member = "hex2"
  142.       sprite(16).member = "hex10"
  143.       sprite(17).member = "hex9"
  144.       sprite(18).member = "hex12"
  145.       updateStage()
  146.       sendSprite(10, #setTileProperty)
  147.       sendSprite(11, #setTileProperty)
  148.       sendSprite(12, #setTileProperty)
  149.       sendSprite(13, #setTileProperty)
  150.       sendSprite(14, #setTileProperty)
  151.       sendSprite(15, #setTileProperty)
  152.       sendSprite(16, #setTileProperty)
  153.       sendSprite(17, #setTileProperty)
  154.       sendSprite(18, #setTileProperty)
  155.       member("instructions").text = "Create a yellow loop."
  156.     8:
  157.       gNumTiles = 10
  158.       gColorRequired = 2
  159.       sprite(10).member = "hex4"
  160.       sprite(11).member = "hex7"
  161.       sprite(12).member = "hex5"
  162.       sprite(13).member = "hex8"
  163.       sprite(14).member = "hex11"
  164.       sprite(15).member = "hex2"
  165.       sprite(16).member = "hex10"
  166.       sprite(17).member = "hex9"
  167.       sprite(18).member = "hex12"
  168.       sprite(19).member = "hex3"
  169.       updateStage()
  170.       sendSprite(10, #setTileProperty)
  171.       sendSprite(11, #setTileProperty)
  172.       sendSprite(12, #setTileProperty)
  173.       sendSprite(13, #setTileProperty)
  174.       sendSprite(14, #setTileProperty)
  175.       sendSprite(15, #setTileProperty)
  176.       sendSprite(16, #setTileProperty)
  177.       sendSprite(17, #setTileProperty)
  178.       sendSprite(18, #setTileProperty)
  179.       sendSprite(19, #setTileProperty)
  180.       member("instructions").text = "Create a red loop."
  181.     9:
  182.       gNumTiles = 10
  183.       gColorRequired = 1
  184.       sprite(10).member = "hex4"
  185.       sprite(11).member = "hex7"
  186.       sprite(12).member = "hex5"
  187.       sprite(13).member = "hex8"
  188.       sprite(14).member = "hex11"
  189.       sprite(15).member = "hex2"
  190.       sprite(16).member = "hex9"
  191.       sprite(17).member = "hex10"
  192.       sprite(18).member = "hex12"
  193.       sprite(19).member = "hex3"
  194.       updateStage()
  195.       sendSprite(10, #setTileProperty)
  196.       sendSprite(11, #setTileProperty)
  197.       sendSprite(12, #setTileProperty)
  198.       sendSprite(13, #setTileProperty)
  199.       sendSprite(14, #setTileProperty)
  200.       sendSprite(15, #setTileProperty)
  201.       sendSprite(16, #setTileProperty)
  202.       sendSprite(17, #setTileProperty)
  203.       sendSprite(18, #setTileProperty)
  204.       sendSprite(19, #setTileProperty)
  205.       member("instructions").text = "Create a blue loop."
  206.     10:
  207.       gNumTiles = 10
  208.       gColorRequired = 3
  209.       sprite(10).member = "hex4"
  210.       sprite(11).member = "hex7"
  211.       sprite(12).member = "hex5"
  212.       sprite(13).member = "hex8"
  213.       sprite(14).member = "hex11"
  214.       sprite(15).member = "hex2"
  215.       sprite(16).member = "hex10"
  216.       sprite(17).member = "hex9"
  217.       sprite(18).member = "hex12"
  218.       sprite(19).member = "hex3"
  219.       updateStage()
  220.       sendSprite(10, #setTileProperty)
  221.       sendSprite(11, #setTileProperty)
  222.       sendSprite(12, #setTileProperty)
  223.       sendSprite(13, #setTileProperty)
  224.       sendSprite(14, #setTileProperty)
  225.       sendSprite(15, #setTileProperty)
  226.       sendSprite(16, #setTileProperty)
  227.       sendSprite(17, #setTileProperty)
  228.       sendSprite(18, #setTileProperty)
  229.       sendSprite(19, #setTileProperty)
  230.       member("instructions").text = "Create a yellow loop."
  231.   end case
  232.   updateStage()
  233. end
  234.