/* called by: entrance ctrl of the object 'track'$ `# K2 _- m. b' r4 R' s4 c! j
*/& x- v. P- c9 m
is
7 L. x3 Q( E+ P7 i4 P part, GlobalDistObj, assignLObj:object;row,Lan:integer;& p4 ]1 _; x3 U3 f! d
do
. I9 b/ Y) J( D; b0 X Lan := rootfolder.Internal.Tools.AOLlanguage;
3 U" H- d! I) G' } S* g; U if current = @.Destination -- else return
+ Z3 ]' b5 R) x7 h# I3 J then# R2 j# L; s5 T
@.Destination := void;
: C' M6 {2 L/ y' u' Z6 f9 G if @.occupied then
. g8 J" s2 q) u1 }; a part := @.cont;4 e( J& K, M4 l/ t0 B
@.transpOrder := void;
0 ~2 _$ p' r& m/ E: |- v- v9 e part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
, f; h. b1 ^( N, y! W9 m @,root.eventcontroller.simTime);
1 C: G' V2 @4 E2 v# \( a @.HasOrder := false;. z8 H+ U& o* L- H9 W3 F
@.DrivingHome := true;* z2 q! K5 t0 m$ _4 F i
rgManager.tryToStartTransOrder;
" E" N! {8 f4 U. I. i3 f2 E if @.Destination = void+ i; n/ v# V1 J7 ~' w1 j) u7 z/ A
then -- no transport order for vehicle @
* \( U6 c; s# v0 R) W) w8 m @.Destination :=. d G, ]. g, J& [9 d
rgManager.nearestFreeStation(@,track.~);
% M/ W& ~" J# B newDirection(@); & k; m& l# q. C7 s* T4 \' u
if @.Destination /= void then0 j5 y- ^0 t4 A
@.Destination.NumReservation :=& w9 }, D' d2 b" w5 e
@.Destination.NumReservation + 1;
; t8 [9 Q& t( b( B end;1 @+ @9 N) E$ F
@.CurrIcon := "drivingHome";
0 [; e% F9 W0 z, \( e, u, B2 L, C @.DrivingHome := true;
: _: z- k; G( u end;& x# Y; \" _" j( p
else -- the vehicle @ is empty, both vehicle and part are in the same dock station B3 f0 }3 P' _* c# P& J
part := @.transpOrder;
3 y+ Y- e3 _3 u. H. M part.move(@);-- load part! ~1 \; z. c* U
@.CurrIcon := "load";9 F' f9 Q8 P- K5 x7 m! R
GlobalDistObj := part.globDestination;" l* I( a. |8 \$ a
assignLObj := rgmanager.rgAssignL;: W8 p: g8 o8 A0 @8 D9 _( ?3 F- f
row := assignLObj.getRowNo(GlobalDistObj);
9 W. }" l) q7 Y4 o if Row = -1 then -- since 70
5 G: C* \$ r% ~( N z0 t if lan=1 then0 B, t4 J" C2 W3 h+ ^0 Q- e
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
0 v4 L* v7 Y4 [+ c6 O8 W to_str("in der Andockstation: \"",?.~.name,"\""));
5 Q* o+ h1 _; L( w+ f( u0 T7 E0 C6 W else$ D) u+ z$ v" W- v9 p# }! u! U
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
4 c* r) E. n& z9 [) @# m9 a to_str("in docking station: \"",?.~.name,"\"")); ; t: ]& l; D) H! m* B3 a
end; x( U6 s& { p! Q0 ?: d
else* \, Z# Z1 R$ g, j
@.Destination := assignLObj[1,row];
. ^- ~2 x4 d8 Z- W) n4 ~6 d end; ' A7 t4 m0 c2 A0 m6 |
newDirection(@);
, s0 [7 P: e( M5 m- G @.HasOrder := true;
* |; M* d* Z" K$ h3 z) L end;- E9 P, _# M: j5 x* |0 v" K% _8 g
end;& N7 r9 z% E! o" n" d" `9 d1 C9 g
end; -- of the method* ~% W% I( E+ v6 b- f8 v
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
