Grazzie F9V
Si la conoscevo la comunità Kataxia. Se non sbaglio aveva una delle poche giude al DB che poi é staata perduta e che io cercavo estenuamente
Grazie dell'aiuto
Io avevo problemi col seno e il coseno xké non conoscevo bene il loro funzionamento (non l'abbiamo ancora studiare)
Ti faccio sapere se funge e grazie x avere risposto
In questa community farà comodo un esperto in DB che mi possa dare 1 mano
p.s: Scusa x non averti risposto subito ma ormai avevo abbandonato non avendo nessuno che mi aiutasse non ho + controllato
P.S: F9V mi potresti dare il tuo msn? cosi' se ho bisogno di qualcosa ti chiedo?
(12-07-2010, 08:32 PM)F9V Ha scritto: Ciao mi sono iscritto ora proprio per essere abilitato a risponderti! conoscevi dark basic tempo fa? Quindi per caso conoscevi anche la comunità di Kataxia? Io ne facevo parte... Sono stato uno dei primi a testare l'efficacia di entrambi i software... Peccato abbia chiuso, dark basic pro è un programma molto versatile per chi lo conosce bene e sa come sfruttarlo...
Cmq passo a risponderti
Codice:
rem impostare la frequenza di aggiornamento
sync on : sync rate 60
rem questo cubo rappresenterebbe la tua astronave...
make object box 1,10,10,10
rem variabile della distanza:
dx#=50
rem in dark basic classic e pro se si crea una scena con un oggetto 3d qualsiasi
rem lui in automatico ti crea una camera con sfondo blu per poter visualizzare
rem l'oggetto. La camera che viene creata è numerata con 0(zero).
do
rem trovare posizione x del mouse e aggiungerla a una variabile
cx#=cx#+mousemovex()
rem ottenere il seno e il coseno della variabile cx#
position camera 0,sin(cx#)*dx#,20,cos(cx#)*dx#
rem puntare la camera verso l'oggetto 1
point camera 0,(object position x(1)),(object position y(1)),(object position z(1))
rem visualizzare posizione x y e z della camera
text 20,20,str$(camera position x(0))
text 20,40,str$(camera position y(0))
text 20,60,str$(camera position z(0))
sync
LOOP
Ho provato ma qualcosa non funziona. Fa dei movimenti che sono errati.
Facciamo cosi': Posto qua quello che ho scritto fino ad ora
vedrai pure le righe delle mie prove che non sono andate a buon fine
Cercavo sia di spostarmi su asse X (riuscito) ma su asse y non ci riuscivo
rem Comandi preliminari
Set display mode 1280,1024,32 : sync on
rem 2D
rem Carica Pannello di controllo
load image "gfx/pannello di controllo.bmp",1
load image "gfx/quadrato di selezione.bmp",999
rem 3D
rem Spazio circostante
load image "gfx/stelle.jpg",2
make object cube 1,1000
position object 1,0,0,0
texture object 1,2
position object 1,0,0,0
set object cull 1,0
set object light 1,0
rem Scout
load object "obj\scout\scout.x",2
rotate object 2,270,0,0
fix object pivot 2
rotate object 2,0,90,0
REM TEST
`the radius(width of 'circle') that the camera follows
radius#=200
radius2#=200
part=0
part2=0
do
move object 2,0.5
turn object left 2,0.5
rem Cinepresa --------------------
`rem Gestire movimento intorno all'astronave selezionata
if mouseclick()=2
if mousemovex()>0 then part = part + 3
if mousemovex()<0 then part = part - 3
if mousemovey()>0 then part2 = part2 + 3
if mousemovey()>0 then part2 = part2 - 3
endif
rem Calcolare le coordinate della telecamera
x# = cos(part)*(radius#)
z# = sin(part)*(radius#)
y# = sin(part2)*(radius#)
rem posiziona la telecamera
text 0,100,"(Seno) "+str$(sin(part2))+" x (Raggio)"+str$(Radius#)+" + (ypos) "+str$(object position y(2))+" = (risultato) "+str$(y#)
position camera x#,y#,z#
rem ruotala verso l'astronave selezionata
point camera object position x(2),object position y(2),object position z(2)
rem Cinepresa --------------------
rem Pannello di controllo --------------------
paste image 1,0,1024-150,1
rem STOP
if mousex()>184 and mousex()<241 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
END
endif
rem MUOVITI
if mousex()>274 and mousex()<331 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
END
endif
rem MANOVRE EVASIVE
if mousex()>364 and mousex()<421 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
END
endif
rem ATTACCA
if mousex()>454 and mousex()<511 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
END
endif
rem OK
if mousex()>544 and mousex()<601 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
END
endif
rem TASTO VERDE
if mousex()>867 and mousex()<918 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
endif
rem TASTO GIALLO
if mousex()>954 and mousex()<1005 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
endif
rem TASTO ROSSO
if mousex()>1041 and mousex()<1092 and mousey()>1024-68 and mousey()<1024-10 and mouseclick()=1
endif
rem TASTO ARCHER
if mousex()>15 and mousex()<133 and mousey()>1024-134 and mousey()<1024-109 and mouseclick()=1
sprite 1,15,1024-134,999
endif
rem TASTO PHOENIX
if mousex()>15 and mousex()<133 and mousey()>1024-108 and mousey()<1024-83 and mouseclick()=1
sprite 1,15,1024-108,999
endif
rem TASTO DREAM
if mousex()>15 and mousex()<133 and mousey()>1024-82 and mousey()<1024-57 and mouseclick()=1
sprite 1,15,1024-82,999
endif
rem TRASPORTO
if mousex()>1143 and mousex()<1261 and mousey()>1024-134 and mousey()<1024-109 and mouseclick()=1
sprite 2,1143,1024-134,999
endif
rem NEMICO 1
if mousex()>1143 and mousex()<1261 and mousey()>1024-108 and mousey()<1024-83 and mouseclick()=1
sprite 2,1143,1024-108,999
endif
rem NEMICO 2
if mousex()>1143 and mousex()<1261 and mousey()>1024-82 and mousey()<1024-57 and mouseclick()=1
sprite 2,1143,1024-82,999
endif
rem Pannello di controllo --------------------
rem FPS
fps$="DBPro Fps: "+str$(screen fps())
text 0,0,fps$
sync
loop
Jonathan Archer
Vorrei che tramite il tasto sinistro (lasciato premuto) si possa ruotare la visuale in tutte le direzioni la cinepresa lasciandola comunque puntata verso l'astronave 
o meglio dovrei cercare di farci girare intorno la cinepresa e non ho la minima idea di come fare 
