/* called by: entrance ctrl of the object 'track'
2 l4 [; P# A& j" \0 X1 b+ _*/" v+ v6 B& z+ d
is& ~; s1 }) I5 Z1 c7 ~9 j
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
! z! S& }- m* z- A% Sdo
" t5 c9 P r5 S& U! p8 P Lan := rootfolder.Internal.Tools.AOLlanguage;
; G k! N6 g9 Y) Y% C4 C if current = @.Destination -- else return) V6 t. s5 y4 m( J% x" R
then2 a: e- [/ f9 ?: w
@.Destination := void;
" N, k8 L: ~) u' i/ S if @.occupied then
0 ]& E, Q, |! o* Q part := @.cont;. B- O; o; A: I$ |! U
@.transpOrder := void;9 G" K1 i+ {$ C& u \7 }
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,$ Z" A c% a4 N$ D( j! X& s& E
@,root.eventcontroller.simTime);
6 C7 i7 O' e/ Q @.HasOrder := false;
+ |: ?& Q0 Z6 b( [$ e2 j0 k- W @.DrivingHome := true;' O; {8 s8 k$ |: b0 i1 i
rgManager.tryToStartTransOrder;
6 k' Z3 X; C7 l& c+ m! ^. P- v ]7 @ if @.Destination = void
9 s6 X# y& z% ^ then -- no transport order for vehicle @
5 r& h4 v* g+ k5 j" n) r @.Destination :=$ Z- ^+ a+ d+ V' z) n" ^) O; S
rgManager.nearestFreeStation(@,track.~);- _% p0 Q Z7 g. `
newDirection(@); 4 H( r& T# ?. S, _8 j# o1 Q
if @.Destination /= void then- i8 I9 a( q' w' d
@.Destination.NumReservation :=
/ P$ O, r) |4 J @.Destination.NumReservation + 1;
: W; v% |) v C& b( P, G/ Q; U end;
- q" W3 ?, X& ?) G. k, u3 k @.CurrIcon := "drivingHome";
" n+ I$ S' ?. {8 ?( r; X, Z @.DrivingHome := true;
7 M/ [; j' x/ o( o end;. v. S2 y8 [# I& d r4 g4 Z8 W
else -- the vehicle @ is empty, both vehicle and part are in the same dock station* q3 z( f% S0 A: }; V* q* d
part := @.transpOrder;
* V) C. s! N( H$ S/ L. R* a3 } part.move(@);-- load part3 L; k- w! i; F o4 j
@.CurrIcon := "load";
( ?( r, p5 q; B1 [ GlobalDistObj := part.globDestination;
- }, n* q2 C0 k0 G) \ assignLObj := rgmanager.rgAssignL;
+ _4 w C8 b& y b7 o row := assignLObj.getRowNo(GlobalDistObj);
& F1 G) Q: O& [! Q+ z if Row = -1 then -- since 70& `* p( S! `+ `/ ~2 c, k
if lan=1 then! ^% H7 t8 M9 \
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
" m6 |7 i0 M( Q4 j* Q( H to_str("in der Andockstation: \"",?.~.name,"\""));
9 S0 q- \# D! L% W/ x! e) K else3 ?& y6 c j" _/ s9 i3 Q$ D
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),. L \8 Q( {2 h' N, V
to_str("in docking station: \"",?.~.name,"\""));
) ]" P \4 N( G {' y ]$ y end;
" ?6 ~: ]2 P9 c" ]2 Z else
" y* R' ~! a' m; y5 O$ Y @.Destination := assignLObj[1,row];
! I8 v4 i5 \* F W& Y% }2 B end; 1 E. F$ q( ?) _5 C. G6 ~
newDirection(@);( [2 |- x7 o' W; k9 o: @
@.HasOrder := true;
* @ f2 h/ v# o; F/ r end;: h9 o- Q0 }! D
end;- V9 m: r, u" g$ L. T
end; -- of the method
% T' w( ^ d/ n+ q |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
