Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

DarkBASIC Discussion / HELP ME PLZ

Author
Message
GhettoSmurf
21
Years of Service
User Offline
Joined: 18th Nov 2003
Location: here
Posted: 19th Nov 2003 05:30
In have been making a program for someone and have hit a wall.
If someone can help me make this last wall static it would help me heaps.
Leave your e-mail here if you're interested and I will send you the code
Xander
22
Years of Service
User Offline
Joined: 3rd Mar 2003
Location: In college...yeah!
Posted: 19th Nov 2003 06:19
You want to make your wall static?

Make static object "Wall",flag

Ta-Da!

Xander - Bolt Software

Why do the antagonists always have to look so cool?
GhettoSmurf
21
Years of Service
User Offline
Joined: 18th Nov 2003
Location: here
Posted: 20th Nov 2003 10:15 Edited at: 26th Nov 2003 05:50
but everytime i do that it still doesnt work sometime during the next week I will post the script so if anyone wants to help me they could


autocam off : sync rate 60
hide mouse : sync on

make object box 1,10,200,1000 : position object 1,-10,100,0 : color object 1,rgb(155,40,20)
make object box 2,10,200,1000 : position object 2, 500,100,0 : color object 2,rgb(155,40,20)
make object box 3,1000,200,10 : position object 3, 0,100,-500 : color object 3,rgb(155,40,20)
make object box 4,1000,200,10 : position object 4, 0,100, 500 : color object 4,rgb(155,40,20)
make object box 5,1000,10,1000 : position object 5,0,-5,0 : color object 5,rgb(0,255,0)
[b]NEEDS SOLIDIFYING
make object box 50,10,200,1000 : position object 50,-500,100,0 : color object 50,rgb(155,40,20)
[b]NEEDS SOLIDIFYING
make object box 55,1000,10,1000 : position object 55,0,200,0 : color
object 55,rgb(200,40,20)
create bitmap 1,32,32 : cls rgb(0,155,0) : ink rgb(0,145,0),0 : box 4,4,12,12
get image 1,0,0,32,32 : delete bitmap 1 : texture object 5,1
scale object texture 5,200,200

for t=0 to 4
make object box 6+t,50,8,50
position object 6+t,0,4+(t*10),100+(t*50)
color object 6+t,rgb(100,200,100)
next t

make object cone 11,10
position object 11,0,0,0
color object 11,rgb(0,0,255)
make object collision box 11,-5,-5,-5,5,5,5,0
disable object zdepth 11

for t=0 to 4
make object collision box 6+t,-55,-4,-25,25,4,25,0
next t

for t=1 to 5
make static object t
objx#=object position x(t)
objy#=object position y(t)
objz#=object position z(t)
objsx#=object size x(t)/2.0
objsy#=object size y(t)/2.0
objsz#=object size z(t)/2.0
make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
delete object t
next t

color backdrop 0

playergrav#=5.0

do

oldposx#=object position x(11)
oldposy#=object position y(11)
oldposz#=object position z(11)

if upkey()=1 then move object 11,2
if downkey()=1 then move object 11,-2
if leftkey()=1 then yrotate object 11,wrapvalue(object angle y(11)-3)
if rightkey()=1 then yrotate object 11,wrapvalue(object angle y(11)+3)
if spacekey()=1 and playergrav#=0.0 then playergrav#=8.0
if shiftkey()=1 then move object 11,15

posx#=object position x(11)
posy#=object position y(11)
posz#=object position z(11)

playergrav#=playergrav#-0.1
posy#=posy#+playergrav#

rem dis 1 be da stairs
position object 11,posx#,posy#,posz#
if object collision(11,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
playergrav#=0.0
endif

s#=object size y(11)/2.0

rem dis 1 be da ground and da wallz on top of em anywayz
if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
dec posx#,get static collision x()
dec posy#,get static collision y()
dec posz#,get static collision z()
if get static collision y()<>0.0 then playergrav#=0.0
endif

position object 11,posx#,posy#,posz#

position object 11,posx#,posy#,posz#

angle#=object angle y(11)
camdist#=25.0 : camhigh#=posy#+10.0 : camfade#=3.5
set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1

xrotate camera 15

rem dis 1 be da top stair dat b moving
move object 10,0.50

sync

loop
enable object zdepth 11

Login to post a reply

Server time is: 2025-05-21 17:23:15
Your offset time is: 2025-05-21 17:23:15