Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Bobo220673

Pages: [1] 2
1
Projects / Another remake...
« on: August 25, 2018 »
Hi !
Here you find my new Intro/Remake...

Sorry, but Windows 10 Defender don't like it  :boxer: , you must add an exception. There is no Virus or Trojaner.

Here the Link : https://www15.zippyshare.com/v/gtpyoND6/file.html

2
Purebasic / Re: [Retroremake] Amstrad CPC for fun
« on: February 16, 2018 »
Hi!
Here is the Intro without Lib....

Code: [Select]
InitSprite()
InitKeyboard()
InitMovie()
UsePNGImageDecoder()

#SCREEN_CX=759
#SCREEN_CY=545

text.s =UCase("                                                             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             ")

;Create Window
OpenWindow(0, 0, 0, #SCREEN_CX, 545, "Logon Sytem démon N°2 1988 JmG@2017", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, #SCREEN_CX, #SCREEN_CY)
SetFrameRate(60)
;Create Window End

;Create Logo
SpriteLogo_1 = CatchSprite(#PB_Any,?Sprite)
;Create Logo

;Create Scroller
Dim spriteFonts.l(65)
fnt=CatchImage(#PB_Any, ? Font)
For i = 0 To 65
  yCharPos = i / 10 *32
  xCharPos = i % 10 *32
  tempImage_Scroll = GrabImage(fnt , #PB_Any, xCharPos, yCharPos, 32, 32)
  spriteFonts(i) = CreateSprite(#PB_Any, 32, 32)
  StartDrawing(SpriteOutput(spriteFonts(i)))
  DrawAlphaImage(ImageID(tempImage_Scroll), 0, 0)
  StopDrawing()
Next
FreeImage(fnt)
FreeImage(tempImage_Scroll)
VirtualLength_Scroll.l = Len(Text)*32
;Create Scroller End

;Create MP3 Sound
CreateFile(1,GetTemporaryDirectory()+"Sound.mp3")
WriteData(1, ?chiptune, ?endchiptune-?chiptune)
CloseFile(1)
LoadMovie(0, GetTemporaryDirectory()+"Sound.mp3")
PlayMovie(0,0)
;Create MP3 Sound End

Repeat
  ExamineKeyboard()
  While WindowEvent() : Wend
 
  ;Loop MP3 Aound
  If MovieStatus(0)=0
    PlayMovie(0,0)
    Repeat
    Until MovieStatus(0)>1
  EndIf
  ;Loop MP3 Sound End
   
  ClearScreen(RGB(0,0,0))
 
  ;Display Logo
  DisplaySprite (SpriteLogo_1, 0, 0)
  ;Display Logo End
 
  ;Display Scrolltext
  Scroll_x=Scroll_x-10
  If Scroll_x<-VirtualLength_Scroll
    Scroll_x=#SCREEN_CX+64
  EndIf
  For i = 1 To Len(Text)
    LetterID_Scroll.b = Asc(Mid(Text, i, 1))-32
    XPositionScroll.w = Scroll_x + ((i-1)*32)
    If XPositionScroll>#SCREEN_CX+64
      Break
    EndIf
    If XPositionScroll> -32
      DisplaySprite(spriteFonts(LetterID_Scroll),XPositionScroll,485)
    EndIf
  Next i
  ;Display Scrolltext End
       
  FlipBuffers()
       
Until Event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
;Delete Temp MP3 Sound
DeleteFile(GetTemporaryDirectory()+"sound.mp3")
;Delete Temp MP3 Sound End

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

3
Purebasic / Re: DX9 Lib
« on: September 02, 2017 »
Hi!

Install this : http://www.flasharts.de/mpz/mp33_beta/MP3D_Installer.exe

and in PB set Compiler Options -> Library Subsystem: DX9

4
Projects / Small Intro..
« on: February 26, 2017 »
Hello there!
I have some Time, so i coded this small Intro.....
Have Fun!

( No Virus, Packed with MPress )

5
I Update the Framework to 0.0.3 :D

6
Projects / My new Music..
« on: May 27, 2012 »
Hello!
I want to show you my last 2 Musicprojects...

File 1 is a Remake of  Concerning Hobbits. I think anyone know the Film. I made this File for a Friend, he need some Backgroundmusic for he's Fanpage.

File 2 is only a Just4fun Project. I use it to test some Functions...

7
Hi!
I just upload a new Version of the OSDM :)

http://www.mediafire.com/?l9o7e6jjc4jobbq

8
Projects / Re: Some Music
« on: November 16, 2011 »
Hi!
I use FL Studio, not an St Prog ;)

9
Projects / Some Music
« on: November 16, 2011 »
Hello!
Some Days ago i found a very old Disk from my Atari St. I put the Disk into the Drive and i found some old Soundfiles....
I try to push one File a Bit, here is the result :)

I hope you Like it

10
Projects / Some new Remixes
« on: August 19, 2011 »
Hello!
After my last Remix i get some requests for Remixes. I done it all , here are the 4 requests :

Title: Final Fantasy III - Celes' Theme
Orgional Composer: Tsuyoshi Sekito and Keiji Kawamori
System: SNES
Year: 1990
Orginal: http://www.youtube.com/watch?v=MMVA6yNTrwU

Title: Donkey Kong Country 2 - Hot Head Hop
Orgional Composer: David Wise
System: SNES
Year: 1995
Orginal: http://www.youtube.com/watch?v=cTEuL3jltQ0

Title: Rings of Medusa
Orgional Composer: Jochen Hippel
System: Amiga/Atari ST
Year: 1989
http://www.youtube.com/watch?v=zI7mlrVjkGQ

Title: Chambers of Shaolin
Orgional Composer: Jochen Hippel
System: C64, Amiga, Atari ST
Year: 1989
http://www.youtube.com/watch?v=Vp7FMVZzyrg


Sorry, but the File is 26 MB and here is a 10 MB limit to upload. So i use a Freehoster.....

Download : http://uploaded.to/file/exwtbjuv

I hope you have fun with the Sounds...

11
Projects / Re: My first Remix
« on: May 14, 2011 »
Hi and thanks.

Here is the Orginal : http://www.youtube.com/watch?v=4Qp0_NE8M1c

I use Fl Studio for the Remake

12
Projects / My first Remix
« on: May 10, 2011 »
Hello!
I want to show you my first Remix  :)

Game: Donkey Kong Country 2: Diddy's Kong Quest (Nintendo, 1995, SNES)
Orgional Composer: David Wise
Song: Kannon's Klaim (  Mines )


13
Projects / Re: [XMAS 2010] Paddymas
« on: December 21, 2010 »
Hi!
Very funny with Santa :D
Nice Work, and thanks for the greet !

14
Projects / Re: Small XMAS Demo
« on: December 06, 2010 »
Thanks :)
I've uploaded a new version. the old one had a spelling error  ::)

