/* called by: entrance ctrl of the object 'track'
" `- |0 Z1 W! \# U*/
4 o& X" i: `6 A& t+ T$ A5 Eis
/ W0 m, W/ h7 d part, GlobalDistObj, assignLObj:object;row,Lan:integer;4 V! o& t. Z7 n$ x6 R
do' C9 Y; R1 C) j+ J0 o
Lan := rootfolder.Internal.Tools.AOLlanguage;
& N! p6 a$ P# O if current = @.Destination -- else return9 c1 d( ?% t* V' t% c
then
. M7 x. m- K' M, R/ w @.Destination := void;
( B( U1 r: Z) Y _- C if @.occupied then
0 p$ B; A1 F q1 M l6 _0 P part := @.cont;! i6 K2 f5 a# O5 ?! K) D
@.transpOrder := void;
: q8 d3 W9 `- P. u) `, e) Z w2 | part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
4 H1 t. }8 T& g- M! D8 H( T @,root.eventcontroller.simTime);
6 B( t5 D* X) Z+ Q @.HasOrder := false;
- H8 S: x E, ?$ G/ Z, t @.DrivingHome := true;
+ x! U) K" ?* Q- g rgManager.tryToStartTransOrder;
! w3 u$ v& S5 H( ^ if @.Destination = void
3 c1 V$ g6 N) Z0 v7 Y9 h then -- no transport order for vehicle @; L# `$ d) z) @( f4 o4 Z
@.Destination :=5 M+ e% B/ W5 I6 {9 W. U
rgManager.nearestFreeStation(@,track.~);0 ]2 K4 C e5 P( |8 D
newDirection(@); ( f- P: T; s3 ?4 L2 [! C. J, j* u) |
if @.Destination /= void then; j/ U. C" }3 V' Y5 Q
@.Destination.NumReservation :=
4 ?$ e" ?$ L$ _3 Q" ~- V @.Destination.NumReservation + 1;. N+ f8 B; B7 y! J6 e
end;
+ {* [7 N# t8 B" `7 T/ S% a @.CurrIcon := "drivingHome";
5 l" Z% a8 [5 \ e$ K: v @.DrivingHome := true;0 j9 f2 A, |% d! H, a
end;7 I- E+ }! A% L6 T
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
4 _; G k( c0 M# ^* ~ part := @.transpOrder;. M/ L# C: `8 b5 J0 [
part.move(@);-- load part' L, Q! d$ A% i) X6 Z
@.CurrIcon := "load";% E6 h7 h: R% f
GlobalDistObj := part.globDestination;
$ k/ R) u; s, k6 s assignLObj := rgmanager.rgAssignL;
" o S" F( \& Z9 V$ T: ]/ s' T% X row := assignLObj.getRowNo(GlobalDistObj);" S- V4 l7 ~# C7 E
if Row = -1 then -- since 70
; f+ _' s, g$ F if lan=1 then3 S9 g3 o. W8 P1 R* Q! p
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
8 y `% R) c1 v9 e7 @ to_str("in der Andockstation: \"",?.~.name,"\""));
9 C3 i' V! ^( V else
# x& o: t" m& E' V7 J8 F promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),: T2 B# r7 C* `" f, U" X
to_str("in docking station: \"",?.~.name,"\"")); / x: ]$ g6 n; z ~: {; |1 a$ X1 R
end;8 E% z- W5 ]5 E3 E! @
else; }9 j6 R2 Y" E3 |! o/ F
@.Destination := assignLObj[1,row];. e8 I0 ^2 z# e; F
end; , ~ p: T& M" D3 c" ]; c% ]- [, j
newDirection(@);& F0 I4 I1 i( Z6 Q5 z0 K1 D
@.HasOrder := true;
; ^4 M% |- R+ ^/ z end;: J+ K8 B5 r# @$ z
end;6 t' P# Q8 z8 G
end; -- of the method; l3 q8 _# k( T4 P
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
