/* called by: entrance ctrl of the object 'track'
( X7 D/ c) X; I9 U# V0 } p, ]*/) a) L2 M w( K7 U# d& Z6 S# }
is! J% L; @+ j' B. Q+ P3 R9 L
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
, w: J. {, v+ Q! Z/ k3 q5 b* F! c4 E% rdo
( }4 y, J/ ~+ i2 Z4 F. x Lan := rootfolder.Internal.Tools.AOLlanguage;, j i$ E( x3 @) d% }, M
if current = @.Destination -- else return
+ |+ z" \8 j( N* ^5 B% A then: H1 `7 w) R: _. h
@.Destination := void;
& B% A& s8 H3 R: J! C" q if @.occupied then
0 q. j. J# v" c0 _! e* U; J part := @.cont;2 Q0 \4 m. T* ?2 Y; |8 m8 w7 \
@.transpOrder := void;
# ], _0 h( q/ b0 u$ o1 x part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
5 t0 ?1 c0 }* G# C! j/ [ @,root.eventcontroller.simTime);
+ ?- p6 P# @ y2 y8 y+ o @.HasOrder := false;
! i1 ?6 O6 i8 y @.DrivingHome := true;
' E& a \/ n0 x rgManager.tryToStartTransOrder;( k/ \. r3 ?& g5 {
if @.Destination = void
- v+ n6 Y5 x' X' U then -- no transport order for vehicle @
, q; ?8 E% n9 Z a, B) z @.Destination :=( V& u% z D% X6 B. `
rgManager.nearestFreeStation(@,track.~);
. K4 {' d: `* T' f4 Q newDirection(@);
- E! P! D5 Z2 { U( |/ s if @.Destination /= void then
* |" N% L' N- W @.Destination.NumReservation :=
* `1 F) n* ?/ `& H- V A @.Destination.NumReservation + 1;
9 k3 F/ x2 Q1 r% ~' O C5 \ end;
) F4 ]9 D% Q1 D$ n @.CurrIcon := "drivingHome";- l/ M% R0 x0 p7 D. q
@.DrivingHome := true;; ~3 t; l1 i' J% c
end;
# m0 c, ?" K; Z0 q! y: @) q else -- the vehicle @ is empty, both vehicle and part are in the same dock station
f4 @( I% w& D# B# d. r4 U7 O/ d part := @.transpOrder;
4 g8 m; m% c+ E: }3 B1 c3 i$ L part.move(@);-- load part# f! j+ x2 }# y4 }, w( @& e
@.CurrIcon := "load";
# p% h- Z8 ~9 Z/ c, _/ Q GlobalDistObj := part.globDestination;1 e' R% P: ?: C, q* }+ X" c a
assignLObj := rgmanager.rgAssignL;3 R/ Z/ l2 l+ J# D1 `& O8 }& d. E
row := assignLObj.getRowNo(GlobalDistObj);
4 u) a* `" z# q4 b; K if Row = -1 then -- since 70
4 n) ~: A& F) K m/ Z; l, d/ K/ ?9 n if lan=1 then
! q0 B1 S( f& q0 Z/ i! l promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),/ X9 V/ |' k( [1 h& W6 \
to_str("in der Andockstation: \"",?.~.name,"\""));; M5 R4 k& q- ?& t4 [: b
else( I% D- t9 C7 V
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),( R4 H( `1 W( V# k( U" i, ]
to_str("in docking station: \"",?.~.name,"\""));
4 a4 ^- j7 r# o; p+ X3 c end;
. t2 ` c# U0 f else
% j- L' O. G4 u3 o$ `8 z' D @.Destination := assignLObj[1,row]; j6 H6 f3 L% x
end; , {! M# h. L. h; E5 G, U e
newDirection(@);
, s$ n6 Z+ n, u4 d& U4 N, e @.HasOrder := true;, Y8 `% |! }, J; Z9 b* e- f
end;. f: b& O7 I' H
end;. G; s7 D: Y/ P! ~. _" `
end; -- of the method3 J4 ]7 g7 J" C' ^- u
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
