home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / Internal_17.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  1.5 KB  |  44 lines
  1. on exitFrame
  2.   global NumHits, HitList, OnceCheck, previous, current, ScrollVec, CompVec, Navigate
  3.   set HitList to []
  4.   set NumHits to 0
  5.   repeat with o = 18 to 25
  6.     set the visible of sprite o to 0
  7.   end repeat
  8.   set the visible of sprite 27 to 0
  9.   set the visible of sprite 40 to 0
  10.   repeat with i = 30 to 37
  11.     set the visible of sprite i to 0
  12.   end repeat
  13.   set CompVec to []
  14.   set the text of field "total" to the text of field "abc"
  15.   repeat with i = 123 to 127
  16.     set the text of field i of castLib "lists" to "[]"
  17.   end repeat
  18.   repeat with i = 15 to 23
  19.     puppetSprite(i, 0)
  20.   end repeat
  21.   repeat with i = 18 to 25
  22.   end repeat
  23.   repeat with i = 123 to 127
  24.     set the text of field i of castLib "lists" to "[]"
  25.   end repeat
  26.   set previous to []
  27.   set current to []
  28.   set OnceCheck to 0
  29.   set QueryFieldVec to ["alco", "non-alco", "other", "total"]
  30.   repeat with i = 1 to 4
  31.     set currField to getAt(QueryFieldVec, i)
  32.     set currScroll to getAt(ScrollVec, i)
  33.     if currField = "total" then
  34.       set the text of field ("query-" & currField) to line currScroll to currScroll + 10 of field currField
  35.       next repeat
  36.     end if
  37.     set the text of field ("query-" & currField) to line currScroll to currScroll + 4 of field currField
  38.     set the foreColor of member ("query-" & currField) to 204
  39.   end repeat
  40.   set the foreColor of member "query-how" to 204
  41.   set the foreColor of member "query-when" to 204
  42.   put the number of lines in field "total" into field "cocktail counter"
  43. end
  44.