موضوع الطلبات و المساعدات Dark Basics

[Amir Imam]

ان شاء الله ربنا يقدرنا على العمل بجد وتقديم شيء ذو قيمة
مشكلة جديدة :
تشغيل عرض فيديو
مع بداية التحميل يتم تشغيل عرض فيديو ولكن الصوت فقط هو الذي يعمل ومفيش صورة
الفيديو بصيغة AVI
ياترى المشكلة في ايه ؟

[Evil Joker]

انت متأكد انك كاتبه بهذا الشكل ؟؟

load animation "anim.avi",1
play animation 1


wait key

الكود شغال عندي .. اذا ماشتغل عندك يمكن لازم تحمل كودك codec حق الفيديو ؟؟

[Amir Imam]

اشكرك يا عزيزي
على العموم انا سيبت المشكلة دي دلوقتي لحد ما الاقي حل .. مع اني مش بحب اعدي مشكلة الا لما احلها الاول
ما علينا
في حاجة مش عارف هتكون مرت عليك قبل كده ولا لا .. بس انا بعملها من زمان
انا مش بعرف اعمل شخصيات نهائي .. لاني مش بعرف اشتغل في المودلينج
علشان كده كنت ومازلت باخد الشخصيات من برنامج FPSc واستخدمها
طبعا بجرب الفريمز بتاعتها واظبطها واشتغل بيها
الموضوع كان ماشي معايا تمام
لما احب اخلي البطل يمسك سلاح بستخدم الكود :

Glue object to limb

كانت زمان بتظبط معايا كويس جدا .. وتقريبا قيمة الـ Limb في مجسمات الـ FPSc كلها واحده
لكن دلوقتي مش بتيجي مظبوطة قوي .. يعني السلاح ممكن يكون مخترق كتفه .. او مخترق راسه .. حاجات زي كده
انا رغيت كتير
لو انت استخدمت الاوبجكتز دي قبل كده في الدارك بيسك هتبقى عارف حل المشكلة تقريبا

[Evil Joker]

لو اعطيتني صورة عن الناتج كان ممكن وضحتلي الصورة
لكن على حسب فهمي لموضوعك ان السلاح بيخترق الكتف او اي كان وانت تبغاه يكون البطل ماسك السلاح بيده على نفس موقع اليد
طبعا الكود اللي انت تستخدمة
Glue object to limb هو يعمل عملية الصاق المجسم للمب معين واكيد انت عارف هذا الشيء
لكن هناك نقطة لازم تركز فيها هي ان عملية الالصاق تكون في نقطة الاصل يعني ممكن الكاركتر اللي انت تستخدمه او السلاح مش مضبوط له نقطة الاصل


عملت لك برنامج يحرك لك موقع اللمب تحركه للمكان اللي تبغاه
بعدين تنسخ الاحداثيت اللي ظهرت وتكتبها كالتالي


offset limb objID,LimbID,x#,y#,z#


حاول فيها حتحلها ان شاء الله

make object box 1,3,10,3
make object box 2,2,6,2




position object 2,5,5,5
glue object to limb 2,1,0
do




if upkey()=1 then move object 1,.2
if downkey()=1 then move object 1,-.2
if leftkey()=1 then move object left 1,.2
if rightkey()=1 then move object right 1,.2


if lower$(inkey$()) = "d" then inc x#,.2
if lower$(inkey$()) = "a" then dec x#,.2
if lower$(inkey$()) = "w" then inc y#,.2
if lower$(inkey$()) = "s" then dec y#,.2
if lower$(inkey$()) = "r" then inc z#,.2
if lower$(inkey$()) = "f" then dec z#,.2


offset limb 2,0,x#,y#,z#


set cursor 0,0
print ""; x# ; " " ; y#
print ""; limb position x(2,0),limb position y(2,0),limb position z(2,0)










   `Control Camera
      position camera 0,0,0
         if mouseclick()=0
            xrotate camera camera angle x()-mousemovey()*0.25
            yrotate camera camera angle y()+mousemovex()*0.25
            if camera angle x()>80 then xrotate camera 80
            if camera angle x()<-60 then xrotate camera -60
         endif
         if mouseclick()>0 then CamDis#=CamDis#-mousemovey()*0.25
         CamDis#=CamDis#+mousemovez()*0.25
         if CamDis#>-20 then CamDis#=-20
         if CamDis#<-300 then CamDis#=-300
         move camera CamDis#
         if camera position y()<-60 then position camera camera position x(),-60,camera position z()
      mousemovex()=0
      mousemovey()=0


sync
loop

ملاحظة تأكد من الايدي حق اللمب اللي عاوز تخلي موقع السلاح فيه

[Evil Joker]

الاحداثيات اللي لازم تكتبها تحصلها في الكود التالي:



print ""; limb position x(2,0),limb position y(2,0),limb position z(2,0)

[Amir Imam]

كالعادة مبدع وفنان ومش عارف اشكرك ازاي
هي دي بالظبط
انا حاسس انك بتقرا افكاري وتجيب الحاجة اللي انا عاوزها بالظبط
اشكرك جدا جدا جدا جدا
-----
بس الغريب في الموضوع ان Offset limb دي عمري ما استخدمتها قبل كده ومع ذلك كان بينفع الربط بين Objects عن طريق Limb
بس على العموم الف شكر ليك يا اخي العزيز

[Evil Joker]

العفو وهذا من حسن خلقك ^^ تسعدني مساعدتك وارجو ان اكون ساعدتك بالشكل المطلوب

الـ offset limb
مش عملية الصاق ولاشيء
لكل اوبجكت له نقطة احداثياتها 0و0و0 بغض النظر عن موقع المجسمات اللتي يشمله المجسم فلو كانت نقطة الاصل للباب مثلا هي 0و0و0 عند اعطائه امر التدوير سيدور الباب من المنتصف وليس من الجانب
لكن عند وضع نقطة الاصل 0و-5و0 فسيدور الباب بشكل واقعي كان احد فتحه ودخل الغرفة

نفش الكود لتوضيح النقطة لكن عند ضغط زر space يدور الاوبجكت

make object box 1,3,10,3
make object box 2,2,6,2








position object 2,5,5,5
glue object to limb 2,1,0
do








if upkey()=1 then move object 1,.2
if downkey()=1 then move object 1,-.2
if leftkey()=1 then move object left 1,.2
if rightkey()=1 then move object right 1,.2




if lower$(inkey$()) = "d" then inc x#,.2
if lower$(inkey$()) = "a" then dec x#,.2
if lower$(inkey$()) = "w" then inc y#,.2
if lower$(inkey$()) = "s" then dec y#,.2
if lower$(inkey$()) = "r" then inc z#,.2
if lower$(inkey$()) = "f" then dec z#,.2




offset limb 2,0,x#,y#,z#




set cursor 0,0
print ""; x# ; " " ; y#
print ""; limb position x(2,0),limb position y(2,0),limb position z(2,0)






if spacekey() then turn object left 2,1












   `Control Camera
      position camera 0,0,0
         if mouseclick()=0
            xrotate camera camera angle x()-mousemovey()*0.25
            yrotate camera camera angle y()+mousemovex()*0.25
            if camera angle x()>80 then xrotate camera 80
            if camera angle x()<-60 then xrotate camera -60
         endif
         if mouseclick()>0 then CamDis#=CamDis#-mousemovey()*0.25
         CamDis#=CamDis#+mousemovez()*0.25
         if CamDis#>-20 then CamDis#=-20
         if CamDis#<-300 then CamDis#=-300
         move camera CamDis#
         if camera position y()<-60 then position camera camera position x(),-60,camera position z()
      mousemovex()=0
      mousemovey()=0




