/* called by: entrance ctrl of the object 'track'
1 z3 k+ O8 w) w3 o3 O) f*/& P6 d2 ?3 v [
is
/ h7 N8 L6 s& B: d7 R" d' p part, GlobalDistObj, assignLObj:object;row,Lan:integer;
0 z: V+ G$ ^6 Udo
* R/ B7 |3 g8 L* Z Lan := rootfolder.Internal.Tools.AOLlanguage;
9 R9 L9 o7 f, b- H% y' T- q @2 H if current = @.Destination -- else return! }" K' A L% \: c
then+ ?) S) Y( v: y& y) o" u
@.Destination := void;
$ I; F7 g$ j, E- x if @.occupied then
! O4 [* \1 Y+ T8 |: K m2 ? part := @.cont;
0 K& r- U; c& J7 Y. G4 U$ h5 h @.transpOrder := void;9 ^7 m0 [9 `% c6 A0 z. p
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
S) m( e1 c0 j* z1 K* @9 r+ j) U @,root.eventcontroller.simTime);
* Y+ Y7 @4 p$ e" l' N" D @.HasOrder := false;/ o; p5 \% f$ J- h- r
@.DrivingHome := true;
& {, w; x o7 b3 k9 g! [ rgManager.tryToStartTransOrder;% {" U, L* u/ U5 l) Y
if @.Destination = void
- z# D# Y7 D4 A$ R0 d then -- no transport order for vehicle @# P3 l: Y! O4 _+ x9 ~! q1 J
@.Destination :=3 Y' T% k3 o; n+ x8 \
rgManager.nearestFreeStation(@,track.~);0 O; ~7 l9 G+ f: K j
newDirection(@); # r- Y. q% n. N3 y1 n
if @.Destination /= void then
( ?4 v o7 ?( O. R$ B' C @.Destination.NumReservation :=7 a ~; e2 `8 b( N+ n2 D
@.Destination.NumReservation + 1;
( v, V' r9 `2 T: w0 h. {0 s7 ?- k end;2 F% m$ T6 m' y( X/ Y
@.CurrIcon := "drivingHome";( E1 g$ `7 Y; V8 [. y- ]$ c! {
@.DrivingHome := true;
& n/ E* i+ T* m1 a5 x5 M end;
; D: N( x2 S' m5 [4 } U. S else -- the vehicle @ is empty, both vehicle and part are in the same dock station- |* j! `2 g( g, ^" n* t+ n
part := @.transpOrder;; f1 C9 @% B7 h& j( D4 Y3 W: T G' d
part.move(@);-- load part
, c* X1 @$ r+ o) ~ @.CurrIcon := "load";
" y, F% v. H+ u GlobalDistObj := part.globDestination;
1 r" K: M* q1 B& {# U assignLObj := rgmanager.rgAssignL;& O5 D' @9 Q9 M. m& A3 _5 ^+ A! k
row := assignLObj.getRowNo(GlobalDistObj);, {. Z8 e! D0 A# i9 c3 U& s
if Row = -1 then -- since 70
7 R$ Z/ t# X" z if lan=1 then
8 H0 x$ }9 E0 A# F1 Y promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),9 ]7 [; \4 }: e
to_str("in der Andockstation: \"",?.~.name,"\""));
8 d0 a2 x# F' r else/ ~$ ?2 J) ^0 D3 x7 w! s
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
8 g' c# o+ e+ J4 C' B1 D to_str("in docking station: \"",?.~.name,"\"")); ! z8 y5 \$ z3 O3 F" U
end;
; q: R: D' s$ U. T' y M- Z% Z else; t4 x; y: _$ i( w9 K% R
@.Destination := assignLObj[1,row];
- S7 w: j9 S) x. l end; + C- i- ?% Y4 D* i& T7 @/ M
newDirection(@);
) d( c0 y' D" f& j" r @.HasOrder := true;
2 F( J$ [( \5 | end;
$ N$ p% X {) _- P; {6 o7 { end;
0 C/ T) t2 g& d$ ?4 ]4 r$ ?/ W) send; -- of the method
- [" ^/ m/ v; Q9 r |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
