با سلام
کرک Dark Basic Professional 6.2 Trial دارید برای دانلود
بگذارید با شتکر
با سلام
کرک Dark Basic Professional 6.2 Trial دارید برای دانلود
بگذارید با شتکر
با سلام
من اول را هستم و برای اولین بار با این نرم افزار آنا شدام میشه بگوید
باید از کجا شروع کنم
با تشکر
شما برنامه نویسی VB بلد هستید؟نقل قول:
برای آموزش هم حتما یه کاری میکنم ولی فعلا pc من خراب شده و بردم نمایندگی درستش کنند و گفتن 10 روز دیگه درست میشه.
من تو سیستم خودم کرکشو دارم میتونی 10 رو صبر کنید تا سیستم درست بشه؟نقل قول:
با سلام
کرک Dark Basic Professional 6.2 Trial دارید برای دانلود
بگذارید با شتکر
سلام چه جوری توی dark basic pro فارسی بنویسم تا موقع اجرا، فرم کلمات بهم نخورند؟
سلام آقا امید چند تا سؤال دارم :
من میخوام یه بازی اکشن اول شخص بسازم باید دوربین رو روی اسلحه نصب کنم
این کار رو باید چجوری انجام بدم؟
چجوری میشه پسوند یه آبجکت رو به پسوند x. تغییر داد ( من از برنامه ی مایا برای ساخت مدل استفاده میکنم )
من از ادیتور Map Scape برای ساخت مرحله استفاده میکنم ولی پسوندی که سیو میکنه رو دارک بیسیک پشتیبانی نمیکنه چه کنم؟
ممنون :46:
فكر نكنم براي مايا پلاگين اكسپورت X وجود داشته باشه!...تو مكس اين كارو بكننقل قول:
اين اديتور فرمت x و dbo رو اكسپورت ميكنه!...اديتور رو با كدهاي dark basic pro ساختن و حتي ميتوني از خود فايل ذخيره اون هم استفاده كرد....يه فايل ديگه هست كه آموزش خواندن اين فايها رو داده.
موفق باشيد
يه كد متصل كردن gun به camera پيدا كردم
FPS Gun Movement
کد:`--------------------------------------------------------
`Please give credit to me if you use this code in any way
`--------------------------------------------------------
`Setup
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,32
HIDE MOUSE
`Set gun holding-limb position
gunOffsetX AS FLOAT = 15.0
gunOffsetY AS FLOAT = -20.0
gunOffsetZ AS FLOAT = 20.0
`Make main player object and hide it
MAKE OBJECT CUBE 1,10
HIDE OBJECT 1
`Attach a limb and delete the mesh
MAKE MESH FROM OBJECT 1,1
ADD LIMB 1,1,1
DELETE MESH 1
`Make a weapon and attach it to the limb
MAKE OBJECT BOX 2,10,10,100
GLUE OBJECT TO LIMB 2,1,1
`Make matrix to walk on
MAKE MATRIX 1,10000,10000,100,100
`Variables
xPos AS FLOAT
zPos AS FLOAT
speed AS FLOAT = 10.0
xLook AS FLOAT
yAng AS FLOAT
lookSpeed AS FLOAT = 0.2
`The gun bobbing values
gunBobSpeed AS FLOAT = 6.0
gunBobMove AS FLOAT = 3.0
gunBobHeight AS FLOAT = 1.5
gunBobAng AS FLOAT
gunTurnAng AS FLOAT
gunLookAng AS FLOAT
mouseMovementX AS FLOAT
mouseMovementY AS FLOAT
DO
`Store mouse movement
mouseMovementX = MOUSEMOVEX()
mouseMovementY = MOUSEMOVEY()
`Control movement using trig
IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY() > 0
IF UPKEY() = 1
INC xPos,SIN(yAng)*speed
INC zPos,COS(yAng)*speed
ENDIF
IF DOWNKEY() = 1
DEC xPos,SIN(yAng)*speed
DEC zPos,COS(yAng)*speed
ENDIF
IF RIGHTKEY() = 1
INC xPos,COS(yAng)*speed
INC zPos,-SIN(yAng)*speed
ENDIF
IF LEFTKEY() = 1
DEC xPos,COS(yAng)*speed
DEC zPos,-SIN(yAng)*speed
ENDIF
`Increase gun-bobbing angle to get gun bobbing
gunBobAng = WRAPVALUE(gunBobAng+gunBobSpeed)
ELSE
`Otherwise slowly change the value to nothing to bring the gun to the centre again
gunBobAng = CURVEANGLE(0,gunBobAng,10)
ENDIF
`Control the gun swaying according to how much the player is turning
gunTurnAng = CURVEANGLE(WRAPVALUE(mouseMovementX),gunTurnAng,10)
gunLookAng = CURVEANGLE(WRAPVALUE(mouseMovementY),gunLookAng,10)
`Position the gun-holding limb and rotate it to give swaying effect
OFFSET LIMB 1,1,gunOffsetX+SIN(gunBobAng)*gunBobMove,gunOffsetY+ABS(COS(gunBobAng))*gunBobHeight,gunOffsetZ
ROTATE LIMB 1,1,gunLookAng,gunTurnAng,0
`Turn player
yAng = WRAPVALUE(yAng + mouseMovementX*lookSpeed)
xLook = WRAPVALUE(xLook + mouseMovementY*lookSpeed)
`Position player object and camera
POSITION OBJECT 1,xPos,100,zPos
ROTATE OBJECT 1,0,yAng,0
PITCH OBJECT DOWN 1,xLook
POSITION CAMERA xPos,100,zPos
ROTATE CAMERA xLook,yAng,0
SYNC
LOOP
نميشه تو دارك بيسيك فارسي تايپ كرد!!نقل قول:
حتما بايد از sprite استفاده كني.
كرك نسخه 6.2:نقل قول:
من کمی vb بلدم (در حد کد نویسی برنامه های ساده)
این متور رو دانلود کردم اما کد نویسیش رو بلد نیستم
یه آموزش اگه دارین به من بدین (کد نمیخوام ) که از اول شروع کنم و یه بازی بسازم ....
راستش من آموزش نميدم و فقط بازي ميسازم.
ولي اگه نمونه اي بخواهيد من ميتونم كمك كنم!
موفق باشيد
ساخت يك بازي اكشن دو بعدي:11:
سلام آقا امید.حالتون خوبه؟
ببخشید میتونید یه نمونه ای که توش تفنگ + دشمن باشه رو درست کنید؟
یه تفنگ ساده + یه دشمن سر سخت.
ممنون میشم ازتون.
يك Tutorial پيدا كردم كه آموزش ساخت بازي FPS و جنگ با يك ENEMY كه در 25 پارت ساخته شده و تك به تك كدنويسي رو شرح ميده.:11:
حجم 250 كيلوبايت
آقا امید 3 تا سوال داشتم ازتون:
1)یادگیریVisual Baisc چقدر میتونه تو این موتور کمک کنه؟
2)توی بازی که ساختید warCry از چه برنامه ای برای light map استفاده کردید؟
3)چجوری میشه پارتیکل هایی که با zp میشازیم(همون برنامه که گفتید پارتیکل بازیتون با اونه)دنبال یه ابجکت برن؟مثل همون کنترل موشک warcry.
4)میشه یه منبعی در مورد ساخت level editor معرفی کنید که یه چیزایی یاد داده باشه؟
ممنون ازتون.
1. من خودم برنامه نويسي رو با MMB ياد گرفتم و بعد با دارك آشنا شدم و تو فرم كدي را كه نميدانستم چيه سرچ ميكردم تا يه آموزشي پيدا كنم....من VB كار نكردم ولي اگر كاربرد بيشتر توابع VB رو بدوني ميتوني تا حدودي با دارك كار كني.نقل قول:
2. من تو بازي WARCRY از render to texture مكس استفاده كردم.
3. بايد از كد
ZP Position Emitter EmitterNumber, PositionX, PositionY, PositionZ
استفاده كني و به جاي PositionX, PositionY, PositionZ از:
object position x(1)
object position y(1)
object position z(1)
استفاده كني.
درون راهنماي پلاگين همه اينا رو نوشته!!!!!
درضمن در اين Tutorial كه گذاشتم از اين پلاگين استفاده نشده.
4. جايي آموزش نداده...چرا از level editor آماده استفاده نميكني...صفحه 16 يا 17 پيدا ميكني!!
موفق باشيد
اقا امید من هم ازZP Position Emitter EmitterNumber, PositionX, PositionY, PositionZ استفاده می کنم ولی حرکت نمی کنه!!!!
آخه این لول ادیتورها تاقص هستن.مثلا نمیشه متریال شیشه رو باهاشون ساخت!!!!
Thankx
مگه ميشه!!!!
براي متريال شيشه بايد يك تكستچر به ابجكت نسبت بدي سپس از كد ghost object on استفاده كني.
ميتوني نام ابجكت مورد نظري رو كه ميخواهي شيشه باشه رو عوض كني( درون همون لول اديتوري كه مراحل رو ميسازي ) و نام رو به glass يا نامي كه خودت ميخواهي تغيير بدي و لول را ذخيره ميكني سپس زماني كه لول رو درون بازي لود ميكني يه كد بنويسي كه در بين ابجكتهاي لول بگرده و ابجكت مورد نظري كه مخواهي شيشه باشه رو تغيير بده.
sample:
ميتوني هر چيز ديگه اي هم به ابجكت نسبت بدي.کد:
akharin_object=600
shisheh$="glass"
for i = avalin_object to akharin_object
if object exist( i ) = 1
if limb name$( i ,0 ) = shisheh$
ghost object on i
endif
endif
next i
موفق باشي
ضمن سلام و خسته نباشید به کسانی که در این انجمن فعالیت می کنند
سوال
می خواستم بپرسم امکان داره که در دارک بیسیک فایل های اجرایی موجود در کامپیوتر را اجرا کرد؟
ضمن سلام و خسته نباشید خدمت کسانی که در انجمن فعالیت می کنند
سوال
می خواستم بپرسم امکان داره که در دارک بیسیک فایل های اجرایی موجود در کامپیوتر را اجرا کرد؟
بخشيد من خيلي كم ميام تو نت.
بله ميتوني فايل اجراي هم اجرا كنيد!
سلام
یه بازی جالب به سبک استراتژیک هست که نقشه های اون پسوند map داره چطور میتونم توی این نقشه ها تغییر ایجاد کنم...
راستی اسم بازی codename panzers one هست
فایلها با پسوند pak. رو چطور می تونم باز کنم.
می خوام یه موزیکی که خوشم امده رو از توش بردارم.
ممنون از راهنماییتون
سلام
یه بازی جالب به سبک استراتژیک هست که نقشه های اون پسوند map داره چطور میتونم توی این نقشه ها تغییر ایجاد کنم...
راستی اسم بازی codename panzers one هست
سلام اقا امید
ببخشید 2تا سوال دارم:
1)صفحه لودینگ چجوری برای بای باید نوشت؟
2)چجوری میشه فایلها رو (ابجکت و تکسچر و .....)به فرمتی تبدیل کرد که کسی نتونه بازهش کنه و دارک لودش کنه.
نقل قول:
سلام
یه بازی جالب به سبک استراتژیک هست که نقشه های اون پسوند map داره چطور میتونم توی این نقشه ها تغییر ایجاد کنم...
راستی اسم بازی codename panzers one هست
اينا چه ربطي به تايپيك داشتند!!!؟نقل قول:
فایلها با پسوند pak. رو چطور می تونم باز کنم.
می خوام یه موزیکی که خوشم امده رو از توش بردارم.
ممنون از راهنماییتون
1.بين هر فايلي كه ميخواي لود بشه كد sync:cls رو قرار بده:نقل قول:
نمونه:
2.نقل قول:
load object "home1.x",1
sync:cls
سپس دستورات نمايش صفحه loading
load object "home2.x",2
...
...
نمونه:
نقل قول:
`//// write object
open to write 1,"models.000"
load object "model.x",10
make mesh from object 7,10
make memblock from mesh 3,7
write memblock 1,3
delete memblock 3:close file 1
`//// read object
open to read 1,"models.000"
read memblock 1,3
make mesh from memblock 7,3
make object 1,7,0
delete memblock 3:close file 1
`//// write texture
open to write 1,"textures.000"
load image "texture.tga",10
make memblock from image 3,10
write memblock 1,3
delete memblock 3:close file 1
`//// read texture
open to read 1,"textures.000"
read memblock 1,3
make image from memblock 10,3
delete memblock 3:close file 1
آقا امید یه دست درد نکنه که خیلی چیزه توپی یادم دادی!!!!!!!!
حالا یه چیز دیگه هم چندوقته دانبالشم ولی نفهمیدم چکار کنم.
اگه بخوام از HDR توی این انجین استفاده کنم باید چکار کنم؟؟؟؟؟
HDR یا Glow Object و.......
ممنون
آقا امید چجوری میشه توی دارک بیسیک shadow map ساخت.
با خود برنامه ها!!!!!
مرسی.
نقل قول:بايد شدر نويسي بلد باشي.نقل قول:
آقا امید چجوری میشه توی دارک بیسیک shadow map ساخت.
با خود برنامه ها!!!!!
مرسی.
آقا امید این کد چه مشکلی داره؟؟؟
نمی خوام که اون جعبه از دیوار رد بشه.
set display mode 800,600,32
sync on : sync rate 90
hide mouse
rem
make object sphere 1,8
make object box 2,560,2,560
position object 2,0,-5,0
rotate object 2,10,0,0
sc_setupobject 1,0,0
sc_setupobject 2,1,0
position object 1,65,5,10
color object 1,rgb(255,0,0)
color object 2,rgb(64,50,100)
set camera fov 0,85
make object cube 3,9
color object 3,rgb(0,0,255)
position object 3,-40,20,50
sc_setupobject 3,2,0
make object box 4,300,100,5
color object 4,rgb(64,64,64)
sc_setupobject 4,3,0
rem
do
start_collision( 1 )
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),40,22,5,1
if upkey()=1 then move object 1,2
if rightkey()=1 then yrotate object 1,object angle y(1)+1.5
if leftkey()=1 then yrotate object 1,object angle y(1)-1.5
if downkey()=1 then move object 1,-1
move object down 1,0.5
end_collision( 1 )
distance#=sqrt(((x3#-x#)^2)+((y3#-y#)^2)+((z3#-z#)^2))
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
x3#=object position x(3)
y3#=object position y(3)
x3#=object position z(3)
start_ai_collision( 3 )
point object 3,object position x(1),object position y(1),object position z(1)
if distance#<500
move#=1
else
move#=0
endif
move object 3,move#
end_ai_collision( 3 )
sync
loop
function start_collision( obj )
if object exist(obj)=1
x1#=object position x(obj)
y1#=object position y(obj)
z1#=object position z(obj)
endif
endfunction
function end_collision( obj )
if object exist(obj)=1
x2#=object position x(obj)
y2#=object position y(obj)
z2#=object position z(obj)
coll# = sc_sphereslidegroup(0,x1#,y1#,z1#,x2#,y2#,z2#,7,0)
if coll#>0
position object obj,sc_getcollisionslidex(),sc_getcollisionslidey( ),sc_getcollisionslidez()
endif
sc_updateobject obj
endif
endfunction
function start_ai_collision( enemy )
if object exist(enemy)=3
xa1#=object position x(enemy)
ya1#=object position y(enemy)
za1#=object position z(enemy)
endif
endfunction
function end_ai_collision( enemy )
if object exist(enemy)=3
xa2#=object position x(enemy)
ya2#=object position y(enemy)
za2#=object position z(enemy)
collision_enemy#=sc_sphereslidegroup(0,xa1#,ya1#,z a1#,xa2#,ya2#,za2#,7,0)
if collision_enemy#>0
position object enemy,sc_getcollisionslidex(),sc_getcollisionslide y(),sc_getcollisionslidez()
endif
sc_updateobject enemy
endif
endfunction
function global_setup()
global x1#
global y1#
global z1#
global coll#
global xa1#
global ya1#
global za1#
global collision_enemy#
endfunction
if memblock exist(1)=1 then delete memblock 1
مشكل در اينجا بود:
شما نوشته بوديد if object exist(enemy)=3 كه كاملا اشتباه!!!!!
كه بايد if object exist(enemy)=1 باشه
نقل قول:
function start_ai_collision( enemy )
if object exist(enemy)=1
xa1#=object position x(enemy)
ya1#=object position y(enemy)
za1#=object position z(enemy)
endif
endfunction
function end_ai_collision( enemy )
if object exist(enemy)=1
xa2#=object position x(enemy)
ya2#=object position y(enemy)
za2#=object position z(enemy)
collision_enemy#=sc_sphereslidegroup(0,xa1#,ya1#,z a1#,xa2#,ya2#,za2#,7,0)
if collision_enemy#>0
position object enemy,sc_getcollisionslidex(),sc_getcollisionslide y(),sc_getcollisionslidez()
endif
sc_updateobject enemy
endif
endfunction
level editorهایی که تو این تاپیک گذاشتید زیاد باگ دارند . اگه کسی لینک دانلود 3d World studio را با کرک داره لطف کنه اینجا بزاره.
یک سوال هم داشتم پلاگینهای dark AI و dark phisics حتما باید بخریم یعنی به صورت free وجود نداره؟
hello
is anyone can give this program
Dark Lights full version
thanks to all
3d World studio و dark AI و dark phisicsنقل قول:
از تو سايت ارل تيم ميتوني دانلود كني.
از جوابت ممنونم :11:ولی بهتر بود آدرس ارل تیم می نوشتینقل قول:
اگه اشتباه نکنم این بود :
کد:www.rl-team.net
ميتوني به آدرس زير بري و كليه صفحه ها رو بگردي: