home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00021_Script_21 < prev    next >
Text File  |  1995-11-13  |  1KB  |  38 lines
  1. on mouseUp
  2.   global Karuta,gHuda,gBahuda,gMax,gTeika,premium,gCount,gMotihuda¼
  3. ,gMotihudaA,gMotihudaB,gMotihudaC,Again
  4.   set gHuda = 0
  5.   set gBahuda = 0
  6.   set premium = 0
  7.   set gCount = 0
  8.   set gMotihuda = 0
  9.   set gMotihudaA = 0
  10.   set gMotihudaB = 0
  11.   set gMotihudaC = 0
  12.   set Again = 0
  13.   set karuta = [1:1,2:2,3:1,4:1,5:1,6:1,7:1,8:3,9:2,10:3,¼
  14.   11:1,12:3,13:1,14:1,15:1,16:1,17:1,18:1,19:2,20:1,¼
  15. 21:3, 22:1,23:1,24:1,25:1,26:1,27:1,28:1,29:1,30:1,¼
  16. 31:1,32:1,33:1,34:1,35:1,36:1,37:1,38:2,39:1,40:1,¼
  17. 41:1,42:1,43:1,44:1,45:1,46:1,47:3,48:1,49:1,50:1,¼
  18. 51:1,52:1,53:2,54:2,55:1,56:2,57:2,58:2,59:2,60:2,¼
  19. 61:2,62:2,63:1,64:1,65:2,66:3,67:2,68:1,69:3,70:3,¼
  20. 71:1,72:2,73:1,74:1,75:1,76:3,77:1,78:1,79:1,80:2,¼
  21. 81:1,82:3,83:1,84:1,85:3,86:3,87:3,88:2,89:2,90:2,¼
  22. 91:1,92:2,93:1,94:1,95:3,96:3,97:1,98:1,99:1,100:1,101:4]
  23.   puppetSprite 48,TRUE
  24.   set the castNum of sprite 48 = 1000
  25.   PuppetSprite 16,TRUE
  26.   set the type of sprite 16 = 0
  27.   set the type of sprite 15 = 1
  28.   set the castNum of sprite 15 = 54
  29.   put gMotihuda into field"P"
  30.   put gMotihudaA into field"A"
  31.   put gMotihudaB into field"B"
  32.   put gMotihudaC into field"C"
  33.   put "Φ═ΘD" && gBahuda into field"Φ═ΘD"
  34.   --put "Θc╟╦" && integer ( gMax - gCount ) && "±ß" into field"±ßΩε"
  35.   --put  gTeika into field"╔e╔C╔J"
  36.   put "" into field"ΦⁿΘô"
  37.   go to frame"roulette"
  38. end