/* called by: entrance ctrl of the object 'track': w, L- e+ L# W6 }
*/
6 D5 T( `5 b& J7 T" {! \$ l, Y$ s& eis
/ _/ }3 H3 P! T/ a+ j! o part, GlobalDistObj, assignLObj:object;row,Lan:integer;
T& U" f) ?% G& l) x$ i2 Fdo
- F7 f) X4 g- `' z* R# X& P% _1 w Lan := rootfolder.Internal.Tools.AOLlanguage;
1 M/ Z3 ?2 |4 f if current = @.Destination -- else return' {$ g/ F2 M0 e) Q3 M0 h# j
then
( l" K. p$ ~! p4 m& v1 |8 I; q: H @.Destination := void;
+ q* A% y9 E& ?/ B" ~7 E if @.occupied then
9 x; x4 T& J# ]: c' `$ |) M part := @.cont;
! n$ x5 O) P' O @.transpOrder := void;4 k5 ^) W( X2 W: w3 G8 }0 |$ t R% r
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
( c' ~1 g% a, A; { @,root.eventcontroller.simTime);
* P0 [% |: m% H' N: ^) I @.HasOrder := false;, e5 c7 C" \4 M& u9 U5 y; E+ S5 ^
@.DrivingHome := true;: O8 h$ g( J9 q5 E* p
rgManager.tryToStartTransOrder;
) O& m$ y: R. Z1 @# i if @.Destination = void
1 z; W4 w+ g: n/ m& | then -- no transport order for vehicle @
8 V0 l1 d2 W0 d; F @.Destination :=4 G& a1 A1 U* j# w
rgManager.nearestFreeStation(@,track.~);
5 n5 Z7 j2 T1 \% L newDirection(@); * H* j7 p) u5 Q0 d# ^
if @.Destination /= void then1 Z" K& k% f$ i% Z
@.Destination.NumReservation :=
2 T, N/ @" u0 P+ G7 Q @.Destination.NumReservation + 1;
! G3 O( \2 M) [% [' g9 H8 b end;
1 _7 {& ]% }: g% d; ` @.CurrIcon := "drivingHome";
, k7 w% p6 E* B) n @.DrivingHome := true;. @8 u3 g! s" y+ f
end;
- x4 J% `" n4 [+ I else -- the vehicle @ is empty, both vehicle and part are in the same dock station' ~/ A4 R+ m: a2 v x( Y
part := @.transpOrder;: L5 D) M+ c* W9 w/ C: G7 u( z
part.move(@);-- load part
U, Q* x: H$ U, B5 @ @.CurrIcon := "load";
6 N+ q; E+ [2 Q5 S& c GlobalDistObj := part.globDestination;# f0 F6 `7 P- L2 z7 a$ v
assignLObj := rgmanager.rgAssignL;( h% x" Q3 e) d6 P9 g
row := assignLObj.getRowNo(GlobalDistObj);. R: r8 M1 N: O J
if Row = -1 then -- since 70/ F* ]9 n7 f) g* J
if lan=1 then
+ C& H1 f' K& {; A" [: \8 X promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
9 t! `3 z h' Y to_str("in der Andockstation: \"",?.~.name,"\""));. f' p9 c6 y) `# y
else% ?, w3 B" d7 m: d
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
4 N" _- Q6 h7 C to_str("in docking station: \"",?.~.name,"\""));
) L2 z! E. [ e end;
$ d, K# B- P5 F! ?5 M D$ [% u else! y9 C3 E$ w; A4 W) j3 ^/ k7 C$ \
@.Destination := assignLObj[1,row];
9 d, W m" {. j end; ( `7 G/ H$ T' m S! ^& Q7 q @
newDirection(@);
2 h$ X1 r2 c1 Z' R: G+ R @.HasOrder := true;
. A9 F, U0 v7 Y$ ]+ k end;# `$ ] `& c4 ~( q
end;0 c4 B5 L) [" G; Y, }) p# l$ X
end; -- of the method6 }! _7 ~8 v7 x+ N; }
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
