Also,
da ich aus dem Lexikon nicht schlauer wurde, frage ich mal hier.
Ich habe mich jetzt rangewagt an das Scripten meiner Bahn und habe mal mit etwas einfachen angefangen, heißt die Türen(Weil es da so ein schönen Lexikoneintrag gibt)
Da wurde eine SimStep-Prozedur erstellt. Nur frage ich mich, wie bekomme ich es jetzt so hin, dass diese auf dem Knopfdruck DoorAllOpen geöffnet wird?
Hier mal das Script:
{PUBLIC_VARS
Door_1_pos_x: single;
Door_1_pos_y: single;
}
{PUBLIC_BUTTONS
DoorAllOpen;
DoorAllClose;
}
{$I StdElements.pas}
{$I TechElements.pas}
const
DOOR_SPEED_S = 0.5;
DOOR_LIFT_PART = 0.1;
var
Door_1_target: boolean;
Door_1_pos: single;
procedure tuereL1L_SimStep;
begin
if door_1_target then
begin
if Door_1_pos < 1 then
Door_1_pos := door_1_pos + 1/DOOR_SPEED_S * Timegap
else
Door_1_pos := 1;
end
else
begin
if Door_1_pos > 0 then
Door_1_pos := Door_1_pos - 1/DOOR_SPEED_S * Timegap
else
Door_1_pos := 0;
end;
if Door_1_pos < DOOR_LIFT_PART then
begin
Door_1_pos_x := Door_1_pos * 1/DOOR_LIFT_PART;
Door_1_pos_y := 0;
end
else
begin
Door_1_pos_x := 1;
Door_1_pos_y := (Door_1_pos - DOOR_LIFT_PART) * 1/(1-DOOR_LIFT_PART)
end;
end;
end.
Kann mir da jemand helfen?
Gruß
Fabian