PureBasic

Forums PureBasic
Nous sommes le Ven 25/Mai/2018 21:46

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 5 messages ] 
Auteur Message
 Sujet du message: [Retroremake] Amstrad CPC for fun
MessagePosté: Ven 13/Oct/2017 14:02 
Hors ligne

Inscription: Mer 26/Fév/2014 8:53
Messages: 140
Bonjour,

vous n'allez pas apprendre grand chose avec ce code, petit rétro-remake Amstrad CPC de la démo N°2 de Logon System,

j'en conviens, c'est pas la plus technique :D , comme je n'ai pas un CPC en état de fonctionnement, donc pas d'outils de rip, galère pour reprendre la fonte de char,

(ça se voit d'ailleurs à la hauteur des lettres)....peu importe, c'est pour s'amuser, pour la musique, je n'ai pas trouvé de solution PB pour jouer du .ym, je suis donc passé par du mp3.


Code:

; Retro remake Démo n°2 Logon system @mstrad CPC 1988
; jmg@2017

Enumeration
  #scroll
  #chiptune1
EndEnumeration 

;-------------------------------Init---------------------------------------

InitMovie()
InitSprite()
EP_InitFXLib()
UsePNGImageDecoder()

text.s ="                                                             salut tous, petit retroremake purebasic Amstrad cpc " +
        "de la demo numero deux de  logon system je n'ai pas repris le texte du scrolling car trop long a taper de plus a cette epoque " +
        "le texte ne servait qu a illustrer les capacites techniques du scrolling la par exemple je fais du remplissage pour que vous " +
        "puissiez apprecier la musique qui d apres l auteur certaienement serge alias longshot est du jeu rampage "+
        "en fait c est rampart ce qui est pareil que rampage mais avec des chevaliers a la place des dinosaures bref "+
        "je vais m attaquer a un peu plus technique comme retroremake la prochaine fois j en profite pour remercier google " +
        "de m avoir supprime mon compte developpeur pour des raisons obscures  ce jour     c est pas demain que je vais faire " +
        "fortune avec mes applis android    pas grave l espoir fait vivre             "

MP_Graphics3D (759,545,0,1)
SetWindowTitle(0, "Logon Sytem démon N°2 1988 JmG@2017")

EP_CatchFont32(0,?font,?endfont-?font)

EP_SetScrollText(0,text )
EP_Create32Scroll(0, 0, 0, 485)
EP_SetScroll32Speed(0, 8)

LoadMovie(#chiptune1,"chiptune1.mp3")


one = MP_CatchSprite(?sprite,?endsprite-?sprite)
PlayMovie(#chiptune1,1)


Repeat
 
  event=WindowEvent()
 
  MP_DrawSprite(one,0,0)
 
  EP_Move32Scroll(0)
 
  MP_RenderWorld()
  MP_Flip () 
   
Until GetAsyncKeyState_(#VK_ESCAPE)



DataSection
  sprite:
  IncludeBinary "scr1.png"
  endsprite:
  chiptune:
  IncludeBinary "chiptune1.mp3"
  endchiptune:
  font:
  IncludeBinary "fnt.bmp"
  endfont:
EndDataSection


; End PB
; PureBasic 5.42 LTX (x86)



lien vers les ressources nécessaires car je ne donne pas l'exe cause risque malware etc ....

https://1drv.ms/u/s!As4Wo4KJtjzMgwbMtXucUcfJCYpo

_________________
- IBM Certified System Administrator IBM i V7R2
- IBM Certified Technical Sales Specialist Power Systems with POWER8
- IBM Certified Technical Sales Specialist Power Systems with POWER7

Amstrad CPC464 64KO + Multiface2


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Retroremake] Amstrad CPC for fun
MessagePosté: Ven 13/Oct/2017 14:51 
En ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8374
Salut,
Et EP_InitFXLib() ? :?
y'a de tres bonne choses sur dbf mais font trop de libs..

_________________
.: Ar-S :. Tour W10 x64 - Portable W10 x64 K501U PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique Aude (11) Isère (38)
RESIZER GOLD : Mon logiciel de redimensionnement par lot


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Retroremake] Amstrad CPC for fun
MessagePosté: Ven 13/Oct/2017 15:15 
Hors ligne

Inscription: Mer 26/Fév/2014 8:53
Messages: 140
Ar-S a écrit:
Salut,
Et EP_InitFXLib() ? :?
y'a de tres bonne choses sur dbf mais font trop de libs..


ah, oui faut installer MP3D ....c'est quand même plus pratique que de réinventer la roue et coder le scrolltext à la main , elle sont fabuleuses ces libs

_________________
- IBM Certified System Administrator IBM i V7R2
- IBM Certified Technical Sales Specialist Power Systems with POWER8
- IBM Certified Technical Sales Specialist Power Systems with POWER7

Amstrad CPC464 64KO + Multiface2


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Retroremake] Amstrad CPC for fun
MessagePosté: Ven 13/Oct/2017 16:06 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 1930
jmg49 a écrit:
je n'ai pas trouvé de solution PB pour jouer du .ym,


viewtopic.php?f=3&t=16991

;)

_________________
Image
Image
Site: http://stline.ddns.net/STLINE/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Retroremake] Amstrad CPC for fun
MessagePosté: Ven 13/Oct/2017 20:24 
En ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8374
jmg49 a écrit:
Ar-S a écrit:
Salut,
Et EP_InitFXLib() ? :?
y'a de tres bonne choses sur dbf mais font trop de libs..


ah, oui faut installer MP3D ....c'est quand même plus pratique que de réinventer la roue et coder le scrolltext à la main , elle sont fabuleuses ces libs


Du coup ajoute l'URL de mp3D dans ton code de départ stp ;)

_________________
.: Ar-S :. Tour W10 x64 - Portable W10 x64 K501U PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique Aude (11) Isère (38)
RESIZER GOLD : Mon logiciel de redimensionnement par lot


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 5 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye