/* called by: entrance ctrl of the object 'track'
- _, J7 l$ ]3 D8 d*/- e* e# J; T, `4 G T2 V
is
% K) B) J3 I6 p8 u2 J/ j( s part, GlobalDistObj, assignLObj:object;row,Lan:integer;! I- V6 D1 O( o
do
2 w4 z$ [1 o6 a3 v) ~2 W9 | Lan := rootfolder.Internal.Tools.AOLlanguage;& }/ k6 V# V( r& g5 b9 b, Y
if current = @.Destination -- else return
+ _4 S3 Y! O) }0 H! g4 u2 ` then
2 \, m4 z; d U' u% { @.Destination := void;' P( I$ Z5 L0 z. L. q
if @.occupied then
# d8 H6 Q+ P* d+ n# W! l/ {) s9 U part := @.cont;% l! V/ [+ l/ u/ g1 ?1 `" R% R
@.transpOrder := void;
4 i3 F4 _: R& U6 h( \ part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1," p) u& |! x+ D( A# d
@,root.eventcontroller.simTime);) J' e! A, d0 \5 }4 Q
@.HasOrder := false;! t' D: F& h: [4 A
@.DrivingHome := true;4 I( } I% b, m3 D: F, j8 f
rgManager.tryToStartTransOrder;& d, N4 I, h! h5 q. h
if @.Destination = void
1 r8 E6 e/ h, G2 I" l then -- no transport order for vehicle @7 {& {, U3 \9 q
@.Destination :=
: a3 r! I( \+ R6 h" y rgManager.nearestFreeStation(@,track.~);) G3 K$ L0 L; ?3 L
newDirection(@);
8 _/ g- Z! I* m% o if @.Destination /= void then
: i2 y) P @$ {" k+ I' k. R7 @6 } @.Destination.NumReservation :=- i' v) m3 I/ Y" |5 y
@.Destination.NumReservation + 1;4 o- L% w x2 k, J
end;
# M) \( `! d, x! q+ [ @.CurrIcon := "drivingHome";8 p# g7 k; a# p( [# o
@.DrivingHome := true;
6 F' L) v8 }% T1 ` end;* G2 ^! k' D4 I9 G1 o. Z' U3 q
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
& ]/ {3 @& \2 H2 p/ H: N5 O part := @.transpOrder;
3 f) w9 {* m+ s9 ~ part.move(@);-- load part7 N9 L: f1 T3 D7 z$ Y5 b) c
@.CurrIcon := "load";8 s. L5 }) a3 \8 k
GlobalDistObj := part.globDestination;
. q! B5 \" s R% j* ^# |& a assignLObj := rgmanager.rgAssignL;1 I4 h9 q8 O5 g+ h4 Z) e
row := assignLObj.getRowNo(GlobalDistObj);
7 f: @4 _% Y+ l1 G7 T if Row = -1 then -- since 70, ]5 O. U9 f# I
if lan=1 then' \% S$ @/ `. n
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),( T. y' |( H' H5 h- L# \( q
to_str("in der Andockstation: \"",?.~.name,"\""));' o- X" q- Y. r+ C$ U2 }0 w
else7 R3 x; {, p8 L# u/ @; A/ @! r
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),3 R( u. G% T3 F# z: u
to_str("in docking station: \"",?.~.name,"\"")); 6 P4 l0 Q# B0 k% Q* Y
end;! y1 H$ {# M4 c" L: ^4 |
else& `2 f& @3 R8 v# _9 O: z
@.Destination := assignLObj[1,row];
# n- ]- T, ]/ d end;
& V8 ?; ^8 A. y) v8 j) x. R/ K1 Q& n newDirection(@);
8 k/ g2 v- J3 c& K @.HasOrder := true;! c1 p+ ~$ C0 W4 q0 F
end;. o. k" A1 `& g! h% i
end;& Q4 g1 X" A* U. N, ?6 v- T
end; -- of the method% g& t8 ]! |1 c* o# N
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
