home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / finetown.dir / 00005_Script_5 < prev    next >
Text File  |  1995-11-10  |  2KB  |  91 lines

  1. on OverLap
  2.   global Muki,LandOnOK
  3.   
  4.   if sprite 25 within 4 then
  5.     set the visible of sprite 14 = 1
  6.     set LandOnOK = 1
  7.     set Muki = "KARU_GIN"
  8.   else
  9.     if sprite 25 within 5 then
  10.       set the visible of sprite 15 = 1
  11.       set LandOnOK = 1
  12.       set Muki = "DOUJYOU"
  13.     else
  14.       if sprite 25 within 6 then
  15.         set the visible of sprite 16 = 1
  16.         set LandOnOK = 1
  17.         set Muki = "GAMEYA"
  18.       else
  19.         if sprite 25 within 7 then
  20.           set the visible of sprite 17 = 1
  21.           set LandOnOK = 1
  22.           set Muki = "LIB_ST"
  23.         else
  24.           if sprite 25 within 8 then
  25.             set the visible of sprite 18 = 1
  26.             set LandOnOK = 1
  27.             set Muki = "IDO"
  28.           else
  29.             if sprite 25 within 9 then
  30.               set the visible of sprite 19 = 1
  31.               set LandOnOK = 1
  32.               set Muki = "HINT_DE"
  33.             else
  34.               if sprite 25 within 10 then
  35.                 set the visible of sprite 20 = 1
  36.                 set LandOnOK = 1
  37.                 set Muki = "ROUDOKU"
  38.               else
  39.                 if sprite 25 within 11 then
  40.                   set the visible of sprite 21 = 1
  41.                   set LandOnOK = 1
  42.                   set Muki = "YORIAI"
  43.                 else
  44.                   if sprite 25 within 2 then
  45.                     repeat with SP= 14 to 22
  46.                       set the visible of sprite SP = 0
  47.                     end repeat
  48.                     set the type of sprite 48 = 0
  49.                     set LandOnOK = 0
  50.                     set Muki = 0
  51.                   end if
  52.                 end if
  53.               end if
  54.             end if
  55.           end if
  56.         end if
  57.       end if
  58.     end if
  59.   end if
  60.   
  61.   updateStage
  62. end
  63.  
  64. on Tyakuriku
  65.   puppetSound 0
  66.   Sound playfile 2,"\MATERIAL\LANDON"
  67.   set LDDis = 10
  68.   if the locV of sprite 25 > the locV of sprite 24 - 10 then
  69.     exit
  70.   else
  71.     repeat with i = 1 to 20
  72.       set the locV of sprite 25 = the locV of sprite 25 + LDDis
  73.       updateStage
  74.       if the locV of sprite 25 > the locV of sprite 24 - 10 then exit repeat
  75.       wait 4
  76.     end repeat
  77.   end if
  78.   repeat while soundBusy(2)
  79.     nothing
  80.   end repeat
  81.   
  82. end
  83.  
  84. on wait t
  85.   put the ticks + t into endTime
  86.   repeat while the ticks <= endTime
  87.     nothing
  88.   end repeat
  89. end
  90.  
  91.