Criando jogos em Dark BASIC - Parte 1

Autor:André Monteiro Santee

Introdução:
Para quem é este tutorial: Para programadores que conhecem a linguagem BASIC e pretendem programar seus jogos em Dark BASIC/DirectX.
E se eu não conheço nenhuma linguagem: Se vira, aprende. Tem muitos tutorias sobre BASIC aqui na TGM, e com eles você conhecerá mais do que o suficiente para poder prosseguir neste tutorial.
Mas antes de prosseguir quero avisar que Dark BASIC não é a linguagem ideal para criar jogos com fins profissonais, como jogos feitos por empresas. Pois Dark BASIC é uma linguagem de altíssimo nível, não, isto não é um elogio, isto quer dizer que ela é bem diferente de linguagem de máquina, sendo mais lento que os programas de outros compiladores como C/C++ e Assembly.
Minha proposta nesta série de artigos é esplicar a criação de jogos, des de jogos simples até jogos elaborados em 3D e com efeitos especiais, estarei postando de vez em qua os artigos, ainda não sei quantas partes ele terá.

Vamos ao que interessa,
Bom, para começar, vou esplicar a lógica de um jogo, feito em BASIC e em demais linguagens. Veja o código abaicho (compile no Dark BASIC):

sync on

hide mouse

do
cls

set cursor x,y
print "~O~"

if upkey()=1 then y=y-2
if downkey()=1 then y=y+2
if leftkey()=1 then x=x-2
if rightkey()=1 then x=x+2

sync
loop

Bem, o SYNC ON aí no começo liga o duplo Buffer, ideal para jogos. O HIDE MOUSE É usado apenas para esconder o ponteiro do mouse na tela.
Com o DO nós começamos o laço de repetição que acaba com o LOOP, (se você não sabe o que é DO e LOOP este tutorial não é para você).
O SET CURSOR X,Y serve para posicionar o cursor (local onde serão mostrados os textos) nas posiçoões X e Y, que são variáveis do tipo inteiro (no Dark BASIC as variaveis não precisam ser declaradas, exceto as ARRAYs). E em seguida usamos o PRINT, que mostrará na tela a STRING "~O~" nas posições X e Y pixels.
Esses IF ***KEY()=1 servem para ver se uma tecla está sendo pressionada. No Dark BASIC, se uma tecla for pressionada ele retornará 1, caso contrário retornara 0. Então SE UMATECLA()=VERDADEIRO. O depois do nós incrementamos ou decrementamos o valor da variavel, sendo que a próxima vez que os comandos entre DO e LOOP forem lidos, o X ou Y estarão diferentes, aí da a ilusão que ele está se movendo, sendo que na verdade ele apenas está sendo jogado em outra posição, no caso, 2 pixels para cima, baicho, esquerda ou direita. O CLS serve para apagar a posição antiga do "~O~", E o SYNC para atualizar a tela.

O Dark BASIC tem um comando mais apropriado quando se trata de textos. É o TEXT, vou fazer abaicho um programa identico ao acima mas usando o TEXT, para você entender melhor: