home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle: Internet utan modem / Internet CD.iso / web / computer / wwweps~1.com / adam / galactic.dcr / 00113_shield.ls < prev    next >
Encoding:
Text File  |  1997-03-06  |  296 b   |  12 lines
  1. on mouseUp
  2.   global max_shield, shield, score
  3.   if score >= 4000 then
  4.     set score to score - 4000
  5.     put score into field "score"
  6.     set the width of sprite 16 to the width of sprite 16 + 16
  7.     set shield to shield + 100
  8.     set max_shield to max_shield + 100
  9.     updateStage()
  10.   end if
  11. end
  12.