home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00993.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  3.1 KB  |  92 lines
  1. on doDateList
  2.   global whDate, whyear, blockPos, overLay
  3.   cursor(4)
  4.   if the locH of sprite 34 < 400 then
  5.     clearLists()
  6.   end if
  7.   set the castNum of sprite 40 to cast "blanker"
  8.   setOffStage("35")
  9.   set the text of field "dateList" to EMPTY
  10.   if whyear >= 5 then
  11.     hintsGrid()
  12.   end if
  13.   if whyear <= 4 then
  14.     set BlueDateCast to item whyear of whDate & "bd"
  15.     set the castNum of sprite 24 to cast string(BlueDateCast)
  16.     set the locV of sprite 24 to 74
  17.     set the locH of sprite 24 to value(item whyear of blockPos)
  18.     set the blend of sprite 33 to 100
  19.     set the castNum of sprite 33 to value(item whyear of overLay)
  20.     set the locH of sprite 33 to 0
  21.     set the locV of sprite 33 to 33
  22.     set the locH of sprite 20 to value(item whyear of blockPos)
  23.     set the height of sprite 20 to 346
  24.     set the locH of sprite 23 to value(item whyear of blockPos) + 3
  25.     set the text of field 972 to " "
  26.     set the locH of sprite 25 to value(item whyear of blockPos)
  27.     set the locV of sprite 25 to 118
  28.     set the width of sprite 25 to 250
  29.     setFieldTopic("numList")
  30.     updateStage()
  31.     set the text of field 971 to field string(item whyear of whDate)
  32.     set theFullField to item whyear of whDate & "L"
  33.     set theFieldToCount to field string(theFullField)
  34.     set count to 0
  35.     repeat with n = 1 to the number of lines in theFieldToCount
  36.       if char 1 of line n of theFieldToCount = "E" then
  37.         set count to count + 1
  38.       end if
  39.     end repeat
  40.     if count = 0 then
  41.       set the text of field 972 to " No articles"
  42.     end if
  43.     if count = 1 then
  44.       set the text of field 972 to string(" " & count && "article")
  45.     end if
  46.     if count > 1 then
  47.       set the text of field 972 to string(" " & count && "articles")
  48.     end if
  49.     setHeadline("dateList")
  50.     setFieldTopic("numList")
  51.     cursor(-1)
  52.   end if
  53. end
  54.  
  55. on topicFieldList theClickedLine
  56.   global theSection, theSectionT, theTopic, theTopicLine, theTopicTitle, choiceMade
  57.   if theClickedLine <> -1 then
  58.     if line theClickedLine of field "topicHeadtemp" <> EMPTY then
  59.       set choiceMade to 1
  60.       cursor(4)
  61.       set theTopicLine to theClickedLine
  62.       set theTopicTitle to line theClickedLine of field "topicHeadtemp"
  63.       set the text of field "topicHead" to theTopicTitle
  64.       setFieldTopic("topicHead")
  65.       set the castNum of sprite 30 to theSectionT + 20
  66.       set the castNum of sprite 40 to 17
  67.       setOffStage("31,33,34,43,44")
  68.       set the blend of sprite 33 to 100
  69.       updateStage()
  70.       set theSection to theSectionT
  71.       if the frame < 5 then
  72.         set the castNum of sprite 35 to 977
  73.       else
  74.         set the castNum of sprite 35 to 978
  75.         photoLinkCheckOff()
  76.         photoLinkCheck()
  77.       end if
  78.       set the locH of sprite 35 to 454
  79.       set the locV of sprite 35 to 72
  80.       updateStage()
  81.       if the frame < 5 then
  82.         set greenTemp to line 1 of field string(theTopic & theTopicLine)
  83.         repeat with n = 1 to 7
  84.           set the castNum of sprite (n + 6) to cast value(item n + 1 of greenTemp)
  85.         end repeat
  86.         spriteBox(1, 162, 264, 640, 266)
  87.       end if
  88.       cursor(-1)
  89.     end if
  90.   end if
  91. end
  92.