/* called by: entrance ctrl of the object 'track'% ?, ]- F5 T/ x
*/
0 x2 P4 m" } c( iis
" K( z; l1 G4 ~' l) R- p/ } part, GlobalDistObj, assignLObj:object;row,Lan:integer;5 |+ \/ Q3 A* u Z
do
! P# `! @8 K P" f6 f Lan := rootfolder.Internal.Tools.AOLlanguage;
! i$ [$ |4 h! w" s5 u" l, b! {. T if current = @.Destination -- else return }7 W) J; z E6 S7 V
then4 ]( m' E$ G+ E5 i
@.Destination := void;
- ^% p0 J7 [* R: R if @.occupied then
: H9 a7 j9 ?% V" g1 v4 Y part := @.cont;9 d1 Q K* f3 U; d t) n6 u1 k
@.transpOrder := void;
% B0 s9 f I- i! y# h part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
W2 C( R9 e- `5 y4 E) r @,root.eventcontroller.simTime); P- l8 w ~ Y5 q
@.HasOrder := false;
# L3 \) |" \: A @.DrivingHome := true;! X1 s# K" J# v& e7 A( F
rgManager.tryToStartTransOrder;
+ d7 C* e% I" H' w- ^" J+ _5 |- D if @.Destination = void v0 _0 \2 _9 m5 F7 J& ]( `/ N* s# T
then -- no transport order for vehicle @! x7 H' l1 o4 a
@.Destination :=! F# G9 a! e5 m6 O
rgManager.nearestFreeStation(@,track.~);
- e) T5 v% s# D" Z; ]; a' S newDirection(@);
; S1 z5 A% r( U5 \9 I8 w& ^! d+ S if @.Destination /= void then% a) _ W6 L. O8 i( W0 q- g
@.Destination.NumReservation :=( C, U& J! b _2 F1 h) N' o4 j8 B
@.Destination.NumReservation + 1;+ I% s5 ?; y1 b: G4 h7 f
end;" I- e: \- m4 u, {5 [% @) J
@.CurrIcon := "drivingHome";& e2 O& E+ D- c
@.DrivingHome := true;
7 J& j) B/ a( J! E& P k end;. Z$ Q' g4 g+ P) b' a2 E3 Y, X
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
( G$ c0 _3 }1 p- q part := @.transpOrder;
- @8 s6 S' R; P part.move(@);-- load part
$ e4 P6 s" e* H. h- Y( N @.CurrIcon := "load";7 {' h( G' s. ?' l. \5 [7 w
GlobalDistObj := part.globDestination;
& @( }0 T% B! o1 a+ r assignLObj := rgmanager.rgAssignL;4 e! K) r- @/ j! k! w5 Y
row := assignLObj.getRowNo(GlobalDistObj);8 \8 {% E+ R$ c2 l. W! D' H
if Row = -1 then -- since 70
8 n& w& F |! c+ k7 A, [6 j' ^" \ if lan=1 then
- P3 c8 w0 s1 B' ^, p" k. f) j promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
, H) k" x# k8 n: P" f to_str("in der Andockstation: \"",?.~.name,"\""));& o: ? X j. Z0 p+ m
else
* M/ k: u# P# \5 G promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
5 }! h; _+ G" [2 V2 n7 F' T to_str("in docking station: \"",?.~.name,"\"")); - U+ { V, s: f/ n
end;
7 H3 z0 ]7 e3 y; G1 p/ F! m else
9 p9 M; s2 _- y6 ~0 I+ [ @.Destination := assignLObj[1,row];
0 g& m `2 l- M" n% w end;
6 o7 I% T* d6 m( t; M) }3 B newDirection(@);
9 V v' j# w8 ] @.HasOrder := true;
# D1 E- {# H: p: y end;- v. T5 \0 B' I5 W! Z8 B, R
end;5 z7 P: Y* B# p! a2 u
end; -- of the method
9 ?, }, @7 i$ x0 C |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
