/* called by: entrance ctrl of the object 'track'+ T4 j1 ]1 P5 z* T
*/- n6 l' Q. Z* i6 U7 n" O1 | z: Q
is
9 W! ^ \9 y! J8 t7 a part, GlobalDistObj, assignLObj:object;row,Lan:integer;
( C) S' s) h0 z, g& ndo* n9 ^& O2 }" }$ K2 [( p
Lan := rootfolder.Internal.Tools.AOLlanguage;
" T% D% q% g# J1 a2 d2 } if current = @.Destination -- else return+ h# y# P/ ]( q" D5 P% W: J" j
then5 `5 U. w7 P3 c1 d1 q* p( n
@.Destination := void;& `- H* ]1 Z/ _, Z& a9 d
if @.occupied then
: `3 y/ A1 U5 @5 j7 s8 t% b/ _1 H part := @.cont;5 }& i' H1 W' r' J9 a. E
@.transpOrder := void;
/ p3 N. t+ \- j( X. ^* T0 f0 c part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,, B" f' a. Z1 S+ w" f I! }
@,root.eventcontroller.simTime);3 A; U" \# i6 I6 z5 S
@.HasOrder := false;( Q o% w! U3 T9 a, R- Y) a
@.DrivingHome := true;( {+ h( h g2 O2 j4 g
rgManager.tryToStartTransOrder;
$ h0 y/ g( X: w7 J# c; ] if @.Destination = void- h9 G& w) ^5 v$ [- |0 N5 G
then -- no transport order for vehicle @9 U( s! [& P& y, ?8 ^8 |# {
@.Destination :=& _* u' B: h7 ^1 u
rgManager.nearestFreeStation(@,track.~);" V8 ] d* r9 |+ I3 r* [
newDirection(@); - F& w+ i( k9 Z# I3 B
if @.Destination /= void then q" p( ^2 P# m5 Q4 T, h
@.Destination.NumReservation :=- m( T. X; O9 y4 Y
@.Destination.NumReservation + 1;
2 ?/ m+ q& b5 L% ?9 t end;' B0 B. T- Z- w6 t5 t- a2 i% T
@.CurrIcon := "drivingHome";
! N6 Z+ d. ?+ u1 p% J. v @.DrivingHome := true;, ]; J! U# M0 V9 Z
end;
, h) f! m3 j8 h+ T% | else -- the vehicle @ is empty, both vehicle and part are in the same dock station7 w$ {: X+ d$ C! W
part := @.transpOrder;- G. k7 Q5 i- C
part.move(@);-- load part9 B: y# ^; y" s( ~+ `- j: J
@.CurrIcon := "load";1 Y; T5 A2 z/ N& n& L
GlobalDistObj := part.globDestination;
9 U/ l% j5 h3 \# J) `% ~ assignLObj := rgmanager.rgAssignL; }* M; E W1 i# R
row := assignLObj.getRowNo(GlobalDistObj);3 U( C: Y7 H( [& h4 n
if Row = -1 then -- since 70
6 ~5 j# D( s% p) g. N" y0 [ if lan=1 then0 H* n; G; s7 e/ A/ ^4 X
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),' K! p( Q/ i) u' e
to_str("in der Andockstation: \"",?.~.name,"\""));
0 E7 M$ k+ \: U2 E+ W else
9 T5 B6 ^, x, E& k promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),( f& P* y# A. ?/ i$ j, ~+ I
to_str("in docking station: \"",?.~.name,"\"")); / Q4 G- [6 g* r, W2 g( s+ T
end;
* n1 n7 h( a2 s+ { else: R9 |) a& N1 Q( Z; k; s8 A' h
@.Destination := assignLObj[1,row];1 D3 ` ~; h3 L$ i0 Q
end; ' ]6 F5 K0 x9 @% v' M7 q# q6 d
newDirection(@);' q' }4 W0 _/ A3 r
@.HasOrder := true;0 ]0 T! k7 C* O; h4 c. J
end;
% j+ a+ a- k" U/ U! v: s8 x end;+ M) m7 v# c5 L( k1 w* @
end; -- of the method
4 n" c3 F7 H% w4 X0 W. X3 v |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
