просто дэмка для ПК:
http://sderni.ru/86447
просто дэмка для ПК:
http://sderni.ru/86447
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
а мне замути мою бабу,чтоб просто крутилась под мой музон.
звук подожми в нужный формат.
http://sderni.ru/87612
---------- Post added at 14:18 ---------- Previous post was at 13:11 ----------
http://zx.pk.ru/attachment.php?attac...8&d=1317986144
вот я уже сделал, в формате TRD.
ALKO, исходник глянуть можно?
OutOfCompo - http://ooc.retroscene.org/
удивительно, что оно еще и .net не просит
вот это воистину удивительно...
Возможно сама библиотека vcl использует функции дот нэта.
а исходник ваще простейший...я это залобал за 15 минут (и то больше времени потратил на "фотографирование" модели в 3д максе)
---------- Post added at 17:33 ---------- Previous post was at 17:31 ----------
код:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1; int f=1;int fl=0;int fl1=1;
float sz=1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ DoubleBuffered=true;
MediaPlayer1->FileName="hq\\muz.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
fl++; Label4->Top=fl+360;
if (fl==15){Label1->Visible=false;}
if (fl==20){Label1->Visible=true;fl=0;fl1=!(fl1);}
if (fl1==1){Form1->Canvas->Pen->Color=0x00ff00;}
if (fl1!=1){Form1->Canvas->Pen->Color=0x000000;}
Form1->Canvas->MoveTo(fl*10+700,300);
Form1->Canvas->LineTo(fl*10+700,100);
Form1->Canvas->MoveTo(700,fl*10+100);
Form1->Canvas->LineTo(900,fl*10+100);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{ if(Key==27){Close();}
if(Key==VK_LEFT) f--;
if(Key==VK_RIGHT) f++;
if(f==13){f=1;}
if(f==0){f=12;}
if(Key==VK_UP) {Image1->Width=(Image1->Width)+sz*2;
Image1->Height=(Image1->Height)+sz*2;
Image1->Top=(Image1->Top)-sz;
Image1->Left=(Image1->Left)-sz;
sz=sz+1;
}
if(Key==VK_DOWN) {Image1->Width=(Image1->Width)-sz*2;
Image1->Height=(Image1->Height)-sz*2;
Image1->Top=(Image1->Top)+sz;
Image1->Left=(Image1->Left)+sz;
sz=sz-1;
}
Image1->Picture->Bitmap->LoadFromFile("hq\\"+IntToStr(f)+".bmp");
}
---------- Post added at 17:38 ---------- Previous post was at 17:33 ----------
СИСЯНДРЫ ПРОСТО МОЩЬ!!!!
Последний раз редактировалось ALKO; 07.10.2011 в 18:44.
Новая версия (из псевдо-3д в openGL 3д.... и чиптюн из AY в SID)
http://sderni.ru/132419
сиськи Ашота - старенький боян.
ALKO, сначала черный, потом белый экран. Музыка играет. Но экран пустой. W7.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)