/* called by: entrance ctrl of the object 'track'9 B- K/ ?1 T1 Q# ?8 [5 \
*/
8 L9 B3 K, q4 uis* ^. b( c; c$ N% H
part, GlobalDistObj, assignLObj:object;row,Lan:integer;$ S& S% ?0 `( u& }
do/ P4 I$ g7 `% P$ |+ V2 a
Lan := rootfolder.Internal.Tools.AOLlanguage;
8 j- }: x" m8 n4 T4 k @ if current = @.Destination -- else return/ a6 v( R1 N) C! q
then
0 e. Z6 Y/ t" B1 D5 x6 x. p( o$ D @.Destination := void;! ~4 f4 Z# _* }
if @.occupied then; g9 f. H! G; Y. v, d, G. Z% f# w; ]
part := @.cont;
0 D/ g+ D( [7 Y$ N( M1 q$ } @.transpOrder := void;
8 d! D0 \9 e* V/ c part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,2 ?! z# H5 m3 ^$ m) ? ]) O; i7 W" o
@,root.eventcontroller.simTime);4 G/ L2 ]6 v; ~6 H; a$ O
@.HasOrder := false;
- e* c" E" f% m- h$ m+ l0 S; c$ ? @.DrivingHome := true;
+ R) c5 w" @9 Y! z s rgManager.tryToStartTransOrder;
7 ?; j! c8 @; Z. `, M3 D if @.Destination = void
) V" z% I( R! w then -- no transport order for vehicle @. Q$ r' d, |4 i
@.Destination :=9 _8 C1 c8 _4 g1 F* l) Q
rgManager.nearestFreeStation(@,track.~);
7 S L* C/ F+ P) n newDirection(@); ( A8 ~! z! V! |! G/ D- o- y8 u
if @.Destination /= void then. A" `" N' F2 z w8 a( V* o( O- j
@.Destination.NumReservation :=
- V1 N/ ~4 i( P5 a6 G @.Destination.NumReservation + 1; N0 I% q* c9 [% e$ Q
end;
+ ~1 q$ Z0 I7 P( {* _1 A @.CurrIcon := "drivingHome";3 ?- \% `& Q, v3 d' z0 |8 }) |
@.DrivingHome := true;
9 q9 v/ ^# l/ M& y) K end;: J! k; z! q. P! r+ ]& [- g; m
else -- the vehicle @ is empty, both vehicle and part are in the same dock station/ w( E, M& y+ r5 h2 q2 @/ w% c
part := @.transpOrder;8 P9 r# Z' a- o0 |! {
part.move(@);-- load part5 y* a6 c6 D! k. W+ I+ P; ^: A: S
@.CurrIcon := "load";$ k0 }, T2 k1 X ?& k+ z
GlobalDistObj := part.globDestination;& X c% m( \) K. q, a4 ^! i) E' `
assignLObj := rgmanager.rgAssignL;
! H) [/ X( [3 u$ V$ Q row := assignLObj.getRowNo(GlobalDistObj);
# ^( b; s7 V5 z/ K if Row = -1 then -- since 70
( g5 l7 ?# B9 B3 o4 m if lan=1 then( \. a& V3 H2 {0 ?$ r4 t. x
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
! [1 ~) \2 v. z J to_str("in der Andockstation: \"",?.~.name,"\""));
u" n4 e# m9 U) c else1 E% }) r, C" M( }
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),) G4 w: D7 b0 H: u5 \
to_str("in docking station: \"",?.~.name,"\"")); ' k& g6 n: l% ^# `9 Q
end;' |0 F2 U0 x! z& U) H/ A. d
else
" {8 \. P( g: N+ U @.Destination := assignLObj[1,row];
: T6 r, r# B2 [% y# K end; - M4 c6 R, \* E- ], p: e
newDirection(@);3 R# [1 O1 E1 C. }- {; {% x
@.HasOrder := true;! y$ |0 |& @6 ^, v3 \# k- c- H5 j- {/ j
end;5 k% a. t2 j2 q) J3 `/ g
end;
3 }4 ~) V% a) C" T0 _end; -- of the method
: e7 N( V( t( `" _7 ^ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
