/* called by: entrance ctrl of the object 'track'" h, S: O) x4 F( W
*/" j- F2 D7 i' R" g; L1 o, @8 ]
is7 L- V5 G% D, p1 N6 S) y% @
part, GlobalDistObj, assignLObj:object;row,Lan:integer;, \# _ u% e. Y8 x
do
1 ~" _% c3 N, y; Y4 v1 v2 k+ c( q Lan := rootfolder.Internal.Tools.AOLlanguage;
7 m: E; s2 D0 ^( ?9 E3 J6 h if current = @.Destination -- else return6 E& l% i1 Y: Y- u0 H9 ?9 v! _
then0 }+ x8 k& _; P
@.Destination := void;2 k, A3 u' D% X. Q. `
if @.occupied then! }; g4 z& Y$ Y- Z* V
part := @.cont;
% {: y# J( r. O% i @.transpOrder := void;
, q b1 y3 G5 g# i part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
" O1 u4 L6 ~7 o; L @,root.eventcontroller.simTime);/ @0 W# z, _1 y" }5 I: j. F v' w
@.HasOrder := false;
3 m- O0 `- r6 y/ L% I O @.DrivingHome := true;5 n; X, \' V: B/ I- d4 y
rgManager.tryToStartTransOrder;
4 y, @. t9 V# b, [ if @.Destination = void
" W! S [% o5 s4 _" k then -- no transport order for vehicle @% F- h- n: u) G+ }& D
@.Destination :=+ N( `: T( ?% w! W0 C7 H
rgManager.nearestFreeStation(@,track.~);
0 u) Y' a- E! |" z' L9 w newDirection(@);
4 f" T% z$ @. o9 N if @.Destination /= void then& O. c. N# K1 n( D! e3 n
@.Destination.NumReservation :=: X0 F5 Q. k/ W
@.Destination.NumReservation + 1;- u, `; |: m/ v9 v. _
end;
" G% `1 U( ?- M8 B7 M: n @.CurrIcon := "drivingHome";" r9 k9 h5 u- S+ I* m- X
@.DrivingHome := true;7 p) v$ h$ p7 E7 \/ u
end;$ x+ p, P/ E4 ]' v: W
else -- the vehicle @ is empty, both vehicle and part are in the same dock station, W) W, Q! k0 B0 o! O2 Q1 I) R
part := @.transpOrder;2 b" ]0 M2 N* C" S, i, [
part.move(@);-- load part
- F t' T. H3 v& _ @.CurrIcon := "load";* d S7 l' t2 Y. x/ @2 K, X
GlobalDistObj := part.globDestination;
* Z$ R0 u( ?. [, C assignLObj := rgmanager.rgAssignL;0 | m. q6 h `2 j6 O
row := assignLObj.getRowNo(GlobalDistObj);0 b" W4 _1 F( Y+ A {$ R, u: X' G
if Row = -1 then -- since 70
4 p5 k6 d/ U! }* B( G9 I if lan=1 then6 J+ T6 n r: K6 z1 e
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
0 ?, u+ @+ S% s" i r2 i# j3 y to_str("in der Andockstation: \"",?.~.name,"\""));
+ q- e" R5 @0 H# C- J @2 G else
: {7 e7 k7 E8 R- M promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
2 D0 Y. _8 [2 P to_str("in docking station: \"",?.~.name,"\"")); 9 ]$ Z: a* o0 p0 m; ^ Y
end;5 s: I; Q- ~4 P: E9 M1 l
else& T% h' R9 h# q' O* f/ v: a
@.Destination := assignLObj[1,row];' o6 y/ N* Q! l0 ]1 E1 |- E
end; 6 x7 J+ {1 I: ?8 M
newDirection(@); K% T# ?& l! Q" _* M
@.HasOrder := true;; q9 W3 n+ Y5 k/ Z2 H
end;
3 |$ N+ v8 f" y% i end;- z0 y7 X" {' e: {) d) n
end; -- of the method
1 L* [7 N) Y0 L |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
