home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00004_Script_4 < prev    next >
Text File  |  1995-11-13  |  3KB  |  94 lines
  1. on StartMovie
  2.   global Karuta,gHuda,gBahuda,gMax,gTeika2,gCount,gMotihuda¼
  3. ,gMotihudaA,gMotihudaB,gMotihudaC,Again,gLeftCT,gRightCT,gLeftMax,¼
  4. gRightMax,gGyaku,gYasumiP,gYasumiA,gYasumiB,gYasumiC,gChangeP
  5.   
  6.   set gMax = 114
  7.   set gLeftMax = 0
  8.   set gRightMax = 0
  9.   set gHuda = 0
  10.   set gBahuda = 0
  11.   set gTeika2 = 0
  12.   set gCount = 0
  13.   set gLeftCT = 0
  14.   set gRightCT = 0
  15.   set gMotihuda = 0
  16.   set gMotihudaA = 0
  17.   set gMotihudaB = 0
  18.   set gMotihudaC = 0
  19.   set gGyaku = 0
  20.   set gYasumiP = 0
  21.   set gYasumiA = 0
  22.   set gYasumiB = 0
  23.   set gYasumiC = 0
  24.   set Again = 0
  25.   set gChangeP = 0
  26.   set karuta = [1:1,2:2,3:1,4:1,5:1,6:1,7:1,8:3,9:2,10:3,¼
  27.   11:1,12:3,13:1,14:1,15:1,16:1,17:1,18:1,19:2,20:1,¼
  28. 21:3, 22:1,23:1,24:1,25:1,26:1,27:1,28:1,29:1,30:1,¼
  29. 31:1,32:1,33:1,34:1,35:1,36:1,37:1,38:2,39:1,40:1,¼
  30. 41:1,42:1,43:1,44:1,45:1,46:1,47:3,48:1,49:1,50:1,¼
  31. 51:1,52:1,53:2,54:2,55:1,56:2,57:2,58:2,59:2,60:2,¼
  32. 61:2,62:2,63:1,64:1,65:2,66:3,67:2,68:1,69:3,70:3,¼
  33. 71:1,72:2,73:1,74:1,75:1,76:3,77:1,78:1,79:1,80:2,¼
  34. 81:1,82:3,83:1,84:1,85:3,86:3,87:3,88:2,89:2,90:2,¼
  35. 91:1,92:2,93:1,94:1,95:3,96:3,97:1,98:1,99:1,100:1,¼
  36. 101:4,101:4,102:5,102:5,102:5,103:6,103:6,103:6¼
  37. ,104:7,104:7,104:7,105:8,105:8,105:8]
  38.   puppetSprite 48,TRUE
  39.   set the castNum of sprite 48 = 1000
  40.   puppetSprite 14,TRUE
  41.   puppetSprite 15,TRUE
  42.   set the visible of sprite 14 = 1
  43.   set the visible of sprite 15 = 1
  44.   PuppetSprite 16,TRUE
  45.   set the type of sprite 16 = 0
  46.   set the type of sprite 14 = 1
  47.   set the castNum of sprite 14 = 64
  48.   set the type of sprite 15 = 1
  49.   set the castNum of sprite 15 = 54
  50.   put gMotihuda  && "±ß" into field"P"
  51.   put gMotihudaA  && "±ß" into field"A"
  52.   put gMotihudaB  && "±ß" into field"B"
  53.   put gMotihudaC  && "±ß" into field"C"
  54.   put "Φ═ΘD" && gBahuda into field"Φ═ΘD"
  55.   put " " into field"±ßΩε"
  56.   set the textSize of field "ΦⁿΘô" = 30
  57.   set the textHeight of field "ΦⁿΘô" = 37
  58.   set the textStyle of field "ΦⁿΘô" = "bold"
  59.   put " " into field"ΦⁿΘô"
  60.   set the textSize of field "∞µ∞_" = 26
  61.   set the textHeight of field "∞µ∞_" = 37
  62.   set the textStyle of field "∞µ∞_" = "bold"
  63.   put " " into field"∞µ∞_"
  64.   puppetSprite 31,TRUE
  65.   set the rect of sprite 31 = rect( 15 , 249  , 15 , 276 )
  66.   puppetSprite 32,TRUE
  67.   set the rect of sprite 32 = rect( 207 , 165 , 207 , 192 )
  68.   puppetSprite 33,TRUE
  69.   set the rect of sprite 33 = rect( 399 , 249 , 399 , 276 )
  70.   puppetSprite 34,TRUE
  71.   set the rect of sprite 34 = rect(  207 , 352 , 207 , 379 )
  72.   Hyoji
  73.   set gLeftMax = gMax / 2
  74.   set gRightMax = gMax - gLeftMax
  75.   repeat with i = 44 to 47
  76.     PuppetSprite i,FALSE
  77.   end repeat
  78.   repeat with i = 18 to 20
  79.     set the visible of sprite i = 0
  80.   end repeat
  81.   
  82.   updateStage
  83.   sound playfile 2,"\S_GAMEYA\UNDAMESI"
  84. end
  85.  
  86. on stopMovie
  87.   repeat with SP = 1 to 39
  88.     set the visible of sprite SP = 1
  89.   end repeat
  90.   repeat with SP = 45 to 48
  91.     set the visible of sprite SP = 1
  92.   end repeat
  93. end
  94.