jonas/TextAdventure
1
0
Fork 0
mirror of https://github.com/JonasHinterdorfer/TextAdventure.git synced 2025-10-26 11:51:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Compare commits

base: jonas:d0ff4177bec4dfaefd119a4bec53124b42aafb6f
Branches Tags
jonas:main
..
compare: jonas:fc8bb30ab27c59c49f9bc84515eae1639fc116a0
Branches Tags
jonas:main

No commits in common. "d0ff4177bec4dfaefd119a4bec53124b42aafb6f" and "fc8bb30ab27c59c49f9bc84515eae1639fc116a0" have entirely different histories.
d0ff4177be ... fc8bb30ab2

17 changed files with 1049 additions and 1287 deletions
Show Stats Expand all files Collapse all files

1073
adventure.pl
View File

File diff suppressed because it is too large Load Diff

42
game_assets/climbing_system.pl
View File

@ -1,42 +0,0 @@
% ========== CLIMBING SYSTEM ==========
climb_action :-
player_location(altstadt),
player_inventory(parkour_handschuhe),
write('=== PARKOUR KLETTERN ==='), nl,
write('Du beginnst den Aufstieg...'), nl,
parkour_minigame_altstadt,
!.
climb_action :-
player_location(altstadt),
write('Du brauchst Parkour-Handschuhe um auf das Dach zu klettern.'), nl,
!.
climb_action :-
player_location(donauufer),
player_inventory(parkour_handschuhe),
write('=== TURM KLETTERN ==='), nl,
write('Du kletterst den hohen Industrieturm hinauf...'), nl,
climbing_minigame_donauufer,
!.
climb_action :-
player_location(donauufer),
write('Du brauchst Parkour-Handschuhe um auf den Turm zu klettern.'), nl,
!.
climb_action :-
player_location(poestlingberg),
player_inventory(parkour_handschuhe),
write('=== ÜBERWACHUNGSTURM KLETTERN ==='), nl,
write('Du kletterst den gefährlichen Überwachungsturm hinauf...'), nl,
climbing_minigame_poestlingberg,
!.
climb_action :-
player_location(poestlingberg),
write('Du brauchst Parkour-Handschuhe um auf den Überwachungsturm zu klettern.'), nl,
!.
climb_action :-
write('Hier gibt es nichts zum Klettern.'), nl.

306
game_assets/combat_system.pl
View File

