/* called by: entrance ctrl of the object 'track'# C: Y$ H% R. d. R$ j4 a
*/
7 B" t: R" M9 C4 ris5 R0 i" [+ Z* n) B8 U3 a
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
; C$ T5 `6 w. Udo* R; v% u4 f* A, L- Y8 U" L
Lan := rootfolder.Internal.Tools.AOLlanguage;5 ?7 \: `- i1 b3 c% ~2 @
if current = @.Destination -- else return3 h! N0 M8 Y- j, _
then# b* V0 k3 Q; C
@.Destination := void;
. A1 y# L( T( X/ } if @.occupied then% E* [. E7 q; J' Q' ^
part := @.cont;" ^7 W1 x5 ?3 U% Z6 X8 m
@.transpOrder := void;9 e2 H4 y5 e7 u- W# A8 H* Q- k$ r
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
+ @! M3 ?5 G* k# n0 u% ~7 W3 X @,root.eventcontroller.simTime);' g' t" a: M9 p: o7 H. y6 N
@.HasOrder := false;4 E b% G, z9 w' `
@.DrivingHome := true;
" l! F, R% s4 y* x7 I! [; n( \ rgManager.tryToStartTransOrder;9 B7 y0 U% k( c$ C" [ n( z) p
if @.Destination = void$ M$ ]& X/ G, R" Y; Z% f0 K' z' E
then -- no transport order for vehicle @! B- F) B: u* L8 Y% Q1 C7 q
@.Destination :=$ r' F( k9 v- q; j% G8 E6 J* O
rgManager.nearestFreeStation(@,track.~);. U" x# ^! f) A, e: ~& D& ` |$ H
newDirection(@); $ V9 T0 G8 p) k4 s. i. T
if @.Destination /= void then
* p3 j9 u+ |; o2 `& E& L @.Destination.NumReservation :=1 b# M& I G6 P0 D% T5 q5 p
@.Destination.NumReservation + 1;
- M! M6 t, q( s& j O7 B end;' X8 l; J7 _1 e9 ^- k5 ]2 @3 N
@.CurrIcon := "drivingHome";; e/ \. i' F/ ]7 M0 r
@.DrivingHome := true;1 n4 a0 U$ g1 V7 }) u( G
end;1 B/ Y' P$ Q5 F0 c. z
else -- the vehicle @ is empty, both vehicle and part are in the same dock station5 K T1 |& R7 L: `7 h8 ~, b! [+ k
part := @.transpOrder;, s h" a& ^( p4 F
part.move(@);-- load part
# w1 o" {0 N5 \0 r @.CurrIcon := "load";% H8 m2 H/ d# d* t* m% y
GlobalDistObj := part.globDestination;
6 g$ l+ @2 G8 R6 Q) E% n4 [4 m assignLObj := rgmanager.rgAssignL;
; s/ k+ U# |; z6 K3 G row := assignLObj.getRowNo(GlobalDistObj);
; Y" j' j/ w! y/ l! L1 `& f if Row = -1 then -- since 704 E/ }' Q7 X* c& u
if lan=1 then
- j( Z3 D5 Z6 \0 D. u promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
% }7 F; y( p1 K& P( d, h5 F to_str("in der Andockstation: \"",?.~.name,"\""));: P2 q7 ], p/ V& ^- w( N' @
else# v$ d+ M- E* X9 V& }9 ^
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),/ T3 Z* l7 D! w$ `( o
to_str("in docking station: \"",?.~.name,"\""));
# K# n: k# o/ h q/ k3 x- ^# ^% T end;5 S' G. R( I! O" Y
else
% @5 d( v; y4 A2 z" o @.Destination := assignLObj[1,row];
% e8 C; I) {" @" ^ end; 0 T) D. v& Y1 T
newDirection(@);- h' X* Q2 f$ v( k" I+ T
@.HasOrder := true;
/ W" T! P0 S r) c end;
) W" r0 U: o" E' A$ w+ o end;7 q+ h: n# u# y
end; -- of the method
6 m8 X1 Z0 ]8 j6 d6 i! ] |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
