Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×

  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Jogo em BATCH: THE CRIMINAL - LIFE ENTREPRENEUR

ϟIgorzin²

Por ,
em Outras linguagens

 Compartilhar

Posts Recomendados

ϟIgorzin² Novato

ϟIgorzin² 0

Postado
Denunciar
Postado

Olá pessoal!Vim aqui postar mais um joguinho em BATCH, antes de tudo vai aqui um tuto de como salvar o código em BATCH:

1-Abra o Bloco de Notas

2-Coloque o codigo

3-Salvar como...

4-Coloque o nome como: qualquernome.bat(coloque um nome de sua preferencia e salve com a extensão .bat)

5-Em tipo de arquivo coloque como ''todos os arquivos''

6-Abra o game e divirta-se!

Código:

@echo off

title O CRIMINOSO - VIDA DE EMPRESARIO [ by Igor ]

COLOR 0a

mode con cols=100 lines=40

goto ini

:ini

cls

echo.

echo CRIADO POR Igor

echo.

echo Game Tester's: Igor e Luiz Henrique.

echo.

pause

:ini2

cls

echo.

echo THE CRIMINAL - LIFE ENTREPRENEUR [ O CRIMINOSO - VIDA DE EMPRESARIO ]

echo.

pause

cls

goto comeco

:comeco

ECHO.

ECHO [1]NOVO JOGO

ECHO [2]CARREGAR JOGO SALVO

ECHO [3]SAIR

ECHO.

set /p opc1=Opcao^>

IF "%opc1%"=="1" goto:variaveis

IF "%opc1%"=="2" goto:carregar

IF "%opc1%"=="3" exit

echo '%opc1% nao e um comando valido.

goto comeco

:carregar

if exist "%temp%\save.sav" (goto carregar1) else (goto nexist)

:carregar1

<nul set/p=Carregando dados...

for /f "tokens=*" %%i in (%temp%\save.sav) do (%%i)

for /f "tokens=*" %%i in (%temp%\itens.lst) do (%%i)

call :cript "%life%" "life" -7

call :cript "%pw%" "pw" -7

call :cript "%cm%" "cm" -7

call :cript "%lvl%" "lvl" -7

call :cript "%nome%" "nome" -7

call :cript "%cidade%" "cidade" -7

call :cript "%estabelecimento%" "estabelecimento" -7

goto menu

:nexist

cls

echo Voce nao tem nenhum jogo salvo.

goto comeco

:variaveis

CLS

set life=100

set pw=100

set cm=99999

set lvl=0

ECHO QUAL O SEU NOME?

set /p nome=Nome^>

set cidade=Crime-City

set estabelecimento=Sem Teto

set loja=0

<nul set/p=Salvando dados...

::ENCRIPTAR VALORES [ DADOS ]

::call :cript "%nome%" "nome" 7 [o 7 é uma senha,para *reverter* o processo do cript use -senha]

::EX- call :cript "%nome%" "nome" -7

::REVERTER - OU SEJA,DESENCRIPTAR.

call :cript "%life%" "life" 7

call :cript "%pw%" "pw" 7

call :cript "%cm%" "cm" 7

call :cript "%lvl%" "lvl" 7

call :cript "%nome%" "nome" 7

call :cript "%cidade%" "cidade" 7

call :cript "%loja%" "loja" 7

call :cript "%estabelecimento%" "estabelecimento" 7

::salva os dados

(

echo set life=%life%

echo set pw=%pw%

echo set cm=%cm%

echo set lvl=%lvl%

echo set nome=%nome%

echo set cidade=%cidade%

echo set loja=%loja%

echo set estabelecimento=%estabelecimento%

)>%temp%\save.sav

call :cript "%life%" "life" -7

call :cript "%pw%" "pw" -7

call :cript "%cm%" "cm" -7

call :cript "%lvl%" "lvl" -7

call :cript "%nome%" "nome" -7

call :cript "%cidade%" "cidade" -7

call :cript "%loja%" "loja" -7

call :cript "%estabelecimento%" "estabelecimento" -7

