Cut lines, as to solve?

[haroldoop]

Or, maybe, you would want to use my tool for that:
haroldoop.fortunecity.com/currproje.html
;D

[mdk137]

After almost two days of work in the code what I obtained it was headaches.

I eliminated attributes to simplify the code. However I did not obtain to decide bugs in the two last labels (acao and gameover). Partially for involving the proper mechanics of the game, partially why BasiEgaxorz does not handle negative numbers. what it makes impracticable the combat system as I imagined.

this is the version "zombie" of the code (in reason of the thematic of terror film) and does not contain text in English (forgive me, but I did not have time to add text translated into the English). The good side is that it was possible to add an introduction with the history of the game.

follows the code below:
---CUT HERE---

option title, "como poderia ficar pior?"

'contador para atualizações na tela (incrivelmente útil!)
dim contador as integer
'joytick
dim ctrl as integer
'atributos do jogador: vida, forca, velocidade, dinheiro
dim vida as integer
'dim forca as integer
'dim vel as integer
dim din as integer
'direções que o jogador pode ir
dim dir as string
'coisa achadas pelo jogador
dim achado as string
'?
dim encontro as integer
'atributos dos monstros: vida, forca, velocidade, dinheiro
dim mvida as integer
dim mdin as integer
'sorte do jogador e dos monstros
dim sorte as integer

status:
contador=1
'status iniciais do jogador
vida=51
din=100
'direção inicial do jogador
dir$ = " norte"
'o que ele encontra inicalmente
achado$=" nada"

intro:
do
if contador then
ink 1
print " voce acordou em um dia de grande"
print " azar."
print " foi despedido do emprego."
print " sua namorada te deixou."
print " seu melhor amigo te considera um"
print " idiota retardado."
ink 2:print ""
print " como poderia ficar pior?"
print " a cidade foi tomada por zumbis..."
ink 1:print ""
print " agora a vida e bem mais simples."
print " e matar ou morrer."
print " boa sorte e tenha um bom dia."
ink 3:print ""
print " aperte (START) para comecar a matanca"
ink 0
contador=0
endif

ctrl=joypad(0)

'sai da introdução e vai para o jogo propriamente dito.
if ctrl.7 then
waitpadup
contador=1
goto cerne_ptbr
endif

loop

cerne_ptbr:
do
if contador then
cls
print " status:"
print " vida: ";vida
print " dinheiro: ";din
print ""
print " para onde voce vai?"; dir$
print " voce encontrou algo?"; achado$
contador=0
endif

ctrl=joypad(0)

'apertou para cima
if ctrl.0 then
dir$ = " norte"
contador=1
sleep 10
goto rastro
endif
'apertou para esquerda
if ctrl.2 then
dir$ = " oeste"
contador=1
sleep 10
goto rastro
endif
'apertou para baixo
if ctrl.1 then
dir$ = " sul"
contador=1
sleep 10
goto rastro
endif
'apertou para direita
if ctrl.3 then
dir$ = " leste"
contador=1
sleep 10
goto rastro
endif
loop

rastro:
do

if contador then
randomize timer
encontro=rnd(9)

'o jogador não encontra nada
if encontro=0 then
achado$=" nada"
goto cerne_ptbr
endif
'o jogador encontra dinheiro
if encontro=1 then
achado$=" dinheiro"
din=din+50
goto cerne_ptbr
endif
'o jogador encontra um kit médico
if encontro=2 then
achado$=" kit medico"
vida=vida+15
goto cerne_ptbr
endif
'o jogador encontra uma arma
if encontro=3 then
achado$=" arma de fogo carregada"
'forca=forca+10
din=din+15
goto cerne_ptbr
endif
'o jogador encontra um advogado zumbi
if encontro=4 then
achado$=" advogado zumbi"
mvida=10
mdin=20
goto acao
endif
'o jogador encontra uma enfermeira zumbi
if encontro=5 then
achado$=" enfermeira zumbi"
mvida=10
mdin=10
goto acao
endif
'o jogador encontra um policial zumbi
if encontro=6 then
achado$=" policial zumbi"
mvida=20
mdin=30
goto acao
endif
'o jogador encontra um soldado zumbi
if encontro=7 then
achado$=" soldado zumbi"
mvida=25
mdin=50
goto acao
endif
'o jogador encontra um comando especial zumbi
if encontro=8 then
achado$=" comando zumbi"
mvida=35
mdin=75
goto acao
endif
'o jogador encontra um tyrant
if encontro=9 then
achado$=" tyrant"
mvida=70
mdin=150
goto acao
endif

