home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / ssvg.dir / 00169.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  2.4 KB  |  75 lines
  1. on popupcode
  2.   global gFromFrame, gOldLine, gLowlightColor, languagechosen
  3.   set the member of sprite 47 to member "SSvgBanner" of castLib languagechosen
  4.   set the ink of sprite 47 to 36
  5.   set the locH of sprite 47 to 6
  6.   set the locV of sprite 47 to 456
  7.   updateStage()
  8.   set the blend of sprite 44 to 25
  9.   set the visible of sprite 40 to 0
  10.   set the visible of sprite 48 to 0
  11.   ContentsStop()
  12. end
  13.  
  14. on checkHPan
  15.   global gPanoMovieObj, languagechosen
  16.   if objectp(gPanoMovieObj) then
  17.     put gPanoMovieObj(mGetHPanAngle) into field "HPanAngle"
  18.     put gPanoMovieObj(mGetVPanAngle) into field "VPanAngle"
  19.     put gPanoMovieObj(mGetZoomAngle) into field "ZoomAngle"
  20.     put gPanoMovieObj(mGetNodeID) into field "Node ID"
  21.   end if
  22.   if the text of cast "Node ID" > 3 then
  23.     nothing()
  24.   else
  25.     set tempVarName to "ssvgnode" & the text of cast "Node ID"
  26.     set the member of sprite 14 to member tempVarName of castLib languagechosen
  27.   end if
  28.   checknodes()
  29.   UpdateText(the text of cast "Node ID")
  30. end
  31.  
  32. on UpdateText Node
  33.   case Node of
  34.     "1":
  35.       nodeOneUpdate()
  36.     "2":
  37.       nodeTwoUpdate()
  38.     "3":
  39.       nodeThreeUpdate()
  40.   end case
  41. end
  42.  
  43. on nodeOneUpdate
  44.   set tempValue to integer(the text of cast "HPanAngle" * 100) / 100
  45.   set PointValues to [360, 356, 305, 224, 169, 123, 36, 0]
  46.   repeat with counter = 1 to 7
  47.     if (tempValue < getAt(PointValues, counter)) and (tempValue > getAt(PointValues, counter + 1)) then
  48.       set tempYU to "ssvgtextone" & counter
  49.       set the text of member "ssvgtextbox" to the text of member tempYU
  50.     end if
  51.   end repeat
  52. end
  53.  
  54. on nodeTwoUpdate
  55.   set tempValue to integer(the text of cast "HPanAngle" * 100) / 100
  56.   set PointValues to [360, 349, 304, 257, 213, 175, 122, 79, 33, 0]
  57.   repeat with counter = 1 to 9
  58.     if (tempValue < getAt(PointValues, counter)) and (tempValue > getAt(PointValues, counter + 1)) then
  59.       set tempYU to "ssvgtexttwo" & counter
  60.       set the text of member "ssvgtextbox" to the text of member tempYU
  61.     end if
  62.   end repeat
  63. end
  64.  
  65. on nodeThreeUpdate
  66.   set tempValue to integer(the text of cast "HPanAngle" * 100) / 100
  67.   set PointValues to [360, 349, 307, 262, 215, 170, 123, 76, 32, 0]
  68.   repeat with counter = 1 to 9
  69.     if (tempValue < getAt(PointValues, counter)) and (tempValue > getAt(PointValues, counter + 1)) then
  70.       set tempYU to "ssvgtextthree" & counter
  71.       set the text of member "ssvgtextbox" to the text of member tempYU
  72.     end if
  73.   end repeat
  74. end
  75.