/* called by: entrance ctrl of the object 'track'
- Y) b1 d) n9 I& J! A: q*/8 Z- T+ ?5 @& n: Q
is
* u+ t; }# F1 X. H part, GlobalDistObj, assignLObj:object;row,Lan:integer;0 `6 q5 t& y* T) c
do0 b/ Z1 l1 }7 Y+ R6 L- p
Lan := rootfolder.Internal.Tools.AOLlanguage;
1 D. ~; C1 M" Z x; W! z7 z if current = @.Destination -- else return
4 p6 }- a; R3 i) d then
4 A5 T* H. S, S- q$ H7 ]3 P @.Destination := void;
0 t6 V# V7 w8 o4 C if @.occupied then3 |3 h4 v. A* d' t# ^* g$ n
part := @.cont;
+ r; k }" ]9 j+ ~! Z @.transpOrder := void;9 Q+ S7 {5 H1 |8 g( J
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,; T* T$ j( h; q K
@,root.eventcontroller.simTime);2 H/ {6 A7 ^$ K; n
@.HasOrder := false;, E* k' a* L3 b" h3 u3 v
@.DrivingHome := true;7 J+ M' |* w8 U* ~7 d! b: g
rgManager.tryToStartTransOrder;
* D2 O6 z3 e: `, T if @.Destination = void+ e* g' a6 n, {3 U6 P
then -- no transport order for vehicle @
% L- a& c5 Y% f1 A9 K a @.Destination :=9 N9 O$ O) W8 h& l: X
rgManager.nearestFreeStation(@,track.~);
$ A) m: w& O. I9 Z2 }+ j newDirection(@);
) K$ c# c0 U0 u* v v3 G4 b if @.Destination /= void then9 Y/ A: k1 a9 c' L ^
@.Destination.NumReservation :=
! G( b, I1 @- H [; x: z/ M/ p @.Destination.NumReservation + 1;% o, k2 p. P2 Z8 w1 E- D3 x5 e
end;
3 ?1 L) b2 z/ N# Z+ \9 Z7 { @.CurrIcon := "drivingHome";, u1 A& Y! w0 ^- S' n- h/ v
@.DrivingHome := true;
: ~& |0 X; A0 ` G+ _ end;
( n0 Q6 F7 N* u4 O& p else -- the vehicle @ is empty, both vehicle and part are in the same dock station0 V6 a5 Z V9 h0 i7 @, Y5 u
part := @.transpOrder;" M) Q% j) q: s0 Y
part.move(@);-- load part; F# s0 g# H5 g: u7 Z
@.CurrIcon := "load";" |1 J5 U3 l9 O7 N9 b$ d! E
GlobalDistObj := part.globDestination;
( x( A9 B. X N- a, ^' s assignLObj := rgmanager.rgAssignL;4 I9 |7 y# K5 N- {8 @
row := assignLObj.getRowNo(GlobalDistObj);
: ]# N; @6 x% V3 Y7 z5 M1 [ if Row = -1 then -- since 70. `5 ]3 O2 N y) v' [
if lan=1 then: `& k! J& H Q. F
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),' K) r% @6 V: j
to_str("in der Andockstation: \"",?.~.name,"\""));
: ]% O& j9 b$ J else
% }" a2 x* \7 M; `; v$ o2 q promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),( T8 e) T) H4 {3 Y: q/ e/ T, I
to_str("in docking station: \"",?.~.name,"\""));
4 ]3 }: U* z# I( T end;5 }: X; [6 V, ~$ M) X3 M$ e
else- U" J& l, W$ f G
@.Destination := assignLObj[1,row];& V& G+ I" B- ~" ]
end; 5 ], K* a, ?) z/ }6 n$ w
newDirection(@);$ U+ w* M' N0 K. G$ S
@.HasOrder := true;
N* B; Z3 |- z end;( j: l9 f+ O: q! G9 u! P2 \' n4 X( q
end;
. g2 Z0 s- a i7 x: C# h# Send; -- of the method
- u1 t j& E' ^/ j# h |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
