-
Content Count
18 -
Joined
-
Last visited
Everything posted by hevi
-
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
ты снг пользователь -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
где код скрипта -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
А ты пробовал в некоторых строчках ставить точку с запятой (;;;;;;;;;;;;;) PicForm := TForm.Create(WizardForm) DeleteRadioButton.SetBounds(0, 120, WizardForm.RunList.Width, 20) NoneRadioButton.SetBounds(0, 150, WizardForm.RunList.Width, 20) BASS_Init('{tmp}\Music.mp3') BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', 20, 320, 36, 36, 4) gdipShutdown -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
Афигеть ты пролистал все страницы и нашёл что тебе нужно))))) -
спс . ну я так понял не кто не поможет
-
Спасибо, Не могу запустить мод, может не правильный путь установки мода (\res_mods\1.9.0.1\scripts\client\gui\mods\ или вот этой срочке что то неправильно ввожу User-Agent req = urllib2.Request(url, param, headers={'UA-142362884-1': '%s/%s' % (self.name, self.ver)}) если можете выложите открытый готовый модик
-
Прошу уважаемых и профессионалов по созданию модиков сделать модик для analytics.google.com. Или может у кого то есть уже, не могли бы поделиться модиком с открытым кодом чтоб можно было настроить под себя. Заранием ОГРОМНОЕ СПАСИБО уважаемые мододелы. И удачи в жизни
-
Это так и должно быть бордак, какой патч и версия xvm.log
-
Вопрос таков что уже не одну обнову вижу что в statisticForm нету выравнивание ников и всяких иконок в отличии от battleLoading Пример для сравнения: может кто подскажет или разработчики исправят
-
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
а где я написал что он минусует, не забываем опять минус поставить -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
я же говорил, что он лентяй, за неделю он даже носом не повёл 50 страниц почитать, котярко читает и правильно что не подсказывает тугадуму лому, не забываем мне за правду минусы ставить -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
теплее))))) да что ты , ты думаешь он будет думать, он будет лежать и ждать пока ему на блюдечке всё сделают и выложат. -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
подсказка загадка два слова поменяй где видишь ........... на .................. , по этому за 3 года ты лентяй и даже такой простой язык не можешь выучить, а лучше почитай последние 50 а может и по больше страниц там всё найдёшь в причём я выше кидал там по новей код картинок чем у тебя с фризами, а самое главное если ты сделаешь у тебя будет вопрос как два одинаковых скрипта что в компонентах работали и не выдавали дубликат с таксом)))))) -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
Афигеть ты даже самое элементарное не можешь сделать, просто поменять слова на те которые нужно, лентяй и даже помогать тебе не буду,за тебя тут модпак собрали а ты так и не вник в суть -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
Попробуй вот это Desktop.rar -
Создание инсталляторов для модпаков на базе Inno Setup
hevi replied to EvilAlex's topic in Modding General Discussion
здравствуйте а можно заменить иконку ноты милодии заменить на другую #define USE_BASS [Files] #ifdef USE_BASS Source: {#Way}\bass.dll; flags: dontcopy; #endif [Code] const LB_ITEMFROMPOINT = $01A9; #ifdef UNICODE #define A "W" #define Phrase "#$266B" #else #define A "A" #define Phrase "'(пример)'" #endif type TComponentSound = record SoundName: String; Index: Integer; end; HSTREAM = Longword; var iSound: array of TComponentSound; sndCompOldProc: TNotifyEvent; #ifdef USE_BASS BASS_Handle: HWND; #endif function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints: TPoint; cPoints: UINT): Integer; external '[email protected] stdcall'; #ifdef USE_BASS function BASS_Init(device: LongInt; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; external 'BASS_Init@files:BASS.dll stdcall delayload'; function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset1, offset2, length1, length2: DWORD; flags: DWORD): HSTREAM; external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload'; function BASS_StreamFree(handle: HSTREAM): BOOL; external 'BASS_StreamFree@files:BASS.dll stdcall delayload'; function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload'; function BASS_Start(): Boolean; external 'BASS_Start@files:BASS.dll stdcall delayload'; function BASS_Stop(): Boolean; external 'BASS_Stop@files:BASS.dll stdcall delayload'; function BASS_Free(): Boolean; external 'BASS_Free@files:BASS.dll stdcall delayload'; #else function sndPlaySound(lpszSoundName: String; fuSound: UINT): BOOL; external 'sndPlaySound{#A}@winmm.dll stdcall'; #endif #ifdef USE_BASS procedure bassPlaySound(Filename: AnsiString); begin if (BASS_Handle <> -1) then begin BASS_Stop(); BASS_StreamFree(BASS_Handle); BASS_Handle:= -1; end; BASS_Handle:= BASS_StreamCreateFile(false, PAnsiChar(Filename), 0, 0, 0, 0, 0); BASS_Start(); BASS_ChannelPlay(BASS_Handle, false); end; #endif procedure PlaySound(Sender: TObject); var i, f, lParam, ids: Integer; p: TPoint; s: String; box: TNewCheckListBox; begin box:= TNewCheckListBox(Sender); GetCursorPos(p); MapWindowPoints(0, box.Handle, p, 1); lParam:= p.x or (p.y shl 16); i:= SendMessage(WizardForm.ComponentsList.Handle, LB_ITEMFROMPOINT, 0, lParam); if ((i shr 16) = 1) or ((i and $FFFF) < 0) then Exit; i:= i and $FFFF; if (i < 0) or (i >= box.Items.Count) then Exit; ids:= i; f:= -1; for i:= 0 to GetArrayLength(iSound)-1 do begin if (ids = iSound[i].Index) then begin f:= i; Break; end; end; if (f < 0) then Exit; s:= box.ItemCaption[ids]; if (Pos({#Phrase}, s) <= 0) then Exit; if FileExists(iSound[f].SoundName) then #ifdef USE_BASS bassPlaySound(iSound[f].SoundName); #else sndPlaySound(iSound[f].SoundName, 0); #endif if (sndCompOldProc <> nil) then sndCompOldProc(Sender); end; procedure AddItemSound(AIndex: Integer; AFilename: String); var i: Integer; begin i:= GetArrayLength(iSound); SetArrayLength(iSound, i+1); iSound[i].Index:= AIndex-1; iSound[i].SoundName:= ExpandConstant(AFilename); WizardForm.ComponentsList.ItemCaption[AIndex-1]:= WizardForm.ComponentsList.ItemCaption[AIndex-1] + ' '+{#Phrase}; end; procedure InitializeWizard10(); begin #ifdef USE_BASS BASS_Init(-1, 44100, 0, 0, 0); BASS_Start(); BASS_Handle:= -1; #endif WizardForm.ComponentsList.Width := ScaleX(483); WizardForm.ComponentsList.Height := ScaleY(270); sndCompOldProc:= WizardForm.ComponentsList.OnClick; WizardForm.ComponentsList.OnClick:= @PlaySound; ExtractTemporaryFile('Озвучка Фрагов в бою.mp3'); AddItemSound(2, '{tmp}\Озвучка Фрагов в бою.mp3'); end; #ifdef USE_BASS procedure DeinitializeSetup(); begin BASS_Stop(); BASS_Free(); end; #endif