@ -1,306 +0,0 @@
% ========== MAIN COMBAT LOOP ==========
combat_loop(Enemy) :-
enemy(Enemy, DisplayName, Health, _),
nl,
write('=== KAMPF GEGEN '), write(DisplayName), write(' ==='), nl,
write('Feind Gesundheit: '), write(Health), nl,
player_health(PlayerHealth),
write('Deine Gesundheit: '), write(PlayerHealth), nl,
health_recovery_used(Enemy, RecoveryUsed),
RemainingRecovery is 2 - RecoveryUsed,
write('Heilungen übrig: '), write(RemainingRecovery), write('/2'), nl,
write('Verfügbare Aktionen: angriff, heile, verwende(item)'), nl, nl,
write('> '),
read_line(Command),
process_combat_command(Command, Enemy),
check_game_state,
!,
game_loop.
% ========== COMBAT COMMANDS ==========
process_combat_command([angriff], Enemy) :-
combat_attack(Enemy).
process_combat_command([verwende, Item], Enemy) :-
combat_use_item(Item, Enemy).
process_combat_command([heile], Enemy) :-
combat_heal(Enemy).
process_combat_command(_, _) :-
write('Ungültige Kampfaktion! Verwende: angriff, heile oder verwende(item)'), nl.
% ========== TURN-BASED COMBAT SYSTEM ==========
start_combat(EnemyName) :-
player_location(Loc),
enemy_location(EnemyName, Loc),
assertz(drone_cooldown(EnemyName, 0)),
assertz(health_recovery_used(EnemyName, 0)),
assertz(enemy_hack_attempted(EnemyName, false)),
write('Du beginnst den Kampf gegen '), enemy(EnemyName, DisplayName, _, _),
write(DisplayName), write('!'), nl,
assertz(in_combat(EnemyName)),
!.
start_combat(_) :-
write('Hier ist kein Feind zum Angreifen.'), nl.
combat_attack(Enemy) :-
get_random_damage(Damage),
enemy(Enemy, DisplayName, Health, Desc),
NewHealth is Health - Damage,
write('Du greifst '), write(DisplayName), write(' an und verursachst '),
write(Damage), write(' Schaden!'), nl,
retract(enemy(Enemy, DisplayName, Health, Desc)),
(NewHealth =< 0 ->
(write(DisplayName), write(' wurde besiegt!'), nl,
defeat_enemy(Enemy)) ;
(assertz(enemy(Enemy, DisplayName, NewHealth, Desc)),
enemy_turn(Enemy))).
combat_use_item(ItemName, Enemy) :-
player_inventory(ItemName),
execute_combat_item_use(ItemName, Enemy),
!.
combat_use_item(_, _) :-
write('Du hast diesen Gegenstand nicht!'), nl.
combat_heal(Enemy) :-
health_recovery_used(Enemy, Used),
Used >= 2,
write('Du hast bereits alle Heilungen in diesem Kampf verbraucht!'), nl,
!.
combat_heal(_) :-
player_health(CurrentHealth),
CurrentHealth >= 100,
write('Du hast bereits volle Gesundheit!'), nl,
!.
combat_heal(Enemy) :-
health_recovery_used(Enemy, Used),
Used < 2,
random(19, 31, HealAmount),
player_health(CurrentHealth),
NewHealth is min(100, CurrentHealth + HealAmount),
HealedAmount is NewHealth - CurrentHealth,
retract(player_health(CurrentHealth)),
assertz(player_health(NewHealth)),
NewUsed is Used + 1,
retract(health_recovery_used(Enemy, Used)),
assertz(health_recovery_used(Enemy, NewUsed)),
write('Du heilst dich selbst und gewinnst '), write(HealedAmount),
write(' Gesundheitspunkte!'), nl,
RemainingUses is 2 - NewUsed,
write('Verbleibende Heilungen: '), write(RemainingUses), nl,
enemy_turn(Enemy).
% ========== COMBAT ITEMS ==========
execute_combat_item_use(emp_granate, Enemy) :-
emp_used_in_combat(Enemy),
write('Du hast bereits eine EMP-Granate in diesem Kampf verwendet!'), nl,
!.
execute_combat_item_use(emp_granate, Enemy) :-
enemy(Enemy, DisplayName, Health, Desc),
assertz(emp_used_in_combat(Enemy)),
(Enemy = die_kraehe ->
(write('Du schwächst die Krähe mit der EMP-Granate!'), nl,
retract(game_state(crow_weakened, false)),
assertz(game_state(crow_weakened, true)),
retract(player_inventory(emp_granate))) ;
(Damage = 40,
NewHealth is Health - Damage,
write('Die EMP-Granate verursacht '), write(Damage), write(' Schaden!'), nl,
retract(enemy(Enemy, DisplayName, Health, Desc)),
retract(player_inventory(emp_granate)),
(NewHealth =< 0 ->
(write(DisplayName), write(' wurde besiegt!'), nl,
defeat_enemy(Enemy)) ;
(assertz(enemy(Enemy, DisplayName, NewHealth, Desc)),
enemy_turn(Enemy))))).
execute_combat_item_use(kampfdrohne, Enemy) :-
drone_cooldown(Enemy, Cooldown),
Cooldown > 0,
write('Deine Kampfdrohne lädt noch auf! Cooldown: '), write(Cooldown), write(' Runden.'), nl,
!.
execute_combat_item_use(kampfdrohne, Enemy) :-
enemy(Enemy, DisplayName, Health, Desc),
Damage = 25,
NewHealth is Health - Damage,
write('Deine Kampfdrohne greift an und verursacht '), write(Damage), write(' Schaden!'), nl,
write('Die Drohne muss sich jetzt 2 Runden lang aufladen.'), nl,
% Set cooldown to 2 turns
retract(drone_cooldown(Enemy, _)),
assertz(drone_cooldown(Enemy, 2)),
retract(enemy(Enemy, DisplayName, Health, Desc)),
(NewHealth =< 0 ->
(write(DisplayName), write(' wurde besiegt!'), nl,
defeat_enemy(Enemy)) ;
(assertz(enemy(Enemy, DisplayName, NewHealth, Desc)),
enemy_turn(Enemy))).
execute_combat_item_use(laptop, Enemy) :-
hack_enemy(Enemy).
execute_combat_item_use(heilspray, _) :-
execute_item_use(heilspray).
execute_combat_item_use(Item, _) :-
\+ member(Item, [emp_granate, kampfdrohne, laptop, heilspray]),
item(Item, DisplayName, _),
write(DisplayName), write(' kann nicht im Kampf verwendet werden!'), nl.
execute_combat_item_use(Item, _) :-
write(Item), write(' kann nicht im Kampf verwendet werden!'), nl.
% ========== ENEMY HACKING SYSTEM ==========
hack_enemy(Enemy) :-
enemy_hack_attempted(Enemy, true),
write('Du hast bereits versucht, diesen Feind zu hacken!'), nl,
!.
hack_enemy(Enemy) :-
retract(enemy_hack_attempted(Enemy, false)),
assertz(enemy_hack_attempted(Enemy, true)),
enemy(Enemy, DisplayName, _, _),
write('=== FEIND HACKEN ==='), nl,
write('Du versuchst '), write(DisplayName), write(' zu hacken...'), nl,
enemy_hacking_minigame(Enemy).
% ========== ENEMY HACKING MINI-GAMES ==========
% Tauben-Schwarm: 1 Frage (Einfach)
enemy_hacking_minigame(tauben_schwarm) :-
write('=== SCHWARM-NETZWERK INFILTRATION ==='), nl,
write('Welches Protokoll verwenden IoT-Geräte hauptsächlich für Machine-to-Machine Kommunikation?'), nl,
write('1) HTTP'), nl,
write('2) MQTT'), nl,
write('3) FTP'), nl,
write('4) SMTP'), nl,
write('Deine Wahl (1-4): '),
read(Answer),
(Answer = 2 ->
successful_hack(tauben_schwarm, 25) ;
failed_hack(tauben_schwarm)).
% Storch-Drohne: 2 Fragen (Mittel)
enemy_hacking_minigame(storch_drohne) :-
write('=== KAMPFDROHNEN-SYSTEM HACKEN ==='), nl,
write('Frage 1/2: In welcher Schicht des OSI-Modells arbeiten Router hauptsächlich?'), nl,
write('1) Layer 2 (Data Link)'), nl,
write('2) Layer 7 (Application)'), nl,
write('3) Layer 4 (Transport)'), nl,
write('4) Layer 3 (Network)'), nl,
write('Deine Wahl (1-4): '),
read(Answer1),
(Answer1 = 4 ->
(write('Korrekt! Nächste Frage...'), nl,
write('Frage 2/2: Welcher Angriff nutzt Buffer Overflow aus?'), nl,
write('1) Return-to-libc'), nl,
write('2) Man-in-the-Middle'), nl,
write('3) Cross-Site Scripting'), nl,
write('4) DNS Spoofing'), nl,
write('Deine Wahl (1-4): '),
read(Answer2),
(Answer2 = 1 ->
successful_hack(storch_drohne, 35) ;
failed_hack(storch_drohne))) ;
failed_hack(storch_drohne)).
% Die Krähe: 3 Fragen (Schwer)
enemy_hacking_minigame(die_kraehe) :-
write('=== MASTER-KI INFILTRATION ==='), nl,
write('Frage 1/3: Welche Verschlüsselung ist quantenresistent?'), nl,
write('1) RSA-2048'), nl,
write('2) Lattice-based Cryptography'), nl,
write('3) Elliptic Curve'), nl,
write('Deine Wahl (1-3): '),
read(Answer1),
(Answer1 = 2 ->
(write('Korrekt! Nächste Frage...'), nl,
write('Frage 2/3: Was ist ein Zero-Day Exploit?'), nl,
write('1) Ein Exploit ohne bekannte Patches'), nl,
write('2) Ein Exploit, der täglich funktioniert'), nl,
write('3) Ein Exploit, der sofort erkannt wird'), nl,
write('4) Ein Exploit mit null Schaden'), nl,
write('Deine Wahl (1-4): '),
read(Answer2),
(Answer2 = 1 ->
(write('Korrekt! Letzte Frage...'), nl,
write('Frage 3/3: Welche Technik verwendet ROP (Return-Oriented Programming)?'), nl,
write('1) Heap Spraying'), nl,
write('2) Code Injection'), nl,
write('3) Gadget Chaining'), nl,
write('4) Format String Bugs'), nl,
write('Deine Wahl (1-4): '),
read(Answer3),
(Answer3 = 3 ->
successful_hack(die_kraehe, 50) ;
failed_hack(die_kraehe))) ;
failed_hack(die_kraehe))) ;
failed_hack(die_kraehe)).
% ========== HACK RESULTS ==========
successful_hack(Enemy, Damage) :-
enemy(Enemy, DisplayName, Health, Desc),
write('*** HACK ERFOLGREICH ***'), nl,
write('Du übernimmst temporär die Kontrolle über '), write(DisplayName), write('!'), nl,
write('Der Feind greift sich selbst an und erleidet '), write(Damage), write(' Schaden!'), nl,
NewHealth is Health - Damage,
retract(enemy(Enemy, DisplayName, Health, Desc)),
(NewHealth =< 0 ->
(write(DisplayName), write(' wurde durch den Hack zerstört!'), nl,
defeat_enemy(Enemy)) ;
(assertz(enemy(Enemy, DisplayName, NewHealth, Desc)),
write('Das System erholt sich... Der Feind ist wieder unter eigener Kontrolle.'), nl,
enemy_turn(Enemy))).
failed_hack(Enemy) :-
enemy(Enemy, DisplayName, _, _),
write('*** HACK FEHLGESCHLAGEN ***'), nl,
write('Dein Hack-Versuch wurde von '), write(DisplayName), write(' erkannt!'), nl,
write('Das System verstärkt seine Verteidigung und greift zurück!'), nl,
% Enemy gets an extra strong attack for failed hack
get_random_enemy_damage(BaseDamage),
ExtraDamage is BaseDamage + 10,
damage_player(ExtraDamage),
write(DisplayName), write(' führt einen verstärkten Gegenangriff aus und verursacht '),
write(ExtraDamage), write(' Schaden!'), nl.
% ========== ENEMY-ATTACKS/DEFEAT ==========
enemy_turn(Enemy) :-
drone_cooldown(Enemy, Cooldown),
(Cooldown > 0 ->
(NewCooldown is Cooldown - 1,
retract(drone_cooldown(Enemy, Cooldown)),
assertz(drone_cooldown(Enemy, NewCooldown))) ;
true),
enemy(Enemy, DisplayName, _, _),
(Enemy = die_kraehe, game_state(crow_weakened, false) ->
crow_mind_control ;
normal_enemy_attack(Enemy, DisplayName)).
normal_enemy_attack(_, DisplayName) :-
get_random_enemy_damage(Damage),
damage_player(Damage),
write(DisplayName), write(' greift an und verursacht '),
write(Damage), write(' Schaden!'), nl.
crow_mind_control :-
write('Die Krähe übernimmt die Kontrolle über deinen Verstand!'), nl,
write('Du schlägst dich selbst!'), nl,
damage_player(20),
write('Du verursachst dir '), write(20), write(' Schaden!'), nl.
defeat_enemy(EnemyName) :-
retract(enemy_location(EnemyName, _)),
retract(in_combat(EnemyName)),
handle_enemy_defeat(EnemyName),
retractall(emp_used_in_combat(EnemyName)),
retractall(drone_cooldown(EnemyName, _)),
retractall(health_recovery_used(EnemyName, _)),
retractall(enemy_hack_attempted(EnemyName, _)),
nl.

