Weltzonen / Worldzones

MODULE M_Worldzones
    !Variabeln setzen
    
    VAR wztemporary WZ_Rollenbahn1;
    VAR wztemporary WZ_Rollenbahn2;
    VAR wztemporary WZ_Rollenbahn3;
    VAR wztemporary WZ_Rollenbahn4;
    VAR wztemporary WZ_Rollenbahn5;
    VAR wztemporary WZ_Ausrichttisch;
    VAR wztemporary WZ_Tisch1;
    VAR wztemporary WZ_Tisch2; 
    
PROC WorldZone_Aktivieren()
    
    VAR shapedata WorldZone_RB1;
    VAR shapedata WorldZone_RB2;
    VAR shapedata WorldZone_RB3;
    VAR shapedata WorldZone_RB4;
    VAR shapedata WorldZone_RB5;
    VAR shapedata WorldZone_AT;
    VAR shapedata WorldZone_T1;
    VAR shapedata WorldZone_T2;
    
    CONST pos RB_1_corner1:=[9485,-1500,-784];
    CONST pos RB_1_corner2:=[8313,-5031,3000];
    
    CONST pos RB_2_corner1:=[7930,-1500,-784];
    CONST pos RB_2_corner2:=[6690,-5031,3000];
    
    CONST pos RB_3_corner1:=[3658,-1500,-784];
    CONST pos RB_3_corner2:=[2409,-5031,3000];
    
    CONST pos RB_4_corner1:=[2058,-1500,-784];
    CONST pos RB_4_corner2:=[809,-5031,3000];
    
    CONST pos RB_5_corner1:=[460,-1500,-784];
    CONST pos RB_5_corner2:=[-791,-5031,3000];
    
    CONST pos Ausrichttisch_corner1:=[6690,-1500,-784];
    CONST pos Ausrichttisch_corner2:=[3658,-5031,3000];
    
    CONST pos Tisch1_corner1:=[9650,540,-1000];
    CONST pos Tisch1_corner2:=[5060,4000,3000];
    
    CONST pos Tisch2_corner1:=[5060,4000,3000];
    CONST pos Tisch2_corner2:=[-350,540,-1000];
    
    
    !Rollenbahn 1
    WZBoxDef\Inside,WorldZone_RB1,RB_1_corner1,RB_1_corner2;
    WZDOSet\temp,WZ_Rollenbahn1\Inside, WorldZone_RB1,WZ_RB1,1;
    
    !Rollenbahn 2
    WZBoxDef\Inside,WorldZone_RB2,RB_2_corner1,RB_2_corner2;
    WZDOSet\temp,WZ_Rollenbahn2\Inside, WorldZone_RB2,WZ_RB2,1;
    
    !Rollenbahn 3
    WZBoxDef\Inside,WorldZone_RB3,RB_3_corner1,RB_3_corner2;
    WZDOSet\temp,WZ_Rollenbahn3\Inside, WorldZone_RB3,WZ_RB3,1;
    
    !Rollenbahn 4
    WZBoxDef\Inside,WorldZone_RB4,RB_4_corner1,RB_4_corner2;
    WZDOSet\temp,WZ_Rollenbahn4\Inside, WorldZone_RB4,WZ_RB4,1;
    
    !Rollenbahn 5
    WZBoxDef\Inside,WorldZone_RB5,RB_5_corner1,RB_5_corner2;
    WZDOSet\temp,WZ_Rollenbahn5\Inside, WorldZone_RB5,WZ_RB5,1;
    
    !Ausrichttisch
    WZBoxDef\Inside,WorldZone_AT,Ausrichttisch_corner1,Ausrichttisch_corner2;
    WZDOSet\temp,WZ_Ausrichttisch\Inside, WorldZone_AT,WZ_AT,1;
    
    !Tisch 1
    WZBoxDef\Inside,WorldZone_T1,Tisch1_corner1,Tisch1_corner2;
    WZDOSet\temp,WZ_Tisch1\Inside, WorldZone_RB1,WZ_T1,1;
    
    !Tisch 2
    WZBoxDef\Inside,WorldZone_T2,Tisch2_corner1,Tisch2_corner2;
    WZDOSet\temp,WZ_Tisch2\Inside, WorldZone_RB1,WZ_T2,1;
    
    
ENDPROC
  
ENDMODULE