Sorry your browser is not supported!

Code!

`First, we are going to set up our player character (pc) variables.
`We will use a User Defined Type because it makes this code easy to read.
`I use floats for the stats, even though they will only be integers, because
`we may want to do some math with flaots later on. I don't want DB to convert
`the results to an integer unless we tell it to.
`I also expect to return to this and add more or make changes, but this is a good start.
Type Character
   Str as Float
   Dex as Float
   Con as Float
   Int as Float
   HP as Float
   Gold as Float
   Level as Float
   Name as String
EndType
`Notice that we CAN use INT, a reserved word, as a User Defined Type.

`Declare our player as a global variable.
Global Player as Character

`Now, create our character.
CLS
Set Cursor 0,0
Input "Enter your character's name:",Player.Name
Print
Print "Welcome ";Player.Name
Wait 1000

`Generate some stats.
Do
   Cls
   Set Cursor 0,0
   Print Player.Name;", press [R] to re-roll stats, or [Y] to accept stats."
   Print
   `Randomize the stats. Picks a number from 2 to 10: rnd(4)=0-4. So 0-4 plus 0-4 equals 0-8.
   `Plus 2 = 2 to 10. There is also more of a chance of 5&6 results than there are of 2 or 10.
   Player.Str=rnd(4)+rnd(4)+2
   Player.Dex=rnd(4)+rnd(4)+2
   Player.Con=rnd(4)+rnd(4)+2
   Player.Int=rnd(4)+rnd(4)+2
   Player.HP=Player.str+player.con
   Player.Gold=(Player.Dex+Player.Con)*2
   `I based gold on Intelligence and dexterity since the smart and/or quick person (thief?)
   `should have more. And to balance that Hit Points is based on Str and Con.
   `Print the stats out.
   Print "Strength: ";Player.Str
   Print "Dexterity: ";Player.Dex
   Print "Constitution: ";Player.Con
   Print "Inteligence: ";Player.Int
   Print "Health: ";Player.HP
   Print "Gold: ";Player.Gold
   `Let the player choose to keep the stats or re-roll.
   Do
      a$=Lower$(Inkey$())
      If a$="r" or s$="y" Then Exit
   Loop
   if a$="y" Then Exit
Loop

Wait 1000

set display mode 640,480,32

randomize timer()

#CONSTANT GRASS = 1        : `image number for grass
#CONSTANT WATTER = 2       : `image number for water (water is a reserved word, hence watter)
#CONSTANT MAP_WIDTH = 64   : `number of tiles in a map across
#CONSTANT MAP_HEIGHT = 64  : `number of tiles in a map down
#CONSTANT TILE_SIZE = 32   : `size of 1 tile (tile is assumed and should to be square)
GLOBAL SCREEN_HEIGHT : SCREEN_HEIGHT = screen height() / TILE_SIZE
GLOBAL SCREEN_WIDTH : SCREEN_WIDTH = screen width() / TILE_SIZE
GLOBAL SCREEN_WIDTH_BOUNDARY : SCREEN_WIDTH_BOUNDARY = (MAP_WIDTH * TILE_SIZE) -  (SCREEN_WIDTH-1)*TILE_SIZE
GLOBAL SCREEN_HEIGHT_BOUNDARY : SCREEN_HEIGHT_BOUNDARY = (MAP_HEIGHT * TILE_SIZE) -  (SCREEN_HEIGHT-1)*TILE_SIZE

REM create some random images
cls
for x = 0 to 32
   for y=0 to 32
      r = rnd(128)
      dot x,y,rgb(r,rnd(128)+128,r)
   next y
next x
blur bitmap 0, 2
get image GRASS, 0,0,32,32

cls
for x = 0 to 32
   for y=0 to 32
      r = rnd(64)
      g = rnd(128)
      dot x,y,rgb(r,g,rnd(128)+128)
   next y
next x
blur bitmap 0, 3
get image WATTER, 0,0,32,32

REM create our map
dim map(MAP_HEIGHT, MAP_WIDTH)
for y=1 to MAP_HEIGHT
   for x=1 to MAP_WIDTH
      map(y,x) = rnd(1)+1
   next x
next y


mx = TILE_SIZE
my = TILE_SIZE


sync on
backdrop on


DO


   gosub _CONTROLS

   drawMap(mx,my)

   set cursor 0,0
   print "FPS: ",screen fps()

sync
LOOP



`=================================================
`Player controls
`Also keeps coordinates within boundaries
`=================================================
_CONTROLS:
   speed = 3
   if upkey() then dec my, speed
   if downkey() then inc my, speed
   if rightkey() then inc mx, speed
   if leftkey() then dec mx, speed



   if mx < TILE_SIZE then mx = TILE_SIZE
   if mx > SCREEN_WIDTH_BOUNDARY then mx = mx - (mx-SCREEN_WIDTH_BOUNDARY)
   if my < TILE_SIZE then my = TILE_SIZE
   if my > SCREEN_HEIGHT_BOUNDARY then my = SCREEN_HEIGHT_BOUNDARY
RETURN


