i am trying to make the knight be able to jump and still be able to catch a ride on the platforms ... i know its a messy code .. but oh well im a noob
any help would be appreciated:
sync on:sync rate 60
backdrop on
color backdrop 0
rem Setup direction array
dim arrayx(10)
blue=rgb(0,100,200)
orange=rgb(200,0,100)
load object "knight_walk.x", 21
scale object 21,1300,1300,1300
position object 21,0,-500,0
rem Create walls (and make them non-rotation collision boxes)
make object box 1,100,1300,100 : position object 1,-700,0,0:color object 1, blue
make object box 2,100,1300,100 : position object 2,700,0,0:color object 2, rgb(100,200,0)
make object collision box 1,-50,-650,-50,50,650,50,0
make object collision box 2,-50,-650,-50,50,650,50,0
make object collision box 21,-5,-5,-5,5,5,5,0
make object box 3,1400,100,100 :position object 3,0,-600,0:color object 3,orange
make object box 10,1400,100,100 :position object 10,0,600,0:color object 10, rgb(200,200,200)
make object collision box 3,-700,-50,-50,700,50,50,0
make object collision box 10,-700,-50,-50,700,50,50,0
rem Create boxes for bouncing
y=t*10
make object box 101,80,30,100
position object 101,rnd(200)-100,(t*46)-200,0
yrotate object 101,90:color object 101 ,orange
arrayx(t)=0
rem Load model to bounce off
do
rem Main loop
default$="4"
print "object collsion 101= ",object collision(101,0)
if dir36 then obframe=0
set object frame 21, obframe
MOVE OBJECT 21,3
obframe=obframe+1
if obframe>36 then obframe=0
set object frame 21, obframe
move object 21,3
obframe=obframe+1
endif
if leftkey()=1 and dir36 then obframe=0
set object frame 21, obframe
MOVE OBJECT 21,3
obframe=obframe+1
if obframe>36 then obframe=0
set object frame 21, obframe
move object 21,3
obframe=obframe+1
endif
endif
gosub collcheck
collresult=object collision(101,0)
gosub platform
s#=object size y(21)/2.0
center text 320,460," "+str$(screen fps())
rem Drop model into collision bounce zone
rem Update camera based on mouse position
position camera 0,0,-1300
point camera 0,0,0
rem Update screen
sync
rem End loop
loop
return
return
platform:
colresult=object collision(101,0)
if colresult>0
if colresult=3
rem Box is touching left wall, set box direction to right
dir=1
else
if colresult=10
rem Box is touching right wall, set box direction to left
dir=0
else
dir=dir-1
if dir 0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
playergrav#=0
endif
endif
if dir=1
position object 101,object position x(101),yval,object position z(101)
yval=yval+1
oldposx#=object position x(21)
oldposy#=object position y(21)
oldposz#=object position z(21)
posx#=object position x(21)
posy#=object position y(21)
posz#=object position z(21)
playergrav#=playergrav#-0.3
posy#=posy#+playergrav#
if object collision(21,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
playergrav#=0
endif
endif
if dir=2
set cursor 125,125
print "now is 2"
inc yval
posx#=object position x(21)
posy#=object position x(21)
posz#=object position x(21)
position object 101,object position x(21),yval,object position z(21)
position object 21,object position x(101),object position y(101),object position z(101)
endif
rem Check whether box is touching anything
return
return
collcheck:
if object hit(101,3) then bottomhit=bottomhit+1
if object hit(101,21) then knighthit=knighthit+1
if object hit(101,10) then tophit=tophit+1
if object hit(21,10) then headhit=headhit+1
return
