/* called by: entrance ctrl of the object 'track'
; F- u4 X/ I( K+ x*/9 r, Z2 d( Y& I
is
* N( S f$ b7 Q. j& o. y3 s part, GlobalDistObj, assignLObj:object;row,Lan:integer;/ A* s# S2 y$ A. S V
do; E8 S# [+ d3 c& v$ U" I& B
Lan := rootfolder.Internal.Tools.AOLlanguage;, F: a3 Q3 c1 W
if current = @.Destination -- else return& N( i) J) l: n% k8 d
then
! A7 ^7 `" _: }4 A" ? @.Destination := void;
- S) |1 |$ A" c+ j. ^! B if @.occupied then7 ^ m- p/ V0 n) f
part := @.cont;
' j9 @5 z/ J( l' k @.transpOrder := void;; Q4 C( R, H1 b) D0 j0 \
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,$ W$ M* U- E# b, y; u. v" `% a
@,root.eventcontroller.simTime);
1 p6 G2 A1 |6 G$ G9 q2 d @.HasOrder := false;
1 f# M0 d; J8 Y0 R# ^ @.DrivingHome := true;0 V0 X( v$ G" z$ z3 X
rgManager.tryToStartTransOrder;1 Z; V* L+ A6 ?) k
if @.Destination = void+ I8 A, M9 V" Y# d2 l# s& |0 q
then -- no transport order for vehicle @% _( h6 v+ q+ P5 G' }# l
@.Destination :=
# |7 p0 a$ y6 L2 ^# a rgManager.nearestFreeStation(@,track.~);3 f3 c' |8 ]" T Z% m; W5 U, v0 ?0 q
newDirection(@); 1 }2 V% Q4 l" o7 Q0 V8 B
if @.Destination /= void then
7 _# k( Z5 V# m' N h! U @.Destination.NumReservation :=9 k% j7 D1 }+ n/ E- y9 Q
@.Destination.NumReservation + 1; ~& W3 a4 I' d4 F9 q. X+ D" H( j
end;9 J! T( S4 j: `" N; N9 W
@.CurrIcon := "drivingHome";0 }6 p5 ?9 `9 a& x$ Q
@.DrivingHome := true;) B' X) ]4 B- ^# a; {, v9 Z1 |
end;
9 u$ S4 ]3 |: L6 r else -- the vehicle @ is empty, both vehicle and part are in the same dock station
; V5 J; M! c- q8 ? part := @.transpOrder;/ x% i9 \0 v6 |: U* G) U g6 p
part.move(@);-- load part0 w: S% U- |# ~: W& u! X
@.CurrIcon := "load";/ L1 _; J& F3 T7 a) W# g* H
GlobalDistObj := part.globDestination;
( }% t0 Z7 O5 L& {; H: N4 R- W+ p! j3 I assignLObj := rgmanager.rgAssignL;6 c( M1 [0 a6 S$ V2 J1 d
row := assignLObj.getRowNo(GlobalDistObj);
* K6 x+ Y! A5 }8 ~; C4 \4 R& H if Row = -1 then -- since 70
5 _! R: o6 [* P if lan=1 then
; Q/ G/ t. R. U X promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
" q6 W. Z$ X- N to_str("in der Andockstation: \"",?.~.name,"\""));
. }( R; b8 u) d" C$ ~ else
% w0 Y" }( r6 x( C promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
- }+ N( `- ]% N: j. Y/ @/ [ to_str("in docking station: \"",?.~.name,"\""));
( h6 T. M: z7 ?9 t end;7 B% K/ r* x. R: Y
else
4 D# }# w- Q7 r) K @.Destination := assignLObj[1,row];
( @# {2 @$ e7 t1 T3 v end;
+ c" w/ j+ d; o8 u2 ` newDirection(@);8 `) l! b1 s% S: W5 _, j
@.HasOrder := true;
! A& S* L. q! W4 [! x: s end;5 M# g9 O: b/ J! S8 f; V, A- Q8 j
end;
4 r! Q6 |# N8 F( d7 m% lend; -- of the method! q: ?* c- _! s- P
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
