Schiffe versenken

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.button_startClick(Sender: TObject); 
  var 
    SchiffLaenge : integer; 
    SchiffPosX, SchiffPosY : integer; 
    SchiffHoch : boolean;  // True = Hochkant; False = Waagerecht 
  begin 

    for SchiffLaenge := 1 to 5 do 
      begin 

        repeat 

          // benutze die procedure ZufallPos
          ZufallPos( SchiffLaenge, SchiffPosX, SchiffPosY, SchiffHoch );
 
              // Aufruf von IstFreieStelle
        until IstFreieStelle( Schiffe_Cpu, SchiffPosX, SchiffPosY, SchiffHoch ); 

        PlatziereSchiff( Schiffe_Cpu, SchiffLaenge, SchiffPosX, SchiffPosY, SchiffHoch ); 

      end; 

    ZeichneSpielFeld( Schiffe_Cpu ); 

  end;