/* called by: entrance ctrl of the object 'track'
0 ?6 Z" O# }9 C. y, u7 `6 a*/7 }3 s7 b- a) y
is
& [; ^/ [- Q- f6 b j! b- p. O part, GlobalDistObj, assignLObj:object;row,Lan:integer;
8 Y& T/ X, m( B4 R% Q4 F6 ~! n. Ido
4 @: I7 F3 t$ M4 T1 r7 H4 x Lan := rootfolder.Internal.Tools.AOLlanguage;# O: K) h+ Q2 ]7 L/ u- j* @
if current = @.Destination -- else return
+ W. A# Z% n: g! k& P& k5 A1 O) o- ] then6 w& M: y2 M- Q+ x/ m- `% _
@.Destination := void;( y9 g3 K" v2 @6 s3 \# C) k5 N
if @.occupied then
3 y* A1 p( Z) O+ J- G) C part := @.cont;" A7 k& F6 q3 ~0 Y# v
@.transpOrder := void;
; W3 U/ d; J+ K3 c8 n5 }; | part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
3 Z, @, L" v* R/ _# F$ l0 i @,root.eventcontroller.simTime);/ b$ p- l6 ^# ]
@.HasOrder := false;5 C, @% E- `# T5 }# Z7 s6 {
@.DrivingHome := true;
, D. ~ x8 o# g1 \6 `3 r! l, b rgManager.tryToStartTransOrder;( D- o% R) Y: t% V. @
if @.Destination = void. E: s u: B- O$ s$ M
then -- no transport order for vehicle @2 X( H3 x# s( I# [" G
@.Destination :=
8 I1 C T# J0 l0 j4 T rgManager.nearestFreeStation(@,track.~);9 x# a1 d9 m. e/ q. b( a* k8 H2 k
newDirection(@);
& h' b% n6 _7 q/ O, V3 }& ~ if @.Destination /= void then
6 u% C i" E* r0 T; V( _ @.Destination.NumReservation :=# t( w- T' U2 ^# n0 ?6 a, G
@.Destination.NumReservation + 1;
4 t/ v$ v1 c* }4 X$ T end;4 R5 o+ F1 @9 X, s, X2 d: D" J
@.CurrIcon := "drivingHome";
3 C- q- n; D R- m5 n8 ^4 y4 j# [ @.DrivingHome := true;
2 l- p; |: Z' K- d/ E end;5 Q! u. Y/ J! N0 ^# @
else -- the vehicle @ is empty, both vehicle and part are in the same dock station0 L/ Q6 P& L- `' R
part := @.transpOrder;9 n5 d6 Q/ L3 H ~% @
part.move(@);-- load part
$ ]/ ^) T+ }. v M% C5 g3 m @.CurrIcon := "load";
/ F, M% F2 K* @1 M o GlobalDistObj := part.globDestination;- X. i" c, R4 n3 J: v5 e
assignLObj := rgmanager.rgAssignL;
$ q4 Y4 _% d" S# i4 l% ? row := assignLObj.getRowNo(GlobalDistObj);
2 J. @& y8 G. R- [1 Y1 r if Row = -1 then -- since 70
- v$ M: t2 t- d; A; \' } if lan=1 then
. q; z$ B9 V1 c+ \. Y7 v2 ] promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
4 J5 @7 P1 u5 b- O) a3 Q to_str("in der Andockstation: \"",?.~.name,"\""));; t6 G2 N% ?8 W+ D4 y# N
else! Z* h* v$ T$ B% k; A
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),) b9 m5 f/ j" }4 n; q v. t
to_str("in docking station: \"",?.~.name,"\"")); 8 C. T- y+ l# L* a! j4 r
end;6 g/ p( o( Y0 O) U% F9 a' U
else
7 p" s% S/ y; z6 R/ f @.Destination := assignLObj[1,row];
* l' `/ T7 @- g6 p7 J8 P: X3 F( x end; 5 t4 C o/ e! [0 a5 v6 i4 Q2 k
newDirection(@);
7 a3 t/ T6 s+ Y @.HasOrder := true;
3 j" I# s) R/ h2 {# f7 e end;1 f, P: b% W* T" |" V2 I3 Q3 I
end;. @1 k% C) G6 ^% j
end; -- of the method
' U$ M- s; R3 u5 v/ n# i: x6 K |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