99
game_assets/command_processing.pl
View File

@ -1,99 +0,0 @@
% ========== INPUT PROCESSING ==========
read_line(Command) :-
read(Input),
parse_input(Input, Command).
parse_input(Input, [Input]) :-
atom(Input), !.
parse_input(Input, Command) :-
compound(Input),
Input =.. Command, !.
parse_input(_, [unknown]).
% ========== COMMAND PROCESSING ==========
process_command([oben]) :- check_konami_input(oben).
process_command([unten]) :- check_konami_input(unten).
process_command([links]) :- check_konami_input(links).
process_command([rechts]) :- check_konami_input(rechts).
process_command([a]) :- check_konami_input(a).
process_command([b]) :- check_konami_input(b).
process_command([beende]) :-
end_game.
process_command([hilfe]) :-
help.
process_command([schaue]) :-
look_around.
process_command([gehe, Direction]) :-
move_player(Direction).
process_command([nimm, Item]) :-
take_item(Item).
process_command([verwende, Item]) :-
use_item(Item).
process_command([rede, Person]) :-
talk_to(Person).
process_command([angriff, Enemy]) :-
start_combat(Enemy).
process_command([baue, Item]) :-
craft_item(Item).
process_command([hack, Target]) :-
hack_target(Target).
process_command([klettere]) :-
climb_action.
process_command([inventar]) :-
show_inventory.
process_command([status]) :-
show_status.
process_command([clear]) :-
clear_screen.
% ========== CHEAT CODES (FOR TESTING) ==========
process_command([cheat, heal]) :-
retract(player_health(_)),
assertz(player_health(100)),
write('Gesundheit wiederhergestellt!'), nl.
process_command([cheat, items]) :-
assertz(player_inventory(spule)),
assertz(player_inventory(batterie)),
assertz(player_inventory(kondensator)),
assertz(player_inventory(emp_granate)),
assertz(player_inventory(emp_granate)),
assertz(player_inventory(parkour_handschuhe)),
assertz(player_inventory(drohnen_motor)),
assertz(player_inventory(steuerungsmodul)),
assertz(player_inventory(heilspray)),
write('Alle Items erhalten!'), nl.
process_command([cheat, teleport, LOC]) :-
retract(player_location(_)),
assertz(player_location(LOC)).
process_command([cheat, generator_components]) :-
assertz(player_inventory(spule)),
assertz(player_inventory(batterie)),
assertz(player_inventory(kondensator)),
write('EMP-Generator Komponenten erhalten!'), nl.
process_command([cheat, generator_components]) :-
assertz(player_inventory(drohnen_motor)),
assertz(player_inventory(steuerungsmodul)),
write('Kampfdrone Komponenten erhalten!'), nl.
process_command(_) :-
write('Unbekannter Befehl. Verwende "hilfe" für eine Liste der Befehle.'), nl.

68
game_assets/commands.pl
View File

@ -1,68 +0,0 @@
% ========== MOVEMENT ==========
move_player(Direction) :-
player_location(CurrentLoc),
connected(CurrentLoc, Direction),
(obstacle(CurrentLoc, Direction, ObstacleType) ->
handle_obstacle(ObstacleType, Direction) ;
(retract(player_location(CurrentLoc)),
assertz(player_location(Direction)),
write('Du gehst nach '), write(Direction), nl
)),
!.
move_player(_) :-
write('Du kannst nicht dorthin gehen.'), nl.
% ========== LOOKING ==========
look_around :-
player_location(Loc),
location(Loc, Name, Desc),
write(Name), nl,
write(Desc), nl,
list_items_here(Loc),
list_npcs_here(Loc),
list_enemies_here(Loc),
list_exits(Loc),
list_obstacles_here(Loc).
list_items_here(Loc) :-
findall(Item, item_location(Item, Loc), Items),
(Items = [] -> true ;
(write('Gegenstände hier: '), write_list(Items), nl)).
list_npcs_here(Loc) :-
findall(NPC, npc_location(NPC, Loc), NPCs),
(NPCs = [] -> true ;
(write('Personen hier: '), write_list(NPCs), nl)).
list_enemies_here(Loc) :-
findall(Enemy, enemy_location(Enemy, Loc), Enemies),
(Enemies = [] -> true ;
(write('Feinde hier: '), write_list(Enemies), nl)).
list_exits(Loc) :-
findall(Exit, connected(Loc, Exit), Exits),
(Exits = [] -> write('Keine Ausgänge.') ;
(write('Ausgänge: '), write_list(Exits))), nl.
list_obstacles_here(Loc) :-
findall(obstacle(Loc, Exit, ObstacleType), obstacle(Loc, Exit, ObstacleType), Obstacles),
(Obstacles = [] -> true ; list_obstacles(Obstacles)).
% ========== HELP ==========
help :- write('Verfügbare Befehle:'), nl,
write('- schaue: Beschreibung des aktuellen Ortes'), nl,
write('- gehe(richtung): Bewege dich zu einem anderen Ort'), nl,
write('- nimm(gegenstand): Nimm einen Gegenstand auf'), nl,
write('- verwende(gegenstand): Verwende einen Gegenstand'), nl,
write('- rede(person): Spreche mit einer Person'), nl,
write('- angriff(feind): Beginne Kampf gegen einen Feind'), nl,
write('- baue(item): Baue einen Gegenstand (nur in Werkstatt)'), nl,
write('- hack(ziel): Hacke ein Ziel'), nl,
write('- klettere: Klettere auf Dächer/Türme'), nl,
write('- inventar: Zeige dein Inventar'), nl,
write('- status: Zeige deinen Status'), nl,
write('- beende: Schließt das Spiel'), nl,
write('- clear: Löscht den Terminalbildschirm'), nl,
write('- Richtungsbefehle: oben, unten, links, rechts, a, b'), nl,
write(' (Könnte für etwas Besonderes nützlich sein...)'), nl.

