/* called by: entrance ctrl of the object 'track'
$ Z I8 E* Y3 f! |& b. `# s*/; f l3 z }+ J+ d( X
is
3 p& A) K6 L+ z0 k- T9 V, C part, GlobalDistObj, assignLObj:object;row,Lan:integer;0 d& W. s1 w" Q, t; `6 e
do
% {3 g* P. N1 @4 p; }) d8 |* g Lan := rootfolder.Internal.Tools.AOLlanguage;# b+ I1 c4 }5 K, s
if current = @.Destination -- else return+ F5 _: _7 w: A* j! S
then. S6 ~- Q! I3 X! U4 K' z8 [0 f
@.Destination := void;
& d5 B9 N) m6 | if @.occupied then& w) J& @1 W( `: \( m+ u
part := @.cont;
- v9 a- w# Y: K @.transpOrder := void;
1 M$ J. R8 [$ [2 i. } part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,/ O- h! B; V, I1 {, N
@,root.eventcontroller.simTime);
+ B7 {& M8 `) F. O( s" z3 f @.HasOrder := false;9 x+ `0 y2 g9 m8 h& K3 P0 \
@.DrivingHome := true;5 e3 Y8 t" h: ~. L5 K
rgManager.tryToStartTransOrder;" s8 k5 N" b5 F, d
if @.Destination = void" V( `/ m; C! O% n ?) V% J
then -- no transport order for vehicle @" u, F9 j( @3 o9 |8 l2 z
@.Destination :=: l' d2 H. L: \! O0 V. H
rgManager.nearestFreeStation(@,track.~);1 P8 Z0 ]4 }' ^% W. N
newDirection(@);
# U5 Z; \- u0 \' J4 S+ D. q if @.Destination /= void then
& x- v: V8 I" r9 J7 Q; v L @.Destination.NumReservation :=8 w1 S0 D( ^$ O1 K( X2 H
@.Destination.NumReservation + 1;
+ ^: \3 u& g3 N2 _" a7 Y" ~7 t end;
1 R) E( k- m. x, d @.CurrIcon := "drivingHome";# U" s% _) p6 y8 a [9 e' O
@.DrivingHome := true;( ?8 m, r1 l0 B3 i& T
end;
_) c7 @4 ^. q/ I else -- the vehicle @ is empty, both vehicle and part are in the same dock station6 l9 J% q4 x* ~6 m+ |% ?
part := @.transpOrder;" {& Y5 b9 I! \& a% u7 v
part.move(@);-- load part' [. y4 b- F l y a- _! i
@.CurrIcon := "load";& o8 b) o* e' E e2 E7 M- q. I
GlobalDistObj := part.globDestination;
, o. s, k( M7 M' D% ` assignLObj := rgmanager.rgAssignL;
0 s/ A; e) \. m" g$ ~5 m row := assignLObj.getRowNo(GlobalDistObj);
7 E, V7 p/ T3 E) N! ]# H' H if Row = -1 then -- since 703 X& K) v+ a- W# t* s+ y% L+ p( m
if lan=1 then
/ S4 `0 T/ U. s) q, e promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),: g$ C" }- X# t! H# R2 z
to_str("in der Andockstation: \"",?.~.name,"\""));
. u0 F; n/ s. _' Y( N# Q: ?& C0 a. p; f else
+ M \" v* G0 \* [0 {+ x2 L promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
7 B& i4 ]. F6 W" ]+ L& F4 e to_str("in docking station: \"",?.~.name,"\""));
$ ?; p( f( x0 J end;
; i5 `8 b X9 j/ A2 d* u2 v else9 K* {; m; Y* r
@.Destination := assignLObj[1,row];9 E- H0 A, A, D% l
end;
8 ?5 z \) Z( b' c; r8 Q newDirection(@);/ L F7 w: Y ]3 N- L( _: _
@.HasOrder := true;
: S2 f7 I" z7 _$ i5 d( V end;
: ^0 }$ q; C, p# i) v' |/ N: p end;
@1 d0 N& I3 t5 @end; -- of the method
) V' p! p# Q( |7 z5 P% b) \- \ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
