Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/roudoku.dir/00020_Script_20

Text File | 1995-11-10 | 4KB | 116 lines

on startMovie
  global CUL,NoPoHV,kasira,karutaDB
  put ""&&"" into CUL
  put CUL into  field "CUL_NO"
  put "╟½╟├Γ├╟¥╟«φT╟╡╟╝╟▌╟⌐┼H" into field"SELECTVIEW"
  put " " into field"output"
  SET THE TEXTFONT OF FIELD"output" = "╟l╟r ╔S╔V╔b╔N"
  put " " into field"output"
  put " " into karutaDB
  put "dž" into kasira
  put "" into sentakusi
  put "" into syurui
  put "123,475,29" into NoPoHV
  set CT = 0
  put "σⁿτªΩε" && CT into field "SARCH"
  repeat with s = 30 to 32
    puppetSprite s, FALSE
  end repeat

end

--on idle
--  if soundBusy(2) = 1 then nothing
--  else sound playfile 2, "50S_M"
--end

on Kensaku
  global karutaDB, kasira, sentakusi, syurui
  put "" into field"SELECTVIEW"
  put " " into field"output"
  SET THE TEXTFONT OF CAST 25 = "╟l╟r ╔S╔V╔b╔N"
  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
  SET THE TEXTFONT OF FIELD"output" = "╟l╟r ╔S╔V╔b╔N"
end

on MARKBUTTON
  global NoPoHV
  puppetSprite 28, true
  set the castNum of sprite 28 = integer(item 1 of NoPoHV)
  set the locH of sprite 28 = integer(item 2 of NoPoHV)
  set the locV of sprite 28 = integer(item 3 of NoPoHV)
end
on MARKBUTTON2
  global syurui
  if syurui = "Γ├Ωl" then
    puppetSprite 9, true
    set the castNum of sprite 9 = 221
    set the locH of sprite 9 = 66
    set the locV of sprite 9 = 65
  else
    if syurui = "Φä╟├π┬╟├Γ├" then
      puppetSprite 9, true
      set the castNum of sprite 9 = 223
      set the locH of sprite 9 = 66
      set the locV of sprite 9 = 103
    else
      if syurui = "Γè╟├π┬╟├Γ├" then
        puppetSprite 9, true
        set the castNum of sprite 9 = 225
        set the locH of sprite 9 = 66
        set the locV of sprite 9 = 141
      end if
    end if
  end if
end

on ShortCut
  cursor 283
  updateStage
  set the mouseDownScript = Empty
  repeat while the stillDown
  end repeat
  cursor -1
  updateStage
  go to marker(1)
end