50
game_assets/crafting_system.pl
View File

@ -1,50 +0,0 @@
% ========== CRAFTING SYSTEM ==========
craft_item(emp_generator) :-
player_location(htl_werkstatt),
player_inventory(spule),
player_inventory(batterie),
player_inventory(kondensator),
write('Du baust aus Spule, Batterie und Kondensator einen EMP-Generator!'), nl,
retract(player_inventory(spule)),
retract(player_inventory(batterie)),
retract(player_inventory(kondensator)),
assertz(player_inventory(emp_generator)),
retract(game_state(emp_built, false)),
assertz(game_state(emp_built, true)),
advance_chapter_if(3),
!.
craft_item(emp_generator) :-
player_location(htl_werkstatt),
write('Du brauchst: Elektro-Spule, Hochleistungsbatterie und Kondensator.'), nl,
!.
craft_item(emp_generator) :-
write('Du kannst nur in der HTL Leonding Werkstatt bauen.'), nl,
!.
craft_item(_) :-
write('Du kannst diesen Gegenstand nicht bauen.'), nl.
craft_item(kampfdrohne) :-
player_location(htl_werkstatt),
player_inventory(drohnen_motor),
player_inventory(steuerungsmodul),
write('Du baust aus Motor und Steuerungsmodul eine Kampfdrohne!'), nl,
retract(player_inventory(drohnen_motor)),
retract(player_inventory(steuerungsmodul)),
assertz(player_inventory(kampfdrohne)),
advance_chapter_if(2),
!.
craft_item(kampfdrohne) :-
player_location(htl_werkstatt),
write('Du brauchst: Drohnen-Motor und Steuerungsmodul um eine Kampfdrohne zu bauen.'), nl,
!.
craft_item(kampfdrohne) :-
write('Du kannst nur in der HTL Leonding Werkstatt bauen.'), nl,
!.
craft_item(_) :-
write('Du kannst diesen Gegenstand nicht bauen.'), nl.

123
game_assets/endings.pl
View File

@ -1,123 +0,0 @@
% ========== FINAL CHOICES ==========
final_choice :-
write('=== FINALE ENTSCHEIDUNG ==='), nl,
write('Du hast drei Möglichkeiten:'), nl,
write('1) Das Hauptquartier mit einer EMP-Überladung zerstören (du stirbst dabei)'), nl,
write('2) Dich Aviary Control anschließen und die Welt beherrschen'), nl,
write('3) Das System hacken und die Kontrolle übernehmen'), nl,
write('Deine Wahl (1-3): '),
read(Choice),
handle_final_choice(Choice),
game_over_menu.
handle_final_choice(1) :-
write('Du entscheidest dich für das ultimative Opfer...'), nl,
write('Du überlädst alle EMP-Generatoren und Granaten gleichzeitig.'), nl,
write('Die resultierende Explosion wird das gesamte Aviary-Netzwerk vernichten.'), nl,
write('Du weißt, dass du dabei sterben wirst, aber die Menschheit wird frei sein.'), nl,
write('Du drückst den roten Knopf...'), nl,
end_game(heroic_sacrifice).
handle_final_choice(2) :-
write('Du blickst auf die Macht, die vor dir liegt...'), nl,
write('Warum gegen das System kämpfen, wenn du es beherrschen kannst?'), nl,
write('Du aktivierst die Aviary-Kontrolle und übernimmst das Drohnen-Netzwerk.'), nl,
write('Die Welt wird unter deiner Herrschaft "sicher" sein...'), nl,
write('Aber zu welchem Preis?'), nl,
end_game(dark_ruler).
handle_final_choice(3) :-
player_inventory(master_schluessel),
write('Du verwendest den Master-Schlüssel für vollständigen Systemzugriff...'), nl,
write('Mit diesem legendären Artefakt hackst du dich mühelos durch alle Sicherheitsebenen!'), nl,
write('Du übernimmst nicht nur die Kontrolle - du wirst zum Meister des Systems!'), nl,
write('Die Drohnen werden zu Beschützern der Freiheit umfunktioniert.'), nl,
write('Du etablierst ein neues Zeitalter der technologischen Harmonie!'), nl,
end_game(master_hacker_victory),
!.
handle_final_choice(3) :-
write('Du versuchst das System zu hacken, aber die Sicherheit ist zu stark...'), nl,
write('Ohne die richtige Ausrüstung ist ein vollständiger Hack unmöglich.'), nl,
write('Du wirst entdeckt und gefangen genommen!'), nl,
write('(Hinweis: Es gibt einen geheimen Weg, diese Fähigkeit zu erlangen...)'), nl,
end_game(hack_failure).
handle_final_choice(_) :-
write('Ungültige Wahl! Bitte wähle 1, 2 oder 3.'), nl,
final_choice.
% ========== GAME ENDINGS ==========
end_game(heroic_sacrifice) :-
clear_screen,
write('=== HEROISCHES OPFER ==='), nl,
write('BOOOOOOM!'), nl,
write('Das Aviary HQ explodiert in einem blendenden Lichtblitz!'), nl,
write('Alle Drohnen weltweit fallen gleichzeitig vom Himmel.'), nl,
write('Die Menschen von Linz und der ganzen Welt sind frei!'), nl,
write('Du hast dein Leben für die Freiheit der Menschheit geopfert.'), nl,
write('Du wirst als Held in Erinnerung bleiben!'), nl,
write('ENDE: Der ultimative Held'), nl.
end_game(dark_ruler) :-
clear_screen,
write('=== DUNKLER HERRSCHER ==='), nl,
write('Die Drohnen schwärmen aus und überwachen jeden Winkel der Erde.'), nl,
write('Unter deiner Kontrolle gibt es keine Verbrechen, keine Unordnung...'), nl,
write('Aber auch keine Freiheit, keine Privatsphäre, keine Menschlichkeit.'), nl,
write('Du sitzt auf einem Thron aus Überwachung und Kontrolle.'), nl,
write('Die Welt ist "sicher" - aber zu welchem Preis?'), nl,
write('ENDE: Der neue Überwacher'), nl.
end_game(master_hacker_victory) :-
clear_screen,
write('=== MEISTER-HACKER TRIUMPH ==='), nl,
write('Mit dem Master-Schlüssel hast du göttliche Kontrolle über das Netzwerk erlangt!'), nl,
write('Du transformierst das gesamte System in einen Beschützer der Menschheit.'), nl,
write('Die Drohnen werden zu Helfern: Sie retten Menschen, schützen die Umwelt'), nl,
write('und überwachen nur noch wirkliche Bedrohungen.'), nl,
write('Du hast die perfekte Balance zwischen Sicherheit und Freiheit geschaffen!'), nl,
write('Die Welt ist in eine neue Ära des technologischen Friedens eingetreten.'), nl,
write('ENDE: Der Meister-Hacker (Geheimes Ende)'), nl.
end_game(hack_failure) :-
clear_screen,
write('=== HACK FEHLGESCHLAGEN ==='), nl,
write('Deine Hacking-Versuche wurden entdeckt!'), nl,
write('Sicherheitsdrohnen umzingeln dich!'), nl,
write('Du wurdest gefangen genommen und das System läuft weiter...'), nl,
write('GAME OVER'), nl,
write('Vielleicht gibt es einen anderen Weg... einen geheimen Code?'), nl.
end_game(defeat) :-
clear_screen,
write('=== NIEDERLAGE ==='), nl,
write('Du wurdest von den Drohnen überwältigt.'), nl,
write('Die Wahrheit bleibt für immer begraben...'), nl,
write('GAME OVER'), nl,
game_over_menu.
% ========== GAME_OVER MENU ==========
game_over_menu :-
nl,
write('=== SPIEL BEENDET ==='), nl,
write('Möchtest du nochmal spielen?'), nl,
write('1) Ja - Neues Spiel starten'), nl,
write('2) Nein - Program beenden'), nl,
write('Deine Wahl (1 oder 2): '),
read(Choice),
handle_game_over_choice(Choice).
handle_game_over_choice(1) :-
nl,
write('Startet neues Spiel...'), nl,
nl,
start_game.
handle_game_over_choice(2) :-
end_game.
handle_game_over_choice(_) :-
write('Ungültige Wahl! Bitte wähle 1, 2 oder 3.'), nl,
game_over_menu.

