home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library2.dir / 00120_Script_120 < prev    next >
Text File  |  1995-11-13  |  2KB  |  74 lines
  1. on startMovie
  2.   global CUL,NoPoHV,kasira
  3.   put ""&&"" into CUL
  4.   put CUL into  field "CUL_NO"
  5.   put " ╟½╟├Γ├╟¥╟«φT╟╡╟╝╟▌╟⌐┼H" into field"SELECTVIEW"
  6.   set the textFont of field "CUL_NO" to "OSAKA"
  7.   set the textStyle of field "CUL_NO" to "shadow"
  8.   set the textSize of field  "CUL_NO" to 12
  9.   put "" into field"output"
  10.   put "" into karutaDB
  11.   put "╟å" into kasira
  12.   put "" into sentakusi
  13.   put "" into syurui
  14.   put "10,475,29" into NoPoHV
  15.   set CT = 0
  16.   put "σⁿτªΩε" && CT into field "SARCH"
  17.   repeat with s = 30 to 32
  18.     puppetSprite s, FALSE
  19.   end repeat
  20.   
  21. end
  22.  
  23. on Kensaku
  24.   global karutaDB, kasira, sentakusi, syurui
  25.   put "" into field"SELECTVIEW"
  26.   put "" into field"output"
  27.   put "┼u" & kasira & "┼v╟╝Θn╟ï╟╚" & syurui & "╟╝╟▌┼B"  after field"SELECTVIEW"
  28.   put field"╔f┼[╔^╔x┼[╔X" into karutaDB
  29.   if sentakusi = 2 then
  30.     set CT = 0
  31.     put "σⁿτªΩε" && CT into field "SARCH"
  32.     repeat with n = 100 down to 1
  33.       put line n of karutaDB into checkLine
  34.       if Item sentakusi of checkLine starts kasira then
  35.         set CT = CT + 1
  36.         put Item 1 of checkLine && Item sentakusi of checkLine & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
  37.         put "σⁿτªΩε" && CT into field "SARCH"
  38.       end if
  39.     end repeat
  40.   else
  41.     if sentakusi = 3 then
  42.       set CT = 0
  43.       put "σⁿτªΩε" && CT into field "SARCH"
  44.       repeat with n = 100 down to 1
  45.         put line n of karutaDB into checkLine
  46.         if Item sentakusi of checkLine starts kasira then
  47.           put Item 1 of checkLine && Item sentakusi of checkLine & "┼c┼@" & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
  48.           set CT = CT + 1
  49.           put "σⁿτªΩε" && CT into field "SARCH"
  50.         end if
  51.       end repeat
  52.     else
  53.       if sentakusi = 4 then
  54.         set CT = 0
  55.         put "σⁿτªΩε" && CT into field "SARCH"
  56.         repeat with n = 100 down to 1
  57.           put line n of karutaDB into checkLine
  58.           if Item sentakusi of checkLine starts kasira then
  59.             put Item 1 of checkLine && "┼c" & Item sentakusi of checkLine & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
  60.             set CT = CT + 1
  61.             put "σⁿτªΩε" && CT into field "SARCH"
  62.           end if
  63.         end repeat
  64.       end if
  65.     end if
  66.   end if
  67.   
  68. end
  69.  
  70. on SARCHCUL
  71.   
  72. end
  73.  
  74.