/* called by: entrance ctrl of the object 'track'2 P# O5 G1 P' u3 [6 ?( Y5 O. U5 u
*/
0 \2 h- p0 i4 t. w7 H' bis/ {5 h" i+ h* z" Q# t& w' P; E4 t
part, GlobalDistObj, assignLObj:object;row,Lan:integer;7 t& a9 g4 d8 x! G# M* f1 [
do" e1 {! A1 O! G& F7 M! q
Lan := rootfolder.Internal.Tools.AOLlanguage;
% ? g+ Y/ C/ A- O if current = @.Destination -- else return. V# ^% X- E& [3 m
then
- t/ E* U2 _5 R9 a0 ? @.Destination := void;+ g' E" |" ]& Q( m/ \
if @.occupied then- B* H9 T! X- c9 J6 z3 q
part := @.cont;- S5 R }7 }3 J# t
@.transpOrder := void;
% Y) A% s- ?( [1 Z1 R part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
. R, ~6 y6 W4 p/ q0 p; |+ N @,root.eventcontroller.simTime);
! p$ G4 u- k$ B# q1 S) p; f @.HasOrder := false;
6 q2 W2 u! V& C1 j$ v1 Z @.DrivingHome := true;
8 x( \: l/ z0 T2 U7 k) W rgManager.tryToStartTransOrder;
7 m4 }, r/ L& n+ |; n if @.Destination = void
- l% C5 c: P: F& y& O8 F then -- no transport order for vehicle @
' b8 G5 T; n, z2 ^ @.Destination :=9 f4 J9 l) n/ P$ g
rgManager.nearestFreeStation(@,track.~);
* S: b0 A, ~. v7 m8 P9 u newDirection(@);
2 E7 E' e9 ^% m1 Z! c if @.Destination /= void then
+ B0 g' b3 v; c- M+ s9 q$ ~ @.Destination.NumReservation :=
( Y% ]+ V: {* w8 J+ U4 C8 F @.Destination.NumReservation + 1;
+ ]" W; A+ ~1 D+ ` d/ T( F end;" K! F. y- h: @. g' ^* V+ G# r
@.CurrIcon := "drivingHome";
' m! E1 _' R$ K @.DrivingHome := true;, A: J* v5 k5 z& y
end;
2 B& \5 ~' n/ B1 z9 S8 G3 y* B else -- the vehicle @ is empty, both vehicle and part are in the same dock station
# w i# u$ F% S. T x' c part := @.transpOrder;
/ @, e, y& ?/ E, H) @ } part.move(@);-- load part. C; M. d8 D' |% { j' _
@.CurrIcon := "load";
+ A$ F. H `5 z9 h GlobalDistObj := part.globDestination;" p1 S% S- P! A& U# c
assignLObj := rgmanager.rgAssignL;
/ b! j5 g( g. K- U% g row := assignLObj.getRowNo(GlobalDistObj);
. Q/ s# k2 w0 h5 s! Y9 N) v if Row = -1 then -- since 70; m# w9 r+ I+ c, T
if lan=1 then
8 K- V3 `5 |) U2 `" } promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
: r2 M' B) f# d! d8 ]! e7 H to_str("in der Andockstation: \"",?.~.name,"\""));) {5 u. s# |) `; D
else* x- @$ v! c! b$ {9 K3 P0 P, k
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
" e* _: G0 y+ e3 M) y to_str("in docking station: \"",?.~.name,"\""));
: U) L% Q4 u) B" N; \5 P end;4 j4 j ^4 A9 S! b- ?* i. s' H
else
/ V) Z4 Y# K( T( g/ _0 z9 h @.Destination := assignLObj[1,row];
* M! q. Y! u$ ]- a end; , B- y+ p4 c4 X! d" J: {/ R% z
newDirection(@);; k! K0 w1 d, ]! F# N
@.HasOrder := true;2 x& Z) y# m" o) a [! D
end;
: T+ `( m' I0 P% P! p& r7 Y: G end;# U& s# j' Y& E* Z
end; -- of the method
5 I9 l% B) c" B% ]- I. \/ H |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
