/* called by: entrance ctrl of the object 'track'1 s8 d6 @$ `. a6 ~' ]1 h* \* D9 ^8 T
*/% S. |1 T7 Q1 p/ e+ V$ X- Z' e! q
is1 i; S" M' o! G( g- F( [
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
: x: C) j4 G: U) K! C8 w5 hdo
! R V, s2 |* g Lan := rootfolder.Internal.Tools.AOLlanguage;
# G* P& y# l" Z, C9 a$ A; t if current = @.Destination -- else return
( B: q- h h6 e# o M then% r; }( G. q( n- F' X3 M# B: V$ T, _
@.Destination := void;
; A' `; k. w0 @; t; C if @.occupied then
% l- @, D5 s. x/ q2 a1 p part := @.cont;: k' \7 d k! e( v0 g. B6 J
@.transpOrder := void;4 I* k, r8 ]$ u$ i2 n) A8 u2 ~
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,7 l: O1 x6 @" R' b
@,root.eventcontroller.simTime);
2 y8 y$ T1 C6 W7 |8 {( d @.HasOrder := false;
% y7 _: `' l$ Z" }# O @.DrivingHome := true;; U: C v& G5 I+ A9 w
rgManager.tryToStartTransOrder;4 _: I8 R+ d0 Y1 B1 Q: d
if @.Destination = void! i9 y5 D; v4 t' K0 D: l
then -- no transport order for vehicle @/ K# w5 [) C& D$ C6 M
@.Destination :=+ e7 o8 T+ G- n
rgManager.nearestFreeStation(@,track.~);0 a4 s9 ?; o5 {+ r* a
newDirection(@); # N( ~1 S* z1 J1 U
if @.Destination /= void then
# A" r c4 ]6 A5 K* T @.Destination.NumReservation :=
+ l) i6 Q; m: }, P @.Destination.NumReservation + 1;& v4 X6 {# j5 @- q1 e( H) n
end;
5 [4 `/ h! i& J" C @.CurrIcon := "drivingHome";$ e5 |! B, e; S. A& j$ L5 t
@.DrivingHome := true;
5 l2 C8 ?+ G! f6 E, F+ n end;
# w/ d: L; A$ v/ q else -- the vehicle @ is empty, both vehicle and part are in the same dock station
. n. V# C/ W% e/ R+ E8 D part := @.transpOrder;$ ?4 h- R. [/ \9 F
part.move(@);-- load part; {! g& T+ l" e7 G
@.CurrIcon := "load";
; j% X# k: {$ X# M GlobalDistObj := part.globDestination;
/ }6 A8 S. b5 @3 ^4 a6 b) X' _1 [ assignLObj := rgmanager.rgAssignL;
! R# f" k# _2 R2 F1 u row := assignLObj.getRowNo(GlobalDistObj);7 h- y* \/ X/ d) v0 R* [. r- ?, n
if Row = -1 then -- since 70, ~5 V- b" F# p" v. ~
if lan=1 then: T" d1 ~, U% P+ v+ e2 V
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
U9 I! o/ y: Z. v2 M to_str("in der Andockstation: \"",?.~.name,"\""));- O) x3 u2 {7 W: ]
else6 d6 \1 ]0 C; ^ Z
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
- T- a- I- A9 k to_str("in docking station: \"",?.~.name,"\"")); 5 U# J6 ?# z; X
end;
& o! S; l) v0 E# a A( F. r+ X else
. U5 l: b7 p e/ p/ r6 M! @ @.Destination := assignLObj[1,row];- Y- z9 I; ?( U7 @3 E, W+ I
end; * Q% _ B( K- @; g, R0 O0 B
newDirection(@);+ P4 |/ s9 [ G3 z6 }' K
@.HasOrder := true;- Z0 v: `6 ]# A7 @# X3 X' C
end;
6 a4 B3 z, W% y& p$ C% ^ end;
5 } ^) u. J1 K Kend; -- of the method; `9 f6 I9 O; }- v7 b Q
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
