/* called by: entrance ctrl of the object 'track'- b6 i' F2 k9 e }
*/' q1 v9 G$ {& R5 x# d
is
$ F1 ^ l1 P& t' [: x! r" }" U part, GlobalDistObj, assignLObj:object;row,Lan:integer;! _- G4 Z/ y( o9 B, |/ Z) Q
do0 X: e; D; U$ i2 ]3 v8 {' d& ]
Lan := rootfolder.Internal.Tools.AOLlanguage;
7 u! K. L0 Y" a7 v/ t! H2 \ if current = @.Destination -- else return: k. s, X2 Z9 y( ]% D* M1 w5 K# a5 p
then% f0 E! @! G: b' Q) t# K! p
@.Destination := void;( v! r4 y" K a7 _$ a
if @.occupied then
8 t5 _+ I: }9 i/ d part := @.cont;( T, l1 S0 A, P% _9 F9 ^
@.transpOrder := void;
* C# F2 t" x( d# n5 v4 E0 P part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,' y: G0 b3 ~) X, v' E7 r
@,root.eventcontroller.simTime);- J3 Z! j& |& v. e2 ^
@.HasOrder := false;
: V \6 Q! Y, O D: s @.DrivingHome := true;3 ]9 j+ `+ L5 `" `
rgManager.tryToStartTransOrder;
# u- H; ?0 t- p/ \/ } if @.Destination = void
7 Z4 n; r( P* x- `6 R then -- no transport order for vehicle @+ J, Y3 p# `( g
@.Destination :=
) n+ H0 N5 a; e5 p) ~2 `" P/ ~ rgManager.nearestFreeStation(@,track.~);) v: {' ^9 A0 I4 r; K4 I& n
newDirection(@);
* f" T2 w' y9 h6 [, H h+ E if @.Destination /= void then
: A" ~3 @" ^% c) J @.Destination.NumReservation :=
6 G" R" q- p* I7 J: d @.Destination.NumReservation + 1;7 _( B$ {+ v# \ J8 V0 c+ @
end;6 G/ c4 r( s h6 _
@.CurrIcon := "drivingHome";2 T5 |" p& x; o- _$ f) u
@.DrivingHome := true;
% N& u: i& X+ T9 w$ h6 P( v8 d end;
" K& _& J# A8 |/ o) _ else -- the vehicle @ is empty, both vehicle and part are in the same dock station
5 j9 {* |+ X0 S1 e part := @.transpOrder;
/ f) T( @6 \: w) a part.move(@);-- load part4 o8 t$ ?6 @! {& w6 m/ [# t
@.CurrIcon := "load"; H& j9 l9 e* G
GlobalDistObj := part.globDestination;. W3 x8 o7 @0 F% T1 Y
assignLObj := rgmanager.rgAssignL;' e2 \* Q& u5 W: C) F+ y
row := assignLObj.getRowNo(GlobalDistObj);* D/ _$ B& N7 T3 F4 T. f
if Row = -1 then -- since 704 y9 F2 T r/ v
if lan=1 then3 E- ?6 a: `6 `( i" \4 W
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),7 ]! f1 a3 I" a/ ~7 G
to_str("in der Andockstation: \"",?.~.name,"\""));) C+ {; X/ r7 g) S: S! K
else' G3 U4 {+ r' Z
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
/ h% n8 U/ [' U2 `6 l* f- N to_str("in docking station: \"",?.~.name,"\"")); ; f" P$ K; z( |) p2 Q9 ^9 p1 X
end;) c `" k. Q2 K \/ u' f* n% S
else
) W( z* v4 X9 O% B ~ @.Destination := assignLObj[1,row];
$ Z( a( P# n: c. M end; 1 Q1 V4 b1 t; q4 y2 Y- z
newDirection(@);
- q: t/ U) _4 W, B, Y @.HasOrder := true;
9 P3 {! t/ j9 J8 V* T4 ~: n end;4 K2 k! Z) k' f5 o5 C+ R* d
end;
1 v8 k. I2 q [& Wend; -- of the method
( o7 N) l2 v! ~& d" C" s/ v- Y |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