call :cript "%in%" "itens" -7

cls

goto emprego

:emprego

cls

ECHO.

ECHO O INICIO DE TUDO

ECHO.

ECHO MEU NOME E %nome%,E DESDE QUE EU MUDEI PARA CRIME-CYTE,A MINHA VIDA FOI UM INFERNO.

ECHO DESDE ESSE DIA EM DIANTE,EU RESOLVI ROUBAR,MAS EU ROUBAVA PRA COMER.

ECHO E FUI APERFEICOANDO A MINHA "HABILIDADE" ENTRE ASPAS.

ECHO MAS CONTINUEI A ROUBAR PRA COMER.

ECHO EU NAO TINHA NADA,NEM CASA,NEM CARRO,NEM COMIDA E NEM NINGUEM,A UNICA COISA QUE EU TINHA ERA...

ECHO MINHA ALMA.

ECHO ATE QUE UM DIA,EU RESOLVI PROCURAR UM EMPREGO.

pause

cls

ECHO AGENCIA DE EMPREGOS - 8h AM

ECHO.

ECHO CARA: O QUE O SENHOR DESEJA?

ECHO VOCE: UM EMPREGO VEI.

ECHO CARA: HUM...O SENHOR TEM ALGUMA QUALIFICACAO PROFISSIONAL?

ECHO VOCE: SIM.

ECHO CARA: QUAL?

ECHO VOCE: ROUBAR.

ECHO CARA: HUM...VOU FINGIR QUE NAO OUVI ISSO.

ECHO CARA: VOCE TEM PELO MENOS ENSINO MEDIO?

ECHO VOCE: NAO.

echo CARA: ENTAO LAMENTO,NAO POSSO TE DAR UM EMPREGO.

echo VOCE: SEU...SEU...SE VAI VER MANO,UM DIA EU VOU ACABAR COM TODOS VOCES,ISTO NAO E UMA PROMESSA.

ECHO VOCE: E UMA CERTEZA!

pause

goto apresentacao

:apresentacao

cls

echo.

echo Bem-Vindo(a),ao jogo THE CRIMINAL - LIFE ENTREPRENEUR [ O CRIMINOSO - VIDA DE EMPRESARIO ].

echo Aqui voce sera um cara normal,que comeca sua vida abaixo de todos.

echo Neste jogo existe 4 niveis,voce comeca no nivel 0,mas como sou um cara gente boa,vou te deixar comecar

echo com $CM 500,00. [ CRIMINAL MONEY ]

echo Eis aqui uma piramide,para zerar o jogo,voce tem que chegar ao topo dela.

echo.

echo Piramide:

echo.

echo.

echo *

echo * *

echo *NV4*

echo * $cc * $ MILHIONARIO $ - A AGENCIA DE EMPREGOS ESTA AQUI

echo *********

echo * NV 3 *

echo * RICO *

echo ***************

echo * NIVEL 2: *

echo * CLASSE MEDIA *

echo *********************

echo * NIVEL 1: *

echo * POBRE *

echo ***************************

echo * NIVEL 0: *

echo * SEM TETO * voce esta aqui [ $CM %cm% ]

echo *********************************

echo.

echo BOM JOGO MANO.

pause

goto menu

:menu

cls

echo.

ECHO =================================

ECHO STATUS

ECHO =================================

ECHO NOME: %nome%

ECHO ENERGIA: %life%

ECHO FORCA: %pw%

ECHO NIVEL: %lvl%

ECHO $CM [ CRIMINAL MONEY ]: %cm%

ECHO CIDADE: %cidade%

ECHO ESTABELECIMENTO: %estabelecimento%

ECHO =================================

ECHO MENU

echo =================================

echo [1]MEU BAIRRO [ ROUBAR ]

ECHO [2]ESTABELECIMENTOS

ECHO [3]CRIAR UM ESTABELECIMENTO

ECHO [4]SALVAR

ECHO [5]SAIR

echo =================================

echo.

set /p opc=Opcao^>

