-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsammelAktion.pl
62 lines (57 loc) · 2.32 KB
/
sammelAktion.pl
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
:- module(sammelAktion, [sammelAktion/1, sammelOrt/2, pruefeSammelAktionVorraussetzung/3]).
sammelAktion(bekannt).
sammelAktion(erkaempfen).
sammelAktion(ernten).
sammelAktion(ertauchen).
sammelAktion(exoFahrzeugMinenLaserNutzen).
sammelAktion(gemuetsStrahlNutzen).
sammelAktion(herausSchlagen).
sammelAktion(jagen).
sammelAktion(kaufen).
sammelAktion(minenLaserNutzen).
sammelAktion(pfluecken).
sammelAktion(raumSchuerfen).
sammelAktion(solarStrahlNutzen).
sammelAktion(terrainFormerNutzen).
sammelAktion(unterWasserErkaempfen).
sammelAktion(verbessertenMinenLaserNutzen).
sammelAktion(verdienen).
sammelAktion(vonBergbauEinheitGewinnen).
sammelAktion(vonTierErhalten).
sammelOrt(bekannt, ortSpieler).
sammelOrt(ernten, ortPlantage).
sammelOrt(erkaempfen, ortWald).
sammelOrt(ertauchen, ortWasser).
sammelOrt(exoFahrzeugMinenLaserNutzen, ortWald).
sammelOrt(herausSchlagen, ortWald).
sammelOrt(jagen, ortWald).
sammelOrt(kaufen, ortHandelsTerminal).
sammelOrt(kaufen, ortRaumStation).
sammelOrt(kaufen, ortAussenPosten).
sammelOrt(kaufen, ortHandelsStation).
sammelOrt(minenLaserNutzen, ortWald).
sammelOrt(pfluecken, ortWald).
sammelOrt(raumSchuerfen, ortWeltRaum).
sammelOrt(terrainFormerNutzen, ortWald).
sammelOrt(unterWasserErkaempfen, ortWasser).
sammelOrt(verbessertenMinenLaserNutzen, ortWald).
sammelOrt(vonTierErhalten, ortWald).
sammelOrt(solarStrahlNutzen, ortWald).
sammelOrt(gemuetsStrahlNutzen, ortWald).
sammelOrt(verdienen, ortRaumStation).
sammelOrt(vonBergbauEinheitGewinnen, ortBergbauEinheit).
sammelStatus(minenLaserNutzen, minenLaser).
sammelStatus(verbessertenMinenLaserNutzen, verbesserterMinenLaser).
sammelStatus(terrainFormerNutzen, terrainFormer).
sammelStatus(jagen, waffeVorhanden).
sammelStatus(erkaempfen, waffeVorhanden).
sammelStatus(raumSchuerfen, raumSchiffIstFlott).
sammelStatus(exoFahrzeugMinenLaserNutzen, exoFahrzeugMinenLaser).
sammelStatus(solarStrahlNutzen, solarStrahl).
sammelStatus(gemuetsStrahlNutzen, gemuetsStrahl).
sammelStatus(unterWasserErkaempfen, waffeVorhanden).
/* Vorraussetzungen nach spielstatus und systemausstattung */
pruefeSammelAktionVorraussetzung(System, Planet, SammelAktion) :-
((sammelStatus(SammelAktion, NoetigerStatus), spielStatus:spielStatus(NoetigerStatus, true)); \+sammelStatus(SammelAktion, _)),
(sammelOrt(SammelAktion, Ort), spielStatus:systemAusstattung([System, Planet, Ort], _)),
!.