78
game_assets/game_state.pl
View File

@ -1,78 +0,0 @@
% ========== GAME STATE ==========
:- dynamic(player_location/1).
:- dynamic(player_health/1).
:- dynamic(player_inventory/1).
:- dynamic(game_state/2).
:- dynamic(npc_location/2).
:- dynamic(enemy_location/2).
:- dynamic(item_location/2).
:- dynamic(enemy/4).
:- dynamic(obstacle/3).
:- dynamic(box_unlocked/1).
:- dynamic(in_combat/1).
:- dynamic(combat_turn/1).
:- dynamic(emp_used_in_combat/1).
:- dynamic(drone_cooldown/2).
:- dynamic(health_recovery_used/2).
:- dynamic(konami_sequence/1).
:- dynamic(konami_position/1).
:- dynamic(chapter/1).
% ========== GAME STATE MANAGEMENT ==========
check_game_state :-
player_health(Health),
(Health =< 0 ->
(retractall(in_combat(_)),
end_game(defeat),
!, fail) ;
true).
advance_chapter :-
chapter(Current),
Next is Current + 1,
retract(chapter(Current)),
assertz(chapter(Next)).
advance_chapter_if(TargetChapter) :-
(chapter(TargetChapter) ->
advance_chapter ;
true).
% ========== OBJECTIVE DEFINITIONS ==========
objective(0, 'Schaue dir das Video des Angriffs auf deinem Laptop an').
objective(1, 'Sprich mit Wren').
objective(2, 'Sammle alle Teile der Kampfdrohne und baue die in der HTL-Werkstatt zusammen').
objective(3, 'Sammle alle Teile des EMP-Generators und baue der in der HTL-Werkstatt zusammen').
objective(4, 'Sprich mit Wren').
objective(5, 'Besiege die Krähe').
% ========== SHOW STATUS ==========
show_current_objective :-
chapter(CurrentChapter),
objective(CurrentChapter, ObjectiveText),
write('Aktuelles Ziel: '), write(ObjectiveText), nl.
show_required_components :-
chapter(CurrentChapter),
% Show drone components only if collecting drone parts (chapter 3)
(CurrentChapter =:= 2 ->
(write('Kampfdrohne Komponenten:'), nl,
(player_inventory(drohnen_motor) -> write(' Drohnen-Motor: ✓') ; write(' Drohnen-Motor: ✗')), nl,
(player_inventory(steuerungsmodul) -> write(' Steuerungsmodul: ✓') ; write(' Steuerungsmodul: ✗')), nl) ;
true),
% Show EMP components only if collecting EMP parts (chapter 5)
(CurrentChapter =:= 3 ->
(write('EMP-Generator Komponenten:'), nl,
(player_inventory(spule) -> write(' Elektro-Spule: ✓') ; write(' Elektro-Spule: ✗')), nl,
(player_inventory(batterie) -> write(' Batterie: ✓') ; write(' Batterie: ✗')), nl,
(player_inventory(kondensator) -> write(' Kondensator: ✓') ; write(' Kondensator: ✗')), nl) ;
true).
show_status :-
player_health(Health),
write('=== STATUS ==='), nl,
write('Gesundheit: '), write(Health), nl,
show_current_objective,
show_required_components,
write('=============='), nl.

75
game_assets/hacking_system.pl
View File

