/* called by: entrance ctrl of the object 'track'
x+ _/ o' }% E3 W4 B7 ^$ h*/
/ p5 n4 e# L6 y7 c6 cis
# D0 ^1 |6 I6 U. e( \ part, GlobalDistObj, assignLObj:object;row,Lan:integer;
* r/ r. l. a \do8 b% x( q/ m' k
Lan := rootfolder.Internal.Tools.AOLlanguage;5 F' j$ T8 q* X1 h! W9 \
if current = @.Destination -- else return
, }: Y) Z O6 }) U( F- d then: X7 s9 J' c) d9 G3 ]& W
@.Destination := void;
" f! o0 J3 n/ W% l if @.occupied then6 _/ ^2 K2 w6 E/ B% h
part := @.cont;: J) }. J c" ?
@.transpOrder := void;# U& U8 c# e& c
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,( ~0 M3 ]' [, ?4 |$ U
@,root.eventcontroller.simTime);8 u- u9 R0 q) w# `
@.HasOrder := false;
- J! c% _* g- e7 f9 N4 @ @.DrivingHome := true;
) Y9 l T6 H( Y, h# U' E rgManager.tryToStartTransOrder;
- m( `0 `6 B4 \+ b2 s' w if @.Destination = void& {! |# C( b4 O5 D, f3 z6 j
then -- no transport order for vehicle @/ S) ~/ \; O" z/ @" Y1 D
@.Destination :=
! A/ K+ K, w8 w+ p. R) t x/ [ rgManager.nearestFreeStation(@,track.~);
7 r& x5 |$ W+ p* i! s" ?. N. K1 ~ newDirection(@); ; i. f* b! x' v! {/ ]% K
if @.Destination /= void then
2 C1 c! N1 P6 O2 g4 J @.Destination.NumReservation :=
+ u, S/ g4 M- C3 P* E! v- Z @.Destination.NumReservation + 1;4 u' Q3 s4 d) I3 e# I' D' _/ ]* K; F
end;
' x& u4 H. B" c, S) Q( M$ v" ?. {% q' e @.CurrIcon := "drivingHome"; Y/ v8 E1 p `+ p8 {0 ]3 P
@.DrivingHome := true;
1 ^& F% w5 `2 R3 k7 D* { end;
6 F6 U- h9 i& v$ X4 z8 X! k else -- the vehicle @ is empty, both vehicle and part are in the same dock station
3 R. z/ E: o$ t4 ` part := @.transpOrder;
' a# O! }. U N) j- m" H; |" v/ k part.move(@);-- load part
1 [# A" J- L0 k5 O# W @.CurrIcon := "load";' |- n( Y- S& K
GlobalDistObj := part.globDestination;& Q2 u; |# v" Y! j7 T4 r1 e) ?
assignLObj := rgmanager.rgAssignL;
% ?# H. K. M6 Q [2 f9 b row := assignLObj.getRowNo(GlobalDistObj);# S# O# m2 D: p- l+ q- z, l# n
if Row = -1 then -- since 70) w3 k( M; M; V
if lan=1 then
0 Z a2 p8 p* N2 O promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
. z; x3 `+ M+ G, g( d3 w* e, v to_str("in der Andockstation: \"",?.~.name,"\""));6 X3 M! |4 I& y9 o+ ~- P" X
else" x0 F8 z4 Z: k, z
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
! p4 X: h/ [& \5 r- l to_str("in docking station: \"",?.~.name,"\""));
1 Z* t1 W2 L4 @0 p end;
4 |' ^5 }& ~! ]# K; r$ E, S else
8 @# P9 h& a: `# K1 b @.Destination := assignLObj[1,row];
% O5 ]* y4 |, P$ o+ Z end;
8 Q4 Y5 Z& E5 U- ~. r newDirection(@);4 k& Z0 j8 S2 Y
@.HasOrder := true;4 J- X3 U/ r' b! B0 K
end;
6 |9 d# R+ d& B end;* e5 \4 F8 [. d) `5 m' m8 N [
end; -- of the method
, m# n& \% D* q' ^( m |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
