What PC? 1996 August/WPCAUG96.ISO/makers/power/ue.dir/00192.ls

Text File | 1996-06-12 | 8.7 KB | 333 lines

on startMovie
  global PrevFrame, fixpal, StartCast, MensFrames, colorcrsr
  puppetSprite(17, 1)
  set the castNum of sprite 17 to the number of cast string("v" & the soundLevel)
  set PrevFrame to EMPTY
  initMap()
  repeat with i = 20 to 25
    puppetSprite(i, 1)
  end repeat
  repeat with i = 11 to 17
    puppetSprite(i, 1)
  end repeat
  if the machineType <> 256 then
    openXLib("FixPal.obj")
    set fixpal to FixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageTop)
    patchpal()
    openXLib("ColourM.Obj")
  end if
  set StartCast to the number of cast "rolet0"
  set MensFrames to "059,054,104,056,056,098,100,078,030,014,015,017,046,047,048,048"
  set colorcrsr to EMPTY
end

on patchpal
  global fixpal
  fixpal(mPatchIt)
end

on stopMovie
  global fixpal, colorcrsr
  sound stop 1
  sound stop 2
  unLoad()
  unLoadCast()
  if the machineType <> 256 then
    fixpal(mdispose)
    closeXLib("FixPal.obj")
    if objectp(colorcrsr) then
      colorcrsr(mdispose)
      closeXLib("ColourM.Obj")
    end if
  end if
end

on chooseBack CurrFrame, theItem
  global PrevFrame, FramesMap, CameFromFile, ToGo
  if CurrFrame = 39 then
    if PrevFrame = 64 then
      go("064")
    else
      go("077")
    end if
  else
    if CurrFrame = 46 then
      if PrevFrame = 37 then
        go("037")
      else
        go("045")
      end if
    else
      if CurrFrame = 50 then
        if PrevFrame = 44 then
          go("044")
        else
          go("051")
        end if
      else
        if CurrFrame = 77 then
          if PrevFrame = 51 then
            go("051")
          else
            go("044")
          end if
        else
          if CurrFrame = 80 then
            if PrevFrame = 75 then
              go("075")
            else
              go("079")
            end if
          else
            if CurrFrame = 94 then
              DemoOnly(48, 105, -130)
            else
              if CurrFrame = 98 then
                DemoOnly(48, 105, -130)
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on hilitDirections
  global FramesMap
  set theLine to (the frame + 2) / 3
  if the locV of sprite 2 <> 308 then
    set the locV of sprite 2 to 308
  end if
  set the movieTime of sprite 2 to (theLine * 60) - 1
  updateStage()
  repeat with i = 1 to 6
    if string(item i of line theLine of FramesMap) <> "000" then
      set the castNum of sprite (i + 19) to the number of cast string(char 1 to 2 of the name of cast the castNum of sprite (i + 19) & "H")
      next repeat
    end if
    set the castNum of sprite (i + 19) to the number of cast string(char 1 to 2 of the name of cast the castNum of sprite (i + 19) & "E")
  end repeat
  updateStage()
end

on rollOvers
  if rollOver(2) then
    check2()
  else
    if rollOver(11) then
      check12()
    else
      if the mouseCast = 119 then
        changeCast(119, 13)
      else
        if the mouseCast = 117 then
          changeCast(117, 14)
        else
          if the mouseCast = 121 then
            changeCast(121, 15)
          else
            if rollOver(16) then
              roll(16)
            else
              if rollOver(27) then
                roll(27)
              else
                ReleasCursor()
                cursor(0)
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  updateStage()
end

on changeCast theRoll, theSprite
  ReleasCursor()
  cursor(0)
  if not (the name of cast the castNum of sprite theSprite contains "down") then
    set the castNum of sprite theSprite to the castNum of sprite theSprite + 1
    updateStage()
    repeat while (the mouseCast = (theRoll + 1)) and not (the mouseDown)
    end repeat
    set the castNum of sprite theSprite to the castNum of sprite theSprite - 1
  end if
end

on roll theRoll
  ReleasCursor()
  cursor(0)
  if not (the name of cast the castNum of sprite theRoll contains "down") then
    set the castNum of sprite theRoll to the castNum of sprite theRoll + 1
    updateStage()
    repeat while rollOver(theRoll) and not (the mouseDown)
    end repeat
    set the castNum of sprite theRoll to the castNum of sprite theRoll - 1
  end if
end

on unRoll theRoll
  if the name of cast the castNum of sprite theRoll contains "down" then
    set the castNum of sprite theRoll to the castNum of sprite theRoll - 1
    updateStage()
  end if
end

