/* called by: entrance ctrl of the object 'track'
t9 `1 |/ C* z! X# G) l3 {*/- Y5 Q7 ]) y! f) j e" Y
is
6 F% v% F8 `+ ]# z- P4 J part, GlobalDistObj, assignLObj:object;row,Lan:integer;
" v) l3 ^- h$ U& N$ ~do; J; I/ @6 i7 }' ^0 h0 P
Lan := rootfolder.Internal.Tools.AOLlanguage;
) I/ P1 \- i" l) K7 [9 z if current = @.Destination -- else return
- y2 Y: P$ }; l6 e then
* e6 E0 u* v# I$ |5 E: [ @.Destination := void;
( h9 D1 f- ~5 v if @.occupied then, w6 }1 i% G% Z9 }
part := @.cont;7 b" w) D' x- |6 u) W) }
@.transpOrder := void;% v, l2 v1 c. E/ e n
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,# B% ]3 q$ K. B' h1 i, `- Q
@,root.eventcontroller.simTime);! ` M; O' W; r, F2 S9 t7 y, W; j
@.HasOrder := false;; `2 j5 u# U3 H4 y
@.DrivingHome := true;! E v. t! Q/ }
rgManager.tryToStartTransOrder;# w' M4 b3 {! o k# A3 _
if @.Destination = void: t! h: @8 g# T) A G2 M! g" K
then -- no transport order for vehicle @
2 r% c1 H: Q+ m: J+ P6 c1 y @.Destination :=: e1 T1 c! ~! ]) z6 D9 L
rgManager.nearestFreeStation(@,track.~);
! A0 q1 B; c. ^8 G/ @ newDirection(@);
$ F! @/ d# v, @8 A) U if @.Destination /= void then
6 P+ j: b+ A0 f @.Destination.NumReservation :=
, f1 p3 |) y) X @.Destination.NumReservation + 1;
- I9 x! e$ c- |. b, t5 ~ end;6 E/ X/ J: U' N! y2 d
@.CurrIcon := "drivingHome";. Q7 G) ^! {2 u! z% s0 a
@.DrivingHome := true; f0 o# K0 t8 _! A# H) R7 R& O
end;
2 s) j7 y2 R J* f1 e' m else -- the vehicle @ is empty, both vehicle and part are in the same dock station
# M+ I$ z: E- I: p part := @.transpOrder;
; x. B/ [! J+ R part.move(@);-- load part
5 s) S9 H5 z; { @.CurrIcon := "load";
( D" W" n% _0 {5 F0 M GlobalDistObj := part.globDestination;% f Q- q" Q, a$ l* j3 {" k) r; h' I
assignLObj := rgmanager.rgAssignL;
; F! z3 d% i0 [5 S* r6 L% m row := assignLObj.getRowNo(GlobalDistObj);
2 q' u; ^# |& p4 d9 K- \ if Row = -1 then -- since 70+ T$ a7 U( I' X- _4 i, g
if lan=1 then2 w d: I& m1 ^) I
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),5 u0 k8 p' X5 |) t2 k, v* C V
to_str("in der Andockstation: \"",?.~.name,"\""));
d9 B, E: J: ~% l* d; v! K else; A1 I8 c) Q: K3 D& N
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),3 O5 I$ `. |/ \. }5 F
to_str("in docking station: \"",?.~.name,"\""));
; M+ q# W$ d2 l5 K! _! I6 c$ V+ \. U' D end;
! q Y( F1 ~) E x6 L else/ p! u4 Q" C |' i3 _$ T
@.Destination := assignLObj[1,row];' @: j8 C u; {9 F; X* U
end;
8 B, ~, c$ U) E# W newDirection(@);) D! s1 v) x' R3 g, i( d2 G
@.HasOrder := true;: v& a6 s! B' x
end;
3 O8 X# q, n5 H7 q end;
, I# I5 j1 h* e/ jend; -- of the method' @8 w4 x* W6 C7 _
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
