/* called by: entrance ctrl of the object 'track', V: `! y! d( V2 W4 |2 B. [
*/
; S$ [6 w# o' u! L) d% Qis
8 B5 r z m5 j( x/ n9 J/ {( M' G part, GlobalDistObj, assignLObj:object;row,Lan:integer;
) O0 r% A2 I$ o! B# |+ p1 x# zdo$ b3 i# D6 `# E {5 L+ x
Lan := rootfolder.Internal.Tools.AOLlanguage;
: g$ b5 r6 [( z: d; } if current = @.Destination -- else return' h# r& A4 u5 z4 q
then4 Q1 }- ^/ x4 `% a8 }
@.Destination := void;/ r2 g" u0 ~( S: h7 h- D8 b. i
if @.occupied then) }6 K: x. e; j4 ?- I6 H
part := @.cont;, t" P6 |: ]* \" b1 \
@.transpOrder := void;, `% a, @# o" N: I4 G% C) F! f" D
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
1 n- ^# Y: D6 z" M6 z @,root.eventcontroller.simTime);+ H; U6 t0 C' p3 A! b
@.HasOrder := false;, z' H' [2 t7 ]( S0 P) f4 Y
@.DrivingHome := true;; y9 j) f% u' }$ g2 ^; u
rgManager.tryToStartTransOrder;
# s0 g" e; r# F/ y7 q$ ^3 ^% l: F if @.Destination = void
( a- I% x8 B) k1 O5 D then -- no transport order for vehicle @
. z- p( b$ N% c6 p, ?" ?2 z+ C+ B3 j( Q @.Destination :=0 n$ J0 S! C. j
rgManager.nearestFreeStation(@,track.~);' D# }# O( A, Q
newDirection(@);
8 L3 y& ?0 Q- N3 F4 q! R if @.Destination /= void then2 W% d) C- v+ k- |8 R+ A: r: x
@.Destination.NumReservation :=
3 O' o" {. j( w( v# Z @.Destination.NumReservation + 1;
* U/ f" o8 ^% r* p# W/ a' @) g end;
& R5 ]" s M8 B2 S' g @.CurrIcon := "drivingHome";) E! c) v% H% w: ?' |% u3 J& o2 S' {
@.DrivingHome := true;
) n% V9 i; s2 n end;
1 _$ r4 i; I' Y2 d L else -- the vehicle @ is empty, both vehicle and part are in the same dock station
! m" p' Y5 K) X; r1 z* P1 y part := @.transpOrder;$ G) t" z. J* \
part.move(@);-- load part' s$ @* E2 c& u) U
@.CurrIcon := "load";' Q6 w7 z* u' N) T
GlobalDistObj := part.globDestination;6 h% j7 ?# B2 R4 Y
assignLObj := rgmanager.rgAssignL;0 b! b u6 ?0 l. y. _4 \; c
row := assignLObj.getRowNo(GlobalDistObj);* Z( G5 r8 k& ?6 a
if Row = -1 then -- since 70
/ n- Z7 J% `7 ]0 x9 h7 z if lan=1 then
- L" E3 W3 M; ? promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
$ K! y2 K5 a! a1 E$ d to_str("in der Andockstation: \"",?.~.name,"\""));
* c8 ^* p* u- y9 ^* f9 e else, a% }& O: |! v3 u9 R- _
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),2 D3 o4 X" z: B: j! }
to_str("in docking station: \"",?.~.name,"\"")); 7 b' R, k5 e' @( p- m8 S/ P
end;
' e( ~" \ W3 i( M2 n else% T8 V9 i! G; T9 t* Z
@.Destination := assignLObj[1,row];
$ a/ S5 ^, x8 f+ O5 j' \- q end; 2 p8 i- E# t2 m
newDirection(@);
- |$ j2 P) L+ K* ]0 D @.HasOrder := true;) ~! o! {( E B+ w
end;
+ I g4 W: d5 `: W5 v6 o end;" i7 P8 }4 ?1 Q5 H M* g# z* ~
end; -- of the method3 w1 R5 h3 }4 b0 H- `* M
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
