/* called by: entrance ctrl of the object 'track'
4 I3 f/ z% D& i# U2 K+ k. r*/! r: ]' `, g) m2 f% F
is
+ M( x$ U" F/ j# ^5 J# L. Q0 O part, GlobalDistObj, assignLObj:object;row,Lan:integer;' P4 o w. e! q, N' h: }7 E' L. g
do) F! N& i' f5 C' L' X0 s
Lan := rootfolder.Internal.Tools.AOLlanguage;
/ |+ A W s' z- x9 y; f+ M9 B if current = @.Destination -- else return
& w- [7 A' B1 y" [ then, z; \3 ]* F3 `
@.Destination := void;3 l: H+ g8 Z0 t. g [+ h
if @.occupied then
2 [- o* p6 C/ S! ?7 W part := @.cont;
9 F, z# n9 ~( p6 Z+ ~ @.transpOrder := void;- a4 s; t m+ S# v
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
: r/ J$ m: S4 z+ _( B. N @,root.eventcontroller.simTime);
/ ]/ z# O9 D$ D# g9 V4 P4 c @.HasOrder := false;
# I" {1 L$ [5 I1 Z @.DrivingHome := true;
) Z/ q$ q. Q8 c rgManager.tryToStartTransOrder;
$ I8 ]5 i* ?- l6 Z2 ^ if @.Destination = void J. ]9 N) w+ k6 j
then -- no transport order for vehicle @
9 x/ Z7 D+ ?. g. @( H* t; }' |% X @.Destination :=- L- x" `- T/ O2 v
rgManager.nearestFreeStation(@,track.~);
& F7 r) r4 K3 b* B newDirection(@); 5 U( M- q/ V* B, {' @' h
if @.Destination /= void then. g M. s2 l$ k, {
@.Destination.NumReservation :=
+ g5 q# w" d$ L @.Destination.NumReservation + 1;! c9 u8 ^- \& q) q/ v k8 f
end;
3 v2 ]' K" t+ o. D1 N' M: i @.CurrIcon := "drivingHome";. v$ R/ Q; s! ]. l
@.DrivingHome := true;
% ]4 y: x$ K& g" a+ _9 S end;. n. ~# G- g3 }! a4 j% I& `, Q( l. K
else -- the vehicle @ is empty, both vehicle and part are in the same dock station/ W& A5 v6 ? P( ?7 j- m
part := @.transpOrder;
, d: y i! A; o part.move(@);-- load part1 e: B# [# y. z; q$ G7 V( c' C
@.CurrIcon := "load";
: Y2 H7 f! }4 x! ?4 v* v/ v% j GlobalDistObj := part.globDestination;" B2 y$ g! D3 b4 Q3 c+ v' Z: T
assignLObj := rgmanager.rgAssignL;, l( L& ~! {( ?
row := assignLObj.getRowNo(GlobalDistObj);
- ?6 x& {+ R* i3 x1 u* }2 U {* D if Row = -1 then -- since 70" _6 q! O8 }9 [
if lan=1 then
. g# g# H1 k1 a8 W7 ], Z promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
2 C* j$ R4 ^: E# D to_str("in der Andockstation: \"",?.~.name,"\""));
5 n3 v( @8 x0 h# s0 N; A% F+ R) _ else0 S. I' S- M5 \' p& T: m
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
+ t. u4 |: g; e! o4 C# A to_str("in docking station: \"",?.~.name,"\"")); 9 g& @9 y# ^, z/ I
end;
- W' t0 p- s4 w% e' Y- V4 t% C else
, R' L+ _8 [# N$ ^ c% g/ O+ N @.Destination := assignLObj[1,row];
! ^+ \5 T _6 _# d4 ^/ s end;
h+ `; d) k7 A5 d newDirection(@);! T+ I& u$ A2 j
@.HasOrder := true;
8 x- j, k1 l) S! M& M) k end;2 T6 |% {" c* C& [3 o- A: h, q
end;1 D' b6 L; f2 D/ E: \; n
end; -- of the method
v, D2 V& M q |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