contador=0
endif
loop

acao:
do
randomize timer
sorte=rnd(5)

'o basiegaxorz não gosta de números negativos
if vida<=1 then
goto gameover
endif

if contador then
cls
ink 3
print " status:"
print " vida: ";vida
print " dinheiro: ";din
print ""
print " voce encontrou: "; achado$
print " o que voce vai fazer?"
print " fugir? Aperte (A)"
print " atacar? Aperte (B)"
ink 0
contador=0
endif

ctrl=joypad(0)

'apertou (A)
if ctrl.6 then
'if sorte<=3 then
if sorte>=3 then
ink 1
print ""
print " voce conseguiu escapar!"
contador=1
sleep 50
ink 0
achado$= " nada"
goto cerne_ptbr
endif

'if sorte>3 then
if sorte<3 then
ink 1
print ""
print " voce nao conseguiu escapar!"
print " o zumbi ataca"
vida=vida-(mvida-5)
contador=1
ink 0
sleep 50
endif
contador=1
endif

'apertou (B)
if ctrl.4 then
'waitpadup
print " voce ataca o zumbi!"
mvida=mvida-(vida*sorte)
print " o zumbi contra ataca!"
vida=vida-(mvida*sorte)

if vida<=1 then
goto gameover
endif
if mvida<=1 then
print " voce destruiu o zumbi!"
sleep 50
goto cerne_ptbr
endif

contador=1
sleep 50
endif

loop

gameover:
do
cls
if contador then
cls
print " game over - o jogo acabou"
print " hoje positivamente nao e seu dia..."
pontuacao=din*3+1
print " sua pontuacao foi: "; pontuacao
print ""
print " aperte (Start) para reiniciar"
print " outro dia perfeito..."
contador=0
endif

ctrl=joypad(0)
'apertou start
if ctrl.7 then
waitpadup
'volta para os valores iniciais dos atributos antes de iniciar nova partida
contador=1
sleep 10
goto status
endif

loop

---CUT HERE---

jlf65, could show to me some example of data tables?

haroloop, I go to verify your program.

Again thanks for the aid

[jlf65]

Put the data into DATA statements, then read it into arrays when you start, then use the arrays to do everything. Format the DATA lines to make it easy to keep track of and modify the data. For example, maybe define a DATA line for a place as:

N place #, E place #, S place #, W place #, description string, item1 #, item2 A#

etc. The place # would be the index of the place you go for that direction, the description is just that, and item #s would be the index into a table of things. If you put all the north indices in an array, finding out where to go would be something like this:

if north
next_place = north(current_place)
endif

Use a 0 to indicate that direction is illegal (dead-end).

To see what item is in a place, you would do something like

item_1 = item1(current_place)

where you could use 0 to indicate no item.

Reading the data formatted as above into arrays would be something like this (assuming only four places)

for i=1 to 4
read north(i), east(i), south(i), west(i), description$(i), item1(i), item2(i)
next i

Remember that strings need to be null terminated in BasiEgaXorz. Your data tables would then look like this

Data 0, 0, 2, 0, "place 1",0, NOTHING, NOTHING
Data 1, 0, 3, 0, "place 2",0, DAGGER, NOTHING
Data 2, 0, 4, 0, "place 3",0, MONSTER, MONSTER
Data 3, 0, 0, 0, "place 4",0, MONSTER, EXIT

This gives a simple chain of places that stretch north to south. There may be one, two, or no items in the place. If you found the constant MONSTER as the item, you could then random generate a monster. Make different constants for different things.

You could also put this data into files based on the level, then read the data from the files rather than DATA statements. To start a level, you read in the data much like I showed above, but from the level file. Depends on how big the game is as embedding the data in DATA statements in the game will require you to keep it small.

[mdk137]

Forgive me for delay in giving a reply. Real life^tm.

I tried to implement attributes DATA, however I found some difficulties. The first one is that an only example in the package of the BasiEgaXorz v.19 did not help:

--- Cut here ---

print "wassup"
reload second
read a$
print a$
reload first
read a$
print a$

first: data "First Set o Data",0
second: data "Hello Data!",0

--- Cut here ---

(Devster, would not be good for placing new examples in the next version to the BasiEgaXorz or at least to comment the old examples?)

This compelled me to search some solution in tutorial of qbasic in the net. After some experiences of hit and miss, produced the following code:

