/* called by: entrance ctrl of the object 'track'
! c7 u4 ~% I9 @7 b*/: b G1 n( s2 g6 b% t) o
is
B( r- f/ L; L8 ~) Y' d0 C part, GlobalDistObj, assignLObj:object;row,Lan:integer;
- `7 ~, r9 M3 u' ~do) c; }. A! E! M; M
Lan := rootfolder.Internal.Tools.AOLlanguage;6 }, ]. Z) G1 I7 U( v2 r% v
if current = @.Destination -- else return
( |- B" v6 D; V then3 i r" ?: |+ p1 Y
@.Destination := void;
9 [! S, | m- t8 u- T8 F if @.occupied then/ g- n) f3 |' f& @8 |$ d6 s
part := @.cont;" {. }( G& {4 q) @7 a5 y% M- d
@.transpOrder := void;4 i9 F0 ^/ _0 i+ i+ k3 f% t, g
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
7 r: t3 k* Z* q. y x3 | @,root.eventcontroller.simTime); Y7 m8 n) ~! n$ Z" @. [1 F
@.HasOrder := false;* b3 z: e5 w9 `/ G
@.DrivingHome := true;+ k: j& `9 N, a1 G) b
rgManager.tryToStartTransOrder;
- s' h" ]" J( S/ t if @.Destination = void# a! \. c8 p$ J$ w/ D( r
then -- no transport order for vehicle @( Y) U9 {$ n% `% ~6 N4 o+ ^. _- G
@.Destination :=
9 J8 I4 L" J, y rgManager.nearestFreeStation(@,track.~);
1 @. X7 m; K: k! z2 A- r newDirection(@);
1 `& c C- [* l7 n+ R if @.Destination /= void then
! |5 j% I) `! n9 a5 E& J8 a) P @.Destination.NumReservation :=
' J! i+ S9 r5 U2 j @.Destination.NumReservation + 1;% Y+ v ^* |) G) t
end;
2 M. B: R! i/ I. L% |5 n6 t @.CurrIcon := "drivingHome";) a' z; s- E' a! o6 q
@.DrivingHome := true;
3 Z8 J: j8 h+ K0 C9 G- x( r; B6 a end;
9 R: o H" H' ?& M' b" I6 E! ? else -- the vehicle @ is empty, both vehicle and part are in the same dock station) S9 I" L( J5 d0 n) F1 h# R" `
part := @.transpOrder;
7 E( n2 z% n, C) d, [7 C1 z& o part.move(@);-- load part
5 Z) h0 O( z* [ @.CurrIcon := "load";! f- q: ^7 f1 @, ~
GlobalDistObj := part.globDestination;9 P- N- o1 {) j" K* ?7 ~
assignLObj := rgmanager.rgAssignL;8 {- a2 C8 B6 ?
row := assignLObj.getRowNo(GlobalDistObj);
+ \7 u# Y6 H+ h0 Y; m2 X& S# G if Row = -1 then -- since 70
; w9 v2 {* \" r5 O8 g if lan=1 then8 {" l( Q# h( [' f( {, B
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
( i) Q% S" V3 Y to_str("in der Andockstation: \"",?.~.name,"\""));
2 | Z2 Q8 ?( y" q else) y' j0 K: e- T$ f5 Z
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
4 n; y: j0 t/ x' M2 d4 u, t T to_str("in docking station: \"",?.~.name,"\""));
. L3 |& v& S, | end;
9 |, U) ]6 q5 r: e7 b2 L3 c5 d" F$ D else( O, m7 ^' }6 I7 C
@.Destination := assignLObj[1,row];1 B8 C8 @ F/ \5 X/ l$ B2 Q
end;
0 m: \/ G, r& t newDirection(@);
+ x' w( ]' Z; a! D$ j; v' Z& z @.HasOrder := true;
/ Q0 x' k Y: J2 ^ end;( F$ @+ g/ I9 {6 v
end; \% J" q I& n( p# j
end; -- of the method) J3 A: V% |1 z. N' g/ a/ O
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
