home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / roudoku.dir / 00020_Script_20 < prev    next >
Text File  |  1995-11-10  |  4KB  |  116 lines

  1. on startMovie
  2.   global CUL,NoPoHV,kasira,karutaDB
  3.   put ""&&"" into CUL
  4.   put CUL into  field "CUL_NO"
  5.   put "╟½╟├Γ├╟¥╟«φT╟╡╟╝╟▌╟⌐┼H" into field"SELECTVIEW"
  6.   put " " into field"output"
  7.   SET THE TEXTFONT OF FIELD"output" = "╟l╟r ╔S╔V╔b╔N"
  8.   put " " into field"output"
  9.   put " " into karutaDB
  10.   put "╟å" into kasira
  11.   put "" into sentakusi
  12.   put "" into syurui
  13.   put "123,475,29" into NoPoHV
  14.   set CT = 0
  15.   put "σⁿτªΩε" && CT into field "SARCH"
  16.   repeat with s = 30 to 32
  17.     puppetSprite s, FALSE
  18.   end repeat
  19.   
  20. end
  21.  
  22. --on idle 
  23. --  if soundBusy(2) = 1 then nothing
  24. --  else sound playfile 2, "50S_M"
  25. --end
  26.  
  27. on Kensaku
  28.   global karutaDB, kasira, sentakusi, syurui
  29.   put "" into field"SELECTVIEW"
  30.   put " " into field"output"
  31.   SET THE TEXTFONT OF CAST 25 = "╟l╟r ╔S╔V╔b╔N"
  32.   put "┼u" & kasira & "┼v╟╝Θn╟ï╟╚" & syurui & "╟╝╟▌┼B"  after field"SELECTVIEW"
  33.   put field"╔f┼[╔^╔x┼[╔X" into karutaDB
  34.   if sentakusi = 2 then
  35.     set CT = 0
  36.     put "σⁿτªΩε" && CT into field "SARCH"
  37.     repeat with n = 100 down to 1
  38.       put line n of karutaDB into checkLine
  39.       if Item sentakusi of checkLine starts kasira then
  40.         set CT = CT + 1
  41.         put Item 1 of checkLine && Item sentakusi of checkLine & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
  42.         put "σⁿτªΩε" && CT into field "SARCH"
  43.       end if
  44.     end repeat
  45.   else
  46.     if sentakusi = 3 then
  47.       set CT = 0
  48.       put "σⁿτªΩε" && CT into field "SARCH"
  49.       repeat with n = 100 down to 1
  50.         put line n of karutaDB into checkLine
  51.         if Item sentakusi of checkLine starts kasira then
  52.           put Item 1 of checkLine && Item sentakusi of checkLine & "┼c┼@" & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
  53.           set CT = CT + 1
  54.           put "σⁿτªΩε" && CT into field "SARCH"
  55.         end if
  56.       end repeat
  57.     else
  58.       if sentakusi = 4 then
  59.         set CT = 0
  60.         put "σⁿτªΩε" && CT into field "SARCH"
  61.         repeat with n = 100 down to 1
  62.           put line n of karutaDB into checkLine
  63.           if Item sentakusi of checkLine starts kasira then
  64.             put Item 1 of checkLine && "┼c" & Item sentakusi of checkLine & RETURN & "┼@┼@┼@┼@" & Item 5 of checkLine & RETURN before field"output"
  65.             set CT = CT + 1
  66.             put "σⁿτªΩε" && CT into field "SARCH"
  67.           end if
  68.         end repeat
  69.       end if
  70.     end if
  71.   end if
  72.   SET THE TEXTFONT OF FIELD"output" = "╟l╟r ╔S╔V╔b╔N"
  73. end
  74.  
  75. on MARKBUTTON 
  76.   global NoPoHV
  77.   puppetSprite 28, true
  78.   set the castNum of sprite 28 = integer(item 1 of NoPoHV)
  79.   set the locH of sprite 28 = integer(item 2 of NoPoHV)
  80.   set the locV of sprite 28 = integer(item 3 of NoPoHV) 
  81. end
  82. on MARKBUTTON2 
  83.   global syurui 
  84.   if syurui = "Γ├Ωl" then
  85.     puppetSprite 9, true
  86.     set the castNum of sprite 9 = 221
  87.     set the locH of sprite 9 = 66
  88.     set the locV of sprite 9 = 65
  89.   else
  90.     if syurui = "Φä╟├π┬╟├Γ├" then
  91.       puppetSprite 9, true
  92.       set the castNum of sprite 9 = 223
  93.       set the locH of sprite 9 = 66
  94.       set the locV of sprite 9 = 103
  95.     else
  96.       if syurui = "Γè╟├π┬╟├Γ├" then
  97.         puppetSprite 9, true
  98.         set the castNum of sprite 9 = 225
  99.         set the locH of sprite 9 = 66
  100.         set the locV of sprite 9 = 141
  101.       end if
  102.     end if
  103.   end if  
  104. end
  105.  
  106. on ShortCut
  107.   cursor 283
  108.   updateStage
  109.   set the mouseDownScript = Empty
  110.   repeat while the stillDown
  111.   end repeat
  112.   cursor -1
  113.   updateStage
  114.   go to marker(1)
  115. end
  116.