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