-
Posts
126 -
Joined
-
Last visited
Reputation
0 NoobBasic information
-
Gender
Мужчина
Contacts
-
Nick
Draugd
-
Skype
draugd
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
Создание инсталляторов для модпаков на базе Inno Setup
Draugd replied to EvilAlex's topic in Modding General Discussion
так уже заменял... он все равно при установки по автомату на евро лезет... если два клиента установлено... -
Создание инсталляторов для модпаков на базе Inno Setup
Draugd replied to EvilAlex's topic in Modding General Discussion
Плиз подскажите где на что поменять чтобы по автомату выбирал лесту! const UNDEF_INDEX = -777; ALPHA_BLEND_LEVEL = 255; // max=Byte=255 WS_EX_LAYERED = $80000; WS_EX_TRANSPARENT = $20; LWA_COLORKEY = 1; LWA_ALPHA = 2; GWL_EXSTYLE = (-20); var InfoPic: Longint; LastIndex: Integer; TempPath: String; PicForm: TForm; type COLORREF = DWORD; function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external '[email protected] stdcall'; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall'; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall'; function SetFocus(hWnd: HWND): HWND; external '[email protected] stdcall'; function WOT_GetClientsCount(): Integer; external 'WOT_GetClientsCount@files:FindWot.dll cdecl'; function WOT_GetClientBranch(ClientIndex: Integer): Integer; external 'WOT_GetClientBranch@files:FindWot.dll cdecl'; procedure WOT_GetClientPathW(Buffer: String; BufferSize: Integer; ClientIndex: Integer); external 'WOT_GetClientPathW@files:FindWot.dll cdecl'; function DefaultDirName(Param: String): String; var ClientsCount, Index: Integer; FoundDir: String; begin SetLength(FoundDir, 1024); ClientsCount:=WOT_GetClientsCount(); if ClientsCount > 0 then begin for Index:=0 to ClientsCount-1 do begin if WOT_GetClientBranch(Index) = 1 then begin WOT_GetClientPathW(FoundDir, Length(FoundDir)-1, Index); Result:=ExpandConstant(FoundDir); end; end; end else Result:=ExpandConstant('{sd}\Games\World_of_Tanks'); end; procedure ShowPicHint(const PicFilePath: String); begin ImgRelease(InfoPic); InfoPic := ImgLoad(PicForm.Handle, PicFilePath, 0, 0, 340, 260, False, False); PicForm.SetBounds(WizardForm.Left + ScaleX(509), WizardForm.Top + ScaleY(80), 340, 260); ImgApplyChanges(PicForm.Handle); PicForm.Show(); SetFocus(WizardForm.Handle); end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; if Index = LastIndex then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of '1.Командирская камера.': UndefPic := 'KK.bmp'; '2.Винтик.': UndefPic := 'VNT.bmp'; else begin LastIndex := UNDEF_INDEX; PicForm.Hide(); ImgApplyChanges(PicForm.Handle); Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin ImgRelease(InfoPic); PicForm.Hide; ImgApplyChanges(PicForm.Handle); LastIndex := -1; end; procedure InitInfo(); begin WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); LastIndex := UNDEF_INDEX; PicForm := TForm.Create(WizardForm); with PicForm do begin BorderStyle := bsNone; FormStyle := fsStayOnTop; end; SetWindowLong(PicForm.Handle, GWL_EXSTYLE, GetWindowLong(PicForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(PicForm.Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA); end; procedure InitializeWizard1(); begin InitInfo(); end; function NextButtonclick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBox('Не верно указана папка World of Tanks!', mbError, MB_OK); Result := False; end; end; end; -
-
[1.12] Недавняя статистика игроков в бою (без XVM)
Draugd replied to SerVB's topic in Mods and Software
если получится то будет вообще заемечательно!) -
а куда дир индекатед эксентед пропал? ((
-
когда какая то шерсть тупарылая ублюдочная минусит на мои вопросы ответы это как то поднапрягает..
-
у тебя какой то обиженый минусовщик завелся!
-
modPackInformer - пустой архив...
-
Маркеры направления орудий на миникарте / Minimap Gun Markers
Draugd replied to GPCracker's topic in Mods and Software
во.. во... это точно! (( -
Исходники модов StranikS_Scan'a на GitHub
Draugd replied to StranikS_Scan's topic in Mods and Software
@StranikS_Scan плиз... сделай чтоб по стандартным ушам отображение статистики игроков было!!! -
очень жаль((
-
ну вот в этой версии старой 2.09 без Nan с первого боя все норм считает... и точно!!! проверенно неоднократно лично... еще бы в ангаре отображение прикрепить!!! (( Может нашел бы минутку на это)) mods.rar слухай... хотел к тебе еще вот с чем обратится... есть мод статистика игроков в бою без хвм - отличный мод, работает уже много патчей но... оочень не хватает цветов по рейтингу! Можешь его к своей флеше подключить и добавить возможность добавлять цвета в конфиге... ну и скрипт на свое усмотрение там подправить, подобновить, объеденить)) блин... ооочень многие были бы оочень благодарны!!! + с меня сразу 20 баксов доната на любой кошелек...
-
можно ли как прописать в конфиге или скрипте чтоб считалось с первого боя (как раньше было) пусть с небольшими неточностями...
-
Мод на изменение индикатора автоприцела как у колесников
Draugd replied to alex_alex's topic in Mods Search