I need felp with creating a simple maze?

[Wayne Rayner]

Hello i would like help with creating a simple maze.
The Maze will have the following included:
@collision Detechtion for the walls
@a Key to unlock the finish
@a ball as the character
@a few other things like monsters

I just need help with the code, which is here i get to the the main question
Should i use tilemaps or another method

Well Here is the code
dim texture, ball  'Variable Names for the chracter called ball.
dim texture2, wall 'Variable Names for the wall.
dim texture3, key  'Variable Names to unlock the next level.
dim ballx (ball), bally (ball)
texture = LoadTex("data\ball.png")
texture2 = LoadTex ("data\crate.bmp")
ball = NewSprite (texture)
SprSetVel (vec2 (2, 2))
SprSetPos (600, 400)
wall = NewSprite (texture2)

While True
   if ScanKeyDown (VK_LEFT) and ballx (Ball) >0 then
       ballx(Ball) = ballx (Ball) - 1
   EndIf
   if ScanKeyDown (VK_RIGHT) and ballx (ball) <400 then
       ballx (ball) = ballx (ball) + 1
   Endif
Wend

Can any one help me pls
Thanks wayne

[smc44]

ok if you used tilemaps it would help with collosion because you could loop the tilemap data and tell the player posistions to stop at that data

[DJLinux]

First you need a set of textures

save it as tilemap.png in the same folder your maze.gb file will be

and you must define your maze
0=Ground, 1=vWall, 2=hWall

' maze.gb
const w=16,h=15
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1
data 1,0,2,0,2,2,2,2,2,2,2,2,2,2,0,1
data 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,1,2,2,2,0,2,2,2,2,2,2,2,2,1
data 1,0,1,0,0,1,0,1,0,0,0,1,0,0,0,0
data 1,0,1,0,0,1,0,0,0,1,0,0,0,1,0,1
data 1,0,0,0,2,2,2,2,2,2,2,2,2,2,0,1
data 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1
data 1,0,1,0,1,0,2,2,2,2,2,2,2,2,0,1
data 1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,1
data 1,0,1,0,1,0,1,0,0,0,1,0,0,0,1,1
data 1,0,1,2,2,2,2,2,2,2,2,2,2,2,2,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2

dim x,y,Tiles(w-1,h-1)
dim Textures(TexStripFrames("tilemap.png")-1)=LoadTexStrip("tilemap.png")
for y = 0 to h-1
  for x = 0 to w-1
    read Tiles(x,y)
  next
next

dim TileMap = NewTileMap(Textures)
SprSetTiles (Tiles)
SprSetParallax(false)
SprSetSolid   (true)
SprSetXRepeat (false)
SprSetYRepeat (false)

while TRUE
  DrawText()
wend

the result

to get a feeling how it works play around with the lines of data
use your own funky textures
create a larger maze can be a multiply of your visible screen/window

step II
place a player sprite and monsters over the map (not as data items)

step III
make the player and monsters movable

step IV
think about collision detection

hello forum guys help a beginner you are all stated as beginner too

happy coding

Joshy

[Nicky Peter Hollyoake]

I made this last year.

basic4gl.proboards20.com/index.cgi?board=demo&action=display&thread=543

[Adam]

here is somthing I found that i did a pretty long time ago and thought that it might help. hope it does

