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; |