GQ - Louise, World Cup, …remy Clarkson, Armageddon/GQCD.iso/files/game.dxr/00004_spriteGenerator.ls

Text File | 1998-05-21 | 1021 b | 48 lines

property spriteNum
global gShipObj

on new me
  return me
end

on appear me, myPos, myMember, myColour, mySpriteNum, myBlend
  if mySpriteNum = 0 then
    set spriteNum to findSpace(me)
  else
    set spriteNum to mySpriteNum
  end if
  if spriteNum > 0 then
    puppetSprite(spriteNum, 1)
    set the foreColor of sprite spriteNum to 255
    set the ink of sprite spriteNum to 8
    set the loc of sprite spriteNum to myPos
    set the blend of sprite spriteNum to myBlend
    set the memberNum of sprite spriteNum to member myMember
    set the foreColor of sprite spriteNum to myColour
  else
    abort()
  end if
end

on findSpace me
  repeat with x = 3 to 48
    if the memberNum of sprite x = 0 then
      return x
      exit repeat
    end if
  end repeat
  return 0
end

on setSpriteNUm me, mySpriteNum
  set spriteNum to mySpriteNum
  puppetSprite(spriteNum, 1)
end

on destroy me
  set the memberNum of sprite spriteNum to 0
  set pos to getPos(the actorList, me)
  deleteAt(the actorList, pos)
  return me
end