IF "%opc%"=="1" goto:roubar

IF "%opc%"=="2" goto:est

IF "%opc%"=="3" goto:newest

IF "%opc%"=="4" goto:salvar

IF "%opc%"=="5" goto:sair

cls

goto menu

:roubar

echo [1]ROUBAR BEBADO [FORCA: -10]

ECHO [2]ROUBAR CASAL DE NAMORADOS [FORCA: -25]

ECHO [3]ROUBAR GAROTA [FORCA: -20]

echo [4]ROUBAR PADARIA [FORCA: -36]

ECHO [5]ROUBAR BANCO [FORCA: -67]

echo [6]VOLTAR

set /p opc=Opcao^>

IF "%opc%"=="1" goto:beb

IF "%opc%"=="2" goto:cas

IF "%opc%"=="3" goto:gar

IF "%opc%"=="4" goto:pad

IF "%opc%"=="5" goto:bank

IF "%opc%"=="6" goto:menu

:beb

cls

if %pw% geq 10 ( echo Voce roubou $CM 2.&echo Voce perdeu 10 de forca.&set /a pw=%pw%-10&set /a cm=%cm%+2&goto roubar1 ) else ( echo Voce nao tem forca o suficiente para isso.&goto roubar )

:roubar1

IF "%loja%"=="1" set /a cm=%cm%+100

IF "%loja%"=="2" set /a cm=%cm%+200

IF "%loja%"=="3" set /a cm=%cm%+300

IF "%loja%"=="4" set /a cm=%cm%+400

IF "%loja%"=="5" set /a cm=%cm%+500

IF "%loja%"=="6" set /a cm=%cm%+600

IF "%loja%"=="7" set /a cm=%cm%+700

IF "%loja%"=="8" set /a cm=%cm%+800

IF "%loja%"=="9" set /a cm=%cm%+900

IF "%loja%"=="10" set /a cm=%cm%+1000

goto roubar

:cas

cls

if %pw% geq 25 ( echo Voce roubou $CM 5.&echo Voce perdeu 25 de forca.&set /a pw=%pw%-25&set /a cm=%cm%+5&goto roubar1 ) else ( echo Voce nao tem forca o suficiente para isso.&goto roubar )

:roubar1

IF "%loja%"=="1" set /a cm=%cm%+100

IF "%loja%"=="2" set /a cm=%cm%+200

IF "%loja%"=="3" set /a cm=%cm%+300

IF "%loja%"=="4" set /a cm=%cm%+400

IF "%loja%"=="5" set /a cm=%cm%+500

IF "%loja%"=="6" set /a cm=%cm%+600

IF "%loja%"=="7" set /a cm=%cm%+700

IF "%loja%"=="8" set /a cm=%cm%+800

IF "%loja%"=="9" set /a cm=%cm%+900

IF "%loja%"=="10" set /a cm=%cm%+1000

goto roubar

:gar

cls

if %pw% geq 20 ( echo Voce roubou $CM 3.&echo Voce perdeu 20 de forca.&set /a pw=%pw%-20&set /a cm=%cm%+3&goto roubar1 ) else ( echo Voce nao tem forca o suficiente para isso.&goto roubar )

:roubar1

IF "%loja%"=="1" set /a cm=%cm%+100

IF "%loja%"=="2" set /a cm=%cm%+200

IF "%loja%"=="3" set /a cm=%cm%+300

IF "%loja%"=="4" set /a cm=%cm%+400

IF "%loja%"=="5" set /a cm=%cm%+500

IF "%loja%"=="6" set /a cm=%cm%+600

IF "%loja%"=="7" set /a cm=%cm%+700

IF "%loja%"=="8" set /a cm=%cm%+800

IF "%loja%"=="9" set /a cm=%cm%+900

IF "%loja%"=="10" set /a cm=%cm%+1000

goto roubar

:pad

cls

if %pw% geq 36 ( echo Voce roubou $CM 40.&echo Voce perdeu 36 de forca.&set /a pw=%pw%-36&set /a cm=%cm%+40&goto roubar1 ) else ( echo Voce nao tem forca o suficiente para isso.&goto roubar )