Layer1: ' Layer. Images = gfx/groundtiles.png
   data 33,100 ' X size, Y size
   data 47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47
   data 47,0,0,0,0,0,0,0,0,0,0,47,0,0,0,0,47,0,0,0,4,4,47,47,47,47,47,47,47,47,47,47,47
   data 47,47,47,47,47,47,47,47,47,0,0,47,0,47,47,0,47,0,47,0,4,4,4,4,47,0,0,0,47,0,0,0,47
   data 47,0,0,0,0,0,0,0,47,0,0,47,0,47,0,0,47,0,47,47,4,4,47,4,47,0,47,0,47,0,47,0,47
   data 47,0,47,47,47,47,47,0,47,0,0,47,0,47,0,0,0,0,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,0,0,47,0,47,0,0,47,0,47,47,47,47,47,47,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,0,47,0,0,0,0,0,0,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,0,47,0,47,47,47,47,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,0,47,0,0,0,0,0,47,0,47,2,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,0,47,47,47,47,47,47,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,0,0,0,0,0,0,0,0,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,47,47,47,47,47,47,47,47,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,0,0,0,0,0,0,0,47,4,2,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,47,47,47,47,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,4,4,4,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,4,47,47,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,4,2,47,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,4,4,47,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,4,4,47,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,2,4,47,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,0,47,0,47,0,47,0,47,2,2,47,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,47,47,47,0,47,0,47,0,47,47,47,47,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,0,0,0,0,0,47,0,47,0,0,0,0,0,0,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,47,47,47,47,47,47,0,47,47,47,47,47,47,47,47,0,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,47,2,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,0,0,47,47,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,1,1,1,1,3,3,3,3,3,1,1,3,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,1,1,1,3,1,1,3,1,1,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,1,3,3,3,1,3,3,47,2,2,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,1,1,1,1,1,1,3,3,3,3,1,3,3,3,3,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,1,1,3,1,3,3,3,3,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,1,1,3,1,3,1,1,1,1,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,1,1,1,3,3,1,1,3,1,3,3,3,3,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,1,3,3,3,1,1,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,1,3,1,3,1,1,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,1,3,3,3,1,3,1,3,1,1,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,1,3,3,1,3,3,3,1,3,3,3,3,3,3,47,4,2,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,3,1,3,3,1,3,3,3,3,3,3,3,3,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,3,1,3,3,1,3,3,1,1,1,3,1,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,3,1,3,3,1,3,3,3,3,3,3,1,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,3,1,3,3,1,3,3,1,1,3,3,1,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,3,1,3,3,3,3,3,3,3,3,3,1,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,3,3,3,3,3,1,1,1,1,3,3,1,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,47,4,2,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,1,1,1,1,1,1,1,3,3,3,1,1,1,1,3,47,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,3,47,2,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,47,2,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,47,2,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,47,47,47,4,4,4,4,4,4,4,2,2,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,47,47,47,4,4,4,4,4,4,4,4,4,2,2,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,47,47,47,4,4,4,47,47,4,4,4,4,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,47,47,47,4,4,4,4,4,4,4,4,47,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,47,47,47,4,4,4,4,4,4,4,4,47,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,47,47,47,4,4,4,4,4,4,4,4,47,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,4,4,4,4,4,4,47,47,47,4,4,47,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,4,2,2,4,4,47,47,47,47,47,4,4,4,2,2,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,2,2,4,4,4,4,4,4,4,4,4,4,2,2,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,47,47,4,47,47,47,4,47,47,4,47,47,47,4,47,47,4,47,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,47,4,47,2,47,4,0,47,4,2,47,2,4,2,47,4,47,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,47,4,47,2,47,4,0,47,4,2,47,2,4,2,47,4,47,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,47,4,47,2,2,4,0,47,4,2,47,2,4,2,2,2,47,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,47,4,2,2,2,4,0,47,4,2,47,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,47,4,2,2,2,4,0,47,4,2,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,2,2,2,2,4,0,0,4,2,2,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,0,4,2,2,2,4,0,0,4,0,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,2,2,2,2,2,4,2,0,4,0,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,2,2,2,2,2,2,2,2,4,0,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,0,4,2,2,2,4,2,2,4,0,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,0,4,2,2,2,2,2,2,4,0,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,0,4,2,2,2,4,2,2,4,0,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,0,4,2,2,2,4,2,2,4,0,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,0,4,2,2,2,4,2,2,2,2,0,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,2,2,2,2,2,4,0,2,4,2,2,2,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,2,0,2,2,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,2,0,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,2,0,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,2,0,2,2,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,2,2,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,2,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,2,2,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,0,0,0,4,2,2,2,4,0,2,4,0,2,0,4,2,0,4,0,47,4,47,0,47,0,47,0,47,0,47,0,47
   data 47,2,2,2,4,2,2,2,4,0,0,4,0,2,0,4,2,0,4,0,47,4,47,0,0,0,47,0,0,0,47,0,47
   data 47,4,2,4,4,4,4,2,4,4,2,4,4,2,4,4,2,0,4,0,47,4,47,47,47,47,47,47,47,47,47,0,47
   data 47,4,2,2,4,4,2,2,2,2,2,4,4,2,4,4,4,4,4,0,47,4,4,4,4,4,4,4,4,4,4,4,47
   data 47,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,0,0,47,4,4,4,4,4,4,4,4,4,4,4,47
   data 47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47


