/* called by: entrance ctrl of the object 'track'7 W" @, l# U, }3 c$ ]4 {
*/
- D" t$ W4 `( R0 nis6 `3 p" r' l* r1 H* {* B4 c( h
part, GlobalDistObj, assignLObj:object;row,Lan:integer;8 C# z+ z2 `9 `8 L- n
do
4 y: f( g6 Z2 H. W. L Lan := rootfolder.Internal.Tools.AOLlanguage;
- y R/ n4 d$ v; V/ A, \6 [ if current = @.Destination -- else return
( q2 S- q9 g' s+ b# K4 X then( m. @/ S' T, e# t4 c
@.Destination := void;; J' r1 I8 |- H% T% O. P
if @.occupied then
. {. @ q( U+ F+ f6 M part := @.cont;
5 z1 u5 Y. g n( X9 x @.transpOrder := void;
! @. N; i# R6 x9 E4 Q* M% l: D! t( E part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,; n+ v/ R8 p# m* E+ V
@,root.eventcontroller.simTime);6 {; |8 x) N; S7 n$ ^, c) _4 G
@.HasOrder := false;
5 i6 v: l t/ d- D$ q- | @.DrivingHome := true;9 f2 s+ z' j4 F% P; [3 x0 v. \
rgManager.tryToStartTransOrder;
6 @& @2 `/ l# t) @' U. J1 a' M if @.Destination = void
9 M5 A# S: q7 L then -- no transport order for vehicle @
/ A" ]. a) R. K' u @.Destination :=8 g; S C& S; l2 f$ o" V, @
rgManager.nearestFreeStation(@,track.~);
% ]- R3 M/ w6 y" H newDirection(@); ' d/ n3 k7 C+ M1 Z0 m! ^2 K8 X9 i
if @.Destination /= void then
% `7 K! K8 m2 h; A# W @.Destination.NumReservation :=
+ B ]7 A, O( I: ^8 P5 D& N @.Destination.NumReservation + 1;" ]0 X2 U9 n" S9 p( B- m4 V
end;1 [, r! w0 w* W& @0 P
@.CurrIcon := "drivingHome";! z/ |, U9 R9 J. u, M- W3 N$ L
@.DrivingHome := true;
$ L) I" c! R H, u% [ end;
' [% \! h6 K" I2 A5 ]( j( G else -- the vehicle @ is empty, both vehicle and part are in the same dock station
9 S- P# V- X" _# E4 Y- W part := @.transpOrder;/ F- \. p& ]3 M
part.move(@);-- load part0 A6 `0 m$ r3 Y0 L3 v; G
@.CurrIcon := "load";
) ~0 W; A r: j- o/ O GlobalDistObj := part.globDestination;& r* M7 v* {- E' F2 U
assignLObj := rgmanager.rgAssignL;
7 k. u+ \/ {4 I6 P row := assignLObj.getRowNo(GlobalDistObj);
8 Z. ?% }; M6 [7 i8 E if Row = -1 then -- since 70
% h( D0 Q( S( a6 J if lan=1 then
F9 U' t4 {$ b- p( j promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),. V/ W3 }$ l( n# S- ~3 [
to_str("in der Andockstation: \"",?.~.name,"\""));" m- `1 x* t& K% c) H
else# O( \1 D% P" W9 X5 I0 d0 V+ a
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),6 z$ M/ C5 U$ I' d/ H, H( q
to_str("in docking station: \"",?.~.name,"\""));
( C3 W4 a/ t m" x end;
' e" V) K0 N. F) [* L F, b# T else
+ K5 D0 x& J( J5 e% V @.Destination := assignLObj[1,row];
+ O* L+ ^- K% b) A end;
) t+ O9 R( e2 l, p! } newDirection(@);
$ I9 z8 z6 d7 s) t; P @.HasOrder := true;/ G$ r& O! _( `
end;
- j* l" X6 Y7 x' E; n# c8 l3 D end;
2 C2 c* W* ^+ T# P* [" ^+ }0 kend; -- of the method3 [( ~3 a3 I1 |7 \
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
