home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / finetown.dir / 00001_Script_1 next >
Text File  |  1995-11-10  |  3KB  |  130 lines
  1. global Dis, moveSPlist,wari,dis2,T,LandOnOK,wari2,gFineSky,┬
  2. gMapPosH,gMapPosV,gCDPosH,gCDPosV,gCDCastNum
  3.  
  4. on startMovie
  5.   repeat with SP= 14 to 22
  6.     set the visible of sprite SP = 0
  7.   end repeat
  8.   
  9.   set T = 0
  10.   set Dis = 10
  11.   set dis2 = Dis
  12.   set wari = 1.2
  13.   set wari2 = 1.7
  14.   set LandOnOK = 0
  15.   --  set gMapPosH = 256
  16.   --  set gMapPosV = 192
  17.   --  set gCDPosH = 250
  18.   --  set gCDPosV = 262
  19.   --  set gCDCastNum = 35
  20.   --    set gFineSky =1
  21.   --  sound playfile 2,"Flying"
  22.   set the volume of sound 1 = 50
  23.   PuppetSound "Flying"
  24.   
  25.   puppetSprite 24,TRUE
  26.   puppetSprite 25,TRUE
  27.   set the locH of sprite 24 = gCDPosH
  28.   set the locV of sprite 24 = gCDPosV
  29.   set the castNum of sprite 24 = gCDCastNum + 8
  30.   set the locH of sprite 25 = gCDPosH + 6
  31.   set the locV of sprite 25 = gCDPosV - 70
  32.   set the castNum of sprite 25 = gCDCastNum
  33.   
  34.   set moveSPlist = [2,4,5,6,7,8,9,10,11,14,15,16,17,18,19,20,21]
  35.   
  36.   set the keyDownScript = "keyCheck"
  37. end
  38.  
  39. on stopMovie
  40.   repeat with moveSP in moveSPlist
  41.     puppetSprite moveSP,FALSE
  42.   end repeat
  43.   repeat with SP= 14 to 22
  44.     set the visible of sprite SP = 0
  45.   end repeat
  46.   set the keyDownScript = ""
  47.   set the volume of sound 1 = 255
  48.   set the volume of sound 2 = 255
  49. end
  50.  
  51. on idle
  52.   --  if not soundBusy(1) then
  53.   --    PuppetSound "Flying"
  54.   --  end if 
  55. end
  56.  
  57.  
  58. on left 
  59.   set the castNum of sprite 25 to 32
  60.   set the castNum of sprite 24 to 40
  61.   repeat with moveSP in moveSPlist
  62.     set the locH of sprite moveSP to the locH of sprite moveSP + Dis
  63.   end repeat
  64.   if the locH of sprite 2 > 600 then
  65.     repeat with moveSP in moveSPlist
  66.       set the locH of sprite moveSP = 600
  67.     end repeat
  68.     leftCD
  69.   end if
  70.   if the locH of sprite 25 > 256 then
  71.     leftCD
  72.   end if
  73.   updateStage
  74. end
  75.  
  76. on right 
  77.   set the castNum of sprite 25 to 34
  78.   set the castNum of sprite 24 to 42
  79.   repeat with moveSP in moveSPlist
  80.     set the locH of sprite moveSP to the locH of sprite moveSP - Dis
  81.   end repeat
  82.   if the locH of sprite 2 < -88 then
  83.     repeat with moveSP in moveSPlist
  84.       set the locH of sprite moveSP = -88
  85.     end repeat
  86.     rightCD
  87.   end if
  88.   if the locH of sprite 25 < 256 then
  89.     rightCD
  90.   end if
  91.   updateStage
  92. end
  93.  
  94. on up 
  95.   set the castNum of sprite 25 to 33
  96.   set the castNum of sprite 24 to 41
  97.   repeat with moveSP in moveSPlist
  98.     set the locV of sprite moveSP to the locV of sprite moveSP + Dis
  99.   end repeat
  100.   if the locV of sprite 2 > 450 then
  101.     repeat with moveSP in moveSPlist
  102.       set the locV of sprite moveSP = 450
  103.     end repeat
  104.     upCD
  105.   end if
  106.   if the locV of sprite 25 > 192 then
  107.     upCD
  108.   end if
  109.   updateStage
  110. end
  111.  
  112. on down 
  113.   set the castNum of sprite 25 to 35
  114.   set the castNum of sprite 24 to 43
  115.   repeat with moveSP in moveSPlist
  116.     set the locV of sprite moveSP to the locV of sprite moveSP - Dis
  117.   end repeat
  118.   if the locV of sprite 2 < -66 then
  119.     repeat with moveSP in moveSPlist
  120.       set the locV of sprite moveSP = -66
  121.     end repeat
  122.     downCD
  123.   end if
  124.   if the locV of sprite 25 < 192 then
  125.     downCD
  126.   end if
  127.   updateStage
  128. end
  129.  
  130.