/* called by: entrance ctrl of the object 'track'
4 i0 |( N3 b; \ O+ l$ y( d*/5 C6 C2 u! w/ m% G9 ~' C
is
& f: g& V2 L0 P; p' t: Z9 p1 z: v part, GlobalDistObj, assignLObj:object;row,Lan:integer;/ ]- \! K! \! C' g3 ?. s7 p
do$ n' Z7 F4 \$ |9 c
Lan := rootfolder.Internal.Tools.AOLlanguage;) d) `! h1 }2 K' o& B1 F
if current = @.Destination -- else return
L7 d. M& q0 N3 ?6 | h/ n" [ then
+ p6 G, K2 @( [8 F: [ @.Destination := void;4 U4 ~: D, Y: R! V' Y6 p
if @.occupied then, e3 ?+ S) e; A. ]* M% |
part := @.cont;
* l$ {7 o7 C; b; l3 j @.transpOrder := void;
7 C8 [" q- V5 {6 V! d part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,/ q: D: x! Q: W' |; \0 I* O4 ]$ ` D
@,root.eventcontroller.simTime);
% \ H2 u' I. R! A @.HasOrder := false;2 @, C, Q* ]* p! T, E
@.DrivingHome := true; e2 ]! Q. X$ s! N
rgManager.tryToStartTransOrder;' A! [9 b% W' I2 m& ?# y
if @.Destination = void' Q9 P, G6 k2 I2 o9 j6 F; t8 u/ Z; E: s
then -- no transport order for vehicle @
+ A5 z/ X3 }, v4 ]; z @.Destination :=) N/ R3 V" ?& E7 ~* [' I
rgManager.nearestFreeStation(@,track.~);: \6 I% W" V6 E. s/ \2 }! j
newDirection(@); ( l# e$ \( a: F* X; q
if @.Destination /= void then& L$ G E2 o; Y9 {6 O: h
@.Destination.NumReservation :=$ j! A0 K. j; X" g. @0 s
@.Destination.NumReservation + 1;5 u) k& B; O' X6 s3 R
end;7 C- K! U1 ?, G
@.CurrIcon := "drivingHome";
9 v t; `) o' Q$ B6 z$ Q& W/ D @.DrivingHome := true;: {" v0 |! T6 c" h5 ^* W3 T
end;1 J6 v% m: b" s; X* @
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
8 Q* E4 {+ ?- {& s! c+ ^ part := @.transpOrder;
6 b/ o+ W" Y9 G* T5 K7 s; @5 X part.move(@);-- load part* h6 ^' C: m" s. Y7 W* g. X( R4 _& D1 v
@.CurrIcon := "load";
) F+ x: E, K; v GlobalDistObj := part.globDestination;" Q6 F& G6 j: m
assignLObj := rgmanager.rgAssignL;
4 ^2 ^4 G5 E* F+ U+ d* @& y row := assignLObj.getRowNo(GlobalDistObj);+ ?" n0 n& t" m$ A- b# h
if Row = -1 then -- since 70, V* b' L4 e2 y, J% s3 a/ m
if lan=1 then
7 i4 X& V, v! |$ T" F2 P O promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\"")," _* l$ B6 E; I( O; {) b
to_str("in der Andockstation: \"",?.~.name,"\""));
/ M" W9 h" m. S: I else
% [+ m! h' `: B5 n. F/ [# O promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),4 _ s. ^( u; l) T& M: g
to_str("in docking station: \"",?.~.name,"\""));
c& k1 R( a% X( V end;- m9 U1 H4 o! |% L1 M7 z0 }; k; f% D, V( N
else" W$ Z8 I% Z* s
@.Destination := assignLObj[1,row];4 w0 i8 o+ Y6 t* t/ B) |2 J
end; ; f: p- F' S6 \6 ^. X
newDirection(@);
/ C& [( f' G1 Z0 N! l @.HasOrder := true;
+ w- O N6 J8 R+ }+ k end;* p+ t5 J3 @3 e3 Y* `, ^
end;% @) Y6 ^4 D; c* K6 b
end; -- of the method
! m# ^9 v! y7 u& c3 [ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
