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 / tokyo / rescue.dcr / 00045_ìæì_ï-é¶.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.2 KB  |  59 lines
  1. on dspten
  2.   global gten, gcnt, gspeed
  3.   set gcnt to gcnt + 1
  4.   set gten to gten + 1
  5.   if gcnt = 2 then
  6.     set gcnt to 0
  7.     set gspeed to gspeed + 1
  8.     if gspeed > 9 then
  9.       set gspeed to 9
  10.     end if
  11.     set ii to gspeed
  12.     repeat with i = 16 to 24
  13.       if ii > 0 then
  14.         set the puppet of sprite i to 1
  15.         set the blend of sprite i to 100
  16.         set ii to ii - 1
  17.         next repeat
  18.       end if
  19.       exit
  20.     end repeat
  21.   end if
  22. end
  23.  
  24. on dsplife life
  25.   global glife
  26.   set glife to glife - life
  27.   if glife < 0 then
  28.     set glife to 0
  29.   end if
  30.   set ii to glife
  31.   repeat with i = 10 to 12
  32.     if ii > 0 then
  33.       set the puppet of sprite i to 1
  34.       set the blend of sprite i to 100
  35.       set ii to ii - 1
  36.       next repeat
  37.     end if
  38.     set the puppet of sprite i to 0
  39.   end repeat
  40. end
  41.  
  42. on clear no
  43.   set the puppet of sprite 34 to 0
  44.   repeat with i = 10 to 12
  45.     set the puppet of sprite i to 0
  46.   end repeat
  47.   repeat with i = 35 to 47
  48.     set the puppet of sprite i to 0
  49.   end repeat
  50.   repeat with i = 27 to 29
  51.     set the puppet of sprite i to 0
  52.   end repeat
  53.   if no = 0 then
  54.     repeat with i = 16 to 24
  55.       set the puppet of sprite i to 0
  56.     end repeat
  57.   end if
  58. end
  59.