home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Cdrom / Pavilions / IBM / Konishiki / konishiki.dcr / Internal_15.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  2.0 KB  |  67 lines
  1. on startMovie
  2. end
  3.  
  4. on initvaliable
  5.   global score, counter, counterloc
  6.   set counterloc to 84
  7.   set the locV of sprite 18 to 19
  8.   set the locH of sprite 18 to counterloc
  9.   set counter to 850
  10.   set the text of cast "counter feild" to string(counter / 30)
  11.   set score to 0
  12.   set the text of cast "score feild" to string(score)
  13. end
  14.  
  15. on tryagain
  16.   global character1, character2, character3, character4, character5
  17.   resetcaractor()
  18.   initcharacter()
  19.   go("loop")
  20. end
  21.  
  22. on initcharacter
  23.   global character1, character2, character3, character4, character5, defx, defy, score, counter, defscreenwidth, n, ufoh, ufo, hitmark
  24.   set n to 1
  25.   set ufoh to 0
  26.   set ufo to 4
  27.   set hitmark to 3
  28.   initvaliable()
  29.   set defy to -50
  30.   set defmargin to 60
  31.   set defspace to 70
  32.   set defscreenwidth to 300
  33.   puppetSprite(18, 1)
  34.   puppetSprite(ufo, 1)
  35.   puppetSprite(hitmark, 1)
  36.   resethitmarkposition()
  37.   set character1 to birth(script "character", 10, defmargin, defy, 4, 7, 0, 0, 3, 15, 0, "stable")
  38.   set character2 to birth(script "character", 14, defspace + defmargin, defy + 80, 3, 8, 0, 0, 5, 30, 0, "stable")
  39.   set character3 to birth(script "character", 18, (defspace * 2) + defmargin, defy + 200, 2, 9, 0, 0, 7, 10, 0, "stable")
  40.   set character4 to birth(script "character", 12, (defspace * 3) + defmargin, defy + 120, 8, 10, 0, 0, 9, 20, 0, "stable")
  41.   set character5 to birth(script "character", 14, (defspace * 4) + defmargin, defy + 150, 4, 11, 0, 0, 11, 25, 0, "stable")
  42.   addactorlist()
  43. end
  44.  
  45. on addactorlist
  46.   global character1, character2, character3, character4, character5
  47.   add(the actorList, character1)
  48.   add(the actorList, character2)
  49.   add(the actorList, character3)
  50.   add(the actorList, character4)
  51.   add(the actorList, character5)
  52. end
  53.  
  54. on stopMovie
  55.   resetcaractor()
  56. end
  57.  
  58. on resetcaractor
  59.   global character1, character2, character3, character4, character5
  60.   set character1 to 0
  61.   set character2 to 0
  62.   set character3 to 0
  63.   set character4 to 0
  64.   set character5 to 0
  65.   set the actorList to []
  66. end
  67.