/* called by: entrance ctrl of the object 'track'/ _- w0 \- r* e( H, J
*// w: [: E- n% Y( D
is
" M/ ]/ r f5 I( h. \8 s) R$ Q1 b4 } part, GlobalDistObj, assignLObj:object;row,Lan:integer;; r4 d, c# Y7 N
do
8 |& O( C8 L. |+ ^$ W Lan := rootfolder.Internal.Tools.AOLlanguage;0 G2 F! W, v2 M% W1 {# ` Z
if current = @.Destination -- else return
3 ~! z& |7 \8 z7 G1 s$ A: U then7 _& k# V/ ~& _$ d$ I8 ^9 I
@.Destination := void;) Y( c) H5 E# ~2 [0 b
if @.occupied then
1 W5 E n$ B# v6 { part := @.cont;* {; r# x5 y5 W6 n3 q, g
@.transpOrder := void;
- i9 i9 J" |! U+ z0 J) }9 M9 i part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
; m9 j# C l$ S5 Y: f @,root.eventcontroller.simTime);
& ]+ [& {' S: Q, @2 B& B @.HasOrder := false;
2 M4 A/ Z. s! F2 E( F* B @.DrivingHome := true;
1 Q! d1 K, t9 Z1 m$ q; z rgManager.tryToStartTransOrder;6 Z5 x( K, S# q; T6 W ~
if @.Destination = void
* e& ?5 \6 R/ Q+ a& J$ E then -- no transport order for vehicle @1 r2 f4 ]) L4 m- g
@.Destination :=
6 g6 V6 F6 `& a: |$ X2 O rgManager.nearestFreeStation(@,track.~);
2 l+ }( I) x# K, X newDirection(@);
+ @/ s5 ^' G! V% r& E. u1 U if @.Destination /= void then
. G- x2 C+ P4 I0 U @.Destination.NumReservation :=
4 h8 D; m' k4 G @.Destination.NumReservation + 1;+ e1 g: _( w I9 t: ^) p5 d. S
end;
2 J t! Y! {1 I& w7 | @.CurrIcon := "drivingHome";5 u$ m: ^8 [' g# F3 ~, O: T9 t, n
@.DrivingHome := true;: `0 m: [( X, B) G) B
end;
, `* e2 D2 x8 ~8 o, c else -- the vehicle @ is empty, both vehicle and part are in the same dock station4 ~3 e3 W. v' ~* R( T. @) O
part := @.transpOrder;
+ S; b* `- T* u6 H part.move(@);-- load part% Z3 L, z1 S$ J0 x
@.CurrIcon := "load";
$ S& \! M+ V$ i6 P$ f4 E& E& Q$ a/ ? GlobalDistObj := part.globDestination;
% B6 N0 o6 }% k7 q* _5 { Q assignLObj := rgmanager.rgAssignL;5 c3 Y/ q; N" x
row := assignLObj.getRowNo(GlobalDistObj);
4 x) }6 \) T, y6 `0 j4 g5 i4 a if Row = -1 then -- since 70
+ W. ]* h7 h2 j/ V if lan=1 then* K5 j# C/ n4 g! l- S, ^, d
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),, u0 E1 d( r- M) H
to_str("in der Andockstation: \"",?.~.name,"\""));, n' O5 _% u% j+ o
else- ^) ~) O8 K. g; C3 M
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
9 ]/ J ~$ x" |! J& S to_str("in docking station: \"",?.~.name,"\"")); 2 {( p! u; ~: {
end;7 H$ p: y8 ?; t6 k) `# z
else/ p9 ?7 z$ S, w: w& r% A* p& V. {! g
@.Destination := assignLObj[1,row];
2 H* L: U. a6 H) O2 O end; : E5 Z6 P* U4 k& g. O1 P/ u
newDirection(@);
, Z5 t2 M6 u' T4 X& y8 b# e- X/ J# r& x @.HasOrder := true;
/ \9 F3 y. n9 J& ]( f end;; m6 ]! v' i4 s
end;5 o! P, {- W8 Z) @, V- i {
end; -- of the method
5 `0 d2 t- A: ?9 v& f# [& z |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
