/* called by: entrance ctrl of the object 'track'" n/ Y# Q" n) t: ~0 h/ @6 v6 Y
*/& Q& w4 I# f' k
is
) F+ c# D2 Y. X( d& Q& D3 ?' f part, GlobalDistObj, assignLObj:object;row,Lan:integer;' T, y1 d) ^: e2 j
do; k$ \+ X! e# x! b" O/ w' l* F/ g6 ?
Lan := rootfolder.Internal.Tools.AOLlanguage;
) T1 A+ A7 G2 \- T# b! {- T, q if current = @.Destination -- else return
; D1 \9 A( i, O# [ then+ F, M# a0 U2 t6 Z
@.Destination := void;5 @& X9 N+ g+ [% z$ q2 X
if @.occupied then) p1 b" |% F2 |: ~% p: ^
part := @.cont;
) ]+ C. a- S1 e" w- Y' ] @.transpOrder := void;" B& `4 Z5 J* m: r6 k- D @
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,$ i- `0 \6 y- d
@,root.eventcontroller.simTime);
( j- ]$ X$ V- O( N. ^ @.HasOrder := false;
2 f! }8 W/ j) ~. s" b @.DrivingHome := true;
# w7 [; z' ]6 D; u r7 _8 @ rgManager.tryToStartTransOrder;( Q7 o3 `$ {2 q2 I: l- r* A& V, o
if @.Destination = void
3 \: O9 d# V z then -- no transport order for vehicle @
% x2 L/ n: c7 R# k) R+ e, {8 _ @.Destination :=$ y, j# k- H6 p8 F! i
rgManager.nearestFreeStation(@,track.~);: e' y9 @' }7 Q- {: a6 y. |1 u5 m
newDirection(@); + E+ j& F) n7 j- u9 a, d) H
if @.Destination /= void then- }! T- \/ Y/ |, c- ]! d; {/ [
@.Destination.NumReservation :=" t' q+ S! X' m) v7 G
@.Destination.NumReservation + 1;4 {" k% g8 ~7 Y
end;
+ g/ O$ T- @: N- r0 E0 e @.CurrIcon := "drivingHome";
6 o! n: R4 F8 I @.DrivingHome := true;
/ \; P2 g; [$ @0 l end;
; X: u2 E9 t+ O& P) B' m else -- the vehicle @ is empty, both vehicle and part are in the same dock station
) n, n; @2 v6 v1 D& o: O part := @.transpOrder;" ^2 M; c5 x( q8 o( t* _/ T
part.move(@);-- load part& t. S; H' j# ~5 b
@.CurrIcon := "load";
! F) H4 Y8 L! B GlobalDistObj := part.globDestination;+ n+ Z- K' y; G* `) B2 k3 }; T
assignLObj := rgmanager.rgAssignL;$ y# }- Q; v. l+ X0 }
row := assignLObj.getRowNo(GlobalDistObj);
5 t0 ]5 ~& t |6 Q% M2 _. L if Row = -1 then -- since 70
* h- _: I$ d2 E if lan=1 then
' M6 f$ `; a& `$ R6 w promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),6 |1 c4 F' e ^- ^% i0 h
to_str("in der Andockstation: \"",?.~.name,"\""));1 @& R) P8 F. g: W4 p5 ]. v; n
else
' H( u: e- p! v. U5 c promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),& w! p0 |4 q3 B j5 R2 m; S0 K
to_str("in docking station: \"",?.~.name,"\"")); ! x0 T* f1 Q& a
end;
% ~5 A3 `) V/ c2 y$ `" b else4 x9 C. A3 r. q U; p# X! V7 l
@.Destination := assignLObj[1,row];
4 g1 {8 ~0 R( K0 b# C: o end; * g; z1 N" `" ]! Z7 E: C& j
newDirection(@);& m* {. c" Y3 ?: r& K* R9 g
@.HasOrder := true;9 B5 g4 y& U' k; u
end;+ ~( a9 `" T8 ^) R6 H0 }1 Y1 {
end;! K5 h% R1 Q/ N" E4 A( [+ I" y) t) U
end; -- of the method
: l9 n) b8 K+ x# F) V |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
