/* called by: entrance ctrl of the object 'track'
- `' e1 N+ X1 ~! [7 y* `*/4 u# b. w( d2 t: A4 C4 u
is5 ^4 a$ f$ ~$ A4 R* R( V4 G' u$ X
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
% @1 `- O u: ?2 b( q/ |do
$ }7 W0 s o. m* N; u4 ~7 k& E Lan := rootfolder.Internal.Tools.AOLlanguage; J" F" [: u# d
if current = @.Destination -- else return4 X9 s `; C7 u; h; E' O- D5 M
then) B2 h. w; C' t+ V$ m l& b
@.Destination := void;
7 d& c' [0 z: V6 h7 r* B% J if @.occupied then+ T4 |$ R" C, S
part := @.cont;
$ ], l0 F" x$ q5 y8 {0 S3 g @.transpOrder := void;, M1 d. V7 \5 M2 f' S' ~& R
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,' t/ e" \' x6 e: F2 E7 V0 G
@,root.eventcontroller.simTime);% L# S) t, ]* O; q4 M
@.HasOrder := false;
9 d' `" h2 x6 d9 k$ Y7 F @.DrivingHome := true;
, B3 D/ q% l" t( i0 q3 e rgManager.tryToStartTransOrder;
8 C7 y+ B; t( d7 W# |5 e+ c if @.Destination = void. u, y" v A" z. C8 @
then -- no transport order for vehicle @
. R6 v, v7 [( r/ Y @.Destination :=" e5 v1 Y: ]" e- x( z& t3 ^5 Y
rgManager.nearestFreeStation(@,track.~);) V. u9 y- \$ ]# z( d9 Q
newDirection(@); ?* v j' y4 O! q0 F- P/ x5 Z
if @.Destination /= void then
- k5 f+ ]2 P% ^! T) k! h @.Destination.NumReservation :=
- ] g3 ^/ l' ]1 h. F0 q% { @.Destination.NumReservation + 1;
# e3 L0 l! y# s J7 P+ I" Q0 { end;
1 G. `" q& D- R- Y5 y @.CurrIcon := "drivingHome";7 D5 H8 m0 }3 r* h6 S
@.DrivingHome := true;4 T2 {2 `9 H6 l
end;
1 y q2 o p1 l* w" l else -- the vehicle @ is empty, both vehicle and part are in the same dock station
9 a% f2 u6 t+ W part := @.transpOrder;# Z& l% Y2 S7 `3 }
part.move(@);-- load part( s d; ^6 t: v& w
@.CurrIcon := "load";; X2 G7 e# E0 F/ x- d& N2 b. |% X
GlobalDistObj := part.globDestination;
8 a+ K# @( _ e6 N9 \% K1 x6 Z assignLObj := rgmanager.rgAssignL;) f& w% E& G' L6 ^
row := assignLObj.getRowNo(GlobalDistObj);6 f- O& }8 t( S! S
if Row = -1 then -- since 709 p0 K1 l$ z. u6 P/ ^ l
if lan=1 then' @6 ~3 c* i# n# z J
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),) ? x6 T X: E4 o
to_str("in der Andockstation: \"",?.~.name,"\""));
4 I3 U; S! r# O- P else; F1 z8 w5 u: P* l
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),! h& [5 s5 F3 g: h
to_str("in docking station: \"",?.~.name,"\""));
. n) g- ]/ i5 S* \8 O end;% A) ^3 S8 ~3 T/ G: ]
else
+ A w5 M5 o/ {1 Y: m$ Y @.Destination := assignLObj[1,row];3 J- N: j) g6 ^2 s3 I0 N
end; * O. s; B v) W& D. N
newDirection(@);
1 A6 M4 ^0 N! L) z @.HasOrder := true;
$ w; B h m* H# {- [ end;- o [' p. h( _5 G
end;5 p8 P; t' `2 D# V2 v
end; -- of the method
* F, y/ {- r, S' u" I( l |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