`=================================================
`Draws the map at position (mapDrawX,mapDrawY
`starting in the top left corner of the screen(0,0)
`Parameters are map coordinates. So a map with 64
`tiles each 32pixels each, the map would range from
`1 to 2048
`=================================================
function drawMap(mapDrawX as integer, mapDrawY as integer)

   mapx = mapDrawX / TILE_SIZE
   mapy = mapDrawY / TILE_SIZE
   xoff = mapDrawX AND (TILE_SIZE-1)
   yoff = mapDrawY AND (TILE_SIZE-1)
   xoff = mapDrawX - mapx*TILE_SIZE
   yoff = mapDrawY - mapy*TILE_SIZE


   sprt = 0
   for x = 0 to SCREEN_WIDTH
      for y=0 to SCREEN_HEIGHT
         inc sprt, 1
         img = getMapTile(mapy+y, mapx+x)
         `if img > 0 then sprite sprt, x*32 - xoff, y*32 - yoff, img
         if img > 0 then paste image img,x*TILE_SIZE - xoff, y*TILE_SIZE - yoff
      next y
   next x
endfunction


`=================================================
`Returns value from map array, making sure the call
`is within the boundaries of the array
`=================================================
function getMapTile(y as integer, x as integer)
   if x >= 0 and x <= MAP_WIDTH and y >= 0 and y <= MAP_HEIGHT
      img = map(y,x)
      exitfunction img
   endif
endfunction 0

`First, we are going to set up our player character (pc) variables.
`We will use a User Defined Type because it makes this code easy to read.
`I use floats for the stats, even though they will only be integers, because
`we may want to do some math with flaots later on. I don't want DB to convert
`the results to an integer unless we tell it to.
`I also expect to return to this and add more or make changes, but this is a good start.
Type Character
   Str as Float
   Dex as Float
   Con as Float
   Int as Float
   HP as Float
   Gold as Float
   Level as Float
   Name as String
EndType
`Notice that we CAN use INT, a reserved word, as a User Defined Type.

`Declare our player as a global variable.
Global Player as Character

` This is an array that will hold our map level.
Dim Dungeon(30,30)

`Now, create our character.
CLS
Set Cursor 0,0
Input "Enter your character's name:",Player.Name
Print
Print "Welcome ";Player.Name
Wait 1000

`Generate some stats.
Do
   Cls
   Set Cursor 0,0
   Print Player.Name;", press [R] to re-roll stats, or [Y] to accept stats."
   Print
   `Randomize the stats. Picks a number from 2 to 10: rnd(4)=0-4. So 0-4 plus 0-4 equals 0-8.
   `Plus 2 = 2 to 10. There is also more of a chance of 5&6 results than there are of 2 or 10.
   Player.Str=rnd(4)+rnd(4)+2
   Player.Dex=rnd(4)+rnd(4)+2
   Player.Con=rnd(4)+rnd(4)+2
   Player.Int=rnd(4)+rnd(4)+2
   Player.HP=Player.str+player.con
   Player.Gold=(Player.Dex+Player.Con)*2
   `I based gold on Intelligence and dexterity since the smart and/or quick person (thief?)
   `should have more. And to balance that Hit Points is based on Str and Con.
   `Print the stats out.
   Print "Strength: ";Player.Str
   Print "Dexterity: ";Player.Dex
   Print "Constitution: ";Player.Con
   Print "Inteligence: ";Player.Int
   Print "Health: ";Player.HP
   Print "Gold: ";Player.Gold
   `Let the player choose to keep the stats or re-roll.
   Do
      a$=Lower$(Inkey$())
      If a$="r" or a$="y" Then Exit
   Loop
   if a$="y" Then Exit
Loop



`Create a Dungeon Level
`Codes:
`-1 = Solid wall. These walls are permanent and should not get replaced.
` 0 = Wall. These walls are temporary and can be replaced with ether open area or solid walls.
` 1 = Open. These are open areas and also cannot be replaced.
Cls
`First, clear out the dungeon.
For x = 0 to 30
   For y = 0 to 30
      Dungeon(x,y)=0
   Next y
Next x
`First define our outside walls as solid.
For i = 1 to 30
   Dungeon(i,1)=-1
   Dungeon(i,30)=-1
   Dungeon(1,i)=-1
   Dungeon(30,i)=-1
Next i
`Select our starting point "our entrance"
startx=rnd(20)+5
starty=rnd(20)+5
Dungeon(startx,starty)=1
`Now do our random map from that point.
lastx=startx
lasty=starty
Set Cursor 0,0
Do
   do
      `the random statements pick a number from -1 to 1 (or 0 to 2 minus 1).
      r=(rnd(1)*2)-1
      c=0
      if rnd(2)=1 then s=rnd(1) `this is used to keep a path going in the same direction.
      if s=1
         t=r:r=c:c=t `swap column and row
      Endif
      newx=lastx + r
      newy=lasty + c
      if Dungeon(newx,newy)=0 Then Exit
      if rnd(40)=3 `This keeps us from trying new directions forever.
         n=-1
         Do
            newx=rnd(28)+2
            newy=rnd(28)+2
            if Dungeon(newx,newy)=0 or (Dungeon(newx,newy)=1 and rnd(20)=1)
               Dungeon(newx,newy)=0
               exit
            Endif
            if rnd(100)<n `Again, when we run out of places, don't want to keep trying forever.
               newx=0:newy=0 `setting these to 0 will tell us we're done.
               Exit
            Endif
            inc n
         Loop
      Endif
      if newx=0 and newy=0 then exit
      if Dungeon(newx,newy)=0 Then exit
   Loop
   if newx=0 and newy=0 then exit
   Dungeon(newx,newy)=1 ` set our new open space.
   `this next part puts up some random solid walls around the last position.
   For i =-1 to 1
      If Dungeon(lastx+i,lasty)=0 and rnd(2)=0
         Dungeon(lastx+i,lasty)=-1
      Endif
   Next i
   For i =-1 to 1
      If Dungeon(lastx,lasty+i)=0 and rnd(2)=0
         Dungeon(lastx,lasty+i)=-1
      Endif
   Next i
   `Draw_Dungeon() ` take the rem out to see the dungeon drawing.
   lastx=newx
   lasty=newy
Loop

`Now draw our dungeon
Draw_Dungeon()
`Draw our Entrance
Ink Rgb(0,255,0),0
Box (startx-1)*10,(starty-1)*10,startx*10,starty*10
`And last, make and draw our exit.
Do
   exitx=Rnd(27)+2
   exity=rnd(27)+2
   If Dungeon(exitx,exity)=1
      d=(exitx-startx)*(exitx-startx)+(exity-starty)*(exity-starty)
      if d>8 Then exit
   Endif
Loop
Ink Rgb(255,0,0),0
Box (exitx-1)*10,(exity-1)*10,exitx*10,exity*10


Wait Key
End


Function Draw_Dungeon()
   cls
   Ink Rgb(255,255,255),0
   For x= 1 to 30
      For y = 1 to 30
         If Dungeon(x,y)<1
            Box (x-1)*10,(y-1)*10,x*10,y*10
         Endif
      Next y
   Next x
Endfunction

Rem Project: RPG 2d
Rem Created: 09/08/2005 07:04:09

Rem ***** Main Source File *****

set display mode 1024,768,32
create bitmap 1,64,32

for x=0 to 31
 for y=0 to 31
  ink rgb(0,85+(rnd(7)*21),0),0
  dot x,y
 next y
next x
for x=32 to 63
 for y=0 to 31
  variable=rnd(7)
  ink rgb(83+(variable*21),53+(variable*12),2+int((variable/3))),0
  dot x,y
 next y
next x

get image 1,0,0,32,32

set current bitmap 0

for x=0 to 22
 for y=0 to 22
  paste image 1,272+(32*x),16+(32*y)
 next y
next x



wait 5000

This is a sample
This is a sample

set display mode 1024,768,32
create bitmap 1,64,32

for x=0 to 31
 for y=0 to 31
  ink rgb(0,85+(rnd(7)*21),0),0
  dot x,y
 next y
next x
for x=32 to 63
 for y=0 to 31
  variable=rnd(7)
  ink rgb(83+(variable*21),53+(variable*12),2+int((variable/3))),0
  dot x,y
 next y
next x

get image 1,0,0,32,32

set current bitmap 0

for x=0 to 22
 for y=0 to 22
  paste image 1,272+(32*x),16+(32*y)
 next y
next x



wait 5000

`First, we are going to set up our player character (pc) variables.
`We will use a User Defined Type because it makes this code easy to read.
`I use floats for the stats, even though they will only be integers, because
`we may want to do some math with flaots later on. I don't want DB to convert
`the results to an integer unless we tell it to.
`I also expect to return to this and add more or make changes, but this is a good start.
Type Character
   Str as Float
   Dex as Float
   Con as Float
   Int as Float
   HP as Float
   Gold as Float
   Level as Float
   Name as String
EndType
`Notice that we CAN use INT, a reserved word, as a User Defined Type.

`Declare our player as a global variable.
Global Player as Character

` This is an array that will hold our map level.
Dim Dungeon(30,30)
Global Startx as Integer
Global Starty as Integer
Global Exitx as Integer
global Exity as Integer

`Now, create our character.
CLS
Set Cursor 0,0
Input "Enter your character's name:",Player.Name
Print
Print "Welcome ";Player.Name
Wait 1000

`Generate some stats.
Do
   Cls
   Set Cursor 0,0
   Print Player.Name;", press [R] to re-roll stats, or [Y] to accept stats."
   Print
   `Randomize the stats. Picks a number from 2 to 10: rnd(4)=0-4. So 0-4 plus 0-4 equals 0-8.
   `Plus 2 = 2 to 10. There is also more of a chance of 5&6 results than there are of 2 or 10.
   Player.Str=rnd(4)+rnd(4)+2
   Player.Dex=rnd(4)+rnd(4)+2
   Player.Con=rnd(4)+rnd(4)+2
   Player.Int=rnd(4)+rnd(4)+2
   Player.HP=Player.str+player.con
   Player.Gold=(Player.Dex+Player.Con)*2
   `I based gold on Intelligence and dexterity since the smart and/or quick person (thief?)
   `should have more. And to balance that Hit Points is based on Str and Con.
   `Print the stats out.
   Print "Strength: ";Player.Str
   Print "Dexterity: ";Player.Dex
   Print "Constitution: ";Player.Con
   Print "Inteligence: ";Player.Int
   Print "Health: ";Player.HP
   Print "Gold: ";Player.Gold
   `Let the player choose to keep the stats or re-roll.
   Do
      a$=Lower$(Inkey$())
      If a$="r" or a$="y" Then Exit
   Loop
   if a$="y" Then Exit
Loop
Player.level=1

`This is added to create our player
Make_Player()

`We moved the Dungeon Construction code over to a function. This will make it easier to call from anywhere.
Randomize_Dungeon(Timer())
Draw_Dungeon()

playerx = startx-1
playery = starty-1
lastpx = playerx
lastpy = playery

Do
   Sprite 1000,0,0,1000 `Dungeon
   `Move the player
   playerx=playerx+rightkey()-leftkey() `Left and right movement
   playery=playery+downkey()-upkey()  `Up and down movement
   `Check for a valid move and if enough time since last move has past.
   if Dungeon(playerx+1,playery+1)<1 or (Timer()-LastTime)<200
      playerx=lastpx
      playery=lastpy
   Endif
   `Reset timer if player was moved. This keeps us from zooming across the dungeon.
   IF lastpx<>playerx or lastpy<>playery
      LastTime=Timer()
   Endif
   `And reposition the player.
   Sprite 1,playerx*15,playery*15,1 `Player




   `Track our player's last position.
   lastpx=playerx
   lastpy=playery
Loop







Wait Key
End


Function Randomize_Dungeon(seed)
   Randomize seed
   `Create a Dungeon Level
   `Codes:
   `-1 = Solid wall. These walls are permanent and should not get replaced.
   ` 0 = Wall. These walls are temporary and can be replaced with ether open area or solid walls.
   ` 1 = Open. These are open areas and also should not be replaced.
   Cls
   `First, clear out the dungeon.
   For x = 0 to 30
      For y = 0 to 30
         Dungeon(x,y)=0
      Next y
   Next x
   `First define our outside walls as solid.
   For i = 1 to 30
      Dungeon(i,1)=-1
      Dungeon(i,30)=-1
      Dungeon(1,i)=-1
      Dungeon(30,i)=-1
   Next i
   `Select our starting point "our entrance"
   startx=rnd(20)+5
   starty=rnd(20)+5
   Dungeon(startx,starty)=1
   `Now do our random map from that point.
   lastx=startx
   lasty=starty
   Set Cursor 0,0
   Do
      do
         `the random statements pick a number from -1 to 1 (or 0 to 2 minus 1).
         r=(rnd(1)*2)-1
         c=0
         if rnd(2)=1 then s=rnd(1) `this is used to keep a path going in the same direction.
         if s=1
            t=r:r=c:c=t `swap column and row
         Endif
         newx=lastx + r
         newy=lasty + c
         if Dungeon(newx,newy)=0 Then Exit
         if rnd(40)=3 `This keeps us from trying new directions forever.
            n=-1
            Do
               newx=rnd(28)+2
               newy=rnd(28)+2
               if Dungeon(newx,newy)=0 or (Dungeon(newx,newy)=1 and rnd(20)=1)
                  Dungeon(newx,newy)=0
                  exit
               Endif
               if rnd(100)<n `Again, when we run out of places, don't want to keep trying forever.
                  newx=0:newy=0 `setting these to 0 will tell us we're done.
                  Exit
               Endif
               inc n
            Loop
         Endif
         if newx=0 and newy=0 then exit
         if Dungeon(newx,newy)=0 Then exit
      Loop
      if newx=0 and newy=0 then exit
      Dungeon(newx,newy)=1 ` set our new open space.
      `this next part puts up some random solid walls around the last position.
      For i =-1 to 1
         If Dungeon(lastx+i,lasty)=0 and rnd(2)=0
            Dungeon(lastx+i,lasty)=-1
         Endif
      Next i
      For i =-1 to 1
         If Dungeon(lastx,lasty+i)=0 and rnd(2)=0
            Dungeon(lastx,lasty+i)=-1
         Endif
      Next i
      `Draw_Dungeon()
      lastx=newx
      lasty=newy
   Loop
Endfunction

Function Draw_Dungeon()
   cls
   Ink Rgb(255,255,255),0
   For x= 1 to 30
      For y = 1 to 30
         If Dungeon(x,y)<1
            Box (x-1)*15,(y-1)*15,x*15,y*15
         Endif
      Next y
   Next x
   `Draw our Entrance
   Ink Rgb(0,255,0),0
   Box (startx-1)*15,(starty-1)*15,startx*15,starty*15
   `And last, make and draw our exit.
   Do
      exitx=Rnd(27)+2
      exity=rnd(27)+2
      If Dungeon(exitx,exity)=1
         d=(exitx-startx)*(exitx-startx)+(exity-starty)*(exity-starty)
         if d>8 Then exit
      Endif
   Loop
   Ink Rgb(255,0,0),0
   Box (exitx-1)*15,(exity-1)*15,exitx*15,exity*15
   Get Image 1000,0,0,30*15,30*15,1
Endfunction

Function Make_Player()
   `What we do here is simply read in the data statements for each pixel, then capture the image.
   `c is our color. If we read c, and it's 0, then c= 0. Otherwise, if c=1, it will convert to white: rgb(255,255,255)
   Local c as Dword
   Restore Character_Pic
   Create Bitmap 1,128,128
   Set Current Bitmap 1
   For y=0 to 14
      for x=0 to 14
         read c
         c=c*Rgb(255,255,255) `"c" is either 0 or 1. Multiply by White: RGB(255,255,255) and either get 0, or white.
         Dot x,y,c
      Next x
   Next y
   Get Image 1,0,0,14,14,1
   Delete Bitmap 1
   Set Current Bitmap 0
Endfunction




Character_Pic:
data  0,1,0,0,0,0,0,1,1,0,0,0,0,0,0
data  0,1,0,0,0,0,1,1,1,1,0,0,0,0,0
data  0,0,1,0,0,0,1,1,1,1,0,0,0,0,0
data  0,0,1,0,0,0,0,1,1,0,0,0,0,0,0
data  0,0,0,1,0,0,1,1,1,1,1,0,0,0,0
data  0,0,0,1,0,1,1,1,0,0,1,1,1,0,0
data  0,0,0,0,1,1,0,1,0,1,1,1,1,0,0
data  0,0,0,0,1,0,1,1,1,0,1,1,0,0,0
data  0,0,0,0,0,0,1,1,1,0,1,1,0,0,0
data  0,0,0,0,0,0,1,1,1,1,1,0,0,0,0
data  0,0,0,0,0,0,1,1,0,1,1,0,0,0,0
data  0,0,0,0,0,0,1,1,0,1,1,0,0,0,0
data  0,0,0,0,0,0,1,1,0,1,1,0,0,0,0
data  0,0,0,0,0,1,1,1,0,1,1,1,0,0,0
data  0,0,0,0,0,1,1,1,0,1,1,1,0,0,0

function getBushesImage(img as integer)
   for r = 7 to 1 step -1
      g = 255 - r*18
      ink rgb(0,g,0),0
      circle 0,0,r
      circle 0,16,r
      circle 0,32,r
      circle 16,0,r
      circle 16,16,r
      circle 16,32,r
      circle 32,0,r
      circle 32,16,r
      circle 32,32,r
   next r
   get image img, 0,0,32,32
endfunction

function getBrickImage(img as integer)
   cls
   for x = 0 to 32
      for y=0 to 32
         g = rnd(128)+64
         dot x,y,rgb(g,g,g)
      next y
   next x
   ink 0,0
   line 0,31,32,31
   line 0,21,32,21
   line 0,10,32,10
   line 10,0,10,10
   line 21,0,21,10
   line 10,21,10,32
   line 21,21,21,32
   line 16,10,16,21
   get image img, 0,0,32,32
endfunction

set display mode 640,480,32

randomize timer()

#CONSTANT GRASS = 1        : `image number for grass
#CONSTANT WATTER = 2       : `image number for water (water is a reserved word, hence watter)
#Constant Bush = 3         : `image number for George
#Constant Brick = 4
#CONSTANT MAP_WIDTH = 64   : `number of tiles in a map across
#CONSTANT MAP_HEIGHT = 64  : `number of tiles in a map down
#CONSTANT TILE_SIZE = 32   : `size of 1 tile (tile is assumed and should to be square)
GLOBAL SCREEN_HEIGHT : SCREEN_HEIGHT = screen height() / TILE_SIZE
GLOBAL SCREEN_WIDTH : SCREEN_WIDTH = screen width() / TILE_SIZE
GLOBAL SCREEN_WIDTH_BOUNDARY : SCREEN_WIDTH_BOUNDARY = (MAP_WIDTH * TILE_SIZE) -  (SCREEN_WIDTH-1)*TILE_SIZE
GLOBAL SCREEN_HEIGHT_BOUNDARY : SCREEN_HEIGHT_BOUNDARY = (MAP_HEIGHT * TILE_SIZE) -  (SCREEN_HEIGHT-1)*TILE_SIZE

REM create some random images
cls
for x = 0 to 32
   for y=0 to 32
      r = rnd(128)
      dot x,y,rgb(r,rnd(128)+128,r)
   next y
next x
blur bitmap 0, 2
get image GRASS, 0,0,32,32

cls
for x = 0 to 32
   for y=0 to 32
      r = rnd(64)
      g = rnd(128)
      dot x,y,rgb(r,g,rnd(128)+128)
   next y
next x
blur bitmap 0, 3
get image WATTER, 0,0,32,32


getBushesImage(Bush)
getBrickImage(Brick)

REM create our map
dim map(MAP_HEIGHT, MAP_WIDTH)
for y=1 to MAP_HEIGHT
   for x=1 to MAP_WIDTH
      map(y,x) = rnd(2)+1
   next x
next y

x=0
y=rnd(MAP_HEIGHT)
Repeat
   d=rnd(3)
   if d=0
      y=y+((rnd(1)*2)-1)
   else
      x=x+1
   Endif
   if y<1 Then y=1
   if y>MAP_HEIGHT Then y=MAP_HEIGHT
   map(y,x) = Brick
Until x= MAP_WIDTH

x=rnd(MAP_WIDTH)
y=0
Repeat
   d=rnd(3)
   if d=0
      x=x+((rnd(1)*2)-1)
   else
      y=y+1
   Endif
   if x<1 then x=1
   if x>MAP_WIDTH Then x=MAP_WIDTH
   map(y,x) = Brick
Until y= MAP_HEIGHT


mx = TILE_SIZE
my = TILE_SIZE


sync on
backdrop on


DO


   gosub _CONTROLS

   drawMap(mx,my)

   set cursor 0,0
   print "FPS: ",screen fps()

sync
LOOP



`=================================================
`Player controls
`Also keeps coordinates within boundaries
`=================================================
_CONTROLS:
   speed = 3
   if upkey() then dec my, speed
   if downkey() then inc my, speed
   if rightkey() then inc mx, speed
   if leftkey() then dec mx, speed



   if mx < TILE_SIZE then mx = TILE_SIZE
   if mx > SCREEN_WIDTH_BOUNDARY then mx = mx - (mx-SCREEN_WIDTH_BOUNDARY)
   if my < TILE_SIZE then my = TILE_SIZE
   if my > SCREEN_HEIGHT_BOUNDARY then my = SCREEN_HEIGHT_BOUNDARY
RETURN


`=================================================
`Draws the map at position (mapDrawX,mapDrawY
`starting in the top left corner of the screen(0,0)
`Parameters are map coordinates. So a map with 64
`tiles each 32pixels each, the map would range from
`1 to 2048
`=================================================
function drawMap(mapDrawX as integer, mapDrawY as integer)

   mapx = mapDrawX / TILE_SIZE
   mapy = mapDrawY / TILE_SIZE
   xoff = mapDrawX AND (TILE_SIZE-1)
   yoff = mapDrawY AND (TILE_SIZE-1)
   xoff = mapDrawX - mapx*TILE_SIZE
   yoff = mapDrawY - mapy*TILE_SIZE


   sprt = 0
   for x = 0 to SCREEN_WIDTH
      for y=0 to SCREEN_HEIGHT
         inc sprt, 1
         img = getMapTile(mapy+y, mapx+x)
         `if img > 0 then sprite sprt, x*32 - xoff, y*32 - yoff, img
         if img > 0 then paste image img,x*TILE_SIZE - xoff, y*TILE_SIZE - yoff
      next y
   next x
endfunction


`=================================================
`Returns value from map array, making sure the call
`is within the boundaries of the array
`=================================================
function getMapTile(y as integer, x as integer)
   if x >= 0 and x <= MAP_WIDTH and y >= 0 and y <= MAP_HEIGHT
      img = map(y,x)
      exitfunction img
   endif
endfunction 0

function getBushesImage(img as integer)
   Paste Image Grass,0,0
   for r = 7 to 1 step -1
      g = 255 - r*18
      ink rgb(0,g,0),0
      circle 8,8,r
      circle 8,24,r
      circle 24,8,r
      circle 24,24,r
   next r
   get image img, 0,0,32,32
endfunction

function getBrickImage(img as integer)
   cls
   for x = 0 to 32
      for y=0 to 32
         g = rnd(128)+64
         dot x,y,rgb(g,g,g)
      next y
   next x
   ink 0,0
   line 0,31,32,31
   line 0,21,32,21
   line 0,10,32,10
   line 10,0,10,10
   line 21,0,21,10
   line 10,21,10,32
   line 21,21,21,32
   line 16,10,16,21
   get image img, 0,0,32,32
endfunction

set display mode 640,480,32

randomize timer()

`//
`// Passable tiles range from 1 to 5
`// Obstacle tiles range from 6 and up
`//
`//
`//
`//

#CONSTANT GRASS = 1        : `image number for grass
#CONSTANT BRICK = 3        : `image number for bricks
#CONSTANT BUSHES = 7       : `image number for bricks
#CONSTANT WATTER = 6       : `image number for water (water is a reserved word, hence watter)
#CONSTANT TILE_SIZE = 32   : `size of 1 tile (tile is assumed and should to be square)
Global MAP_WIDTH = 64   : `number of tiles in a map across
Global MAP_HEIGHT = 64  : `number of tiles in a map down
GLOBAL SCREEN_HEIGHT : SCREEN_HEIGHT = screen height() / TILE_SIZE   : `screen height in number of tiles
GLOBAL SCREEN_WIDTH : SCREEN_WIDTH = screen width() / TILE_SIZE      : `screen width in number of tiles
GLOBAL SCREEN_WIDTH_BOUNDARY : SCREEN_WIDTH_BOUNDARY = (MAP_WIDTH * TILE_SIZE) -  (SCREEN_WIDTH-1)*TILE_SIZE
GLOBAL SCREEN_HEIGHT_BOUNDARY : SCREEN_HEIGHT_BOUNDARY = (MAP_HEIGHT * TILE_SIZE) -  (SCREEN_HEIGHT-1)*TILE_SIZE
GLOBAL SCROLL_BOUNDARY : SCROLL_BOUNDARY = TILE_SIZE*4    : `How far from edge of screen should map start scrolling
GLOBAL STAT_BOX_HEIGHT = 64

type character
   x as float
   y as float
   damage as integer
   armor as integer
   str as float
   dex as float
   hp as float
   gold as integer
   level as integer
   expr as integer
   name as string
endtype


player as character

restore player1
read player.damage
read player.armor
read player.str
read player.dex
read player.hp
read player.gold
read player.level
read player.expr
read player.name
player.x = 320
player.y = 240


REM create some random images
getGrassImage(GRASS)
getBushesImage(BUSHES)
getWaterImage(WATTER)
getBrickImage(BRICK)


restore map1
buildMap()

restore Character_Pic
getCharacterImage(9)



mx = TILE_SIZE
my = TILE_SIZE


sync on
backdrop on


DO


   gosub _CONTROLS

   drawMap(mx,my)

   positionPlayer(player.x, player.y)

   printStats(player)
   set cursor 0,0
   print "FPS: ",screen fps()

sync
LOOP



`=================================================
`Player controls
`Also keeps coordinates within boundaries
`=================================================
_CONTROLS:
   speed = 2
   if upkey() then dec player.y, speed
   if downkey() then inc player.y, speed
   if rightkey() then inc player.x, speed
   if leftkey() then dec player.x, speed

   gosub _BOUNDARY_CHECKS

RETURN


`=================================================
`Checks player and screen boundaries along with
`map scrolling
`=================================================
_BOUNDARY_CHECKS:
   sw = screen width()
   sh = screen height()

   if player.x < SCROLL_BOUNDARY
      if mx > TILE_SIZE
         player.x = SCROLL_BOUNDARY
         dec mx, speed
      else
         mx = TILE_SIZE
         if player.x < 0 then player.x = 0
      endif
   endif

   if player.x > sw - SCROLL_BOUNDARY
      if mx < SCREEN_WIDTH_BOUNDARY
         player.x = sw - SCROLL_BOUNDARY
         inc mx, speed
      else
         mx = mx - (mx-SCREEN_WIDTH_BOUNDARY)
         rem 15 is the character's image size
         if player.x > sw-15 then player.x = sw-15
      endif
   endif

   if player.y < SCROLL_BOUNDARY
      if my > TILE_SIZE
         player.y = SCROLL_BOUNDARY
         dec my, speed
      else
         my = TILE_SIZE
         if player.y < 0 then player.y = 0
      endif
   endif

   if player.y > (sh - STAT_BOX_HEIGHT) - SCROLL_BOUNDARY
      if my < SCREEN_HEIGHT_BOUNDARY
         player.y = (sh - STAT_BOX_HEIGHT) - SCROLL_BOUNDARY
         inc my, speed
      else
         my = SCREEN_HEIGHT_BOUNDARY
         if player.y > (sh - STAT_BOX_HEIGHT)-15 then player.y = (sh - STAT_BOX_HEIGHT)-15
      endif
   endif
RETURN


`=================================================
`Draws the map at position (mapDrawX,mapDrawY
`starting in the top left corner of the screen(0,0)
`Parameters are map coordinates. So a map with 64
`tiles each 32pixels each, the map would range from
`1 to 2048
`=================================================
function drawMap(mapDrawX as integer, mapDrawY as integer)

   mapx = mapDrawX / TILE_SIZE
   mapy = mapDrawY / TILE_SIZE
   xoff = mapDrawX AND (TILE_SIZE-1)
   yoff = mapDrawY AND (TILE_SIZE-1)
   xoff = mapDrawX - mapx*TILE_SIZE
   yoff = mapDrawY - mapy*TILE_SIZE


   sprt = 0
   for x = 0 to SCREEN_WIDTH
      for y=0 to SCREEN_HEIGHT
         inc sprt, 1
         img = getMapTile(mapy+y, mapx+x)
         `if img > 0 then sprite sprt, x*32 - xoff, y*32 - yoff, img
         if img > 0 then paste image img,x*TILE_SIZE - xoff, y*TILE_SIZE - yoff
      next y
   next x
endfunction


`=================================================
`
`=================================================
function positionPlayer(x as float, y as float)
   paste image 9, x, y
endfunction

`=================================================
`Returns value from map array, making sure the call
`is within the boundaries of the array
`=================================================
function getMapTile(y as integer, x as integer)
   if x >= 0 and x <= MAP_WIDTH and y >= 0 and y <= MAP_HEIGHT
      img = map(y,x)
      exitfunction img
   endif
endfunction 0


`=================================================
`               !!!!!WARNING!!!!!!
`map data must be restored BEFORE you call this
`function so it knows which map to load
`=================================================
function buildMap()
   REM create our map
   restore map1
   read MAP_WIDTH
   read MAP_HEIGHT
   SCREEN_WIDTH_BOUNDARY = (MAP_WIDTH * TILE_SIZE) -  (SCREEN_WIDTH-1)*TILE_SIZE
   SCREEN_HEIGHT_BOUNDARY = ((MAP_HEIGHT * TILE_SIZE) -  (SCREEN_HEIGHT-1)*TILE_SIZE) + 64
   dim map(MAP_HEIGHT, MAP_WIDTH)
   for y=1 to MAP_HEIGHT
      for x=1 to MAP_WIDTH
         read map(y,x)
      next x
   next y
endfunction



`=================================================
`
`=================================================
function printStats(c as character)
   SH = screen height()
   ink 0,0
   box 0,SH-STAT_BOX_HEIGHT,screen width(),SH
   ink rgb(255,0,0), 0
   center text 320,SH - 64,c.name +" ("+str$(c.level)+")"
   text 0, SH - 64, "Strength: "+str$(c.str)
   text 0, SH - 52, "Dexterity: "+str$(c.dex)
   text 0, SH - 40, "Armor: "+str$(c.armor)
   text 0, SH - 28, "Damage: "+str$(c.damage)
   text 0, SH - 16, "Hitpoints: "+str$(c.hp)

   text 190, SH - 28, "Experience: "+str$(c.expr)
   text 190, SH - 16, "Gold: "+str$(c.damage)
endfunction


`=================================================
`Randomly creates a grass image
`=================================================
function getGrassImage(img as integer)
   cls
   for x = 0 to 32
      for y=0 to 32
         r = rnd(128)
         dot x,y,rgb(r,rnd(128)+128,r)
      next y
   next x
   blur bitmap 0, 2
   get image img, 0,0,32,32
endfunction

`=================================================
`Randomly creates a bushes image
`=================================================
function getBushesImage(img as integer)
   for r = 7 to 1 step -1
      g = 255 - r*18
      ink rgb(0,g,0),0
      circle 0,0,r
      circle 0,16,r
      circle 0,32,r
      circle 16,0,r
      circle 16,16,r
      circle 16,32,r
      circle 32,0,r
      circle 32,16,r
      circle 32,32,r
   next r
   get image img, 0,0,32,32
endfunction

`=================================================
`Randomly creates a water image
`=================================================
function getWaterImage(img as integer)
   cls
   for x = 0 to 32
      for y=0 to 32
         r = rnd(64)
         g = rnd(128)
         dot x,y,rgb(r,g,rnd(128)+128)
      next y
   next x
   blur bitmap 0, 3
   get image img, 0,0,32,32
endfunction

`=================================================
`Randomly creates a brick image
`=================================================
function getBrickImage(img as integer)
   cls
   for x = 0 to 32
      for y=0 to 32
         g = rnd(128)+64
         dot x,y,rgb(g,g,g)
      next y
   next x
   ink 0,0
   line 0,31,32,31
   line 0,21,32,21
   line 0,10,32,10
   line 10,0,10,10
   line 21,0,21,10
   line 10,21,10,32
   line 21,21,21,32
   line 16,10,16,21
   get image img, 0,0,32,32
endfunction


`=================================================
`loads the character and forms a picture from data
`=================================================
function getCharacterImage(img as integer)
   cls
   color as dword
   read cx
   read cy
   for y = 1 to cy
      for x = 1 to cx
         read z
         color = rgb(255,255,255) * z
         dot x,y,color
      next y
   next x
   get image img, 1,1,15,15
endfunction




player1:
DATA 2, 0, 9, 6, 40, 80, 1, 0, "Gwark"


Character_Pic:
data 15,15
data  0,1,0,0,0,0,0,1,1,0,0,0,0,0,0
data  0,1,0,0,0,0,1,1,1,1,0,0,0,0,0
data  0,0,1,0,0,0,1,1,1,1,0,0,0,0,0
data  0,0,1,0,0,0,0,1,1,0,0,0,0,0,0
data  0,0,0,1,0,0,1,1,1,1,1,0,0,0,0
data  0,0,0,1,0,1,1,1,0,0,1,1,1,0,0
data  0,0,0,0,1,1,0,1,0,1,1,1,1,0,0
data  0,0,0,0,1,0,1,1,1,0,1,1,0,0,0
data  0,0,0,0,0,0,1,1,1,0,1,1,0,0,0
data  0,0,0,0,0,0,1,1,1,1,1,0,0,0,0
data  0,0,0,0,0,0,1,1,0,1,1,0,0,0,0
data  0,0,0,0,0,0,1,1,0,1,1,0,0,0,0
data  0,0,0,0,0,0,1,1,0,1,1,0,0,0,0
data  0,0,0,0,0,1,1,1,0,1,1,1,0,0,0
data  0,0,0,0,0,1,1,1,0,1,1,1,0,0,0


map1:
DATA 64,64
DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,6,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,7,7,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,7,1,1,1,1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,7,1,1,1,1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,1,1,1,1,1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,7,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,1,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,7,1,1,1,1,7,1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,7,1,1,1,1,1,1,1,7,7,7,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,1,1,1,1,1,1,1,1,7,7,7,7,1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,1,1,1,1,1,1,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3
DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3

REM Modified version of RiiDii's character creation code, as found on the
REM DarkBasicPro Challenge thread.

Type Character
   Rage as Float
   Grace as Float
   Brains as Float
   HP as Float
   Money as Float
   Level as Float
   XP as Float
   Name as String
EndType
`Declare our player as a global variable.
Global Player as Character

`Now, create our character.
CLS
Set Cursor 0,0
Input "Enter your cube's name:",Player.Name
Print
Print "Welcome ";Player.Name;" the cube."
Wait 1000

`Generate some stats.
Do
   Cls
   Set Cursor 0,0
   Print Player.Name;", press [R] to re-roll stats, or [Y] to accept stats."
   Print
   `100 stat points initially.  So, we do rnd(99)+1 first, then do rnd(99-previoustotal)+1
   `then 100-previous-previous.  That should mean they'll add up to 100.  I'll try to allow
   `the player to assign stat points later.

   Player.Rage=rnd(99)+1
   Player.Grace=rnd((99-Player.Rage))+1
   Player.Brains=100-Player.Rage-Player.Grace
   Player.HP=100
   Player.Money=(Player.Brains+Player.Grace)*2
   `Still not got a good name or system for assigning the main unit of 'barter'.  Depends.

   `Print out the stats - note, Rage, Grace, and Brains correspond to Red, Green and Blue
   `respectively.  This will help people figure out the relative skills of an enemy, etc.
   Ink RGB(255,0,0),0
   Print "(R)age: ";Player.Rage
   Ink RGB(0,255,0),0
   Print "(G)race: ";Player.Grace
   Ink RGB(0,0,255),0
   Print "(B)rains: ";Player.Brains
   Ink RGB(255,255,255),0
   Print "Health: ";Player.HP
   Print "Monetary Units: ";Player.Money

   Ink RGB(INT(Player.Rage),INT(Player.Grace),INT(Player.Brains)),0
   Box 180,30,260,110
   Ink RGB(255,255,255),0
   `Let the player choose to keep the stats or re-roll.
   Do
      a$=Lower$(Inkey$())
      If a$="r" or s$="y"
         wait 300
         Exit
      endif
   Loop
   if a$="y" Then Exit
Loop

Wait 1000