/* called by: entrance ctrl of the object 'track'
+ _( I# X! t9 ?! ?' @ W( ]8 m*/" h2 I% k1 L: W
is" v0 e4 R7 E7 I2 L8 g) n P1 t
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
" E. n. i5 G5 m& E: D0 d' o) Ndo A7 g( I- t( n9 r8 e2 G) V
Lan := rootfolder.Internal.Tools.AOLlanguage;
% ~5 z: \( t6 r3 C; _9 o if current = @.Destination -- else return% {. Q: L& W. f. z. P( e7 U8 c* K
then
& J. E0 j$ T6 L; Y @.Destination := void;
8 s. T% k+ m9 X( ^. V1 M# J. p& L if @.occupied then' [* Y, i: ?2 K/ M3 l: O3 R
part := @.cont;* N0 U2 `: q( p/ _) F
@.transpOrder := void;
, Y, _/ j8 P) s3 O part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1, Q0 ]$ P1 f0 S. U/ d0 s) p2 @
@,root.eventcontroller.simTime);
) ^- [! R$ q) ?4 N- K1 ^ @.HasOrder := false;. w* ^/ e. x _+ r
@.DrivingHome := true;( k1 z2 {0 U* T+ ]7 g( @ p
rgManager.tryToStartTransOrder; Z3 L0 k" ?; _. F6 L
if @.Destination = void4 I# ^" i# _* _
then -- no transport order for vehicle @2 }" x% Q: m/ D" g/ {' z
@.Destination :=( T3 s$ c+ H4 r+ J& M: ~" {: }- H2 K
rgManager.nearestFreeStation(@,track.~);
4 F* p: {2 t. j4 [, j! G, s newDirection(@);
: F% z& ?0 f% Z+ V% } if @.Destination /= void then
/ L5 T! a ]* p% v* x) [9 h" r* ~ @.Destination.NumReservation :=& l0 T9 F, U2 M0 k# l9 b
@.Destination.NumReservation + 1;7 O- x9 D( h2 f
end;6 K: h; w: }, r7 @. Z) r- F& G
@.CurrIcon := "drivingHome";! X5 N& q) K% g* j
@.DrivingHome := true;
7 D% u, z6 _, M' q& ~3 R, O end;8 V) Y8 `* g" x1 I
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
' F* i1 B C3 L- e' o, w% ] part := @.transpOrder;9 z9 R( j) p: c: q3 ^
part.move(@);-- load part
/ m' g* C3 h* i* H @.CurrIcon := "load";% m! [# d0 c& n* Q# Y
GlobalDistObj := part.globDestination;
9 U! v: m- ^+ X; u f; j6 | assignLObj := rgmanager.rgAssignL;
N- Z) |/ s0 F+ {" }6 p8 c/ i row := assignLObj.getRowNo(GlobalDistObj);
8 b" p+ G' A* {. h if Row = -1 then -- since 70
( Q- X+ ^' F3 R6 T( w if lan=1 then2 l5 ^; V6 `9 i: Y8 N3 u
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
6 w* K& x2 |: c, G n to_str("in der Andockstation: \"",?.~.name,"\""));4 H( w! Y8 q% O/ \- {9 v
else
) o9 O5 `" O5 J0 _3 x" W3 R9 g7 S k promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),- w$ R4 P+ }( o! g. `( s7 j
to_str("in docking station: \"",?.~.name,"\"")); - l+ q% O3 V& f; W" z7 F* {5 U4 O
end;: q% c% S9 b/ w% \7 m! j, Q
else
8 r9 z) P5 f' B0 I- L' v0 M @.Destination := assignLObj[1,row];6 K/ ~! b3 ?$ x5 D' X; W
end; * Z _ n$ q3 S6 g9 ]9 @4 F6 r
newDirection(@);
7 L3 @8 |4 V6 _' S: R" t @.HasOrder := true;- m( A7 c6 h; N7 l# s0 Q" v y
end;
& k3 ]$ U4 h. T* V end;
6 P+ ^0 C" \1 I& E+ N4 s. N; C% }end; -- of the method! g, {# w+ H+ b$ U! U
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
