Yeah I found a GREAT! solution to my collision problem atlast. It doesnt even slow the program down like the built in ones. Yay. But to the point, can a collision box be turned. My collision uses collision boxes and gets the objects width, height, and depth to max the box then positions it where the object is positioned. Well since some of my walls aren't 0,90,180,360 degress turned on the Y-Axis It won't do them I havn't found a way to turn the box myself.
If anyone can help please PLEASE post. You will be my new favorite person if you do
.
P.S. here is my code for you to look at and fix the collision boxes lol.
Sync On
Sync Rate 0
rem Make a 3D landscape
MAKE MATRIX 1,45000.0,36000.0,25,25
rem Load grass floor bitmap into image
LOAD BITMAP "GRASS15.bmp",1
Get Image 1,0,0,256,256
Delete Bitmap 1
rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1
Rem Load Wall Texture
Delete Image 1
rem Activ23ate manual syncronization and hide mouse
HIDE MOUSE
AUTOCAM OFF
rem Load and Loop Music
Load Music "Dance of Darkness.mid",1
Play Music 1
Loop Music 1
rem Set Distance and Color of Fog
Fog On
Fog Color RGB(256,256,256)
Fog Distance 10000
Backdrop On
Color Backdrop RGB(256,256,256)
Rem Create Characters
`Player
Load Object "Walk.3DS",10
Position Object 10,6000,Y#,6000
YRotate Object 10,180
Scale Object 10,250,250,250
ob#=10
obsx#= Object Size X(ob#): Rem Find the object size X
obsy#= Object Size Y(ob#): Rem Find the object size Y
obsz#= Object Size Z(ob#): Rem Find the object size Z
Make object Collision Box ob#,0-(obsx#/2),0-(obsy#/2),0-(obsz#/2),(obsx#/2),(obsy#/2),(obsz#/2),0
Set Camera Range 1,45000
RemStart
Character Information Array Settings
Charstat#(1) = Health Charstat#(7) = % Chance to Hi Target
Charstat#(2) = Experience Charstat#(8) = Damage
Charstat#(3) = Strength Charstat#(9) = Armor Class
Charstat#(4) = Agility Charstat#(10)= Level
Charstat#(5) = Energy
Charstat#(6) = Vitality
Remend
Gravity# = 6
VS# = 10
Remstart
-------------------------------------------------------------------------------
WALLS FOR THE DUNGEON
-------------------------------------------------------------------------------
Remend
Make Object Box 123,10,700,27000
Position Object 123,2995,350,19500
Make Object Box 124,10,700,4243
Position Object 124,4500,350,4500
Yrotate Object 124,135
Make Object Box 125,9000,700,10
Position Object 125,10500,350,2995
Make Object Box 126,10,700,4243
Position Object 126,16500,350,4500
YRotate Object 126,225
Make Object Box 127,3000,700,10
Position Object 127,19500,350,6000
Make Object Box 128,10,700,4243
Position Object 128,22500,350,4500
YRotate Object 128,135
Make Object Box 129,3000,700,10
Position Object 129,25500,350,3000
Make Object Box 130,10,700,4243
Position Object 130,28500,350,4500
YRotate Object 130,225
Make Object Box 131,10,700,3000
Position Object 131,30000,350,7500
Make object Box 132,3000,700,10
Position Object 132,31500,350,9000
Make Object Box 133,10,700,4243
Position Object 133,34500,350,7500
YRotate Object 133,135
Make Object Box 134,6000,700,10
Position Object 134,39000,350,6000
Make Object Box 135,10,700,4243
Position Object 135,40500,350,7500
YRotate Object 135,135
Make Object Box 136,10,700,3000
Position Object 136,39000,350,10500
Make Object Box 137,10,700,2122
Position Object 137,38250,350,12750
YRotate Object 137,135
Make Object Box 138,10,700,2122
Position Object 138,38250,350,14250
YRotate Object 138,225
Make Object Box 139,10,700,2122
Position Object 139,38250,350,15750
YRotate Object 139,135
Make Object Box 140,10,700,2122
Position Object 140,38250,350,17250
YRotate Object 140,225
Make Object Box 141,10,700,3000
Position Object 141,39000,350,19500
Make Object Box 142,10,700,4243
Position Object 142,40500,350,22500
YRotate Object 142,225
Make Object Box 143,6000,700,10
Position Object 143,39000,350,24000
Make Object Box 144,10,700,4243
Position Object 144,34500,350,22500
YRotate Object 144,225
Make Object Box 145,6000,700,10
Position Object 145,30000,350,21000
Make Object Box 146,10,700,4243
Position Object 146,25500,350,19500
YRotate Object 146,225
Make Object Box 147,6000,700,10
Position Object 147,21000,350,18000
Make Object Box 148,10,700,6000
Position Object 148,18000,350,15000
Make Object Box 149,3000,700,10
Position Object 149,19500,350,12000
Make Object Box 150,10,700,5750
Position Object 150,21000,350,14875
Make Object Box 151,3000,700,10
Position Object 151,22500,350,17750
Make Object Box 152,10,700,5750
Position Object 152,24000,350,14875
Make Object Box 153,10,700,4243
Position Object 153,22500,350,10500
YRotate Object 153,225
Make Object Box 154,5750,700,10
Position Object 154,18125,350,9000
Make Object Box 155,10,700,15000
Position Object 155,15250,350,16500
Make Object Box 156,17750,700,10
Position Object 156,24125,350,24000
Make Object Box 157,10,700,3000
Position Object 157,33000,350,25500
For W = 123 TO 157
obsx#= Object Size X(W): Rem Find the object size X
obsy#= Object Size Y(W): Rem Find the object size Y
obsz#= Object Size Z(W): Rem Find the object size Z
Make object Collision Box W,0-(obsx#/2),0-(obsy#/2),0-(obsz#/2),(obsx#/2),(obsy#/2),(obsz#/2),0
Next ob#
Rem Load Wall Texture
Load Bitmap "brick06.bmp",7
Get Image 7,0,0,256,256
Delete Bitmap 7
For T = 123 TO 157
Texture Object T,7
Next T
DO
Rem Store Object angle Y in aY#
aY# = Object angle Y(10)
oX#=Object Position X(124)
oY#=Object position Y(124)
oZ#=Object Position Z(124)
Rem Control input for camera
If Upkey()=1 then Move object 10,-10
If Downkey()=1 then Move Object 10,+10
If Upkey()=1 and Shiftkey()=1 then Move Object 10,-50
If Downkey()=1 and Shiftkey()=1 then Move Object 10,+50
If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)
Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position z(10)
Y# = Get Ground Height(1,X#,Z#)
pY# = Object Position Y(10)
If Spacekey()=1 or Object Position Y(10) > 0 Then VS#=VS#-.5
If Object Position Y(10)<Y# then Position Object 10,X#,Y#,Z#
If Object Position Y(10)>0 Then Position Object 10,X#,pY#+Gravity#,Z#
If Object Position Y(10)>0 and Spacekey()=0 Then Gravity# = Gravity#-.3
If Spacekey()=1 then Gravity#=Gravity#-.3
If Object Position Y(10) = 0 and Spacekey()=0 then Gravity#=6
If Object Position Y(10) = Y# and Spacekey()=0 then VS# = 10
rem Character Animations
If Upkey()=1 then Loop Object 10, 5, 25
If Upkey()=0 then Stop Object 10
If Upkey()=0 then Loop Object 10, 6, 1
If Downkey()=1 then Loop Object 10, 5, 25
If Upkey()=1 then Set Object Speed 10,7
If Upkey()=1 and Shiftkey()=1 then Set Object Speed 10,14
Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#+360,700)
cX# = Newxvalue(X#,aY#+360,700)
Rem position camera
Position Camera cX#,y#+200,cZ#
Rem point the camera at the player object
Point camera X#,Y#+50,Z#
If Object Position Y(10) < 0 then Position Object 10,X#,0,Z#
coll#=Object Collision(10,0)
If coll#=124 then Position Object 10,X#,Y#,Z#+10
If Object Position X(10)<3040 then Position Object 10,3040,0,Z#
Set Cursor 0,0
Text 100,100,Str$(Screen FPS())
posx = Object Position X(10)
posy = Object Position Y(10)
posz = Object Position Z(10)
Print "X Pos :[";posx,"]"
Print "Y Pos :[";posy,"]"
Print "Z Pos :[";posz,"]"
pn#=10
slidecoll(pn#)
sync
loop
`this is the function for the collision box
Function CollBox(ob#)
obsx#= Object Size X(ob#): Rem Find the object size X
obsy#= Object Size Y(ob#): Rem Find the object size Y
obsz#= Object Size Z(ob#): Rem Find the object size Z
Make object Collision Box ob#,0-(obsx#/2),0-(obsy#/2),0-(obsz#/2),(obsx#/2),(obsy#/2),(obsz#/2),0
endfunction
`Now that the collision box is made, the function can be put in the main loop
Function SlideColl(pn#) : Rem pn# is PLAYER NUMBER
obx#= Object position x(pn#) : Rem Get the objects X position
oby#= Object position y(pn#) : Rem Get the objects Y position
obz#= Object position z(pn#) : Rem Get the objects Z position
If object collision(pn#,0)>0 : Rem here you may put NOT any objects you dont want collision with
dec obx#,get object collision x()
dec oby#,get object collision y()
dec obz#,get object collision z()
position object pn#,obx#,oby#,obz#
endif
endfunction