/* called by: entrance ctrl of the object 'track'0 r8 a, b) o7 X. ?) y4 l) |2 v' Q) Z& C
*/* I+ N. f3 T6 o' z( g# B
is
t) B# x: S5 x. ~! W0 n part, GlobalDistObj, assignLObj:object;row,Lan:integer;, }9 ]2 I' J" _- L) g1 i
do
4 T9 ^# [9 I O3 @ Lan := rootfolder.Internal.Tools.AOLlanguage;
# S" X2 X% K- u6 F' p if current = @.Destination -- else return
$ S& U! B! i; @ then" b. T# \7 v" `3 m' s
@.Destination := void;
" v: G% M& ?/ Q1 e if @.occupied then
7 G' `* U8 ]/ j- e2 ]4 ?2 i part := @.cont;! }% m2 d6 [/ e, h/ G% j
@.transpOrder := void;, ^+ O( F+ [9 O% M- a5 J/ L
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,, k) i7 x2 t& ?- ?1 |8 ?3 e
@,root.eventcontroller.simTime);$ [+ O; W* f7 g/ u
@.HasOrder := false;
* I2 J% e8 A# [+ q; E% {) i/ d @.DrivingHome := true;
4 p$ Z% f$ s z. x/ E rgManager.tryToStartTransOrder;
8 L/ ^0 s8 t8 W9 ]5 ] if @.Destination = void
3 l% E& b% e+ Q$ p/ U3 K then -- no transport order for vehicle @* [& ^9 r1 V( f9 N
@.Destination :=7 L& h' K! [0 Z T6 H
rgManager.nearestFreeStation(@,track.~);6 x4 U* B3 H, ~- y: \2 v
newDirection(@); 5 j4 S3 D6 @* b* P$ d4 c
if @.Destination /= void then1 O% [0 M! C- {. T N- B% K X
@.Destination.NumReservation :=
: f5 {5 K' u5 o/ w5 ] @.Destination.NumReservation + 1;
% X* b4 y: J2 Z+ W' O end;
4 B. c) D9 M; G! x0 W# f @.CurrIcon := "drivingHome";
7 s& c' v6 |7 M' }$ L @.DrivingHome := true;* K' H, p3 j3 a7 c8 }/ a
end;
# Q9 [( _! X% M6 ?; u2 U3 Z else -- the vehicle @ is empty, both vehicle and part are in the same dock station
1 L% k! u' ?; S5 e0 u part := @.transpOrder;
- M: M( @9 g! ^0 b part.move(@);-- load part( @1 d1 p$ N$ n- d, \, l5 V/ g
@.CurrIcon := "load";5 d# L6 l$ j1 K u6 e% p* Q, N
GlobalDistObj := part.globDestination;8 R& Z2 M2 D! H P. T
assignLObj := rgmanager.rgAssignL;
* V+ r- ]" u; ~0 M/ r x5 C! K row := assignLObj.getRowNo(GlobalDistObj);$ a% r5 m& K1 T1 ~; a$ B
if Row = -1 then -- since 705 @* V1 ]+ J5 b D; ^9 v
if lan=1 then1 G0 O' K$ G$ C4 n _' r
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),2 P& s9 U! ]- o6 w
to_str("in der Andockstation: \"",?.~.name,"\""));6 i3 L' _9 x$ s4 c; U( z- M
else" T% e' z: V$ ~9 g$ r8 s
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),+ @ A4 d# f/ T7 q1 [8 M% Q" F
to_str("in docking station: \"",?.~.name,"\""));
! ~' g+ L2 z5 q3 b; J; x end;
7 R5 V5 @* A% K! y else6 A; V" [1 ^6 f7 u2 V9 a, \. f
@.Destination := assignLObj[1,row];- m, z, @# Q3 [# _: J; m" r$ z
end; ( r D4 o0 H( F# v, m
newDirection(@);$ ?: [. q5 r. O9 q8 ?) l/ k$ C
@.HasOrder := true;
6 s3 E! h& q i4 a3 j end;
' |6 L# M# V0 |- y ] end;8 q& [7 K, R8 m$ n2 ?0 p7 |
end; -- of the method
6 M. J: \5 y M/ g7 d* k; j; u4 b |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
