/* called by: entrance ctrl of the object 'track'
0 z+ S o- Q: P& [*/
* U, m8 k/ Y, o& z- ?+ Z( Lis
: ~' j1 W6 H: j6 K, W part, GlobalDistObj, assignLObj:object;row,Lan:integer;
$ n# E& m; M6 V! ldo3 _- |; |) V6 F( w0 [
Lan := rootfolder.Internal.Tools.AOLlanguage;
7 ?1 B7 _, [3 `; u2 g; {7 z8 G if current = @.Destination -- else return
7 J \" s# S9 S$ X then
, u4 r, O6 s- |) h+ ?8 R4 x @.Destination := void;' K, {* D4 K$ E l8 ~
if @.occupied then, F# y' h2 Z0 D7 D% b! O) M
part := @.cont;
& [* D3 l2 X6 F! O J3 D1 f @.transpOrder := void;
, H4 m M+ w# [9 D/ }" o part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
* }* C# J: B* k. i- ^3 R* G @,root.eventcontroller.simTime);
' `; A( E3 P* ^" w1 }4 n @.HasOrder := false;% F7 r6 \2 q1 D6 E4 t# t
@.DrivingHome := true;
* R: m; G1 H* I( ?% O rgManager.tryToStartTransOrder;1 |" E+ J2 g5 B+ M+ Y
if @.Destination = void
4 l7 I. P7 n% E8 O) f) l7 c' | then -- no transport order for vehicle @
0 L; U$ o- u% a( K# V% ]3 C @.Destination :=
& ?: N0 m; \: X5 h; Z rgManager.nearestFreeStation(@,track.~);
. j' J# e" p% O5 o newDirection(@); ' _% | F' u) t$ E
if @.Destination /= void then
2 q/ ?4 I; x3 N9 E* c @.Destination.NumReservation := [& r1 l2 l7 O2 c, m' ^
@.Destination.NumReservation + 1;- ~3 Z/ e! F4 q( D* Q
end;3 N$ d8 O) G1 W4 v7 k! e
@.CurrIcon := "drivingHome";% U! F3 P" S5 w9 E2 i' _( e9 L
@.DrivingHome := true;
/ }1 R" p9 u0 G7 c2 g+ V C7 x0 ~ end;
8 \8 h' H0 {% @0 j# u/ Y6 S else -- the vehicle @ is empty, both vehicle and part are in the same dock station
- W" E% m/ N% n. [ part := @.transpOrder;
* |1 g. D1 O3 }7 h3 f* m5 U" W/ g3 x0 @ part.move(@);-- load part
f' w0 c9 b4 \8 I; e+ G @.CurrIcon := "load";
; [ \1 \4 H* h- S l3 h GlobalDistObj := part.globDestination;' H1 t* B: q1 M% Z( |
assignLObj := rgmanager.rgAssignL;, ~8 \" r( W, z' L
row := assignLObj.getRowNo(GlobalDistObj);. D' Y i3 ^& \6 o4 r, E
if Row = -1 then -- since 70
3 ~, d& T8 M, Q5 [4 C" n if lan=1 then7 `3 m1 W8 v: I! F
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),+ Q) ? C4 J1 H' j
to_str("in der Andockstation: \"",?.~.name,"\""));0 d' i/ w/ Y9 O+ {+ t
else9 }( r5 m$ S. a$ V: |
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),. a7 z5 G$ h8 X5 `( j; t
to_str("in docking station: \"",?.~.name,"\"")); 8 ^6 U) ~" d# l9 o2 L: [. ~
end;
; ?$ j/ U; ~ }6 I else; ?% Z6 |1 K+ u: B: G5 ?
@.Destination := assignLObj[1,row];
2 J9 ^2 ^2 e/ |8 U/ X5 ?2 ` end;
: Q; _( m% z6 ]8 t4 Z3 f. Y newDirection(@); {6 E, K" h' V! _
@.HasOrder := true;: v; ?, ~! }: v# ]2 j
end;& b* s/ W# K9 Q4 G
end;6 i6 y+ I: ^: z Z$ }
end; -- of the method
- O: `$ q& D+ T, d$ L6 B |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
