pure miga
Re: pure miga
Cool Bien joué !
Testé sous un i3 bureautique : 60/61 fps.
ça fait plaisir de voir les (magnifiques) modeling de Psygnosis.
Sympa les greeets
Après psygnosis tu es près pour nous faire un remake de project x de team 17
Testé sous un i3 bureautique : 60/61 fps.
ça fait plaisir de voir les (magnifiques) modeling de Psygnosis.
Sympa les greeets
Après psygnosis tu es près pour nous faire un remake de project x de team 17
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Re: pure miga
j'ai bien galéré sur la partie astéroids avec le rebond et z.
j'ai eu un coup de main de Majikeyric merci à lui.
j'avais jamais fait ce genre d'effet.
la demo est pas parfaite,il manque une scène et d'autre truc sur la partie des greets.
-animation du cockpit que j'avais prévu.
-rotation du vaisseau
@huitbit ,j'ai commencé à attaqué la demo après le punch,étudié du code,rip de gfx avec winuae pour le vaisseau et le blood copter.
ensuite j'ai attaquer les astéroids avec z,c'est la que j'ai bloquer un bon moment dessus
à coté, je fesai des améliorations sur la partie intro leds de l'amiga,anime du vaisseau,mouvement du vaisseau etc.
j'apprends au fur et à mesure c'est ça le plus long.
@cool dji, merci pour la souris
@Ar-s,j'ai pas le niveau pour ça
j'ai eu un coup de main de Majikeyric merci à lui.
j'avais jamais fait ce genre d'effet.
la demo est pas parfaite,il manque une scène et d'autre truc sur la partie des greets.
-animation du cockpit que j'avais prévu.
-rotation du vaisseau
@huitbit ,j'ai commencé à attaqué la demo après le punch,étudié du code,rip de gfx avec winuae pour le vaisseau et le blood copter.
ensuite j'ai attaquer les astéroids avec z,c'est la que j'ai bloquer un bon moment dessus
à coté, je fesai des améliorations sur la partie intro leds de l'amiga,anime du vaisseau,mouvement du vaisseau etc.
j'apprends au fur et à mesure c'est ça le plus long.
@cool dji, merci pour la souris
@Ar-s,j'ai pas le niveau pour ça
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Re: pure miga
Bonjour,
C'est vraiment sympa , bonne continuation. Tu as fait tout les logos des salutations ou tu as une routine qui créer le logo?
GallyHC
C'est vraiment sympa , bonne continuation. Tu as fait tout les logos des salutations ou tu as une routine qui créer le logo?
GallyHC
Configuration : Tower: Windows 10 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.72 (x86 et x64)
Re: pure miga
bonjour,
je l'ai ai fait via photoshop,pour les animations,je fait des captures d'écran puis les place sur une planche.
c'est du bidouillage.
le presentateur du debut de l'intro:
presentateur
je l'ai ai fait via photoshop,pour les animations,je fait des captures d'écran puis les place sur une planche.
c'est du bidouillage.
le presentateur du debut de l'intro:
presentateur
Code : Tout sélectionner
;***********************************************
;Titre : Intro Pure Miga Part II
;Auteur : Raven
;Date :24/02/2015
;Heure :21:14:39
;Version Purebasic : PureBasic 5.24 LTS (Windows - x86)
;Version de l'editeur :EPB V2.58
; Libairies necessaire : Aucune
;***********************************************
Enumeration
#presentateur
EndEnumeration
;son
Enumeration
#presente
EndEnumeration
;----------------------------------------------------------------------------
;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 Or InitMouse()=0 Or InitSound()=0 Or UseOGGSoundDecoder()=0 Or UsePNGImageDecoder()=0
MessageRequester("Problème","Initialisations impossibles",0)
End
EndIf
;------------------------------------------------------------------------------
;-ouvre une fenetre ou l'openscreen
Ecran= MessageRequester("Pure Miga","Plein écran?",#PB_MessageRequester_YesNo)
If Ecran = #PB_MessageRequester_Yes
Plein_ecran=#True
OpenScreen(1024,768,32,"Pure Miga" )
Else
Plein_ecran=#False
OpenWindow(0,0, 0, 1024 , 768 ,"Pure Miga",#PB_Window_ScreenCentered)
SetWindowPos_(WindowID(0), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE)
OpenWindowedScreen(WindowID(0),0,0, 1024 , 768,32,0,0)
EndIf
If Plein_ecran = #False
While WindowEvent() : Wend
EndIf
If CatchSprite(#presentateur,?presentateur,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSound(#presente,?presente,?presentefin-?presente)=0
End
EndIf
SpriteQuality(#PB_Sprite_BilinearFiltering)
Delay(3000)
;------ boucle ------------
Repeat
ClearScreen(0)
;-clavier et souris
ExamineKeyboard()
ExamineMouse()
If Plein_ecran = #False
event=WindowEvent()
EndIf
If image_presente=9:EndIf
If image_presente=0:PlaySound(#presente):EndIf
ClipSprite(#presentateur,image_presente*570,0,570,460)
TransparentSpriteColor(#presentateur,RGB(0,0,0))
DisplayTransparentSprite(#presentateur,250,250)
presente +1
If presente = 35
image_presente +1
presente =-1
EndIf
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape); or mousebutton(#PB_MouseButton_Right)
CloseScreen()
End
;----- data --------------
DataSection
presentateur:
IncludeBinary "Gfx\presentation.png"
presente:
IncludeBinary "Zik\presente.ogg"
presentefin:
EndDataSection
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
- TazNormand
- Messages : 1294
- Inscription : ven. 27/oct./2006 12:19
- Localisation : Calvados (14)
Re: pure miga
Salut Raven
Moi la partie "2" ne marche pas : l'écran devient noir, puis retour à windows, et j'entends bien le son (blood money, rire et lecteur de D7), et si je clique sur le bouton de ton exe dans ma barre des tâches, ou que je bascule avec ALT+Tab, j'ai un beau message "l'application a cessé de fonctionner".
Je suis sous W7 X64, en double écran, 16Go de RAM et Sapphire HD7850 3 Go.
Moi la partie "2" ne marche pas : l'écran devient noir, puis retour à windows, et j'entends bien le son (blood money, rire et lecteur de D7), et si je clique sur le bouton de ton exe dans ma barre des tâches, ou que je bascule avec ALT+Tab, j'ai un beau message "l'application a cessé de fonctionner".
Je suis sous W7 X64, en double écran, 16Go de RAM et Sapphire HD7850 3 Go.
- TazNormand
- Messages : 1294
- Inscription : ven. 27/oct./2006 12:19
- Localisation : Calvados (14)
Re: pure miga
Bon,
je viens de te répondre en MP
Tjrs pareil pour moi, et d'après ce que tu m'as fourni en MP, on dirait que c'est le mode plein écran qui me fout la grouille.
J'ai pas plus le temps que ça pour regarder.
merci en tous cas
je viens de te répondre en MP
Tjrs pareil pour moi, et d'après ce que tu m'as fourni en MP, on dirait que c'est le mode plein écran qui me fout la grouille.
J'ai pas plus le temps que ça pour regarder.
merci en tous cas
Re: pure miga
Testé sur w7 et l'exe ne se lance pas
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Re: pure miga
ouais...tout est ok en mode debug,chez moi ça fonctionne .
je compte meme plus le nombre de fois que j'ai compilé la demo lors des réglages des timers.
je regarde ça.pas evident quand il y a aucun message d'erreur.
je compte meme plus le nombre de fois que j'ai compilé la demo lors des réglages des timers.
je regarde ça.pas evident quand il y a aucun message d'erreur.
Code : Tout sélectionner
#scrw = 1024
#scrh = 768
#scrd = 32
;-------- Initialisation --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0 or initsound() = 0 or UseOGGSoundDecoder() = 0 or UsePNGImageDecoder() = 0
MessageRequester("Erreur", "problème à l'initialisation !", #PB_MessageRequester_Ok|#MB_ICONERROR)
End
EndIf
If OpenScreen(#scrw,#scrh,#scrd,"Blood_money") = 0
MessageRequester("Erreur", "impossible d'ouvrir l'écran", #PB_MessageRequester_Ok|#MB_ICONERROR)
End
EndIf
LoadFont(#font,"Cooper Black",10,#PB_Font_HighQuality )
if catchsprite(#Amiga,?amiga,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#ecran,?ecran,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#kickstart,?kickstart,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#Disk,?disk,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#menace,?menace,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#psygnosis,?psygnosis,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#dma,?dma,#PB_Sprite_AlphaBlending)=0
end
endif
if catchsprite(#presentateur,?presentateur,#PB_Sprite_AlphaBlending)=0
End
endif
If CatchSprite(#fond_nebuleuse,?fond,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#vaisseau,?vaisseau,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#vaisseau_atteri,?vaisseau,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#cockpit,?interieur_vaisseau,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#cockpit_anim,?manche_vaisseau)=0
End
EndIf
If CatchSprite(#dollar,?dollar,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite (#titre, ?blood_money_titre,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#asteroid,?asteroid)=0
End
EndIf
If CatchSprite(#asteroid_part2,?asteroid)=0
End
EndIf
If CatchSprite (#terre, ?terre)=0
End
EndIf
If CatchSprite (#lune, ?lune)=0
End
EndIf
If CatchSprite(#effet_tv,?tv,#PB_Sprite_AlphaBlending)=0
End
EndIf
If catchsprite(#laser,?laser_image,#PB_Sprite_PixelCollision)=0
End
endif
If catchsprite(#ship,?ship)=0
End
endif
If catchsprite(#planete,?planete1)=0
End
endif
If catchsprite(#planete2,?planete2)=0
End
endif
If catchsprite(#planete3,?planete3)=0
End
endif
If CatchSprite(#ball,?ball,#PB_Sprite_AlphaBlending)=0
End
EndIf
If CatchSprite(#boss,?ball2,#PB_Sprite_PixelCollision)=0
End
EndIf
If CatchSprite(#mouse,?curseur,#PB_Sprite_AlphaBlending)=0
End
EndIf
if catchsprite(#ars,?ars,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#cooldji,?cooldji,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#djes,?djes,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#dobro,?dobro,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#falsam,?falsam,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#grom,?grom,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#huitbit,?huitbit,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#majikeyric,?majikeyric,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#raven,?raven,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#greetings,?greet,#PB_Sprite_AlphaBlending)=0
End
endif
if catchsprite(#explosion,?explo,#PB_Sprite_AlphaBlending)=0
End
endif
;----------- Music ---------------------
if Catchsound(#intro,?intro,?introfin-?intro)=0
End
endif
if Catchsound(#lecteur,?lecteur,?lecteurfin-?lecteur)=0
end
endif
if Catchsound(#presente,?presente,?presentefin-?presente)=0
End
endif
longueur_du_son=?music_fin-?music
If CatchSound( #music,?music,longueur_du_son) = 0
End
EndIf
longueur_du_son2=?music_fin2-?music2
If CatchSound(#music_ingame,?music2,longueur_du_son2) = 0
End
EndIf
if Catchsound(#son_laser,?son_laser,?son_laserfin-?son_laser)=0
End
endif
if Catchsound(#son_laser2,?son_laser2,?son_laserfin2-?son_laser2)=0
End
endif
if Catchsound(#son_explosion,?son_explosion,?son_explosionfin-?son_explosion)=0
End
endif
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Re: pure miga
Dans ton dernier code : constante introuvable #font
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Re: pure miga
la constante #font est bien dans les enumerations c'est que 1er truc que j'affiche les fps.
je charge bien la font cooper black et si l'utilisateur ne la possede pas:
extrait de la doc:
Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.
je separe toujours la font des autres constantes c'est pas bon? ou j'ai rien capté
je charge bien la font cooper black et si l'utilisateur ne la possede pas:
extrait de la doc:
Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.
je separe toujours la font des autres constantes c'est pas bon? ou j'ai rien capté
Code : Tout sélectionner
EnableExplicit
;--------- constantes ---------------
enumeration
#font
EndEnumeration
enumeration
#Amiga
#disk
#kickstart
#ecran
#mouse
#menace
#psygnosis
#dma
#presentateur
#ligne=335
#ligne2=710
#led_rouge=155
#led_rouge_fond=155
#led_verte=155
#led_verte_fond=155
EndEnumeration
enumeration
#laser2=50
#laser=20
#asteroid
#asteroid_part2=30
#ship
#planete
#planete2
#planete3
#fond_nebuleuse
#titre
#vaisseau
#vaisseau_atteri
#cockpit
#cockpit_anim
#dollar
#terre
#lune
#effet_tv
#ball
#ball2
#boss
#ars
#cooldji
#djes
#dobro
#falsam
#grom
#huitbit
#majikeyric
#raven
#Greetings
#explosion
endenumeration
Enumeration
#Avant
#Arriere
EndEnumeration
Enumeration
#lecteur
#intro
#presente
#music
#music_ingame
#son_laser
#son_laser2
#son_explosion
endenumeration
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Re: pure miga
J'ai mis les constantes u dessus du code et j'ai une nouvelle erreur :
longueur_du_son=?music_fin-?music
longueur_du_son=?music_fin-?music
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Re: pure miga
Ca n'a aucune importance. Tu pourrais tout mélanger et ça marcherait aussi.je separe toujours la font des autres constantes c'est pas bon? ou j'ai rien capté
Séparer les constantes n'est utile que pour s'y retrouver.
Impossible de charger quoi que ce soit. L'hébergeur choisi répond "erreur 404"
A+