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:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:

unit Schulprojektbearbeitet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;


    type
TRaum = class
Beschreibung : string;
FotoReferenz : String;
Gegenstand : String;
Norden, Sueden, Westen, Osten : TRaum;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure setAusgaenge (norden, sueden, westen, osten, hoch, runter : TRaum);
end;

TRucksack = Class
Item : Array [1..5] of String;
procedure hinzufuegen (S:String);
function ausgeben : String;
Function voll: boolean;
end;

TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var

Form2: TForm2;
aktuellerRaum: TRaum;
Garten, Flur, Fluroben, Flur2, Flur3, Maggiesraum, Lisasraum, Bartszimmer, Elternschlafzimmer, Badezimmer, Badezimmer2, Kueche, TVRoom, Esszimmer, Wohnzimmer, Eingang : TRaum;
Norden, Sueden, Westen, Osten: TRaum;
Rucksack: TRucksack;



implementation
begin

{$R *.dfm}

procedure TRucksack.hinzufuegen ( S:String);
var i : integer ;
begin
i := 1;
while (i <= 5) do

begin
  if (self.item[i]=S)  then
  break
  else
  if self.item[i]= " then
    begin
    self.item[i] = s;
    break
    end;
  inc(i);
end;

end;

function TRucksack.ausgeben : string;
var i: integer;
begin
result := " ;
i:=1;
while (i <=5) do
  begin
  if(self.item[i] = ") then
  break
  else
  result := result + self.item[i] + ',';
  inc(i);
  end;
end;

function TRucksack.voll : boolean;
var i, j : integer ;
begin
result := false;
j:= 0;
for i := 1 to 5  do
if (self.item[i]<> ") then
inc(j);
if(j=5) then
result := true;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Raumwechsel('Norden');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Rucksack:=TRucksack.create
memo1.lines.add('Herzlich Willkommen in der Welt der Simpsons');
Garten := TRaum.Create;
Eingang := TRaum.Create;
Flur := TRaum.Create;
Fluroben := TRaum.Create;
Kueche := TRaum.Create;
TVRoom := TRaum.Create;
Wohnzimmer := TRaum.Create;
Esszimmer := TRaum.Create;
Flur2 := TRaum.create;
Flur3 := TRaum.Create;
Maggiesraum := TRaum.Create;
Lisasraum := TRaum.Create;
Bartszimmer :=TRaum.Create;
Badezimmer := TRaum.Create;
Badezimmer2 := TRaum.create;
Elternschlafzimmer :=TRaum.Create;
Garten.Beschreibung :=('Nun stehen Sie vor dem Haus der Simpsons.Treten Sie doch ein');
Eingang.Beschreibung :=('Wie Sie sehen werden Sie bereits erwartet');
Flur.Beschreibung :=('Sie stehen nun im Flur.Wohin wollen Sie als nächstes?');
Fluroben.Beschreibung :=('Sie haben den ersten Stock des Hauses betreten');
Kueche.Beschreibung :=('Haben Sie Hunger? Dann sind Sie hier genau richtig, denn Sie sind in der Küche gelandet');
Esszimmer.Beschreibung :=('Sie haben das Esszimmer betreten');
Wohnzimmer.Beschreibung := ('Sie befinden sich nun im gemütlichstem Zimmer des Hauses , dem Wohnzimmer');
TVRoom.Beschreibung :=('Erkennen Sie dieses Zimmer vielleicht wieder? Es ist wohl das bekannteste der Simpsonsfamilie');
Fluroben.Beschreibung :=('Nun stehen Sie im ersten Stock. Wohin soll es nun gehen?');
Flur2.Beschreibung :=('Nun stehen sie weiter Rechts im Flur und haben die Wahl zwischen dem Badezimmer und dem Elternschlafzimmer');
Flur3.Beschreibung :=('Sie haben sich dazu entschieden, weiter links in den Flur hinein zu gehen und haben nun die Wahl zwischen Barts Zimmer und dem zweiten Badezimmer')
Bartszimmer.Beschreibung := ('Hier herrscht das Chaos.Sind Sie sicher ,dass sie hier hin wollten?');
Lisaszimmer.Beschreibung :=('Lust auf eine Runde Saxophon? Lisas Zimmer ist perfekt dafür!');
Elternschlafzimmer.Beschreibung := ('Hier im Elternschlafzimmer haben Sie ja eigentlich nichts zu suchen , aber wir drücken mal ein Auge zu');
Badezimmer.Beschreibung := ('Nach langem Suchen haben sie endlich das erste der zwei Badezimmer gefunden');
Badezimmer2.Beschreibung := ('Toilette frei, hier kommt das zweite Badezimmer');
Maggieszimmer.Beschreibung := ('Achtung, ein freilaufendes Baby, herumliegende Schnuller und Legowurfattacken gehören hier zur Standarteinrichtung');
Garten.setAusgaenge(Eingang, nil, nil, nil, nil, nil);
Eingang.setAusgaenge(Flur, Garten, nil, nil, nil, nil);
Flur.setAusgaenge(Kueche, Eingang, Wohnzimmer, Esszimmer ,Fluroben ,nil);
Wohnzimmer.setAusgaenge(TVRoom, nil, nil, Flur, nil, nil);
TVRoom.setAusgaenge(nil, Wohnzimmer, nil, Kueche, nil, nil);
Kueche.setAusgaenge nil, Esszimmer, TVRoom, nil, nil, nil);
Esszimmer.setAusgaenge(Kueche, nil, Flur, nil, nil, nil);
Fluroben.setAusgaenge( Maggiesraum, Lisasraum, Flur2, Flur3, nil, Flur);
Flur2.setAusgaenge(Badezimmer, Elternschlafzimmer, Fluroben, nil, nil, nil);
Flur3.setAusgaenge(Badezimmer2, Bartszimmer, nil, Fluroben, nil, nil);
Flur.Gegenstand:= ' ';
Fluroben.Gegenstand:= ' ';
Flur2.Gegenstand:= ' ';
Flur3.Gegenstand:= ' ';
Maggiesraum.Gegenstand:= 'blauer Schnuller';
Lisasraum.Gegenstand:= 'Saxophon';
Bartszimmer.Gegenstand:= 'Krusty-der-Clown-Aufziehpuppe';
Elternschlafzimmer.Gegenstand:= ' ';
Badezimmer.Gegenstand := ' ';
Badezimmer2.Gegenstand := ' ';
Garten.Gegenstand := ' ';
Eingang.Gegenstand := ' ';
Kueche.Gegenstand :=  ' Mit rosa Glassur überzogener Donut';
TVRoom.Gegenstand := 'Duffbierdose';
Esszimmer.Gegenstand := ' ';
Kueche.Gegenstand := ' ';
Wohnzimmer. Gegenstand := ' ';
aktuellerRaum := Garten ;
Garten.Fotoreferenz := 'Bilder/Klassenraum.jpg';
Eingang.Fotoreferenz := 'Bilder/Eingang.jpg';
Flur.Fotoreferenz := 'Bilder/Flur.jpg';
Kueche.Fotoreferenz := 'Bilder/Kueche.jpg';
Esszimmer.Fotoreferenz := 'Bilder/Esszimmer.jpg';
TVRoom.Fotoreferenz := 'Bilder/TVRoom.jpg';
Wohnzimmer.Fotoreferenz := 'Bilder/Wohnzimmer.jpg';
Maggiesraum.Fotoreferenz := 'Bilder/Maggiesraum.jpg';
Lisasraum.Fotoreferenz := 'Bilder/Lisasraum.jpg';
Elternschlafzimmer.Fotoreferenz := 'Bilder/Elternschlafzimmer.jpg';
Badezimmer.Fotoreferenz := 'Bilder/Badezimmer1.jpg'
Bartszimmer.Fotoreferenz := 'Bilder/Bartszimmer.jpg';
Badezimmer2.Fotoreferenz :='Bilder/Badezimmer2.jpg';
Image1.Picture.LoadFromFile(aktueller.Raum.Fotorefetenz);
end;


procedure TRaum.setAusgaenge (norden, sueden, westen, osten : TRaum);
begin
self.Norden := norden;
self.Sueden := sueden;
self.westen := westen;
self.osten := osten;
end;

procedure TForm2.Raumwechsel (Eingabe:String);
begin
Memo1.clear;
Rucksack.hinzufuegen(aktuellerRaum.Gegenstand);
Eingabe := Edit1.text;
if (Eingabe = 'Norden') and (aktuellerRaum.Norden <> nil) then aktuellerRaum := aktuellerRaum.Norden;
if (Eingabe = 'Sueden') and (aktuellerRaum.Sueden <> nil) then aktuellerRaum := aktuellerRaum.Sueden;
if (Eingabe = 'Westen') and (aktuellerRaum.Westen <> nil) then aktuellerRaum := aktuellerRaum.Westen;
if (Eingabe = 'Osten') and (aktuellerRaum.Osten <> nil) then aktuellerRaum := aktuellerRaum.Osten;
Memo1.Lines.add(aktuellerRaum.Beschreibung);
Memo1.Lines.add(' ');
Memo1.linesadd('Im Rucksack enthalten:' + Rucksack.ausgeben);
if Rucksack.voll then
Memo1.lines.add('Glückwunsch, Sie haben alle Gegenstände gefunden');
Memo1.lines.add(' ');
Memo1.Lines.add('Wählen Sie die gewünchte Richtung in die Sie gehen möchten');
if aktuellerRaum.Norden <> nil then memo1.lines.add('--> Norden');
if aktuellerRaum.Sueden <> nil then memo1.Lines.add('--> Sueden');
if aktuellerRaum.Westen <> nil then memo1.Lines.add('--> Westen');
if aktuellerRaum.Osten <> nil then memo1.lines.add ('--> Osten');
end;



procedure TForm2.Button3Click(Sender: TObject);
begin
Raumwechsel('Osten');
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
Raumwechsel('Westen');
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
Raumwechsel('Sueden');
end;

procedure TForm2.Button1Click(Sender: TObject);
var Eingabe : String;
begin
aktuellerRaum := Garten;
memo1.clear;
Eingabe := Edit1.text;
if (Eingabe = 'Norden') and (aktuellerRaum.Norden <> nil) then aktuellerRaum := aktuellerRaum.Norden;
if (Eingabe = 'Sueden') and (aktuellerRaum.Sueden <> nil) then aktuellerRaum := aktuellerRaum.Sueden;
if (Eingabe = 'Westen') and (aktuellerRaum.Westen <> nil) then aktuellerRaum := aktuellerRaum.Westen;
if (Eingabe = 'Osten') and (aktuellerRaum.Osten <> nil) then aktuellerRaum := aktuellerRaum.Osten;
Memo1.Lines.add(aktuellerRaum.Beschreibung);
if aktuellerRaum.Norden <> nil then memo1.lines.add('--> Norden');
if aktuellerRaum.Sueden <> nil then memo1.Lines.add('--> Sueden');
if aktuellerRaum.Westen <> nil then memo1.Lines.add('--> Westen');
if aktuellerRaum.Osten <> nil then memo1.lines.add ('--> Osten');
Memo1.Lines.add(aktuellerRaum.Beschreibung);
end;

end.					

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

{$R *.dfm} 
procedure TRucksack.hinzufuegen ( S:String); 
vari : integer; 
begin
......
......
while ( i <= 5) do 
begin 
if ( self.item[i]=S) then 
break 
ekse 
if self.item[i]= " then 
begin 
selt.item[i] = s; 
.....
.....
procedure TForm2.Button2Click(Sender: TObject); 
begin 
begin; 
Raumwechsel('Norden'); 
end;					

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

function TRucksack.voll : boolean;
var i, j : integer ;
begin;//
end;//
result := false;
j:= 0;
for i := 1 to 5  do  
  if (self.item[i]<> " ) then
    inc(j);
  if( j=5) then
    result := true;
end;//
.....					

1:

Norden, Sueden, Westen, Osten : TRaum;