/* called by: entrance ctrl of the object 'track'
( M# P7 r1 ^7 q6 Z*/$ l' I$ n+ M$ A. _1 }* J$ E. L
is
$ I6 U) A$ i% W0 o part, GlobalDistObj, assignLObj:object;row,Lan:integer;
1 _% ]# f4 j' m' {6 d/ }' Ydo
' u6 ?6 r& }; { T9 K Lan := rootfolder.Internal.Tools.AOLlanguage;
* S6 B! |4 g T3 ?" l if current = @.Destination -- else return8 ]9 n7 ?$ B7 F Z
then
5 }' L7 T( p$ W$ p6 j" \ @.Destination := void;
: I+ ]8 e& _* M7 d) s, W if @.occupied then
7 r9 }- W9 i7 m* W part := @.cont;
* @$ C/ ~8 w6 K1 A# d- ~. d @.transpOrder := void;' z0 b3 V$ s* W
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,. e1 x) L1 p$ o9 o+ n0 m
@,root.eventcontroller.simTime);
* n" d0 V% F' I; z% {6 w @.HasOrder := false;
5 E* x. ^- F: s @.DrivingHome := true;
9 A! t' M1 p, E+ o$ \2 u- a" x rgManager.tryToStartTransOrder;6 A+ b! u2 V6 K' v, {
if @.Destination = void9 F6 f4 w/ Z+ i! V
then -- no transport order for vehicle @/ q" n2 k, L. D4 c3 W
@.Destination :=/ |: b( u# M% z- P5 @+ ]
rgManager.nearestFreeStation(@,track.~);
* w1 C6 i# @/ Q8 G. J newDirection(@);
: Y+ j! I. R, q1 u: L ^( n- A if @.Destination /= void then. ?+ {' z" ?1 M7 _. V2 V
@.Destination.NumReservation :=
% H2 h7 I2 E$ w" S v @.Destination.NumReservation + 1;8 e1 p0 b- D# a. F) q! w7 o
end;
+ s0 |0 @# Q" B: i+ \$ T" m! | @.CurrIcon := "drivingHome";
2 H+ e, t: _9 _: X7 O @.DrivingHome := true;
: N; V; L, \ V9 w1 H end;) x+ L4 L, c6 W$ G; E
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
) {8 I! G8 O7 ~$ J8 r9 B; k6 _* W part := @.transpOrder;9 \+ [8 w0 h% z9 p
part.move(@);-- load part
* |) u8 o$ M/ ]! W/ b @.CurrIcon := "load";1 o& R c; o5 E2 t/ X# A0 n
GlobalDistObj := part.globDestination;2 P4 ]& s& T2 ~! O
assignLObj := rgmanager.rgAssignL;
. J w* \+ O2 H/ J- H$ j row := assignLObj.getRowNo(GlobalDistObj);
* m% V/ T S3 J' i" I4 x4 g if Row = -1 then -- since 70
2 Y1 Y; M) r3 j! n/ u2 J J# }' u if lan=1 then
9 ^# {% N( j7 a& \8 @ promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),& C6 M3 l( J. Q
to_str("in der Andockstation: \"",?.~.name,"\""));& a) A+ t! C: c( X/ l
else' }8 C) k4 b" Y' U0 q
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
$ r' m: U; ]* b7 F! ~/ x* i to_str("in docking station: \"",?.~.name,"\""));
1 X8 n" g0 m" o" D J, C end;
X5 ^7 O: v! j8 V E8 I8 U; k else
6 S; g' G" C; O* P9 ^2 p8 K& p* X @.Destination := assignLObj[1,row];- ^1 ~1 j' V( h& {( n0 ]8 |: t
end;
7 k. a, x$ E: x4 t& h newDirection(@);' C0 u' F2 g% O
@.HasOrder := true;
; P+ {& V/ F: k. u end;/ a# [ O9 u5 k; R" l+ C- F
end;" x+ H% D2 m0 X2 ?
end; -- of the method
% m" A% B0 q/ Q/ D( ?7 f! {! N+ q |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
