100 Plus Great Games 2/100PLUSV2.BIN/games/SpinSect.dxr/00014_Main.ls

Text File | 2002-01-25 | 12.6 KB | 329 lines

property pBlockerAngle, pLineChecks, pWheelSpins, pSpinSpeed, pSpinRight, pNumSelected, pNumSpiders, time1, time2, pBugList, pAVar
global gScore, gBonus, gTotal, gRound

on new me
  time1 = the ticks
  time2 = the ticks
  repeat with x = 1 to 11
    sprite(39 + x).puppet = 0
  end repeat
  repeat with x = 1 to 18
    sprite(99 + x).puppet = 0
  end repeat
  pLineChecks = 0
  pBugList = [5, 2, 1, 3, 4, 5, 2, 1, 3, 4, 5, 2, 1, 3, 4, 5, 2, 1, 3, 4, 5, 2, 1, 3, 4, 5, 2, 1, 3, 4]
  pBlockerAngle = 0
  pWheelSpins = 0
  pSpinSpeed = 12
  pSpinRight = 0
  pNumSelected = 0
  gRound = gRound + 1
  gScore = 0
  gBonus = 0
  drawRound()
  member("BonusInterface").text = EMPTY
  drawScore()
  drawTotal()
  sprite(125).blend = 0
  sprite(126).blend = 0
  sprite(127).blend = 0
  sprite(128).blend = 0
  sprite(129).blend = 0
  sprite(130).blend = 0
  sprite(131).blend = 0
  sprite(132).blend = 0
  sprite(11).loc = point(225, 219)
  pAVar = 20
end

on exitFrame me
  time2 = the ticks
  if (time2 - time1) > 2 then
    time2 = the ticks
    time1 = the ticks
    if pWheelSpins = 1 then
      sprite(120).blend = 100
      moveSelecter(pSpinRight)
    else
      sprite(120).blend = sprite(120).blend + pAVar
      if sprite(120).blend > 100 then
        sprite(120).blend = 100
        pAVar = pAVar * -1
      end if
      if sprite(120).blend < 50 then
        sprite(120).blend = 5
        pAVar = pAVar * -1
      end if
    end if
  end if
  go(the frame)
end

on moveSelecter whichDirection
  if whichDirection = 1 then
    pBlockerAngle = pBlockerAngle + pSpinSpeed
    if pBlockerAngle > 359 then
      pBlockerAngle = 0
    end if
  else
    pBlockerAngle = pBlockerAngle - pSpinSpeed
    if pBlockerAngle < 1 then
      pBlockerAngle = 360
    end if
  end if
  sprite(120).rotation = pBlockerAngle
end

on doFlasher
  startTicks = the ticks
  notBool = 1
  bool = 1
  repeat while the ticks < (startTicks + 90)
    notBool = notBool + 1
    if notBool > 8 then
      notBool = 1
      if bool = 1 then
        sprite(120).member = "null_sprite"
        bool = 0
      else
        sprite(120).member = "highLight"
        bool = 1
      end if
      updateStage()
    end if
  end repeat
  sprite(120).member = "null_sprite"
  updateStage()
end

on doTalyScoreSequence
  if gBonus = 0 then
    gTotal = gTotal + gScore
  else
    gTotal = gTotal + (gScore * gBonus)
  end if
  drawTotal()
  startTicks = the ticks
  bool = 1
  repeat while the ticks < (startTicks + 90)
    updateStage()
  end repeat
  if gRound = 5 then
    puppetSound(4, "win")
    go(29)
  else
    puppetSound(4, "levelcomplete10")
    go(64)
  end if
end

