/* called by: entrance ctrl of the object 'track'
. v) z2 T/ V# y*/
$ Y7 t l; Z) ?is
], I- n6 S7 ~3 ^+ W! p# J part, GlobalDistObj, assignLObj:object;row,Lan:integer;; q: j2 Q$ K( t! r* `
do
, @+ U i1 B$ h w5 J4 Q; h Lan := rootfolder.Internal.Tools.AOLlanguage;9 Q+ H6 p. B% g* q
if current = @.Destination -- else return) c& A W% u) v+ z$ P1 j, G7 I `( n
then
# M/ `: [0 C2 d& M @.Destination := void;; d2 p e' z8 G$ A! n# `
if @.occupied then
! L+ c E2 _& O' b* H7 k part := @.cont;+ s: J/ _; G# R" w
@.transpOrder := void;
( ?, |5 F6 c1 a+ b& T- _5 G part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
9 g8 ]& e3 S6 D$ i$ h @,root.eventcontroller.simTime);
$ t+ R; X2 P4 ]8 m @.HasOrder := false;) h6 Q( r B6 p8 s' k
@.DrivingHome := true;
9 b4 O; g& d2 C$ E, l F rgManager.tryToStartTransOrder;
! e* G+ W* }# [1 R9 B3 N# C if @.Destination = void
& d: g; E- C0 V8 T4 P b! X8 C then -- no transport order for vehicle @
) L* @ u4 o: m u8 ~8 Q8 [ @.Destination :=
# d2 r! C' M7 y& u rgManager.nearestFreeStation(@,track.~);
# J4 E- `6 N' s4 s5 W! s& f- { newDirection(@);
6 ^& l b1 N, x- t if @.Destination /= void then
& @& E1 T5 T2 {( t @.Destination.NumReservation :=
, T) w: e4 C0 ]7 q* d* \ @.Destination.NumReservation + 1;0 h- X% _9 r( }' W' U2 _
end;
6 ~& T3 z' `# U6 y# } @.CurrIcon := "drivingHome"; }% }" }6 S5 K! l
@.DrivingHome := true;0 h; v6 X) z( }3 s; d! Z. ]$ V
end;
6 k; k( r/ V) W7 d9 Y0 I* E# C else -- the vehicle @ is empty, both vehicle and part are in the same dock station
+ c( v9 e- B" g1 g+ a w) _' S; \1 \$ A part := @.transpOrder;
# V1 A( B7 E& a& F: Z$ R, K part.move(@);-- load part+ s! N2 o# f/ d" @; e
@.CurrIcon := "load";
2 c. i) ^' f8 ?3 ^9 R0 f0 V GlobalDistObj := part.globDestination;
1 Q' o+ v% {( T5 H9 x4 K/ U2 y$ Q9 s9 t assignLObj := rgmanager.rgAssignL;" `4 ^3 R( z3 Q4 G1 I
row := assignLObj.getRowNo(GlobalDistObj);6 z& S; H' O$ U4 p' H' L6 [
if Row = -1 then -- since 705 R0 \* A+ v+ V% P0 J
if lan=1 then
: P) X2 J5 c) x; j promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
2 d4 x D' v b. o to_str("in der Andockstation: \"",?.~.name,"\""));
9 U- Z* g4 E( u- f& K else
& f, T) \ J s0 R9 Q promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
9 s7 h( x! D W: W: F to_str("in docking station: \"",?.~.name,"\""));
5 f% L- F6 b5 N% `5 @0 V end;8 T" i7 p2 p! M% n. O4 R
else
( ]$ o/ o- j1 j3 a5 s h @.Destination := assignLObj[1,row];
L' ?4 ?# {/ H s* q$ O* l2 _/ M, _ end; 5 O, L8 V- A- W0 V' E
newDirection(@);
$ U: X: ^0 u% p: {7 q. z @.HasOrder := true;0 b* u( c! @0 x/ u
end;
$ A' V$ s2 V: l% n1 `" T end;/ s( O& q' w1 n1 n
end; -- of the method
& J. z* i8 t- r5 f |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
