Página 2 de 2

Re: Quando vou compilar aparece assim.

Enviado: 03 Ago 2010 00:28
por Glauco
Quase em Toledo mais olha ai

Imagem

Re: Quando vou compilar aparece assim.

Enviado: 03 Ago 2010 08:20
por Toledo
Glauco, ainda falta algum arquivo PRG, OBJ ou alguma LIB para compilar junto com este seu programa.
Glauco escreveu:FORTE.PRG
_ERROSYS.OBJ
BIBLIO.OBJ
DGE256.OBJ
DIVIDE52.OBJ
TIMESLIC.OBJ

Sao esses arquivos que ele me forneceu e me informou novamente que é so esses.
Fora estes arquivos acima, ele não enviou nenhum outro? Não enviou nenhum arquivo com a extensão BAT ou LNK que possa ajudar a gente e descobrir o que está faltando?

Abraços,

Re: Quando vou compilar aparece assim.

Enviado: 03 Ago 2010 12:22
por Glauco
Existe um AUTOEXEC.BAT que inicia o programa depois de compilado

Código: Selecionar todos

@ECHO OFF
CLS
@ECHO BOOT CARREGANDO...
PROMPT $p$g
PATH C:\DOS;

:HALL 
CLS
ECHO INICIANDO HALLOWENN...
@ECHO OFF
SET DIRE=H > NULL
GOTO CARREGA

:SAI
GOTO FOI

:CARREGA
CTTY > NULL
SET TEMP=D:\
SET  TMP=D:\
SMARTDRV
D:
COPY C:\%DIRE%\*.* > NULL
DEL NULL
TRAVA
FORTE

:FOI
@ECHO OFF
CLS
@ECHO PC-DISK 1.0 (VADO) BOOT...
PROMPT $p$g
PATH C:\DOS;

Re: Quando vou compilar aparece assim.

Enviado: 03 Ago 2010 12:41
por JoséQuintas
K K K K K K K K K K K K K K K K
K K K K K K K K K K K K K K K K
K K K K K K K K K K K K K K K K

Esse é o programa daquelas máquinas de bingo/caça níqueis.
Eles foram feitos em Clipper, usando alguma LIB gráfica.
Acho muito duvidoso alguém ter te dado os fontes.
Provavelmente usou um Valkyrie e está tentando fuçar.
Eu brinquei muito com ele, e tenho até hoje na minha máquina.

Tenho curiosidade em descobrir a LIB usada, mas provavelmente deve ter sido a CLBC.

Re: Quando vou compilar aparece assim.

Enviado: 03 Ago 2010 12:53
por Glauco
Olha to na area de video bingo a 6 anos, e nao foi dado o fonte... mais sim adquirido


Tenho muitos outros fontes um deles funciona perfeitamente.

Imagem

Re: Quando vou compilar aparece assim.

Enviado: 03 Ago 2010 14:49
por Toledo
JoséQuintas escreveu:mas provavelmente deve ter sido a CLBC
Na CLBC 3.0 não tem nenhuma desta funções que estão faltando!
JoséQuintas escreveu:Provavelmente usou um Valkyrie
Glauco escreveu:nao foi dado o fonte... mais sim adquirido
Glauco, geralmente quando se usa o Valkyrie para descompilar um EXE (recuperar o PRG através do EXE), os nomes das variáveis não ficam como no PRG original, as variáveis locais ficam Local1, Local2, Local3, etc... e as variáveis estaticas, ficam static1, static2, static3, etc. Então, quando a gente vê um arquivo PRG (como o H1.PRG da sua imagem acima) com variáveis com estes nomes, imaginamos que o PRG é fruto de uma descompilação. Pode ser que você não tenha descompilado o EXE, mas com certeza quem passou este PRG para você, provavelmente deve ter feito isto.

Abraços,

Re: Quando vou compilar aparece assim.

Enviado: 03 Ago 2010 18:11
por Glauco
Bom Toledo, fica complicado mesmo ficar usando coisa que nao foi eu que desenvolvi nao tenho xperiencia em programação alguma... Mais gostaria de desenvolver o meu proprio mais nem sei por onde começar... poderiam me dar dicas

Código: Selecionar todos

Procedure balance
Local nKeyPress

do while .t.
   boxfill(0,0,800,600,0,0)
   boxfill(0,570,800,600,0,88)
//   saystring(389,578,4,8,200,"MENU PRINCIPAL - HALLOWEEN "+UNCRIPTUDO("»¹‡ž—š›")+" - 29/10/2007")
   saystring(389,578,4,8,200,"LINK-SHOP SUPER DOG II VERSAO: 4.11  04/2007")
   saystring(250,480,4,0,200,"LINHA 1   >> LEITURA PARCIAL")
   saystring(250,420,4,0,200,"LINHA 5   >> LEITURA OFICIAL")
   saystring(250,360,4,0,200,"LINHA 9   >> ULTIMOS PAGAMENTOS")
   saystring(250,300,4,0,200,"LINHA 15  >> ULTIMAS ENTRADAS")
   saystring(250,240,4,0,200,"LINHA 20  >> ULTIMOS 10 JOGOS")
   saystring(250,180,4,0,200,"TABELA    >> PARAMETROS")
   saystring(250,120,4,0,200,"JOGAR     >> VOLTAR AO JOGO")
   saystring(0,2,4,0,200,"NUMERO DE SERIE "+substr(strzero(bin2l(nserie),9,0),1,2)+"-"+substr(strzero(bin2l(nserie),9,0),3,2)+"/"+substr(strzero(bin2l(nserie),9,0),5,2)+"-"+substr(strzero(bin2l(nserie),9,0),7,3))
   nKeyPress:=inkey()
   do while nKeyPress#tecla_nro(9) .and. nKeyPress#tecla_nro(10) .and. nKeyPress#tecla_nro(11) .and. nKeyPress#tecla_nro(12) .and. nKeyPress#tecla_nro(13) .and. nKeyPress#tecla_nro(1) .and. nKeyPress#tecla_nro(19) .and. nKeyPress#tecla_nro(2)
      nKeyPress:=inkey()
Essa parte aqui contem Local nKeyPress seria isso que se refere?

Re: Quando vou compilar aparece assim.

Enviado: 16 Nov 2010 14:08
por rochinha
Amiguinhos,

Estes tipos de games não são encontráveis assim tão fácil, bem como, software para geração de virus, tipo chernobil, freddie, etc(estes eu até consegui a mais de 10 anos).

Mas algumas bibliotecas gráficas vem com alguns exemplos, lembro-me até que quando pesquisa por criação de screensaver para meu programa Clipper, aqui mesmo, encontrei exemplo e conheci a biblioteca Grumph ou GrunFish que tinha alguns códigos para joguinhos, que até acabei implementando em meu sistema, mas acabei não liberando no sistema para não permitir ao usuários brincarem enquanto trabalham.

Lembro-me que quando adquiri a dbFast 2.0, nela vinha um jogo de cartas.

No Fivewin vem um Poker. Outro jogo conhecido feito usando Fivewin é GATO(Juan Carlos Salinas Ojeda).

Na MiniGUI voce encontra o GAME15.PRG

No xHarbour voce também encontra o PEGGED(Marcos Antonio Gambeta)

Dependendo do que se vá fazer são boas fontes de idéias.

Ahhh, velho tempos, onde eu me lembro dos antigos games TwoLines, ou seja, joguinhos em Basic feitos em duas linhas. Eu tinha vários e gravava os mesmos em velhas fitas cassete usando meu ainda funcional CP-200 Prológica.