sync
loop

قبل كل شيء شغل البرنامج واضغط space وانظر كيف يدور الاوبجكت ستجدو يدور دوران عادي حول نفسه
لكن غير القيم بالضغط على الازرار w-a-s-d-r-f
واضغط space وانظر الى النتيجة ستجده يدور حول نقطة ماتبعد عنه سواءاً x or y or z

ارجو ان تكون وضحت الصورة ^__^

[Amir Imam]

اشكرك يا عزيزي
الكود افادني جدا في حاجات كتير
يعني فتحلي مجالات كتير للعمل عليها

[Amir Imam]

السلام عليكم اخي العزيز
مشكلة مش عارف حلها من زمان قوي
البطئ
وضعت العالم والبطل والاسلحة والاعداء وكل حاجة
لحد ما عملت حلقة تكرار For .. next علشان اعمل ذكاء صناعي .. ان العدو يبدأ الهجوم لما تصل المسافة بينه وبين البطل الى مسافة معينة
عملت مصفوفة وحلقتين تكرار داخل بعض
اللعبة بقت بطيئة جدا
ياترى في حل تاني علشان اعمل الذكاء الصناعي واشيل البطئ ؟

[Evil Joker]

والله ياعزيزي ماعندي فكرة حقيقةً لكن ممكن اعطيك بعض النصائح لتجنب مشكلتك
1) تأكد ان عملية المزامنة قبل كل شيء (طبعا بعد تعريف الشاشة)

sync on
sync rate 0

2) لاتستخدم كود hide object

3) في تحميل المجسمات ينصح باستخدام صيغة dbo وليس .x لانه عند تحميل صيغة x فان الدارك بيسيك يقوم بتحويله اولا الى dbo قبل تحميله في الذاكرة
يمكن استخدام كود

make mesh from object meshnum,objnum
save mesh "meshname",meshnum
delete object objnum
if file exist ("meshname")=1 then delete file "meshname"
load mesh "meshname(.dbo)",meshid `or "load object"

تأكد انك تستخدم كارت شاشة جيد ورام جيد ولاتكثر من المضلعات ..ايضاً لاتنسى حجم التيكستشرز

ممكن تبحث في موقع thegamecreators
تحت مكتوب Google Forum Search

http://forum.thegamecreators.com/

اكتب مشكلتك واعمل بحث ان شاء الله تحصل لها حل

[Amir Imam]

اشكرك يا عزيزي على المحاولة
لكن انا اكتشفت ان المشكلة في حلقات التكرار For .. next المتداخلة
شيلتها واضطريت اعمل سلوك الاعداء يدويا .. شيء متعب طبعا .. بس لما عملته لقيت الموضوع مشي عادي .. والبطئ لم يظهر بالصورة البشعة الاولى
بس هحاول اكتشف طريقة تانية تكون مريحة وسريعة في نفس الوقت

[Evil Joker]

هل for next داخل do ام خارجها ؟؟

[Amir Imam]

داخل do .. وبداخلها for .. next اخرى
يعني مثلا

do
for a = 1 to 10
for b = 11 to 20
next b
next a
loop

[Evil Joker]

غريبة !! مع اني جربت الـ for .. next على 5000 مكعب وماحصل بطئ ولاشيء وانا استخدم لابتوب ذو مواصفات عادية
انا حاشوف لك المشكلة بكرة ان شاء الله في موقع الدارك بيسيك لانه الان هو مغلق

Parse error: syntax error, unexpected T_IF in C:\apollo\public_html\apollo\forum.php on line 208

[Evil Joker]

مع الاسف اخي امير لم اجد حل

عاد الله يعينك تسجل في منتداهم واسألهم عن مشكلتك ويستحسن انك تعطيهم الكود