Queria conhecer funções para fazer joguin no Pascal??

Hider · 13-05-2005, 23:08

E ae blz??
Sei q he meio estranho alguem querer fazer jogos no Pascal ... mas calma..
Eu to aprendendo meche nele ... faço facul de CC... so que tipo mo saco ja fica fazendo so aqueles programinhas q so fazem resolver problemas de matematica queria fazer algo funcional q... sei la qualquer coisa...
Intao pensei..."Po seria legal se eu fizesse joguinhos toscos mesmos ,tipo Snake... ou sei la ... pac man... ou acerte o alvo..." qualquer coisa...

Alguem sabe oq eu posso usar??
Tipo conheço operadores logicos e matematicos tipo If... While... case... for...e vetores mas funçoes tipo...("Como fazer para captar as setas do teclado e fazer "algo se mover"?????)
essas coisas sabe??

Queria saber quem puder me ajudar ja fico feliz... valewwwwwww!!!!!

Grave_Digger · 14-05-2005, 7:47

O passo inicial eh decidir qual joguin fazer neh,hehe

Mas vale lembrar q mesmo joguinhos "simples" podem dar um trabalho razoável, vendo superficialmente vc acha q 100 linhas de código resolvem mas n eh bem por ai.

Comece decidindo o q vc quer fazer

jackinabox · 14-05-2005, 10:53

Citação:

Postado Originalmente por Hider

Tipo conheço operadores logicos e matematicos tipo If... While... case... for...

Ao ler essa frase, minha interpretação é de que você está dizendo que IF, WHILE, CASE, FOR são operadores lógicos e/ou matemáticos. Mas creio que não foi isso que você quis dizer, não é?

Conforme comentou o Grave_Digger, mesmo vários tipos de jogos simples podem representar grandes desafios para quem está começando. As estruturas de dados, algoritmos e técnicas envolvidas podem representar muito mais do que a pessoa está preparada para entender...

De qualquer forma, se você quiser mesmo dar uma olhada, esse site contém fontes em Pascal de vários tipos de jogos: Arkanoid, Mines, Frogger, Digger, etc.

http://www.fontesdejogos.com/jogos.html

Opa! Acabei de dar uma olhada no código fonte de alguns jogos, e acho até que eu nem deveria postar esse link, pois há trechos escritos em assembly, comentários no código fonte escritos em italiano, etc. Mas vou postar de qualquer forma...

Wormer · 14-05-2005, 12:05

Esse joguinho eu comecei a fazer uns anos atrás, quando entrei na faculdade, tá programado de um jeito bem tosco mas dá pra ter uma noção de como pega teclas e tal (teclas direita e esquerda pra mover, espaço pra atirar):

Código:

program nave;
uses crt;
var x,y,xt,xi,yi,c,z,t,i,c1,ti,xti:byte;
    a:char;
    tir,ini,tiri:boolean;
procedure inimigo;
begin
     textcolor(white);
       gotoxy(1,yi);
       write('':(xi div 4)-1,'/T\ ');
       gotoxy(1,yi+1);
       write('':(xi div 4)-1,'\*/ ');
     if ini=false then xi:=xi+1 else xi:=xi-1;
     if xi=1 then ini:=false;
     if xi>=200 then ini:=true;
end;

procedure tiro;
begin
      gotoxy(xt+1,y-t);
      textcolor(green);
      write('|');
      if t>1 then begin
        gotoxy(xt+1,y-t+1);
        write(' ');
        gotoxy(1,1);
        write(' ',tiri);
      end;
end;

procedure tiroini;
begin
      gotoxy(xti,ti);
      textcolor(green);
      write('|');
      if ti<y then begin
        gotoxy(xti,ti-1);
        write(' ');
        gotoxy(1,1);
        write(' ');
      end;
end;

procedure mover;
begin
     textcolor(yellow);
     gotoxy(x,y);
     write(' I ');
     gotoxy(x,y+1);
     write('/A\ ');
     gotoxy(1,1);
     gotoxy(x-1,y+1);
     write(' ');
     gotoxy(1,1);
end;

begin
t:=0;
x:=1;
xt:=1;
y:=24;
xi:=1;
yi:=1;
ti:=1;
clrscr;
gotoxy(1,y);
readkey;
repeat;
inimigo;
  if t>=y then begin
  gotoxy(xt+1,1);
  write(' ');
  t:=0;
  tir:=false;
  if ti>=y then tiri:=false;
  end;
  a:='1';
  if keypressed then a:=readkey;
  if (x=1) AND (a=#75) then x:=2;
  case a of
    #75: x:=x-1;
    #77: x:=x+1;
    ' ': begin
     tir:=true;
     tiro;
    end;
    'a':begin
     tiri:=true;
     tiroini;
    end;
  end;
  if tiri=true then tiroini;
  if (t<y) AND (tir=true) then tiro;
  mover;
  if t=0 then xt:=x;
  if tir=true then t:=t+1;
  if tiri=true then ti:=ti+1;
  if ti=1 then xti:=xt;
  delay(20);
until a=#27;
end.

Hider · 15-05-2005, 21:30

Valew ja estou dando uma olhada em tudo !!!!

Ja ta quebrando um galhao...

um abraço!!!!!!!!!!!

jqueiroz · 16-05-2005, 18:24

Quer fazer um joguinho? Comece pelo básico... que tal programar um jogo da velha? O micro contra o usuário.

Hider · 18-05-2005, 16:47

Como jogo da velha??

Me de ums caminhos? n tenho nem ideia!!

No momento vo tenta fazer um siga-me sabe??

aparece 1 ai vc digita 1 ai ele continua 1 5 ai vc tem q digitar 1 5 se errar ele começado inicio com numeros sortidos!!

acho q esse da pra eu fazer ... sei usar o delay e o randomize ... agora to tentandao fazer

Um abraço valewwwwwwwwwww!!!!!!!!!

Hider · 18-05-2005, 20:43

ahuahauhahauha
Consegui!!!!!!! meu primeiro jogo tosco!!!!!!!!!!!!!!

Siga-me by I-D hehe

ate meus amigos jogaram e aprovaram hehe!!!!!!!!!

Código:

Program Sigame;
Uses CRT;
var
vet1: array [0..100] of integer;
num,ver,digito,cont:integer;
vali:char;
Begin
clrscr;
delay(65000);Writeln('    -----Siga-me-------');
delay(55000);Writeln('   Apos parecer o numero');
delay(55000);Writeln('   digite a sequencia');
delay(55000);Writeln('   1§ numero + enter');
delay(55000);Writeln('   2§ numero + enter');
delay(55000);Writeln('   etc.');
delay(35000);clrscr;

  repeat
  clrscr;
    for num:= 0 to 100 do
      begin
        cont:= cont + 1;
        randomize;
        vet1[num]:=random(10);
           for ver:= 0 to num do
             begin
               delay(55000);
               gotoxy(20,10);Writeln(vet1[ver]);
               delay(50000);
               clrscr;
             end;
        delay(65000);
        gotoxy(20,10);Writeln(vet1[num]);
        clrscr;
           for ver:= 0 to num do
             begin
               gotoxy(20,20);readln(digito);
               delay(30000);clrscr;
                 If (digito <> vet1[ver]) then
                    Begin
                      num:=100;
                    end;
             end;
      end;
    gotoxy(16,25);Writeln('voce parou no ',cont,' § numero.');
     cont:=0; {tinha esquecido disso ai quando voltava o "score" so almentava} 
    repeat
      gotoxy(16,29);Writeln('Feito por Hider Tanure');
      gotoxy(16,27);Writeln('Continuar? s/n');
      vali:=readkey;
      vali:=upcase(vali);
    until ((vali = 'S') or (vali = 'N'));
  until (vali = 'N');
end.

Oq acham?????

Hider · 19-05-2005, 15:01

Como faço para deixar a tela do DOS do tamanho da minha telinha ??
Tipo ela sempre fica assim no arquivo.exe

http://imgfa.ubbi.com/fotoalbum_br/76/000182676/1359560_652_331.jpg

Eu queria q ficasse assim...

http://imgfa.ubbi.com/fotoalbum_br/76/000182676/1359562_260_347.jpg

como q faço isso??

Valew!!!!!

Editei mas po o ubbi mo lag *** o album he bublico he pra da!

jqueiroz · 19-05-2005, 15:24

Hider, eu acho que seu servidor não permite linkagem de fotos, pq daqui eu não consegui visualizar... experimente retirar os tags "[img]"...

Hider · 20-05-2005, 10:56

E agora ta dando para v????

jqueiroz · 20-05-2005, 15:10

Citação:

You don't have permission to access /fotoalbum_br/76/000182676/1359560_652_331.jpg on this server.

Hider · 21-05-2005, 0:53

??? eu em dexa vo tenta explicar!!!!!!!!

He o seguite quando eu compilo e crio o .exe o jogui roda blz
so q eu criei no pascal uma window pequena ( onde roda o programa , e ela possui cor servindo de plano de fundo)
ai quando roda o .exe o programa abre sempre na janela padrão do DOS (o tamanho normal) ai fica minha janelinha "amarela" no meio rodando o soft e uma sobra de tela preta... intendeu?
como ponho para ao abrio o exe a tela do dos se redimensionar para minha janelinha????

Obs: quero redimensionar pelo pascal para em qualquer DOS ele fica sempre com uma janelinha!!

Raaaxa · 04-05-2006, 19:20

Olá a todos, acabei de entrar no fórum, pra solucionar dúvidas minhas e também ajudar quem precisa.
Eu estou fazendo um jogo de nave em Pascal, e to com um problema de naum consegui efetuar ações "paralelas"
Por exemplo, o cenário (espaço) está andando, e a nave tah parada no canto inferior da tela. Como eu faço pro programa esperar uma tecla e ao mesmo tempo ir rolando o espaço?

abaixo está o código ateh agora...

Código:

Program Nave;
uses crt;

type vetor = array[1..50] of string;


var g:char;
    x,y,d:integer;
    v:vetor;


Procedure espaco;
var n:integer;

Begin
     gotoxy (1,1);
     For n:= 1 to 49 do
       writeln (v[n]);
     write (v[50]);
End;


Procedure rola;
var aux:string;
    i:integer;

Begin
      aux:=v[50];
      For i:= 50 downto 2 do
       v[i]:=v[i-1];
      v[1]:=aux;
      //clrscr;
      espaco;
End;


Procedure tirodir(a,b:integer);

Begin
      Repeat
       gotoxy (a,b);
       write ('|');
       gotoxy (80,50);
       delay (1);
       gotoxy (a,b);
       write (v[b][a]);
       gotoxy (80,50);
       b:=b-1;
      Until b = 0;
      gotoxy (80,50);
End;

Procedure tiroesq(a,b:integer);

Begin
      Repeat
       gotoxy (a,b);
       write ('|');
       gotoxy (80,50);
       delay (1);
       gotoxy (a,b);
       write (v[b][a]);
       gotoxy (80,50);
       b:=b-1;
      Until b = 0;
      gotoxy (80,50);
End;

Procedure apaganave(a,b:integer);

Begin
      gotoxy (a,b);
      write ('          ');
      gotoxy (a,b+1);
      write ('          ');
      gotoxy (a,b+2);
      write ('          ');
      gotoxy (a,b+3);
      write ('          ');
      gotoxy (a,b+4);
      write ('          ');
End;

Procedure desenhanave(a,b:integer);

Begin
      gotoxy (a,b);
      write (' /\    /\ ');
      gotoxy (a,b+1);
      write ('/()\/\/()\');
      gotoxy (a,b+2);
      write ('\   /\   /');
      gotoxy (a,b+3);
      write (' \  \/  / ');
      gotoxy (a,b+4);
      write ('  \/\/\/  ');
      gotoxy (80,50);
End;




BEGIN
      d:=1;
      Repeat
        v[d]:= ('.     .              .   .    .         .              .     .     .       .  ');
        d:=d+10;
      Until d = 51;
      d:=2;
      Repeat
        v[d]:= ('        .      .                 .               .        .          .        ');
        d:=d+10;
      Until d = 52;
      d:=3;
      Repeat
       v[d]:= ('  .                .       .         .      .        .           ..     .     ');
       d:=d+10;
      Until d = 53;
      d:=4;
      Repeat
       v[d]:= ('      .         .              .              .            .   .      .     . ');
       d:=d+10;
      Until d = 54;
      d:=5;
      Repeat
       v[d]:= ('           .        .     .             .          .                .         ');
       d:=d+10;
      Until d = 55;
      d:=6;
      Repeat
       v[d]:= ('    . .      .                 .   .        .          .        .    .    .  .');
       d:=d+10;
      Until d = 56;
      d:=7;
      Repeat
       v[d]:= ('  .              .    .  .            .        .            .       .       . ');
       d:=d+10;
      Until d = 57;
      d:=8;
      Repeat
       v[d]:= ('        .   .    .          .    .        .         .    .      .         .   ');
       d:=d+10;
      Until d = 58;
      d:=9;
      Repeat
       v[d]:= ('     .            .                 .            .              .      .      ');
       d:=d+10;
      Until d = 59;
      d:=10;
      Repeat
       v[d]:= (' .      .   .           .  .            .  . .         .      .       .      .');
       d:=d+10;
      Until d = 60;
      x:=36;
      y:=46;
      clrscr;
      espaco;
      desenhanave(x,y);
     [b]Repeat
      Repeat
       delay (10);
       rola;
       desenhanave(x,y);
       If keypressed
        Then g:=readkey;
      until keypressed;
      delay (10);
      rola;
      //g:=readkey;
      Case g of[/b]
       chr (65):Begin //A
                      If x <> 1
                       Then begin
                                  apaganave(x,y);
                                  x:=x-1;
                                  desenhanave(x,y);
                                  gotoxy (x+11,y);
                                  write (v[y][x+11]);
                                  gotoxy (x+11,y+1);
                                  write (v[y+1][x+11]);
                                  gotoxy (x+11,y+2);
                                  write (v[y+2][x+11]);
                                  gotoxy (x+11,y+3);
                                  write (v[y+3][x+11]);
                                  gotoxy (x+11,y+4);
                                  write (v[y+4][x+11]);
                                  gotoxy (80,50);
                            end;
                End;
       chr (97):Begin //a
                      If x <> 1
                       Then begin
                                  apaganave(x,y);
                                  x:=x-1;
                                  desenhanave(x,y);
                                  gotoxy (x+11,y);
                                  write (v[y][x+11]);
                                  gotoxy (x+11,y+1);
                                  write (v[y+1][x+11]);
                                  gotoxy (x+11,y+2);
                                  write (v[y+2][x+11]);
                                  gotoxy (x+11,y+3);
                                  write (v[y+3][x+11]);
                                  gotoxy (x+11,y+4);
                                  write (v[y+4][x+11]);
                                  gotoxy (80,50);
                            end;
                End;
       chr (68):Begin //D
                      If x <> 62
                       Then begin
                                  apaganave(x,y);
                                  x:=x+1;
                                  desenhanave(x,y);
                                  gotoxy (x-1,y);
                                  write (v[y][x-1]);
                                  gotoxy (x-1,y+1);
                                  write (v[y+1][x-1]);
                                  gotoxy (x-1,y+2);
                                  write (v[y+2][x-1]);
                                  gotoxy (x-1,y+3);
                                  write (v[y+3][x-1]);
                                  gotoxy (x-1,y+4);
                                  write (v[y+4][x-1]);
                                  gotoxy (80,50);
                            end;
                End;
       chr(100):Begin //d
                      If x <> 62
                       Then begin
                                  apaganave(x,y);
                                  x:=x+1;
                                  desenhanave(x,y);
                                  gotoxy (x-1,y);
                                  write (v[y][x-1]);
                                  gotoxy (x-1,y+1);
                                  write (v[y+1][x-1]);
                                  gotoxy (x-1,y+2);
                                  write (v[y+2][x-1]);
                                  gotoxy (x-1,y+3);
                                  write (v[y+3][x-1]);
                                  gotoxy (x-1,y+4);
                                  write (v[y+4][x-1]);
                                  gotoxy (80,50);
                            end;
                End;
       chr (87):Begin //W
                      If y <> 1
                       Then begin
                                  apaganave(x,y);
                                  y:=y-1;
                                  desenhanave(x,y);
                                  gotoxy (1,y+5);
                                  write (v[y+5]);
                                  gotoxy (80,50);
                            end;
                End;
       chr(119):Begin //w
                      If y <> 1
                       Then begin
                                  apaganave(x,y);
                                  y:=y-1;
                                  desenhanave(x,y);
                                  gotoxy (1,y+5);
                                  write (v[y+5]);
                                  gotoxy (80,50);
                            end;
                End;
       chr (83):Begin //S
                      If y <> 46
                       Then begin
                                  apaganave(x,y);
                                  y:=y+1;
                                  desenhanave(x,y);
                                  gotoxy (1,y-1);
                                  write (v[y-1]);
                                  gotoxy (80,50);
                            end;
                End;
       chr(115):Begin //s
                      If y <> 46
                       Then begin
                                  apaganave(x,y);
                                  y:=y+1;
                                  desenhanave(x,y);
                                  gotoxy (1,y-1);
                                  write (v[y-1]);
                                  gotoxy (80,50);
                            end;
                End;
       chr (53):Begin //5
                      If y <> 2
                       Then tiroesq(x+1,y-1);
                End;
       chr (54):Begin //6
                      If y <> 2
                       Then tirodir(x+8,y-1);
                End;
       Else rola;
      End;
     Until g = chr(27);  //ESC
END.

giljunior · 05-05-2006, 9:49

Kra, quando eu comecei a aprender pascal, eu e uns colegas fizemos jogo da velha, batalha naval, snake. Ae agente tava quase conseguindo fazer um pacman, mas ae uns desistiram, eu migrei pra C e tawz, ae naum saiu.
Vc pode tentar fazer um jogo da velha, depois um pong, depois um snake(q começa a ficar complicadinho), depois um breakout, dpois um tetris e depois o que a imaginação mandar.
Só uma dica, já vi vários jogos usando apenas ascii, mas naum curti muito naum. Te aconselho dar uma estudada em GRAPH. O jogo fica mais bonitinho

matheuscandido · 15-03-2008, 19:22

Pra fazer um jogo no Pascal eu recomendo o Lazarus.No baixaki tem para fazer download.
Eu estou começando a aprender Pascal, ainda nem fiz meu primeiro algorítmo mas eu já vi, usei e recomendo, ele é gratuito e em português

Windows XP SP2
512mb ram
80gb
Pentium 4 -3.0Ghz

Rhydderc · 13-03-2010, 13:00

Citação:

Postado Originalmente por ;1708428

Esse joguinho eu comecei a fazer uns anos atrás, quando entrei na faculdade, tá programado de um jeito bem tosco mas dá pra ter uma noção de como pega teclas e tal (teclas direita e esquerda pra mover, espaço pra atirar):

Uso o Pascalzim! e testei o seu programa nele, mas apareceu isso aqui na caixa de erro:

=> Erro semântico na linha 3...
=> O identificador 'BYTE' não foi declarado dentro do escopo para a função PROGRAM!

Como resolvo isso?

Edit: Descobri que não há solução. =p Esse programa Pascalzim é muito limitado, não dá para usar a variável byte.

13-05-2005, 23:08	#1 (permalink)
Hider Veterano Registrado em: Sep 2003 Localização: Vitória - ES Idade: 25 Mensagens: 1.407 Reputação: 1176	Queria conhecer funções para fazer joguin no Pascal?? E ae blz?? Sei q he meio estranho alguem querer fazer jogos no Pascal ... mas calma.. Eu to aprendendo meche nele ... faço facul de CC... so que tipo mo saco ja fica fazendo so aqueles programinhas q so fazem resolver problemas de matematica queria fazer algo funcional q... sei la qualquer coisa... Intao pensei..."Po seria legal se eu fizesse joguinhos toscos mesmos ,tipo Snake... ou sei la ... pac man... ou acerte o alvo..." qualquer coisa... Alguem sabe oq eu posso usar?? Tipo conheço operadores logicos e matematicos tipo If... While... case... for...e vetores mas funçoes tipo...("Como fazer para captar as setas do teclado e fazer "algo se mover"?????) essas coisas sabe?? Queria saber quem puder me ajudar ja fico feliz... valewwwwwww!!!!! __________________ Gente nos fins de semana Windows 8 note * Linux note

14-05-2005, 7:47	#2 (permalink)
Grave_Digger Membro Senior Registrado em: Nov 2004 Localização: Sampa Mensagens: 347 Reputação: 16	O passo inicial eh decidir qual joguin fazer neh,hehe Mas vale lembrar q mesmo joguinhos "simples" podem dar um trabalho razoável, vendo superficialmente vc acha q 100 linhas de código resolvem mas n eh bem por ai. Comece decidindo o q vc quer fazer __________________ Analista Desenvolvedor WEB Java e .NET SCJP Need a coder ? sena.pedro@gmail.com

15-05-2005, 21:30	#5 (permalink)
Hider Veterano Registrado em: Sep 2003 Localização: Vitória - ES Idade: 25 Mensagens: 1.407 Reputação: 1176	Valew ja estou dando uma olhada em tudo !!!! Ja ta quebrando um galhao... um abraço!!!!!!!!!!! __________________ Gente nos fins de semana Windows 8 note * Linux note

16-05-2005, 18:24	#6 (permalink)
jqueiroz Highlander Registrado em: May 2002 Localização: Tijuca/RJ Idade: 9 Mensagens: 87.782 Reputação: 1756	Quer fazer um joguinho? Comece pelo básico... que tal programar um jogo da velha? O micro contra o usuário. __________________ Visite Quepolis (link de indicação) \| "chmod 777 nunca ajudou ninguém" (c) 2002-2010 JQueiroz/FGdH CCNP: √ ² CCSI: □ \| Conheça o Novo Bebuns

18-05-2005, 16:47	#7 (permalink)
Hider Veterano Registrado em: Sep 2003 Localização: Vitória - ES Idade: 25 Mensagens: 1.407 Reputação: 1176	Como jogo da velha?? Me de ums caminhos? n tenho nem ideia!! No momento vo tenta fazer um siga-me sabe?? aparece 1 ai vc digita 1 ai ele continua 1 5 ai vc tem q digitar 1 5 se errar ele começado inicio com numeros sortidos!! acho q esse da pra eu fazer ... sei usar o delay e o randomize ... agora to tentandao fazer Um abraço valewwwwwwwwwww!!!!!!!!! __________________ Gente nos fins de semana Windows 8 note * Linux note

		FórumGdH > Profissional > Programação, scripts, web e banco de dados
Queria conhecer funções para fazer joguin no Pascal??

1. (Dica)Algumas funções interessantes no Rhythmbox
Mais resultados? Use nossa pesquisa.

19-05-2005, 15:01	#9 (permalink)
Hider Veterano Registrado em: Sep 2003 Localização: Vitória - ES Idade: 25 Mensagens: 1.407 Reputação: 1176	Como faço para deixar a tela do DOS do tamanho da minha telinha ?? Tipo ela sempre fica assim no arquivo.exe http://imgfa.ubbi.com/fotoalbum_br/76/000182676/1359560_652_331.jpg Eu queria q ficasse assim... http://imgfa.ubbi.com/fotoalbum_br/76/000182676/1359562_260_347.jpg como q faço isso?? Valew!!!!! Editei mas po o ubbi mo lag *** o album he bublico he pra da! __________________ Gente nos fins de semana Windows 8 note * Linux note

19-05-2005, 15:24	#10 (permalink)
jqueiroz Highlander Registrado em: May 2002 Localização: Tijuca/RJ Idade: 9 Mensagens: 87.782 Reputação: 1756	Hider, eu acho que seu servidor não permite linkagem de fotos, pq daqui eu não consegui visualizar... experimente retirar os tags "[img]"... __________________ Visite Quepolis (link de indicação) \| "chmod 777 nunca ajudou ninguém" (c) 2002-2010 JQueiroz/FGdH CCNP: √ ² CCSI: □ \| Conheça o Novo Bebuns

20-05-2005, 10:56	#11 (permalink)
Hider Veterano Registrado em: Sep 2003 Localização: Vitória - ES Idade: 25 Mensagens: 1.407 Reputação: 1176	E agora ta dando para v???? __________________ Gente nos fins de semana Windows 8 note * Linux note

21-05-2005, 0:53	#13 (permalink)
Hider Veterano Registrado em: Sep 2003 Localização: Vitória - ES Idade: 25 Mensagens: 1.407 Reputação: 1176	??? eu em dexa vo tenta explicar!!!!!!!! He o seguite quando eu compilo e crio o .exe o jogui roda blz so q eu criei no pascal uma window pequena ( onde roda o programa , e ela possui cor servindo de plano de fundo) ai quando roda o .exe o programa abre sempre na janela padrão do DOS (o tamanho normal) ai fica minha janelinha "amarela" no meio rodando o soft e uma sobra de tela preta... intendeu? como ponho para ao abrio o exe a tela do dos se redimensionar para minha janelinha???? Obs: quero redimensionar pelo pascal para em qualquer DOS ele fica sempre com uma janelinha!! __________________ Gente nos fins de semana Windows 8 note * Linux note

05-05-2006, 9:49	#15 (permalink)
giljunior Novo Membro Registrado em: Mar 2006 Localização: Brasília Mensagens: 82 Reputação: 13	Kra, quando eu comecei a aprender pascal, eu e uns colegas fizemos jogo da velha, batalha naval, snake. Ae agente tava quase conseguindo fazer um pacman, mas ae uns desistiram, eu migrei pra C e tawz, ae naum saiu. Vc pode tentar fazer um jogo da velha, depois um pong, depois um snake(q começa a ficar complicadinho), depois um breakout, dpois um tetris e depois o que a imaginação mandar. Só uma dica, já vi vários jogos usando apenas ascii, mas naum curti muito naum. Te aconselho dar uma estudada em GRAPH. O jogo fica mais bonitinho __________________ Epox 8NPA7I, AMD Athlon 64 3000, Sata 250Gb Samsung, Asus EAX550 Gamer Edition 256mb, 512 ddr 400, 7Team 420BKV

15-03-2008, 19:22	#16 (permalink)
matheuscandido Novo Membro Registrado em: Mar 2008 Localização: Campo Belo MG Idade: 16 Mensagens: 65 Reputação: 9	Pra fazer um jogo no Pascal eu recomendo o Lazarus.No baixaki tem para fazer download. Eu estou começando a aprender Pascal, ainda nem fiz meu primeiro algorítmo mas eu já vi, usei e recomendo, ele é gratuito e em português Windows XP SP2 512mb ram 80gb Pentium 4 -3.0Ghz

Opções do Tópico
Exibir Versão para Impressão Envie essa página por e-mail