Subversion Repositories spacemission

Rev

Rev 6 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6 Rev 8
Line 593... Line 593...
593
  Enemy.y := y;
593
  Enemy.y := y;
594
end;
594
end;
595
 
595
 
596
procedure TMainForm.DestroyLevel;
596
procedure TMainForm.DestroyLevel;
597
begin
597
begin
-
 
598
  ScrollBar.Position := 0; // this doesn't call ScrollBarScroll()
598
  ScrollBar.Position := 0;
599
  ScrollP := 0;
599
  Enemys.Clear;
600
  Enemys.Clear;
600
  NumEnemys := 0;
601
  NumEnemys := 0;
601
  Boss := false;
602
  Boss := false;
602
  LevChanged := true;
603
  LevChanged := true;
603
  Lives.Position := 1;
604
  Lives.Position := 1;