PC Home 49/PC_Home_Issue_49.iso/winprogs/childenc/oecdemo/shared.dir/00384.ls

Text File | 1996-07-24 | 4.6 KB | 159 lines

on moveWindow theSprites, rtnFrame, HtextSprite, hotSpotList, soundFile
  global castData
  set theSprites to convertToList(theSprites)
  set x to the number of items in theSprites
  repeat with j = 1 to x
    put the locV of sprite value(item j of theSprites) into item j of theLocVs
    put the locH of sprite value(item j of theSprites) into item j of theLocHs
  end repeat
  set MV to the mouseV
  set MH to the mouseH
  if (MV - the top of sprite value(item 1 of theSprites)) < 10 then
    if (MH - the left of sprite value(item 1 of theSprites)) < 10 then
      if rtnFrame <> EMPTY then
        stopSound(1, 10)
        set soundFile to EMPTY
        if goAwayBox(value(item 1 of theSprites)) = "dismiss" then
          setUpSprites(theSprites, 0)
          if string(HtextSprite) <> EMPTY then
            setUpSprites(HtextSprite, 0)
          end if
          exit
        end if
      end if
    end if
    repeat while the mouseDown
      if the mouseV > 5 then
        if the mouseV < (the stageBottom - the stageTop - 5) then
          set dMV to the mouseV - MV
          set MV to MV + dMV
        else
          set dMV to 0
        end if
      else
        set dMV to 0
      end if
      if the mouseH > 5 then
        if the mouseH < (the stageRight - the stageLeft - 5) then
          set dMH to the mouseH - MH
          set MH to MH + dMH
        else
          set dMH to 0
        end if
      else
        set dMH to 0
      end if
      repeat with n = 1 to x
        put dMV + value(item n of theLocVs) into item n of theLocVs
        put dMH + value(item n of theLocHs) into item n of theLocHs
        set the locV of sprite value(item n of theSprites) to value(item n of theLocVs)
        set the locH of sprite value(item n of theSprites) to value(item n of theLocHs)
      end repeat
      updateStage()
    end repeat
  else
    if item 1 of castData = "searchResults" then
      manageHiliter2(39, 442, 0)
    else
      if item 1 of castData = "bookmark" then
      end if
    end if
  end if
end

on WinHText hotSpotList, winSprite, HtextSprite
  global CR, itemHit, gLocation, ViewOptions, gNewViewOptions, gObject
  set itemHit to EMPTY
  set areaList to the text of cast hotSpotList
  set x to the mouseH
  set y to the mouseV
  set tx to the left of sprite winSprite
  set ty to the top of sprite winSprite
  InRect(x, y, tx, ty, areaList)
  set n to the result
  set n to value(n)
  if n > 0 then
    set itemHit to n
    set m to line n of areaList
    set theStr to item 6 of m
    if theStr = "OK" then
      if the castNum of sprite HtextSprite = 93 then
        set theDownCast to 94
      else
        if the castNum of sprite HtextSprite = 96 then
          set theDownCast to 98
        else
          if the castNum of sprite HtextSprite = 92 then
            set theDownCast to 91
          end if
        end if
      end if
    else
      if theStr = "Cancel" then
        if the castNum of sprite HtextSprite = 93 then
          set theDownCast to 95
        else
          if the castNum of sprite HtextSprite = 96 then
            set theDownCast to 97
          end if
        end if
      end if
    end if
    set theUpCast to the castNum of sprite HtextSprite
    repeat while the mouseDown
      set the castNum of sprite HtextSprite to theDownCast
      updateStage()
    end repeat
    set the castNum of sprite HtextSprite to theUpCast
    puppetSprite(HtextSprite, 0)
    if theStr = "Cancel" then
      exit
    end if
    if gObject = EMPTY then
      exit
    end if
    set ViewOptions to gNewViewOptions
    set the blend of sprite 14 to 0
    put EMPTY into field 458
    put EMPTY into field "ListName"
    setUpSprites("9-14;17-24;33-39;41", 0)
    if (gLocation = "London Views") and (theStr = "OK") then
      go(marker("Lon") + 1)
    else
      if (gLocation = "LA Views") and (theStr = "OK") then
        go(marker("LA") + 1)
      end if
    end if
  else
    nothing()
  end if
  set gObject to EMPTY
end

on goAwayBox winSprite
  puppetSprite(48, 1)
  set the ink of sprite 48 to 0
  set the castNum of sprite 48 to 529
  set the immediate of sprite 48 to 1
  set theT to the top of sprite winSprite + 2
  set theB to theT + 12
  set theL to the left of sprite winSprite + 2
  set theR to theL + 11
  set the ink of sprite 48 to 2
  spriteBox(48, theL, theT, theR, theB)
  set the visible of sprite 48 to 1
  updateStage()
  repeat while the mouseDown
    set the castNum of sprite 48 to 530
    updateStage()
  end repeat
  set the castNum of sprite 48 to 529
  updateStage()
  puppetSprite(48, 0)
  if rollOver(48) then
    return "dismiss"
  else
    return EMPTY
  end if
end