Pascal/Turbo Pascal - Urgente

Necesito programar juegos en pascal en los cuales pueda utilizar el mouse y teclado, ademàs necesito que tengan una interfaz gràfica bastante atractiva; podrian proporcionarme informacion....gracias

Hola Darvin:
No concretas lo que precisas. Yo te puedo pasar el código fuente de la Unit Mouse para T/P, y la web de un manual básico para programar en modo gráfico.
Tu dirás.
Un saludo.
antonio

Te agradezco por la ayuda y me parece perfecto si me `pasas la informacion que tengas.
Gracias.
Saludos
darvin

http://www.fortunecity.com/skyscraper/seagate/1072/indice.htm

Unit mouse;
interface
var
Mouse_Enable,
MousePtr_Active : Boolean;
Buttons : byte;

procedure Initmouse;
procedure ShowCursorMouse;
procedure HideCursorMouse;
procedure GetStatus_Position(var Status,Xpos,Ypos : word);

implementation
uses dos;
const
MouseInt = 51;

var
Regs : Registers;

procedure InitMouse;
begin
Regs.Ax := 0;
Intr(MouseInt,regs);

if Regs.Ax <> 0 then
begin
mouse_Enable := true;
Buttons := Regs.Bx
end

else
Mouse_Enable := False
end;

procedure ShowCursorMouse;
begin
Regs.Ax := 1;
Intr(MouseInt,regs);
MousePtr_Active := true
end;

procedure HideCursorMouse;
begin
Regs.Ax := 2;
Intr(Mouseint, regs);
MousePtr_Active := false
end;

procedure GetStatus_Position(Var Status, Xpos,Ypos : word);
begin
regs.ax := 3;
Intr(mouseint,regs);
with regs do
begin
Status := BX;
Xpos := CX;
Ypos := DX
end
end;

begin {programa principal}
Mouse_Enable := false;
MousePtr_Active := false;
Buttons := 0
end.

Hola: Como puedes comprobar, en principio está la web del manual y lo siguiente es el código fuente para el ratón.
Espero te sean útil.
Un saludo.

http://www.fortunecity.com/skyscraper/seagate/1072/indice.htm

Unit mouse;
interface
var
Mouse_Enable,
MousePtr_Active : Boolean;
Buttons : byte;

procedure Initmouse;
procedure ShowCursorMouse;
procedure HideCursorMouse;
procedure GetStatus_Position(var Status,Xpos,Ypos : word);

implementation
uses dos;
const
MouseInt = 51;

var
Regs : Registers;

procedure InitMouse;
begin
Regs.Ax := 0;
Intr(MouseInt,regs);

if Regs.Ax <> 0 then
begin
mouse_Enable := true;
Buttons := Regs.Bx
end

else
Mouse_Enable := False
end;

procedure ShowCursorMouse;
begin
Regs.Ax := 1;
Intr(MouseInt,regs);
MousePtr_Active := true
end;

procedure HideCursorMouse;
begin
Regs.Ax := 2;
Intr(Mouseint, regs);
MousePtr_Active := false
end;

procedure GetStatus_Position(Var Status, Xpos,Ypos : word);
begin
regs.ax := 3;
Intr(mouseint,regs);
with regs do
begin
Status := BX;
Xpos := CX;
Ypos := DX
end
end;

begin {programa principal}
Mouse_Enable := false;
MousePtr_Active := false;
Buttons := 0
end.

gracias por tu ayuda me ha servido mucho.
saludos