Script-Datei von Marcel

bobjunior99 · 24. Mai 2020

Hey

da ich gerade im Content-Tool hänge und ganz rudimentäre Scripteinstellungen treffe, wollte ich auch die Dateien StdElements und TechElements importieren. Bei den sdtElements zeigt mir das Content-Tool den Fehler "Kopilierung nicht erfolgreich [Error](1:1): Unexcepted end of file" an und bei den TechElements kommt die Fehlermeldung "Kopilierung nicht erfolgreich [Error](20:17): Unknown identifier 'FloatToBool' an.

Was mache ich falsch?

Hier sind die (zumindest wenn ich das richtig verstehe) fehlerhaften Zeilen

Code

const

Code

procedure Switch_Toggle(var sw: TSwitch);
begin
sw.Pos := 1 - sw.Pos;
if not sw.Broken then
sw.Value := FloatToBool(sw.Pos);
end;

Teneberus · 24. Mai 2020

Hallo.

Das sind beides keine kompletten Scripte.

Die sind dafür gedacht, mittels

Code

{$I StdElements.pas}
{$I TechElements.pas}

in dein Hauptscript eingebunden zu werden. Das Hauptscript ist dann auch das einzige, das du importieren musst.

Zu den Fehlermeldungen:

FloatToBool ist eine Funktion, die in StdElements.pas definiert ist, deshalb muss die auch vor TechElements.pas eingebunden werden, sonst kennt letzterer die nicht.

"Unexcepted end of file": Das Script muss mit einem "end." enden.

Siehe auch Script-System im Lexikon.

bobjunior99 · 24. Mai 2020

Das

Zitat von Teneberus

Hallo.

Das sind beides keine kompletten Scripte.

Die sind dafür gedacht, mittels

Code

{$I StdElements.pas}

{$I TechElements.pas}

in dein Hauptscript eingebunden zu werden. Das Hauptscript ist dann auch das einzige, das du importieren musst.

Ja, ich weiß, dass ich die einbinden muss, dass habe ich auch gemacht. Allerdings akzeptiert er dass aus igredneinem Grund nicht bzw. der Text, den du geschrieben hast, wird mir in PsPad rot angezeigt.

Und wenn ich dann meine Main Datei importieren will, kommt der Fehler "Kopilierung nicht erfolgreich [Error]TechElements.pas(420:24): Unknown identefier 'a_ground'

auch hier die entsprechenden Zeilen dazu:

Code

begin
with door do
begin
snd_openlimit := false;
snd_closed_with_handle := false;
snd_closed_without_handle := false;
snd_handle_down := false;
snd_handle_up := false;
door_free := (blade.state > 0.04) or handle_pressed;
if door_free then
blade.force := 2*a_ground*sin(blade.state + dir_of_closed_rad) (*)
else
blade.force := 0;
if not door_free then
blade.grabbing := false;
bumpspeed := InertionSlider_SimStep_GetBumpSpeed(blade, grappingdelta);
if abs(bumpspeed) > 0.0001 then
begin
snd_speed := abs(bumpspeed);
if bumpspeed > 0 then
snd_openlimit := true
else if handle_pressed then
snd_closed_with_handle := true
else
snd_closed_without_handle := true;
end
else
snd_speed := abs(blade.speed);
handle_pos_pre := handle_pos;
handle_pos := BoolToFloat(handle_pressed and (blade.state < 0.2));
if (handle_pos > 0.5) and (handle_pos_pre < 0.5) then
snd_handle_down := true;
if (handle_pos < 0.5) and (handle_pos_pre > 0.5) then
begin
snd_handle_up := true;
if not door_free then
begin
if blade.state > 0.001 then
begin
snd_closed_without_handle := true;
snd_speed := 1;
end;
blade.state := 0;
blade.speed := 0;
end;
end;
end;
end;

Alles anzeigen

Die wo das Sternchen hinter ist, ist Zeile 420

Teneberus · 24. Mai 2020

