home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00027_Script_27 < prev    next >
Text File  |  1995-11-13  |  2KB  |  61 lines
  1. on HanteiC
  2.   global Karuta,gHuda,gBahuda,gMax,gTeika,gTeika2,Syosya4,gCount¼
  3. ,gMotihuda,gMotihudaA,gMotihudaB,gMotihudaC,Again,gGyaku,gYasumiC
  4.   
  5.   set gMotihudaC = gMotihudaC + 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 CName
  12.       put gMotihudaC + gBahuda into gMotihudaC
  13.       set gBahuda = 0
  14.     end if
  15.   else
  16.     if gHuda = 3 then
  17.       BozuGet CName
  18.       put gBahuda + gMotihudaC into gBahuda
  19.       set gMotihudaC = 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 CName
  27.         set gMotihudaC = gMotihudaC - 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 gMotihudaC = gMotihudaC - 1
  38.           set gGyaku = 1
  39.         else
  40.           set gMotihudaC = gMotihudaC - 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 CName
  51.     set gMotihudaC = gMotihudaC - 1
  52.     set gYasumiC = 1
  53.     PuppetSprite 46,TRUE
  54.     set the type of sprite 46 to 1
  55.     set the ink of sprite 46 to 36
  56.     set the castNum of sprite 46 to 89
  57.     set the locH of sprite 46 to 442
  58.     set the locV of sprite 46 to 162
  59.   end if
  60.   
  61. end