finally managed to actually run your code..... after about 30 mins trying to uninstall and then reinstall dbpro, only because i found your images under the other thread.
and this is what i have come up with...
Rem Project: 2D game
Rem Created: 1/15/2006 7:37:41 PM
Rem ***** Main Source File *****
`set tile variable
Rem Make Cubes and place randomly
`Load the sprite
load image "hero1.png",1
load image "rat1.png",2
load image "ground1.png",7
`Set start Cords
x#=300
y#=419
`Set health variables
health=100
mana=100
`Set monster Cords
mx#=400
my#=430
`set tile cords
tx#=200
ty#=450
`Setup enemies health
enemyhp = 100
`Set movespeed for INC and DEC later on if needed
movespeed#=.05
`make enviornment
For tile = 3 to 6
load image "wall1.png", tile
sprite 3,185,419,tile
sprite 4,160,419, tile
sprite 5,80,419, tile
sprite 6,220,419,tile
Next tile
`tile = tile
`Start loop
do
`clear screen so its black
CLS
`move left
if leftkey()=1
x#=x#-movespeed#
`If if is not flipped the right way then flip it
if leftkey() and flip# = 0
mirror sprite 1
flip# = 1
endif
endif
`Move right
if rightkey()
x#=x#+movespeed#
`If if is not flipped the right way then flip it
if rightkey() and flip# = 1 `should be rightkey()
mirror sprite 1
flip# = 0
endif
endif
`position ground
sprite 7,0,450,7
`Position monster
sprite 2,mx#,my#,2
`Position knight in X# and Y# Cords
sprite 1, X#,Y#,1
`print the current cords of sprite
print "X Cords: ",x#
print "Y Cords: ",y#
`print health and mana
print "---------------"
print "Health: ",health
print "Mana: ",mana
`Decrease hp if enemy and character collide
if timer()>hptime+300 and sprite collision(1,2)
dec health,1
hptime=timer()
endif
if sprite collision(1,7) then jumped=0
if jumped=0 and upkey()
for jump=1 to 2
y#=y#-16 : sprite 1,x#,y#,1 : jumped=1
next jump :endif
`when health = 0 then end
if health = 0 then end
`set left collision
If x# < 1 then x# = 1
If x# > 640 then x# = 640
`set top collision
If y# < 1 then y# = 1
If y# > 480 then y# = 1
`set right collision
If x# > 610 then x# = 610
`set sprite alpha
set sprite alpha 1,150
set sprite alpha 2,150
`set tile collision from sides
for tile = 3 to 6
if sprite collision(1,tile) and sprite y(1)>389
if flip# = 1 then x#=x#+movespeed#
if flip# = 0 then x#=x#-movespeed#
endif
next tile
ontile=0
if sprite collision(1,7)=0
for tile=3 to 6
if sprite collision(1,tile)=0 then inc ontile,1
next tile
if ontile=4
for jump=1 to 2
y#=y#+16 : sprite 1,x#,y#,1
next jump : endif : endif
`Set monster collision
if sprite collision(1,2)
if flip# = 1 then x#=x#+movespeed#
if flip# = 0 then x#=x#-movespeed#
endif
`End loop
loop
***note***
looks as though u can't jump but you can!
u have to be touching the wall to jump though, a shame but i need to work on it. also i noticed your hero needs to have a little bit of his back shaved off, as he seems to walk too far along the walls before he falls off.
do u want people to be able to jump over the enemies aswell?
anyway, i know dark lord is helping u do this so i didn't want to do it for him so as not to confuse u aswell.
p.s. is the attached file for me? what is it?
life's one big game