on check12
  global StartCast, ItemDel
  set the castNum of sprite 11 to the castNum of sprite 11 + 1
  set endcast to StartCast + 30
  set Stime to the ticks
  repeat while rollOver(11) and not (the mouseDown)
    if (the ticks - Stime) > 2 then
      if the castNum of sprite 12 < endcast then
        set the castNum of sprite 12 to the castNum of sprite 12 + 1
      else
        set the castNum of sprite 12 to StartCast + 1
      end if
      updateStage()
      set Stime to the ticks
    end if
  end repeat
  if the mouseDown then
    set temp to the pathName
    set the itemDelimiter to ItemDel
    delete item the number of items in temp of temp
    delete item the number of items in temp of temp
    set the itemDelimiter to ","
    unLoad()
    unLoadCast()
    set the visible of sprite 2 to 0
    updateStage()
    go("black")
    go(1, string(temp & ItemDel & "random.dir"))
  end if
  if the movie <> "random.dir" then
    set the castNum of sprite 11 to the castNum of sprite 11 - 1
    set the castNum of sprite 12 to StartCast
  end if
end

on GoDatabase num
  global gMakerNum, ItemDel, MensFrames
  set temp to "32,127,78,pool,pool,098,184,149,14,102,115,140,152,148,mount,mount"
  set i to 1
  repeat while i < the number of items in temp
    if num = item i of MensFrames then
      exit repeat
      next repeat
    end if
    set i to i + 1
  end repeat
  if (item i of temp <> "pool") and (item i of temp <> "mount") then
    set x to value(item i of temp)
  else
    if item i of temp = "pool" then
      if the mouseH < 314 then
        set x to 45
      else
        set x to 63
      end if
    else
      if the mouseH > 376 then
        set x to 99
      else
        if the mouseH > 239 then
          set x to 132
        end if
      end if
    end if
  end if
  set num to x
  set gMakerNum to num
  sound stop 1
  sound stop 2
  unLoad()
  unLoadCast()
  puppetSprite(2, 0)
  set the itemDelimiter to ItemDel
  set temp to item 1 of the pathName
  set the itemDelimiter to ","
  set the visible of sprite 2 to 0
  updateStage()
  go("black")
  go("database", temp & ItemDel & "DATABASE" & ItemDel & "POWER.DIR")
end

on check2
  global FramesMap, MensFrames
  set temp to line (the frame + 2) / 3 of FramesMap
  if inside(point(the mouseH, the mouseV), rect(22, 189, 122, 429)) and (string(item 2 of temp) <> "000") then
    MyCursor(254, 255)
  else
    if inside(point(the mouseH, the mouseV), rect(512, 189, 612, 429)) and (string(item 1 of temp) <> "000") then
      MyCursor(252, 253)
    else
      if inside(point(the mouseH, the mouseV), rect(122, 229, 512, 379)) and (string(item 3 of temp) <> "000") then
        MyCursor(258, 259)
      else
        if inside(point(the mouseH, the mouseV), rect(122, 229, 512, 379)) and (MensFrames contains string((the frame + 2) / 3)) and (string((the frame + 2) / 3) <> 9) then
          SetCursor()
        else
          if inside(point(the mouseH, the mouseV), rect(122, 189, 512, 229)) and (string(item 5 of temp) <> "000") then
            MyCursor(250, 251)
          else
            if inside(point(the mouseH, the mouseV), rect(122, 379, 512, 429)) and (string(item 4 of temp) <> "000") then
              MyCursor(256, 257)
            else
              if inside(point(the mouseH, the mouseV), rect(122, 379, 512, 429)) and (string(item 6 of temp) <> "000") then
                MyCursor(248, 249)
              else
                ReleasCursor()
                cursor(0)
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on MyCursor a, b
  ReleasCursor()
  cursor([a, b])
end

on SetCursor
  global colorcrsr
  if the machineType <> 256 then
    if not objectp(colorcrsr) then
      set colorcrsr to ColorCursor(mnew)
    end if
    colorcrsr(mGetSetCursor, 9000)
  else
    cursor([275, 276])
  end if
end

on ReleasCursor
  global colorcrsr
  if the machineType <> 256 then
    if objectp(colorcrsr) then
      colorcrsr(mReleaseCursor)
      colorcrsr(mdispose)
      updateStage()
      cursor(4)
    end if
  end if
end

on hiliteBtn theSprite
  if not (the name of cast the castNum of sprite theSprite contains "down") then
    set the castNum of sprite theSprite to the castNum of sprite theSprite + 1
    updateStage()
    repeat while the mouseDown
    end repeat
    set the castNum of sprite theSprite to the castNum of sprite theSprite - 1
  end if
end