:roubar1

IF "%loja%"=="1" set /a cm=%cm%+100

IF "%loja%"=="2" set /a cm=%cm%+200

IF "%loja%"=="3" set /a cm=%cm%+300

IF "%loja%"=="4" set /a cm=%cm%+400

IF "%loja%"=="5" set /a cm=%cm%+500

IF "%loja%"=="6" set /a cm=%cm%+600

IF "%loja%"=="7" set /a cm=%cm%+700

IF "%loja%"=="8" set /a cm=%cm%+800

IF "%loja%"=="9" set /a cm=%cm%+900

IF "%loja%"=="10" set /a cm=%cm%+1000

goto roubar

:bank

cls

if %pw% geq 67 ( echo Voce roubou $CM 100.&echo Voce perdeu 67 de forca.&set /a pw=%pw%-67&set /a cm=%cm%+100&goto roubar1 ) else ( echo Voce nao tem forca o suficiente para isso.&goto roubar )

:roubar1

IF "%loja%"=="1" set /a cm=%cm%+100

IF "%loja%"=="2" set /a cm=%cm%+200

IF "%loja%"=="3" set /a cm=%cm%+300

IF "%loja%"=="4" set /a cm=%cm%+400

IF "%loja%"=="5" set /a cm=%cm%+500

IF "%loja%"=="6" set /a cm=%cm%+600

IF "%loja%"=="7" set /a cm=%cm%+700

IF "%loja%"=="8" set /a cm=%cm%+800

IF "%loja%"=="9" set /a cm=%cm%+900

IF "%loja%"=="10" set /a cm=%cm%+1000

goto roubar

::ENCRIPTADOR - DEVE-SE FICAR NO FINAL DO BATCH.

:cript

if exist result.txt del result.txt

(

echo %~1

)>entrada.txt

(

echo On Error Resume Next

echo dim alfa,n,soma,foi,linha,letra

echo set arquivo = CreateObject^("Scripting.FileSystemObject"^)

echo set batch = arquivo.OpenTextFile^(wsh.arguments^(0^), 1, true^)

echo soma=wsh.arguments^(1^)

echo alfa="zGQREBSylabkjqpTUeiVLrMNOFIs9chHXDtfWdKuYZPm0o2n6g5v3J8w7C4x1A"

echo While not batch.AtEndOfStream

echo letra=batch.read^(1^)

echo n=0

echo foi=0

echo For j=1 to len^(alfa^)

echo if letra=mid^(alfa,j,1^) then

echo n=j+soma

echo foi=1

echo end if

echo next

echo if foi=1 then

echo escrever^(^)

echo else

echo linha=linha+letra

echo end if

echo wend

echo set stream = arquivo.OpenTextFile^("result.txt", 8, True^)

echo stream.writeline linha

echo stream.close

echo sub escrever^(^)

echo if n^>len^(alfa^) then

echo n=n-len^(alfa^)

echo end if

echo if n^<1 then

echo n=n+len^(alfa^)

echo end if

echo linha=linha+mid^(alfa,n,1^)

echo end sub

)>var.vbs

cscript //nologo var.vbs entrada.txt %~3

set /p %~2=<result.txt

del result.txt

del entrada.txt

del var.vbs

exit/b

:salvar

<nul set/p=Salvando dados...

call :cript "%life%" "life" 7

call :cript "%pw%" "pw" 7

call :cript "%cm%" "cm" 7

call :cript "%lvl%" "lvl" 7

call :cript "%nome%" "nome" 7

call :cript "%cidade%" "cidade" 7

call :cript "%loja%" "loja" 7

call :cript "%estabelecimento%" "estabelecimento" 7

::salva os dados

(

echo set life=%life%

echo set pw=%pw%

echo set cm=%cm%

echo set lvl=%lvl%

echo set nome=%nome%

echo set cidade=%cidade%

echo set loja=%loja%

echo set estabelecimento=%estabelecimento%

)>%temp%\save.sav