15
Projects / Small XMAS Demo
« on: December 05, 2010 »
Hi there!
I have also code a small Christmas demo.

Merry Christmas to everyone!

cu
Bobo

16
Projects / Re: Audible. Retro music disk.
« on: November 19, 2010 »
Yes, Bass don't play sndh..
But you can use StSound to Play the Orginal YM Files  ;)
So you don't need to include a dll into the Exe

http://leonard.oxg.free.fr/


17
Purebasic / Re: Directx9 Framework Update to 0.0.2
« on: November 13, 2010 »
I Update the Framework to Version 0.0.2 :)
For changes read the Mainpost...

18
Projects / Re: Audible. Retro music disk.
« on: November 13, 2010 »
Wow, very cool St Sounds :)

Works 100% on my System ( xp )

19
Purebasic / Re: Directx9 Framework
« on: November 11, 2010 »
Thanks.
PB is great, but there is a small 3d-engine missing. Did you code with PB too?

20
Purebasic / Directx9 Framework Update to 0.0.3
« on: November 09, 2010 »
Hello!
Many PB Demos/Intros have problems with Vista/Win7 and Aero. The problem is very easy : Directx7.
But if the Demo use Directx9 Libs there are problems with "IsScreenActive" or rebuild the Window on Alt+Tab. So i create this small Framework.

The Framework Support :
- Alt + Tab
- Alt + Return
- Pause on lost Focus or Minimize

I Add a Scroller + Logo + ufmod in this Framework

Update 0.0.2 on 11/13/2010

 + Many Code changes
 + Add 16x16 Scroller
 + Add 3D Starfield
 + Add Borderlines
 + Add MP3 Support
 + Add Pausefunction ( Key P )

Update 06/27/2012
+ Some Fixes for slow Pcs
+ Add Sprites
+ Add Coppers
+ Add Dots
+ Add FPS Timer ( Now Demos work with the same speed on slow or fast Pcs... )

Pages: [1] 2