/* called by: entrance ctrl of the object 'track'
6 }- Y" I6 `0 n( v/ G4 l*/
8 q' z1 D: x9 Eis6 h% ]% R& t3 O" w+ ^
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
9 [: h J- O4 P/ k- Ddo
* q6 U8 b! e7 P" k8 f! h/ X3 n/ T Lan := rootfolder.Internal.Tools.AOLlanguage;
( b$ R* v2 G. A' _* X# G/ z/ r if current = @.Destination -- else return1 `9 G& Z0 Y2 L4 @
then
0 Z0 S: v3 i9 Y2 g' u( L @.Destination := void;
: h5 L( c4 B) j+ L/ q, W0 |" @ if @.occupied then
* n" D0 j2 c2 H- f part := @.cont;
* k2 z; q l! e2 i0 j' y @.transpOrder := void;
0 s5 U X: |9 l" d) O( ~ part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,- T! C, Z5 O5 e% Z- A+ G$ d) c; Q
@,root.eventcontroller.simTime);
& ]! C; `: |, U @.HasOrder := false;5 v- m+ e% Q+ {
@.DrivingHome := true;
! E% T" v7 J" O4 _ rgManager.tryToStartTransOrder;
: \+ H" f9 \$ m0 r. [ b8 |6 s if @.Destination = void
5 k1 o1 s9 ~6 f& B1 ^3 k then -- no transport order for vehicle @
7 ?# ]7 v1 @) ~1 i, g# V2 n @.Destination :=3 a; L' n, x4 u( S
rgManager.nearestFreeStation(@,track.~);4 T/ `1 q) q6 H* U
newDirection(@); $ M9 m% p9 U0 y9 I u, g6 Y
if @.Destination /= void then& {& V9 @6 m* }7 n( A+ B: R4 c
@.Destination.NumReservation :=
0 ?. X+ _% k& d) i- N4 U @.Destination.NumReservation + 1;" m- l- D, f: x/ ?9 R6 U" z
end;3 `9 R3 G6 z: t
@.CurrIcon := "drivingHome";
& C6 b" A G. g5 v) |. P, ^ @.DrivingHome := true;7 i* w6 K. |: N/ E( k8 j' R
end;
! n: x7 x# N/ ~& [: q) L! O else -- the vehicle @ is empty, both vehicle and part are in the same dock station
, D* F- G3 Y, g# O c part := @.transpOrder;
7 ^. G ?3 N; X, L# X. z part.move(@);-- load part0 C* Q3 \% U1 g. G' W5 u
@.CurrIcon := "load";% T' d2 `- [+ f' g
GlobalDistObj := part.globDestination;
$ n; B, B: K, x& d$ K# g1 R6 F5 T assignLObj := rgmanager.rgAssignL;
: @0 O; c. E, E8 D$ o2 {$ g5 b0 M0 U row := assignLObj.getRowNo(GlobalDistObj);
- C( i1 c# ^' G" l if Row = -1 then -- since 70
/ p ^5 e9 J; V0 _! O* o if lan=1 then
. J) d" R1 Q; e5 h6 I/ ]- V promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),8 k1 @) v9 |8 S+ x. q" }" a
to_str("in der Andockstation: \"",?.~.name,"\""));
' \6 A. R& [" S) i& r else
/ C% {+ g/ \) ? c8 s promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
' p. n* F6 E5 d/ ?) x to_str("in docking station: \"",?.~.name,"\""));
& L1 z6 x$ `6 H" Y# v end;9 }1 |5 C( z4 j* R8 w" n7 [
else; r& h4 H2 u; m, q) }' P5 k
@.Destination := assignLObj[1,row];) x' ~& _7 S: x' a4 A
end;
o) S6 f: u5 O# m3 @7 \* ^ newDirection(@);
" C5 d4 B5 d; g5 _7 [% u @.HasOrder := true;" g/ i% y0 g# k6 g( F; K$ N0 I
end;
) ` |, e+ K6 A end;
: N' N# C7 w0 P* Q0 c1 K9 J# Bend; -- of the method
- }% @' j3 @. b) m |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