call :cript "%life%" "life" -7

call :cript "%pw%" "pw" -7

call :cript "%cm%" "cm" -7

call :cript "%lvl%" "lvl" -7

call :cript "%nome%" "nome" -7

call :cript "%cidade%" "cidade" -7

call :cript "%loja%" "loja" -7

call :cript "%estabelecimento%" "estabelecimento" -7

goto menu

:sair

echo /p sn=Salvar antes de sair?[s,n]

IF "%sn%"=="s" goto:salvarr

IF "%sn%"=="n" goto:menu

IF "%sn%"=="S" goto:salvarr

IF "%sn%"=="N" goto:menu

goto sair

:salvarr

<nul set/p=Salvando dados...

call :cript "%life%" "life" 7

call :cript "%pw%" "pw" 7

call :cript "%cm%" "cm" 7

call :cript "%lvl%" "lvl" 7

call :cript "%nome%" "nome" 7

call :cript "%cidade%" "cidade" 7

call :cript "%loja%" "loja" 7

call :cript "%estabelecimento%" "estabelecimento" 7

::salva os dados

(

echo set life=%life%

echo set pw=%pw%

echo set cm=%cm%

echo set lvl=%lvl%

echo set nome=%nome%

echo set cidade=%cidade%

echo set estabelecimento=%estabelecimento%

)>%temp%\save.sav

(

echo set itens=%in%

)>%temp%\itens.lst

exit

:est

echo [1]LOJA DE FORCA

ECHO [2]LOJA DE NIVEL

ECHO [3]BAR

echo [4]BOCA DE FUMO

ECHO [5]VOLTAR

set /p opc=Opcao^>

IF "%opc%"=="1" goto:force

IF "%opc%"=="2" goto:lvl

IF "%opc%"=="3" goto:bar

IF "%opc%"=="4" goto:bf

IF "%opc%"=="5" goto:menu

:force

cls

echo Forca:+10;Valor: $CM 25

echo Comprar forca?[s,n]

set /p sn=Opacao:

IF "%sn%"=="s" goto:comprarf

IF "%sn%"=="n" goto:est

IF "%sn%"=="S" goto:comprarf

IF "%sn%"=="N" goto:est

goto menu

:comprarf

cls

if %cm% geq 25 ( echo Voce adquiriu 10 de forca&set /a pw=%pw%-25&set /a force=%force%+10 ) else ( echo Voce nao tem dinheiro o suficiente para isso.&goto est )

goto est

:lvl

ECHO [1]COMPRAR NIVEL 1 - POBRE [valor: $CM 2.000]

ECHO [2]COMPRAR NIVEL 2 - CLASSE MEDIA [valor: $CM 5.000]

ECHO [3]COMPRAR NIVEL 3 - RICO [valor: $CM 10.000]

ECHO [4]COMPRAR NIVEL 4 - $CM [$ MILHONARIO $] [valor: $CM 50.000]

ECHO [5]VOLTAR

set /p opc=Opcao^>

IF "%opc%"=="1" goto:lvl1

IF "%opc%"=="2" goto:lvl2

IF "%opc%"=="3" goto:lvl3

IF "%opc%"=="4" goto:lvl4

IF "%opc%"=="5" goto:est

goto lvl

:lvl1

cls

IF "%lvl%"=="1" goto:lvl1d

IF "%lvl%"=="2" goto:lvl1d

IF "%lvl%"=="3" goto:lvl1d

IF "%lvl%"=="4" goto:lvl1d

if %cm% geq 2000 ( echo Voce adquiriu nivel 1&set /a cm=%cm%-2000&set /a lvl=%lvl%+1 ) else ( echo Voce nao tem dinheiro o suficiente para isso.&goto lvl )

goto lvl

:lvl1d

echo Erro:Voce ja tem este nivel.

goto lvl

:lvl2

cls

IF "%lvl%"=="2" goto:lvl2d

IF "%lvl%"=="3" goto:lvl2d

