/* called by: entrance ctrl of the object 'track'
, F" l* W. I9 q*/" G& P$ d/ f! ?( P/ `
is* B1 }) S$ o4 Q8 o
part, GlobalDistObj, assignLObj:object;row,Lan:integer;7 i8 {( y, t% B
do
& P H( h5 c4 G% x Lan := rootfolder.Internal.Tools.AOLlanguage;9 f e3 ~ }/ F* Z/ Z
if current = @.Destination -- else return1 @2 g0 c: [2 j4 K# v3 \$ ~( w
then
$ k! _& p4 D7 m+ `$ i @.Destination := void;
' }9 w/ X5 M; z if @.occupied then: I7 K$ h) Y. d+ c7 X- \- C. }
part := @.cont;7 r3 |( A. ^6 }
@.transpOrder := void;
; n5 [7 C5 G9 e; w ] part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
8 u3 n @6 B7 b7 J7 Q' v( ~& \: [9 S9 t7 r @,root.eventcontroller.simTime);, U* g! r) J+ m6 K0 a+ J' l; X/ m
@.HasOrder := false;
7 E+ ^: l( A3 {! h' C/ V @.DrivingHome := true;+ h. [/ W5 [$ i k3 u8 G
rgManager.tryToStartTransOrder;: i/ W8 A( h/ s: l
if @.Destination = void
l2 s b% }& T) k% X l& o then -- no transport order for vehicle @
2 U+ _. G# l, b1 v @.Destination :=2 P1 w* Q2 f4 h
rgManager.nearestFreeStation(@,track.~);
% o2 s' ~6 D4 Y& A8 ]2 J newDirection(@); * L+ ^' G) u+ ?$ ?9 B u" Q: i
if @.Destination /= void then
, V- \3 V" J9 `2 Q1 J @.Destination.NumReservation :=1 f2 e- }0 v( r# `; X( a, q
@.Destination.NumReservation + 1;
$ b! i# g/ c; i2 r. z end;& n. ]8 {1 I5 g8 G: H* [1 D
@.CurrIcon := "drivingHome";
# _) w9 }: }9 V @.DrivingHome := true;
* B5 t) R! {+ o8 t end;8 g/ B9 ?% ? P
else -- the vehicle @ is empty, both vehicle and part are in the same dock station& L5 L0 ?9 U% j+ E
part := @.transpOrder;$ W- W5 b( L2 m! J4 C
part.move(@);-- load part
9 {* i2 Z; U7 W' o4 h. d @.CurrIcon := "load";
- u! I0 g/ O! T GlobalDistObj := part.globDestination;& |% a i% X7 a! X) r2 N5 @
assignLObj := rgmanager.rgAssignL;
0 k/ l4 m: q5 h2 S# e- ? row := assignLObj.getRowNo(GlobalDistObj);
) Z4 r8 f+ E: D. s& { if Row = -1 then -- since 70
) f, d. B& ^; z( w if lan=1 then
) ~. s, z. |3 V- A$ G3 C. M1 c6 |, L promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
7 \/ {( X* h% W to_str("in der Andockstation: \"",?.~.name,"\""));8 ~1 {+ d- Q* @! ?* g
else
w( V$ j, ?, P3 U$ K; h( {) P; o promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
c- A, f9 J, k3 j2 I% j1 s to_str("in docking station: \"",?.~.name,"\""));
6 J, f+ Y4 y7 F, {$ n end;
4 e$ r( J" L, s4 k( y' p else
5 H' u& G+ T9 }( c @.Destination := assignLObj[1,row];& C6 P. V! e6 V% l
end; 8 w9 f$ R5 Q5 f% k
newDirection(@);
& ~4 [% O. |$ c( \ @.HasOrder := true;6 H6 L* h5 {. q. a# E2 @$ B
end;; N) t, z0 h* {( M: ^
end;! k! W# A/ {, w. q) Y
end; -- of the method" i0 y2 Q- d9 } Y* ^
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
