/* called by: entrance ctrl of the object 'track'' t7 n9 K' R' j3 d7 }7 V' ?
*/
6 c. V5 u: F+ f+ }is
t: o( p$ `5 F4 I- Q: [) m part, GlobalDistObj, assignLObj:object;row,Lan:integer;
4 j) }9 P" \6 K" Udo, y, d* n3 @5 B. `. J3 a- U
Lan := rootfolder.Internal.Tools.AOLlanguage;* R$ `7 O/ ]9 p+ W4 p9 S
if current = @.Destination -- else return/ g8 P- d% x( p
then
; s& q% r' O4 W' a: u+ O6 E @.Destination := void;7 |0 H2 Q4 L6 e
if @.occupied then* U" D+ f) z- p) c7 R$ V
part := @.cont;
5 c: ]$ B; t- P! {; d1 y @.transpOrder := void;
0 g6 L1 `) [- m( i part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
, B7 w: X, c1 h @,root.eventcontroller.simTime);; {9 g' X2 [; W l
@.HasOrder := false;1 i; _& R& ?' R y ^
@.DrivingHome := true;$ f# f, ^- j+ m
rgManager.tryToStartTransOrder;, n- F- ^: L; U9 T# O! N
if @.Destination = void
8 s$ x/ m7 f( [" @% z" ~ then -- no transport order for vehicle @& Z5 o& Q3 Y9 q
@.Destination :=/ a* Y4 Y3 O9 n5 c# _. R7 R8 J
rgManager.nearestFreeStation(@,track.~);0 t! g/ r$ g0 T. L+ J
newDirection(@);
' C+ M) L7 y4 {0 w4 w0 x3 X6 z" m if @.Destination /= void then1 Q# M1 Y$ p% h2 [( R1 l
@.Destination.NumReservation :=+ C# N+ F( h: j+ [ r" c n
@.Destination.NumReservation + 1;( B4 B% T* J) Y' w2 Z
end;
$ l! W% K: V9 s! ^ @.CurrIcon := "drivingHome";
/ q% {! h" U, T0 F: F$ A% g' f @.DrivingHome := true;* q+ ]+ `! V" l i
end;7 a* C2 u, o% y% f
else -- the vehicle @ is empty, both vehicle and part are in the same dock station: Y. r. i* g$ b5 ?# X, Y
part := @.transpOrder;
5 a7 v) W( n* v0 z part.move(@);-- load part
$ H+ Y6 u5 u$ Q @.CurrIcon := "load";% h6 t* Z- {% U/ @1 ?7 `! y3 y
GlobalDistObj := part.globDestination;. T* F6 E/ h" X' j6 M4 N
assignLObj := rgmanager.rgAssignL;6 d- i# K) V$ M. s2 Y
row := assignLObj.getRowNo(GlobalDistObj);
- x; K# r2 q# L2 Z# M6 O/ H2 Q$ H if Row = -1 then -- since 70
- X: o, M2 y: k8 v: Y if lan=1 then" N4 [/ p* Y* V$ H
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),$ ]6 J9 B/ o7 K0 I
to_str("in der Andockstation: \"",?.~.name,"\""));
" g- {& J' F: I& k* ~* Y else+ B& e$ _- W2 _4 ^' O1 a/ a
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
/ J3 o$ k6 q$ x+ P$ Z0 ~ to_str("in docking station: \"",?.~.name,"\"")); ! I7 N, z [1 S* Q
end;4 L" C- I: d6 K) c: N
else2 j! o) P% u0 H0 e& ^5 F
@.Destination := assignLObj[1,row];3 p) @3 |' v/ u0 G# r/ A
end; & x1 J: s# \* E0 `2 a
newDirection(@);
7 T" z9 l0 u$ c' I @.HasOrder := true;* a1 L! Z9 u2 V9 R- j* t# r& _2 o
end;% h4 W1 k/ F; \# T6 y6 N8 y# J
end;
- u% o+ s" y- s' [% A& ~end; -- of the method) \0 H! Y L/ D& X4 {/ X) z
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
