/* called by: entrance ctrl of the object 'track'
: F1 \9 b& ^( V* V*/6 z9 X" ^ W2 A
is
- N X+ b" B, w2 K part, GlobalDistObj, assignLObj:object;row,Lan:integer;
, }- T' x+ O7 [6 Z$ f6 H( [. ?, Gdo
: ?! [- K- W6 Q9 \ Lan := rootfolder.Internal.Tools.AOLlanguage;
6 Y; i# b4 k$ i) K( } if current = @.Destination -- else return
+ `9 e, _4 z% R5 A2 J then4 o; l7 b) B" Z
@.Destination := void;+ B X) l3 J! t! N$ w2 F
if @.occupied then* T( `# U. U Q
part := @.cont;
, E5 h% K }4 R. `' q1 A, Q! p$ Z @.transpOrder := void;
/ x5 H8 B( E. x' f; { part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,3 V" V- ^( b9 h
@,root.eventcontroller.simTime);' I! I: T# e: d s3 e% o
@.HasOrder := false; v! M, G7 F4 X7 P1 |/ J
@.DrivingHome := true;
7 v, `/ |* B2 V; P9 c9 c5 H rgManager.tryToStartTransOrder;
( a8 S# a" N% S, x if @.Destination = void
7 R! F4 ]2 x' |: i" K- X! i then -- no transport order for vehicle @, r' p& i, d/ V# w, N; V- Q; H4 E' G$ T
@.Destination :=. Q0 m) |" A1 [: i0 j
rgManager.nearestFreeStation(@,track.~);
8 Q3 @) A) F* W$ k; d; l4 \4 g) | newDirection(@);
8 E) A! L# }( \) ~1 P; J' E( J( v if @.Destination /= void then6 R( e$ Z) u3 y
@.Destination.NumReservation :=
* n$ f1 H/ w$ W& k @.Destination.NumReservation + 1;! {6 @: t8 j e: z& F
end; @7 {* a$ t; C9 D* o& o
@.CurrIcon := "drivingHome";. t1 R( F1 U5 j" `& n! k0 q
@.DrivingHome := true;
4 e$ \ V: V) B7 p end;
* {$ [; r: x) ^: s8 w3 s. ?; T* X else -- the vehicle @ is empty, both vehicle and part are in the same dock station
" J6 C5 w3 D! g& x part := @.transpOrder;
7 b+ [( z, h% T. W+ U' d# _- @ part.move(@);-- load part" {) A8 C/ G* k p# m
@.CurrIcon := "load";
! H: K+ F0 c" z4 t [ y' K- { GlobalDistObj := part.globDestination;
- L! {; Y6 U/ V' Z( h( D3 y assignLObj := rgmanager.rgAssignL;
y- x. L0 b& J% q# y+ t row := assignLObj.getRowNo(GlobalDistObj);
3 P9 }/ E2 A. O3 R' m1 O if Row = -1 then -- since 70+ K' X) g) w2 D& i* M$ J
if lan=1 then" q0 E. O' M# E
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
+ D2 c* h4 d& y/ B to_str("in der Andockstation: \"",?.~.name,"\""));8 U& q- W& _2 Q I! p
else
3 x" a* M+ ]" Y+ q promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),/ o. K M; h/ ^# _0 S9 A
to_str("in docking station: \"",?.~.name,"\"")); 3 [* S2 F9 ?' ]: n4 X' _2 n; A7 f
end;
2 x4 ]4 W3 q: X5 A) g; \5 x else: J1 A5 i7 K4 I
@.Destination := assignLObj[1,row];
3 v8 M |4 P% Z& K% ?8 ?9 G end; 3 j/ W* o$ s0 b v/ n
newDirection(@);! T+ e+ A7 J) F0 C' y; E; n6 E
@.HasOrder := true;6 M. b/ [3 u. o; r
end;7 N! P5 H6 @5 e1 n- m. A
end;* T9 D$ E# b$ C! X
end; -- of the method
: Z4 k+ ]/ O8 V3 H7 w( b( e |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
