mirror of
https://github.com/JonasHinterdorfer/TextAdventure.git
synced 2025-10-26 11:51:11 +00:00
57 lines
2.3 KiB
Prolog
57 lines
2.3 KiB
Prolog
% ========== LOCATIONS ==========
|
|
location(htl_labor, 'HTL Cybersicherheitslabor',
|
|
'Ein modernes Computerlabor mit High-Tech Ausstattung. Hier hast du die Wahrheit über die Drohnen entdeckt.').
|
|
|
|
location(altstadt, 'Linzer Altstadt',
|
|
'Enge Gassen und alte Gebäude. Perfekt für Parkour, aber voller lauernder Gefahren.').
|
|
|
|
location(donauufer, 'Donauufer Industriegebiet',
|
|
'Verlassene Fabrikhallen und Lagerhäuser. Schwer bewacht von Storch-Drohnen.').
|
|
|
|
location(poestlingberg, 'Pöstlingberg Überwachungsturm',
|
|
'Ein alter Turm, umgebaut zur Drohnen-Kommandozentrale. Hier werden alle Signale koordiniert.').
|
|
|
|
location(aviary_hq, 'Aviary HQ Wolkenkratzer',
|
|
'Das Hauptquartier der Verschwörung. Ein Glasbau, der die ganze Stadt überblickt.').
|
|
|
|
location(htl_werkstatt, 'HTL Leonding Werkstatt',
|
|
'Eine gut ausgestattete Elektronikwerkstatt. Hier kannst du komplexe Geräte bauen.').
|
|
|
|
% Location connections
|
|
connected(htl_werkstatt, htl_labor).
|
|
connected(htl_labor, htl_werkstatt).
|
|
connected(htl_labor, altstadt).
|
|
connected(altstadt, htl_labor).
|
|
connected(altstadt, donauufer).
|
|
connected(donauufer, altstadt).
|
|
connected(donauufer, poestlingberg).
|
|
connected(poestlingberg, donauufer).
|
|
connected(poestlingberg, aviary_hq).
|
|
connected(aviary_hq, poestlingberg).
|
|
|
|
% ========== OBSTACLES ==========
|
|
init_obstacles :-
|
|
% Obstacle between altstadt and donauufer
|
|
assertz(obstacle(altstadt, donauufer, hohe_mauer)),
|
|
assertz(obstacle(donauufer, altstadt, hohe_mauer)),
|
|
|
|
% Obstacle between donauufer and poestlingberg
|
|
assertz(obstacle(donauufer, poestlingberg, drone_swarm)),
|
|
assertz(obstacle(poestlingberg, donauufer, drone_swarm)),
|
|
|
|
% Obstacle to aviary_hq
|
|
assertz(obstacle(poestlingberg, aviary_hq, security_system)),
|
|
assertz(obstacle(aviary_hq, poestlingberg, security_system)).
|
|
|
|
list_obstacles([]).
|
|
list_obstacles([obstacle(_, Exit, ObstacleType)|T]) :-
|
|
write('HINDERNIS nach '), write(Exit), write(': '),
|
|
describe_obstacle(ObstacleType), nl,
|
|
list_obstacles(T).
|
|
|
|
describe_obstacle(hohe_mauer) :-
|
|
write('Hohe Mauer - benötigt Parkour-Handschuhe zum Klettern').
|
|
describe_obstacle(drone_swarm) :-
|
|
write('Drohnen-Schwarm - benötigt Kampfdrohne zur Abwehr').
|
|
describe_obstacle(security_system) :-
|
|
write('Hochsicherheitssystem - benötigt EMP-Generator'). |