home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / PegScramble.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  837 b   |  32 lines
  1. on exitFrame me
  2.   global victoryDelay, playerlevel
  3.   maxBulbs = 15
  4.   if victoryDelay < 70 then
  5.     victoryDelay = victoryDelay + 0.20000000000000001
  6.     wSprite = 200 + victoryDelay
  7.     set the member of sprite wSprite to "Green Bulb"
  8.     repeat with wBlender = 1 to 10
  9.       bSprite = wSprite - 10 + wBlender
  10.       if (bSprite > 200) and (bSprite <= 260) then
  11.         bpower = (wBlender * 5) + 40
  12.         set the blend of sprite bSprite to bpower
  13.       end if
  14.     end repeat
  15.     go(the frame)
  16.   else
  17.     if victoryDelay < 200 then
  18.       victoryDelay = victoryDelay + 1
  19.       repeat with wBlink = 1 to 20
  20.         set the blend of sprite (200 + random(60)) to [15, 50, 95][random(2)]
  21.       end repeat
  22.       go(the frame)
  23.     else
  24.       if playerlevel = 3 then
  25.         go(30)
  26.       else
  27.         go(25)
  28.       end if
  29.     end if
  30.   end if
  31. end
  32.