Space Shooter Game Editor

[robert83]

I could not attach to previous post for some reason , so here it is .

I've edited a bit more , and added BackGround.OnMove

procedure TBackGround.Move(const MoveCount: Single);
begin
  inherited;
  if StartDemo = true then
    begin
      WorldY:=WorldY+4;
    end;
end;

Using this it scrolls trough one screen of my map, but wont create new lines, wonder why? I tried playing with VisibleArea on a per sprite bases when creating the map but could not get it working properly

BackGround[z,x,y].VisibleArea := rect(-32,(y*32-32),640,(y*32)+480));

The idea is that I'd create each sprite with a different Visible area... but for some reason, the above code does not do what I expected it to do...

so for now I'm doing onmove using

Y:=Y+4;

seems smoth now on my laptop in smoothscreen, maybe I must do movement in onMove ?

Greetings
Robert