Micromanía 25/CDMM_25.iso/takeru/menu.dxr/00001_main.ls

Text File | 1996-09-04 | 2.4 KB | 106 lines

on startMovie
  global gflag
  set gflag to the volume of sound 4
  puppetSound(1, 0)
  puppetSound(2, 0)
  set the volume of sound 4 to 50
  puppetSprite(1, 1)
  puppetSprite(30, 1)
  set the locH of sprite 1 to 320
  set the locV of sprite 1 to 240
  set the volume of sound 2 to 255
  set the volume of sound 1 to 255
end

on stopMovie
end

on checkMoving
  if the mouseH > 580 then
    if marker(0) < 12 then
      cursor([14, 15])
      updateStage()
      turn(0)
      repeat with number = 1 to 40
        set the locH of sprite 1 to the locH of sprite 1 - 16
        updateStage()
      end repeat
      go(marker(1))
    end if
  else
    if the mouseH < 60 then
      if marker(0) > 3 then
        cursor([12, 13])
        turn(180)
        repeat with number = 1 to 40
          set the locH of sprite 1 to the locH of sprite 1 + 16
          updateStage()
        end repeat
        if marker(0) = 297 then
          go("3a")
        end if
        go(marker(-1))
      end if
    end if
  end if
end

on moveSprtDiag whchSprt, newH, newV
  set x1 to the locH of sprite whchSprt
  set y1 to the locV of sprite whchSprt
  set x2 to newH
  set y2 to newV
  set stepSize to 20
  set stepDelay to 0
  if (x1 <> x2) or (y1 <> y2) then
    if x1 > x2 then
      set xVal to -1
    else
      set xVal to 1
    end if
    if y1 > y2 then
      set yVal to -1
    else
      set yVal to 1
    end if
    set xDist to x2 - x1
    set yDist to y2 - y1
    set xDistAbs to abs(xDist)
    set yDistAbs to abs(yDist)
    set x to x1 * 1.0
    set y to y1 * 1.0
    if yDistAbs > xDistAbs then
      if yDistAbs = 0 then
        set xFact to 0
      else
        set xFact to 1.0 * xDistAbs / yDistAbs * stepSize
      end if
      set yFact to stepSize
    else
      if xDistAbs = 0 then
        set yFact to 0
      else
        set yFact to 1.0 * yDistAbs / xDistAbs * stepSize
      end if
      set xFact to stepSize
    end if
    repeat while (x <> x2) or (y <> y2)
      set x to x + (xFact * xVal)
      set y to y + (yFact * yVal)
      if abs(x - x2) <= xFact then
        set x to x2
      end if
      if abs(y - y2) <= yFact then
        set y to y2
      end if
      set the locH of sprite whchSprt to integer(x)
      set the locV of sprite whchSprt to integer(y)
      updateStage()
      set curTicks to the ticks
      repeat while the ticks < (curTicks + stepDelay)
        nothing()
      end repeat
    end repeat
  end if
end