/* called by: entrance ctrl of the object 'track', L3 |2 n# `5 f0 M# f8 T/ |+ z
*/
, y9 f" {* P5 d P, T' M8 xis
7 A. I8 f/ Q9 n3 A part, GlobalDistObj, assignLObj:object;row,Lan:integer;' a7 v; O/ v6 a; J6 d) e @
do
! j5 i) r& {: F2 Y w r Lan := rootfolder.Internal.Tools.AOLlanguage;
! B, {' I+ G: J if current = @.Destination -- else return
- \: t6 s8 u3 D- D$ c# f then: K- T+ u- P) x! W9 ?3 i( b, J
@.Destination := void;. T* o+ u' [7 J2 w8 e
if @.occupied then
0 ~1 s2 P8 r. V, ]6 S y8 X part := @.cont;0 J1 }6 Z, `- \+ p
@.transpOrder := void;7 ?0 E0 F5 ]7 A d
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,# B+ h: t8 n3 U: b
@,root.eventcontroller.simTime);
: K1 F2 ~- g, }8 a @.HasOrder := false;. W+ L! c$ R5 R' `: g9 D
@.DrivingHome := true;
/ [# e( n7 b5 `5 a1 m rgManager.tryToStartTransOrder;2 K) x. U0 l( @6 I2 y* y8 o6 p# j
if @.Destination = void
$ D( a$ P& D" K9 a7 G: M# x% P0 C then -- no transport order for vehicle @
) q" [! o5 U1 N& S @.Destination :=& I( m0 e: n0 i) W& X* y
rgManager.nearestFreeStation(@,track.~);
& p0 ^6 w3 J6 I3 b# N newDirection(@); 4 }4 }- I- g5 }8 U/ a4 @" R$ {
if @.Destination /= void then% T/ H( n' ~, _ s* b- U; f6 @: z/ a
@.Destination.NumReservation :=$ I3 w( q4 q3 j2 O5 |
@.Destination.NumReservation + 1;
$ l. Z* `" A1 v9 f2 g0 M e/ i end;- K8 x' U2 m4 d/ A
@.CurrIcon := "drivingHome";$ ]. _! D+ c& r( W3 H/ r: K1 W
@.DrivingHome := true;
, _& {7 y/ H% M4 T/ }3 V end;
8 [- v: t6 C& M W0 T+ F0 z, x8 M else -- the vehicle @ is empty, both vehicle and part are in the same dock station3 T- E1 A. V& X% y" v. Q3 |: _
part := @.transpOrder;
" |: \' M1 E* L% S part.move(@);-- load part* y8 ]: O N1 h3 K
@.CurrIcon := "load";5 G) s% x" J' L' H* ]: H. e9 a- \
GlobalDistObj := part.globDestination;
( {7 R: N* Q( U% B. ` assignLObj := rgmanager.rgAssignL;
8 \6 {9 \3 }, r row := assignLObj.getRowNo(GlobalDistObj);
+ X4 H# \+ n6 f# ^ if Row = -1 then -- since 70
" T8 O8 w+ W3 F5 ? E5 @3 G8 M+ S if lan=1 then; o L/ o* ?! x
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
5 j# v- w( G; l2 w" R* B2 U# Y to_str("in der Andockstation: \"",?.~.name,"\""));2 U" d/ H7 t, n9 ^. q3 X5 X3 ~
else$ ?( H& B0 f5 u$ {4 r4 x" {
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),: j; L! @/ a5 n) v9 q I
to_str("in docking station: \"",?.~.name,"\"")); ! t* A8 V2 i( ?; E, b- w# o0 H# G0 j
end;
P3 u1 o* I3 u* L2 E, e else
1 n+ X) o! b1 a5 ~9 e4 U7 C @.Destination := assignLObj[1,row];
: F) @& c# V7 L9 J7 W9 b end;
) b: P% X) F# G4 F9 S; W4 p, X newDirection(@);
& q# h7 U5 a: a$ X. f( \ @.HasOrder := true;- x8 D+ o- u% F T
end;$ r3 g" T& z2 ~% Z3 @
end;6 B p1 ~- b& b2 ? p
end; -- of the method
# j, O; b2 c$ U- o$ K$ K |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
