-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathI_CRCREC.PAS
More file actions
30 lines (26 loc) · 991 Bytes
/
Copy pathI_CRCREC.PAS
File metadata and controls
30 lines (26 loc) · 991 Bytes
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
const RCMAX=254;
type rregioncreature = record
crcsource:byte;
hp,mp:byte;
odds:byte; {wander}
recurring:boolean; {wander}
show:boolean; {does creature show up?}
used:boolean; {is there a creature in this slot at all?}
talk:byte; {dialogue index}
motive:byte; {stop, wait, roam, visit}
anger:byte; {angry at nobody, evil, animals, neutrals, good, player}
obj,objdata:byte; {footrest data}
xchunk,ychunk:byte;
end;
rcrcarray = array[1..64] of rregioncreature; {was 64, so 190 more!}
rcrcarray254 = array[0..0] of rregioncreature; {in fact 1..254, loaded as 4 blocks of 64, ignoring >254.}
(*
For rooms, wandering creatures are simply decided upon room entry.
For Wmaps, wandering creatures are decided with each call to
getchunks. If the creatures of that chunk are already in memory,
nothing happens. If it's a new chunk, the random calculations are
made.
*)
var
rcrc:^rcrcarray254;
rcrcf:file of rcrcarray;