home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / four.dxr / poppies_66_poppies_blink.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  741 b   |  29 lines
  1. property nextBlink, blinkFrames
  2.  
  3. on beginSprite me
  4.   me.nextBlink = the ticks + 20 + random(120)
  5.   me.blinkFrames = 0
  6. end
  7.  
  8. on exitFrame me
  9.   global gCurrentScreen
  10.   if the ticks > me.nextBlink then
  11.     me.nextBlink = the ticks + 20 + random(120)
  12.     me.blinkFrames = 5
  13.     blinkList = ["straw", "tin"]
  14.     whichBlinker = random(2)
  15.     theCharacter = getAt(blinkList, whichBlinker)
  16.     if gCurrentScreen = "4611" then
  17.       sprite(me.spriteNum).member = theCharacter & "b_blink"
  18.     else
  19.       sprite(me.spriteNum).member = theCharacter & "_blink"
  20.     end if
  21.   end if
  22.   if me.blinkFrames > 0 then
  23.     me.blinkFrames = me.blinkFrames - 1
  24.     if me.blinkFrames = 0 then
  25.       sprite(me.spriteNum).member = "empty_blink"
  26.     end if
  27.   end if
  28. end
  29.