a_ground muss ja auch noch in der "PUBLIC_VARS"-Sektion deklariert werden. Siehe System-Scriptvariablen und -Events bzw. genauer unter Punkt 2.1.

bobjunior99 · 24. Mai 2020

So, nächste Fehlermeldung

Und zwar soll in dieser Zeile ein Fehler sein

Code

procedure Simstep;
begin
Erweiterung_Simstep;
end;

bzw. die Erweiterung Simstep soll nicht richtig initalisiert worden sein

Kira · 24. Mai 2020

dafür fallen mir auf die schnelle 2 Fehlerquellen ein:

1. Die Erweiterung_Simstep ist in einer Datei die (noch) nicht eingebunden ist.

2. (und wohl wahrscheinlicher) Die Erweiterung_Simstep steht erst nach der SimStep Prozedur im Script, in dem Fall kann die SimStep beim ersten Durchlauf ja noch nichts von dieser Prozedur wissen und darum kommt dann die Fehlermeldung

bobjunior99 · 24. Mai 2020

Zitat von Kira

dafür fallen mir auf die schnelle 2 Fehlerquellen ein:

1. Die Erweiterung_Simstep ist in einer Datei die (noch) nicht eingebunden ist.

War tatsächlich der Fehler

Doch der nächste kommt direkt hinterher geflogen. Und zwar fehlt in dieser Zeile irgendwo ein Semikolon:

Code

begin Erweiterung_OnButton (id; value);

Helmut · 24. Mai 2020

Meine Pascal-Tage sind ein paar Jahrzehnte her, aber vom Gefühl her ist da ein Semikolon zuviel statt zuwenig.

Wenn das nach dem "begin" ein Prozeduraufruf sein soll, müsste es dann nicht "Erweiterung_OnButton (id, value);" sein?

Marcel Kuhnt · 25. Mai 2020

Zitat von Helmut

Wenn das nach dem "begin" ein Prozeduraufruf sein soll, müsste es dann nicht "Erweiterung_OnButton (id, value);" sein?

Genau so ist es!

bobjunior99 · 25. Mai 2020

So Leute, Pascal mag mich echt gerne.

Jetzt bekomme ich den Fehler "Unknown Identefier" in Zeile 43 (Doppeltes Sterchen) beim CP_Taste_Klingel

Was habe ich falsch gemacht?

Hier einmal ein Teil meiner Erweiterung, alles wo das Sterchen ist, steht irgendwas mit der Klingel:

Code

var
TS_Klingel: TPushbutton; (*)
// Lichthupe
TS_Lichthupe: TPushbutton;
//Notbremse
TS_Notbremse: TPushbutton;
// Warnblinkanlage
TS_Warnblinkanlage: TPushbutton;
// Warnsignal
TS_Warnsignal: TPushbutton;
// Stepswitch
SW_Blinker: TStepSwitch;
// Simstep
procedure Erweiterung_Inditialize;
begin
SW_Blinker.A := 1;
SW_Blinker.B := -1;
end;
procedure Erweiterung_Simstep;
begin
// PushButtons
CP_Taste_Lichthupe := TS_Lichthupe.Pos;
CP_Taste_Notbremse := TS_Notbremse.Pos;
CP_Taste_Warnblinkanlage := TS_Warnblinkanlage.Pos;
CP_Taste_Warnsignal := TS_Warnsignal.Pos;
CP_Taste_Klingel := TS_Klingel.Pos; (**)
// Stepswitch
SW_Taste_Blinker := SW_Blinker.Pos;
end

Alles anzeigen

Und hier das, was bezüglich der Klingel in der Main-Datei steht:

Code

CP_Taste_Klingel: single; (*)

Helmut · 25. Mai 2020

Wenn dir die Zeile 43 angemault wird, dann würde ich mal dieses "end" anschauen, das ist eigentlich ohne ";" oder "." dahinter eher selten.

Sofern mich meine Erinnerung nicht trügt, läßt man in Pascal den ";" nur unmittelbar vor einem "else" weg und das hat sich glaube ich in späteren Implementierungen auch gelockert.

Janine 24. Mai 2020