Ich habe in den Letzten Tagen mal einen Anfang eines Fahrzeug Scripts Angefangen.
Nun habe ich seit ich Eine Tueren.pas Datei hinzugefügt, welche noch keinerlei "Richtige" Einträge enthält und auf einmal Bekomme Ich den Fehler Identifier expected in Zeile 86( bezieungsweise die Erste procedure nach den Public Buttons)! Voher funktionierte noch alles Tadellos und Ist meines Erachtens auch nicht Falsch.
Main Script :
Code
- {PUBLIC_VARS
- FuehrerTuer_R: single;
- FuehrerTuer_L: single;
- Tuer_L_1_1: single;
- Tuer_L_1_2: single;
- Tuer_L_2_1: single;
- Tuer_L_2_2: single;
- Tuer_L_3_1: single;
- Tuer_L_3_2: single;
- Tuer_R_1_1: single;
- Tuer_R_1_2: single;
- Tuer_R_2_1: single;
- Tuer_R_2_2: single;
- Tuer_R_3_1: single;
- Tuer_R_3_2: single;
- v_Axle_mps_17,0_0: single;
- v_Axle_mps_17,0_1: single;
- v_Axle_mps_17,1_0: single;
- v_Axle_mps_17,1_1: single;
- v_ground: single;
- a_ground: single;
- M_Axle_N_0_0: single;
- M_Axle_N_0_1: single;
- M_Axle_N_1_0: single;
- M_Axle_N_1_1: single;
- MBrake_Axle_N_0_0: single;
- MBrake_Axle_N_0_1: single;
- MBrake_Axle_N_1_0: single;
- MBrake_Axle_N_1_1: single;
- CP_Throttle_full: single;
- CP_bremse: single;
- CP_Umschalthebel: single;
- CP_Bremshebel: single;
- CP_Tuerschliesser: single;
- }
- {PUBLIC_BUTTONS
- Throttle_full;
- ME_Fuehrertuer_L;
- ME_Fuehrertuer_R;
- ME_Fuehrertuer_L_zu;
- ME_Fuehrertuer_R_zu;
- Throttle;
- Neutral;
- Brake;
- EmergancyBrake;
- MaxBrake;
- Tuerschliesser;
- Umschalthebel_plus;
- Umschalthebel_minus;
- Bremshebel_plus;
- Bremshebel_minus;
- ME_Tuer_L_1_1;
- ME_Tuer_L_1_2;
- ME_Tuer_L_2_1;
- ME_Tuer_L_2_2;
- ME_Tuer_L_3_1;
- ME_Tuer_L_3_2;
- ME_Tuer_R_1_1;
- ME_Tuer_R_1_2;
- ME_Tuer_R_2_1;
- ME_Tuer_R_2_2;
- ME_Tuer_R_3_1;
- ME_Tuer_R_3_2;
- }
- {$I StdElements.pas}
- {$I TechElements.pas}
- {$I Cockpit.pas}
- {$I Fahrschalter.pas}
- {$I Tueren.pas}
- ;
- procedure Initialize;
- begin
- Cockpit_Initialize;
- Fahrschalter_Initialize;
- Tueren_Initialize;
- end
- ;
- procedure SimStep;
- begin
- Cockpit_SimStep;
- Fahrschalter_SimStep;
- end
- ;
- procedure OnButton(id: string; value: boolean; cockpitIndex: byte);
- begin
- Cockpit_OnButton(id, value);
- Fahrschalter_OnButton(id, value);
- Tueren_OnButton(id, value);
- end
- ;
- end.