/* called by: entrance ctrl of the object 'track'4 ^, i a( x% U
*/1 ?- ?; l0 {. C$ x5 a4 `2 X
is# L) G4 j- X1 h5 U' z$ z
part, GlobalDistObj, assignLObj:object;row,Lan:integer;/ {, P+ u' T, W
do# z, F" k2 o# j: ` E
Lan := rootfolder.Internal.Tools.AOLlanguage;
- G `' F* N4 W/ m5 P if current = @.Destination -- else return
& P0 b$ w$ c8 V0 ?4 n& D then
. f/ ]8 p; h+ D @.Destination := void;
* Y4 i5 l' _+ \) u/ K if @.occupied then
, w( T4 l7 x& `& Q! O' k. k- i part := @.cont;
. R# p% s6 D4 o/ d @.transpOrder := void;
0 J/ n$ J" Z& |* Z part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,( i6 i! H' x# b
@,root.eventcontroller.simTime);
, m- v; W1 P' h( y4 ? @.HasOrder := false;
: }7 h% T* u$ ?7 P8 L2 o) ]7 Z @.DrivingHome := true;
1 J, C7 a& |$ X rgManager.tryToStartTransOrder;& }7 j" K0 \1 M. {
if @.Destination = void# N6 k9 h. h# [4 c% b
then -- no transport order for vehicle @
7 P$ d- ~2 `1 q @.Destination :=5 n; H1 C" l% r4 K
rgManager.nearestFreeStation(@,track.~);
* Q9 d) { c; h7 S newDirection(@);
( a+ X! q! W9 [8 n if @.Destination /= void then
' G9 f' ^7 z% x8 f3 S# l @.Destination.NumReservation :=/ J' ]2 W0 C$ @5 ~
@.Destination.NumReservation + 1;' O! A: h, I; E/ y q
end;
, G1 G/ s0 E5 l% @ _. d7 c @.CurrIcon := "drivingHome";
# h$ d! |$ d$ f: w7 y3 m @.DrivingHome := true;
8 f& _5 k ^3 N0 A3 {, H end;
2 p- m: d5 ?7 K5 z" Z else -- the vehicle @ is empty, both vehicle and part are in the same dock station
! T6 A6 B& j! e ]; O+ z; } part := @.transpOrder;
, w" H4 P: ?% E part.move(@);-- load part* p0 B* a" I D: t
@.CurrIcon := "load";+ S8 Y& Z6 L+ A* g
GlobalDistObj := part.globDestination;" P2 t7 |6 l: f" P
assignLObj := rgmanager.rgAssignL;, g% q" z% T) C# z+ Q1 {4 v
row := assignLObj.getRowNo(GlobalDistObj);
p4 x/ Q$ k! a" F J& W if Row = -1 then -- since 70
5 K% i w- g, X L# i( m5 L, Y if lan=1 then
9 x3 J: D" V# {$ ^) a" @) J promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
; |( t' w/ J; D$ e; R# c to_str("in der Andockstation: \"",?.~.name,"\""));( J* c! S3 h4 R6 c c8 [& x
else
7 H4 Z0 N8 N8 h' `6 X, U6 Z' @ promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\"")," |" N4 M' b( J4 v1 V
to_str("in docking station: \"",?.~.name,"\"")); 7 T9 q6 {/ s" r; |; g5 j
end;
! x# c% w" X2 D: g6 T _' z& a8 H else
$ }* `, c3 {2 i) r8 }( z @.Destination := assignLObj[1,row];5 j) @* T% D# @1 M, f. t/ c9 n; K
end;
c5 j: \+ Y9 T6 R: I; { newDirection(@);
# ~" F% g( f: A! j9 q5 N9 d @.HasOrder := true;1 c+ i" e" q$ \1 c0 M
end;
3 R f9 f4 ^5 E# `1 a' e end;3 \( Q5 k7 V x" z: h4 V
end; -- of the method
+ K& M7 R, V- [7 ?5 G8 f |