/* called by: entrance ctrl of the object 'track'
6 W% j9 B+ W% a*/1 ?+ B& G5 @9 f+ s
is
2 b. j Q* N# _: f- `; t part, GlobalDistObj, assignLObj:object;row,Lan:integer;
: h5 E+ A! N0 ]do
! \8 _; C1 o" F3 E: m Lan := rootfolder.Internal.Tools.AOLlanguage;) I+ }* w5 q! K9 Z; l
if current = @.Destination -- else return0 y8 a2 U; P# l+ d
then4 l' h7 u/ z3 k) m
@.Destination := void;7 Z' j! |1 j2 u/ ~2 g
if @.occupied then
* N. l* m/ s7 E0 j! C- z8 P; I& | part := @.cont;/ x: y9 N* X% `; {4 l
@.transpOrder := void;
: c1 {7 y6 \2 J) K+ c/ [ part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,6 Q) s. ~" c8 L9 @6 p
@,root.eventcontroller.simTime);
. L- X; ^8 e, Q: \" i- v% U) z @.HasOrder := false;6 U7 S7 X- n' s$ Z1 T% V
@.DrivingHome := true;
& _2 Z& @ e: u5 R* W9 E P. c U rgManager.tryToStartTransOrder;
. _ Y1 j) ?; P B3 @; U* j9 d if @.Destination = void
$ `! p. I5 H& Z3 H: @ then -- no transport order for vehicle @
" j7 N/ _8 Z- Y$ ] @.Destination :=
3 d/ S2 e8 E L rgManager.nearestFreeStation(@,track.~);
A; L9 d7 W- L) U0 B- ? newDirection(@);
/ ?4 o7 B) u; _) S8 S4 X if @.Destination /= void then
, \6 N# F; h, M2 l7 J @.Destination.NumReservation :=" g! ]+ k5 ?& a& x! h) W; A
@.Destination.NumReservation + 1;/ {) U3 _( C4 E- m
end;
: c% n; n4 R; h/ D7 Z5 ~ @.CurrIcon := "drivingHome";+ g ?3 b5 `7 h6 `- B
@.DrivingHome := true;# {, H3 L2 }. u% r$ r
end;
& N( d% x7 W/ m3 [ else -- the vehicle @ is empty, both vehicle and part are in the same dock station8 J/ v& \, |2 ~# U: X
part := @.transpOrder;
9 l4 D# X$ z) O* P" F. Q3 _# A part.move(@);-- load part
* V" F% W" L% z @.CurrIcon := "load";$ }/ `" g8 r: S1 d% R2 E g
GlobalDistObj := part.globDestination;
. s% i" P. V1 g$ s: |% m assignLObj := rgmanager.rgAssignL;
# j! |+ E- l5 a- v row := assignLObj.getRowNo(GlobalDistObj);& a- i' O+ w' o x* u
if Row = -1 then -- since 70
0 |; I( w1 @! Z" y6 v2 k if lan=1 then
+ S7 R5 {4 \& E2 U% \ promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
' a O y! k. u to_str("in der Andockstation: \"",?.~.name,"\""));
" h4 m3 V- x7 B else
0 w$ z! w0 U3 n9 j- T6 I! w! ^ promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),! L" I6 o. g& Q8 K; C
to_str("in docking station: \"",?.~.name,"\""));
; l5 A# D/ {2 D l end;
: Z9 h x9 u; `3 r& |8 V1 b' [& H+ O else+ K' e! k) b6 ^( q3 B5 |2 `
@.Destination := assignLObj[1,row];
4 a$ F% q4 K6 h" T) M) E end;
' j2 R1 `0 i$ O: p) f& k' L9 ?" x4 m newDirection(@);/ X! K: h1 {% Z) Y4 n( K
@.HasOrder := true;' ~& T# p1 Z T
end;+ I2 I+ L5 s( D' Y
end;
% `' m1 ~3 }) q7 Q! H. _end; -- of the method
* Q [0 i9 Z) f9 q, I$ t: I# } |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
