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
|
# The "Look at..." action
objectType lookAt ("Look at ") {
event default {
say (ego, "Oooh, well looky here.");
}
}
# The "Pick up..." action
objectType pickUp ("Pick up ") {
event default {
say (ego, "Pick that up? No way!");
}
}
# The "Talk to..." action
objectType talkTo ("Talk to ") {
event default {
say (ego, "Boo!");
}
}
# The "Use..." action
objectType use ("Use ") {
event default {
say (ego, "I wouldn't know what to do with that.");
}
}
# An event for setting a different mouse cursor when hovering over a
# particular object type
objectType oneCursor ("") {}
# An event for object types with only one action
objectType onlyAction ("") {}
# This is so that we can define default reactions
objectType default ("") {}
# This is so that we can walk to characters as well as screen regions
objectType walkToPerson ("") {}
# Try and combine two object types... make sure we do something if it
# doesn't work
sub findEvent (a, b) {
if (! a) return;
if (! b) return;
if (! callEvent (a, b))
if (! callEvent (b, a))
if (! callEvent (default, a))
if (! callEvent (default, b))
say (ego, pickOne ("I can't use this stuff together.", "How would I combine them? Make sense!", "I don't see how that would work."));
}
|
