1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TMainForm.FormCreate(Sender: TObject);
begin
path := ExtractFilePath(Application.ExeName);   //speichert den Pfad der Exe-datei in einer String-variable (ein "/" ist dabei schon hintendran)
.
.
.
end;


procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
.
.
.
with BitBtn2 do
      begin
      Glyph.LoadFromFile(path + 'Pictures\Maximize.bmp');
      Caption := 'Vollbild';
      end;
.
.
.
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

procedure TMainForm.IdleHandler(Sender: TObject; var Done: Boolean);
var
  i: integer;
  tmp, ReflectionLine: TLine;
  P1, P2: TVector2D;
  Collision: Boolean;
begin
  Collision := False;
  timestep := CalcTimestep(CalcTime, Frequency);
  if moving then
    begin
    tmp := to_line(Gameball.m, V2d.scale(Gameball.v, timestep));

    for i := 1 to 4 do
      if not Collision and V2d.BallLineCollision(Gameball, tmp.r, lines[i]) then              // Collision mit den Außenwänden?    
        begin                                                                               
        Gameball.v := V2d.Reflect(Gameball.v, lines[i].r);
        Gameball.contacts := Gameball.contacts + 1;
        Collision := True;
        end;

    for i := high(Barricades) downto 1 do                                                      // Oder Collision mit einem der Hindernisse?
      if v2d.BallBarrCollision(Gameball, tmp.r, Barricades[i], ReflectionLine) then
          Gameball.v := v2d.reflect(Gameball.v, ReflectionLine.r);

    if not Collision and V2d.BallHoleTouch(Gameball, Goal) then Gameball.v := V2d.add(Gameball.v, V2d.sub(Goal.m, Gameball.m));          // Oder berührt der Mittelpunkt des Spielballs das Loch?

    Gameball.m := V2d.add(Gameball.m, V2d.scale(Gameball.v, timestep));                        // Berechnet die neue Position
    end;

  Paintbox1.Invalidate;


  if (V2d.length(Gameball.v) < 600) and V2d.BallInHole(Gameball, Goal) then
    begin
    Moving := True;
    Application.OnIdle := Nil;
    CLf := 80;
    Paintbox1.Invalidate;
    showawards;
    BitBtn3.Enabled := True;
    end;

  if not Moving then Paintbox1.Cursor := crCross
    else if Moving then                                      // Geschwindigkeitsabnahme:
      begin
      QueryPerformanceCounter(Gameball.tn);                                 // Zählt Schwingungen zu diesem Moment
      Gameball.t := (Gameball.tn - Gameball.t0) / Frequency;                // Berechnet Zeit von Beginn des Schusses bis jetzt
      Gameball.length := (-200) * Gameball.t + V2d.length(Gameball.v0);     // Länge = Wiederstand(variabel) * Zeit + Geschwindigkeit am Anfang des Schusses
      Gameball.v := V2d.scale(V2d.normalize(Gameball.v), Gameball.length);  // Ermittelt per neue Länge den neuen Vektor

      if Gameball.length < 0.2 then                                         // Damit er nicht ins unendlich Minimale geht, wird ab 0.2 auf 0 gerundet
        begin
        Gameball.v := V2d.scale(Gameball.v,0);
        Moving := False;
        end;
      end;

  if (V2d.length(Gameball.v) = 0) then Moving := False                      // Bewegt sich die Kugel?
    else Moving := True;                    

1:
2:
3:
4:

class function V2d.Length(v: TVector2d): extended;
begin
  result := sqrt(v.x * v.x + v.y * v.y);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

uses Windows, ..., Vectors(Vektor-unit), Minigolf( geplante Minigolf-unit);
.
var 
  TMainForm: MinigolfForm;                     // Dieses MinigolfForm soll dann durch die "Minigolf-unit" erstellt
  Barricades: array[1..1] of TBarricade;         // Hindernisse
  Circles: array[1..1] of TCircle;                 // runde Hindernisse
  Pushareas: array[1..1] of TBarricade;           // "Schubgebiete"
  Lines: array[1..4] of TLine;                   // 4 Außenwände
.
.
.
procedure TMainform.OnCreate;
begin
...                                              // liest Daten aus Textdatei
SetLength(Barricades,...); 
SetLength(Circles,...);
SetLength(Pushareas,...);
if Barricades[0] = 0 then                        // falls das Level keine Hindernisse beinhaltet, dann wird der anfang auf 0 gesetzt und keine Hindernisse werden deklariert
  begin
  Barricades[1] := ...
  .
  .
  .                    

