/* called by: entrance ctrl of the object 'track'
+ K/ s( s+ c, N' j) ?*/
- e% S# M; z6 R1 K* Ais
$ C( R! t) D" b7 J part, GlobalDistObj, assignLObj:object;row,Lan:integer;. ~: w: Y; ^. V& P1 a! w; l! C
do
. R: X1 ~. j" G s- q0 r Lan := rootfolder.Internal.Tools.AOLlanguage;" a0 n8 z6 v! R, R; w. k
if current = @.Destination -- else return
4 f8 X) q' j' _3 M. {, y then8 T7 o6 r& Y, Z6 J8 {6 x
@.Destination := void;4 ?6 L0 {7 w- @- f+ u9 e
if @.occupied then
5 C8 e! E5 d, R- p F% ` part := @.cont;2 ~. [5 m! t* c
@.transpOrder := void;
8 p9 Y* N, @& b. S part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,4 M1 s- ]8 q6 E' B
@,root.eventcontroller.simTime);) a _, ^/ K$ `" u% K% v
@.HasOrder := false;- \4 f/ |/ Y3 @8 G6 V: Z
@.DrivingHome := true;. V# t% d9 T* R1 K8 a
rgManager.tryToStartTransOrder;
. I3 \8 g% I \0 ~5 _, t0 W! N if @.Destination = void% b2 t( g6 V/ U" V2 W, i
then -- no transport order for vehicle @
3 o+ V* \0 W. C. I @.Destination :=
; U& ?% `! L8 R rgManager.nearestFreeStation(@,track.~);
- k/ M2 E) C4 H. B( g- R! O8 X newDirection(@);
; l! s" A* R) G if @.Destination /= void then
! Q+ ^. `7 N; k6 I8 Z" m @.Destination.NumReservation :=
0 r& ]5 h7 ~" y/ { @.Destination.NumReservation + 1; L# @. K" W8 H4 m) Y4 M9 r4 v( w
end;- A P. _8 M j$ n: a% {
@.CurrIcon := "drivingHome";
3 H# ^* i2 t: \4 R9 k( Z* E c @.DrivingHome := true;
2 }% J8 m% V* ^) V t9 z end;
& I# I* b9 O b% ` q4 B else -- the vehicle @ is empty, both vehicle and part are in the same dock station
% C. l. P* p3 q$ [+ A8 w! q part := @.transpOrder;
, ?0 L: q6 j% s$ ^% m part.move(@);-- load part
' r6 [2 o @ \6 S @.CurrIcon := "load";
- ]3 u5 I$ X: q) y GlobalDistObj := part.globDestination;6 ^4 I G) Z) G0 s, _
assignLObj := rgmanager.rgAssignL;
. @5 t' A8 V! U) ~- p+ N row := assignLObj.getRowNo(GlobalDistObj);
) E7 m( U8 a' {1 Q- u* x if Row = -1 then -- since 70
% u, `8 I+ Q9 \* K0 r9 m if lan=1 then9 F8 L0 H Y- v+ m
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),4 \. K, ~% N. s+ @0 e( P' p
to_str("in der Andockstation: \"",?.~.name,"\""));6 L Q! }( f4 ~6 u
else
0 \' p0 ]" S& i1 k- ^% ? promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
0 E$ a# t. Y+ o, J6 X/ N to_str("in docking station: \"",?.~.name,"\""));
6 G" y8 Q" z& M5 R: \+ w6 o6 B9 I end;- M1 J8 ^8 k) r5 e% A
else' D: ~8 C7 G9 L) t. ^& y" x2 \
@.Destination := assignLObj[1,row];2 b+ I; k& o* l0 i) x& S
end;
8 F$ m: o. a y+ `% Z newDirection(@);6 k/ o8 t$ o! ]0 p* x* G3 o, M' b% x
@.HasOrder := true;
7 [. U5 I/ H: p/ b; u end;* _: F: J1 ?, O, x9 I+ w
end;# c$ I' E6 r, P) b
end; -- of the method
8 \" s* Z3 \/ K; F. }( }* ?: \9 _ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
