/* called by: entrance ctrl of the object 'track'( C, [( x) X9 V% @$ n
*/
, g3 V1 v) i1 ~0 b5 o% B( \is
9 `% ]/ u0 @7 a4 i* v$ j$ f part, GlobalDistObj, assignLObj:object;row,Lan:integer;
# A7 Z6 p; Q% i3 a$ L f' Qdo
# y& L/ \$ Q) [3 Z) E7 r Lan := rootfolder.Internal.Tools.AOLlanguage;
0 P5 `! U7 `% k, H- X if current = @.Destination -- else return/ e, y2 h$ @ p7 z( B- z2 I$ v
then! l; u, E; D6 w7 |, u0 D
@.Destination := void;. T- y# k+ b" I
if @.occupied then# {+ Z3 j; H" {" _2 f, q
part := @.cont;# T2 C8 k: P: f' ~! s
@.transpOrder := void;. n0 N- `7 A. g. S1 n0 h
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,7 y! m9 x0 \+ w c
@,root.eventcontroller.simTime);7 p1 a& W! A& ~! M6 H
@.HasOrder := false;7 E5 r& Z3 m& X& B
@.DrivingHome := true;
4 y/ ^/ n0 {$ S0 D h9 G; l. F rgManager.tryToStartTransOrder;
5 `* a: M @ _/ ^! m4 H4 D if @.Destination = void
2 h1 n+ A$ B% c( T then -- no transport order for vehicle @
# Z& v6 V5 `# d9 J @.Destination :=
4 |3 T& Q: Z$ j" a0 C4 S" k rgManager.nearestFreeStation(@,track.~);# d( z# @ w& l) _, K! o8 B
newDirection(@); % l8 a/ {( W) [5 m! n2 X* P) z, {
if @.Destination /= void then
% R# r& o/ \- P$ E# G: [& J @.Destination.NumReservation :=
* Z3 o( p) M( k$ F. k) S+ K @.Destination.NumReservation + 1;
+ K e* W3 S( a: \, j end;
( T& H( C( h/ R' l @.CurrIcon := "drivingHome";
; j/ A6 @6 i- q8 l5 D; q s) h @.DrivingHome := true;6 @. ?2 X2 \+ z9 N& C- ?6 Y2 O
end;# |+ n( v5 J7 g' m- [- J# b4 G
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
: s+ @/ z' c2 }; j; ~3 s) h& L% j7 U part := @.transpOrder;
! \- O/ V" Z+ Z0 n y/ t part.move(@);-- load part
k( c5 n) F* Y* A7 v @.CurrIcon := "load";6 k: q/ w% M* d' E
GlobalDistObj := part.globDestination;
+ u) M7 g$ b6 l: Y, i" K assignLObj := rgmanager.rgAssignL;
6 ~) S% ]0 X8 D: y9 [' |) P row := assignLObj.getRowNo(GlobalDistObj);
/ V% w3 A+ a- g if Row = -1 then -- since 70+ ^& B: W- m* s% j
if lan=1 then
2 O; {& N0 g A- K9 U8 Y8 p$ W promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
1 m; D( @/ P9 @; j; C$ u0 P" c to_str("in der Andockstation: \"",?.~.name,"\""));
! P4 Q+ R1 }5 @' r, K0 E7 X4 | else
+ M0 H% j3 s" R) D0 f) T, g promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),: O3 H% e" u) \$ _
to_str("in docking station: \"",?.~.name,"\""));
# m/ Y ?" O, p. X end;
X- N8 b& f# t6 b/ M9 d else* E" G$ G* Z: _
@.Destination := assignLObj[1,row];
, {* r, E8 N5 k+ Q( {3 X end;
. l: c4 @% S' g newDirection(@);
D+ c* [ ?" F0 p ?" ?: s9 g, q" G @.HasOrder := true;
y1 H9 a& D" l1 _! ^% e8 d end;$ w% b4 d$ w( z1 q L! `1 Z
end;* e, W z% ~3 t) H4 a( ]3 Y
end; -- of the method/ c# p q; ^. J5 D5 }
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