@ -1,75 +0,0 @@
% ========== HACKING SYSTEM ==========
hack_target(box) :-
player_location(Loc),
player_inventory(laptop),
hacking_minigame(Loc),
!.
hack_target(_) :-
write('Du kannst dieses Ziel nicht hacken oder hast keinen Laptop.'), nl.
% ========== HACKING MINI-GAMES ==========
hacking_minigame(altstadt) :-
box_unlocked(altstadt_box),
write('Diese Box wurde bereits gehackt.'), nl,
!.
hacking_minigame(altstadt) :-
write('=== HACKING MINI-GAME ==='), nl,
write('Entschlüssele den Code: 1001 + 0110 = ?'), nl,
write('Gib das Ergebnis in binär ein: '),
read(Answer),
(Answer = 1111 ->
(write('Korrekt! Du findest eine Elektro-Spule in der Box!'), nl,
assertz(player_inventory(spule)),
assertz(box_unlocked(altstadt_box))) ;
(write('Falsch! Versuch es nochmal.'), nl,
fail)).
hacking_minigame(donauufer) :-
box_unlocked(donauufer_box),
write('Diese Box wurde bereits gehackt.'), nl,
!.
hacking_minigame(donauufer) :-
write('=== HACKING MINI-GAME ==='), nl,
write('SQL Injection: Welcher Befehl umgeht die Passwort-Abfrage?'), nl,
write('1) DROP TABLE users'), nl,
write('2) \' OR \'1\'=\'1'), nl,
write('3) SELECT * FROM passwords'), nl,
write('Deine Wahl (1-3): '),
read(Answer),
(Answer = 2 ->
(write('Korrekt! Du findest eine Hochleistungsbatterie in der Box!'), nl,
assertz(player_inventory(batterie)),
assertz(box_unlocked(donauufer_box))) ;
(write('Falsch! Versuch es nochmal.'), nl,
fail)).
hacking_minigame(poestlingberg) :-
box_unlocked(poestlingberg_box),
write('Diese Box wurde bereits gehackt.'), nl,
!.
hacking_minigame(poestlingberg) :-
player_inventory(kampfdrohne),
write('=== DROHNEN-HACKING ==='), nl,
write('Deine Kampfdrohne verbindet sich mit der Box...'), nl,
write('Netzwerk-Port-Scan: Welcher Port ist für SSH Standard?'), nl,
write('1) Port 80'), nl,
write('2) Port 22'), nl,
write('3) Port 443'), nl,
write('Deine Wahl (1-3): '),
read(Answer),
(Answer = 2 ->
(write('Korrekt! Du findest einen Kondensator in der Box!'), nl,
assertz(player_inventory(kondensator)),
assertz(box_unlocked(poestlingberg_box))) ;
(write('Falsch! Versuch es nochmal.'), nl,
fail)).
hacking_minigame(poestlingberg) :-
write('Du brauchst eine Kampfdrohne um diese Box zu hacken.'), nl.
hacking_minigame(_) :-
write('Hier gibt es nichts zu hacken.'), nl.

31
game_assets/inventory.pl
View File

@ -1,31 +0,0 @@
% ========== INVENTORY MANAGEMENT ==========
take_item(ItemName) :-
player_location(Loc),
item_location(ItemName, Loc),
retract(item_location(ItemName, Loc)),
assertz(player_inventory(ItemName)),
item(ItemName, DisplayName, _),
write('Du nimmst '), write(DisplayName), write(' auf.'), nl,
!.
take_item(_) :-
write('Diesen Gegenstand kannst du hier nicht finden.'), nl.
use_item(ItemName) :-
player_inventory(ItemName),
execute_item_use(ItemName),
!.
use_item(_) :-
write('Du hast diesen Gegenstand nicht oder kannst ihn nicht verwenden.'), nl.
show_inventory :-
write('Dein Inventar:'), nl,
findall(Item, player_inventory(Item), Items),
(Items = [] -> write('Dein Inventar ist leer.') ; list_inventory_items(Items)), nl.
list_inventory_items([]).
list_inventory_items([H|T]) :-
item(H, DisplayName, Desc),
write('- '), write(DisplayName), write(': '), write(Desc), nl,
list_inventory_items(T).

45
game_assets/items.pl
View File

@ -1,45 +0,0 @@
% ========== ITEMS ==========
item(laptop, 'Laptop', 'Dein vertrauter Laptop mit Hacking-Software.').
item(emp_granate, 'EMP-Granate', 'Eine elektromagnetische Impulsgranate gegen elektrische Systeme.').
item(parkour_handschuhe, 'Parkour-Handschuhe', 'Verbessern deinen Grip beim Klettern.').
item(kampfdrohne, 'Kampfdrohne', 'Deine selbstgebaute Verteidigungsdrohne.').
item(emp_generator, 'EMP-Generator', 'Ein mächtiger EMP-Generator gegen das Sischerheitssytem des Aviary HQs.').
item(spule, 'Elektro-Spule', 'Eine hochwertige Induktionsspule.').
item(batterie, 'Hochleistungsbatterie', 'Eine spezielle Batterie für EMP-Geräte.').
item(kondensator, 'Kondensator', 'Ein Hochspannungskondensator.').
item(heilspray, 'Heilspray', 'Regeneriert 30 Gesundheitspunkte.').
item(drohnen_motor, 'Drohnen-Motor', 'Ein kleiner Motor für Drohnen-Antrieb.').
item(steuerungsmodul, 'Steuerungsmodul', 'Elektronisches Modul zur Drohnen-Steuerung.').
item(master_schluessel, 'Master-Schlüssel', 'Ein geheimnisvoller Schlüssel mit Aviary-Logo. Gewährt vollständigen Systemzugriff.').
% ========== INITIAL ITEM LOCATIONS ==========
init_items :-
retractall(item_location(_, _)),
retractall(player_inventory(_)),
assertz(player_inventory(laptop)),
assertz(item_location(emp_granate, htl_werkstatt)),
assertz(item_location(emp_granate, htl_werkstatt)),
assertz(item_location(parkour_handschuhe, altstadt)),
assertz(item_location(heilspray, htl_labor)).
% ========== ITEM USAGE ==========
execute_item_use(laptop) :-
player_location(htl_labor),
write('Du hackst dich in die Schulserver ein und analysierst die Drohnen-Aufnahmen.'), nl,
write('SCHOCKIERENDE ENTDECKUNG: Die Vögel sind Überwachungsdrohnen!'), nl,
advance_chapter_if(0),
!.
execute_item_use(heilspray) :-
player_health(Health),
(Health >= 100 ->
write('Du hast bereits volle Gesundheit!'), nl ;
(NewHealth is min(100, Health + 30),
retract(player_health(Health)),
assertz(player_health(NewHealth)),
write('Du verwendest das Heilspray und gewinnst 30 Gesundheitspunkte!'), nl,
retract(player_inventory(heilspray)))),
!.
execute_item_use(_) :-
write('Du kannst diesen Gegenstand hier nicht verwenden.'), nl.

40
game_assets/konami_code.pl
View File

@ -1,40 +0,0 @@
% ========== KONAMI CODE ==========
check_konami_input(Input) :-
(konami_position(_) -> true ; init_konami),
konami_position(Pos),
konami_sequence(Sequence),
nth0(Pos, Sequence, Expected),
(Input = Expected ->
(NewPos is Pos + 1,
retract(konami_position(Pos)),
assertz(konami_position(NewPos)),
length(Sequence, SeqLength),
(NewPos >= SeqLength ->
unlock_konami_code ;
true)) ;
(retract(konami_position(_)),
assertz(konami_position(0)),
write('Invalide Code, Hinweis: Contra.'), nl)).
init_konami :-
retractall(konami_sequence(_)),
retractall(konami_position(_)),
assertz(konami_sequence([oben, oben, unten, unten, links, rechts, links, rechts, b, a])),
assertz(konami_position(0)).
unlock_konami_code :-
game_state(konami_unlocked, false),
write('*** KONAMI CODE AKTIVIERT! ***'), nl,
write('Ein geheimnisvoller Master-Schlüssel materialisiert sich in deinem Inventar!'), nl,
write('Dieses Artefakt gewährt dir vollständigen Zugriff auf alle Systeme...'), nl,
assertz(player_inventory(master_schluessel)),
retract(game_state(konami_unlocked, false)),
assertz(game_state(konami_unlocked, true)),
retract(konami_position(_)),
assertz(konami_position(0)),
!.
unlock_konami_code :-
write('Der Konami Code wurde bereits aktiviert!'), nl,
retract(konami_position(_)),
assertz(konami_position(0)).