1:

C:\Users\Sebastian\AppData\Local\VirtualStore\Program Files (x86)\Minigolf\Levels\Not_Delete                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

{
Version: 2.3.0.2
Initialisieren: StartBass;
Beenden: EndBass;
Sound Laden: LoadMusicData  //0..128 mögliche Streams
Sound freigeben: FreeMusicData //0..128 mögliche Streams
}

unit MyBass_Unit;

interface

Function StartBass:Boolean;
Procedure EndBass;
Function LoadMusicData(Dateiname:String; Index:Byte; Playloop:Boolean):Boolean;
Procedure FreeMusicData(Index:Byte);
Function PlayMusic(Index:Byte):Boolean;
Function StopMusic(Index:Byte):Boolean;
Function MusicPlaying(Index:Byte):Integer;
Function Continue_Music(Index:Byte):Boolean;
Function PauseMusic(Index:Byte):Boolean;
Function Music_GetVolume(Index:Integer):Integer;
Function Music_SetVolume(Index:Integer; Volume:Integer):Boolean;

implementation
Uses Windows, Bass;
Var     strs: array[0..128] of HSTREAM;    //Maximum an Streams

Function StartBass:Boolean;
Begin
Result:=True;
IF (HIWORD(BASS_GetVersion) <> BASSVERSION) then
   Result:=False else
IF not(BASS_Init(-1, 44100, 0, 0, nil))then
   Result:=False;
End;

Procedure EndBass;
Begin
BASS_Free();
End;

//Playloop => Spielt Sound in Endlosschleife
Function LoadMusicData(Dateiname:String; Index:Byte; Playloop:Boolean):Boolean;
Begin
  IF Playloop then
     strs[Index] := BASS_StreamCreateFile(False, Pchar(Dateiname), 0, 0, BASS_SAMPLE_LOOP) else
     strs[Index] := BASS_StreamCreateFile(False, Pchar(Dateiname), 0, 0, 0);
End;

Procedure FreeMusicData(Index:Byte);
Begin
BASS_StreamFree(strs[Index]);
End;

Function PlayMusic(Index:Byte):Boolean;
Begin
Result:=True;
IF not(BASS_ChannelPlay(strs[Index], True)) then Result:=False;
End;

Function Continue_Music(Index:Byte):Boolean;
Begin
Result:=True;
IF not(BASS_ChannelPlay(strs[Index], False)) then Result:=False;
End;

//0 = Stopped; 1 = Playing; 2 = Stalled; 3 = Paused
Function MusicPlaying(Index:Byte):Integer;
Begin
Result:=Bass_ChannelisActive(strs[Index]);
End;

Function StopMusic(Index:Byte):Boolean;
Begin
BASS_ChannelStop(strs[Index]);
End;

Function PauseMusic(Index:Byte):Boolean;
Begin
BASS_ChannelPause(strs[Index]);
End;

Function Music_GetVolume(Index:Integer):Integer;
Var Freq, Vol:Cardinal;
    Pan:Integer;
Begin
Bass_ChannelGetAttributes(Strs[Index],Freq,Vol,Pan);
Result:=Vol;
End;

Function Music_SetVolume(Index:Integer; Volume:Integer):Boolean;
Var Freq, Vol:Cardinal;
    Pan:Integer;
Begin
Result:=False;
Bass_ChannelGetAttributes(Strs[Index],Freq,Vol,Pan);
Vol:=Volume;
IF Bass_ChannelSetAttributes(Strs[Index],Freq,Vol,Pan) then
   Result:=True;
End;

end.                    

1:

IF not(StartBass) then ShowMessage('Bass konnte nicht initialisiert werden!');                    

1:

EndBass;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

//Einmaliges Laden aller Streams beim Programmstart, bis zu 129 im Beispiel.
LoadMusicData(Dateiname+'aufprall.ogg',0,False); //Durch False nur einmal gespielt.
LoadMusicData(Dateiname+'hintergrundmusik.ogg',1,True); //Durch True in Endlosschleife gespielt
...
For i:=0 to 1 do
    Music_SetVolume(i,Volume); //relative Lautstärke festlegen (müsste zwischen 0 und 100 liegen (in Prozent))
...
IF Aufprall then //Abspielen des Soundeffekts im Spiel
   PlayMusic(0);
...
For i:=0 to 1 do //Freigeben der Streams beim Programmende
    FreeMusicData(i);                    

1:
2:

var
  X: Array[1..5] of TLine; //5 Linien;