/* called by: entrance ctrl of the object 'track'
# k/ x( \$ L' T*/
/ q! P. R/ d) Z, c4 o( v" _/ eis
1 \1 T" P4 H3 q3 a& s* j K part, GlobalDistObj, assignLObj:object;row,Lan:integer;! |3 G7 a( W2 S- m
do
) e1 }! a8 v# \$ j% S2 \! F Lan := rootfolder.Internal.Tools.AOLlanguage;
0 ^* c8 ?1 t! ? if current = @.Destination -- else return) u( ]. e7 Z1 f: f6 C: _2 T
then; O0 |6 ~% x4 E
@.Destination := void;
& y& w/ m: N: |# o& ? if @.occupied then
- h3 V9 _" m0 E part := @.cont;) o6 C) c+ J5 V/ q/ Q, H$ j: [
@.transpOrder := void;
% L+ E8 l9 t1 i* z part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
: Y( B/ `( u& y" {0 U @,root.eventcontroller.simTime);
+ E+ b+ U) P0 P/ R9 X; Q$ ]7 l, P" [ @.HasOrder := false;
9 L( X2 W9 j3 W6 n. _ @.DrivingHome := true;
/ I5 Z, n* k5 |; I! q# v( V! f rgManager.tryToStartTransOrder;
) J, V, V6 U3 p( h if @.Destination = void
' x( g& a" n+ Z5 k) I* ]% r then -- no transport order for vehicle @5 C" S$ U* N! i- z, O
@.Destination :=
2 U2 d: Q6 n' u. K+ l8 O k rgManager.nearestFreeStation(@,track.~);6 C3 p- W( D$ V$ _
newDirection(@);
3 Q' {8 b$ c% R5 B+ J7 f if @.Destination /= void then
5 ~5 u. ^# I ?, Z3 w @.Destination.NumReservation :=3 K6 m( a g- \/ P/ x
@.Destination.NumReservation + 1;
9 K1 i2 S/ B s | V5 G7 @ [ end;
) g1 H8 i9 i; q9 v( ] @.CurrIcon := "drivingHome";! I# B1 r4 ?' u- c" V
@.DrivingHome := true;" b3 t/ W: E9 U* H% }. B$ c% C! S" X$ K
end;
' I7 ?) P/ P" p6 q else -- the vehicle @ is empty, both vehicle and part are in the same dock station
2 y! [5 @8 y+ {; ~* U+ i0 M4 E part := @.transpOrder;( s# P! z% E3 m: F
part.move(@);-- load part
4 v) o: Z! ^+ n @.CurrIcon := "load";& U9 @% F& @2 X# V
GlobalDistObj := part.globDestination;; t1 ?, J& E4 K. Y
assignLObj := rgmanager.rgAssignL;
# w- |* b& O2 e- }5 x row := assignLObj.getRowNo(GlobalDistObj);# D; G: u3 i/ X- u
if Row = -1 then -- since 70
+ d" k3 c% ^: S+ [1 b1 F if lan=1 then
0 D9 f# a+ Z" [; | promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
. S) d6 g0 q# J3 Z. i% c to_str("in der Andockstation: \"",?.~.name,"\""));
; n% z2 G9 y5 M5 l else3 B" {7 U2 ]8 P- f- g. M
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),/ t$ t9 ]& ?- X
to_str("in docking station: \"",?.~.name,"\""));
* u" P9 D( s/ ?$ V X+ x end;6 ^" U. C* Q/ J: W1 l
else$ q0 |! \9 k' D# }1 m
@.Destination := assignLObj[1,row];
3 S3 c. y1 {, s; ~/ @ end; * Y& n; g: H3 T, X6 s/ R
newDirection(@);9 _. o f6 ]8 f4 s0 i' T* R. q* O
@.HasOrder := true;
6 j0 g# ?( @ r: M7 R3 L0 B5 h: P end;
! {$ |- S2 O; b3 N8 ^2 t, L, J end;7 E8 _7 q4 s9 `( j. X- C, K
end; -- of the method
) i9 z* L. r# q) ^' f& i& v9 ~( _ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
