home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / flowers.dxr / 00025_ShowGopher.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  736 b   |  29 lines
  1. property WaitFrames
  2.  
  3. on beginSprite me
  4.   myRow = random(3)
  5.   myHole = random(7)
  6.   MyV = value(item myRow of "260,335,438")
  7.   myH = value(item myRow of "101,111,122") + ((myHole - 1) * value(item myRow of "42,45,50"))
  8.   puppetSprite(me.spriteNum, 1)
  9.   sprite(me.spriteNum).locH = myH
  10.   sprite(me.spriteNum).locV = MyV
  11.   sprite(me.spriteNum).member = "gopher_taunt.01"
  12.   PlaySeq(me.spriteNum, "gopher_taunt", "fwd")
  13.   puppetSound("54419" & string(random(5)))
  14.   me.WaitFrames = 90
  15. end
  16.  
  17. on exitFrame me
  18.   if me.WaitFrames > 0 then
  19.     me.WaitFrames = me.WaitFrames - 1
  20.     if me.WaitFrames < 8 then
  21.       sprite(me.spriteNum).locV = sprite(me.spriteNum).locV + 4
  22.     end if
  23.   end if
  24. end
  25.  
  26. on endSprite me
  27.   puppetSprite(me.spriteNum, 0)
  28. end
  29.