/* called by: entrance ctrl of the object 'track'
- F: B9 U% y8 A, y*/
+ t, T4 j! E8 L2 C* i b) E0 gis" x* C! k& c$ t: d# M R
part, GlobalDistObj, assignLObj:object;row,Lan:integer;: I/ m+ j4 K( s. G
do
1 j: C* U4 `6 [ _2 A' Z Lan := rootfolder.Internal.Tools.AOLlanguage;
1 i8 v7 Y* R7 G: N' l# v8 A% H if current = @.Destination -- else return! i4 z( I1 `4 w
then( {+ a+ Y9 a* t
@.Destination := void;
( U6 z0 j& e. t2 {' I; Z if @.occupied then+ Z" f) b/ ]% S! o0 O& p
part := @.cont;
5 R" K: O0 R3 m$ Y) V4 M @.transpOrder := void;
' R* t/ P; f- s; z0 J5 V part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
" n! k5 @) |' K8 @ @,root.eventcontroller.simTime);
! p! e |9 E0 L9 e/ h @.HasOrder := false;/ ]# E4 l6 ~) F9 W- X+ s
@.DrivingHome := true;
' O) n+ ^- x; g& U9 B. _ rgManager.tryToStartTransOrder;
' G; ~* O. _ U( n if @.Destination = void
8 x( ]& r2 a4 e" h then -- no transport order for vehicle @1 N* i$ e& I+ J( b7 x
@.Destination :=. g. e7 H; @0 Q' X1 P0 k
rgManager.nearestFreeStation(@,track.~);
2 I7 z6 z- \4 Z& f! H( q2 a- h N newDirection(@); ( k8 n8 R, Q+ T7 Y$ u& o' V
if @.Destination /= void then* _6 i& u1 x8 b; u! z9 i
@.Destination.NumReservation :=" v- N! q) Z9 s0 G3 Y9 [% k0 u
@.Destination.NumReservation + 1;
% S: R$ t; z q# ^. y end;
- y% O* X; B; P- C0 O5 K- y @.CurrIcon := "drivingHome";
% s; I: O' M+ P @.DrivingHome := true;
' n; r# e/ u6 i end;2 m/ f G4 R2 x/ W# B9 z1 Z
else -- the vehicle @ is empty, both vehicle and part are in the same dock station C4 @9 G. W" x3 W1 {) L: H
part := @.transpOrder;
7 N9 }' n8 g" R4 O3 g part.move(@);-- load part
) i4 H" w4 P, J @.CurrIcon := "load";8 A/ c' a5 t1 G, B: \0 I7 d
GlobalDistObj := part.globDestination;
( G) {" i! \* h' B0 b- \+ j, o% R3 y assignLObj := rgmanager.rgAssignL;6 a0 N/ p5 c+ o$ Y/ f7 g
row := assignLObj.getRowNo(GlobalDistObj);
: m$ J; a' ~% A# Q if Row = -1 then -- since 70
3 _7 Y! r. u# x! t- w if lan=1 then0 a. A) R, {& }* e
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),+ p. S0 }3 r, ^3 p
to_str("in der Andockstation: \"",?.~.name,"\""));! E2 Q& f# h! A0 x( b
else
~. W0 o" U: b7 @ promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),2 X) z8 d5 w- Q9 s
to_str("in docking station: \"",?.~.name,"\""));
, G; O$ |. E. a2 @1 c end;
& J+ W7 u. W: b7 P: j else
& F; T r% D% Z- @ @.Destination := assignLObj[1,row];( s6 w5 m9 ?- h' Z! A
end;
# ~, b3 T6 { p3 u5 _ newDirection(@);
9 F% K6 O: U) r" z @.HasOrder := true;% ^% E- @8 O/ L: j; z0 R
end;
6 b! P5 J" [5 Z b end;
! @. E9 e* E3 ]# ?: m. E6 ^7 |end; -- of the method- [ p [* z) W( p4 r
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
