home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_intro.dxr / 00012.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  458 b   |  19 lines
  1. on mouseDown
  2.   global balkenT3
  3.   set balkenT3 to balkenT3 + 1
  4.   if balkenT3 = 2 then
  5.     set balkenT3 to 0
  6.   end if
  7.   if balkenT3 = 0 then
  8.     set the blend of sprite 31 to 100
  9.     set the castNum of sprite 31 to the number of member "BalkenT3" + 1
  10.     updateStage()
  11.     puppetSound("raus")
  12.     set the castNum of sprite 31 to the number of member "BalkenT3"
  13.     updateStage()
  14.   end if
  15.   if balkenT3 = 1 then
  16.     set the blend of sprite 31 to 0
  17.   end if
  18. end
  19.