/* called by: entrance ctrl of the object 'track'6 ]( ?9 m* q2 c9 z3 n" o8 K# Z2 j
*/4 c& W6 B, _% I, @
is
+ b" z0 v5 ]+ v! d7 ? part, GlobalDistObj, assignLObj:object;row,Lan:integer;
3 ]7 v" K( O @ y0 n. [% N! wdo
+ s5 Q" o9 ?, i0 B L Lan := rootfolder.Internal.Tools.AOLlanguage;; v' ~0 j* z$ ]& E( ~
if current = @.Destination -- else return0 ^! p0 ~! {$ s/ ?# K" H$ S% M
then7 r9 ~/ ]3 }8 k) I5 y
@.Destination := void;4 q+ ~, n+ m# B! v$ g
if @.occupied then
6 W4 S8 t4 s1 P" K% V/ B3 x8 z- h; g( O part := @.cont;
+ h! `4 c4 H+ m) e9 K) E, z: n" Q" ? @.transpOrder := void;
: S3 z# ?# u/ |1 c part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
. G, A- K& J$ e- p3 b3 u @,root.eventcontroller.simTime);
! u! `+ _8 _) W+ m5 E @.HasOrder := false;
9 j; T- r( M4 V0 n5 g @.DrivingHome := true;
3 C$ U- g! v+ \0 Y7 A/ i rgManager.tryToStartTransOrder;
( y' ~9 e: F6 }9 D$ j( a7 _ if @.Destination = void
! q+ e$ O- J/ x4 W, X then -- no transport order for vehicle @
4 r8 r7 g+ r5 W( M @.Destination :=$ I8 h$ p$ F: P- o, V2 a
rgManager.nearestFreeStation(@,track.~);; A2 R4 w6 X+ s% G1 ~
newDirection(@); a2 b( A8 ^* e5 _$ X
if @.Destination /= void then
0 U3 \& M' p- ]. | @.Destination.NumReservation :=" N( e$ {4 `4 k2 k0 t! o
@.Destination.NumReservation + 1;" e1 q( B5 ?; q/ R9 \
end;
5 e e8 A6 y* q( m" Z @.CurrIcon := "drivingHome";* D+ |, w* U, v l
@.DrivingHome := true;
- r0 U) k; v$ D6 c7 I5 ?; t end;
T4 \# I0 z4 ]- ^ else -- the vehicle @ is empty, both vehicle and part are in the same dock station$ t* K& G5 |5 K( Q5 |4 W
part := @.transpOrder;
7 g2 c) X* C3 A( P# d3 A c/ ^$ j part.move(@);-- load part
6 Q7 x) c5 u1 `" L @.CurrIcon := "load";
" H2 h+ k+ x1 P% Y+ U! n GlobalDistObj := part.globDestination;
# B5 D1 A; V: m6 H% u$ j, A assignLObj := rgmanager.rgAssignL;
, x2 Y% s0 G, s/ h0 G* n row := assignLObj.getRowNo(GlobalDistObj);/ V K" E5 _1 E; I5 |8 r9 x
if Row = -1 then -- since 70
9 B, o, y) d7 L& @" ]2 K7 B if lan=1 then) P" o3 m; i$ N8 G$ S. i
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),3 ~. \& J8 o: S1 @2 g! y
to_str("in der Andockstation: \"",?.~.name,"\""));$ G7 o( p! j+ v& O2 K# N1 w
else7 h/ w- ?# n+ h/ K9 S9 d
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
9 c( o% n. a* V to_str("in docking station: \"",?.~.name,"\"")); $ t+ _$ V5 M3 X! A+ @. [
end;
( H& q7 _7 k7 j else5 q. S) D3 q& S: Z
@.Destination := assignLObj[1,row];
5 Z" p2 Z8 j/ f9 |& f( n3 O end;
2 y: L+ _- ~1 U) g$ e4 C: x( o Q- u newDirection(@);7 B* F4 l1 X9 ?: _2 d
@.HasOrder := true;: u) A; ?, F3 r. q4 U1 C0 A
end;
+ {8 R7 _ Q5 x0 h& ~ end;, j( A9 f1 Y6 X5 w C# o
end; -- of the method" Y, W* J' J4 @8 U( K% F
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
