/* called by: entrance ctrl of the object 'track'
# X- ~2 Z: {( f9 x1 e8 j*/
2 f( ?. R) e8 his8 t6 @0 O8 N( C) Z! @
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
0 {, ?' W5 K4 Ddo
: f9 }1 Q' ~1 `9 c Lan := rootfolder.Internal.Tools.AOLlanguage;
0 _" X9 K* ?4 ^2 t3 `; O8 z3 p0 O if current = @.Destination -- else return
0 t* i u5 T& |+ J, I then
, ]5 N$ j' |3 m; W9 Y4 j @.Destination := void;
! N, m. ]1 c0 p5 s: } if @.occupied then& A2 P' a4 y6 O$ d w
part := @.cont;
4 O& I1 V( @5 h! y- w& [+ ~( f U @.transpOrder := void;
; a1 h+ F4 @ W* ^& R& N5 G3 z part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
) s) r& D& {; v4 i @,root.eventcontroller.simTime);9 H" F2 A6 T0 `
@.HasOrder := false;
! ^6 o5 s3 l' c: u" m/ I" u4 P @.DrivingHome := true;) x: J* M% D6 e1 T( m
rgManager.tryToStartTransOrder;- l J; [& j* z$ _2 [( M8 W
if @.Destination = void
' H2 v1 _: @6 k5 r4 v O then -- no transport order for vehicle @. K9 D. J* x7 W8 Z# F1 G9 U6 j
@.Destination :=
5 M- W9 p) i. S( C" |9 Q rgManager.nearestFreeStation(@,track.~);0 s4 A+ C/ q% |: b5 N
newDirection(@);
1 T' q7 Y+ `7 C s6 U+ E, q8 u if @.Destination /= void then
, V2 N7 X2 Y, y/ g" v- S- }" Q) m @.Destination.NumReservation :=; y b6 P& ^% T+ _: A, A' |
@.Destination.NumReservation + 1;
# _3 V! ^- h+ q+ U2 o end;
. U$ B/ o% r7 C" K4 B( L @.CurrIcon := "drivingHome";
/ j, ~3 s, H5 P @.DrivingHome := true;
! [7 [% C+ \& x* k/ N end;
% R1 } J4 z. s else -- the vehicle @ is empty, both vehicle and part are in the same dock station: Y d% J8 j6 O% U4 c
part := @.transpOrder;
5 v$ W6 w1 M/ a& Z- ]* M2 @: r2 { part.move(@);-- load part4 O8 [# Z$ a* l4 F
@.CurrIcon := "load";
: D, ]& V5 [% [5 F) d/ U GlobalDistObj := part.globDestination;- W1 ~0 B3 F5 D5 R+ _9 K. Y* d9 B
assignLObj := rgmanager.rgAssignL;1 S6 F" m/ e7 P4 z9 |
row := assignLObj.getRowNo(GlobalDistObj);
, x0 G9 l' r% _7 A& u if Row = -1 then -- since 70
; C9 c9 V3 c# l) {/ Q, ] if lan=1 then$ U' O) A a4 W3 u; E# o' }" P
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),0 Z- `0 I z( x* m( {0 S
to_str("in der Andockstation: \"",?.~.name,"\""));
2 A) x9 v7 j3 S8 g5 p; c1 U else) f; k4 l* K6 n% [( n5 C# C n& d
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
. t. q$ }3 i3 {% H* U! G, ]2 g to_str("in docking station: \"",?.~.name,"\""));
: @+ O+ o1 H8 W; z. ^8 \* ~' @ end;
- F6 s' ~+ \4 T o0 m: i else
) c% B% E3 o; t* a @.Destination := assignLObj[1,row];% F, g) r+ Z' o: V& R' f4 A
end;
4 G6 [0 C4 s0 W newDirection(@);
# A% c( y7 R- t5 k/ p* b @.HasOrder := true;
/ t X5 E2 X/ ?) [4 O4 w* m end;
# y( s& p. v7 l: ?' j end;3 \' x& E! e& }
end; -- of the method0 h- M$ ~* b' i" f- ?5 f9 i6 L
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
