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 / Untitled-1_3.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  2.0 KB  |  68 lines
  1. on startMovie
  2.   initcharacter()
  3. end
  4.  
  5. on initvaliable
  6.   global score, counter, counterloc
  7.   set counterloc to 78
  8.   set the locV of sprite 18 to 19
  9.   set the locH of sprite 18 to counterloc
  10.   set counter to 450
  11.   set the text of cast "counter feild" to string(counter / 30)
  12.   set score to 0
  13.   set the text of cast "score feild" to string(score)
  14. end
  15.  
  16. on tryagain
  17.   global character1, character2, character3, character4, character5
  18.   resetcaractor()
  19.   initcharacter()
  20.   go("loop")
  21. end
  22.  
  23. on initcharacter
  24.   global character1, character2, character3, character4, character5, defx, defy, score, counter, defscreenwidth, n, ufoh, ufo, hitmark
  25.   set n to 1
  26.   set ufoh to 0
  27.   set ufo to 4
  28.   set hitmark to 3
  29.   initvaliable()
  30.   set defy to -50
  31.   set defmargin to 60
  32.   set defspace to 60
  33.   set defscreenwidth to 350
  34.   puppetSprite(18, 1)
  35.   puppetSprite(ufo, 1)
  36.   puppetSprite(hitmark, 1)
  37.   resethitmarkposition()
  38.   set character1 to birth(script "character", 10, defmargin, defy, 4, 7, 0, 0, 3, 10, 0, "stable")
  39.   set character2 to birth(script "character", 14, defspace + defmargin, defy + 80, 3, 8, 0, 0, 5, 15, 0, "stable")
  40.   set character3 to birth(script "character", 18, (defspace * 2) + defmargin, defy + 200, 2, 9, 0, 0, 7, 30, 0, "stable")
  41.   set character4 to birth(script "character", 12, (defspace * 3) + defmargin, defy + 120, 8, 10, 0, 0, 9, 20, 0, "stable")
  42.   set character5 to birth(script "character", 14, (defspace * 4) + defmargin, defy + 150, 4, 11, 0, 0, 11, 25, 0, "stable")
  43.   addactorlist()
  44. end
  45.  
  46. on addactorlist
  47.   global character1, character2, character3, character4, character5
  48.   add(the actorList, character1)
  49.   add(the actorList, character2)
  50.   add(the actorList, character3)
  51.   add(the actorList, character4)
  52.   add(the actorList, character5)
  53. end
  54.  
  55. on stopMovie
  56.   resetcaractor()
  57. end
  58.  
  59. on resetcaractor
  60.   global character1, character2, character3, character4, character5
  61.   set character1 to 0
  62.   set character2 to 0
  63.   set character3 to 0
  64.   set character4 to 0
  65.   set character5 to 0
  66.   set the actorList to []
  67. end
  68.