on keyDown
  if keyPressed(SPACE) then
    puppetSound(2, "stop spin")
    if pWheelSpins = 1 then
      pWheelSpins = 0
      doFlasher()
      sprite(100 + pNumSelected + pNumSpiders).puppet = 1
      sprite(100 + pNumSelected + pNumSpiders).member = "null_sprite"
      sprite(100 + pNumSelected + pNumSpiders).loc = sprite(11).loc
      sprite(100 + pNumSelected + pNumSpiders).rotation = pBlockerAngle
      sprite(100 + pNumSelected + pNumSpiders).backColor = 5
      sprite(100 + pNumSelected + pNumSpiders).ink = 36
      tempVar2 = (pBlockerAngle / 12) + 1
      if tempVar2 > 30 then
        tempVar2 = 1
      end if
      tempVar = pBugList[tempVar2]
      if not (tempVar = 5) then
        sprite(40 + pNumSelected).puppet = 1
        sprite(40 + pNumSelected).member = "chosen" & tempVar
        if tempVar = 0 then
          puppetSound(2, "stop on blank space")
        end if
        pointX = (pNumSelected / 3 * 68) + 158
        pointY = (pNumSelected mod 3 * 67) + 154
        sprite(40 + pNumSelected).loc = point(pointX, pointY)
        sprite(40 + pNumSelected).ink = 36
      end if
      if not (tempVar = 5) then
        pBugList[tempVar2] = 0
        pNumSelected = pNumSelected + 1
        if pNumSelected < 9 then
          sprite(138).loc = point((pNumSelected / 3 * 68) + 158, (pNumSelected mod 3 * 67) + 154)
        end if
        checkLineUp()
      else
        pBugList[tempVar2] = 0
        pNumSpiders = pNumSpiders + 1
        gBonus = gBonus + 1
        drawBonus()
      end if
      if pNumSelected = 9 then
        doTalyScoreSequence()
        exit
      end if
    else
      puppetSound(2, "spin loop")
      pWheelSpins = 1
      if pSpinRight = 1 then
        pSpinRight = 0
      else
        pSpinRight = 1
      end if
    end if
  end if
end

