Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/library.dir/00120_Script_120

Text File | 1995-11-13 | 3KB | 76 lines

on startMovie
  global CUL,NoPoHV,kasira
  put "" into field"output"
  put ""&&"" into CUL
  put CUL into  field "CUL_NO"
  put " ╟½╟├Γ├╟¥╟«φT╟╡╟╝╟▌╟⌐┼H" into field"SELECTVIEW"
--  set the textFont of field "CUL_NO" to "osaka"
--  set the textStyle of field "CUL_NO" to "shadow"
--  set the textSize of field  "CUL_NO" to 12
--  set the textFont of field "output" to "╟l╟r ╔S╔V╔b╔N"
  --  put "" into field"output"
  put "" into karutaDB
  put "dž" into kasira
  put "" into sentakusi
  put "" into syurui
  put "10,475,29" into NoPoHV
  set CT = 0
  put "σⁿτªΩε" && CT into field "SARCH"
  repeat with s = 30 to 32
    puppetSprite s, FALSE
  end repeat
    put "" into field "KEYSELECT"
end

on Kensaku
  global karutaDB, kasira, sentakusi, syurui
  put "" into field"SELECTVIEW"
  put "" into field"output"
  put "┼u" & kasira & "┼v╟╝Θn╟ï╟╚" & syurui & "╟╝╟▌┼B"  after field"SELECTVIEW"
  put field"╔f┼[╔^╔x┼[╔X" into karutaDB
  if sentakusi = 2 then
    set CT = 0
    put "σⁿτªΩε" && CT into field "SARCH"
    repeat with n = 100 down to 1
      put line n of karutaDB into checkLine
      if Item sentakusi of checkLine starts kasira then
        set CT = CT + 1
        put Item 1 of checkLine && Item sentakusi of checkLine & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
        put "σⁿτªΩε" && CT into field "SARCH"
      end if
    end repeat
  else
    if sentakusi = 3 then
      set CT = 0
      put "σⁿτªΩε" && CT into field "SARCH"
      repeat with n = 100 down to 1
        put line n of karutaDB into checkLine
        if Item sentakusi of checkLine starts kasira then
          put Item 1 of checkLine && Item sentakusi of checkLine & "┼c┼@" & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
          set CT = CT + 1
          put "σⁿτªΩε" && CT into field "SARCH"
        end if
      end repeat
    else
      if sentakusi = 4 then
        set CT = 0
        put "σⁿτªΩε" && CT into field "SARCH"
        repeat with n = 100 down to 1
          put line n of karutaDB into checkLine
          if Item sentakusi of checkLine starts kasira then
            put Item 1 of checkLine && "┼c" & Item sentakusi of checkLine & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
            set CT = CT + 1
            put "σⁿτªΩε" && CT into field "SARCH"
          end if
        end repeat
      end if
    end if
  end if

end

on SARCHCUL

end