mirror of
https://github.com/JonasHinterdorfer/TextAdventure.git
synced 2025-10-26 11:51:11 +00:00
Moved npcs, items, utilities
This commit is contained in:
MatyasZsombor
parent
6518ce4498
commit
91b6f8c063
90
adventure.pl
90
adventure.pl
@ -2,6 +2,9 @@
|
|||||||
% Von Zsombor Matyas und Jonas Hinterdorfer
|
% Von Zsombor Matyas und Jonas Hinterdorfer
|
||||||
|
|
||||||
:- include('game_assets/locations.pl').
|
:- include('game_assets/locations.pl').
|
||||||
|
:- include('game_assets/items.pl').
|
||||||
|
:- include('game_assets/npcs.pl').
|
||||||
|
:- include('game_assets/utilities.pl').
|
||||||
|
|
||||||
% ========== GAME STATE ==========
|
% ========== GAME STATE ==========
|
||||||
:- dynamic(player_location/1).
|
:- dynamic(player_location/1).
|
||||||
@ -58,52 +61,6 @@ init_game :-
|
|||||||
% Initialize obstacles
|
% Initialize obstacles
|
||||||
init_obstacles.
|
init_obstacles.
|
||||||
|
|
||||||
% ========== 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)).
|
|
||||||
|
|
||||||
% ========== 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)).
|
|
||||||
|
|
||||||
% ========== 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)).
|
|
||||||
|
|
||||||
% ========== MAIN GAME PREDICATES ==========
|
% ========== MAIN GAME PREDICATES ==========
|
||||||
start_game :-
|
start_game :-
|
||||||
init_game,
|
init_game,
|
||||||
@ -374,12 +331,6 @@ describe_obstacle(drone_swarm) :-
|
|||||||
describe_obstacle(security_system) :-
|
describe_obstacle(security_system) :-
|
||||||
write('Hochsicherheitssystem - benötigt EMP-Generator').
|
write('Hochsicherheitssystem - benötigt EMP-Generator').
|
||||||
|
|
||||||
write_list([]).
|
|
||||||
write_list([H|T]) :-
|
|
||||||
write(H),
|
|
||||||
(T = [] -> true ; write(', ')),
|
|
||||||
write_list(T).
|
|
||||||
|
|
||||||
% ========== MOVEMENT WITH OBSTACLES ==========
|
% ========== MOVEMENT WITH OBSTACLES ==========
|
||||||
move_player(Direction) :-
|
move_player(Direction) :-
|
||||||
player_location(CurrentLoc),
|
player_location(CurrentLoc),
|
||||||
@ -1117,41 +1068,6 @@ handle_game_over_choice(_) :-
|
|||||||
write('Ungültige Wahl! Bitte wähle 1, 2 oder 3.'), nl,
|
write('Ungültige Wahl! Bitte wähle 1, 2 oder 3.'), nl,
|
||||||
game_over_menu.
|
game_over_menu.
|
||||||
|
|
||||||
|
|
||||||
% ========== 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_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))).
|
|
||||||
|
|
||||||
% ========== HELP PREDICATES ==========
|
% ========== HELP PREDICATES ==========
|
||||||
hilfe :- process_command([hilfe]).
|
hilfe :- process_command([hilfe]).
|
||||||
schaue :- process_command([schaue]).
|
schaue :- process_command([schaue]).
|
||||||
|
|||||||
23
game_assets/items.pl
Normal file
23
game_assets/items.pl
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
% ========== 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)).
|
||||||
21
game_assets/npcs.pl
Normal file
21
game_assets/npcs.pl
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
% ========== 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)).
|
||||||
|
|
||||||
|
% ========== 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)).
|
||||||
39
game_assets/utilities.pl
Normal file
39
game_assets/utilities.pl
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
% ========== 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))).
|
||||||
Loading…
Reference in New Issue
Block a user