/* called by: entrance ctrl of the object 'track'6 |' J) v1 f ]2 ]7 r7 q
*/! O% n: H/ g' K; V/ |
is
+ T# B1 U% i, m part, GlobalDistObj, assignLObj:object;row,Lan:integer;
; |! q' P6 Y% \* i' b, c! Gdo
; I8 {6 \3 I* M5 X Lan := rootfolder.Internal.Tools.AOLlanguage;
4 R) \/ l' O7 x/ E: R, ^) H7 Y; q0 O if current = @.Destination -- else return' ?6 {" Z v% T" |' Q3 o6 k& y
then( ^% G+ l- g. n0 U" V3 ?
@.Destination := void;' d. k$ L% ~( f+ W1 w2 u/ @7 r
if @.occupied then! B. C8 u( X7 U
part := @.cont;9 q1 l7 g( @. z/ l* X1 o
@.transpOrder := void;
5 ?- H' U+ J4 L9 l' z part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,0 M7 R) p; R( A; S6 ?
@,root.eventcontroller.simTime);
, P! }* n9 Q6 t' s& J6 y. s5 T2 Z/ B @.HasOrder := false;1 T% \% {2 O( ]. `& @0 H$ n
@.DrivingHome := true;' Z, [- p e" r5 U+ o6 F# V
rgManager.tryToStartTransOrder;: `5 C# r' T r `/ }
if @.Destination = void
! x' |, F- q: |* Q then -- no transport order for vehicle @' Z P1 V' |+ s, z" P
@.Destination :=
9 |" y0 n3 F- B rgManager.nearestFreeStation(@,track.~);3 f3 E! U6 g. k6 `- p1 q; Z# J. \
newDirection(@);
4 f$ p$ `$ i( ?# y if @.Destination /= void then+ {& O' l' b, c! F; t% ~8 K- Q& S
@.Destination.NumReservation := v( E7 y8 o+ I; c" I/ q7 Z# [
@.Destination.NumReservation + 1; c" C, g, c2 }8 m# t. N# r
end;+ q- V0 H1 [; X* G" k) x
@.CurrIcon := "drivingHome";) S3 h6 A, N1 h
@.DrivingHome := true;
; W2 v7 ]3 x; f7 `# G; Z' ]" ~ end;, A. s9 h" c* Q; G
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
9 e, r: ~! ~" ]% C7 W part := @.transpOrder;
9 c0 V9 B p& r part.move(@);-- load part
; S! f% W6 n6 l& v @.CurrIcon := "load";6 u; q. f ^. j
GlobalDistObj := part.globDestination;$ {& i8 A' V1 ]7 ` K& R5 T) y4 L
assignLObj := rgmanager.rgAssignL;; y! l1 D+ d& F5 ]: F1 n* y
row := assignLObj.getRowNo(GlobalDistObj);
8 {; X! c7 R! s if Row = -1 then -- since 70
* ]1 x# q+ k! Z8 \$ O7 w if lan=1 then# I6 S5 T1 g' p; p
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),! a( O P% p5 b8 n) T9 Z: }
to_str("in der Andockstation: \"",?.~.name,"\""));
% s2 ^0 V$ I* t$ H0 d8 q+ q else7 f9 u6 H6 t3 Q% N! e. ^
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""), {3 ], ], u, s% m3 y
to_str("in docking station: \"",?.~.name,"\""));
1 B5 |: e4 a* c9 s9 A! ` end;$ x$ e, K3 i7 c& O! s; s$ v& C
else
& e4 w1 i9 p P- ]0 \, ^ @.Destination := assignLObj[1,row];" A- _1 b2 H5 u* Q( c
end; % k# t% y C( X& @6 G
newDirection(@); w+ @, Z; e" i
@.HasOrder := true;
3 P) o* B" }, h8 o end;
, i2 v2 y1 d/ n/ D end;% o |+ @9 T; u
end; -- of the method
9 T2 t6 H! S) v' \ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
