home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00005_Script_5 < prev    next >
Text File  |  1995-11-13  |  2KB  |  92 lines
  1. on SelectCard
  2.   global Karuta,gutasu,gHuda,gBahuda,gMax,gTeika,premium,gCount,gMotihuda,dtct
  3.   set listct = count(karuta)
  4.   set dtct = random(listct)
  5.   set gutasu = getPropAt(karuta,dtct)
  6.   set gHuda = getAt(karuta,dtct)
  7.   deleteAt karuta,dtct
  8. end
  9.  
  10. on Hantei
  11.   global Karuta,gHuda,gBahuda,gMax,gTeika,gTeika2,gCount,¼
  12. gMotihuda,Again,gGyaku,gYasumiP
  13.   
  14.   set gMotihuda = gMotihuda + 1
  15.   put gCount + 1 into gCount
  16.   if gHuda = 2 then
  17.     if gBahuda = 0 then
  18.       set Again = 1
  19.     else
  20.       PgetHime
  21.       put gMotihuda + gBahuda into gMotihuda
  22.       set gBahuda = 0
  23.       PuppetSprite 16,TRUE
  24.       set the type of sprite 16 = 0
  25.     end if
  26.   else
  27.     if gHuda = 3 then
  28.       PgetBozu
  29.       put gBahuda + gMotihuda into gBahuda
  30.       set gMotihuda = 0
  31.     else
  32.       if gHuda = 4 then
  33.         sound playFile 2, "\S_BZMKRI\CARD_L"
  34.         repeat while soundBusy(2)
  35.           nothing
  36.         end repeat
  37.         set gMotihuda = gMotihuda - 1
  38.         set gTeika2 = 100
  39.         TEIKA2
  40.       end if
  41.       if gHuda = 5 then
  42.         sound playFile 2, "\S_BZMKRI\CARD_R"
  43.         repeat while soundBusy(2)
  44.         end repeat
  45.         if gGyaku = 0 then
  46.           set gMotihuda = gMotihuda - 1
  47.           set gGyaku = 1
  48.         else
  49.           set gMotihuda = gMotihuda - 1
  50.           set gGyaku = 0
  51.         end if
  52.       end if
  53.     end if
  54.   end if
  55.   if gHuda = 6 then
  56.     sound playFile 2, "\S_BZMKRI\CARD_1"
  57.     repeat while soundBusy(2)
  58.     end repeat
  59.     set gMotihuda = gMotihuda - 1
  60.     set gYasumiP = 1
  61.     PuppetSprite 47,TRUE
  62.     set the type of sprite 47 to 1
  63.     set the ink of sprite 47 to 36
  64.     set the castNum of sprite 47 to 89
  65.     set the locH of sprite 47 to 256
  66.     set the locV of sprite 47 to 350
  67.   end if
  68.   
  69. end
  70.  
  71. on Hyoji
  72.   global gMax,gCount
  73.   
  74.   if gMax - gCount <= 10 then
  75.     put "Θc╟╦" && integer ( gMax - gCount ) && "±ß" into field"±ßΩε"
  76.     set the textSize of field "±ßΩε" = 24
  77.     set the textStyle of field "±ßΩε" = "bold"
  78.   end if
  79. end
  80.  
  81. on CountCheck
  82.   global gMax,gCount
  83.   if gCount >= gMax then
  84.     go to frame"Φⁿεs"
  85.   else
  86.     go to the frame + 1
  87.   end if
  88.   updateStage
  89. end
  90.  
  91.  
  92.