FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Biomorphe de Pickover
par Jack Aujourd'hui à 7:17

» Planétarium virtuel.
par Jack Aujourd'hui à 6:50

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Aujourd'hui à 0:59

» Virus/Antivirus
par JL35 Hier à 21:11

» Calculatrice
par papydall Ven 21 Sep 2018 - 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Ven 21 Sep 2018 - 21:32

» Demande pour Jack concernant PanExpress
par Minibug Ven 21 Sep 2018 - 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Vaisseau spatial

Aller en bas 
AuteurMessage
The Gamer

avatar

Nombre de messages : 110
Age : 24
Localisation : Toulouse (31)
Date d'inscription : 11/05/2010

MessageSujet: Vaisseau spatial   Mer 2 Juin 2010 - 19:31

Voici un début de simulateur spatial qui devrait aboutir a un jeu ( il reste encore beaucoup de bugs a corriger (au niveau de la direction du mesh et de la camera):

Code:
dim lf,hf,l3d,h3d,angle_x,angle_z,angle_y ,ok_y,ok_z,stopit,cam_x,cam_z,vais_x,vais_y,cam_y
angle_x = 0

lf = screen_x
hf = screen_y - 30
height 0,hf
width 0,lf
caption 0, "Exo_traquer V 0.3"


l3d = lf - 8
h3d = hf - 34
scene3d 1
height 1,h3d
width 1,l3d
color 1,0,0,0
axes_show
cam_position 0,5,-10
light_position 0,100,0
left 1,60


3d_mesh 1
3d_load_object 1,"C:\Documents and Settings\utilisateur\Mes documents\Programmation\3d\exo-traquer\VAISSEAU2.3ds"
3d_x_rotate 1,angle_x

3d_sphere 2,1
3d_x_position 2,5
3d_y_position 2,0
3d_z_position 2,5

3d_sphere 3,1
3d_x_position 3,-5
3d_y_position 3,0
3d_z_position 3,5

3d_sphere 4,1
3d_x_position 4,5
3d_y_position 4,0
3d_z_position 4,-5

3d_sphere 5,1
3d_x_position 5,-5
3d_y_position 5,0
3d_z_position 5,-5

while stopit = 0

point_position o3d_x_position(1),o3d_y_position(1),o3d_z_position(1)

if scancode = 38
 angle_x = angle_x - 1
 3d_x_rotate 1,angle_x
 3d_move 1,0.5
end_if

if scancode = 40
 angle_x = angle_x + 1
 3d_x_rotate 1,angle_x
 3d_move 1,0.5
end_if

if scancode = 37
angle_y = angle_y + 1
3d_y_rotate 1,angle_y
3d_move 1,0.5
end_if

if scancode = 39
angle_y = angle_y - 1
3d_y_rotate 1,angle_y
3d_move 1,0.5
end_if

if scancode = 67
angle_z = angle_z + 1
3d_z_rotate 1,angle_z
end_if

if scancode = 86
angle_z = angle_z - 1
3d_z_rotate 1,angle_z
end_if

3d_move 1,0.1


if scancode = 27
terminate
stopit = 1
end_if

cam_x = sin(angle_y/57.33333) * -10 + o3d_x_position(1)
cam_z = cos(angle_y/57.33333) * -10 + o3d_z_position(1)
cam_y = o3d_y_position(1) + 5
cam_z_position cam_z
cam_x_position cam_x
cam_y_position cam_y

end_while

end

télécharger le mesh ici : sendspace.com r5ra1u

Le simulateur de Lagman m'a beaucoup inspiré et le nom "Exo-traquer me vient d'un jeu dont j'ai commencé le développement en 2D (il fallait éviter des astéroïdes) mais j'aimerai aboutir grâce a ce simulateur a un jeu en 3D ou l'on naviguerais dans un champ d'astéroïdes.

PS : Les sphères sont sensées représenter les astéroïdes, elle feront l'objet de collisions prochainement grâce à la formule de Tecking (merci a toi d'ailleurs !Smile).

Voila vous pouvez maintenant le tester
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://pierrehardy.pagesperso-orange.fr/
JL35



Nombre de messages : 6328
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Vaisseau spatial   Mer 2 Juin 2010 - 21:07

Qu'est-ce que c'est que ce truc le mesh ??? à part ce qu'on allume pour faire tout sauter... scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jack
Admin
avatar

Nombre de messages : 1919
Date d'inscription : 28/05/2007

MessageSujet: Re: Vaisseau spatial   Mer 2 Juin 2010 - 22:29

Eh bien, c'est plutôt réussi pour un début.
Cet exemple me motive pour coder des commandes spécifiques en 3D (collision, animation, brouillard, terrain, feu, point de pivot, skybox, dome, etc...)

Et vivent les jeux vidéos !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.1fr1.net
Invité
Invité



MessageSujet: Re: Vaisseau spatial   Mer 2 Juin 2010 - 22:44

