/* called by: entrance ctrl of the object 'track'& p1 t1 a% K' O% v' B0 e3 [
*/
. u. ]$ j7 T6 h: f. Dis7 K8 x6 s+ |: q. I$ K1 m
part, GlobalDistObj, assignLObj:object;row,Lan:integer;6 P6 W! y1 T7 A) k \
do" M+ G+ f7 N/ D, @) J+ `' d
Lan := rootfolder.Internal.Tools.AOLlanguage;& D2 {4 |9 H/ F+ P
if current = @.Destination -- else return
( w6 U# H2 w' Y+ _, o3 g then! k: G1 e7 W! c
@.Destination := void;
: e f$ P3 Y4 A# m2 [ if @.occupied then1 K* I% F( E z+ d) Q/ G
part := @.cont;
1 X% f$ N( p2 X. C$ f% L# _ | @.transpOrder := void;
# l2 l) @: ]0 f part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
. Q c4 T. R& q( r" {4 | @,root.eventcontroller.simTime);
' _! r/ @; ]/ B# v8 a @.HasOrder := false;
1 ~, u4 W( ]" R; U& A% Z" E @.DrivingHome := true;# o$ ]6 Y( I& K7 h2 E
rgManager.tryToStartTransOrder;
Y, a9 P2 T9 y if @.Destination = void
8 J2 @9 P- o% w7 ^9 _ then -- no transport order for vehicle @
; c1 v" E. A$ Z0 u+ p% F( B9 ` @.Destination :=
. p+ o) P' E( L7 c1 j rgManager.nearestFreeStation(@,track.~);' `* y5 A2 F/ G3 _6 E) A1 w9 U
newDirection(@);
~8 ]6 R' O5 u6 f2 [4 m if @.Destination /= void then
! e7 W9 a+ A: l2 v @.Destination.NumReservation :=
* e, P. a5 t# g" S* ` @.Destination.NumReservation + 1;
1 m9 }. [! {8 ? end;
# X2 a4 w" }. F6 O) p: _& B @.CurrIcon := "drivingHome";
. i7 T. l# e# m6 D @.DrivingHome := true;* F) [' m* e/ u2 P6 ?6 t3 i6 B
end;
7 }: A" g. E: @) P) w else -- the vehicle @ is empty, both vehicle and part are in the same dock station: m) i0 E. G. N3 W
part := @.transpOrder;/ I4 m0 n0 P" I
part.move(@);-- load part
! O6 p% J: ?+ y @.CurrIcon := "load";1 h" d. i2 k1 V
GlobalDistObj := part.globDestination;
+ j; ?# A9 N+ n' q ` assignLObj := rgmanager.rgAssignL;0 W" k5 P, V; o5 i8 C" v
row := assignLObj.getRowNo(GlobalDistObj);+ i- z7 G# H5 }+ I
if Row = -1 then -- since 703 D, r$ U5 q( U l4 i j
if lan=1 then; S" Y# |1 o4 L6 t; v! T4 F5 W
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),: T! `! A0 d* O) n
to_str("in der Andockstation: \"",?.~.name,"\""));, o+ A1 j* b; D0 n
else" B4 o3 g: k- D( y7 J
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
+ K% E* s6 g! t+ |' C8 M to_str("in docking station: \"",?.~.name,"\"")); " I' A- p+ m0 [
end; H: d: }: a! N% n" F+ L$ {
else
- i& F; E/ t8 w" {. h% c @.Destination := assignLObj[1,row];/ l+ L: ~' S& o4 z6 B
end;
/ v/ c/ q' J8 W5 S x. i/ R% A newDirection(@);( Y0 i% f% M. N' r" r
@.HasOrder := true;9 d" ^8 V7 ^+ J; T! E
end;- D( G1 p+ w* W7 z C9 s
end;) {( H- L% }0 R9 G) ?# K6 Z
end; -- of the method4 i8 Z: Y6 B& W+ [* Q2 f( ^
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
