/* called by: entrance ctrl of the object 'track'
+ g2 t6 T& q; D4 \/ ~! y2 ^/ w*/3 x( m0 @. f+ R( a
is
5 E/ P$ s& e+ s; J3 }$ h& ?/ P2 B2 _ part, GlobalDistObj, assignLObj:object;row,Lan:integer;
+ _# ~6 Y& p+ ]8 G1 P/ \do
) h5 p% k& Z) O8 ?* q6 | Lan := rootfolder.Internal.Tools.AOLlanguage;
" C) o {/ Q5 e5 Y/ g4 L if current = @.Destination -- else return
1 A( y# ?5 p2 ~ then
$ K7 S2 J5 p6 t0 Y: D3 ? @.Destination := void;
. o2 d' g6 ^1 G G& b. t if @.occupied then
5 s$ d0 C4 v8 {8 p0 o3 w. K+ M part := @.cont;
) ^/ f7 x; I( `6 W' K5 X* x @.transpOrder := void;
* O9 d% f, |9 P: }3 ? K part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
8 }3 S! Z3 l5 k Z; H( n, L @,root.eventcontroller.simTime);
' |4 z1 m2 a5 s' S" a; T @.HasOrder := false;
0 }1 p; p+ Y: b# ~( f. j$ l" p. t @.DrivingHome := true;
2 Z5 J7 B# z! R8 a+ M: {' b rgManager.tryToStartTransOrder;& g8 ^: e' |! |- z& w
if @.Destination = void" L Q/ L* d# F/ {* q: u* @8 p. |
then -- no transport order for vehicle @9 B! [! V3 A3 E/ `
@.Destination :=1 ? Q* A+ ~1 z" W
rgManager.nearestFreeStation(@,track.~);3 [4 u3 j; B% X7 T; k, {2 K) `
newDirection(@);
$ w, o3 N& S7 E. W( z7 C if @.Destination /= void then# ^5 {* P: W+ e, C
@.Destination.NumReservation :=& V$ p' C: ~" `* Z* Z
@.Destination.NumReservation + 1;
6 c' g# U) Q; N. X+ W7 S& \" ^, c end;
- o: t- T' c6 t/ K @.CurrIcon := "drivingHome";
1 c* j* H' r) U9 k4 [8 N @.DrivingHome := true;# C4 a$ M- k' @& u o( l; T
end;: q4 x8 ~5 @" w
else -- the vehicle @ is empty, both vehicle and part are in the same dock station2 D2 b2 U" c+ K( n& i& `
part := @.transpOrder;
4 Y- I. r! e! n* i9 k- ] part.move(@);-- load part$ E" ?8 W* f! R* p' L. k' G
@.CurrIcon := "load";
" c$ p) j8 ~2 F0 _ GlobalDistObj := part.globDestination;- n/ H1 t4 X( }; e5 t* I
assignLObj := rgmanager.rgAssignL;0 n! l: f4 W7 c; H' r# F4 b
row := assignLObj.getRowNo(GlobalDistObj);; f- `" r- c: c; o
if Row = -1 then -- since 70
+ E1 z H8 W$ [ if lan=1 then/ o5 W1 |) m2 u9 |. j0 C8 l Z
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),) |' [1 Z6 [* X* j+ P* Y: ^: t# |
to_str("in der Andockstation: \"",?.~.name,"\""));
" V0 F8 }" x" O4 H else* c6 j! b% i" Y4 z0 g
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
2 d ~8 a4 k2 M to_str("in docking station: \"",?.~.name,"\""));
9 T5 @) v$ K( o) I( y end;- q) n% w2 |1 [8 e0 f7 f6 E
else
: T$ V a. n0 P, [ @.Destination := assignLObj[1,row];9 c( q; Q- O2 d+ ~2 M
end; / M- u' p- e' ]4 j" x$ d) L% w
newDirection(@);; M8 ^% S/ s: X# \- ?6 a
@.HasOrder := true;
/ {! ^) R! O0 q: ~4 h k9 _ end;
0 F9 t" \% P z2 l; ]$ A9 _ end;* D4 `0 |, [* T8 M1 E- `$ m
end; -- of the method# d% ~! v7 Y8 a
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
