A Minha Horta - Jogo de exemplo

Este é um pequeno e simples jogos de simulação de uma quinta.
O jogo não é muito complexo e não foi terminado totalmente.



COR: 02
NOME_DA_JANELA A minha horta - Jogo Simples
TAMANHO_DA_JANELA VERTICAL=20 HORIZONTAL=68


//Criar valores
VAR a1=Batatas
VAR d1=1
VAR a2=Livre
VAR d2=0
VAR a3=Livre
VAR d3=0


VAR dinheiro=1000
VAR quantidadeganha=85
VAR x2=:VERDADEIRO
VAR x1=:VERDADEIRO
VAR b1=:VERDADEIRO
VAR k1=:FALSO
VAR k2=:FALSO

VAR pagar=57

MARCA.topo
ESPAÇO
DESENHAR logo.txt
ESPAÇO
ESPAÇO
ESPAÇO
ESPAÇO

MOSTRAR   ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
MOSTRAR   ³1.³ ³ Jogar      ³
MOSTRAR   ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
MOSTRAR   ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
MOSTRAR   ³2.³ ³ Sair       ³
MOSTRAR   ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ

INSERIR escolha=
SE: %escolha% IGUAL_A 1 VAI_PARA topojogo
SE: %escolha% IGUAL_A 2 TERMINAR_PROGRAMA
LIMPAR_TEXTO
VAI_PARA topo

MARCA.topojogo
VER_CE
LIMPAR_TEXTO

MOSTRAR %a1%%a1%%a1%%a1%%a1%%a1%
MOSTRAR %a1%%a1%%a1%%a1%%a1%%a1%
MOSTRAR %a1%%a1%%a1%%a1%%a1%%a1%
ESPAÇO
MOSTRAR %a2%%a2%%a2%%a2%%a2%%a2%
MOSTRAR %a2%%a2%%a2%%a2%%a2%%a2%
ESPAÇO
MOSTRAR %a3%%a3%%a3%%a3%%a3%%a3%
MOSTRAR %a3%%a3%%a3%%a3%%a3%%a3%
ESPAÇO
ESPAÇO
MOSTRAR ---------
MOSTRAR $: %dinheiro%
MOSTRAR ---------
MOSTRAR [1] - Comprar mais terreno [350$]
MOSTRAR [2] - Comprar e plantar mais batatas [%pagar%$]
MOSTRAR [3] - Vender as batatas [+%quantidadeganha%$]

INSERIR p=
SE: %p% IGUAL_A 1 VAI_PARA comprarterreno
SE: %p% IGUAL_A 2 VAI_PARA comprarbatatas
SE: %p% IGUAL_A 3 VAI_PARA vender
LIMPAR_TEXTO
VAI_PARA topojogo



MARCA.comprarterreno
LIMPAR_TEXTO
SE: %dinheiro% MENOR_QUE 350 (
MOSTRAR Você não tem dinheiro para comprar mais terreno!
PAUSA_TECLA_PARA_CONTINUAR
VAI_PARA topojogo
)



SE: %dinheiro% MAIOR_QUE 350 (

SE: %x2% É_VERDADEIRO (
OPERAR dinheiro=%dinheiro%-350
MOSTRAR Você comprou mais um terreno!
OPERAR quantidadeganha=%quantidadeganha%+65
VAR a2=Batatas
VAR a1=Batatas
OPERAR x2=:FALSO
VAR k2=:VERDADEIRO
PAUSA_TECLA_PARA_CONTINUAR
VAI_PARA topojogo
)

SE: %x1% É_VERDADEIRO (
MOSTRAR Você comprou mais um terreno!
OPERAR quantidadeganha=%quantidadeganha%+68
VAR a3=Batatas
VAR a2=Batatas
VAR a1=Batatas
OPERAR dinheiro=%dinheiro%-350
OPERAR x1=:FALSO
VAR k1=:VERDADEIRO
PAUSA_TECLA_PARA_CONTINUAR
VAI_PARA topojogo
)
)
MOSTRAR Não há mais terreno para comprar.
PAUSA_TECLA_PARA_CONTINUAR
VAI_PARA topojogo



MARCA.vender
LIMPAR_TEXTO

VAR a1=Vazio
VAR a2=Vazio
VAR a3=Vazio

OPERAR dinheiro=%dinheiro%+%quantidadeganha%
MOSTRAR Vendeu todo e ganhou %quantidadeganha%$
PAUSA_TECLA_PARA_CONTINUAR
VAR quantidadeganha=0
VAI_PARA topojogo



MARCA.comprarbatatas
SE: %k2% É_VERDADEIRO (
OPERAR pagar=%pagar%+35
VAR k2=:FALSO
)

SE: %k1% É_VERDADEIRO (
OPERAR pagar=%pagar%+35
VAR k1=:FALSO
)

SE: %dinheiro% MENOR_QUE %pagar% (
MOSTRAR Não tem dinheiro para comprar batatas!
PAUSA_TECLA_PARA_CONTINUAR
VAI_PARA topojogo
)

VAR a1=Batatas
VAR quantidadeganha=85

SE: %x2% É_FALSO (
VAR a2=Batatas
VAR a1=Batatas
VAR quantidadeganha=125
)

SE: %x1% É_FALSO (
VAR a2=Batatas
VAR a1=Batatas
VAR a3=Batatas
VAR quantidadeganha=175
)



OPERAR dinheiro=%dinheiro%-%pagar%
VAI_PARA topojogo