{{notification.text}}

MirGames

KASKA

Зарегистрирован 11.04.07 19:40
Последний раз был в сети 25.11.12 01:08
Дополненная Реальность
17.01.11 03:44
Цитата
DGLE2 Engine Log File
Version: Beta 2 (Wed Jan 12 17:59:52 2011)
Visit http://dron.deeprosoft.com/dgle2 for more information.
Log Started at 16.1.2011.
23:41:11.937 - Initializing Engine...
23:41:11.937 - Engine extension plugin "DGLE2_EXT.dplug" found.
23:41:11.948 - Plugin "DGLE2_EXT Beta 2 (Jan 15 2011)" by "DGLE2 Team" connected succesfully.
23:41:11.948 - Plugin description: "Standart official DGLE2 extension plugin. Provides support for various file formats and engine extensions."
23:41:12.620 - Splash window created.
System Information
Operating System: 6.1 "Microsoft Windows 7 Ultimate Edition" (Build 7600), 64-bit
CPU: AMD Athlon™ II P340 Dual-Core Processor (~2194 Mhz X 2)
RAM Total: 2042 MB.
RAM Available: 853 MB.
Video device: ATI Mobility Radeon HD 5470 512 MB. (driver "atiu9p64.dll,atiuxp64.dll,atiuxp64.dll,atiu9pag,atiuxpag,atiuxpag,atiumdva,atiumd6a.cap,atitmm64.dll", ver. 8.14.0001.6099, date 21.04.2010 1:38:44)
23:41:13.685 - Window created successfully.
23:41:13.686 - Filesystem Subsystem initialized.
23:41:13.686 - Initializing RenderGL Subsystem...
23:41:13.912 - OpenGL 3.2.9712 Compatibility Profile Context on ATI Mobility Radeon HD 5470 (ATI Technologies Inc.)
23:41:13.913 - Maximum texture resolution: 16384X16384
23:41:13.913 - Maximum anisotropy level: 16X
23:41:13.914 - Maximum multitexturing layer: 16
23:41:13.914 - RenderGL Subsystem initialized.
23:41:13.922 - Resource Manager Subsystem initialized.
23:41:13.953 - DirectSound initialized.
23:41:13.953 - Sound Subsystem initialized.
23:41:13.963 - DirectInput initialized.
23:41:13.965 - Input Subsystem initialized.
23:41:13.966 - Engine Initialized.
23:41:13.967 - [ERROR] Can't acquire keyboard device. (File: ".\input\DirectInput.cpp", Line: 193)
23:41:13.968 - [ERROR] Can't acquire mouse device. (File: ".\input\DirectInput.cpp", Line: 197)
23:41:13.991 - Calling user initialization procedure...
23:41:13.997 - [ERROR] Can't load plugin from library "AugmentedReality.dplug". (File: ".\core\Core.cpp", Line: 574)
23:41:14.000 - [FATAL] Can't connect required plugin. (File: ".\Main.cpp", Line: 46)
23:41:16.067 - ***Abnormal Engine Termination***
23:41:16.075 - Engine Finalized.
----
Warning(s): 0 Error(s): 4
Average FPS: 0
Log Closed.
Режимы Анимаций...
02.06.10 23:42
не пробывал? или это ты и имел ввиду?
Код

if iskeydown('j') and iskeydown('u') then
Как Можно Заменить Оператор Exit;
15.02.10 18:43
Код

procedure foo(x : integer);
begin
   for i := 1 to 100 do
    if (A[i] = x) then
    begin
      
      exit;
    end;
end;

можно так переписать
Код

procedure foo(x : integer);
begin
  i:=1;
  while (i<=100) and (a[i]<>x) do
   inc(i);

  if (i<=100) then
  begin

  end;
end;

Персонажи 3д
19.01.10 20:38
Они делаются в 3dmax и конвертируются в MX формат с помощью maxScript'a неписаного XProger.
Delphi 2010
08.12.09 00:53
На первый взгляд визуальных отличий от delphi 2006 нет
По Могите Разобраться.
04.12.09 14:31
нельзя вещественный тип поделить нацело.
пиши либо так
Код

WITH SPLASH DO
BEGIN
POSITION.X := WIDTH / 2;
POSITION.Y := HEIGHT / 2;
END;

либо так
Код

WITH SPLASH DO
BEGIN
POSITION.X := round(WIDTH) div 2;
POSITION.Y := round(HEIGHT) div 2;
END;
Star Trek
12.11.09 02:16
Посмотрел сначала 2009 года, жутко понравилось. Недавно скачал первую часть сериала 1979 года, круто!! качаю следующую
Поиск Файлов По Нескольким Маскам
09.10.09 04:31
Сделал так:
Код
procedure FillTreeView(dir : string; mask : array of string; node : TTreeNode);
var
  SR      : TSearchRec;
  FindRes : Integer;

  function IsInList(AFileName : String; AExtList : Array Of String) : Boolean;
  var
    AExt : String;
    I : Integer;
  begin
    Result := False;
    AExt := ExtractFileExt(AFileName);
    For I := Low(AExtList) To High(AExtList) Do
      Begin
        Result := AnsiCompareText(AExt,AExtList[i]) = 0;
        If Result Then Break;
      End;
  end;

begin
  if FindFirst(dir+'*',faAnyFile,SR)=0 then
  repeat
    if ((SR.Attr and faDirectory)=faDirectory) and (SR.Name <> '..') and (SR.Name<>'.') then
      FillTreeView(dir+SR.Name+'\', mask, MForm.TreeView1.Items.AddChild(node, SR.Name));

    if IsInList(SR.Name, Mask) then
     MForm.TreeView1.Items.AddChild(node, SR.Name);
  until FindNext(SR)<>0;

  FindClose(SR);
end;


Утащил от сюда :ninja:

Не по маске конечно, но в моем случае катит.