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

Text File | 1996-07-24 | 843 b | 37 lines

on SetUpHText popBox, thesnd, theLH, theLV
  global theCastNum, soundFile, theLocH, theLocV
  set theCastNum to the number of cast popBox
  set soundFile to thesnd
  set theLocH to theLH
  set theLocV to theLV
  go("Hypertext")
end

on goToWin winName, sndName
  global soundFile
  set soundFile to sndName
  go(winName)
end

on inWinRegion theSprite, textCast
  global CR, windCast, theLocV, theLocH
  if string(textCast) = EMPTY then
    exit
  end if
  set areaList to EMPTY
  set areaList to the text of cast textCast
  set x to the mouseH
  set y to the mouseV
  set tx to the left of sprite value(theSprite)
  set ty to the top of sprite value(theSprite)
  InRect(x, y, tx, ty, areaList)
  set n to the result
  set n to value(n)
  if n > 0 then
    set m to line n of areaList & CR & n
    return m
  else
    return EMPTY
  end if
end