Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/chiebox2.dir/00008_Script_8

Text File | 1995-11-10 | 1KB | 45 lines

global ChieList
on startmovie

  repeat with n = 1 to 48
    set the visible of sprite n to TRUE
  END REPEAT

--  set the textFont of field "CHIE_FIELD" = "╟l╟r ╔S╔V╔b╔N"
  set the textSize of field "CHIE_FIELD" = 12
  put empty into field "CHIE_FIELD"
--  set the textFont of field "ChieCount" ="╟l╟r ╔S╔V╔b╔N"
  set the textSize of field "ChieCount" = 18
  put empty into field "ChieCount"
  sort chielist
  protCHIEline
end
on protCHIEline
  ChieCount
  --  if count(ChieList) = 0 then
  --    put "╟ï╟µφmσb╟Ö╟²╟ï╟í╟â╟ó╟ï╟■╟╥" into field "CHIE_FIELD"
  --  else
  repeat with i = count(ChieList) down to 1
    set x = getAt(ChieList, i)
    put x && ":" && (item 5 of line x of field "DATABASE") && "(" && (item 2 of line x of field "DATABASE")¼
&")" & RETURN before field "CHIE_FIELD"
  end repeat
  --  end if
end
on put100
  repeat with a = 1 to 18
    add chielist,a
  end repeat
end
on  checklineN
  if the number of lines in field "CHIE_FIELD" > 20 then
    set the visible of sprite 3 = FALSE
  ELSE
    nothing
  end if
end
on ChieCount
  set CT = count(ChieList)
  put "σ¬τ¢" && CT && "φmσb" into field"ChieCount"
end