unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
BGRABitmap, BGRABitmapTypes, BGRAVirtualScreen;
const
ascii : Array [0..58] of integer = (26,37,99,99,99,99,99,41,42,43,99,99,44,99,38,99,27,28,29,30,31,32,33,34,35,36,40,99,99,99,99,39,99,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25);
var
CharImage: TBGRABitmap;
ScrollSpeed: integer = 2;
ScrollCounter: integer = 1;
CharWidth : integer = 16;
CharHeight : integer = 22;
CharsPerLine : integer = 700;
ScrollText2: String = ' YEAH OF COURSE !!! ))))) THE CHAMPS ((((( PRESENT : SIDEWINDER CRACKED BY DELTA FORCE THE BEST SALUTE GO TO : HOTLINE HIGH QUALITY CRACKINGS DELTA FORCE AND TRISTAR(THE BEST GET BETTER !!!) THE SPECIAL GREETINGS IN ALPHABETICAL ORDER GO TO : AXXESS ANTITRAX BFBS BLIZZARDS BS1 BST CCW ERNIE FREE NETWORK GENERAL INDY IBB KNIGHT HAWKS MEGAFORCE NEW AGE MR.NEWLOOK NORTHERN LIGHTS POWERXTREME RANDOM ACCESS RED SECTOR SKYLINE TLC TOM VISITOR WIZARDS AND ALL THE OTHERS WE KNOW.... COMMING SOON MORE AND MORE NEW PRG FROM THE UNATTAINABLE ))))) THE CHAMPS ((((( IN 1988 !!!!! ';
type
{ TForm1 }
TForm1 = class(TForm)
BGRAVirtualScreen1: TBGRAVirtualScreen;
Timer1: TTimer;
procedure BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
CharImage := TBGRABitmap.Create('font.png');
end;
procedure TForm1.BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
var
I, Chr: Integer;
CharX, CharY: Integer;
ScrollOffset: Integer;
begin
Bitmap.Fill(BGRAPixelTransparent);
ScrollOffset := ScrollCounter ;
for I := 0 to Length(ScrollText2) do
begin
Chr := Ord(ScrollText2[I]);
CharX := ((I - 1) mod CharsPerLine) * CharWidth - ScrollOffset ;
CharY := ((I - 1) div CharsPerLine) * CharHeight ;
Bitmap.PutImagePart(CharX ,240+CharY , CharImage, Rect(0, 24*ascii[chr-32] , 15, 24*ascii[chr-32]+CharHeight), dmDrawWithTransparency);
end;
ScrollCounter := ScrollCounter + ScrollSpeed;
if ScrollCounter >= CharWidth then
begin
ScrollCounter := ScrollCounter - CharWidth;
ScrollText2 := Copy(ScrollText2,2, Length(ScrollText2) - 1) + ScrollText2[1];
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
BGRAVirtualScreen1.RedrawBitmap;
end;
end.