So i am making this building game with blocks and i have made it so that you can walk over 1 block, but once you go on top of the block you cant come down. I have tried tons of things but they either make me fall through the floor or glitch horrifically with the camera. Here is the code:
Rem Project: Builder Game
Rem Created: Friday, February 14, 2014
Rem Created by Thomas Montano
Rem Art By Sam Honcoop
Rem ***** Main Source File *****
hide mouse
load image "media/Dirt.bmp", 2
load image "media/Hammer.bmp", 1
load image "media/Character right.bmp", 3
load image "media/Character left.bmp", 4
load image "media/Stone.bmp", 5
load image "media/Wood.bmp", 6
global selectedblock as byte = 0
global stringselectedblock as string = "Delete"
global xpos as integer = 223
global ypos as integer = 316
global zpos as integer = 0
global direction as byte = 3
global objects as integer = 2
global camz as integer = 300
global blocknumber as byte = 8
Sync on
sync rate 70
make camera 1
make matrix 1,2048,2048,32,32
prepare matrix texture 1,2,1,1
position matrix 1,0,0,0
update matrix 1
XRotate Camera 1, 65
//set the initial camera position
set camera to follow 1, xpos, 150, ypos, 0, 100, camz, 1, 0
//a test command for placing blocks
make object box 1, 64, 1, 64
position object 1, xpos, zpos, ypos
set object 1, 1, 1, 1
make object cube 11, 64
position object 11, 160, 32, 288
texture object 11, 2
make object cube 2, 64
position object 2, 224, 32, 224
texture object 2, 6
make object cube 3, 64
position object 3, 224, 96, 160
texture object 3, 6
make object cube 4, 64
position object 4, 224, 160, 96
texture object 4, 6
make object cube 5, 64
position object 5, 224, 192, 32
texture object 5, 6
make object cube 6, 64
position object 6, 288, 192, 32
texture object 6, 6
make object cube 7, 64
position object 7, 160, 192, 32
texture object 7, 6
make object cube 8, 64
position object 8, 32, 32, 32
texture object 8, 5
make object cube 9, 64
position object 9, 92, 32, 32
texture object 9, 5
make object cube 10, 64
position object 10, 156, 32, 32
texture object 10, 5
do
if keystate(19) = 1 then zpos = 0
if keystate(19) = 1 then camz = 300
//update camera
set camera to follow 1, xpos, 150, ypos, 0, 100, camz, 1, 0
//test for collisions
for objects = 1 to 7
if object collision(1,object)
text 5, 55, "Hit"
inc zpos, 64
inc camz, 64
position object 1, xpos, zpos, ypos
set camera to follow 1, xpos, 100, ypos, 0, 100, camz, 1, 0
endif
if object collision(1, object) = 1
text 100, 100, "Your Gay"
endif
next objects
texture object 1, direction
position object 1, xpos, zpos, ypos
if object collision(1,2) > 0 and zpos > 1 then dec zpos, 64
sync
// displaying the location of the character
text 5, 5, str$(object position x(1))
text 5, 15, str$(object position y(1))
text 5, 25, str$(object position z(1))
text 5, 35, "Mouse x: " + str$(mousex())
text 5, 45, "Mouse y: " + str$(mousey())
// creation and movement of the character
// determine what key was pressed and orient the sprite accordingly
if keystate(17) = 1
inc ypos, 3 //up
endif
if keystate(32) = 1
inc xpos, 3
direction = 3
endif //right
if keystate(30) = 1 //left
dec xpos, 3
direction = 4
endif
if keystate(31) = 1
dec ypos, 3 //down
endif
//make the limits of the world so the player cant walk off
if ypos < 32 then inc ypos, 3
if ypos > 2070 then dec ypos, 3
if xpos < -15 then inc xpos, 3
if xpos > 2048 then dec xpos, 3
// the text and inventory system
if scancode() = 2 then selectedblock = 0
if scancode() = 3 then selectedblock = 1
if scancode() = 4 then selectedblock = 2
text 1, 10, " " + stringselectedblock
if selectedblock = 0
stringselectedblock = "Delete"
endif
if selectedblock = 1
stringselectedblock = "Stone Brick"
endif
if selectedblock = 2
stringselectedblock = "Dirt"
endif
//make the block appear near the mouse
if selectedblock = 2 then paste image 2, mousex(), mousey()
if selectedblock = 1 then paste image 5, mousex(), mousey()
// make the hammer not stick around when a different item is selected
if selectedblock = 0
sprite 2, mousex(), mousey(), 1
else
sprite 2, -400, -400, 1
endif
//allow block placing
loop
end
The cubes that i place at the start or just for testing because i haven't figured out how to make you be able to place blocks in game. If anyone could help with that as well that would be appreciated. If you want to see the game in action just go here:
Builders Game
This has all the textures i'm using and stuff like that. If there is anything else i could improve upon let me know that would be greatly appreciated. Thanks in advance for any tips!
-FishCube-
