/* called by: entrance ctrl of the object 'track'
: `* s6 R( `# ^% ?# `0 t8 z*/
0 @1 h* y/ m0 d H" b( uis
9 K/ F+ H* D6 x6 n6 Z. F part, GlobalDistObj, assignLObj:object;row,Lan:integer;" D6 H% T6 \4 K+ {
do
& o( z( g- ^( o+ _ Lan := rootfolder.Internal.Tools.AOLlanguage;
, m0 d1 u. \- Z4 I* k& _ if current = @.Destination -- else return
7 h2 m0 a7 O. s1 ?" y then
& ?6 T6 v9 E# f P @.Destination := void;
, p3 P8 S' v+ E5 { if @.occupied then7 J) h( ?, ?9 B* g5 k3 j5 S6 N
part := @.cont;6 l6 `6 ^- [5 J0 k- w
@.transpOrder := void;% e# s) \" u/ D' V' v
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
6 X; L( R- E/ k$ N: C @,root.eventcontroller.simTime);* M6 W3 q! j( @! e) I
@.HasOrder := false;% w, u F% j5 [ X1 |
@.DrivingHome := true;
- h/ H7 r0 {9 G+ Q rgManager.tryToStartTransOrder;2 t6 }) R- A" g- F7 o0 t
if @.Destination = void: b' q" A/ L, W" x" G$ a
then -- no transport order for vehicle @) W! O0 z. _. d: c% o. t
@.Destination :=5 g6 s- K' c3 {% t3 Y
rgManager.nearestFreeStation(@,track.~);9 m @. \# n( i* s3 D B- k
newDirection(@);
! t; V/ q/ @5 |* \" W0 y! a if @.Destination /= void then
* w, R& M5 {, Z6 E @.Destination.NumReservation :=
5 h# `# y. e$ o$ N6 h# q @.Destination.NumReservation + 1;' x* Z6 V6 G3 ?, H
end;
* J W0 R% \. D( B @.CurrIcon := "drivingHome";
. F4 Y2 e& m' K4 ] @.DrivingHome := true;
" B; a0 x2 @% X% F& u: F end;
2 P l8 r: T( h C2 _' g" b else -- the vehicle @ is empty, both vehicle and part are in the same dock station
2 Z$ y* s# c) [6 ^* S$ d$ @ part := @.transpOrder;
% T1 q$ s: }! A( j) Q, O part.move(@);-- load part2 k+ n5 Q$ t( \; y
@.CurrIcon := "load";. V4 V. O1 O! u/ T" _- R
GlobalDistObj := part.globDestination;
: m) N* Z. r6 z( F2 ~1 B! B assignLObj := rgmanager.rgAssignL;
7 o% e2 E0 y0 e: H& o3 @ row := assignLObj.getRowNo(GlobalDistObj);
& e' q2 @% E" {% p9 X! { if Row = -1 then -- since 70& y4 g9 v0 o ~1 y8 ^; q. I3 ]$ V
if lan=1 then4 T$ J& s2 L/ D# B j) D! `
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
! f$ P$ q& o7 H6 B; m2 o3 C to_str("in der Andockstation: \"",?.~.name,"\""));5 H/ N+ w1 s& e$ h/ i
else
; G( A4 y* ~% @; I# W* A promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),. y! T0 H9 ]7 Y" m2 s8 Z
to_str("in docking station: \"",?.~.name,"\""));
( ^7 D! I# I& Z! o$ Q end;0 v' r/ [' T' f
else
4 t% Q8 O8 @( k" W+ y/ Z& I$ o' v @.Destination := assignLObj[1,row];
9 O" n: b: Y0 d" R+ j end; 9 V# u, ?( j# U) C
newDirection(@);
" }7 b' v& R2 s0 D! c- e0 X @.HasOrder := true;% V+ [; `9 C `- e
end;; w- h! B/ B/ q1 m. l! s. l
end;% h; @$ o0 ]$ m5 N/ m
end; -- of the method
+ Z) R) \6 o( C* K |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
