/* called by: entrance ctrl of the object 'track'
( @8 }8 Z% Z( L# {; q*/4 ~! j$ H/ } U B; m
is
9 K6 {# d* f" B0 B part, GlobalDistObj, assignLObj:object;row,Lan:integer;
% Z6 c" g, f) u* Y' {do
; D5 Q5 |: N7 e: G& d: n: [- Q0 t Lan := rootfolder.Internal.Tools.AOLlanguage;
$ u4 P) A! X# ] if current = @.Destination -- else return
3 Z- Y8 j% p( f! O0 S; H+ Q then
8 m" [+ n& ~/ P2 U. C @.Destination := void;0 ^+ X1 e, c7 Z9 |* Z! D
if @.occupied then8 z) Y& g2 |% N
part := @.cont;+ R: ?# g. m0 y! H. n- M$ Y
@.transpOrder := void;
5 G* f1 q3 |& [. d part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,+ @3 u! d. p: P" v1 S1 z1 l
@,root.eventcontroller.simTime);
7 R6 u6 y/ v, ^( c. c2 b @.HasOrder := false;
1 p$ E+ w+ Q3 g8 [; i @.DrivingHome := true;/ O$ P( \2 Q) g3 ^
rgManager.tryToStartTransOrder;
# q9 F/ B5 `& _' n# m* h# p9 D if @.Destination = void* S6 S. X* H1 P" F
then -- no transport order for vehicle @- j9 b o6 C2 m& [9 i% K3 X
@.Destination :=+ D" [; i/ v* {5 b9 s0 j" y* x
rgManager.nearestFreeStation(@,track.~);' \2 F3 U; l+ T/ p9 H# v+ u
newDirection(@);
1 g& K: d2 F7 S& a4 ]$ v) r: k2 m# B) A if @.Destination /= void then
8 ~9 g9 n" c# R: _, H- o$ f @.Destination.NumReservation :=
8 e1 Q- b0 L1 [4 B/ C @.Destination.NumReservation + 1;4 d8 b3 Y; f6 p- n
end;! v% p0 |3 g2 V2 g" ^4 ^4 S) ^
@.CurrIcon := "drivingHome";: P, i6 H0 n) z; I8 @+ u5 g7 w! p! P
@.DrivingHome := true;
7 P( @9 y/ V# Q, ?$ o, p, [ end;
% `% ~1 Y. d% j* x else -- the vehicle @ is empty, both vehicle and part are in the same dock station
$ y' A. U8 Q' ?. [7 z, y part := @.transpOrder;
3 F0 I- t E9 Y2 Z; i part.move(@);-- load part
) l8 t [7 H& w @.CurrIcon := "load";, _ f0 z/ i/ _6 U
GlobalDistObj := part.globDestination;
. H/ g8 g* O; e2 j- V: Z assignLObj := rgmanager.rgAssignL;
1 Y. O& x+ e C row := assignLObj.getRowNo(GlobalDistObj);
, H* ]6 s, _9 a if Row = -1 then -- since 709 }* u5 ?4 D" _0 _' C
if lan=1 then
1 N6 V4 Y- H8 ~/ Q: j! h/ |8 ?' ` promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),9 d8 C# r. C1 ~, R% Y$ U% ^' L
to_str("in der Andockstation: \"",?.~.name,"\""));
9 ?/ E. J. Y0 {1 m. Q( p0 [; z else- C( h" F' P* w6 r1 E
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),! I) g# r7 j; Y% t
to_str("in docking station: \"",?.~.name,"\""));
; l+ C- t4 d. x3 n end;
1 {$ K! b b$ C8 p; b% o else5 y4 t- z4 E& J$ ]$ }
@.Destination := assignLObj[1,row];
6 T" r( y8 c# G* G. z% B8 t end; ) A& Z' w. e9 ^9 H2 l
newDirection(@);, d) H! h* E$ G9 I& E
@.HasOrder := true;
" o9 w2 Y0 u+ ?. d: H end;# e% X! I A9 A# Q* M4 ?' @
end;! D. B f3 U. Q( k
end; -- of the method7 p! [/ |; V' G9 N0 U6 G) g) {
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
