/* called by: entrance ctrl of the object 'track'# `/ H' I7 f8 Q
*/6 T# T8 c# d9 L" z, c
is
" \, O' @0 y" O+ A3 r+ O& c part, GlobalDistObj, assignLObj:object;row,Lan:integer;' S8 m2 ]8 ~# `: s! L4 H" x% F
do
8 K$ f+ l: i/ h Lan := rootfolder.Internal.Tools.AOLlanguage;# B' n6 t+ d% I3 c4 u9 g
if current = @.Destination -- else return; x7 k5 t/ i' Y' \+ A" J$ L" S
then. k G6 n& M; ?7 ^& t" X9 n: x
@.Destination := void;3 K, T9 z% o, o# f- f
if @.occupied then% O! C" p& g( a8 z0 Y
part := @.cont;% Y/ e' }2 r. ^
@.transpOrder := void;. V+ \. q" h. _; Q- U& Y; x0 }2 a+ u' @
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,8 O. ~/ F* a- _/ J" l
@,root.eventcontroller.simTime);
k: w% d2 e8 k% f @.HasOrder := false;
5 }# M& |. ^4 ?1 i7 E8 j/ w @.DrivingHome := true;
2 t9 z/ J$ e" B! K! r rgManager.tryToStartTransOrder;4 A1 V% a! }) b6 `* n0 |1 w
if @.Destination = void1 {2 l' X$ q3 x1 p6 u
then -- no transport order for vehicle @( Q' v' a- B, z
@.Destination :=( w/ y1 ~$ l ^1 |0 j; J u
rgManager.nearestFreeStation(@,track.~);; n: k8 i- F2 P/ J2 b- W
newDirection(@); ; K( s( ^0 ^& S7 M+ k
if @.Destination /= void then
* r. @: F" ?% M# A @.Destination.NumReservation :=5 ?& U6 s$ a6 F- j7 K& Q, O
@.Destination.NumReservation + 1;
6 @4 G3 @8 n: N. Y end;
1 ^; d1 D1 H$ G, f- [) k* v @.CurrIcon := "drivingHome";4 b7 U! l% d' `8 `
@.DrivingHome := true;
. a' |; O# V* O: S* W end;) d: k: T8 o$ U2 ~9 Z6 j
else -- the vehicle @ is empty, both vehicle and part are in the same dock station" e+ T: F X& J: `8 v+ s% b
part := @.transpOrder;3 D; s& U# {8 n4 q
part.move(@);-- load part6 K# y9 a- e* {# L+ V
@.CurrIcon := "load";7 t# \/ e1 |6 ~+ X) G& Q
GlobalDistObj := part.globDestination;
N4 Q7 x3 v( C# ` assignLObj := rgmanager.rgAssignL;
0 E( x$ Q- |9 K% I9 C# k* g0 g% l row := assignLObj.getRowNo(GlobalDistObj);
. m2 Z/ D: u$ U% @3 q9 L, j- L* E if Row = -1 then -- since 70
& H8 X, S& p+ f3 y if lan=1 then
) p* a( w/ Y0 L promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),0 j J. n+ a1 d" |/ h- i5 ^
to_str("in der Andockstation: \"",?.~.name,"\""));" ?! a+ F5 H- g6 X) K+ q* [
else* ?6 @% X! ^$ T5 ~
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),$ p4 |- J8 h. Y/ W% u& w
to_str("in docking station: \"",?.~.name,"\""));
# w4 a8 `: j% K# H end;5 W+ C# S2 V1 j4 c3 t" a
else3 c5 ~4 {+ H* f% Y
@.Destination := assignLObj[1,row];8 g; k9 a, \9 ^4 x$ Y
end; & z8 P' r) V2 l8 a
newDirection(@);
* h( Q2 ?# a. v5 B$ r% d @.HasOrder := true;8 R Y; J, p q; M
end;
5 H5 _; J' g q/ X5 a end;5 F) E. o' S( W: `# o1 K- G" g* q
end; -- of the method
) l9 u3 S' x: H- g |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
