home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00024_Script_24 < prev    next >
Text File  |  1995-11-10  |  2KB  |  96 lines
  1. on SelectC
  2.   global gUtasu,gSyurui,HC1,HC2,HC3,HC4,HC5,gHCAll
  3.   set HC1 = [:]
  4.   selectCard2
  5.   addProp HC1,gUtasu,gSyurui
  6.   set HC2 = [:]
  7.   selectCard2
  8.   addProp HC2,gUtasu,gSyurui
  9.   set HC3 = [:]
  10.   selectCard2
  11.   addProp HC3,gUtasu,gSyurui
  12.   set HC4 = [:]
  13.   selectCard2
  14.   addProp HC4,gUtasu,gSyurui
  15.   set HC5 = [:]
  16.   selectCard2
  17.   addProp HC5,gUtasu,gSyurui
  18.   set gHCAll = [HC1,HC2,HC3,HC4,HC5]
  19. end
  20.  
  21. on PlaceCardC X, SP
  22.   global Karuta,gMax,gTeika,premium,gCount,gHudaP,gHudaC,gCastPlus
  23.   set gTemoti = getPropAT(gHudaC,X)
  24.   set the castNum of sprite SP = gTemoti + gCastPlus
  25.   wait 5
  26.   updateStage
  27. end
  28.  
  29. on HeldCardC
  30.   global gHeldHudaC
  31.   set gHeldHudaC = [20,21,22,23,24]
  32.   set HCCCt = random(6) - 1
  33.   repeat with i =1 to HCCCt
  34.     set listct = count(gHeldHudaC)
  35.     set dtct = random(listct)
  36.     set HeldSP = getAT(gHeldHudaC,dtct)
  37.     deleteAT gHeldHudaC, dtct
  38.     PuppetSprite HeldSP,FALSE
  39.     updateStage
  40.   end repeat
  41. end
  42.  
  43. on ChangeCardC
  44.   global gUtasu,gSyurui,HC1,HC2,HC3,HC4,HC5,gHCAll,gHudaC
  45.   if the puppet of sprite 20 = FALSE then
  46.     set HC1 = [:]
  47.     selectCard2
  48.     HeldCardC
  49.     addProp HC1,gUtasu,gSyurui
  50.   end if
  51.   if the puppet of sprite 21 = FALSE then
  52.     set HC2 = [:]
  53.     selectCard2
  54.     HeldCardC
  55.     addProp HC2,gUtasu,gSyurui
  56.   end if
  57.   if the puppet of sprite 22 = FALSE then
  58.     set HC3 = [:]
  59.     selectCard2
  60.     HeldCardC
  61.     addProp HC3,gUtasu,gSyurui
  62.   end if
  63.   if the puppet of sprite 23 = FALSE then
  64.     set HC4 = [:]
  65.     selectCard2
  66.     HeldCardC
  67.     addProp HC4,gUtasu,gSyurui
  68.   end if
  69.   if the puppet of sprite 24 = FALSE then
  70.     set HC5 = [:]
  71.     selectCard2
  72.     HeldCardC
  73.     addProp HC5,gUtasu,gSyurui
  74.   end if
  75.   set gHudaC = [:]
  76.   set gHCAll = [HC1,HC2,HC3,HC4,HC5]
  77.   repeat with gHCAll2 in gHCAll
  78.     set gUtasu = getPropAT(gHCAll2,1)
  79.     set gSyurui = getAT(gHCAll2,1)
  80.     addProp gHudaC, gUtasu, gSyurui
  81.   end repeat
  82. end
  83.  
  84. on ChangeHudaC
  85.   global gHudaC,gCastPlus
  86.   repeat with i = 1 to 5
  87.     set Utasu =getPropAT(gHudaC,i)
  88.     set SP = i + 9
  89.     
  90.     set the castNum of sprite SP = Utasu + gCastPlus
  91.     Mekuru SP
  92.     updateStage
  93.     wait 10
  94.   end repeat
  95. end
  96.