--- Cut here ---

'teresina, 18/07/07.
'exemplo montado para uso do for-next/read-data
'translation (pt_br to English)
'nome=name
'primeiro=first
'segundo=second
'terceiro= (...)

for i = 1 to 3
read nome1$, nome2$, nome3$
'print nome2$; nome1$; nome3$
print nome3$; nome1$; nome2$
next i

data " primeiro",0," segundo",0," terceiro",0

--- Cut here ---

This code functions perfectly, prints the content of the attribute DATA in the desired order. But when I tried something a little different...

--- Cut here ---

'teresina, 18/07/07.
'exemplo montado para uso do for-next/read-data

inicio:
print ""
print " qual fileira voce quer ver?"
print " which row you want to see?"
print " 0, 1 ou 2?"
print ""
input a
if a>2 then
goto inicio
endif


for i = 1 to 3
read a, nome1$, nome2$, nome3$
'print nome2$; nome1$; nome3$
print a; nome3$; nome1$; nome2$
next i

data 0," primeiro",0," segundo",0," terceiro",0
data 1," quarto",0, " quinto",0, " sexto",0
data 2," setimo",0, " oitavo",0, " nono",0


--- Cut here ---

The result is that all the block is printed in the screen. My questions is: How I make my code to print only the attribute DATA that desire? What I made wrong in this code?

Since already thanks for the aid.

[oompa loompa]

to print only certain data, you'll need to use the RELOAD command. the reload command appears in any other basic language, and you just basically supply the command with a data label that will point to the next place of data you want to be read. it's very crude, and is probably not sufficient for a lot of things you want to do .

so basically, this is how you'd use the reload command:


reload my_data_1 ' set the read pointer to any data starting at the my_data_1 label
read a,b$,c$,d$
print a,b$,c$,d$
reload my_data_0 ' set the read pointer to any data starting at the my_data_0 label
read a,b$,c$,d$
print a,b$,c$,d$
reload my_data_2 ' set the read pointer to any data starting at the my_data_2 label
read a,b$,c$,d$
print a,b$,c$,d$

my_data_0:  data 0," primeiro",0," segundo",0," terceiro",0
my_data_1:  data 1," quarto",0, " quinto",0, " sexto",0
my_data_2:  data 2," setimo",0, " oitavo",0, " nono",0


what this will do is print:


1 quarto quinto sexto
0 primeiro segundo terceiro
2 setimo oitavo nono


basically, the reload command is to set the read pointer to different positions

i think for your application, you'll probably just want the following:


for i = 1 to 3
 read a2, nome1$, nome2$, nome3$
 if a2=a then
  print a2; nome3$; nome1$; nome2$
 endif
next i

data 0," primeiro",0," segundo",0," terceiro",0
data 1," quarto",0, " quinto",0, " sexto",0
data 2," setimo",0, " oitavo",0, " nono",0


so, this will loop 3 times, and will read all your data. however, it will only print data that has a matching a2 (read data) number with a (what your user inputs)

it seems to me that placing a 0 (null) at the end of every string in a data statement is very annoying now. i'll change that in the next release of the compiler (so you won't always have toprovide the 0, but will still be backwards compatible with old source code)

[DavilaGames]

I made a routine to wait more time to sort out the Monster, type "Phantasy Star" from the Master System, adding more possibilities of "No monster to be drawn", with monstrosEncontrados$="nada..." if monstrosOK >8:

DETECTA_MONSTRO:

    randomize timer

    monstroOK = rnd(1000)


    if monstroOK=0 then

        monstroEncontrado$ = "nada..."

    endif

    if monstroOK=1 then

        monstroEncontrado$ = "tesouro!"

    endif

    if monstroOK=2 then

        monstroEncontrado$ = "esqueleto!"

    endif

    if monstroOK=3 then

        monstroEncontrado$ = "guerreiro!"

    endif

    if monstroOK=4 then

        monstroEncontrado$ = "mago!"

    endif

    if monstroOK=5 then

        monstroEncontrado$ = "lobisomen!"

    endif

    if monstroOK=6 then

        monstroEncontrado$ = "vampiro!"

    endif

    if monstroOK=7 then

        monstroEncontrado$ = "fantasma!"

    endif

    if monstroOK=8 then

        monstroEncontrado$ = "demonio!"

    endif

    if monstroOK>8 then

        monstroEncontrado$ = "nada..."

    endif


    return