on checkLineUp
  if pNumSelected = 9 then
    if (chars(string(member(sprite(42).member).name), 7, 7) = chars(string(member(sprite(45).member).name), 7, 7)) and (chars(string(member(sprite(48).member).name), 7, 7) = chars(string(member(sprite(42).member).name), 7, 7)) and (sprite(42).puppet = 1) then
      if not (member(sprite(42).member).name = "chosen0") then
        puppetSound(1, "complete line")
        sprite(130).blend = 100
        gScore = gScore + 25
        drawScore()
        if not (chars(string(member(sprite(42).member).name), 8, 10) = "Lit") then
          sprite(42).member = member(sprite(42).member).name & "Lit"
        end if
        if not (chars(string(member(sprite(45).member).name), 8, 10) = "Lit") then
          sprite(45).member = member(sprite(45).member).name & "Lit"
        end if
        if not (chars(string(member(sprite(48).member).name), 8, 10) = "Lit") then
          sprite(48).member = member(sprite(48).member).name & "Lit"
        end if
      end if
    end if
    if (chars(string(member(sprite(40).member).name), 7, 7) = chars(string(member(sprite(44).member).name), 7, 7)) and (chars(string(member(sprite(48).member).name), 7, 7) = chars(string(member(sprite(40).member).name), 7, 7)) and (sprite(40).puppet = 1) then
      if not (member(sprite(40).member).name = "chosen0") then
        puppetSound(1, "complete line")
        sprite(131).blend = 100
        gScore = gScore + 25
        drawScore()
        if not (chars(string(member(sprite(40).member).name), 8, 10) = "Lit") then
          sprite(40).member = member(sprite(40).member).name & "Lit"
        end if
        if not (chars(string(member(sprite(44).member).name), 8, 10) = "Lit") then
          sprite(44).member = member(sprite(44).member).name & "Lit"
        end if
        if not (chars(string(member(sprite(48).member).name), 8, 10) = "Lit") then
          sprite(48).member = member(sprite(48).member).name & "Lit"
        end if
      end if
    end if
    if (chars(string(member(sprite(46).member).name), 7, 7) = chars(string(member(sprite(47).member).name), 7, 7)) and (chars(string(member(sprite(48).member).name), 7, 7) = chars(string(member(sprite(46).member).name), 7, 7)) and (sprite(46).puppet = 1) then
      if not (member(sprite(46).member).name = "chosen0") then
        puppetSound(1, "complete line")
        sprite(127).blend = 100
        gScore = gScore + 25
        drawScore()
        if not (chars(string(member(sprite(46).member).name), 8, 10) = "Lit") then
          sprite(46).member = member(sprite(46).member).name & "Lit"
        end if
        if not (chars(string(member(sprite(47).member).name), 8, 10) = "Lit") then
          sprite(47).member = member(sprite(47).member).name & "Lit"
        end if
        if not (chars(string(member(sprite(48).member).name), 8, 10) = "Lit") then
          sprite(48).member = member(sprite(48).member).name & "Lit"
        end if
      end if
    end if
  else
    if pNumSelected = 8 then
      if (chars(string(member(sprite(41).member).name), 7, 7) = chars(string(member(sprite(44).member).name), 7, 7)) and (chars(string(member(sprite(47).member).name), 7, 7) = chars(string(member(sprite(41).member).name), 7, 7)) and (sprite(41).puppet = 1) then
        if not (member(sprite(41).member).name = "chosen0") then
          puppetSound(1, "complete line")
          sprite(129).blend = 100
          gScore = gScore + 25
          drawScore()
          if not (chars(string(member(sprite(41).member).name), 8, 10) = "Lit") then
            sprite(41).member = member(sprite(41).member).name & "Lit"
          end if
          if not (chars(string(member(sprite(44).member).name), 8, 10) = "Lit") then
            sprite(44).member = member(sprite(44).member).name & "Lit"
          end if
          if not (chars(string(member(sprite(47).member).name), 8, 10) = "Lit") then
            sprite(47).member = member(sprite(47).member).name & "Lit"
          end if
        end if
      end if
    else
      if pNumSelected = 7 then
        if (chars(string(member(sprite(40).member).name), 7, 7) = chars(string(member(sprite(43).member).name), 7, 7)) and (chars(string(member(sprite(46).member).name), 7, 7) = chars(string(member(sprite(40).member).name), 7, 7)) and (sprite(40).puppet = 1) then
          if not (member(sprite(40).member).name = "chosen0") then
            puppetSound(1, "complete line")
            sprite(128).blend = 100
            gScore = gScore + 25
            drawScore()
            if not (chars(string(member(sprite(40).member).name), 8, 10) = "Lit") then
              sprite(40).member = member(sprite(40).member).name & "Lit"
            end if
            if not (chars(string(member(sprite(43).member).name), 8, 10) = "Lit") then
              sprite(43).member = member(sprite(43).member).name & "Lit"
            end if
            if not (chars(string(member(sprite(46).member).name), 8, 10) = "Lit") then
              sprite(46).member = member(sprite(46).member).name & "Lit"
            end if
          end if
        end if
        if (chars(string(member(sprite(42).member).name), 7, 7) = chars(string(member(sprite(44).member).name), 7, 7)) and (chars(string(member(sprite(46).member).name), 7, 7) = chars(string(member(sprite(42).member).name), 7, 7)) and (sprite(42).puppet = 1) then
          if not (member(sprite(42).member).name = "chosen0") then
            puppetSound(1, "complete line")
            sprite(132).blend = 100
            gScore = gScore + 25
            drawScore()
            if not (chars(string(member(sprite(42).member).name), 8, 10) = "Lit") then
              sprite(42).member = member(sprite(42).member).name & "Lit"
            end if
            if not (chars(string(member(sprite(44).member).name), 8, 10) = "Lit") then
              sprite(44).member = member(sprite(44).member).name & "Lit"
            end if
            if not (chars(string(member(sprite(46).member).name), 8, 10) = "Lit") then
              sprite(46).member = member(sprite(46).member).name & "Lit"
            end if
          end if
        end if
      else
        if pNumSelected = 6 then
          if (chars(string(member(sprite(43).member).name), 7, 7) = chars(string(member(sprite(44).member).name), 7, 7)) and (chars(string(member(sprite(45).member).name), 7, 7) = chars(string(member(sprite(43).member).name), 7, 7)) and (sprite(43).puppet = 1) then
            if not (member(sprite(43).member).name = "chosen0") then
              puppetSound(1, "complete line")
              sprite(126).blend = 100
              gScore = gScore + 25
              drawScore()
              if not (chars(string(member(sprite(43).member).name), 8, 10) = "Lit") then
                sprite(43).member = member(sprite(43).member).name & "Lit"
              end if
              if not (chars(string(member(sprite(44).member).name), 8, 10) = "Lit") then
                sprite(44).member = member(sprite(44).member).name & "Lit"
              end if
              if not (chars(string(member(sprite(45).member).name), 8, 10) = "Lit") then
                sprite(45).member = member(sprite(45).member).name & "Lit"
              end if
            end if
          end if
        else
          if pNumSelected = 3 then
            if (chars(string(member(sprite(40).member).name), 7, 7) = chars(string(member(sprite(41).member).name), 7, 7)) and (chars(string(member(sprite(40).member).name), 7, 7) = chars(string(member(sprite(42).member).name), 7, 7)) and (sprite(42).puppet = 1) then
              if not (member(sprite(40).member).name = "chosen0") then
                puppetSound(1, "complete line")
                sprite(125).blend = 100
                gScore = gScore + 25
                drawScore()
                if not (chars(string(member(sprite(40).member).name), 8, 10) = "Lit") then
                  sprite(40).member = member(sprite(40).member).name & "Lit"
                end if
                if not (chars(string(member(sprite(41).member).name), 8, 10) = "Lit") then
                  sprite(41).member = member(sprite(41).member).name & "Lit"
                end if
                if not (chars(string(member(sprite(42).member).name), 8, 10) = "Lit") then
                  sprite(42).member = member(sprite(42).member).name & "Lit"
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end