Dark Basic Programming Language
كل ماعليك فعله هو نسخ الكود التالى , وطبعا يمكنك التعديــل فى الكود كما تشاء وتغير أشياء , بس كن حذرا ألا تسمح شىء يضيع كل شىء.....
--------------------------------------------------------------------------------
rem ********************************************
rem * ROOM *
rem ********************************************
rem * AUTHOR: سلام دنك DATE: -/-/2003 *
rem ********************************************
rem Setup environment
hide mouse
autocam on
sync on
rem Set up Scene
setup_room()
rem Activate forcefeedback
forceactive=setup_forcefeedback()
rem Set up Data
gosub _setupglobals
rem Init player position
a#=90.0
x#=150.0
rem Begin main loop
backdrop off
do
rem Handle Control Keys
mainaction=0 : subaction=0
if upkey()=1 then mainaction=1
if downkey()=1 then mainaction=2
if leftkey()=1 then subaction=3 : a#=wrapvalue(a#-6.0)
if rightkey()=1 then subaction=4 : a#=wrapvalue(a#+6.0)
rem Handle Control Stick
if control device y()<-500 then mainaction=1
if control device y()>500 then mainaction=2
if control device x()<-300 then subaction=3 : a#=wrapvalue(a#-6.0)
if control device x()>300 then subaction=4 : a#=wrapvalue(a#+6.0)
rem Handle Player Position
s#=handle_player_speed(s#,mainaction)
if mainaction>=1 and mainaction<=4
rem Update Player position
oldx#=x#
oldz#=z#
if mainaction=1
x#=newxvalue(x#,a#,s#)
z#=newzvalue(z#,a#,s#)
endif
if mainaction=2
x#=newxvalue(x#,a#,s#*-1.0)
z#=newzvalue(z#,a#,s#*-1.0)
endif
rem Make sure player not colliding with room (obj1)
position object 102,x#,-150,z#
if object collision(102,5)=1
position object 102,x#,-150,oldz#
if object collision(102,5)=0
z#=oldz#
else
position object 102,oldx#,-150,z#
if object collision(102,5)=0
x#=oldx#
else
x#=oldx#
z#=oldz#
endif
endif
endif
endif
rem Generate ripples when move
if mainaction>0 or subaction>0 then gosub _make_ripple
rem Handle Player
handle_player(x#,z#,a#,mainaction,subaction)
handle_camera(x#,z#,a#)
rem Handle Misc Effects
handle_player_shadow(x#,z#,a#)
handle_effects()
gosub _handle_bouncer
gosub _handle_rainforce
gosub _handle_face_fading
gosub _handle_drips
gosub _handle_facedecals
gosub _handle_ambience
gosub _handle_ripple_control
rem Update screen
sync
loop
rem Subroutines
_setupglobals:
dim ripple#(10)
for r=1 to 10 : ripple#(r)=0.0 : next r
dim drip(3)
for d=1 to 3 : drip(d)=0 : next d
return
_handle_bouncer:
rem scroll variable value
wh#=wrapvalue(wh#+8.0)
rem trigger bounce
position object 102,x#,-300,z#
col=object collision(21,0)
if col=102
by#=3.0+(s#/5.0)
ix#=(object position x(21)-x#)/((35.0-s#)/1.5)
iz#=(object position z(21)-z#)/((35.0-s#)/1.5)
benergy=5
play sound 3
set sound volume 3,95-(benergy*2)
endif
if col=5
ba#=wrapvalue(atanfull(bx#,bz#)+180.0)
is#=sqrt((ix#*ix#)+(iz#*iz#))/1.5
ix#=sin(ba#)*is#
iz#=cos(ba#)*is#
by#=by#+2.0
benergy=benergy+1
play sound 3
vol=95-(benergy*2)
if vol<1 then vol=0
if vol>100 then vol=100
set sound volume 3,vol
endif
rem manage bounce
bx#=object position x(21)
bz#=object position z(21)
if benergy>0
bx#=bx#+ix#
bz#=bz#+iz#
ix#=ix#*0.95
iz#=iz#*0.95
position object 21,bx#,object position y(21)+by#,bz#
position object 22,bx#,-280.0,bz#
position sound 3,bx#,0,bz#
by#=by#-1.0
if by#<((benergy*2.0)*-1.0) then by#=((benergy*2.0)*-1.0)
if object position y(21)<-250.0
by#=(by#*0.75)*-1.0
benergy=benergy-1
play sound 3
svol=95-(benergy*2)
if svol<0 then svol=0
if svol>100 then svol=100
set sound volume 3,svol
if benergy=0
bfloat#=object position y(21)
endif
endif
else
diff#=((-250+(cos(wh#)*9.0))-bfloat#)/12.0
bfloat#=bfloat#+diff#
position object 21,bx#,bfloat#,bz#
position object 22,bx#,-280.0,bz#
by#=0.0
endif
rem ripple from ball (9)
r=9
if ripple#(r)=0.0 and object position y(21)<-210.0
position object 10+r,bx#,-225,bz#
texture object 10+r,17
show object 10+r
ripple#(r)=1.0
endif
rem scale ball based on vertical inertia
diff#=(by#-boing#)/6.0
boing#=boing#+diff#
scale object 21,100,90+(boing#*4.0),100
scale object 22,90-(boing#*2.0)+(cos(wh#)*9.0),90-(boing#*2.0)+(cos(wh#)*9.0),100
`
return
_handle_rainforce:
rem rain force
dist#=sqrt((x#*x#)+(z#*z#))
if forceactive=1 and dist#<400
force angle 10-((9.0/400.0)*dist#),rnd(359),5
endif
return
_handle_face_fading:
rem handle wrapping rotation
sl#=wrapvalue(sl#+16.0)
rotate object 203,90,0,sl#
rem handle in-out fading
if lf=0
fd=fd+1
fade object 203,80
if fd=10 then lf=1
else
fd=fd-1
fade object 203,125
if fd=0 then lf=0
endif
rem twirl force
dx#=x#-800.0
dist#=sqrt((dx#*dx#)+(z#*z#))
if forceactive=1 and dist#<200.0
str#=((99.0/200.0)*dist#)
force angle 100-str#,wrapvalue(270.0-sl#),50
a#=wrapvalue(a#-5.0*(str#/99.0))
endif
rem Proximity to face opens door, else closes it
if dist#<400.0
position object 36,-1290,object position y(36)+5.0,0
if object position y(36)>500.0
position object 36,-1290,500.0,0
stop sound 4 : chl=0
else
if chl=0 then loop sound 4 : set sound speed 4,12000 : chl=1
endif
else
position object 36,-1290,object position y(36)-10.0,0
if object position y(36)<160.0
position object 36,-1290,160.0,0
stop sound 4 : chl=0
else
if chl=0 then loop sound 4 : set sound speed 4,15000 : chl=1
endif
endif
return
_handle_drips:
rem loop through all drip elements
for d=1 to 3
if drip(d)=0 and rnd(20)=0
rem start drip
drip(d)=1
position object 7+d,-700+rnd(1400),1000,-700+rnd(1400)
show object 7+d
else
if drip(d)=1
position object 7+d,object position x(7+d),object position y(7+d)-100,object position z(7+d)
if object position y(7+d)<-300
rem end drip
drip(d)=0
hide object 7+d
rem ripple from drips (6-8)
r=5+d
position object 10+r,object position x(7+d),-225,object position z(7+d)
texture object 10+r,17
show object 10+r
ripple#(r)=1.0
endif
endif
endif
next d
return
_handle_facedecals:
rem Point faces towards camera position
dx#=camera position x()
dz#=camera position z()
fa#=wrapvalue(atanfull(dx#,dz#)+180.0)
yrotate object 7,wrapvalue(fa#)
return
_handle_ambience:
rem controls strength of shadow
dist#=sqrt(abs(x#*x#)+abs(z#*z#))
set ambient light 20+(dist#/40.0)
return
_make_ripple:
rem spare ripple object?
r=1 : while ripple#(r)>0 and r<5 : r=r+1 : endwhile
if r<=5
oz#=-48.0
ox#=-70.0
oz#=oz#+(rnd(2)*50.0)
ox#=ox#+(rnd(1)*140.0)
tx#=(cos(a#)*ox#)+(sin(a#)*oz#)
tz#=(cos(a#)*oz#)-(sin(a#)*ox#)
rx#=x#+tx#
rz#=z#+tz#
position object 10+r,rx#,-225,rz#
yrotate object 10+r,a#
texture object 10+r,17
show object 10+r
ripple#(r)=1.0
endif
return
_handle_ripple_control:
rem loops through all ripple elements
for r=1 to 10
if object visible(10+r)=1
texture object 10+r,16+ripple#(r)
ripple#(r)=ripple#(r)+0.5
if ripple#(r)>=4.4
ripple#(r)=0.0
hide object 10+r
endif
endif
position object 10+r,object position x(10+r),-250+(cos(wh#)*9.0),object position z(10+r)
next r
return
rem Functions
function handle_player_speed(speed#,actionmode)
rem Handle Speed control
if actionmode=1 or actionmode=2
speed#=speed#+5.0
if actionmode=1 and speed#>30.0 then speed#=30.0
if actionmode=2 and speed#>30.0 then speed#=30.0
else
speed#=speed#-5.0
if speed#<0.0 then speed#=0.0
endif
endfunction speed#
function handle_player(px#,pz#,pa#,actionmode,subaction)
rem Handle player animation
handle_player_anim(actionmode,subaction)
rem Set Player Position and angle
position object 101,px#,0,pz#
yrotate object 101,pa#
rem Position listener at player
position listener px#/100.0,0,pz#/100.0
rotate listener 0,wrapvalue(360.0-pa#),0
rem Set players collision sphere
position object 102,px#,-150,pz#
endfunction
function handle_player_anim(actionmode,subactionmode)
if smoothing=0
if actionmode>0 or subactionmode>0
rem Switch to Walk
if object frame(101)<100 or object frame(101)>115
start=100
newanim=2
smoothing=4
loop sound 2
set sound speed 2,8500+rnd(1500)
endif
if rnd(4)=0 then set sound speed 2,8500+rnd(1500)
else
rem Switch to Idle
if object frame(101)>25
start=0
newanim=1
smoothing=4
endif
endif
rem Activate smoothing
if smoothing>0
rem Begin smoothing transition
stop object 101
set object interpolation 101,25
set object frame 101,start
rem Duplicate for shadow
stop object 4
set object interpolation 4,25
set object frame 4,start
endif
endif
rem Switch to new animation
if newanim>0
if smoothing=0
rem Trigger New Anim
if newanim=1 then length=20 : speed=10
if newanim=2 then length=15 : speed=50
rem Set Animation
set object interpolation 101,100
set object frame 101,start
loop object 101,start,start+length
set object speed 101,speed
rem Duplicate for shadow
set object interpolation 4,100
set object frame 4,start
loop object 4,start,start+length
set object speed 4,speed
rem Choose sound
if newanim=2
loop sound 2
else
play sound 2
set sound speed 2,8400
endif
rem Reset flag
newanim=0
else
smoothing=smoothing-1
endif
endif
endfunction
function handle_camera(px#,pz#,pa#)
rem Calc camera position and angle
ca#=wrapvalue(pa#+180.0)
cx#=newxvalue(px#,ca#,scdis#)
cz#=newzvalue(pz#,ca#,scdis#)
rem Record camera coords
oldx#=scx#
oldz#=scz#
rem Calc smoothed camera position and angle
diff#=(scx#-cx#)/6.0
scx#=scx#-diff#
diff#=(scz#-cz#)/6.0
scz#=scz#-diff#
sca#=curveangle(pa#,sca#,6.0)
rem Restrict camera if collide with walls
position object 103,scx#,-50,scz#
if object collision(103,5)=1
if object hit(103,5)=1 then cdis#=100.0
position object 103,scx#,-50,oldz#
if object collision(103,5)=0
scx#=oldx#
else
position object 103,oldx#,-50,scz#
if object collision(103,5)=0
scz#=oldz#
else
scx#=oldx#
scz#=oldz#
endif
endif
else
if cdis#<500.0
cdis#=cdis#+50.0
if cdis#>500.0 then cdis#=500.0
endif
endif
rem Smooth camera distance for next cycle
diff#=(scdis#-cdis#)/6.0
scdis#=scdis#-diff#
rem Set camera
position camera scx#,-50,scz#
point camera object position x(101),object position y(101)-100,object position z(101)
endfunction
function handle_effects()
rem Scroll rain texture
scroll object texture 2,0,-0.02
rem Simple rotate of water
wr#=wrapvalue(wr#+1.0)
yrotate object 3,wr#
wh#=wrapvalue(wh#+8.0)
position object 3,0,-250+(cos(wh#)*9.0),0
endfunction
function handle_player_shadow(px#,pz#,pa#)
rem Shadow follows player
position object 4,px#,-280.0,pz#
yrotate object 4,pa#
endfunction
function setup_forcefeedback()
rem Check for FF device
perform checklist for control devices
if checklist quantity()>0
for f=1 to checklist quantity()
if checklist value a(f)=1
set control device checklist string$(f)
force water effect 100,0
forceactive=1
endif
next f
else
forceactive=0
endif
endfunction forceactive
function setup_room()
rem Blacken Scene
if fog available()=1 then fog on : fog color 0 : fog distance 0
point camera 0,1000,0
set ambient light 0
rem Create bitmaps for room
load_image("bmp\floor.bmp",1)
load_image("bmp\roof.bmp",2)
load_image("bmp\wall1.bmp",3)
load_image("bmp\wall2.bmp",4)
load_image("bmp\wall3.bmp",5)
load_image("bmp\door.bmp",6)
load_image("bmp\portal.bmp",7)
rem Create special effects bitmaps
load_image("bmp\force.bmp",11)
load_image("bmp\water.bmp",12)
load_image("bmp\black.bmp",13)
` load_image("bmp\spray.bmp",14)
` load_image("bmp\spray.bmp",15)
load_image("bmp\ripple.bmp",16)
load_image("bmp\face.bmp",21)
` load_image("bmp\stattext.bmp",31)
load_image("bmp\shadow.bmp",32)
load_image("bmp\logo.bmp",33)
rem Create room (but hide the gate)
load object "obj\dome.x",1
set object collision off 1
texture limb 1,0,2
texture limb 1,1,2
texture limb 1,2,4
texture limb 1,3,3
texture limb 1,4,5
texture limb 1,5,5
texture limb 1,6,6
texture limb 1,7,4
hide limb 1,6
hide limb 1,8
rem Reload room (showing only the gate)
load object "obj\dome.x",200
set object collision off 200
set object 200,1,0,0
hide limb 200,1
hide limb 200,2
hide limb 200,3
hide limb 200,4
hide limb 200,5
hide limb 200,7
texture limb 200,6,6
hide limb 200,8
rem Create floor
make matrix 1,3200.0,2400.0,4,3
position matrix 1,-2000.0,-290.0,-1200.0
prepare matrix texture 1,1,2,2
set matrix tile 1,1,1,3
set matrix tile 1,3,1,2
set matrix tile 1,2,1,4
update matrix 1
rem Create Shaft of light
make object cone 2,300
scale object 2,200,800,200
position object 2,0,600,0
texture object 2,11
set object 2,1,0,0
ghost object on 2
set object collision off 2
if alphablending available()=0 then hide object 2
rem Create water on floor
make object plain 3,2900,2900
xrotate object 3,90
fix object pivot 3
texture object 3,12
ghost object on 3
set object collision off 3
rem Create Shadow for player
load object "obj\scorpidle.x",4
append object "obj\scorpwalk.x",4,100
yrotate object 4,180
fix object pivot 4
scale object 4,100,1,100
hide limb 4,1 : hide limb 4,2 : hide limb 4,3
hide limb 4,5 : hide limb 4,6 : hide limb 4,7
hide limb 4,12 : hide limb 4,13 : hide limb 4,14
hide limb 4,15 : hide limb 4,16 : hide limb 4,17
hide limb 4,18 : hide limb 4,19 : hide limb 4,20
texture object 4,13
set object collision off 4
rem Create collision walls
make object plain 5,1200,800
make mesh from object 1,5
position object 5,0,0,1200
for w=1 to 7 : add limb 5,w,1 : next w
w=1 : offset limb 5,w,-800,0,-350 : rotate limb 5,w,0,135,0
w=2 : offset limb 5,w,800,0,-350 : rotate limb 5,w,0,45,0
w=3 : offset limb 5,w,-1200,0,-1200 : rotate limb 5,w,0,270,0
w=4 : offset limb 5,w,1200,0,-1200 : rotate limb 5,w,0,90,0
w=5 : offset limb 5,w,-800,0,-2050 : rotate limb 5,w,0,45,0
w=6 : offset limb 5,w,800,0,-2050 : rotate limb 5,w,0,135,0
w=7 : offset limb 5,w,0,0,-2400 : rotate limb 5,w,0,180,0
hide object 5
rem Create Center Spray
make object cone 6,540
scale object 6,100,1,100
position object 6,0,-290,0
xrotate object 6,180
color object 6,rgb(235,235,255)
ghost object on 6
fade object 6,0
set object collision off 6
rem Create Logo
make object plain 7,400,300
texture object 7,33
position object 7,0,230,0
ghost object on 7
set object 7,1,0,1
set object collision off 7
rem Create drips
make object cylinder 8,2
scale object 8,100,1000,100
ghost object on 8
hide object 8
set object collision off 8
make object cylinder 9,2
scale object 9,100,1000,100
ghost object on 9
hide object 9
set object collision off 9
make object cylinder 10,2
scale object 10,100,1000,100
ghost object on 10
hide object 10
set object collision off 10
rem Create ripple objects
for r=1 to 10
make object plain 10+r,100,100
xrotate object 10+r,90
fix object pivot 10+r
ghost object on 10+r
set object 10+r,1,0,1
hide object 10+r
set object collision off 10+r
next r
rem Slightly rescale ball ripple
scale object 10+9,150,150,100
rem Create bouncing ball
make object sphere 21,100
position object 21,0,0,0
texture object 21,2
rem Create ball shadow
make object plain 22,100,100
xrotate object 22,90
fix object pivot 22
texture object 22,32
set object 22,1,0,0
set object collision off 22
rem Create Effective Door
make object plain 31,1000,1000
position object 31,-1400,100,0
yrotate object 31,90
texture object 31,3
fade object 31,0
set object collision off 31
make object plain 32,1000,1000
position object 32,-1320,100,900
yrotate object 32,100
texture object 32,3
set object collision off 32
make object plain 33,1000,1000
position object 33,-1320,100,-900
yrotate object 33,80
texture object 33,3
set object collision off 33
rem Create Door Portal
make object plain 36,1050,900
texture object 36,7
position object 36,-1290,100,0
set object 36,1,0,0
yrotate object 36,90
set object collision off 36
rem Create Character
load object "obj\scorpidle.x",101
append object "obj\scorpwalk.x",101,100
yrotate object 101,180
fix object pivot 101
loop object 101,0,20
hide limb 101,1
set object collision off 101
rem Collision Sphere for Character
make object sphere 102,300
scale object 102,100,60,100
hide object 102
rem Collision Sphere for Camera
make object sphere 103,150
hide object 103
rem Create spinning face
make object plain 203,400,400
position object 203,800,-280,0
texture object 203,21
ghost object on 203
xrotate object 203,90
set object collision off 203
rem Create ripple textures
create bitmap 2,256,64
paste image 16,0,0
get image 17,0,0,64,64
get image 18,64,0,64+64,64
get image 19,128,0,128+64,64
get image 20,192,0,192+64,64
delete bitmap 2
rem Create bitmap for effects (force)
create bitmap 2,256,256
set current bitmap 0
rem Create Sounds
load 3dsound "snd\rain.wav",1
position sound 1,0,10,0
set sound speed 1,3500
loop sound 1
load sound "snd\splash.wav",2 : set sound speed 2,7000 : set sound volume 2,85
load 3dsound "snd\bang.wav",3 : set sound volume 3,95
load 3dsound "snd\chain.wav",4 : set sound volume 4,90
position sound 4,-1200,0,0
rem Create Fog (show scene)
if fog available()=1 then fog on : fog color 0 : fog distance 3000
set ambient light 30
endfunction
function load_image(file$,imagenumber)
load bitmap file$,1
width=bitmap width(1)
height=bitmap height(1)
get image imagenumber,0,0,width,height
delete bitmap 1
endfunction
------------------------------------------------------------------------------------
الآن تحياتى للجميع ....
... ( هههه )!!!
Re: مثال تصميم لعبة ثلاثية الأبعاد بلغــة : Dark Basic
المشاركة الأصلية كتبت بواسطة PRG of RPG
