eu07/maszyna
1
0
Fork 0
mirror of https://github.com/MaSzyna-EU07/maszyna.git synced 2026-03-22 15:05:03 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add exit on bit 16 on PoKeys interface (buzzer SHP/CA).

Browse Source
This commit is contained in:
firleju
2016-01-20 22:27:43 +01:00
parent 7653ca1186
commit e8ac8a7d09
2 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Train.cpp
View File

@@ -3763,14 +3763,20 @@ bool TTrain::Update()
TestFlag(mvOccupied->SecuritySystem.Status, s_SHPalarm))
{
dsbBuzzer->GetStatus(&stat);
if (!(stat & DSBSTATUS_PLAYING))
if (!(stat & DSBSTATUS_PLAYING))
{
dsbBuzzer->Play(0, 0, DSBPLAY_LOOPING);
Console::BitsSet(1 << 14); // ustawienie bitu 16 na PoKeys
}
}
else
{
dsbBuzzer->GetStatus(&stat);
if (stat & DSBSTATUS_PLAYING)
if (stat & DSBSTATUS_PLAYING)
{
dsbBuzzer->Stop();
Console::BitsClear(1 << 14); // ustawienie bitu 16 na PoKeys
}
}
}
else // wylaczone
@@ -3778,8 +3784,11 @@ bool TTrain::Update()
btLampkaCzuwaka.TurnOff();
btLampkaSHP.TurnOff();
dsbBuzzer->GetStatus(&stat);
if (stat & DSBSTATUS_PLAYING)
if (stat & DSBSTATUS_PLAYING)
{
dsbBuzzer->Stop();
Console::BitsClear(1 << 14); // ustawienie bitu 16 na PoKeys
}
}
//******************************************
@@ -5063,6 +5072,8 @@ bool TTrain::InitializeCab(int NewCabNo, AnsiString asFileName)
// ggEngageRatio.Clear();
ggMainGearStatus.Clear();
ggIgnitionKey.Clear();
// Jeœli ustawiamy now¹ wartoœæ dla PoKeys wolna jest 15
// Numer 14 jest u¿ywany dla buczka SHP w innym miejscu
btLampkaPoslizg.Clear(6);
btLampkaStyczn.Clear(5);
btLampkaNadmPrzetw.Clear(