IF "%lvl%"=="4" goto:lvl2d

if %cm% geq 5000 ( echo Voce adquiriu nivel 2&set /a cm=%cm%-5000&set /a lvl=%lvl%+1 ) else ( echo Voce nao tem dinheiro o suficiente para isso.&goto lvl )

goto lvl

:lvl2d

echo Erro:Voce ja tem este nivel.

goto lvl

:lvl3

cls

IF "%lvl%"=="3" goto:lvl3d

IF "%lvl%"=="4" goto:lvl3d

if %cm% geq 10000 ( echo Voce adquiriu nivel 2&set /a cm=%cm%-10000&set /a lvl=%lvl%+1 ) else ( echo Voce nao tem dinheiro o suficiente para isso.&goto lvl )

goto lvl

:lvl3d

echo Erro:Voce ja tem este nivel.

goto lvl

:lvl4

cls

IF "%lvl%"=="4" goto:lvl2d

if %cm% geq 50000 ( echo Voce adquiriu nivel 2&set /a cm=%cm%-50000&set /a lvl=%lvl%+1 ) else ( echo Voce nao tem dinheiro o suficiente para isso.&goto lvl )

goto lvl

:lvl4d

echo Erro:Voce ja tem este nivel.

goto lvl

:bar

cls

echo Aqui so tem um bando de bebados,voce pode ser ate sem teto,voce e do nivel %lvl%.

echo E nao quer deichar de ser rico pra cair na bebedira né?

echo Conselho:Saia deste local imediatamente %nome%.

pause

goto est

:bf

cls

echo Aqui so tem um bando de drogados,voce pode ser ate sem teto,voce e do nivel %lvl%.

echo E nao quer deichar de ser rico pra cair na bebedira né?

echo Conselho:Saia deste local imediatamente %nome%.

pause

goto est

:newest

echo.

ECHO MENU

ECHO.

ECHO [1]CRIAR ESTABELECIMENTO [$CM 5.000]

ECHO [2]GERENCIAR ESTABELECIMENTO

ECHO [3]VOLTAR

echo.

set /p opc=Opcao^>

IF "%opc%"=="1" goto:criar

IF "%opc%"=="2" goto:gerenciar

IF "%opc%"=="3" goto:menu

:criar

echo.

ECHO PARA CRIAR UM ESTABELECIMENTO VOCE,PRECISA DE UM LOCAL,ESTE LOCAL CUSTA:

ECHO $CM 5.000

ECHO QUANDO VOCE TEM UM ESTABELECIMENTO,CADA ITEM QUE VOCE COLOCA A VENDA

ECHO VOCE GANHA $CM 5 A MAIS POR CADA ROUBO.

ECHO.

cls

echo Voce deseja criar um estabelecimento?

echo Comprar forca?[s,n]

set /p sn=Opacao:

IF "%sn%"=="s" goto:criar2

IF "%sn%"=="n" goto:newest

IF "%sn%"=="S" goto:criar2

IF "%sn%"=="N" goto:newest

cls

goto criar

:criar2

if %cm% geq 5000 ( echo Voce adquiriu um lote.&set /a cm=%cm%-5000&set /a loja=%loja%+1&goto criar3 ) else ( echo Voce nao tem dinheiro o suficiente para isso.&goto newest )

:criar3

echo Digite o nome do seu estabelecimento:

set /p nomest=Nome^>

cls

echo Digite aqui o seu slogan:

set /p slogest=Slogan^>

cls

<nul set/p=Salvando dados...

call :cript "%life%" "life" 7

call :cript "%pw%" "pw" 7

call :cript "%cm%" "cm" 7

call :cript "%lvl%" "lvl" 7

call :cript "%nome%" "nome" 7

call :cript "%cidade%" "cidade" 7

call :cript "%loja%" "loja" 7

call :cript "%estabelecimento%" "estabelecimento" 7

call :cript "%nomest%" "Loja_Nome" 7

call :cript "%slogest%" "Loja_Slogan" 7

::salva os dados

