/* called by: entrance ctrl of the object 'track'
8 ~+ b$ r' E9 s4 q/ N0 V*/
- ]; h7 ~0 s) eis
5 k4 M; G7 b8 z part, GlobalDistObj, assignLObj:object;row,Lan:integer;
6 n: A. h0 d% {6 Edo2 o) I6 ^7 S# w Y! B
Lan := rootfolder.Internal.Tools.AOLlanguage;
\" n( o6 O- x+ _+ Y: x" Y7 K l if current = @.Destination -- else return5 [( p- D: X. K+ |
then9 C% g0 O; D) M" y3 m
@.Destination := void;
n8 _$ Q8 R% K3 c& S* S6 z if @.occupied then
1 b- M7 R5 _3 a' h part := @.cont;8 ]2 y3 D' A% H
@.transpOrder := void;* P8 ?5 D, E0 o/ e2 U
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,2 v$ ?% T5 ]; g |
@,root.eventcontroller.simTime);
6 L" p! D1 u+ K+ Q1 @& T @.HasOrder := false;
4 O- b6 Y! z( J* `+ [ @.DrivingHome := true;/ ~" ?8 l# M5 h
rgManager.tryToStartTransOrder;
% _5 G9 q2 M, t* X1 j if @.Destination = void9 B( I& M5 U7 [
then -- no transport order for vehicle @
4 L7 G- B b; j5 \5 P9 O( i: R @.Destination :=
* C$ E, \- p( W& a0 d rgManager.nearestFreeStation(@,track.~);
8 y% }; v6 E" Z5 Y; q$ V1 o7 s newDirection(@); 3 g# @% ?* K2 R2 F3 K
if @.Destination /= void then
: ]. }5 `2 [ {; g4 M @.Destination.NumReservation :=. _% n6 R) D: U. R
@.Destination.NumReservation + 1;
* ^' z$ ]5 `" b: A end;/ J$ L1 W4 o; l8 f9 e
@.CurrIcon := "drivingHome";
$ A) Y, B9 f7 u4 r, q) z) g, \ @.DrivingHome := true;% B& I) b: B4 B( f$ `! m
end;5 C2 Z Z7 T4 Q, u
else -- the vehicle @ is empty, both vehicle and part are in the same dock station$ n/ |; d5 P. |- n' g
part := @.transpOrder;) ~$ [% Z$ m i. z4 ~( J
part.move(@);-- load part" h9 r- {5 P D& K* r
@.CurrIcon := "load";8 a+ ]- D) ^5 ?! I
GlobalDistObj := part.globDestination;
( w1 e1 x- }4 V assignLObj := rgmanager.rgAssignL;
/ n3 f% b1 {7 N) F3 F row := assignLObj.getRowNo(GlobalDistObj);
1 u! ~; Q9 j! }, } if Row = -1 then -- since 703 J5 f+ i u7 ?; K2 Q
if lan=1 then
! P( H! ]8 W1 i0 T- p+ o promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
. k. t8 @1 o9 B to_str("in der Andockstation: \"",?.~.name,"\""));
- C& b3 O* l/ ?# T' Z$ t2 r else p8 M- E( s6 A, c
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),# \. p$ X" b2 p: {3 d+ ]" R
to_str("in docking station: \"",?.~.name,"\"")); 7 U' j2 w' Q' c
end;) F# x" g6 t" T; Q0 N6 H! _: b: b
else9 s- B( L: E0 ? D5 t
@.Destination := assignLObj[1,row];
5 ?2 _# U" }6 {+ N. y end;
$ R. Y9 `& z4 l- i6 n# I newDirection(@);( V. E0 _( F( a" ~! N1 k9 t: P
@.HasOrder := true;6 s" g$ g: }1 C, ~* N( [+ j- }
end;. a7 i: ~* P: y1 k) S! o
end;' {" k4 Z9 o' z) ~, T
end; -- of the method
8 G9 J, z( b2 n* q" t |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