30
game_assets/locations.pl
View File

@ -1,30 +0,0 @@
% ========== 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).

91
game_assets/npcs.pl
View File

@ -1,91 +0,0 @@
% ========== CHARACTERS ==========
character(john, 'John Miller', 'Ein 17-jähriger HTL-Schüler mit Hacking-Fähigkeiten.').
character(wren, 'Wren', 'Cybersicherheitslehrerin und Rogue-Hackerin.').
character(die_kraehe, 'Die Krähe', 'KI-Mastermind hinter dem Drohnen-Netzwerk.').
% ========== INITIAL NPC LOCATIONS ==========
init_npcs :-
retractall(npc_location(_, _)),
assertz(npc_location(wren, htl_labor)).
% ========== NPC INTERACTIONS ==========
talk_to(PersonName) :-
player_location(Loc),
npc_location(PersonName, Loc),
handle_conversation(PersonName),
!.
talk_to(_) :-
write('Diese Person ist nicht hier.'), nl.
handle_conversation(wren) :-
game_state(wren_met, false),
write('Wren: "John! Ich habe auf dich gewartet. Ich weiß von den Drohnen."'), nl,
write('Wren: "Es gibt eine Organisation namens Aviary Control. Wir müssen sie stoppen!"'), nl,
write('Wren: "Du brauchst einen EMP-Generator um in ihr Hauptquartier einzudringen."'), nl,
write('Wren: "Sammle diese Komponenten: Elektro-Spule, Hochleistungsbatterie und Kondensator."'), nl,
write('Wren: "Die Spule findest du in einer Box auf einem Dach in der Altstadt."'), nl,
write('Wren: "Die Batterie ist in einer Box auf einem Turm im Donauufer versteckt."'), nl,
write('Wren: "Der Kondensator ist im Pöstlingberg-Turm, aber du brauchst eine Kampfdrohne."'), nl,
write('Wren: "Baue deine eigene Kampfdrohne! Besiege Tauben für einen Motor und Störche für Steuerung."'), nl,
write('Wren: "Baue alles dann in der HTL Leonding Werkstatt zusammen."'), nl,
write('Wren gibt dir EMP-Granaten für den Anfang.'), nl,
assertz(player_inventory(emp_granate)),
assertz(player_inventory(emp_granate)),
retract(game_state(wren_met, false)),
assertz(game_state(wren_met, true)),
retract(game_state(components_explained, false)),
assertz(game_state(components_explained, true)),
advance_chapter_if(1),
!.
handle_conversation(wren) :-
game_state(components_explained, true),
game_state(emp_built, false),
write('Wren: "Vergiss nicht: Du brauchst alle drei Komponenten für den EMP-Generator!"'), nl,
write('Wren: "Elektro-Spule (Altstadt-Dach), Batterie (Donauufer-Turm), Kondensator (Pöstlingberg)."'), nl,
write('Wren: "Verwende Parkour-Handschuhe zum Klettern und deine Kampfdrohne im Pöstlingberg."'), nl,
!.
handle_conversation(wren) :-
game_state(emp_built, true),
write('Wren: "Perfekt! Mit dem EMP-Generator kannst du ins Aviary HQ eindringen!"'), nl,
write('Wren: "Pass auf die Krähe auf - schwäche sie mit EMP-Granaten, sonst kontrolliert sie dich!"'), nl,
advance_chapter_if(4),
!.
handle_conversation(wren) :-
write('Wren: "Viel Glück, John. Die Zukunft der Menschheit liegt in deinen Händen."'), nl.
% ========== ENEMIES ==========
init_enemies :-
retractall(enemy(_, _, _, _)),
retractall(enemy_location(_, _)),
assertz(enemy(tauben_schwarm, 'Tauben-Schwarm', 50, 'Metallische Tauben mit roten LED-Augen.')),
assertz(enemy(storch_drohne, 'Storch-Drohne', 80, 'Große, gepanzerte Kampfdrohne.')),
assertz(enemy(die_kraehe, 'Die Krähe', 150, 'Monströse KI-Drohne mit Gedankenkontrolle.')),
assertz(enemy_location(tauben_schwarm, altstadt)),
assertz(enemy_location(storch_drohne, donauufer)),
assertz(enemy_location(die_kraehe, aviary_hq)).
handle_enemy_defeat(tauben_schwarm) :-
write('Die Tauben explodieren! Du findest ein Heilspray und einen Drohnen-Motor in den Trümmern.'), nl,
player_location(Loc),
assertz(item_location(drohnen_motor, Loc)),
assertz(item_location(heilspray, Loc)).
handle_enemy_defeat(storch_drohne) :-
write('Die Storch-Drohne lässt ein Steuerungsmodul und EMP-Granaten fallen!'), nl,
player_location(Loc),
assertz(item_location(steuerungsmodul, Loc)),
assertz(item_location(emp_granate, Loc)).
handle_enemy_defeat(die_kraehe) :-
write('Die Krähe ist besiegt! Das Drohnen-Netzwerk wankt...'), nl,
write('Du stehst vor der Hauptkonsole von Aviary Control.'), nl,
write('Plötzlich erscheint eine Nachricht auf dem Bildschirm:'), nl,
write('"Beeindruckend, John. Du hast es bis hierher geschafft."'), nl,
write('"Aber jetzt musst du eine Wahl treffen..."'), nl,
final_choice.

57
game_assets/obstacles.pl
View File

