home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00028_Script_28 < prev    next >
Text File  |  1995-11-13  |  3KB  |  93 lines
  1. global Again,gCount,gMax,SeleYama,gHuda¼
  2.   ,gMotihuda,gMotihudaA,gMotihudaB,gMotihudaC,gutasu
  3.  
  4. on enterFrame
  5.   HandUp AName
  6.   selectCard
  7.   puppetSound "turnover"
  8.   set the locH of sprite 48 = 180
  9.   set the locV of sprite 48 = 250
  10.   set the castNum of sprite 48 = gutasu + 200
  11.   updateStage
  12.   SelectYama
  13.   Yama
  14. end
  15.  
  16. on exitFrame
  17.   if gHuda = 8 then 
  18.     sound playFile 2, "\S_BZMKRI\CARD_C"
  19.     set gMotihudaA = gMotihudaA - 1
  20.     repeat while soundBusy(2)
  21.     end repeat
  22.     ChengeHuda
  23.   end if
  24.   
  25.   HanteiA
  26.   if gHuda = 7 then
  27.     sound playFile 2, "\S_BZMKRI\CARD_Y"
  28.     repeat while soundBusy(2)
  29.     end repeat
  30.     Itadaki AName
  31.     set gMotihudaA = gMotihudaA - 1
  32.     set the castNum of sprite 48 = 1000
  33.     updateStage
  34.     if gMotihuda = 0 and gMotihudaB = 0 and gMotihudaC = 0 then
  35.       nothing
  36.     else
  37.       if gMotihuda > gMotihudaB then
  38.         if gMotihuda > gMotihudaC then
  39.           set gMotihudaA = gMotihudaA + gMotihuda
  40.           set gMotihuda = 0
  41.           Zoom 16,8,5,1
  42.           put gMotihuda  && "±ß" into field"P"
  43.           set newRect = rect( 207 , 352 , 207 + gMotihuda , 379 )
  44.           set the rect of sprite 34 to newRect
  45.         else
  46.           set gMotihudaA = gMotihudaA + gMotihudaC
  47.           set gMotihudaC = 0
  48.           TakeItadaki CName
  49.           Zoom 16,7,5,1
  50.           put gMotihudaC && "±ß" into field"C"
  51.           set newRect = rect( 399 , 249 , 399 + gMotihudaC , 276 )
  52.           set the rect of sprite 33 to newRect
  53.         end if
  54.       else
  55.         if gMotihudaB > gMotihudaC then
  56.           set gMotihudaA = gMotihudaA + gMotihudaB
  57.           set gMotihudaB = 0
  58.           TakeItadaki BName
  59.           Zoom 16,6,5,1
  60.           put gMotihudaB && "±ß" into field"B"
  61.           set newRect = rect( 207 , 165 , 207 + gMotihudaB , 192 )
  62.           set the rect of sprite 32 to newRect
  63.         else
  64.           set gMotihudaA = gMotihudaA + gMotihudaC
  65.           set gMotihudaC = 0
  66.           TakeItadaki CName
  67.           Zoom 16,7,5,1
  68.           put gMotihudaC && "±ß" into field"C"
  69.           set newRect = rect( 399 , 249 , 399 + gMotihudaC , 276 )
  70.           set the rect of sprite 33 to newRect
  71.         end if
  72.       end if
  73.     end if
  74.   else
  75.     set the castNum of sprite 48 = 1000
  76.     wait 40
  77.     puppetSound "turnover"
  78.     updateStage
  79.   end if
  80.   
  81.   
  82.   if SeleYama = 1 and not(gHuda = 7) then Zoom 16,14,5,1
  83.   if SeleYama = 2 and not(gHuda = 7) then Zoom 16,15,5,1
  84.   set Again = 0
  85.   BaYama
  86.   
  87.   put gMotihudaA && "±ß" into field"A"
  88.   set newRect = rect( 15 , 249 , 15 + gMotihudaA , 276 )
  89.   set the rect of sprite 31 to newRect
  90.   Hyoji
  91.   CountCheck
  92.   PuppetSound 0
  93. end