[DarkBasic][Help]Model in Matrix

[ForFOX]

salut sunt nou pe acest forum ... si nuj daca-m postat unde trebuia  

Am vazut ca voi va pricepetzi si as vrea sa va intreb cum sa importez un model X cu setarile ImPut si OutPut  intr-o matrice gata texturata.

Faza-i ca am incercat si tot nu m-am prins ...

Rem seteaza sync rate
Sync On
Sync Rate 30
Rem importeaza model
load object "media/scout/scout2.x",1
Rem  zona Main loop
Do
   Rem Store the object's Y angle in aY#
   aY# = Object angle Y(1)

   Rem Control input
   If Upkey()=1 then Move object 1,2
   If Leftkey()=1 then aY# = Wrapvalue(aY#+5)
   If Rightkey()=1 then aY# = Wrapvalue(aY#-5)

   Rem roteaza obiectul
   Yrotate object 1,aY#

   Rem Inprospatare
   Sync
Loop

asa... aces cod ar trebui sa importeze un model care poate fi controlat de sagetzile de la tastatura ....

Sync On
Sync Rate 30

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "mediaskytexture1.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

Rem Make player pawn
Load image "mediaskytexture1.bmp",2
Make object sphere 10,25
Texture object 10,2
position object 10,100,0,100

rem Randomize the matrix
randomize matrix 1,125
rem Load bike sound

load music "mediasoundssoundtrack.mp3",1 : loop music 1

Rem Main loop
Do
   set cursor 0,0
   print screen fps()

   Rem Store Object angle
   AngleY# = object angle Y(10)

   Rem Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,AngleY#,20)
      ZTest# = Newzvalue(Z#,AngleY#,20)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         Move object 10,10
      Endif
   Endif

   If Leftkey()=1 then Yrotate object 10,Wrapvalue(AngleY#-5)
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(AngleY#+5)
   X# = Object position x(10)
   Z# = Object position z(10)
   Y# = Get Ground Height(1,X#,Z#)
   Position object 10,X#,Y#+12.5,Z#
   CameraZ# = Newzvalue(Z#,AngleY#-180,100)
   CameraX# = Newxvalue(X#,AngleY#-180,100)
   CameraY# = Get Ground Height(1,CameraX#,CameraZ#)
   Position camera CameraX#,CameraY#+50,CameraZ#
   Point camera X#,Y#+25,Z#

   Rem Refresh Screen
   Sync
Loop

Aici ar trebui sa creeze o sfera texturata care alearga printr-un matrix texturat asemanator in timp ce canta o melodie . Daca incerc sa scriu in loc de "Make Object Sphere 10,25" Load Object "mediamodel.x",1 imi da o eroare  " Runtime Error 7008 - Object does exist at line 14" la linia 14 fiind scris "position object 10,100,0,100" . Daca sterg aceasta linie imi da aceeasi eroare dar la alta linie  :rolleyes:    Unde credetzi ca am gresit .. sper ca n-am postat gresit si sa-mi explice careva unde am gresit  .. thx  :dunno:  

[zapakitul]

Stai putin ca nu ai postat bine!Til mut la visualbasic si raspund acolo!
Later:
Nu pot lucra in darkbasic pro acuma ca sunt pe linux dar din cate am vazut la tine ai cateva mici greseli! Eroarea cu Run Time Model este ca ai folosit .x si nu .X! De asemenea mi se pare ca trebuia .BMP si nu .bmp! Aceste mici scapari pot inseamna foarte mult  Ma mai uit peste sursa sa vad daca imi mai sare ceva in ochi! P.s Bravo ai ales bine DarkBasic pro! E simplu e usor, iti dezvolta mintea spre algoritmi in programare  :thright:

P.s Daca tot nu merge, imi spui si ma sacrfic si instalez windowsul pe pc-ul vech!

[ForFOX]

aham... thx nu stiam ca si aia conteaza  :thleft: thx

[zapakitul]

Deci iti merge? Ma bucur sa aud! Miera teama sa nu fie altceva si sa nu vad ! Bravo tineo tot asa, racing games sunt cele mai simple de facut!

Tip: Creaza o pista unde colizunea sa fie normala, iar pe laterale pune gravitate mai mare  sau incaerca sa faci sa scada viteza

[ForFOX]

merge .. am reusit doar ca nu merg controalele .. presupun ca nu se potriveste chestia cu :

if upkey()=1 then move object 1,1
if leftkey()=1 then move ay#=wrapvalue(ay#-5)
etc.

Mai am o singura intrebare ... pt. ce se foloseste gosub ?  

[zapakitul]

_gosub este facut pentru a crea suburi! Sa zicem ca ai un meniu cu race 1 race 2 race 3 etc! La fiecare race ai Gosub _race 1, _race2! Din meniu dai click pe race  si te duce acolo! Nu stiu daca ai inteles ce am vrut sa zic...

[ForFOX]

aham .. am intzeles .. thx  :peace: raman dator

[zapakitul]

merge .. am reusit doar ca nu merg controalele .. presupun ca nu se potriveste chestia cu :

if upkey()=1 then move object 1,1
if leftkey()=1 then move ay#=wrapvalue(ay#-5)
etc.

Mai am o singura intrebare ... pt. ce se foloseste gosub ?  

Tocmai am vazut ca scapasem controalele! Pai....

Cod:

if upkey() = 1 then move object 1,1
if leftley() = 1 then turn object left 1,1
parca e mai simplu! Vezi ca postasem eu un snippet care sa te ajute

http://www.skullbox.info/board/viewtopic.php?id=2001
Bafta!

[HostGator]

Ai auzit de aligatorul care ofera hosting?