(

echo set life=%life%

echo set pw=%pw%

echo set cm=%cm%

echo set lvl=%lvl%

echo set nome=%nome%

echo set cidade=%cidade%

echo set loja=%loja%

echo set estabelecimento=%estabelecimento%

echo set Loja_Nome=%nomest%

echo set Loja_Slogan=%slogest%

)>%temp%\save.sav

call :cript "%life%" "life" -7

call :cript "%pw%" "pw" -7

call :cript "%cm%" "cm" -7

call :cript "%lvl%" "lvl" -7

call :cript "%nome%" "nome" -7

call :cript "%cidade%" "cidade" -7

call :cript "%loja%" "loja" -7

call :cript "%estabelecimento%" "estabelecimento" -7

call :cript "%nomest%" "Loja_Nome" -7

call :cript "%slogest%" "Loja_Slogan" -7

cls

echo Loja criada com suscesso!

goto newest

:gerenciar

IF "%loja%"=="0" goto:nloja

IF "%loja%"=="1" goto:loja

:nloja

cls

echo Erro:Voce nao tem um estabelecimento.

goto newest

:loja

cls

echo.

ECHO ==========================================

echo Gerenciador de Estabelecimento

ECHO ==========================================

ECHO STATUS

ECHO ==========================================

ECHO NOME: %nomest%

ECHO SLOGAN: %slogest%

ECHO ==========================================

ECHO MENU

ECHO ==========================================

ECHO [1]ADICIONAR UM ITEN A LOJA [$CM -10 CADA]

ECHO [2]VER ITENS

ECHO [3]MUDAR O NOME E O SLOGAN DA LOJA

ECHO [4]VOLTAR

ECHO ==========================================

ECHO.

set /p opc=Opcao^>

IF "%opc%"=="1" goto:itens

IF "%opc%"=="2" goto:ver

IF "%opc%"=="3" goto:mudns

IF "%opc%"=="4" goto:newest

cls

goto loja

:itens

IF "%loja%"=="10" goto:erro

echo Nome do iten:

set /p in=Nome^>

cls

set /a=%loja%+1

set /a=%cm%-10

<nul set/p=Salvando dados...

call :cript "%life%" "life" 7

call :cript "%pw%" "pw" 7

call :cript "%cm%" "cm" 7

call :cript "%lvl%" "lvl" 7

call :cript "%nome%" "nome" 7

call :cript "%cidade%" "cidade" 7

call :cript "%loja%" "loja" 7

call :cript "%estabelecimento%" "estabelecimento" 7

call :cript "%nomest%" "Loja_Nome" 7

call :cript "%slogest%" "Loja_Slogan" 7

call :cript "%in%" "itens" 7

::salva os dados

(

echo set life=%life%

echo set pw=%pw%

echo set cm=%cm%

echo set lvl=%lvl%

echo set nome=%nome%

echo set cidade=%cidade%

echo set loja=%loja%

echo set estabelecimento=%estabelecimento%

echo set Loja_Nome=%nomest%

echo set Loja_Slogan=%slogest%

)>%temp%\save.sav

(

echo set itens=%in%

)>>%temp%\itens.lst

call :cript "%life%" "life" -7

call :cript "%pw%" "pw" -7

call :cript "%cm%" "cm" -7

call :cript "%lvl%" "lvl" -7

call :cript "%nome%" "nome" -7

call :cript "%cidade%" "cidade" -7

call :cript "%loja%" "loja" -7

call :cript "%estabelecimento%" "estabelecimento" -7

call :cript "%nomest%" "Loja_Nome" -7

call :cript "%slogest%" "Loja_Slogan" -7

call :cript "%in%" "itens" -7

goto loja

:erro

echo Erro:Voce so pode ter no maximo 10 itens.

pause

goto loja

:ver

type %temp%\itens.lst

pause

goto gerenciar

ﾠﾠTroféus e Medalhasﾠﾠ
Link para o comentário
Compartilhar em outros sites
Este tópico está impedido de receber novos posts.
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.

 Accept Cookies  Reject Cookies