/* called by: entrance ctrl of the object 'track'
. U6 q+ h" a' \$ Q+ C6 [*/# o+ X" z" |/ k0 a# E" y& F" p9 N% X
is
2 S5 O. q: o% A) i) h. w part, GlobalDistObj, assignLObj:object;row,Lan:integer;
9 w# W3 Z# f* M+ z, _7 Bdo* K2 K5 t3 j' E+ U
Lan := rootfolder.Internal.Tools.AOLlanguage;
- Z$ Y% N& O6 e: |/ {* `. S" j( N if current = @.Destination -- else return
5 F* _. G* d% H( y then
3 W; _5 e8 f6 K0 e _ @.Destination := void;. _! u. `7 W8 ?* E5 E! E6 G6 s
if @.occupied then
- b$ n7 b. I$ Y part := @.cont;, {# p9 [' Z/ |2 y; \
@.transpOrder := void;" o) e# T% C1 N0 V7 E X
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
+ h2 S7 Y* e$ A2 D6 k: Z @,root.eventcontroller.simTime);+ H% L9 D$ F+ @
@.HasOrder := false;
. J! ]( L( O" g* Z: Z# ?1 p @.DrivingHome := true;( d) M. \0 X( J. n' g. @' d3 j
rgManager.tryToStartTransOrder; |6 F$ [" x T9 \
if @.Destination = void
3 l8 c6 ~% K; Q1 C8 e+ c! p3 R then -- no transport order for vehicle @
) L: Q B( Z: q% D: V' j( j @.Destination :=' c2 J5 h/ R" y, V
rgManager.nearestFreeStation(@,track.~);8 ~) z6 ~. k7 C( c
newDirection(@);
& T. @) b; P$ f! Z2 | if @.Destination /= void then; _: O; ^% C3 b9 T* {9 n
@.Destination.NumReservation :=
$ L9 w" B; V E% @) z- o @.Destination.NumReservation + 1;- \/ o* b! u! R9 ?
end;
0 A% d1 g! _$ G4 M. Q& ]% _ @.CurrIcon := "drivingHome";( l L, v5 k3 b# b4 |: f
@.DrivingHome := true;
$ u* |) `- t4 L2 c& { end;& F% w# T6 e/ g! x, {
else -- the vehicle @ is empty, both vehicle and part are in the same dock station* u3 ^! N6 [0 @; z+ A8 N
part := @.transpOrder;. \" s6 X9 Z- D8 Z8 t0 v3 u
part.move(@);-- load part
X! p1 f6 d8 I5 b8 L0 P @.CurrIcon := "load";
2 P2 R* D4 W7 i. Y, d GlobalDistObj := part.globDestination;
i' C& o3 X8 l, P5 l assignLObj := rgmanager.rgAssignL;5 C. \( K. _) o \. N
row := assignLObj.getRowNo(GlobalDistObj);
5 B, D+ z3 `, P1 s if Row = -1 then -- since 70
0 ]- }+ q0 ~( |7 d+ V if lan=1 then! w( v) n: r! a3 i
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),: V. J2 ^3 z& g
to_str("in der Andockstation: \"",?.~.name,"\""));/ U5 y' p, L* w; W
else
9 N9 X# Z" ~ p- O promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
9 ]2 k# c& i, o/ f5 j3 j9 v$ U to_str("in docking station: \"",?.~.name,"\""));
0 b* o' c4 _! |: g+ e. L end;, Z# g7 P) D" U9 V
else4 i: v( L* h6 {4 o5 m- N y
@.Destination := assignLObj[1,row];/ |7 d6 M) ]5 s1 v& p
end; % I6 Y- @% z% X
newDirection(@);) E3 W( Z' s/ X
@.HasOrder := true;
- n/ b9 W& R. r2 ]( I2 { end;7 [0 N' Z# ~' V- c p+ k5 [
end;
! {: i. p- @- w5 s" c; gend; -- of the method
9 A' w0 d8 K1 m" \5 B( `% g |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
