home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00001_Script_1 next >
Text File  |  1995-11-10  |  3KB  |  116 lines
  1. on StartMovie
  2.   global Karuta,gMax,gTeika,premium,gCount,¼
  3. gHudaP,gCastPlus,Boze,Hime,Tono,Yakulist,Plus
  4.   set gMax = 5
  5.   --set gTeika = 0
  6.   set premium = 0
  7.   set gCount = 0
  8.   set gHudaP = [:]
  9.   set Plus = 700
  10.   --set gCastPlus = 100
  11.   set Boze = [8:3,10:3,12:3,21:3,47:3,66:3,69:3,70:3,¼
  12. 76:3,82:3,85:3,86:3,87:3,95:3,96:3]
  13.   set Hime = [2:2,9:2,19:2,38:2,53:2,54:2,55:1,56:2,57:2,¼
  14. 58:2,59:2,60:2,61:2,62:2,65:2,67:2,72:2,80:2,88:2,89:2,90:2,92:2]
  15.   set Tono = [1:1,3:1,4:1,5:1,6:1,7:1,11:1,13:1,14:1,15:1,16:1,17:1,18:1,¼
  16. 20:1,22:1,23:1,24:1,25:1,26:1,27:1,28:1,29:1,30:1,31:1,32:1,33:1,34:1,¼
  17. 35:1,36:1,37:1,39:1,40:1,41:1,42:1,43:1,44:1,45:1,46:1,48:1,49:1,50:1,¼
  18. 51:1,52:1,55:1,63:1,64:1,68:1,71:1,73:1,74:1,75:1,77:1,78:1,79:1,81:1,¼
  19. 83:1,84:1,91:1,93:1,94:1,97:1,98:1,99:1,100:1]
  20.   set karuta = [101:4]
  21.   
  22.   set Yakulist = [700:#±VΘ┬,600:#∩P,500:#∞a,400:#±VΘ┬,300:#∩P,200:#∞a,¼
  23. 100:#±VΘ┬,90:#∩P,80:#∞a,40:#±VΘ┬,30:#∩P,20:#∞a]
  24.   
  25.   repeat with i = 15 to 24
  26.     PuppetSprite i,TRUE
  27.     set the type of sprite i = 0
  28.   end repeat
  29.   
  30.   put  gTeika into field"╔e╔C╔J"
  31.   --put "" into field"ΦⁿΘô"
  32.   
  33.   repeat with SP = 5 to 31
  34.     set the visible of sprite SP = 1
  35.   end repeat
  36.   set the visible of sprite 43 = 1
  37.   put " " into field"±¥"
  38.   put " " into field"±¥2"
  39.   put " " into field"±¥╟P╔e╔C╔J"
  40.   put " " into field"±¥╟Q╔e╔C╔J"
  41.   put " " into field"±¥╟P╔e╔C╔J2"
  42.   put " " into field"±¥╟Q╔e╔C╔J2"
  43. end 
  44.  
  45. on PuppetTRUE X,Y
  46.   repeat with i = X to Y
  47.     PuppetSprite i,TRUE
  48.   end repeat
  49. end
  50.  
  51. on PuppetFALSE X,Y
  52.   repeat with i = X to Y
  53.     PuppetSprite i,FALSE
  54.   end repeat
  55. end
  56.  
  57. on TEIKA
  58.   global gTeika,gTeika2,gTeika3
  59.   set gTeika3 = gTeika
  60.   Sound playFile 2,"\S_POKALT\COIN"
  61.   if abs(gTeika2) > 1000 then
  62.     set gKake2 = 100
  63.   else
  64.     if abs(gTeika2) <= 1000 and abs(gTeika2) > 100 then
  65.       set gKake2 = 10
  66.     else
  67.       if abs(gTeika2) <= 100 then
  68.         set gKake2 = 1
  69.       end if
  70.     end if
  71.   end if
  72.   
  73.   repeat with Money = 1 to abs(gTeika2) / gKake2
  74.     tell the stage
  75.       if gTeika < 0 then
  76.         set gTeika = 0
  77.         set gTeika3 = 0
  78.         put gTeika into field"╔e╔C╔J"
  79.         exit repeat
  80.       else
  81.         if gTeika2 > 0 then
  82.           set gTeika3 = gTeika + Money * gKake2
  83.           put gTeika3 into field"╔e╔C╔J"
  84.         else
  85.           if gTeika2 = 0 then
  86.             set gTeika3 = gTeika
  87.             exit repeat
  88.           else
  89.             if gTeika2 < 0 then
  90.               set gTeika3 = gTeika - Money * gKake2
  91.               if gTeika3 < 0 then
  92.                 set gTeika3 = 0
  93.                 put gTeika3 into field"╔e╔C╔J"
  94.                 exit repeat
  95.               end if
  96.               put gTeika3 into field"╔e╔C╔J"
  97.             end if
  98.           end if
  99.         end if
  100.       end if
  101.     end tell
  102.   end repeat
  103.   
  104.   Sound playFile 2,"\S_POKALT\MONEY_"
  105.   set gTeika = gTeika3
  106.   set gTeika2 = 0
  107.   
  108. end
  109.  
  110. on wait t
  111.   put the ticks + t into endTime
  112.   repeat while the ticks <= endTime
  113.     nothing
  114.   end repeat
  115. end
  116.