home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00025_Script_25 < prev    next >
Text File  |  1995-11-13  |  2KB  |  61 lines
  1. on HanteiA
  2.   global Karuta,gHuda,gBahuda,gMax,gTeika,gTeika2,Syosya4,gCount¼
  3. ,gMotihuda,gMotihudaA,gMotihudaB,gMotihudaC,Again,gGyaku,gYasumiA
  4.   
  5.   set gMotihudaA = gMotihudaA + 1
  6.   put gCount + 1 into gCount
  7.   if gHuda = 2 then
  8.     if gBahuda = 0 then
  9.       set Again = 1
  10.     else
  11.       HimeGet AName
  12.       put gMotihudaA + gBahuda into gMotihudaA
  13.       set gBahuda = 0
  14.     end if
  15.   else
  16.     if gHuda = 3 then
  17.       BozuGet AName
  18.       put gBahuda + gMotihudaA into gBahuda
  19.       set gMotihudaA = 0
  20.     else
  21.       if gHuda = 4 then
  22.         sound playFile 2, "\S_BZMKRI\CARD_L"
  23.         repeat while soundBusy(2)
  24.           nothing
  25.         end repeat
  26.         Itadaki AName
  27.         set gMotihudaA = gMotihudaA - 1
  28.         set gTeika2 = -100
  29.         set Syosya4 = "╟å╟╗╟²"
  30.         TEIKA2
  31.       end if
  32.       if gHuda = 5 then
  33.         sound playFile 2, "\S_BZMKRI\CARD_R"
  34.         repeat while soundBusy(2)
  35.         end repeat
  36.         if gGyaku = 0 then
  37.           set gMotihudaA = gMotihudaA - 1
  38.           set gGyaku = 1
  39.         else
  40.           set gMotihudaA = gMotihudaA - 1
  41.           set gGyaku = 0
  42.         end if
  43.       end if
  44.     end if
  45.   end if
  46.   if gHuda = 6 then
  47.     sound playFile 2, "\S_BZMKRI\CARD_1"
  48.     repeat while soundBusy(2)
  49.     end repeat
  50.     YasumiGet AName
  51.     set gMotihudaA = gMotihudaA - 1
  52.     set gYasumiA = 1
  53.     PuppetSprite 44,TRUE
  54.     set the type of sprite 44 to 1
  55.     set the ink of sprite 44 to 36
  56.     set the castNum of sprite 44 to 89
  57.     set the locH of sprite 44 to 70
  58.     set the locV of sprite 44 to 162
  59.   end if
  60.   
  61. end