/* called by: entrance ctrl of the object 'track'
7 T3 r. m7 a% K7 k0 u$ ?*/
, c" N3 l; O- N& E/ Mis
- @, e) ?# [$ B" V1 O part, GlobalDistObj, assignLObj:object;row,Lan:integer;
# A$ M6 P3 U% P; zdo3 Y8 }' _0 b p6 @" D7 s1 q
Lan := rootfolder.Internal.Tools.AOLlanguage;
" \5 j* Q0 V4 w% c. o if current = @.Destination -- else return
3 `4 B1 G6 V$ _, B6 o then
( J& p) z* S: s, L @.Destination := void;
/ l( z8 u1 }, t w$ X: W$ L; p if @.occupied then
9 M/ |5 B7 q# z d, l% D part := @.cont;# E3 C( T/ F' \" _( b" z! [, @
@.transpOrder := void;# z) Q$ Y& N1 {; `6 z$ V
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
9 ~( g- F5 N( ?+ a( C+ v @,root.eventcontroller.simTime);
$ N& A8 h. X2 [$ |4 u: Y @.HasOrder := false; f5 }8 k0 m3 w' k- c
@.DrivingHome := true;" t0 X: {! @ Z/ P7 ~
rgManager.tryToStartTransOrder;
, k% K6 n6 W0 N( c0 W6 i if @.Destination = void1 i+ Y8 R5 ^$ K/ U% d
then -- no transport order for vehicle @5 j1 C3 Z0 l& `7 @' T- [
@.Destination :=
8 O$ J0 |$ J5 \ rgManager.nearestFreeStation(@,track.~);
6 b! P9 S9 x B: C o newDirection(@);
) S0 _" c% Y" R+ S6 D; w if @.Destination /= void then. a; G4 z/ y* ~9 m
@.Destination.NumReservation :=
8 {" A% J2 @. [1 W1 L @.Destination.NumReservation + 1;9 N/ ~7 l) x, t" a) x- h
end;4 B( n p. w, I7 }8 J; Y7 x. q
@.CurrIcon := "drivingHome";4 Q/ H+ `" H* Z' v
@.DrivingHome := true;0 N4 }6 x/ n: @4 [
end;8 @7 L5 `8 a1 w& K
else -- the vehicle @ is empty, both vehicle and part are in the same dock station( s" P) c! y1 a0 s8 P7 v
part := @.transpOrder;6 d/ k" t# R1 J3 X1 |/ M J# r+ I
part.move(@);-- load part1 J3 P9 g$ V: @8 X1 }
@.CurrIcon := "load";
4 f6 c+ z7 T, f; E% \: l. \ GlobalDistObj := part.globDestination;
3 l7 X$ q+ V9 K2 | assignLObj := rgmanager.rgAssignL;
% ]2 S8 d r o+ y ~: d! f4 Z row := assignLObj.getRowNo(GlobalDistObj);
$ ?, E! X3 Z8 A7 a# v0 W- n" p! b if Row = -1 then -- since 70
& l; ^( a; ^1 q0 L+ p if lan=1 then* }: Y6 B, |- ]8 c- d5 T
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\"")," q6 ]7 j, j. V2 C8 j, L, u- M# ^
to_str("in der Andockstation: \"",?.~.name,"\""));- l P: P) a4 u4 {, r: x5 r
else/ k* g9 t3 M, @9 a6 w; ^: y
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),' w4 ]) b2 C. X1 b$ `
to_str("in docking station: \"",?.~.name,"\""));
8 }( K" H" k: D; T2 x* I2 O end;
; [) g- y2 Z: P& k. M' f else7 q, K3 W0 F% j+ C
@.Destination := assignLObj[1,row];
: L2 Y4 v/ v r5 C$ u | end;
; U5 H7 @: g% l9 S3 @6 w, Z7 a newDirection(@);4 H/ O: _9 V% C% P6 W. w; v
@.HasOrder := true;4 `2 W3 o, h9 U% o; ]
end;. O& ~3 O! Z- h1 b& E* \
end;# A! h5 x4 H# ^8 M
end; -- of the method
/ i' g; m' g) `( s |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
