/* called by: entrance ctrl of the object 'track'4 g3 L, |& r v o2 \
*/
: h7 s- k) m% m% Z8 Bis
3 c$ o" `' G9 h: m part, GlobalDistObj, assignLObj:object;row,Lan:integer;3 X2 j6 J. H6 }
do; m4 F4 M3 ^- N. V( k
Lan := rootfolder.Internal.Tools.AOLlanguage;
% M ?- m# v8 i; v7 Y if current = @.Destination -- else return
! }1 A o8 V4 G3 `0 B6 y then( w* |4 ?* q# n
@.Destination := void;
j9 T( \. f3 ]7 y4 g3 f# { if @.occupied then5 ^3 I" F- p; `: h0 I1 a
part := @.cont;! w8 P5 m+ d4 J8 t
@.transpOrder := void;5 w: x( d) l* q S# t
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,3 q* j6 f7 J. t* d7 y L' {
@,root.eventcontroller.simTime);
/ l! p3 o1 X9 A6 o9 ] @.HasOrder := false;7 O1 g+ Z! u& E" C* `% `
@.DrivingHome := true;
3 O/ F6 ^" t& U1 J rgManager.tryToStartTransOrder;- M* x/ X( t9 T, _
if @.Destination = void
6 M. \: n6 P0 A: b+ v8 j# f/ U then -- no transport order for vehicle @! R+ m# e( j3 \& C! b
@.Destination :=
9 f8 B; P; Y2 `0 o2 P5 C rgManager.nearestFreeStation(@,track.~);/ q, q1 V0 t9 D
newDirection(@); " I3 s7 q, g! j0 e" R% {9 G
if @.Destination /= void then9 A! y A, Q* o
@.Destination.NumReservation :=
( o5 H* u/ O1 V+ ` @.Destination.NumReservation + 1;
1 W3 f7 `0 k: w end;0 N5 O \0 X8 `% m# B# U5 }
@.CurrIcon := "drivingHome";
$ h2 c& u/ K' b @.DrivingHome := true;+ a5 P1 \) E8 |( x$ ?& C
end;, }% k0 o8 [& L7 I* s* f
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
% m7 W: o m0 N$ s part := @.transpOrder;5 x. a: B l+ i
part.move(@);-- load part
1 Z$ n6 K5 t I l @.CurrIcon := "load";8 A T, ]3 g# s5 j( `
GlobalDistObj := part.globDestination;
/ C' h! I, J# ^) X1 x; T assignLObj := rgmanager.rgAssignL;, ^0 h! C3 x& r0 Q$ @
row := assignLObj.getRowNo(GlobalDistObj);5 _& }% }) r# X% @
if Row = -1 then -- since 70
! k3 W! u0 u+ g$ |9 T( C if lan=1 then
: i" X2 k4 C! D# U promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),8 P: |) {! ~# J$ F. }1 X! o k
to_str("in der Andockstation: \"",?.~.name,"\""));. X/ [* w1 t5 L; S+ O
else J9 ^- Q- n- k+ [
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),8 g1 |2 E0 d6 |& l# N( Y e
to_str("in docking station: \"",?.~.name,"\"")); + P' r7 R* i n. q
end;
. M& g$ E. F( f/ O: h else
# p) `4 t u2 E6 E( a2 P9 [% Z @.Destination := assignLObj[1,row];
' N, J9 x/ k0 B2 ?- p end;
: K3 Q# Q V2 }& o; A3 c newDirection(@);
$ U! }8 w% B F* q! t7 m @.HasOrder := true;6 D; j/ B$ F. G @0 N5 l/ A
end;, _" E a' q, D% F
end;
* L$ O9 S, s/ r D: Iend; -- of the method) z& _% `& x9 z# v0 d
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
