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); }