/* called by: entrance ctrl of the object 'track'
9 E, q+ H. N; D& D2 F: u*/
4 C: ? Z8 E: C" j* ^: M8 c) mis
' i; w) a/ i- D$ O' [ part, GlobalDistObj, assignLObj:object;row,Lan:integer;1 q. A% v8 v8 u1 ~7 d
do+ Q1 ], W( D4 j1 w. \' J* G
Lan := rootfolder.Internal.Tools.AOLlanguage;
$ {2 L* o1 l; |* B if current = @.Destination -- else return
. _0 z- i! r3 X7 |6 U" }" E; X then
$ `" o7 X% d) l9 {- c, N7 x( V* {6 q @.Destination := void;+ G7 z2 Q. R+ v5 j7 {' A
if @.occupied then+ F/ C! a0 l3 S2 o2 F
part := @.cont;
X3 S; \4 Q1 q& C) S g! L: I& r @.transpOrder := void;1 j& ^2 W3 F7 B1 f. E* x
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
) y- @: i; m+ k; V: b4 F8 f @,root.eventcontroller.simTime);
) l7 }+ M. I1 i @.HasOrder := false;% Q1 k1 |) E" P8 i: k- L
@.DrivingHome := true;
, a7 ~1 Q: L$ O! S rgManager.tryToStartTransOrder;* m* a8 m& D$ C2 M& x/ t
if @.Destination = void
& f; I3 R* `9 L, I then -- no transport order for vehicle @" { L8 y+ |% S
@.Destination :=. o7 T7 o0 D2 Q' \- B1 \
rgManager.nearestFreeStation(@,track.~);
/ F3 f" \8 n( h' [ newDirection(@);
: w8 I6 O5 Z! I: G( [9 X3 C if @.Destination /= void then
- ?$ P0 J. j5 B7 K2 z* `. k @.Destination.NumReservation :=% }2 F0 R0 ]; m
@.Destination.NumReservation + 1;2 B2 ^+ D- c* C: d" ]' B
end;$ Q2 P) W A6 s m
@.CurrIcon := "drivingHome";
: J @5 N+ Y0 |, ~+ @& I! C5 F @.DrivingHome := true;0 c0 W& t/ f0 x; t; A
end;
9 l4 D8 h* V$ D6 t3 }9 ?$ }+ m9 ? else -- the vehicle @ is empty, both vehicle and part are in the same dock station
. u9 d0 k8 r/ L/ D! q4 R part := @.transpOrder;
D, [+ N" i5 e8 P% O part.move(@);-- load part4 F4 ]! f; m8 m
@.CurrIcon := "load";
! V$ u2 c7 {3 z3 r' ^9 O GlobalDistObj := part.globDestination;6 e0 Z- v' T; g
assignLObj := rgmanager.rgAssignL;
* P3 m$ @. n7 w! I, F row := assignLObj.getRowNo(GlobalDistObj);( A1 G8 ^8 K0 B7 _
if Row = -1 then -- since 70
2 `0 r% f, K+ I# @, v if lan=1 then" U- ~6 h6 u' h& u+ J
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),. m5 |1 [' m" M7 _4 b
to_str("in der Andockstation: \"",?.~.name,"\""));
, q+ l- R* W) p; R9 F* q" k else( \% y% B% h0 q9 Z. ^4 H
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),3 |6 M! y+ ~+ y8 z3 [
to_str("in docking station: \"",?.~.name,"\"")); ) d- @ U" |1 N
end;
4 S2 p! O: u$ W( g5 R$ h, L else
, t. s, W8 Z0 Z* ], [& N' [$ m @.Destination := assignLObj[1,row];- ~2 p; ~; B: n( I ?
end; ; ?' Y* B1 s- H. a* a
newDirection(@);& Z4 Y3 t3 Q3 M0 v7 A3 k
@.HasOrder := true;
3 }/ c, Q! S" O5 y& j/ r4 X9 F: F end;$ o& V1 l! P! ^7 @" B
end;
- A' p' r& S, j: t8 x) J& tend; -- of the method: B- D* d V4 A0 o
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
