/* called by: entrance ctrl of the object 'track'$ ?/ c. w/ l; {8 E$ q8 v! j R- Z
*/% n, Q" R8 v1 }) s8 s
is
1 l! X+ G: G, e: c part, GlobalDistObj, assignLObj:object;row,Lan:integer;
. f% J* f8 }' A6 \do" M i7 W6 A4 _; u' A; z
Lan := rootfolder.Internal.Tools.AOLlanguage;
- F" l! w- k( q if current = @.Destination -- else return
6 [; w4 V# ]6 Z$ v% R then
8 [ M V6 m, `2 L9 u @.Destination := void;
/ n( \& N) h5 o8 X if @.occupied then7 ~; n3 s3 v1 W8 Q1 I
part := @.cont;1 `. T, X, g V* w! {# B
@.transpOrder := void;
( M8 g2 I. F- {8 c- U4 Y8 p7 C( i part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,+ ?6 y2 E" Z# Q
@,root.eventcontroller.simTime);
4 P9 m' k* O2 D. }5 @2 v* x; R @.HasOrder := false;
4 m5 `+ I% {1 _' t: y) n% T @.DrivingHome := true;
) L/ j1 S$ ^. h% `1 U, J rgManager.tryToStartTransOrder;
4 m' [5 H! O+ z if @.Destination = void
" e' u) o/ V& w# z( C5 ?; R. e/ T then -- no transport order for vehicle @+ g! {3 h! S- D3 v
@.Destination :=" h' a; v" r7 i+ j' t3 N( s
rgManager.nearestFreeStation(@,track.~);* n2 I& t9 y) i( L7 }, U9 h
newDirection(@); - s4 T& P6 q% n
if @.Destination /= void then
# @& `4 K. i1 E @.Destination.NumReservation :=
6 Q- M7 w0 m+ M# U( x/ }- b/ R" O @.Destination.NumReservation + 1;
4 k9 t( R/ e7 V end;) P, `% V X, ~$ u& @8 B( S
@.CurrIcon := "drivingHome";; {/ W' k. l" q* K! F
@.DrivingHome := true;
+ F' T+ @: Y5 N5 ^ end;
; T- Q6 J- L8 u8 E0 E; ~+ k9 M9 N else -- the vehicle @ is empty, both vehicle and part are in the same dock station
$ c9 M& K, ?& _+ J part := @.transpOrder;) \/ n+ j& M, q& V' o: V
part.move(@);-- load part% z( F8 D! m2 P1 `+ Y5 T' |* I
@.CurrIcon := "load";
! R. B0 G3 d; t( x4 j! R; I GlobalDistObj := part.globDestination;
$ h3 R2 v9 X7 O! s! S assignLObj := rgmanager.rgAssignL;, D6 x- d) t1 d& q! c0 }0 `
row := assignLObj.getRowNo(GlobalDistObj);9 N- w# E% b* J0 {: i
if Row = -1 then -- since 70' C- ?4 z: `. G8 _8 `. y
if lan=1 then
) R: Q" v# c% S6 u; W6 @ promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
* T/ t7 \! g1 S, c3 ]5 j to_str("in der Andockstation: \"",?.~.name,"\""));
% F8 o8 |) J, m else
& C- n$ k _" s, v* P# p promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),% h/ B; N- U& `; w# U0 P! s
to_str("in docking station: \"",?.~.name,"\"")); 4 G3 \! F; A6 A) N! e8 z& T: _
end;
9 h. w! m$ M; S' A! a else
. n9 ~: C5 r1 G, h0 A4 L @.Destination := assignLObj[1,row];
( |: d" i1 ]" {( z" h end; 6 R. ~8 o$ I, J; [( R
newDirection(@);; ?; v) q7 c9 N/ e
@.HasOrder := true;, F9 P* K/ Q+ m- }* o
end;
5 k/ f6 \2 Y/ x0 v7 c( R7 |& k end;; a6 T3 `- V& w9 O
end; -- of the method
$ S9 t7 j. X5 K' ~! {5 W* f: | |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