Dim X, Y
Dim X2, Y2
Read X
Read Y
Dim Map(X-1)(Y-1), Score
Dim Balls(X-1)(Y-1)
Dim Texture = LoadTexture("Ball.png")
   For Y2 = 0 To Y - 1
       For X2 = 0 To X - 1
           Read Map(X2)(Y2)
       Next
   Next
TextMode(Text_Buffered)
ResizeSpriteArea(20,20)

Dim TileTexture(49) = LoadImageStrip("groundtiles.png",64)
For X2 = 0 To 49
   GLBindTexture(GL_Texture_2D, TileTexture(X2))
   GLTexParameterI(GL_Texture_2D, GL_Texture_Mag_Filter, GL_Nearest)
Next


Dim Tiles = NewTileMap(TileTexture)
SprSetTiles(Map)
SprSetSize(1,1)
SprSetZOrder(100)
SprSetXRepeat(False)
SprSetYRepeat(False)

Dim Sprite = NewSprite(LoadTexture("Bullet1.png"))
SprSetSize(1,1)
SprSetPos(1.5,1.5)

Function Check_Collision(X,Y)
   IF Map(SprX()+X,SprY()+Y) = 0 Or Map(SprX()+X,SprY()+Y) = 3 Or Map(SprX()+X,SprY()+Y) = 4 Then
       Return True
   Else
       Return False
   Endif                    
End Function                                                  

