home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / animals.dir / 00015.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.6 KB  |  55 lines
  1. on sectionDown
  2.   global theSection, theSLine, lineheight, spHoriz, spVert, col1amount, col2amount, col1width, col2width
  3.   setOffStage("20,21,25,34,35,44,45,46")
  4.   set the castNum of sprite 31 to 16
  5.   set the locH of sprite 31 to spHoriz
  6.   set the locV of sprite 31 to spVert
  7.   set the castNum of sprite 33 to 970
  8.   set the blend of sprite 33 to 60
  9.   set the locH of sprite 33 to 132
  10.   set the locV of sprite 33 to 34
  11.   set the castNum of sprite 40 to 18
  12.   if theSection <= col1amount then
  13.     set theSLine to theSection
  14.     set the locH of sprite 43 to spHoriz
  15.     set the width of sprite 43 to col1width
  16.   else
  17.     set theSLine to theSection - col1amount
  18.     set the locH of sprite 43 to spHoriz + col1width
  19.     set the width of sprite 43 to col2width
  20.   end if
  21.   doSet(theSection, theSLine, spVert)
  22.   updateStage()
  23. end
  24.  
  25. on doSet theSectionT, whSel, spv
  26.   global theTopic, greenList
  27.   set the height of sprite 43 to 20
  28.   set the locV of sprite 43 to (whSel * 20) - 14 + spv
  29.   updateStage()
  30.   set whTopicList to field (theSectionT + 40)
  31.   set theTopic to line 1 of whTopicList
  32.   delete line 1 of whTopicList
  33.   set the text of field "topicHeadtemp" to whTopicList
  34.   setFieldTopic("topicHeadtemp")
  35.   set the backColor of cast 975 to 19
  36.   set the backColor of cast 974 to 19
  37.   set the castNum of sprite 34 to 975
  38.   set the locH of sprite 34 to 459
  39.   set the locV of sprite 34 to 78
  40.   updateStage()
  41. end
  42.  
  43. on paraUp
  44.   global spHoriz
  45.   if the locH of sprite 31 = spHoriz then
  46.     set the castNum of sprite 44 to 946
  47.     setOffStage("44")
  48.   else
  49.     set the castNum of sprite 44 to 946
  50.     setOffStage("33,44")
  51.     set the blend of sprite 33 to 100
  52.   end if
  53.   updateStage()
  54. end
  55.