Wednesday, October 04, 2006

Ending sequence of level 2

Here is the level 2 ending sequence routine:

case CicloEnd
of 1: begin ImageStewardess1.Visible:=false;
ImageStewardess2.visible:=true;
PlaySound(pfEvent); end;
2: begin ImageStewardess2.visible:=false;
ImageStewardess3.visible:=true;
PlaySound(pfEvent); end;
3: begin ImageStewardess3.visible:=false;
begin for cicloX:=1 to 4 do ArrayHero[cicloX].visible:=false; end;
ImageStewardess4.visible:=true;
PlaySound(pfEvent); end;
4: begin ImageStewardess4.visible:=false;
PlaySound(pfEvent); end;
5: begin ImageStewardess4.visible:=(not ImageStewardess4.visible); Score:=Score+50; TransformScore(Score); end;
6: begin ImageStewardess4.visible:=(not ImageStewardess4.visible); Score:=Score+50; TransformScore(Score); end;
7: begin ImageStewardess4.visible:=(not ImageStewardess4.visible); Score:=Score+50; TransformScore(Score); end;
8: begin ImageStewardess4.visible:=(not ImageStewardess4.visible); Score:=Score+50; TransformScore(Score); end;
9: begin TimerEnd0.Enabled:=false; Cntrls:=false; TimerLevel1.Enabled:=false; Mode:=1; SetupGame; TimerLevel1.Enabled:=true; end;
end;
Inc(CicloEnd);


No comments: