/* called by: entrance ctrl of the object 'track'
& W: n" X+ j8 t*/
3 ^5 m8 q& \$ Q4 y nis
- }+ i- f# ?" p& L) T part, GlobalDistObj, assignLObj:object;row,Lan:integer;
5 m+ j6 k/ [% A/ }1 [do1 x f4 o( c9 R* s5 [9 {
Lan := rootfolder.Internal.Tools.AOLlanguage;
2 i; i- J# }0 X9 q+ N if current = @.Destination -- else return
4 b* q8 m. S3 u4 B+ @ then L1 I0 M; i7 A. p/ h1 U
@.Destination := void;
" v! s# k/ e- B( R if @.occupied then5 y+ d* y* Q% I
part := @.cont;* k8 I+ l5 k$ y* C6 n) R% P. I$ ^
@.transpOrder := void;
- R/ L: e- [8 {1 L) i part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,* t1 o# p; n; ]: a! f3 N* w
@,root.eventcontroller.simTime);
3 s4 c. \8 k1 w- E @.HasOrder := false;
$ a. ?( K' d" b& u& R" l @.DrivingHome := true;) A* @7 G% N. S+ K: D: I5 i
rgManager.tryToStartTransOrder;& R+ b, g+ G! @; n
if @.Destination = void
* F+ u% N- Z) o. I then -- no transport order for vehicle @
5 C7 N" p' z4 g! A4 e* k8 a @.Destination :=2 N. C c: W1 l/ K! P
rgManager.nearestFreeStation(@,track.~);
/ _/ P* o7 Y( u! I Q newDirection(@);
, m% ?! P( K. f9 q* ?* q if @.Destination /= void then7 A5 |& d9 r2 K: r4 a
@.Destination.NumReservation :=. e/ E) @% e8 ?
@.Destination.NumReservation + 1;& {$ T/ a" Z, c2 I1 ]- n9 O+ c4 w
end;
7 l/ w. w8 a: C9 |2 W @.CurrIcon := "drivingHome";
8 M1 }" _& S' b4 [6 n. K2 D @.DrivingHome := true;
8 t1 z% O1 q" I9 b( i5 ?% ` end;: C6 f0 y; _( O" v! W
else -- the vehicle @ is empty, both vehicle and part are in the same dock station# M V+ p, I7 @. t9 v# u
part := @.transpOrder;' E( ]7 C6 ]6 H! u+ V$ k
part.move(@);-- load part- Y$ t/ c; G( [
@.CurrIcon := "load";5 U. A% F# e$ W6 z" d' |
GlobalDistObj := part.globDestination;& {2 b' X! G' B! X! |7 S& b
assignLObj := rgmanager.rgAssignL;
/ w! T5 r6 D' u+ o0 ` row := assignLObj.getRowNo(GlobalDistObj);
- T2 r: K3 M; P/ {: m) ]- | if Row = -1 then -- since 70
$ B2 f8 _' o- I) p if lan=1 then
7 p! c0 Z+ [$ ^6 k Y promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
. |( F8 i$ D7 |/ K4 K- c2 K" v' h c to_str("in der Andockstation: \"",?.~.name,"\""));
* @; A0 r, {2 R% i/ _+ U, Z else( N3 x$ N3 v q: H/ J' E
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
, g% @' A- X8 q3 y: X( } to_str("in docking station: \"",?.~.name,"\""));
/ @+ [' [0 \& f" c, w# Q; j7 I end;
' W" Z1 }, r+ |' _8 l- R5 c else; {* T4 t1 N& ~5 T
@.Destination := assignLObj[1,row];) i; M7 l+ G5 M
end; $ A% u! V i! B, y% T
newDirection(@);" `9 E9 n' |! D' n% |' ]: j
@.HasOrder := true;/ C/ L# P9 A6 y/ |( ^& A
end;
* ~$ ]; S; Z1 j# h: I4 i/ S+ P" b end;5 |+ z4 Z3 W& P7 m5 ]
end; -- of the method
. }! b8 u, u J" U) b* R" i |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
