1:-include(library('ec_planner/ec_test_incl')). 2:-expects_dialect(pfc). 3 % loading(always,'ecnet/Condition.e').
4
5
6% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:0
7%;
8%; Copyright (c) 2005 IBM Corporation and others.
9%; All rights reserved. This program and the accompanying materials
10%; are made available under the terms of the Common Public License v1.0
11%; which accompanies this distribution, and is available at
12%; http://www.eclipse.org/legal/cpl-v10.html
13%;
14%; Contributors:
15%; IBM - Initial implementation
16%;
17%; human health
18
19% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:12
20% fluent Alive(agent)
21 % fluent(alive(agent)).
22% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:13
23==> mpred_prop(alive(agent),fluent).
24==> meta_argtypes(alive(agent)).
25
26% fluent Dead(agent)
27 % fluent(dead(agent)).
28% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:15
29==> mpred_prop(dead(agent),fluent).
30==> meta_argtypes(dead(agent)).
31
32% noninertial Dead
33% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:16
34==> noninertial(dead).
35
36% fluent Injured(agent)
37 % fluent(injured(agent)).
38% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:18
39==> mpred_prop(injured(agent),fluent).
40==> meta_argtypes(injured(agent)).
41
42% event Kill(object,agent)
43 % event(kill(object,agent)).
44% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:20
45==> mpred_prop(kill(object,agent),event).
46==> meta_argtypes(kill(object,agent)).
47
48% event Injure(object,agent)
49 % event(injure(object,agent)).
50% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:21
51==> mpred_prop(injure(object,agent),event).
52==> meta_argtypes(injure(object,agent)).
53
54% event HealInjured(agent)
55 % event(healInjured(agent)).
56% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:22
57==> mpred_prop(healInjured(agent),event).
58==> meta_argtypes(healInjured(agent)).
59
60
63 64
65 68axiom(holds_at(alive(Agent), Time),
69 [not(holds_at(dead(Agent), Time))]).
70axiom(not(holds_at(dead(Agent), Time)),
71 [holds_at(alive(Agent), Time)]).
72
73
76 77axiom(holds_at(alive(Agent), Time),
78 [holds_at(injured(Agent), Time)]).
79
80
85axiom(terminates(kill(Object, Agent), alive(Agent), Time),
86 []).
87
88
93axiom(initiates(injure(Object, Agent), injured(Agent), Time),
94 []).
95
96
101axiom(terminates(healInjured(Agent), injured(Agent), Time),
102 []).
103
104% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:35
105% fluent Intact(physobj)
106 % fluent(intact(physobj)).
107% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:36
108==> mpred_prop(intact(physobj),fluent).
109==> meta_argtypes(intact(physobj)).
110
111% fluent Damaged(physobj)
112 % fluent(damaged(physobj)).
113% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:38
114==> mpred_prop(damaged(physobj),fluent).
115==> meta_argtypes(damaged(physobj)).
116
117% fluent Destroyed(physobj)
118 % fluent(destroyed(physobj)).
119% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:40
120==> mpred_prop(destroyed(physobj),fluent).
121==> meta_argtypes(destroyed(physobj)).
122
123
126
129xor([intact,damaged,destroyed]).
130
131% event Damage(object,physobj)
132 % event(damage(object,physobj)).
133% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:45
134==> mpred_prop(damage(object,physobj),event).
135==> meta_argtypes(damage(object,physobj)).
136
137% event Destroy(object,physobj)
138 % event(destroy(object,physobj)).
139% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:47
140==> mpred_prop(destroy(object,physobj),event).
141==> meta_argtypes(destroy(object,physobj)).
142
143% event Repair(object,physobj)
144 % event(repair(object,physobj)).
145% From /opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/ec_planner/ecnet/Condition.e:49
146==> mpred_prop(repair(object,physobj),event).
147==> meta_argtypes(repair(object,physobj)).
148
149
155axiom(requires(damage(Object, Physobj), Time),
156 [holds_at(intact(Physobj), Time)]).
157
158
163axiom(initiates(damage(Object, Physobj), damaged(Physobj), Time),
164 []).
165
166
171axiom(terminates(damage(Object, Physobj), intact(Physobj), Time),
172 []).
173
174
181axiom(requires(destroy(Object, Physobj), Time),
182 [holds_at(intact(Physobj), Time)]).
183axiom(requires(destroy(Object, Physobj), Time),
184 [holds_at(damaged(Physobj), Time)]).
185
186
191axiom(initiates(destroy(Object, Physobj), destroyed(Physobj), Time),
192 []).
193
194
199axiom(terminates(destroy(Object, Physobj), intact(Physobj), Time),
200 []).
201
202
207axiom(terminates(destroy(Object, Physobj), damaged(Physobj), Time),
208 []).
209
210
215axiom(initiates(repair(Object, Physobj), intact(Physobj), Time),
216 []).
217
218