home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00044_Script_44 < prev    next >
Text File  |  1995-11-10  |  1KB  |  45 lines
  1. global gCharaNum
  2. on enterFrame
  3.   puppetSprite 2,TRUE
  4.   if gCharaNum = 1 then
  5.     set the castNum of sprite 2 = 701
  6.   else
  7.     if gCharaNum = 2 then
  8.       set the castNum of sprite 2 = 741
  9.     else
  10.       if gCharaNum = 3 then
  11.         set the castNum of sprite 2 = 781
  12.       end if
  13.     end if
  14.   end if
  15.   updateStage
  16.  
  17.   repeat with SP = 10 to 14
  18.     set the visible of sprite SP = 1
  19.     updateStage
  20.   end repeat
  21. end
  22.  
  23. on exitFrame
  24.   global karuta
  25.   set karuta = [1:1,2:2,3:1,4:1,5:1,6:1,7:1,8:3,9:2,10:3,¼
  26.   11:1,12:3,13:1,14:1,15:1,16:1,17:1,18:1,19:2,20:1,¼
  27. 21:3, 22:1,23:1,24:1,25:1,26:1,27:1,28:1,29:1,30:1,¼
  28. 31:1,32:1,33:1,34:1,35:1,36:1,37:1,38:2,39:1,40:1,¼
  29. 41:1,42:1,43:1,44:1,45:1,46:1,47:3,48:1,49:1,50:1,¼
  30. 51:1,52:1,53:2,54:2,55:1,56:2,57:2,58:2,59:2,60:2,¼
  31. 61:2,62:2,63:1,64:1,65:2,66:3,67:2,68:1,69:3,70:3,¼
  32. 71:1,72:2,73:1,74:1,75:1,76:3,77:1,78:1,79:1,80:2,¼
  33. 81:1,82:3,83:1,84:1,85:3,86:3,87:3,88:2,89:2,90:2,¼
  34. 91:1,92:2,93:1,94:1,95:3,96:3,97:1,98:1,99:1,100:1,101:4]
  35.   play frame"Kubaru.2"
  36.   play frame"HP1.2"
  37.   play frame"HP2.2"
  38.   play frame"HP3.2"
  39.   play frame"HP4.2"
  40.   play frame"HP5.2"
  41.   SelectC
  42.   
  43.   go to frame"Held.2"
  44.   
  45. end