home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / paris / wave / HA_J.dcr / 00083.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  869 b   |  44 lines
  1. on exitFrame
  2.   global gh, gscore, gpana
  3.   puppetTempo(10)
  4.   goalmotion()
  5.   if gh < -40 then
  6.     puppetSprite(5, 0)
  7.     puppetSprite(6, 0)
  8.     puppetSprite(10, 0)
  9.     if gscore = 10 then
  10.       set gpana to 10
  11.       go("dou")
  12.     else
  13.       if gscore = 11 then
  14.         set gpana to 10
  15.         go("dou")
  16.       else
  17.         if gscore = 12 then
  18.           set gpana to 10
  19.           go("dou")
  20.         else
  21.           if gscore = 13 then
  22.             set gpana to 30
  23.             go("gin")
  24.           else
  25.             if gscore = 14 then
  26.               set gpana to 30
  27.               go("gin")
  28.             else
  29.               if gscore = 15 then
  30.                 set gpana to 50
  31.                 go("kin")
  32.               else
  33.                 go("end2")
  34.               end if
  35.             end if
  36.           end if
  37.         end if
  38.       end if
  39.     end if
  40.   else
  41.     go(the frame)
  42.   end if
  43. end
  44.