ulfgebhardt/delphi_ampel
1
0
Fork 0
mirror of https://github.com/ulfgebhardt/delphi_ampel.git synced 2025-12-12 23:35:54 +00:00
Code Issues Packages Projects Releases Wiki Activity
delphi_ampel/functions.pas
Ulf Gebhardt 1b2e331439 initial commit
2018-02-11 17:32:47 +01:00

591 lines
22 KiB
ObjectPascal
Raw Permalink Blame History

unit functions;
interface
uses ampelu, splashu, optionsu, newclasses, vars, Windows, extctrls,dialogs,sysutils;
procedure setOptions(Autos,Fussgaenger:boolean);
procedure setAndCreateStandarts;
procedure bindImagesToAmpelSystem;
procedure setImagesToForm;
procedure FussgaengerKnopf;
procedure ProgrammBeenden;
procedure setAutosReadyToStart;
procedure stopAutoTimer;
procedure StartAutoTimer;
procedure AutoTimerR;
procedure AutoTimerL;
procedure setFussgaengerReadyToStart;
procedure FussgaengertimerO;
procedure setAmpelPlaetzeReadyToStart;
implementation
procedure FussgaengertimerO;
var i,j:integer;
begin
for i:=0 to AnzahlDerFussgaengerO-1 do
begin
if (random(3)=0) and (fAmpel.FussgaengerO[i].Active=false) then
begin
j:=0;
repeat
if (fAmpel.FussgaengerO[i].Active=false) and (fAmpel.AmpelPlaetzeO[j].Besetzt=false) then
begin
fAmpel.AmpelPlaetzeO[j].Besetzt:=true;
fAmpel.FussgaengerO[i].Active:=true;
fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz:=j;
fAmpel.FussgaengerO[i].Image.Top:=-40;
fAmpel.FussgaengerO[i].Image.Left:=random(fAmpel.Width);
fAmpel.FussgaengerO[i].momSpeedx:=(fAmpel.AmpelPlaetzeO[j].X-fAmpel.FussgaengerO[i].Image.Left) div fAmpel.FussgaengerO[i].Speed;
fAmpel.FussgaengerO[i].momSpeedy:=(fAmpel.AmpelPlaetzeO[j].Y-fAmpel.FussgaengerO[i].Image.Top) div fAmpel.FussgaengerO[i].Speed;
end;
inc(j);
until j>=AnzahlDerAmpelPlaetzeO;
end;
if (fAmpel.FussgaengerO[i].Active=true) and (fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz<>-1) then
begin
if (fAmpel.FussgaengerO[i].Image.left<fAmpel.AmpelPlaetzeO[fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz].X-5) or (fAmpel.FussgaengerO[i].Image.left>fAmpel.AmpelPlaetzeO[fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz].X+5) then
begin
if (fAmpel.FussgaengerO[i].Image.Top<fAmpel.AmpelPlaetzeO[fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz].Y-5) or (fAmpel.FussgaengerO[i].Image.Top>fAmpel.AmpelPlaetzeO[fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz].Y+5) then
begin
fAmpel.FussgaengerO[i].Image.Top:=fAmpel.FussgaengerO[i].Image.Top+fAmpel.FussgaengerO[i].momSpeedy;
fAmpel.FussgaengerO[i].Image.Left:=fAmpel.FussgaengerO[i].Image.Left+fAmpel.FussgaengerO[i].momSpeedx;
end else
begin
if fAmpel.AmpelSystem.FUAmpel.State=false then
begin
fAmpel.FussgaengerO[i].Image.Left:=fAmpel.AmpelPlaetzeO[fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz].X;
fAmpel.FussgaengerO[i].Image.Top:=fAmpel.AmpelPlaetzeO[fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz].Y;
if fAmpel.AmpelSystem.Changing=false then
begin
fussgaengerknopf;
fAmpel.FussgaengerO[i].AufStrasse:=true;
end
end else
begin
fAmpel.FussgaengerO[i].Image.Top:=fAmpel.FussgaengerO[i].Image.Top+10;
end;
end;
end;
end;
if (FAmpel.AmpelSystem.FUAmpel.State) and (fAmpel.FussgaengerO[i].active=true) and (fAmpel.FussgaengerO[i].AufStrasse=true) then
begin
fAmpel.FussgaengerO[i].Image.Top:=fAmpel.FussgaengerO[i].Image.Top+fAmpel.FussgaengerO[i].Speed div 5+3;
if fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz<>-1 then
begin
fAmpel.AmpelPlaetzeO[fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz].Besetzt:=false;
fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz:=-1;
end;
end;
if (FAmpel.FussgaengerO[i].Image.top>FAmpel.Height+100) and (fAmpel.FussgaengerO[i].active=true) and (fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz=-1) then fAmpel.FussgaengerO[i].Active:=false else
begin
fAmpel.FussgaengerO[i].Active:=false;
fAmpel.FussgaengerO[i].AufStrasse:=false;
end;
end;
end;
procedure StopAutoTimer;
begin
fAmpel.tAutoTimer.Enabled:=false;
end;
procedure StartAutoTimer;
begin
fAmpel.tAutoTimer.Enabled:=true;
end;
procedure ProgrammBeenden;
var i:integer;
begin
stopAutoTimer;
fAmpel.AmpelSystem.Free;
for i:=0 to AnzahlDerAutosR-1 do fAmpel.AutosR[i].Free;
for i:=0 to AnzahlDerAutosL-1 do fAmpel.AutosL[i].Free;
for i:=0 to AnzahlDerFussgaengerO-1 do fAmpel.FussgaengerO[i].Free;
for i:=0 to AnzahlDerFussgaengerU-1 do fAmpel.FussgaengerU[i].Free;
for i:=0 to AnzahlDerAmpelPlaetzeO-1 do fAmpel.AmpelPlaetzeO[i].Free;
end;
procedure setAndCreateStandarts;
var i:integer;
begin
randomize;
fAmpel.AutoTimeri:=0;
fAmpel.AmpelTimeri:=0;
fAmpel.AmpelSystem:=TAmpelsystem.create;
fAmpel.DoubleBuffered:=true;
setlength(fAmpel.AutosR,AnzahlDerAutosR);
for i:=0 to AnzahlDerAutosR-1 do fAmpel.AutosR[i]:=TAuto.Create;
setlength(fAmpel.AutosL,AnzahlDerAutosL);
for i:=0 to AnzahlDerAutosL-1 do fAmpel.AutosL[i]:=TAuto.Create;
setlength(fAmpel.FussgaengerO,AnzahlDerFussgaengerO);
for i:=0 to AnzahlDerFussgaengerO-1 do fAmpel.FussgaengerO[i]:=TFussgaenger.create;
setlength(fAmpel.FussgaengerU,AnzahlDerFussgaengerU);
for i:=0 to AnzahlDerFussgaengerU-1 do fAmpel.FussgaengerU[i]:=TFussgaenger.create;
setlength(fAmpel.AmpelPlaetzeO,AnzahlDerAmpelPlaetzeO);
for i:=0 to AnzahlDerAmpelPlaetzeO-1 do fAmpel.AmpelPlaetzeO[i]:=TAmpelPlatz.create;
end;
procedure AutoTimerR;
var i,j:integer;
tempb:boolean;
begin
for i:=0 to AnzahlDerAutosR-1 do
begin
{ if (fAmpel.AutosR[i].momSpeed<>0) and (fAmpel.AutosR[i].momSpeed<>fAmpel.AutosR[i].Speed) and (fAmpel.AutosR[i].Fahrbahn=1) then
begin
fAmpel.AutosR[i].BlinkerL:=true;
fAmpel.AutosR[i].BlinkerR:=false;
//fAmpel.AutosR[i].Image.picture.loadfromfiel(...);
end;}
if fAmpel.Autotimeri>=i*50 then fAmpel.AutosR[i].Active:=true;
if (fAmpel.AutosR[i].Image.Left<=-1700) and (fAmpel.AutosR[i].Fahrbahn=2) then fAmpel.AutosR[i].Image.Left:=fAmpel.Width+1500+random(500);
if (fAmpel.AutosR[i].Image.Left<=-1000) and (fAmpel.AutosR[i].Fahrbahn=1) then fAmpel.AutosR[i].Image.Left:=fAmpel.Width+200+random(1200);
if (fAmpel.AmpelSystem.ARAmpel.State>0) and (fAmpel.AutosR[i].Image.left>=680) and (fAmpel.AutosR[i].Image.left<=700) then fAmpel.AutosR[i].momSpeed:=0;
if (fAmpel.AmpelSystem.ARAmpel.State=0) and (fAmpel.AutosR[i].momSpeed=0) then fAmpel.AutosR[i].momSpeed:=fAmpel.AutosR[i].speed;
if fAmpel.AutosR[i].momSpeed<>0 then
begin
if (fAmpel.AutosR[i].Image.left<=fAmpel.width+100) and (fAmpel.AutosR[i].image.left>=-300) then
begin
for j:=0 to AnzahlDerAutosR-1 do
begin
if (fAmpel.AutosR[i].Image.left<=fAmpel.AutosR[j].Image.Left+fAmpel.AutosR[j].Image.Width+10) and (fAmpel.AutosR[i].Image.left>=fAmpel.AutosR[j].Image.Left-10) and (i<>j) then
begin
if (fAmpel.AutosR[j].Fahrbahn=fAmpel.AutosR[i].Fahrbahn){ or (fAmpel.AutosR[j].Fahrbahn=3) }then
begin
fAmpel.AutosR[i].Speed:=fAmpel.AutosR[j].Speed;
if (fAmpel.AutosR[i].image.Left<=fAmpel.AutosR[j].image.Left+fAmpel.AutosR[j].image.Width) and (fAmpel.AutosR[i].image.Left>=fAmpel.AutosR[j].image.Left) then fAmpel.AutosR[i].image.Left:=fAmpel.AutosR[j].image.Left+fAmpel.AutosR[j].image.Width+10;
end;
end else
begin
if (fAmpel.AutosR[j].Fahrbahn=fAmpel.AutosR[i].Fahrbahn) or (fAmpel.AutosR[j].Fahrbahn=3) then
begin
if fAmpel.AutosR[i].Image.left>=fAmpel.AutosR[j].Image.Left+fAmpel.AutosR[j].Image.Width+10+fAmpel.AutosR[i].Speed then fAmpel.AutosR[i].momSpeed:=fAmpel.AutosR[i].Speed;
end;
end;
end;
end else fAmpel.AutosR[i].momSpeed:=fAmpel.AutosR[i].Speed;
end else
begin
for j:=0 to AnzahlDerAutosR-1 do
begin
if (fAmpel.AutosR[j].Image.left<=fAmpel.AutosR[i].Image.Left+fAmpel.AutosR[i].Image.Width+10) and (fAmpel.AutosR[j].Image.left>=fAmpel.AutosR[i].Image.Left) and (fAmpel.AutosR[j].Fahrbahn=fAmpel.AutosR[i].Fahrbahn) and (i<>j) then fAmpel.AutosR[j].momSpeed:=0;
end;
end;
{ tempb:=false;
for j:=0 to AnzahlDerAutosR-1 do
begin
if (j<>i) then
begin
if (fAmpel.AutosR[i].BlinkerL) then
begin
if (fAmpel.AutosR[j].Fahrbahn=2) then
begin
if(fAmpel.AutosR[i].Image.Left>fAmpel.AutosR[j].Image.Left+fAmpel.AutosR[j].Image.width*1.5) then
begin
if(fAmpel.AutosR[i].Image.Left+fAmpel.AutosR[i].Image.Width<fAmpel.AutosR[j].Image.Left) then tempb:=true else tempb:=false;
end else tempb:=false;
end else tempb:=true;
end;
end;
end; }
{for j:=0 to AnzahlDerAutosR-1 do
begin
if (j<>i) then
begin
if (fAmpel.AutosR[i].BlinkerR) then
begin
if (fAmpel.AutosR[j].Fahrbahn=1) then
begin
if(fAmpel.AutosR[i].Image.Left>fAmpel.AutosR[j].Image.Left+fAmpel.AutosR[j].Image.width*1.5) then
begin
if(fAmpel.AutosR[i].Image.Left+fAmpel.AutosR[i].Image.Width<fAmpel.AutosR[j].Image.Left) then tempb:=true else tempb:=false;
end else tempb:=false;
end else tempb:=true;
end;
end;
end;}
{ if tempb then
begin
fAmpel.AutosR[i].fahrbahn:=3;
fAmpel.AutosR[i].momSpeed:=fAmpel.AutosR[i].Speed+7;
end;}
{ if (fAmpel.AutosR[i].image.Top>=FahrbahnR2) and (fAmpel.AutosR[i].Fahrbahn=3) and (fAmpel.AutosR[i].BlinkerL) then
begin
fAmpel.AutosR[i].Fahrbahn:=2;
fAmpel.AutosR[i].momSpeed:=fAmpel.AutosR[i].Speed+7;
fAmpel.AutosR[i].Image.Top:=FahrbahnR2;
fAmpel.AutosR[i].BlinkerR:=true;
fAmpel.AutosR[i].BlinkerL:=false;
end;}
{ if (fAmpel.AutosR[i].image.Top<=FahrbahnR1) and (fAmpel.AutosR[i].Fahrbahn=3) and (fAmpel.AutosR[i].BlinkerR) then
begin
fAmpel.AutosR[i].Fahrbahn:=1;
fAmpel.AutosR[i].momSpeed:=fAmpel.AutosR[i].Speed;
fAmpel.AutosR[i].Image.Top:=FahrbahnR1;
fAmpel.AutosR[i].BlinkerR:=false;
fAmpel.AutosR[i].BlinkerL:=false;
end;}
{ if fAmpel.AutosR[i].Fahrbahn=3 then
begin
if fAmpel.AutosR[i].BlinkerL then fAmpel.AutosR[i].image.Top:=fAmpel.AutosR[i].image.Top+7;
if fAmpel.AutosR[i].BlinkerR then fAmpel.AutosR[i].image.Top:=fAmpel.AutosR[i].image.Top-5;
end;}
if fAmpel.AutosR[i].Active then fAmpel.AutosR[i].Image.Left:=fAmpel.AutosR[i].Image.Left-fAmpel.AutosR[i].momSpeed;
end;
end;
procedure AutoTimerL;
var i,j:integer;
tempb:boolean;
begin
for i:=0 to AnzahlDerAutosL-1 do
begin
{ if (fAmpel.AutosL[i].momSpeed<>0) and (fAmpel.AutosL[i].momSpeed<>fAmpel.AutosL[i].Speed) and (fAmpel.AutosL[i].Fahrbahn=1) then
begin
fAmpel.AutosL[i].BlinkerL:=true;
fAmpel.AutosL[i].BlinkerR:=false;
//fAmpel.AutosL[i].Image.picture.loadfromfiel(...);
end;}
if fAmpel.Autotimeri>=i*50 then fAmpel.AutosL[i].Active:=true;
if (fAmpel.AutosL[i].Image.Left>=FAmpel.Width+1500) and (fAmpel.AutosL[i].Fahrbahn=2) then fAmpel.AutosL[i].Image.Left:=-1700-random(500)-fAmpel.AutosL[i].Image.Width;
if (fAmpel.AutosL[i].Image.Left>=FAmpel.Width+200) and (fAmpel.AutosL[i].Fahrbahn=1) then fAmpel.AutosL[i].Image.Left:=-1000-random(1200)-fAmpel.AutosL[i].Image.Width;
if (fAmpel.AmpelSystem.ALAmpel.State>0) and (fAmpel.AutosL[i].Image.left>=148) and (fAmpel.AutosL[i].Image.left<=158) then fAmpel.AutosL[i].momSpeed:=0;
if (fAmpel.AmpelSystem.ALAmpel.State=0) and (fAmpel.AutosL[i].momSpeed=0) then fAmpel.AutosL[i].momSpeed:=fAmpel.AutosL[i].speed;
if fAmpel.AutosL[i].momSpeed<>0 then
begin
if (fAmpel.AutosL[i].Image.left<=fAmpel.width+100) and (fAmpel.AutosL[i].image.left>=-300) then
begin
for j:=0 to AnzahlDerAutosL-1 do
begin
if (fAmpel.AutosL[i].Image.left+fAmpel.AutosL[i].Image.Width+10>=fAmpel.AutosL[j].Image.Left) and (fAmpel.AutosL[i].Image.left<=fAmpel.AutosL[j].Image.Left+10) and (i<>j) then
begin
if (fAmpel.AutosL[j].Fahrbahn=fAmpel.AutosL[i].Fahrbahn){ or (fAmpel.AutosL[j].Fahrbahn=3) }then
begin
fAmpel.AutosL[i].Speed:=fAmpel.AutosL[j].Speed;
if (fAmpel.AutosL[i].image.Left+fAmpel.AutosL[i].image.Width>=fAmpel.AutosL[j].image.Left) and (fAmpel.AutosL[i].image.Left<=fAmpel.AutosL[j].image.Left) then fAmpel.AutosL[i].image.Left:=fAmpel.AutosL[j].image.Left-fAmpel.AutosL[i].image.Width-10;
end;
end else
begin
if (fAmpel.AutosL[j].Fahrbahn=fAmpel.AutosL[i].Fahrbahn) or (fAmpel.AutosL[j].Fahrbahn=3) then
begin
if fAmpel.AutosL[i].Image.left+fAmpel.AutosL[i].Image.Width+10+fAmpel.AutosL[i].Speed<=fAmpel.AutosL[j].Image.Left then fAmpel.AutosL[i].momSpeed:=fAmpel.AutosL[i].Speed;
end;
end;
end;
end else fAmpel.AutosL[i].momSpeed:=fAmpel.AutosL[i].Speed;
end else
begin
for j:=0 to AnzahlDerAutosR-1 do
begin
if (fAmpel.AutosL[j].Image.left+fAmpel.AutosL[i].Image.Width+10>=fAmpel.AutosL[i].Image.Left) and (fAmpel.AutosL[j].Image.left<=fAmpel.AutosL[i].Image.Left) and (fAmpel.AutosL[j].Fahrbahn=fAmpel.AutosL[i].Fahrbahn) and (i<>j) then fAmpel.AutosL[j].momSpeed:=0;
end;
end;
{ tempb:=false;
for j:=0 to AnzahlDerAutosR-1 do
begin
if (j<>i) then
begin
if (fAmpel.AutosL[i].BlinkerL) then
begin
if (fAmpel.AutosL[j].Fahrbahn=2) then
begin
if(fAmpel.AutosL[i].Image.Left>fAmpel.AutosL[j].Image.Left+fAmpel.AutosL[j].Image.width*1.5) then
begin
if(fAmpel.AutosL[i].Image.Left+fAmpel.AutosL[i].Image.Width<fAmpel.AutosL[j].Image.Left) then tempb:=true else tempb:=false;
end else tempb:=false;
end else tempb:=true;
end;
end;
end; }
{for j:=0 to AnzahlDerAutosR-1 do
begin
if (j<>i) then
begin
if (fAmpel.AutosL[i].BlinkerR) then
begin
if (fAmpel.AutosL[j].Fahrbahn=1) then
begin
if(fAmpel.AutosL[i].Image.Left>fAmpel.AutosL[j].Image.Left+fAmpel.AutosL[j].Image.width*1.5) then
begin
if(fAmpel.AutosL[i].Image.Left+fAmpel.AutosL[i].Image.Width<fAmpel.AutosL[j].Image.Left) then tempb:=true else tempb:=false;
end else tempb:=false;
end else tempb:=true;
end;
end;
end;}
{ if tempb then
begin
fAmpel.AutosL[i].fahrbahn:=3;
fAmpel.AutosL[i].momSpeed:=fAmpel.AutosL[i].Speed+7;
end;}
{ if (fAmpel.AutosL[i].image.Top>=FahrbahnR2) and (fAmpel.AutosL[i].Fahrbahn=3) and (fAmpel.AutosL[i].BlinkerL) then
begin
fAmpel.AutosL[i].Fahrbahn:=2;
fAmpel.AutosL[i].momSpeed:=fAmpel.AutosL[i].Speed+7;
fAmpel.AutosL[i].Image.Top:=FahrbahnR2;
fAmpel.AutosL[i].BlinkerR:=true;
fAmpel.AutosL[i].BlinkerL:=false;
end;}
{ if (fAmpel.AutosL[i].image.Top<=FahrbahnR1) and (fAmpel.AutosL[i].Fahrbahn=3) and (fAmpel.AutosL[i].BlinkerR) then
begin
fAmpel.AutosL[i].Fahrbahn:=1;
fAmpel.AutosL[i].momSpeed:=fAmpel.AutosL[i].Speed;
fAmpel.AutosL[i].Image.Top:=FahrbahnR1;
fAmpel.AutosL[i].BlinkerR:=false;
fAmpel.AutosL[i].BlinkerL:=false;
end;}
{ if fAmpel.AutosL[i].Fahrbahn=3 then
begin
if fAmpel.AutosL[i].BlinkerL then fAmpel.AutosL[i].image.Top:=fAmpel.AutosL[i].image.Top+7;
if fAmpel.AutosL[i].BlinkerR then fAmpel.AutosL[i].image.Top:=fAmpel.AutosL[i].image.Top-5;
end;}
if fAmpel.AutosL[i].Active then fAmpel.AutosL[i].Image.Left:=fAmpel.AutosL[i].Image.Left+fAmpel.AutosL[i].momSpeed;
end;
end;
procedure setAmpelPlaetzeReadyToStart;
var i:integer;
begin
for i:=0 to AnzahlDerAmpelPlaetzeO-1 do
begin
fAmpel.AmpelPlaetzeO[i].Y:=AmpelPlatzOY;
fAmpel.AmpelPlaetzeO[i].X:=AmpelPlatzOX+i*20;
fAmpel.AmpelPlaetzeO[i].Width:=10;
fAmpel.AmpelPlaetzeO[i].Height:=10;
fAmpel.AmpelPlaetzeO[i].Besetzt:=false;
end;
end;
procedure setFussgaengerReadyToStart;
var i,tempi:integer;
begin
for i:=0 to AnzahlDerFussgaengerO-1 do
begin
fAmpel.FussgaengerO[i].Speed:=random(40)+1;
fAmpel.FussgaengerO[i].momSpeedx:=fAmpel.FussgaengerO[i].Speed;
fAmpel.FussgaengerO[i].momSpeedy:=fAmpel.FussgaengerO[i].Speed;
fAmpel.FussgaengerO[i].Active:=false;
fAmpel.FussgaengerO[i].Image.Parent:=fAmpel;
fAmpel.FussgaengerO[i].Image.Top:=0;
fAmpel.FussgaengerO[i].Image.Left:=-300;
fAmpel.FussgaengerO[i].Image.Width:=20;
fAmpel.FussgaengerO[i].Image.Height:=20;
fAmpel.FussgaengerO[i].Image.Stretch:=true;
fAmpel.FussgaengerO[i].AngesteuerterAmpelPlatz:=-1;
fAmpel.FussgaengerO[i].Image.Transparent:=true;
fAmpel.FussgaengerO[i].AufStrasse:=false;
tempi:=random(4);
if tempi=0 then fAmpel.FussgaengerO[i].Image.Picture.LoadFromFile(ImgFussgaengerO1);
if tempi=1 then fAmpel.FussgaengerO[i].Image.Picture.LoadFromFile(ImgFussgaengerO2);
if tempi=2 then fAmpel.FussgaengerO[i].Image.Picture.LoadFromFile(ImgFussgaengerO3);
if tempi=3 then fAmpel.FussgaengerO[i].Image.Picture.LoadFromFile(ImgFussgaengerO4);
end;
for i:=0 to AnzahlDerFussgaengerU-1 do
begin
fAmpel.FussgaengerU[i].Speed:=random(40)+1;
fAmpel.FussgaengerU[i].momSpeedx:=fAmpel.FussgaengerU[i].Speed;
fAmpel.FussgaengerU[i].momSpeedy:=fAmpel.FussgaengerU[i].Speed;
fAmpel.FussgaengerU[i].Active:=false;
fAmpel.FussgaengerU[i].Image.Parent:=fAmpel;
fAmpel.FussgaengerU[i].Image.Top:=0;
fAmpel.FussgaengerU[i].Image.Left:=-300;
fAmpel.FussgaengerU[i].Image.Width:=20;
fAmpel.FussgaengerU[i].Image.Height:=20;
fAmpel.FussgaengerU[i].Image.Stretch:=true;
fAmpel.FussgaengerU[i].AngesteuerterAmpelPlatz:=-1;
fAmpel.FussgaengerU[i].Image.Transparent:=true;
fAmpel.FussgaengerU[i].AufStrasse:=false;
tempi:=random(4);
if tempi=0 then fAmpel.FussgaengerU[i].Image.Picture.LoadFromFile(ImgFussgaengerU1);
if tempi=1 then fAmpel.FussgaengerU[i].Image.Picture.LoadFromFile(ImgFussgaengerU2);
if tempi=2 then fAmpel.FussgaengerU[i].Image.Picture.LoadFromFile(ImgFussgaengerU3);
if tempi=3 then fAmpel.FussgaengerU[i].Image.Picture.LoadFromFile(ImgFussgaengerU4);
end;
end;
procedure setAutosReadyToStart;
var i,tempi:integer;
begin
for i:=0 to AnzahlDerAutosR-1 do
begin
fAmpel.AutosR[i].Image:=TImage.create(fAmpel);
fAmpel.AutosR[i].Speed:=4+random(8);
fAmpel.AutosR[i].momSpeed:=fAmpel.AutosR[i].Speed;
fAmpel.AutosR[i].BlinkerL:=false;
fAmpel.AutosR[i].BlinkerR:=false;
fAmpel.AutosR[i].active:=false;
if fAmpel.AutosR[i].speed>7 then fAmpel.AutosR[i].Fahrbahn:=2 else fAmpel.AutosR[i].Fahrbahn:=1;
tempi:=random(4);
if tempi=0 then fAmpel.AutosR[i].Image.Picture.LoadFromFile(ImgAutoRotR);
if tempi=1 then fAmpel.AutosR[i].Image.Picture.LoadFromFile(ImgAutoGelbR);
if tempi=2 then fAmpel.AutosR[i].Image.Picture.LoadFromFile(ImgAutoBlauR);
if tempi=3 then fAmpel.AutosR[i].Image.Picture.LoadFromFile(ImgAutoGruenR);
fAmpel.AutosR[i].Image.Width:=fAmpel.AutosR[i].Image.Picture.Width;
fAmpel.AutosR[i].Image.Parent:=fAmpel;
fAmpel.AutosR[i].Image.Transparent:=true;
fAmpel.AutosR[i].Image.Left:=fAmpel.Width+1000;
if fAmpel.AutosR[i].Fahrbahn=1 then fAmpel.AutosR[i].Image.Top:=FahrbahnR1 else fAmpel.AutosR[i].Image.Top:=FahrbahnR2;
end;
for i:=0 to AnzahlDerAutosL-1 do
begin
fAmpel.AutosL[i].Image:=TImage.create(fAmpel);
fAmpel.AutosL[i].Speed:=4+random(8);
fAmpel.AutosL[i].momSpeed:=fAmpel.AutosL[i].Speed;
fAmpel.AutosL[i].BlinkerL:=false;
fAmpel.AutosL[i].BlinkerR:=false;
fAmpel.AutosL[i].active:=false;
if fAmpel.AutosL[i].speed>7 then fAmpel.AutosL[i].Fahrbahn:=2 else fAmpel.AutosL[i].Fahrbahn:=1;
tempi:=random(4);
if tempi=0 then fAmpel.AutosL[i].Image.Picture.LoadFromFile(ImgAutoRotL);
if tempi=1 then fAmpel.AutosL[i].Image.Picture.LoadFromFile(ImgAutoGelbL);
if tempi=2 then fAmpel.AutosL[i].Image.Picture.LoadFromFile(ImgAutoBlauL);
if tempi=3 then fAmpel.AutosL[i].Image.Picture.LoadFromFile(ImgAutoGruenL);
fAmpel.AutosL[i].Image.Width:=fAmpel.AutosL[i].Image.Picture.Width;
fAmpel.AutosL[i].Image.Parent:=fAmpel;
fAmpel.AutosL[i].Image.Transparent:=true;
fAmpel.AutosL[i].Image.Left:=-1000;
if fAmpel.AutosL[i].Fahrbahn=1 then fAmpel.AutosL[i].Image.Top:=FahrbahnL1 else fAmpel.AutosL[i].Image.Top:=FahrbahnL2;
end;
end;
procedure FussgaengerKnopf;
begin
FAmpel.AmpelSystem.changeToF;
end;
procedure setImagesToForm;
begin
//Bilder laden
fAmpel.FOGAmpel.Picture.LoadFromFile(ImgFAGruen);
fAmpel.FORAmpel.Picture.LoadFromFile(ImgFARot);
fAmpel.FURAmpel.Picture.LoadFromFile(ImgFARot);
fAmpel.FUGAmpel.Picture.LoadFromFile(ImgFAGruen);
fAmpel.ARGAmpel.Picture.LoadFromFile(ImgAAGruen);
fAmpel.ARYAmpel.Picture.LoadFromFile(ImgAAGelb);
fAmpel.ARRAmpel.Picture.LoadFromFile(ImgAARot);
fAmpel.ALGAmpel.Picture.LoadFromFile(ImgAAGruen);
fAmpel.ALYAmpel.Picture.LoadFromFile(ImgAAGelb);
fAmpel.ALRAmpel.Picture.LoadFromFile(ImgAARot);
fAmpel.Streetimg.Picture.LoadFromFile(ImgStreet);
end;
procedure bindImagesToAmpelSystem;
begin
fAmpel.Ampelsystem.ARAmpel.Gruen:=fAmpel.ARGAmpel;
fAmpel.Ampelsystem.ARAmpel.Gelb:=fAmpel.ARYAmpel;
fAmpel.Ampelsystem.ARAmpel.Rot:=fAmpel.ARRAmpel;
fAmpel.Ampelsystem.ALAmpel.Gruen:=fAmpel.ALGAmpel;
fAmpel.Ampelsystem.ALAmpel.Gelb:=fAmpel.ALYAmpel;
fAmpel.Ampelsystem.ALAmpel.Rot:=fAmpel.ALRAmpel;
fAmpel.AmpelSystem.FOAmpel.Gruen:=fAmpel.FOGAmpel;
fAmpel.AmpelSystem.FOAmpel.Rot:=fAmpel.FORAmpel;
fAmpel.AmpelSystem.FUAmpel.Gruen:=fAmpel.FUGAmpel;
fAmpel.AmpelSystem.FUAmpel.Rot:=fAmpel.FURAmpel;
end;
procedure setOptions(Autos,Fussgaenger:boolean);
begin
//Optionen verwerten...
fAmpel.show;
fOptions.Hide;
if Fussgaenger then
begin
fAmpel.FOKnopf.Visible:=false;
fAmpel.FUKnopf.Visible:=false;
fAmpel.tFussgaengerTimer.enabled:=true;
end else
begin
fAmpel.FOKnopf.Visible:=true;
fAmpel.FUKnopf.Visible:=true;
end;
if Autos then
begin
StartAutoTimer;
end;
{fAmpel.showmodal;}
end;
end.
Reference in New Issue View Git Blame Copy Permalink