bool CAutoNest::EventProcess(const Event &event)
{
CObject* cargo;
CAuto::EventProcess(event);
if ( m_engine->GetPause() ) return true;
if ( event.type != EVENT_FRAME ) return true;
m_progress += event.rTime*m_speed;
if ( m_phase == ANP_WAIT )
{
if ( m_progress >= 1.0f )
{
if ( !SearchFree(m_cargoPos) )
{
m_phase = ANP_WAIT;
m_progress = 0.0f;
m_speed = 1.0f/4.0f;
}
else
{
CreateCargo(m_cargoPos, 0.0f, OBJECT_BULLET);
m_phase = ANP_BIRTH;
m_progress = 0.0f;
m_speed = 1.0f/5.0f;
}
}
}
if ( m_phase == ANP_BIRTH )
{
cargo = SearchCargo();
if ( m_progress < 1.0f )
{
if ( cargo != nullptr )
{
cargo->SetScale(m_progress);
}
}
else
{
if ( cargo != nullptr )
{
cargo->SetScale(1.0f);
cargo->SetLock(false);
}
m_phase = ANP_WAIT;
m_progress = 0.0f;
m_speed = 1.0f/5.0f;
}
}
return true;
}
HANDLE WINAPI OpenW(const OpenInfo *OInfo)
{
static FarDialogItem DlgItems[]={
/* 0*/ {DI_DOUBLEBOX,2, 1,37, 5, {0},NULL ,NULL ,0 ,GetMsg(MTitle)},
/* 1*/ {DI_EDIT ,4, 2,34, 2, {1},PluginName,NULL ,DIF_HISTORY ,L""},
/* 2*/ {DI_CHECKBOX ,4, 3, 0, 0, {0},0 ,NULL ,0 ,GetMsg(MCase)},
/* 3*/ {DI_BUTTON ,0, 4, 0, 0, {0},0 ,NULL ,DIF_CENTERGROUP|DIF_DEFAULTBUTTON,GetMsg(MOk)},
/* 4*/ {DI_BUTTON ,0, 4, 0, 0, {0},0 ,NULL ,DIF_CENTERGROUP ,GetMsg(MCancel)}
};
CFarSettings settings(PluginId);
bPrevCaseSensitive = settings.Get(L"CaseSensitive", false);
DlgItems[ixCaseSensitive].Selected = bPrevCaseSensitive ? 1 : 0;
HANDLE hEdit = Info.DialogInit(&PluginId, &DialogId,
-1, -1, 40, 7,
PluginName,
DlgItems, ArraySize(DlgItems),
0, 0,
MyDlgProc, 0);
if (hEdit == INVALID_HANDLE_VALUE)
return INVALID_HANDLE_VALUE;
EditorInfo einfo = {sizeof(EditorInfo)};
Info.EditorControl(-1, ECTL_GETINFO, 0, &einfo);
InitialLine = einfo.CurLine;
InitialCol = einfo.CurPos;
InitialTop = einfo.TopScreenLine;
TotalLines = einfo.TotalLines;
nChanges = 0;
bSequentialInput = true;
bLineChanged = false;
ctx = SearchAlloc();
if (Info.DialogRun(hEdit)!=ixOk)
UndoAll();
RemoveHighlight();
settings.Set(L"CaseSensitive", bPrevCaseSensitive);
Info.DialogFree(hEdit);
if (Length(PrevPattern)<MAX_PATTERN_LEN)
SearchFree(ctx);
else
SearchHFree(ctx);
SetLength(&PrevPattern,0);
return INVALID_HANDLE_VALUE;
}
bool CAutoDerrick::EventProcess(const Event &event)
{
CObject* fret;
Math::Vector pos, speed;
Math::Point dim;
float angle, duration, factor;
CAuto::EventProcess(event);
if ( m_engine->GetPause() ) return true;
if ( event.type != EVENT_FRAME ) return true;
if ( m_phase == ADP_WAIT ) return true;
m_progress += event.rTime*m_speed;
m_timeVirus -= event.rTime;
if ( m_object->GetVirusMode() ) // contaminated by a virus?
{
if ( m_timeVirus <= 0.0f )
{
m_timeVirus = 0.1f+Math::Rand()*0.3f;
pos.x = 0.0f;
pos.z = 0.0f;
pos.y = -2.0f*Math::Rand();
m_object->SetPosition(1, pos); // up / down the drill
m_object->SetAngleY(1, Math::Rand()*0.5f); // rotates the drill
}
return true;
}
if ( m_phase == ADP_EXCAVATE )
{
if ( m_soundChannel == -1 )
{
if ( m_type == OBJECT_URANIUM )
{
factor = DERRICK_DELAYu/DERRICK_DELAY;
}
else
{
factor = 1.0f;
}
m_soundChannel = m_sound->Play(SOUND_DERRICK, m_object->GetPosition(0), 1.0f, 0.5f, true);
m_sound->AddEnvelope(m_soundChannel, 1.0f, 0.5f, 4.0f*factor, SOPER_CONTINUE);
m_sound->AddEnvelope(m_soundChannel, 1.0f, 0.3f, 6.0f*factor, SOPER_CONTINUE);
m_sound->AddEnvelope(m_soundChannel, 1.0f, 0.5f, 1.0f, SOPER_CONTINUE);
m_sound->AddEnvelope(m_soundChannel, 1.0f, 0.5f, 4.0f, SOPER_STOP);
}
if ( m_progress >= 6.0f/16.0f && // penetrates into the ground?
m_lastParticle+m_engine->ParticleAdapt(0.05f) <= m_time )
{
m_lastParticle = m_time;
pos = m_object->GetPosition(0);
speed.x = (Math::Rand()-0.5f)*10.0f;
speed.z = (Math::Rand()-0.5f)*10.0f;
speed.y = Math::Rand()*5.0f;
dim.x = Math::Rand()*3.0f+2.0f;
dim.y = dim.x;
m_particle->CreateParticle(pos, speed, dim, Gfx::PARTICRASH, 2.0f);
}
if ( m_progress >= 6.0f/16.0f && // penetrates into the ground?
m_lastTrack+m_engine->ParticleAdapt(0.5f) <= m_time )
{
m_lastTrack = m_time;
pos = m_object->GetPosition(0);
speed.x = (Math::Rand()-0.5f)*12.0f;
speed.z = (Math::Rand()-0.5f)*12.0f;
speed.y = Math::Rand()*10.0f+10.0f;
dim.x = 0.6f;
dim.y = dim.x;
pos.y += dim.y;
duration = Math::Rand()*2.0f+2.0f;
m_particle->CreateTrack(pos, speed, dim, Gfx::PARTITRACK5,
duration, Math::Rand()*10.0f+15.0f,
duration*0.2f, 1.0f);
}
if ( m_progress < 1.0f )
{
pos.x = 0.0f;
pos.z = 0.0f;
pos.y = -m_progress*16.0f;
m_object->SetPosition(1, pos); // down the drill
angle = m_object->GetAngleY(1);
angle += event.rTime*8.0f;
m_object->SetAngleY(1, angle); // rotates the drill
}
else
{
m_phase = ADP_ASCEND;
m_progress = 0.0f;
m_speed = 1.0f/5.0f;
}
}
if ( m_phase == ADP_ASCEND )
{
if ( m_progress <= 7.0f/16.0f &&
m_lastParticle+m_engine->ParticleAdapt(0.1f) <= m_time )
{
m_lastParticle = m_time;
pos = m_object->GetPosition(0);
speed.x = (Math::Rand()-0.5f)*10.0f;
speed.z = (Math::Rand()-0.5f)*10.0f;
speed.y = Math::Rand()*5.0f;
dim.x = Math::Rand()*3.0f+2.0f;
dim.y = dim.x;
m_particle->CreateParticle(pos, speed, dim, Gfx::PARTICRASH, 2.0f);
}
if ( m_progress <= 4.0f/16.0f &&
m_lastTrack+m_engine->ParticleAdapt(1.0f) <= m_time )
{
m_lastTrack = m_time;
pos = m_object->GetPosition(0);
speed.x = (Math::Rand()-0.5f)*12.0f;
speed.z = (Math::Rand()-0.5f)*12.0f;
speed.y = Math::Rand()*10.0f+10.0f;
dim.x = 0.6f;
dim.y = dim.x;
pos.y += dim.y;
duration = Math::Rand()*2.0f+2.0f;
m_particle->CreateTrack(pos, speed, dim, Gfx::PARTITRACK5,
duration, Math::Rand()*10.0f+15.0f,
duration*0.2f, 1.0f);
}
if ( m_progress < 1.0f )
{
pos.x = 0.0f;
pos.z = 0.0f;
pos.y = -(1.0f-m_progress)*16.0f;
m_object->SetPosition(1, pos); // back the drill
angle = m_object->GetAngleY(1);
angle -= event.rTime*2.0f;
m_object->SetAngleY(1, angle); // rotates the drill
}
else
{
m_soundChannel = -1;
m_bSoundFall = false;
m_phase = ADP_EXPORT;
m_progress = 0.0f;
m_speed = 1.0f/5.0f;
}
}
if ( m_phase == ADP_ISFREE )
{
if ( m_progress >= 1.0f )
{
m_bSoundFall = false;
m_phase = ADP_EXPORT;
m_progress = 0.0f;
m_speed = 1.0f/5.0f;
}
}
if ( m_phase == ADP_EXPORT )
{
if ( m_progress == 0.0f )
{
if ( SearchFree(m_fretPos) )
{
angle = m_object->GetAngleY(0);
CreateFret(m_fretPos, angle, m_type, 16.0f);
}
else
{
m_phase = ADP_ISFREE;
m_progress = 0.0f;
m_speed = 1.0f/2.0f;
return true;
}
}
fret = SearchFret();
if ( fret != 0 &&
m_progress <= 0.5f &&
m_lastParticle+m_engine->ParticleAdapt(0.1f) <= m_time )
{
m_lastParticle = m_time;
if ( m_progress < 0.3f )
{
pos = fret->GetPosition(0);
pos.x += (Math::Rand()-0.5f)*5.0f;
pos.z += (Math::Rand()-0.5f)*5.0f;
pos.y += (Math::Rand()-0.5f)*5.0f;
speed = Math::Vector(0.0f, 0.0f, 0.0f);
dim.x = 3.0f;
dim.y = dim.x;
m_particle->CreateParticle(pos, speed, dim, Gfx::PARTIFIRE, 1.0f, 0.0f, 0.0f);
}
else
{
pos = fret->GetPosition(0);
pos.x += (Math::Rand()-0.5f)*5.0f;
pos.z += (Math::Rand()-0.5f)*5.0f;
pos.y += Math::Rand()*2.5f;
speed = Math::Vector(0.0f, 0.0f, 0.0f);
dim.x = 1.0f;
dim.y = dim.x;
m_particle->CreateParticle(pos, speed, dim, Gfx::PARTIGLINT, 2.0f, 0.0f, 0.0f);
}
}
if ( m_progress < 1.0f )
{
if ( fret != 0 )
{
pos = fret->GetPosition(0);
pos.y -= event.rTime*20.0f; // grave
if ( !m_bSoundFall && pos.y < m_fretPos.y )
{
m_sound->Play(SOUND_BOUM, m_fretPos);
m_bSoundFall = true;
}
if ( pos.y < m_fretPos.y )
{
pos.y = m_fretPos.y;
fret->SetLock(false); // object usable
}
fret->SetPosition(0, pos);
}
}
else
{
if ( ExistKey() ) // key already exists?
{
m_phase = ADP_WAIT;
m_progress = 0.0f;
m_speed = 1.0f/10.0f;
}
else
{
m_phase = ADP_EXCAVATE;
m_progress = 0.0f;
m_speed = 1.0f/(m_type==OBJECT_URANIUM?DERRICK_DELAYu:DERRICK_DELAY);
}
}
}
return true;
}
static intptr_t WINAPI MyDlgProc(HANDLE hDlg, intptr_t Msg, intptr_t Param1, void *Param2)
{
FarGetDialogItem DialogItem={sizeof(FarGetDialogItem)};
const INPUT_RECORD* record;
switch (Msg)
{
case DN_CONTROLINPUT:
record=(const INPUT_RECORD *)Param2;
if (record->EventType==KEY_EVENT &&
record->Event.KeyEvent.bKeyDown &&
record->Event.KeyEvent.dwControlKeyState & SHIFT_PRESSED &&
(record->Event.KeyEvent.dwControlKeyState & LEFT_CTRL_PRESSED ||
record->Event.KeyEvent.dwControlKeyState & RIGHT_CTRL_PRESSED))
{
switch (record->Event.KeyEvent.wVirtualKeyCode) {
case VK_DOWN:
ScrollText(stDn);
return TRUE;
case VK_UP:
ScrollText(stUp);
return TRUE;
case VK_NEXT:
ScrollText(stPgDn);
return TRUE;
case VK_PRIOR:
ScrollText(stPgUp);
return TRUE;
case VK_END:
ScrollText(stEnd);
return TRUE;
case VK_HOME:
ScrollText(stHome);
return TRUE;
}
}
break;
case DN_BTNCLICK:
if (Param1==ixCaseSensitive) {
bool bCaseSensitive = Param2!=0;
if (bCaseSensitive!=bPrevCaseSensitive)
UndoAll();
bPrevCaseSensitive = bCaseSensitive;
}
Filter(PrevPattern, bPrevCaseSensitive);
Info.AdvControl(&PluginId, ACTL_REDRAWALL, 0, NULL);
break;
case DN_EDITCHANGE:
DialogItem.Size = (size_t)Info.SendDlgMessage(hDlg, DM_GETDLGITEM, ixSearchString, NULL);
DialogItem.Item = (FarDialogItem*)malloc(DialogItem.Size);
if (DialogItem.Item) {
Info.SendDlgMessage(hDlg, DM_GETDLGITEM, ixSearchString, &DialogItem);
size_t nChars = wcslen(DialogItem.Item->Data);
size_t nPrevChars = Length(PrevPattern);
bool bFilter = true;
if (PrevPattern!=NULL) {
//получается ли новая строка укорачиванием старой на символ
if (bSequentialInput && nChars+1 == nPrevChars &&
wcsncmp(DialogItem.Item->Data, PrevPattern, nChars) == 0)
{
//да - откатываем одну правку
Undo();
bFilter = false;
}
else
{
//получается ли новая строка добавлением символа к старой
if (!(nChars == nPrevChars+1 &&
wcsncmp(DialogItem.Item->Data, PrevPattern, nPrevChars) == 0))
{
//если нет - считаем, что откатывать по одной правке нельзя
bSequentialInput = false;
}
//можно ли искать новую строку среди уже отфильтрованных
if (wcsstr(DialogItem.Item->Data, PrevPattern) == NULL)
{
//нет - откатываем все правки
UndoAll();
}
}
}
//выделить контекст заново при необходимости
if (Length(PrevPattern)<MAX_PATTERN_LEN && nChars>=MAX_PATTERN_LEN) {
SearchFree(ctx);
ctx = SearchHAlloc();
}
else if (Length(PrevPattern)>=MAX_PATTERN_LEN && nChars<MAX_PATTERN_LEN) {
SearchHFree(ctx);
ctx = SearchAlloc();
}
//запомнить значение фильтра
if (nChars!=0) {
SetLength(&PrevPattern, (int)nChars);
wcscpy(PrevPattern, DialogItem.Item->Data);
}
else {
SetLength(&PrevPattern, 0);
bSequentialInput = true;
}
free(DialogItem.Item);
if (bFilter)
Filter(PrevPattern, bPrevCaseSensitive);
Info.AdvControl(&PluginId, ACTL_REDRAWALL, 0, NULL);
}
break;
}
return Info.DefDlgProc(hDlg, Msg, Param1, Param2);
}