Sub SprSetCentre(X#,Y#)
   SprSetXCentre(X#)
   SprSetYCentre(Y#)
End Sub

For Y2 = 0 To Y - 1
   For X2 = 0 To X - 1                                            
       IF Map(X2)(Y2) = 0 Then Balls(X2)(Y2) = NewSprite(Texture): SprSetSize(.7,.7): SprSetCentre(0,0): SprSetPos(X2,Y2) Endif
   Next
Next
BindSprite(Sprite)
Do
While SyncTimer(35)
IF ScanKeyDown(VK_UP)   Then IF Check_Collision( 0,-1) Then SprSetY(SprY()-1) Endif: SprSetAngle(  0) Endif
IF ScanKeyDown(VK_Down) Then IF Check_Collision( 0, 1) Then SprSetY(SprY()+1) Endif: SprSetAngle(180) Endif
IF ScanKeyDown(VK_Left) Then IF Check_Collision(-1, 0) Then SprSetX(SprX()-1) Endif: SprSetAngle(270) Endif
IF ScanKeyDown(VK_Right)Then IF Check_Collision( 1, 0) Then SprSetX(SprX()+1) Endif: SprSetAngle( 90) Endif
IF Balls(SprX(),SprY()) > 0 Then DeleteSprite(Balls(SprX(),SprY())): Balls(SprX(),SprY()) = 0: Score = Score + 1 Endif
Wend
SprCameraSetPos(SprX()-(SpriteAreaWidth()/2),SprY()-(SpriteAreaHeight()/2))
Locate 0,0: Print Score
DrawText()      
Loop


And here are the images
basic4gl.wikispaces.com/file/view/Bullet1.png
basic4gl.wikispaces.com/file/view/Ball.png
basic4gl.wikispaces.com/file/view/GroundTiles.png

The only thing it doesn't have is monsters and a way of beating the level.. but that wouldn't be very hard and i think you can figure it out.

[Wayne Rayner]

Thanks DjLinux, Nicky, Odama and everyone else who helped me and DjLinux u helped me learn about tilemaps a lot so thaks for everyones help just one question if i want to add a extra tile to the tilemap but want the ones DjLinux gave me what do i do

Also wat should the monser be as there is no monster in the sprite library and i'm not good at modeling can someone make me a monster

Thanks Wayne

[DJLinux]

Dec 2, 2008 6:33:21 GMT -5 Wayne Rayner said:

...one question if i want to add a extra tile to the tile map but want the ones DjLinux gave me what do i do

load the png file in paint
select in menu image/attributes
change width to your needs (64 pixel per tile)
now put your new tiles in the free section and save your work

Dec 2, 2008 6:33:21 GMT -5 Wayne Rayner said:

Also wat should the monser be as there is no monster in the sprite library and i'm not good at modeling can someone make me a monster

google can search for sprite images only
images.google.com/images?hl=en&q=sprites
and of course for monsters too
images.google.com/images?hl=en&q=sprites+monster

in general if you will make a game you must learn to work with one of your favorite image manipulation application

if you find good looking sprites or textures often you must change it size
or define transparency regions

currently i learn more and more GIMP
it's free and open source and you will find good documents and tutorials.

Joshy

[Wayne Rayner]

load the png file in paint
select in menu image/attributes
change width to your needs (64 pixel per tile)
now put your new tiles in the free section and save your work

KK i will do this later 2 i was just asking questions about what i should do later, after i get the game sort of running at least, and the xtra tile is for if u don't get a key or something u can't unlock the finnish, i just don't know if it will work

google can search for sprite images only
images.google.com/images?hl=en&q=sprites
and of course for monsters too
images.google.com/images?hl=en&q=sprites+monster

I will learn how to make a 2D monster blob thingy probably
and i hope i can do that

currently i learn more and more GIMP
it's free and open source and you will find good documents and tutorials.

wat is GIMP and is it a good program and is it used to create sprites?

thanks Wayne

[matthew]

The Gimp is an image editing program that you can use for designing sprites & backgrounds, I've got it installed but I don't use it for creating sprites. I prefer to use Paint.NET for designing sprites.

There is a simple tutorial here on my wikispace which shows you how to create sprites for Basic4GL.

[smc44]

also dont forget photofiltre and photoshop

[Wayne Rayner]

The Gimp is an image editing program that you can use for designing sprites & backgrounds, I've got it installed but I don't use it for creating sprites. I prefer to use Paint.NET for designing sprites.

I will probably just use paint then

also dont forget photofiltre and photoshop

These probably cost money and i don't feel like spending money at the moment lol

Wayne

[smc44]

photophiltre is completly freeware

[Adam]

i use gimp.. darkjester introduced me to it and i fell in love lol

[Wayne Rayner]

ok odama i might give GIMP a go then and see how it works
and can someone help me with this code and i only wan't the ball to move no collision detection as i want to give it a shot

' maze.gb
const w=20,h=15
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,2,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,1
data 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,1,2,2,2,0,2,2,2,2,2,2,2,2,2,2,2,2,1
data 1,0,1,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0
data 1,0,1,0,0,1,0,0,0,1,0,0,0,1,0,1,0,1,0,1
data 1,0,0,0,2,2,2,2,2,2,2,2,2,2,0,1,0,1,0,1
data 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1
data 1,0,1,0,1,0,2,2,2,2,2,2,2,2,0,1,0,1,0,1
data 1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1
data 1,0,1,0,1,0,1,0,0,0,1,0,0,0,1,1,0,1,0,1
data 1,0,1,2,2,2,2,2,2,2,2,2,2,2,2,1,0,1,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,2,2,2,1
dim x,y,Tiles(w-1,h-1)
dim Textures(TexStripFrames("tilemap.png")-1)=LoadTexStrip("tilemap.png")
for y = 0 to h-1  
   for x = 0 to w-1
       read Tiles(x,y)  
   next
   next
dim TileMap = NewTileMap(Textures)
   SprSetTiles (Tiles)
   SprSetParallax(false)
   SprSetSolid   (true)
   SprSetXRepeat (false)
   SprSetYRepeat (false)
while TRUE  
   DrawText ()
wend

dim ball
dim ballx (ball), bally (ball)
ball = NewSprite (LoadTex("data\ball.png"))
ballx (ball) = 0
bally (ball) = 0

TextMode (TEXT_BUFFERED)
While True

   if ScanKeyDown (VK_LEFT) and ballx (ball) then
       ballx (ball) = ballx (ball) - 1
   endif

   if ScanKeyDown (VK_RIGHT) and ballx (ball) then
       ballx (ball) = ballx (ball) + 1
   endif

   if ScanKeyDown (VK_UP) and bally (ball) then
       bally (ball) = bally (ball) + 1
   endif

   if ScanKeyDown (VK_Down) and bally (ball) then
       bally (ball) = bally (ball) - 1
   endif
   DrawText ()
wend
Thanks Wayne

[Adam]

here.. i just added comments to your code to help show you what you did wrong to help you learn
' maze.gb
const w=20,h=15
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,2,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,1
data 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,1,2,2,2,0,2,2,2,2,2,2,2,2,2,2,2,2,1
data 1,0,1,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0
data 1,0,1,0,0,1,0,0,0,1,0,0,0,1,0,1,0,1,0,1
data 1,0,0,0,2,2,2,2,2,2,2,2,2,2,0,1,0,1,0,1
data 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1
data 1,0,1,0,1,0,2,2,2,2,2,2,2,2,0,1,0,1,0,1
data 1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1
data 1,0,1,0,1,0,1,0,0,0,1,0,0,0,1,1,0,1,0,1
data 1,0,1,2,2,2,2,2,2,2,2,2,2,2,2,1,0,1,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,2,2,2,1
dim x,y,Tiles(w-1,h-1)
dim Textures(TexStripFrames("tilemap.png")-1)=LoadTexStrip("tilemap.png")
for y = 0 to h-1
for x = 0 to w-1
read Tiles(x,y)
next
next
dim TileMap = NewTileMap(Textures)
SprSetTiles (Tiles)
SprSetParallax(false)
SprSetSolid (true)
SprSetXRepeat (false)
SprSetYRepeat (false)
               ' <-- here you need to put SprSetZorder(100) to push this behind the ball
while TRUE      '
DrawText ()     ' <-- this is an infinite loop that is unneeded and doesn't let the rest of you code below run
wend            '

dim ball
dim ballx (ball), bally (ball)' <-- these are 2 arrays with 1 element in each since the variable "ball" = 0
ball = NewSprite (LoadTex("data\ball.png")) 'here the handle is passed to ball changing the value to 2
ballx (ball) = 0  ' <-- here you have an error because the array index is out of range..
bally (ball) = 0  '     you are trying to get ballx(2) out of a maximum of 0

TextMode (TEXT_BUFFERED)
While True

if ScanKeyDown (VK_LEFT) and ballx (ball) then' <-- the second part of all of these if then statements don't need to be here
ballx (ball) = ballx (ball) - 1              
endif

if ScanKeyDown (VK_RIGHT) and ballx (ball) then
ballx (ball) = ballx (ball) + 1
endif

if ScanKeyDown (VK_UP) and bally (ball) then
bally (ball) = bally (ball) + 1              '<-- your up and down movement is backward..for going up you need to subtract
endif                                        '    going down you need to add

if ScanKeyDown (VK_Down) and bally (ball) then
bally (ball) = bally (ball) - 1
endif
' you forgot to update the position of the ball.. i recomend using somthing like
' SprSetPos(X pos, Y pos)
DrawText ()
wend


Here I fixed the code..
' maze.gb
const w=20,h=15
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,2,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,1
data 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,1,2,2,2,0,2,2,2,2,2,2,2,2,2,2,2,2,1
data 1,0,1,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0
data 1,0,1,0,0,1,0,0,0,1,0,0,0,1,0,1,0,1,0,1
data 1,0,0,0,2,2,2,2,2,2,2,2,2,2,0,1,0,1,0,1
data 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1
data 1,0,1,0,1,0,2,2,2,2,2,2,2,2,0,1,0,1,0,1
data 1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1
data 1,0,1,0,1,0,1,0,0,0,1,0,0,0,1,1,0,1,0,1
data 1,0,1,2,2,2,2,2,2,2,2,2,2,2,2,1,0,1,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,2,2,2,1
dim x,y,Tiles(w-1,h-1)
dim Textures(TexStripFrames("tilemap.bmp")-1)=LoadTexStrip("tilemap.bmp")
for y = 0 to h-1
for x = 0 to w-1
read Tiles(x,y)
next
next
dim TileMap = NewTileMap(Textures)
SprSetTiles (Tiles)
SprSetParallax(false)
SprSetSolid (true)
SprSetXRepeat (false)
SprSetYRepeat (false)
SprSetZOrder(100)

dim ball
dim ballx , bally
ball = NewSprite (LoadTex("data\ball.png"))

TextMode (TEXT_BUFFERED)
While True

if ScanKeyDown (VK_LEFT) then
ballx = ballx - 1
endif

if ScanKeyDown (VK_RIGHT) then
ballx = ballx + 1
endif

if ScanKeyDown (VK_UP) then
bally = bally - 1
endif

if ScanKeyDown (VK_Down) then
bally = bally + 1
endif
SprSetPos(ballx, bally)
DrawText ()
wend

hope i helped..

-Odama