إلى هنا كلامك صحيح...لكن تعمدت عمل غلط في الكود حقي الذي صححته حتى أنشط القسم وذلك عن طريق مراجعتك لي .......لكنك لم تراجعني
الكود الذي وضعته أنت صحيح وأنا قلت بإنه خطاء ومع هذا إجابتك كانت لابأس بها ^^
أول خطاء صيغة الأمر backdrop color........... الصحيحه هي color backdrop ومن ناحيه أخرى
لن يعمل كودك........هل جربته؟...لا أعتقد ذلك
لإنك يجب أن تنهيه بــSync وإذا أردت أن تظهر الشاشه السوداء قوم بنسخ كودك كما هو في الأقتباس وألصقه في الدارك وجرب أن ترى شيء
أما من ناحية أنسي أشغل الشاشه هذا أخر شيء أنسي فعله ولن أقع في غلطه مثل هذه ....لماذا؟
لإنني أول ما أبداء أعمل على الدارك هذا أول كود أكتبه فأنا أفضل العمل على الشاشه السوداء
color backdrop rgb(0,0,0)
ملاحظه:
أمر turn object مفيد في الظروف العاديه أما عندما تركز كل عملك على الزوايا فالأمر المطلوب هو
yrotat object 1,wrapvalue(object angle y(1))
بتعرف لماذا؟
جرب هذه الأمثله وستعرف الفرق بينهم
مثال حـــــــــــــول turn object
Remstart
Project name : Rotation v1
Time left : 1,30,00
Directed By
DBprog
Remend
sync on
sync rate 60
color backdrop rgb(0,0,0)
autocam off
ink rgb(0,255,0),rgb(0,0,0)
set text size 22
set text to bolditalic
make object cube 1,5
load image "555.jpg",1
load image "666.jpg",2
texture object 1,2
position object 1,0,0.5,20
make matrix 1,150,150,10,10
prepare matrix texture 1,1,1,1
position matrix 1,0,-2,10
do
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
Rem this function for move
Movement()
Rem this function for Camera
camera()
sync
loop
function Movement()
if upkey()=1
move object 1,0.5
endif
if downkey()=1
move object 1,-0.5
endif
if rightkey()=1
turn object right 1,1
r=int(object angle y(1))
set cursor 320,80
print r
endif
if leftkey()=1
turn object left 1,1
l=int(object angle y(1))
set cursor 320,80
print l
endif
endfunction
function camera()
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
set camera to follow x#,y#,z#,0,15,5,50,1
endfunction
مثال حول الأمر yrotat object 1,wrapvalue(object angle y(1))
Remstart
Project name : First pirson
Time left : 1,30,00
Directed By
DBprog
Remend
sync on
sync rate 60
color backdrop rgb(0,0,0)
autocam off
ink rgb(0,255,0),rgb(0,0,0)
set text size 22
set text to bolditalic
make object cube 1,5
load image "555.jpg",1
load image "666.jpg",2
texture object 1,2
position object 1,0,0.5,20
make matrix 1,150,150,10,10
prepare matrix texture 1,1,1,1
position matrix 1,0,-2,10
do
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
Rem this function for move
Movement()
Rem this function for Camera
camera()
sync
loop
function Movement()
if upkey()=1
move object 1,0.5
endif
if downkey()=1
move object 1,-0.5
endif
if rightkey()=1
yrotate object 1,wrapvalue(object angle y(1))+2
set cursor 320,80
print object angle y(1)
endif
if leftkey()=1
yrotate object 1,wrapvalue(object angle y(1))-2
set cursor 320,80
print object angle y(1)
endif
endfunction
function camera()
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
set camera to follow x#,y#,z#,0,15,5,50,1
endfunction
أعرف إنك بتعرف هذه الأكواد ولكن جربها وأنظر لمخرجاتها المطبوعه وسط الشاشه وستعرف ما أقصده
ولماذا فضلته عن الأول turn object
الملفات في المرفقات