Fuzion Compact Disk 156

[KrazyK]

I decided to have a crack at a menu from french group Fuzion this time and leave D-Bug & Automation alone for a while.  (Not for too long though)
I've always wanted to try a nice text writer but lacked the knowledge/patience to try it.  But having worked on this for a week i've finally cracked it and it looks really nice.
Lots of hair lost with this one until I finally got my head around it -  so many arrays , Argghhh !!
Music:Lotus
Coder:Orion/Fuzion

edit
Spotted a bug and have corrected it...

[Hotshot]

Excellent Man 

I love the Music and also Various things happen on the screen too....Nice one

[combatking0]

When trying to download the zip attachment, my antivirus detected the following virus:
Win32:Evo-gen [Susp]

You may want to scan your computer. It's a shame really, your screen shot looks great.

[KrazyK]

When trying to download the zip attachment, my antivirus detected the following virus:
Win32:Evo-gen [Susp]

You may want to scan your computer. It's a shame really, your screen shot looks great.

That'll probably be a false positive as i used the upx scrambler option on the packer.  I've recompiled and  repacked it now for you in the original post.

[combatking0]

I think my home antivirus is a bit paranoid, sorry.

There's no virus warning at work, but I can't get the program to run on Windows 7 64 bit. I'll try again at home tonight.

[Dr.Death]

Works fine for me mate. 

[combatking0]

No, my antivirus is still blocking this at home. Must be a false positive

[Hotshot]

What antivirus have you got? 

[combatking0]

Avast! 2014 edition.

[ttemper]

I went to download it also, and Avast blocked it. :/

[KrazyK]

I went to download it also, and Avast blocked it. :/

Both my home laptops with zonealarm AV and my work PC with Symantec Endpoint 12 didn't bat an eyelid and they catch pretty much everything between them.  Odd indeed.

Just finished another remake today since I had time off.   A D-Bug one that had eluded me for a while with nice raster text and a changing colour bendy sine scroller.

Menu code: Cyrano Jones
Menu gfx: Pursy
Menu music: DBA 9

[emook]

I'd love to have a butchers at the source code for these KrazyK. Really like what you have been doing.

If there is ever any chance you will release the code I'd be very pleased indeed!

 

[KrazyK]

I'll see what I can do with this one as it extremely messy as it' was pretty complicated to code and I can't even understand it myself at the moment.   
Looking at it this morning there's a lot of variables and other stuff that I might be able to get rid of, but I won't know until I go through i again which will take a bit of time.
I was thinking of creating a PB userlibrary for this particular textwriter effect in this intro - again, time.....

In the meantime though i've attached the intro bit where the FUZION PRESENTS image is faded in and out 1 letter at a time as this is the easiest part of my code to understand. 

Code: [Select]

;Title: Fuzion Intro Fade
;Author: KrazyK
;Language: Purebasic 5.21 LTS
;Date: December 2013
;Description: Taken from Fuzion 156 Win32 Ramake
;Fades in the FUZION PRESENTS image from left to right.
;And at the same time fades it out at the same time once a letter has reached it's maximum opacity
;i'm sure someone could improve this but it works and that's what counts :-)

;This will only work with 5.xx Purebasic as it uses the new Sprite command where you can
;use the transparency in the same command, otherwise you will need to use Sprite3D and modify this code

InitSprite()

xres=640
yres=480
OpenWindow(1,0,0,xres,yres,"",#PB_Window_BorderLess|#PB_Window_ScreenCentered|#PB_Window_WindowCentered)
OpenWindowedScreen(WindowID(1),0,0,xres,yres,0,0,0)

Procedure Fuzion_Intro_Fade()

CatchSprite(0,?presents) ;our imageo
DisplaySprite(0,0,0) ;put it on the screen but don't show it by flipping the buffers
I=1
For X=0 To 480-1 Step 32
GrabSprite(I,X,0,32,32) ;grab individual letters of the image
I+1
Next X

ClearScreen(0)

Dim Trans.F(15)
Dim TADD.F(15)
For X=1 To 15:TADD(X)=4:Next X ;start with a plus value to be added to the opacity of each letter
For X=1 To 15:Trans(X)=-X*16:Next X ;set the initial opacity of each letter
COUNT=0

Repeat
w=WindowEvent()
ClearScreen(0)
For X=1 To 15
If Trans(X)>0 And Trans(X)<=255
DisplayTransparentSprite(X,48+(X*32),240,Trans(X))
EndIf
Trans(X)+TADD(X)
If Trans(X)>=255 ;have we reached maximu opacity ?
Trans(X)=254 ;reset back to 1 below
TADD(X)=-TADD(X) ;add a minus value to the opacity value
EndIf
COUNT+1
Next X
FlipBuffers()
If GetAsyncKeyState_(#VK_ESCAPE):End:EndIf ;esc to quit

Until COUNT=>4000

EndProcedure

Fuzion_Intro_Fade()



DataSection
presents:
IncludeBinary"presents2.bmp"
EndDataSection


[emook]

Much appreciated, very nicely done.

I know what you mean about messy code! 

I like to see programming as an art form and therefore my code is allowed to be abstract and unconventional!