@ -1,57 +0,0 @@
% ========== 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)).
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').
list_obstacles([]).
list_obstacles([obstacle(_, Exit, ObstacleType)|T]) :-
write('HINDERNIS nach '), write(Exit), write(': '),
describe_obstacle(ObstacleType), nl,
list_obstacles(T).
handle_obstacle(hohe_mauer, Direction) :-
(player_inventory(parkour_handschuhe) ->
(write('Du kletterst mit den Parkour-Handschuhen über die hohe Mauer!'), nl,
player_location(CurrentLoc),
retract(obstacle(CurrentLoc, Direction, hohe_mauer)),
retract(player_location(CurrentLoc)),
assertz(player_location(Direction)),
write('Du gehst nach '), write(Direction), nl) ;
write('Eine hohe Mauer blockiert deinen Weg! Du brauchst Parkour-Handschuhe.'), nl).
handle_obstacle(drone_swarm, Direction) :-
(player_inventory(kampfdrohne) ->
(write('Deine Kampfdrohne bekämpft den feindlichen Schwarm!'), nl,
write('Die Drohnen werden zerstört und der Weg ist frei!'), nl,
player_location(CurrentLoc),
retract(obstacle(CurrentLoc, Direction, drone_swarm)),
retract(player_location(CurrentLoc)),
assertz(player_location(Direction)),
write('Du gehst nach '), write(Direction), nl) ;
write('Ein Schwarm aggressiver Drohnen blockiert den Weg! Du brauchst eine Kampfdrohne.'), nl).
handle_obstacle(security_system, Direction) :-
(player_inventory(emp_generator) ->
(write('Du aktivierst den EMP-Generator! Das Sicherheitssystem bricht zusammen!'), nl,
player_location(CurrentLoc),
retract(obstacle(CurrentLoc, Direction, security_system)),
retract(player_location(CurrentLoc)),
assertz(player_location(Direction)),
write('Du gehst nach '), write(Direction), nl) ;
write('Ein Hochsicherheitssystem blockiert den Zugang! Du brauchst einen EMP-Generator.'), nl).

85
game_assets/parkour_minigames.pl
View File

@ -1,85 +0,0 @@
% ========== PARKOUR-MINIGAMES ==========
parkour_minigame_altstadt :-
write('Sequenz-Challenge: Wiederhole die Bewegungsfolge!'), nl,
random_member(Sequence, [[sprung, rolle, kletter], [rolle, sprung, balance], [kletter, sprung, rolle]]),
write('Merke dir: '), write_sequence(Sequence), nl,
write('Warte...'), nl, sleep(2),
clear_screen,
write('Jetzt wiederhole die Sequenz:'), nl,
write('Gib die Sequenz als Liste ein, z.B. [sprung, rolle, kletter].'), nl,
write('Verfügbare Bewegungen: sprung, rolle, kletter, balance'), nl,
write('> '),
read_sequence(UserSequence),
(UserSequence = Sequence ->
(write('Perfekte Ausführung! Du erreichst das Dach sicher!'), nl,
write('Du findest eine verschlossene Box auf dem Dach.'), nl,
write('Verwende "hack(box)" um sie zu öffnen.'), nl) ;
(write('Falsche Sequenz! Du rutschst ab und verlierst 10 Gesundheit.'), nl,
damage_player(10))).
climbing_minigame_donauufer :-
write('Balance-Challenge: Halte das Gleichgewicht!'), nl,
write('Drücke abwechselnd "links" und "rechts" um das Gleichgewicht zu halten.'), nl,
write('Du musst 5 mal korrekt reagieren!'), nl,
balance_challenge(5, 0).
balance_challenge(0, Success) :-
Success >= 4,
write('Excellent! Du hast den Turm erfolgreich erklommen!'), nl,
write('Oben ist ein elektrisches Schutzschild um eine Box.'), nl,
write('Du brauchst eine EMP-Granate um das Schild zu deaktivieren.'), nl,
(player_inventory(emp_granate) ->
(write('Du verwendest die EMP-Granate! Das Schild fällt aus!'), nl,
retract(player_inventory(emp_granate)),
write('Verwende "hack(box)" um die Box zu öffnen.'), nl) ;
true),
!.
balance_challenge(0, Success) :-
Success < 4,
write('Du verlierst das Gleichgewicht und fällst! 15 Schaden!'), nl,
damage_player(15),
!.
balance_challenge(Remaining, Success) :-
Remaining > 0,
random_member(Direction, [links, rechts]),
write('Das Gebäude schwankt nach '), write(Direction), write('! Schnell reagieren:'), nl,
write('> '),
read(Response),
NewRemaining is Remaining - 1,
(Response = Direction ->
(write('Gut! Gleichgewicht gehalten.'), nl,
NewSuccess is Success + 1) ;
(write('Falsch! Du wackelst gefährlich.'), nl,
NewSuccess = Success)),
balance_challenge(NewRemaining, NewSuccess).
climbing_minigame_poestlingberg :-
write('Stealth-Klettern: Vermeide die Überwachungskameras!'), nl,
write('Du musst die richtige Route wählen um unentdeckt zu bleiben.'), nl,
stealth_climbing_challenge.
stealth_climbing_challenge :-
write('Stufe 1: Kamera schwenkt von links nach rechts. Wann bewegst du dich?'), nl,
write('1) Wenn die Kamera nach links schaut'), nl,
write('2) Wenn die Kamera nach rechts schaut'), nl,
write('3) Wenn die Kamera geradeaus schaut'), nl,
write('> '),
read(Choice1),
(Choice1 = 1 ->
(write('Richtig! Du nutzt den toten Winkel.'), nl,
write('Stufe 2: Zwei Kameras kreuzen sich. Wann bewegst du dich?'), nl,
write('1) Gleichzeitig mit beiden'), nl,
write('2) Zwischen den Schwenkbewegungen'), nl,
write('3) Wenn eine Kamera defekt ist'), nl,
write('> '),
read(Choice2),
(Choice2 = 2 ->
(write('Perfekt! Du erreichst die Spitze unentdeckt!'), nl,
write('Du findest eine schwer gesicherte Box.'), nl,
write('Diese Box benötigt eine Kampfdrohne zum Hacken.'), nl) ;
(write('Entdeckt! Alarm! Du verlierst 20 Gesundheit beim hastigen Rückzug.'), nl,
damage_player(20)))) ;
(write('Entdeckt! Du musst schnell fliehen und verlierst 15 Gesundheit.'), nl,
damage_player(15))).

43
game_assets/utilities.pl
View File

@ -1,43 +0,0 @@
% ========== UTILITY PREDICATES ==========
get_random_damage(Damage) :-
random(12, 21, Damage). % Random damage between 12-20
get_random_enemy_damage(Damage) :-
random(10, 19, Damage). % Random enemy damage between 10-18
damage_player(Damage) :-
player_health(Health),
NewHealth is Health - Damage,
retract(player_health(Health)),
assertz(player_health(NewHealth)).
random_member(Element, List) :-
length(List, Length),
Length > 0,
random(0, Length, RandomIndex),
nth0(RandomIndex, List, Element).
write_list([]).
write_list([H|T]) :-
write(H),
(T = [] -> true ; write(', ')),
write_list(T).
write_sequence([]).
write_sequence([H|T]) :-
write(H),
(T = [] -> true ; write(' -> ')),
write_sequence(T).
read_sequence(Sequence) :-
read(Input),
(is_list(Input) ->
Sequence = Input ;
Sequence = [Input]).
clear_screen :-
catch(shell('clear'), _, (catch(shell('cls'), _, fail))).
end_game :-
write('Auf Wiedersehen! Die Wahrheit muss ans Licht...'), nl,
halt.