From 0aeac20b46ced11a356359cdf1ff9ecd8b5dd5ab Mon Sep 17 00:00:00 2001 From: Maximilian Wagner Date: Mon, 22 May 2023 14:54:45 +0200 Subject: [PATCH] =?UTF-8?q?reset=5Fgame=20hinzugef=C3=BCgt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- daten.pl | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/daten.pl b/daten.pl index fa6997b..8516ded 100644 --- a/daten.pl +++ b/daten.pl @@ -52,12 +52,20 @@ init_feld1 :- assert( feld(4, 4, 1) ). +% Setzt das Spielfeld sowie die zugewiesenen einheiten zurück +reset_game :- + retractall( feld(_,_,_) ), + retractall( enemy(_,_,_,_) ). + + % Initialisiert die Einheiten für die jeweiligen Spieler init_player(Player, Type1, Type2, Type3) :- + % der shabang ist hier damit die einheiten jeweils in den ecken spawnen playerStart(Player, X, Y), - % einheit(Player, Type, feldX, feldY) Xp1 is X + 1, Yp1 is Y + 1, - assert( einheit(Player,Type1,Xp1,Yp1) ), - assert( einheit(Player,Type2,Xp1,Y ) ), - assert( einheit(Player,Type3,X ,Yp1) ). + + % enemy(Player, Einheit Type, feldX, feldY) + assert( enemy(Player,Type1,Xp1,Yp1) ), + assert( enemy(Player,Type2,Xp1,Y ) ), + assert( enemy(Player,Type3,X ,Yp1) ).