-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathI_CRCREC.PAS
30 lines (26 loc) · 1021 Bytes
/
I_CRCREC.PAS
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
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;