/* called by: entrance ctrl of the object 'track'
+ s9 H& e* y6 ]& s*/
8 v0 _/ X4 J* U. t9 W( iis q( v) [: \( \$ ~/ ]* s
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
- e0 w0 q- @/ [8 V: \, Rdo7 e+ M2 F% E4 ?3 _3 n
Lan := rootfolder.Internal.Tools.AOLlanguage;. e2 G B! O& Y: u
if current = @.Destination -- else return
6 W ~- f% ~5 V; S# d" _ then
& h" e$ v- H2 ` @.Destination := void;2 W# a0 W8 }0 B7 _5 ~1 K
if @.occupied then
' z4 s$ W, i7 {2 Y1 U$ s, j part := @.cont;0 R8 C) Z1 E; n1 \; d; {- {5 y
@.transpOrder := void;
0 H9 v) _- f* L4 g9 q$ j part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
$ \ L0 L. ?7 {" y4 G @,root.eventcontroller.simTime);
- C" q; k# Z. N0 Q4 r" c$ e, I; P @.HasOrder := false;( j W7 T" ^% B6 x+ G" n
@.DrivingHome := true;0 M, e# V# D0 p& t( {0 E
rgManager.tryToStartTransOrder;$ d6 f* x8 V5 ]' w
if @.Destination = void! Y7 f* V2 U1 N
then -- no transport order for vehicle @' y4 y0 z% b( \7 h: v" W
@.Destination :=
y1 B" ^# c2 t D+ } rgManager.nearestFreeStation(@,track.~);3 p5 e7 ?- c, f7 o9 t H( G, E
newDirection(@);
$ [" V1 F7 Z* W& o& Z# \ if @.Destination /= void then
; C7 z) S1 ~' M3 s$ S6 K @.Destination.NumReservation :=
/ _( @" O. T) t: [% L( W @.Destination.NumReservation + 1;4 D6 H# o! t0 i3 p, h# [
end;. O- b% |3 ?6 `0 t# C' e# y0 g
@.CurrIcon := "drivingHome";; M/ ]: ^2 A1 Y. M
@.DrivingHome := true;
* G) u7 f9 C/ {& K end;! b' P1 n% D' n% `5 L1 _
else -- the vehicle @ is empty, both vehicle and part are in the same dock station9 ]6 B5 @0 x7 g3 ~5 l; X1 R( t
part := @.transpOrder;6 K" l& j$ i: Q
part.move(@);-- load part
r( S3 q1 }# I$ W e* ^' b% b9 x4 B; ~ @.CurrIcon := "load";% |' ?5 b) s" @) F) E( m* D
GlobalDistObj := part.globDestination; i' k/ d i/ y6 C
assignLObj := rgmanager.rgAssignL;
+ L; e1 {/ U4 n* I: P( u" @+ v+ f row := assignLObj.getRowNo(GlobalDistObj);2 y! n, V, M+ j+ n' Y% |+ V% D& Z
if Row = -1 then -- since 703 B3 r( j Z. p$ r* l8 x4 Q
if lan=1 then
9 I, `! Z$ O3 I. _' b promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
@7 \) A n/ B to_str("in der Andockstation: \"",?.~.name,"\""));
; P5 z. Q( M' p7 t+ h o else2 f, e. [6 Q! u# t
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
7 ?+ d, B& I+ F) u7 B G6 Q to_str("in docking station: \"",?.~.name,"\""));
. r4 u- b# o7 T9 n) j1 S end;
0 \$ |' o) T! ?" u9 v# o$ S. g else
: ^. Q+ S$ r) {6 s @.Destination := assignLObj[1,row];! W2 B+ O9 Z* Q' P5 [
end;
8 _' C+ z, T9 o" |* L newDirection(@);& X' ^9 o1 l4 g& t$ o: e" Q
@.HasOrder := true;
* ^) I4 D8 ]/ J8 |2 v end;2 }* N/ a Q9 o+ m! X$ r
end;4 @& Z# s2 H- E! h3 G/ b
end; -- of the method
8 U! Y/ T& ^1 w3 |) b0 Q: U: r |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
