home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / finetown.dir / 00086_Script_86 < prev    next >
Text File  |  1995-11-10  |  4KB  |  129 lines
  1. on keyCheck
  2.   dontPassEvent
  3.   set Dis = 8
  4. --    set the keyDownScript = ""
  5.   --  set the keyUpScript = "KeyUpCheck"
  6.   if the key = "1" then
  7.     set the locH of sprite 38 = 465
  8.     set the locV of sprite 38 = 337
  9.     repeat with i =1 to Dis
  10.       OverLap
  11.       downleft
  12.     end repeat
  13.   else
  14.     if the key = "2" then
  15.       set the locH of sprite 39 = 466
  16.       set the locV of sprite 39 = 337
  17.       repeat with i =1 to Dis
  18.         OverLap
  19.         down
  20.       end repeat
  21.     else
  22.       if the key = "3" then
  23.         set the locH of sprite 40 = 467
  24.         set the locV of sprite 40 = 337
  25.         repeat with i =1 to Dis
  26.           OverLap
  27.           downright
  28.         end repeat
  29.       else
  30.         if the key = "4" then
  31.           set the locH of sprite 35 = 465
  32.           set the locV of sprite 35 = 337
  33.           repeat with i =1 to Dis
  34.             OverLap
  35.             left
  36.           end repeat
  37.         else
  38.           if the key = "5" then
  39.             global Muki,LandOnOK,gMapPosH,gMapPosV,gCDPosH,gCDPosV,gCDCastNum
  40.             set H = the locH of sprite clickOn()
  41.             set V = the locV of sprite clickOn()
  42.             set the locH of sprite clickOn() = H + 2
  43.             set the locV of sprite clickOn() = V + 2
  44.             if LandOnOK = 1 and Muki = "KARU_GIN" then
  45.               Tyakuriku
  46.               set gMapPosH = the locH of sprite 2
  47.               set gMapPosV = the locV of sprite 2
  48.               set gCDPosH = the locH of sprite 24
  49.               set gCDPosV = the locV of sprite 24
  50.               set gCDCastNum = the castNum of sprite 25
  51.               tell the stage
  52.                 go to movie Muki
  53.               end tell
  54.             else
  55.               if LandOnOK = 1 and Muki = "DAN256" then
  56.                 Tyakuriku
  57.                 set gMapPosH = the locH of sprite 2
  58.                 set gMapPosV = the locV of sprite 2
  59.                 set gCDPosH = the locH of sprite 24
  60.                 set gCDPosV = the locV of sprite 24
  61.                 set gCDCastNum = the castNum of sprite 25
  62.                 
  63.                 tell the stage
  64.                   go to frame"toMAP_DAN"
  65.                 end tell
  66.                 go to movie Muki
  67.               else
  68.                 if LandOnOK = 1 then
  69.                   Tyakuriku
  70.                   set gMapPosH = the locH of sprite 2
  71.                   set gMapPosV = the locV of sprite 2
  72.                   set gCDPosH = the locH of sprite 24
  73.                   set gCDPosV = the locV of sprite 24
  74.                   set gCDCastNum = the castNum of sprite 25
  75.                   
  76.                   repeat while soundbusy(2)
  77.                     nothing
  78.                   end repeat
  79.                   tell the stage
  80.                     go to frame"toMAP"
  81.                   end tell
  82.                   go to movie Muki
  83.                 end if
  84.               end if
  85.             end if
  86.           else
  87.             if the key = "6" then
  88.               set the locH of sprite 37 = 467
  89.               set the locV of sprite 37 = 337
  90.               repeat with i =1 to Dis
  91.                 OverLap
  92.                 right
  93.               end repeat
  94.             else
  95.               if the key = "7" then
  96.                 set the locH of sprite 32 = 465
  97.                 set the locV of sprite 32 = 337
  98.                 repeat with i =1 to Dis
  99.                   OverLap
  100.                   upleft
  101.                 end repeat
  102.               else
  103.                 if the key = "8" then
  104.                   set the locH of sprite 33 = 466
  105.                   set the locV of sprite 33 = 337
  106.                   repeat with i =1 to Dis
  107.                     OverLap
  108.                     up
  109.                   end repeat
  110.                 else
  111.                   if the key = "9" then
  112.                     set the locH of sprite 34 = 467
  113.                     set the locV of sprite 34 = 337
  114.                     repeat with i =1 to Dis
  115.                       OverLap
  116.                       upright
  117.                     end repeat
  118.                   end if
  119.                 end if
  120.               end if
  121.             end if
  122.           end if
  123.         end if
  124.       end if
  125.     end if
  126.   end if
  127. --    set the keyDownScript = "keyCheck"
  128. end
  129.