My first game was Pong, but it had both one and 2 player modes and sounds, and all those things. It was with directdraw and directsound. I wrote the engine myself.

It''s nearly impossible to catch the smile in the center - but sometimes it''s in a corner and gets a bit "confused", then you can catch it. My best catch time is 0.87 sec! *g*


Visit our homepage: www.rarebyte.de.st

GA

--------------------------------------------------
how the fuck u catched him in 0.87 sec?????????!!!!!!!!!!!!!!
its impossible!!! even in speed of 1.
do u have the source i want to chenge his AI .





Posted By Xeno.
Kobe Bryant- "Just believe in yourself"

The program runs faster on faster CPUs. Here''s the catch procedure:

PROCEDURE fangen;

var a,b,c,verz:byte;
st,min,sek,h:array[1..2] of word;
zw:array[1..10] of string;

label marke;

BEGIN
clrscr;
textcolor(white);
gotoxy(10,10);
write(''Bitte Geschwindigkeit eingeben(1=langsam, 255=sehr schnell): '');
window(71,11,74,11);
repeat
read(verz);
until (ioresult=0) and (verz<>0);
window(1,2,80,25);
st[2]:=0;
min[2]:=0;
sek[2]:=0;
h[2]:=0;
gettime(st[1],min[1],sek[1],h[1]);
settime(st[2],min[2],sek[2],h[2]);
kurs:=false;
ziel:=false;
w:=40;
x:=13;
y:=79;
z:=13;
repeat
delay(round(255/verz));
clrscr;
gettime(st[2],min[2],sek[2],h[2]);
textcolor(white);
gotoxy(2,24);
write(''Zeit: '',st[2],'':'',min[2],'':'',sek[2],'':'',h[2]);
textcolor(red);
gotoxy(y,z);
write(#2);
textcolor(green);
gotoxy(w,x);
write(#1);
case port[$60] of

72: if (x>2) then x:=x-1;


80: if (x<23) then x:=x+1;


75: if (w>2) then w:=w-1;


77: if (w<79) then w:=w+1;


1: exit;

END;
if keypressed then taste:=readkey;
if (w=y) and (x=z) then ziel:=true;

b:=y;
c:=z;

if kurs=false then
BEGIN
if ((y=79) or (y=2)) and (2 BEGIN
if (xy) then z:=z+1;
if x=z then
BEGIN
a:=random(2);
if a=0 then z:=z+1;
if a=1 then z:=z-1;
END;
if (x>z) and (w<>y) then z:=z-1;
if (w=y) and (y=2) then y:=y+1;
if (w=y) and (y=79) then y:=y-1;
goto marke;
END;

if ((z=23) or (z=2)) and (2 BEGIN
if (wz) then y:=y+1;
if w=y then
BEGIN
a:=random(3);
if a=0 then y:=y+1;
if a=2 then y:=y-1;
END;
if (w>y) and (x<>z) then y:=y-1;
if (x=z) and (z=2) then z:=z+1;
if (x=z) and (z=23) then z:=z-1;
goto marke;
END;

if (y=2) and (z=2) then
BEGIN
if w+x<12 then
BEGIN
kurs:=true;
if w>x then r:=1;
if w a:=1;
goto marke;
END;
if w>x then z:=z+1;
if w<=x then y:=y+1;
goto marke;
END;
if (y=2) and (z=23) then
BEGIN
if (23-x+w<12) then
BEGIN
kurs:=true;
a:=1;
if w>23-x then r:=3;
if w<23-x then r:=2;
goto marke;
END;
if w+x<23 then y:=y+1;
if w+x>=23 then z:=z-1;
goto marke;
END;
if (y=79) and (z=2) then
BEGIN
if (78-w+x<12) then
BEGIN
kurs:=true;
a:=1;
if 79-w>x then r:=1;
if 79-w goto marke;
END;
if w+x<=79 then z:=z+1;
if w+x>79 then y:=y-1;
goto marke;
END;
if (y=79) and (z=23) then
BEGIN
if (78-w+23-x<12) then
BEGIN
a:=1;
kurs:=true;
if 79-w>23-x then r:=3;
if 79-w<23-x then r:=2;
goto marke;
END;
if w-55<=x then z:=z-1;
if w-55>x then y:=y-1;
goto marke;
END;

if (y2) and (y<79) and (z<23) and (z2) then
BEGIN
a:=random(6);
if (a=0) or (a=1) then y:=y-1;
if (a=2) or (a=3) then z:=z-1;
if (a=4) then y:=y+1;
if (a=5) then z:=z+1;
goto marke;
END;
if (y>w) and (y<79) and (z>x) and (z<23) and (y>2) and (z>2) then
BEGIN
a:=random(6);
if (a=0) or (a=1) then y:=y+1;
if (a=2) or (a=3) then z:=z+1;
if (a=4) then y:=y-1;
if (a=5) then z:=z-1;
goto marke;
END;
if (y>w) and (y<79) and (z2) and (z>2) then
BEGIN
a:=random(6);
if (a=0) or (a=1) then y:=y+1;
if (a=2) or (a=3) then z:=z-1;
if (a=4) then y:=y-1;
if (a=5) then z:=z+1;
goto marke;
END;
if (yx) and (z<23) and (y>2) and (z>2) then
BEGIN
a:=random(6);
if (a=0) or (a=1) then y:=y-1;
if (a=2) or (a=3) then z:=z+1;
if (a=4) then y:=y+1;
if (a=5) then z:=z-1;
goto marke;
END;

if (y<79) and (y>2) and (z=x) and (z<23) and (z>2) then
BEGIN
a:=random(2);
if a=0 then z:=z-1;
if a=1 then z:=z+1;
goto marke;
END;
if (z<23) and (z>2) and (y=w) and (y<79) and (y>2) then
BEGIN
a:=random(2);
if a=0 then y:=y-1;
if a=1 then y:=y+1;
goto marke;
END;
END;

marke: if (kurs=true) then
BEGIN
if ((r mod 2=0) and (x=z)) or ((r mod 2=1) and (w=y)) then
BEGIN
kurs:=true;
if x=z then
BEGIN
if y=2 then y:=y+1;
if y=23 then y:=y-1;
END;
if w=y then
BEGIN
if z=2 then z:=z+1;
if z=23 then z:=z-1;
END;
END;
if ((r mod 2=1) and (x<>z)) or ((r mod 2=0) and (w<>y)) then
BEGIN
if r=0 then y:=y+1;
if r=1 then z:=z+1;
if r=2 then y:=y-1;
if r=3 then z:=z-1;
a:=a+1;

if a=6 then kurs:=false;
END;
END;



if (y<2) then y:=2;
if (y>79) then y:=79;
if (z<2) then z:=2;
if (z>23) then z:=23;
if (w=y) and (x=z) then ziel:=true;

if (b=y) and (c=z) then
BEGIN
a:=random(2);
if (y>2) and (y<79) and (z>2) and (z<23) then
BEGIN
if (y>=w) and (a=0) then y:=y+1;
if (y if (z>=x) and (a=1) then z:=z+1;
if (z>x) and (a=1) then z:=z-1;
END;

if (((y=2) or (y=79)) and (z>2) and (z<23)) then
BEGIN
if a=0 then z:=z+1;
if a=1 then z:=z-1;
END;
if (((z=2) or (z=23)) and (y>2) and (y<79)) then
BEGIN
if a=0 then y:=y+1;
if a=1 then y:=y-1;
END;

if (y=2) and (z=2) then
BEGIN
if a=0 then z:=z+1;
if a=1 then y:=y+1;
END;
if (y=79) and (z=2) then
BEGIN
if a=0 then z:=z+1;
if a=1 then y:=y-1;
END;
if (y=2) and (z=23) then
BEGIN
if a=0 then z:=z-1;
if a=1 then y:=y+1;
END;
if (y=79) and (z=23) then
BEGIN
if a=0 then z:=z+1;
if a=1 then y:=y+1;
END;

END;

until ziel=true;
h[1]:=(h[1]+h[2]) mod 100;
if h[1]+h[2]>99 then sek[1]:=sek[1]+1;
sek[1]:=(sek[1]+sek[2]) mod 60;
if sek[1]+sek[2]>59 then min[1]:=min[1]+1;
min[1]:=(min[1]+min[2]) mod 60;
if min[1]+min[2]>59 then st[1]:=st[1]+1;
st[1]:=st[1]+st[2];
settime(st[1],min[1],sek[1],h[1]);
clrscr;
gotoxy(20,12);
write(''Bravo! Ihre Zeit beträgt nur '',st[2],'':'',min[2],'':'',sek[2],'':'',h[2]);
gotoxy(30,14);
write(''Weiter mit '');
repeat
taste:=readkey;
until taste=#13;
END;


Visit our homepage: www.rarebyte.de.st

GA