Super ce jeu!

mais utilise key_xxx pour les flèches, comme ça on va pouvoir quitter sans aller par le gestionnaire des taches.
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Vaisseau spatial   Mer 2 Juin 2010 - 23:24

Je viens de faire l'essais pour voir ce que les nouveaux nous proposent.

Très bien. Pour quitter Nicolas: ESC (c'est codé).
Ce que je ne sais pas, lorsqu'il y aura les collisions de prévus par Jack, avec les événements ils faudra certainement faire le programme en dehors du END.

Ce qui serait bien et plus lisible serait d'indenter les lignes pour qu'on retrouve plus facilement le début et la fin d'une boucle quelconque. Dans les grands programmes les erreurs sont plus lisibles. Je ne donne pas de conseil, ce genre de programme je ne le fais pas, mais pour relire le travail d'un autre, c'est plus facile, et il t'appartiens de coder à ta guise.

Par contre aillant un vielle ordi qui ronfle avec le ventilo qui tourne à plein pot lorsqu'il tourne à 100/100, avec le gestionnaire de tâche, l'UC=100, si je mets wait 1, il descend à 91, wait 2, celui-ci tourne au environ de 81.
J'ai pas été plus loin, mais je n'ai pas vu de différence dans le comportement. Je pense qu'il faut laisser un peu de marge et ne pas prendre toute la ressource dans une boucle infini.

Je me retire de la partie, vu que les jeux c'est pas mon truc.
Bonne programmation.
Revenir en haut Aller en bas
Tecking



Nombre de messages : 114
Age : 29
Localisation : Toulouse
Date d'inscription : 30/05/2010

MessageSujet: Re: Vaisseau spatial   Jeu 3 Juin 2010 - 0:07

moi pour quitter j'attend que panoramic me dise
invalid floating point value 0.1 (ou 0.5).

sinon pas mal du tout ton petit prog. Wink

j'ai tenté de le remanier:
Code:

full_space  0
scene3D    1
full_space  1
color      1, 0, 0, 0

dim camera(5)
dim ship(5)
dim dir(1)
dim speed
dim x, z

for x=-2 to 2 step 4
    for z=-2 to 2 step 4
        speed = speed+1
        3D_box speed, 1, 1, 1
        3D_x_position speed, x
        3D_z_position speed, z
    next z
next x

speed = 10

3D_box 5, 1, 0.5, 1.5
3D_sphere 6, 1

repeat

    3D_x_position 6, ship(0)+ship(3)
    3D_y_position 6, ship(1)+ship(4)
    3D_z_position 6, ship(2)+ship(5)
    3D_move      5, Speed/100
    3D_point      5, 6
'    cam_x_position camera(0)
 '  cam_y_position camera(1)
  '  cam_z_position camera(2)
    point_x_position ship(0)
    point_y_position ship(1)
    point_z_position ship(2)

    ship(0)  = O3D_x_position(5)
    ship(1)  = O3D_y_position(5)
    ship(2)  = O3D_z_position(5)
    ship(3)  = sin(dir(0)/100)*cos(dir(1)/100)
    ship(4)  = sin(dir(1)/100)
    ship(5)  = cos(dir(0)/100)*cos(dir(1)/100)

    camera(0) = camera(0)+((camera(0)-camera(3))/10)
    camera(1) = camera(1)+((camera(1)-camera(4))/10)
    camera(2) = camera(2)+((camera(2)-camera(5))/10)
    camera(3) = ship(0)-(3*ship(3))
    camera(4) = ship(1)-(3*ship(4))
    camera(5) = ship(2)-(3*ship(5))
   
    if scancode = 37 then dir(0)=dir(0)+1
    if scancode = 38 then dir(1)=dir(1)+1
    if scancode = 39 then dir(0)=dir(0)-1
    if scancode = 40 then dir(1)=dir(1)-1
   
    wait 1
   
until scancode = 27

terminate

mais panoramic n'as pas l'air d'aimer le 3D_point
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
The Gamer

avatar

Nombre de messages : 110
Age : 24
Localisation : Toulouse (31)
Date d'inscription : 11/05/2010

MessageSujet: Re: Vaisseau spatial   Jeu 3 Juin 2010 - 19:46

Merci pour tous ses encouragements , cela me motive encore plus !! J'ai l'intention de continuer
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://pierrehardy.pagesperso-orange.fr/
JL35



Nombre de messages : 6328
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Vaisseau spatial   Jeu 3 Juin 2010 - 21:33

@Tecking, dans ton listing, ligne 31, le 3D_POINT ne doit-il pas être remplacé par 3D_POINT_OBJECT ? sinon, joli résultat.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Vaisseau spatial   

Revenir en haut Aller en bas
 
Vaisseau spatial
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» vaisseau spatial en construction
» Le premier vaisseau spacial en 3D
» Créer un Vaisseau
» Un exemple de gestion d'un sprite vaisseau avec panoramic

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: