/* called by: entrance ctrl of the object 'track'- W- \8 T- P. x* w2 E: a4 `; y
*/
7 t/ J( P) J( V: [is' F3 S, K4 Q8 ]- @0 n+ T
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
6 Q5 {9 k! ^9 j* u" d6 b4 D3 j" i. A$ U& tdo: b. {. Q6 S( d- k" x
Lan := rootfolder.Internal.Tools.AOLlanguage;
Z! G/ @3 r0 m& D if current = @.Destination -- else return/ f/ `+ X1 r( X2 u. o0 s
then0 U/ n- `# i, A7 W
@.Destination := void;4 j) a" X3 ^6 C: N9 q$ K9 w. g+ S9 L
if @.occupied then1 k4 u: M! K- y- M: [4 L
part := @.cont;
- U) ?; B0 ]7 l @.transpOrder := void;8 w8 Z" N' T/ S2 g! C& h& R
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
% v/ P3 h+ |/ s$ S2 o! L6 N @,root.eventcontroller.simTime);
7 T, V$ l# f# [ @.HasOrder := false;
7 h: E) l) p% g E* k @.DrivingHome := true;! h8 B7 r( f* S& H! N
rgManager.tryToStartTransOrder;
0 f( E" |- w$ Q, x if @.Destination = void
. z( Q+ e, J. ~% H5 s then -- no transport order for vehicle @3 N' {& D% p) S$ c* d2 k6 Y7 t
@.Destination :=2 @: f: C+ [ J" Q& A8 [
rgManager.nearestFreeStation(@,track.~);( |9 W8 ?& T% p5 H( e% O+ k. X
newDirection(@);
' t7 F, L7 \% U3 L# `3 k if @.Destination /= void then9 \: L2 n! y3 R' k
@.Destination.NumReservation :=
% ?* ]$ Y/ L* K( @9 P; E @.Destination.NumReservation + 1; @8 W* ^( _$ a% C
end;# D) |' D6 @7 ^# J5 ^& \- H
@.CurrIcon := "drivingHome";" Y2 ]' o, U. m8 Q3 R# m
@.DrivingHome := true;
( ^+ S& B$ k0 D& ` end;6 _) T" X7 K8 u% G
else -- the vehicle @ is empty, both vehicle and part are in the same dock station/ k( ? C: D6 G/ \& s$ ]
part := @.transpOrder;- y- ]4 A$ k9 l9 q9 u
part.move(@);-- load part
8 X1 n8 H/ g( \8 b1 P4 ^ @.CurrIcon := "load";
9 d9 w6 x5 z/ v0 N0 O' d8 t GlobalDistObj := part.globDestination;
0 H2 O3 o6 [& j( z* U% A! G4 {3 C8 }% } assignLObj := rgmanager.rgAssignL;+ E6 f% f K1 Y0 o
row := assignLObj.getRowNo(GlobalDistObj);* X: i! K" h7 S& R
if Row = -1 then -- since 705 L) s3 w6 m' `
if lan=1 then
0 ]" V: J' Q! L3 [ promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),) n- q9 V0 l3 I$ F- E+ M' d
to_str("in der Andockstation: \"",?.~.name,"\""));
: [3 ]. K* h, m- S' F- y0 a else! E$ A, M* b! F
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
9 b& v# B) x: b" j. B0 { to_str("in docking station: \"",?.~.name,"\""));
1 L9 o' O( F8 S end;3 e( @& \% b; I7 M. r: m* N
else4 d5 P/ W% L0 t
@.Destination := assignLObj[1,row];. [2 F* d4 k2 d) q( x( ^5 l& e
end; & ?3 p+ B. X8 t! M; G
newDirection(@);
: a( A3 j' z4 U$ x' | @.HasOrder := true;
5 {0 D. {3 k- Y- ] end;
% K, z! L6 m9 x, |4 e R' C, a end;5 R' h+ Y9 {/ G
end; -- of the method
# H4 O' U3 B6 h# B3 b; Z6 S |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
