home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / chiebox2.dir / 00008_Script_8 < prev    next >
Text File  |  1995-11-10  |  1KB  |  45 lines

  1. global ChieList
  2. on startmovie
  3.  
  4.   repeat with n = 1 to 48 
  5.     set the visible of sprite n to TRUE
  6.   END REPEAT
  7.   
  8. --  set the textFont of field "CHIE_FIELD" = "╟l╟r ╔S╔V╔b╔N"
  9.   set the textSize of field "CHIE_FIELD" = 12
  10.   put empty into field "CHIE_FIELD" 
  11. --  set the textFont of field "ChieCount" ="╟l╟r ╔S╔V╔b╔N"
  12.   set the textSize of field "ChieCount" = 18
  13.   put empty into field "ChieCount" 
  14.   sort chielist
  15.   protCHIEline
  16. end 
  17. on protCHIEline
  18.   ChieCount
  19.   --  if count(ChieList) = 0 then
  20.   --    put "╟ï╟µφmσb╟Ö╟²╟ï╟í╟â╟ó╟ï╟■╟╥" into field "CHIE_FIELD"
  21.   --  else
  22.   repeat with i = count(ChieList) down to 1
  23.     set x = getAt(ChieList, i)
  24.     put x && ":" && (item 5 of line x of field "DATABASE") && "(" && (item 2 of line x of field "DATABASE")¼
  25. &")" & RETURN before field "CHIE_FIELD"
  26.   end repeat
  27.   --  end if
  28. end
  29. on put100
  30.   repeat with a = 1 to 18
  31.     add chielist,a
  32.   end repeat
  33. end
  34. on  checklineN
  35.   if the number of lines in field "CHIE_FIELD" > 20 then 
  36.     set the visible of sprite 3 = FALSE
  37.   ELSE 
  38.     nothing
  39.   end if
  40. end
  41. on ChieCount
  42.   set CT = count(ChieList)
  43.   put "σ¬τ¢" && CT && "φmσb" into field"ChieCount"
  44. end
  45.