well there shouldn't be anything wrong with the code since all you have to do is load a model and in the main loop tell the 3d model to animate (well that's how it works in db) anyway, here's the code:
Rem Project: test
Rem Created: 15/09/02 16:23:33
Rem ***** Main Source File *****
sync on
sync rate 100
`set display mode 800,600,16
`load sound "sounds\wind.wav",1
`load image "bitmaps\plasma.bmp",1
`load bitmap "bitmaps\menu.bmp"
priest1$="models\gidle.x"
health#=100
energy#=100
mana#=100
explevel#=1
money#=0
bulletammo#=200
shellammo#=60
coltammo#=48
counter#=0
counter2#=0
m1x#=20
m1y#=4
m1z#=20
XA = 390 : `start x position
XB = 540 : ` end x position
YA = 340 : ` start y position
YB = 360 : ` end y position
set text font "calligraph421 BT"
set text size 30
set text to bold
text 400,340,"New Game"
text 400,380,"Load Game"
text 400,420,"Options"
text 400,460,"Exit"
do
rem ------------------mode0--------------------------------------------
if mode=0
mx = mousex()
my = mousey()
if spacekey()=1 then level#=1
if mx <> xa + xb and my <> ya + yb
over = 1
else
over = 0
endif
if mouseclick()=1 and over=1 then level#=1
if level#=1
hide mouse
cls
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
backdrop on
` load bsp "","level1.bsp"
`loop sound 1
position camera 0,10,4,11
` set bsp camera collision 1,0,2,0
` set bsp collision threshhold 1,0.01
load object priest1$,1000
m1x#=-14
m1y#=0
m1z#=-5
position object 1000,m1x#,m1y#,m1z#
scale object 1000,3,3,3
yrotate object 1000,80
make object plain 10000,12,.5
position object 10000,-2.7,2.2,4
color object 10000,rgb(0,0,0)
lock object on 10000
set object light 10000,0
set object ambient 10000,0
disable object zdepth 10000
hide object 10000
make object plain 10001,12,.5
position object 10001,-2.7,-2.2,4
color object 10001,rgb(0,0,0)
lock object on 10001
set object light 10001,0
set object ambient 10001,0
disable object zdepth 10001
hide object 10001
level#=0
mode=1
endif
endif
rem --------------------mode0-----------------------------------------
rem --------------------mode1--------------------------------------------
if mode=1
if startgame#=0
endif
hide object 10000
hide object 10001
loop object 1000,0,25
set text font "calligraph421 BT"
set text size 30
set text to bold
set cursor 10,541
print health#
`e1y#=object position y(1)-.1
if inkey$()="m" then mode=2
if inkey$()="n" then chapter#=1
rotate camera camera angle x(0)+(mousemovey()/2.0),camera angle y(0)+(mousemovex()/2.0),0
rem Control player movement
cx1#=camera angle x(0) : cy1#=camera angle y(0)
if upkey()=1 then xrotate camera 0,0 : move camera 0,0.2 : xrotate camera 0,cx1#
if downkey()=1 then xrotate camera 0,0 : move camera 0,-0.15 : xrotate camera 0,cx1#
if leftkey()=1 then yrotate camera 0,cy1#-90 : move camera 0.2 : yrotate camera 0,cy1#
if rightkey()=1 then yrotate camera 0,cy1#+90 : move camera 0.2 : yrotate camera 0,cy1#
if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280
if inkey$()="w" then walkthroughmode=1
if inkey$()="e" then walkthroughmode=0
cx#=camera position x()
cz#=camera position z()
if spacekey()=1 then cy#=cy#+.5
position camera cx#,cy#+.5,cz#
if walkthroughmode=1
cy#=camera position y()
if inkey$()="q" then cy#=cy#+.5
if inkey$()="a" then cy#=cy#-.5
set cursor 0,0
print cx#
set cursor 200,0
print cy#
set cursor 400,0
print cz#
set cursor 0,20
set cursor 0,200
print cx1#
set cursor 200,200
print cy1#
set cursor 500,100
print "walkthroughmode"
endif
endif
rem ---------------mode1-------------------------------------------
rem -----------------mode2------------------------------------------
if mode=2
counter#=counter#+1
show object 10000
show object 10001
set text font "times new roman"
set text size 20
if chapter#=0
position camera 0,10,4,11
m1x#=object position x(1000)
m1y#=object position y(1000)
m1z#=object position z(1000)
point camera 0,m1x#,m1y#,m1z#
if counter2#=0
move object 1000,.05
if counter#>100
center text 400,20,"So... is the Prophecy true?"
if counter#>400
m1x#=mx1#+1
counter2#=1
counter#=0
endif
endif
endif
if counter2#=1
if counter#>100
center text 400,20,"Yes, I'm afraid so. It has returned..."
if counter#>400
counter2#=2
counter#=0
endif
endif
endif
if counter2#=2
if counter#>100
center text 400,20,"My God! What are we going to do?"
if counter#>400
counter2#=3
counter#=0
endif
endif
endif
if counter2#=3
if counter#>100
center text 400,20,"We have hidden the pieces of the sphere, that is all we can do know."
if counter#>400
counter2#=4
counter#=0
endif
endif
endif
if counter2#=4
if counter#>100
center text 400,20,"But what if it finds them what if it opens the..."
if counter#>400
counter2#=5
counter#=0
endif
endif
endif
if counter2#=5
if counter#>100
center text 400,20,"It won't, they have been protected, that is all we can do now."
if counter#>400
counter2#=6
counter#=0
endif
endif
endif
if counter2#=6
counter2#=0 : mode=1
endif
endif
if chapter#=1
if counter2#=0
if counter#>100
center text 400,20,"Now, I wonder where John is..."
if counter#>400
counter2#=1
counter#=0
endif
endif
endif
if counter2#=1
if counter#>100
center text 400,20,"Hey! Who the hell are you!"
if counter#>400
counter2#=2
counter#=0
endif
endif
endif
if counter2#=2
if counter#>100
center text 400,20,"Ha! Wouldn't you like to know!"
if counter#>400
counter2#=3
counter#=0
endif
endif
endif
if counter2#=3
if counter#>100
center text 400,20,"There is one who can defeat this darkness..."
if counter#>400
counter2#=4
counter#=0
endif
endif
endif
if counter2#=4
if counter#>100
center text 400,20,"But she's just a child! How can she be the one?"
if counter#>400
counter2#=5
counter#=0
endif
endif
endif
if counter2#=5
if counter#>100
center text 400,20,"Nethertheless, this child is the world's only hope."
if counter#>400
counter2#=6
counter#=0
endif
endif
endif
if counter2#=6
mode=1
counter#2=0
chapter#=2
endif
endif
endif
rem -----------------mode2------------------------------------------
sync
loop
When the menu comes up just press space and the game should load, you might need to change some things cause you don't have the files but it should work fine.
Press "M" to see the small cinematic
Feel free to use the code but please don't nick story line.
thanks
