/* called by: entrance ctrl of the object 'track'
( U) Y7 J- h o: v' F- I*/; ?! O3 m& `; d& R3 Z& i
is
+ Q6 H- }; S* H6 [7 Q part, GlobalDistObj, assignLObj:object;row,Lan:integer;
: i7 n& c4 h& `# b% p: E1 fdo
( ^, w6 f! ?; n2 U9 j Lan := rootfolder.Internal.Tools.AOLlanguage;
4 U7 ?8 \( p2 ` if current = @.Destination -- else return+ W3 N, }9 E' @" W& A( ]& o G/ v, f
then
' q+ g8 H; c% q- V% l5 `. | @.Destination := void;+ ?# W( n' r1 M: z& O- O" \$ D
if @.occupied then
; }. U2 Q- E6 Z( G) u( l' T. f7 s part := @.cont;
& p$ l9 D2 t g" W3 N @.transpOrder := void;
_6 y& |- X" R6 B8 |$ x. X+ M/ }5 l part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1, J0 d) R& Y' K# @9 b' @" E1 x
@,root.eventcontroller.simTime);
1 D6 {) z$ R! l" z" d, ` @.HasOrder := false;
+ |. W6 W& _! K; `- Y1 A6 y @.DrivingHome := true;) R" K* g5 ?3 ?3 l$ y/ ~- x
rgManager.tryToStartTransOrder;
( F; \' v6 _3 T9 q6 F# m0 D _ if @.Destination = void
0 S3 \+ ~% R/ Z" B2 D8 V then -- no transport order for vehicle @
6 S/ }3 b I, c0 Y" o @.Destination :=
1 E0 t& r+ ^2 `4 `7 f" T. L& v rgManager.nearestFreeStation(@,track.~);
) l/ g$ P; y" m8 d" j7 E newDirection(@); 2 }8 w* q) X; z+ ^9 v
if @.Destination /= void then4 K& }1 T/ c) Z- l# z* j. ]
@.Destination.NumReservation :=
- P! w ^$ T. b2 c8 f" W# b @.Destination.NumReservation + 1;& U2 N4 F1 a$ T! x
end;
1 _$ H! @4 f3 G6 T& h @.CurrIcon := "drivingHome";4 m. {3 R8 q$ S4 d7 v
@.DrivingHome := true;$ l$ ~8 e6 p W) W% X. y8 _3 x
end;' T5 }) [+ D4 ?' p7 d( `
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
- l1 B, N/ w0 K$ Q) q, C part := @.transpOrder;
J+ r$ b- ?& m6 x2 Q part.move(@);-- load part
2 F# m, N+ z, y& C0 q2 L @.CurrIcon := "load";
* W4 }0 Z5 u' c# P- X E GlobalDistObj := part.globDestination;
+ L* s2 S+ l8 |$ f1 \; y2 _ assignLObj := rgmanager.rgAssignL;
5 l2 D% m3 W$ X6 ]2 a9 k6 J) X% u+ s row := assignLObj.getRowNo(GlobalDistObj);6 ?) b! ~8 J! d- z
if Row = -1 then -- since 70
( j2 P4 _& l, Z if lan=1 then8 z; `# E+ ?+ l6 j4 C
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),$ z2 {" p9 ^$ h! H& q& S" f
to_str("in der Andockstation: \"",?.~.name,"\""));# b; ?' B- e" {* B- O# b2 ^
else
) x) E' s" J- r+ q promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),' }' X* n5 k* j& n7 L: @
to_str("in docking station: \"",?.~.name,"\""));
4 z) v6 n' h% f$ \6 B8 i end;
7 q4 |: j1 b) H0 j2 k# S1 a else
6 v$ B( V. u' }" [ @.Destination := assignLObj[1,row];
9 P8 E" \; l0 i5 r( [/ X! _0 `# } end;
& S. c) Z7 t% A* g. D newDirection(@);$ w4 u# K4 \2 P# D' N# d! J
@.HasOrder := true;
5 j V+ c$ _" J* n4 ?: G; B0 V end;# B+ @) I- c& P/ U: \# M
end;
/ E: K2 M& Q$ K: \end; -- of the method
/ V+ c- \" k" W" C- i# J( K* r |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
