CIRCUS/CIRCUS.iso/circus.mac/circus.dxr/00022_ShooterSpriteClass.ls

Text File | 1996-08-05 | 327 b | 21 lines

property ancestor, bullet

on birth me
  set ancestor to birth(script "SpriteClass", me)
  spritePosSet(ancestor, 200, 300)
  spriteVelSet(ancestor, 1, 0)
  return me
end

on spriteUpdate me
  spritePosSet(me, the mouseH, shooterY())
end

on shooterY
  return 380 + (the mouseV / 3)
end

on shooterDead me
  returnToMain()
end