/* called by: entrance ctrl of the object 'track'. [: w: B$ W: _( ^, y
*/ `9 b# }. ^& y) `# g0 h2 I& l4 i
is
# S9 N# t1 }# b2 D: X T; N# X% l part, GlobalDistObj, assignLObj:object;row,Lan:integer;
8 \) c7 V5 M, O) W6 k! m" L1 o4 g6 hdo' I4 D; I' L4 M
Lan := rootfolder.Internal.Tools.AOLlanguage;( u; r* j: I$ ]" ~' U
if current = @.Destination -- else return) I6 {+ x% A" i
then! Y: P/ g3 A" ?/ [ v: s9 \
@.Destination := void;
& B& M- Y( q/ D9 j( W4 f$ g if @.occupied then
$ P+ e8 ]: ^: p4 t" C0 { part := @.cont;
_ Q& D5 v3 e" f6 k+ Y, y) `+ O @.transpOrder := void;( Y. K9 V8 M* D1 r# P+ P: _" ^
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,) `+ {. |; f! L2 T5 N( ? ?' i
@,root.eventcontroller.simTime);
3 G: K2 N! K; l( C- ?/ O: L g, S @.HasOrder := false;/ Q S) U* n4 v; s6 i* d1 f
@.DrivingHome := true;8 j3 b$ Y' ~8 r2 q
rgManager.tryToStartTransOrder;
* g% s* y# W7 O5 ?9 F if @.Destination = void' | i! D8 D1 P4 {
then -- no transport order for vehicle @
; t j4 n0 f5 @( v0 c, z# k# _ @.Destination :=
; [; P2 C9 [! z8 O" K rgManager.nearestFreeStation(@,track.~);" c' _6 n2 T: u4 ^/ C" L( P
newDirection(@); 6 M1 l9 J# S" V9 T# {! w
if @.Destination /= void then; m6 S6 J0 h i7 C( O6 b7 l) z) _
@.Destination.NumReservation :=9 p! ?% q; b* W9 l4 v* D9 k& T& }& ^/ R% ?
@.Destination.NumReservation + 1;/ N. X8 s) f+ K _, X4 J i' }
end;4 i% x- v/ \9 L5 F$ {4 i
@.CurrIcon := "drivingHome";! J* b+ j+ `; |- |: |0 W2 z q
@.DrivingHome := true;- k, J% B( {* H
end;% Z; q' c: c* i3 ^6 {9 P
else -- the vehicle @ is empty, both vehicle and part are in the same dock station8 ?5 z1 N) z$ L" h1 m
part := @.transpOrder;1 C3 b7 z' u4 N u
part.move(@);-- load part' O4 h( D* ]* N* {( a
@.CurrIcon := "load";
0 D; j& G6 [1 ]+ ^ z GlobalDistObj := part.globDestination;% Q; e5 ?1 X3 N w) |4 o
assignLObj := rgmanager.rgAssignL;
' t: m( q, Q5 Y1 V8 H; Q7 w row := assignLObj.getRowNo(GlobalDistObj);4 v! r6 J' l7 h8 C6 u/ v2 f
if Row = -1 then -- since 70# f* F j/ o5 z4 r
if lan=1 then7 [4 O9 o& d! K' k: v$ V# E3 X
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),2 ?1 H @+ e% X6 x# V
to_str("in der Andockstation: \"",?.~.name,"\""));
. R, Y& b) j' {. a else. P. i- E1 ], O" n' v, E
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),& \! p4 U8 P% T X, I. X
to_str("in docking station: \"",?.~.name,"\""));
- j4 V/ S, }6 Z% L$ D* K; g8 @ end;
. ?) G. i% F; a- X: E% | else/ `# Q& `* J8 B8 z
@.Destination := assignLObj[1,row];
7 D# }2 E6 u1 F2 X6 H end; 1 V6 T" v* Z/ I
newDirection(@);0 T6 [0 o* T# d0 y n, } j
@.HasOrder := true;& {/ {$ b+ `! s( q! }
end;
: Q/ L4 e' I7 u5 @2 C0 |% O5 N# l- i end;
$ f% S* _( q) X* Aend; -- of the method
7 y8 \% e2 I" ^! s- z$ u u9 a, y |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
