[luisito2011]

Hola.. Como estan...
saludos.. dejde Bolivia

Bueno.... En la clase de programacion..estamos enpezando hacer un juego
algo similar ah pacman...aun.. no hacemos que se mueva el bichito
pero mas u menoj ya esta dibujado el escenario..
El docente nos dijo vean como pueden insertar el dibujo de pacman
y en eso estoy aver si aca me pueden ayudar..o guiar tambien
estoy en google..

este es mi codigo

Código Delphi [-]
 
unit Ucjuego;
interface
uses
sysutils,Graphics;
const
Pared = '1';
Manzana ='7' ;
Bicho = '2' ;
Camino = '0' ;
type
 juego = class
  p: array[1..20 , 1..20] of char;
  BX,BY:integer;
  CX,CY:integer;
 puntos,nivel:integer;
 constructor crear;
 procedure cargarplano(nro:integer);
 procedure pintarpieza(F,C:integer; Pant:tcanvas);
 procedure pintarplano(pant:tcanvas);
 end;
implementation
constructor juego.crear;
begin
  Puntos := 0;
  Nivel := 1;
  Cx:= 50; Cy:= 50;
end;
  procedure juego.cargarplano(nro: Integer);
  var
  Snro: string; Linea: string; i:integer;
  F: textfile;  ex : boolean;
  procedure ponerlinea(fila : integer; que :string);
  var
  col:integeR;
    begin
      for col:=1 to length(que) do
      p[fila,col]:=que[col];
    end;
        begin
        assignfile(f,'C:\planos.txt');
        Reset(f);
        str(Nro,snro);
        snro:= '*' + snro; ex:=TRuE;
          while not eof (f) and ex=TRue do
            begin
            readln(f,linea);
            if snro = linea then
            for I := 1 to 10 do
             begin
              readln(f,linea);
              ponerlinea(I,linea);
            end;
          //  readln(linea);
          //  by:=strtoint(linea);
          //  readln(linea);
          //  Bx:=strtoint(linea);
            ex:=false;
      end;
 closefile(f);
  end;
procedure juego.pintarpieza(F,C: Integer; Pant: TCanvas);
var x,y:integer;
    fig : char;
begin
  x:= cx+(c-1) * 30;
  y:= cy+(f-1) * 30;
  fig:= p[f,c];
  if fig = pared then
    begin
      pant.Brush.Color:=clblack;
      pant.Pen.Color:=clred;
      pant.Rectangle(x , y, x+30 , y+30);
      pant.Rectangle(x+5, y+5, x+20, y+20);
    end;
  if fig = bicho then
  begin
    pant.Brush.Color:=clyellow;
    pant.Pen.Color:=clblack;
    pant.Ellipse(x,y,x+30,y+30);
    pant.Font.Color:=clblack;
    pant.TextOut(x+5,y+5,('^o^'));
   //pant.Rectangle(x , y, x+30 , y+30);
  end;
  if fig = manzana then
  begin
    pant.Brush.Color:=clRed;
    pant.Pen.Color:=clblack;
    pant.Ellipse(x+5,y+5,x+20,y+20);
  end;
end;
procedure juego.pintarplano(pant: TCanvas);
var f,c:integer;
begin
 for f := 1 to 10 do
   for c := 1 to 10 do
  pintarpieza(f,c,pant) ;
end;
end.

El cual lo unico que hace es dibujar..
en la parte de assignfile biene esto guardado en .txt
(Se supone que esto es el esenario donde pacman se mueve )
*1
1111111111 el cual 1 = pared
1000000001 2 = pacman o bicho
1000007001 7 = seria una corazon o manzana
1000111101 0 = el camino..
1000000001
1000000071
1000000001
1000000001
1002007001
1111111111
9
2

quisiera que me ayuden.. como puedo hacer que aparesca
la imagen de pacman.. donde este el 2.. y no dibujarlo..
con canvas.. a lo que eh visto algunas pag.. lo que hacen
es dibujar pacman en paint.. oh sacarlo de algun lado..
lo que no se es como hacer que se meta al form..
y que aparesca en el 2
(tal vez puedo enviarles.. lo q ya tengo hecho.. y pueden
modificarlo pero no se donde puedo suvir.. bueno con una
ayudita no vendria mal)
gracias...