Author Topic: Fuzion Compact Disk 156  (Read 2193 times)

0 Members and 1 Guest are viewing this topic.

Offline KrazyK

  • Amiga 1200
  • ****
  • Posts: 276
  • Karma: 120
    • View Profile
    • KrazyK Remakes
Fuzion Compact Disk 156
« on: December 17, 2013 »
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...
« Last Edit: December 27, 2013 by KrazyK »
Challenge Trophies Won:

Offline Hotshot

  • DBF Aficionado
  • ******
  • Posts: 2114
  • Karma: 91
    • View Profile
Re: Fuzion Compact Disk 156
« Reply #1 on: December 17, 2013 »
Excellent Man  :clap:

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

Offline combatking0

  • JavaScript lives!
  • Senior Member
  • DBF Aficionado
  • ********
  • Posts: 4569
  • Karma: 235
  • Retroman!
    • View Profile
    • Combat King's Barcode Battler Home
Re: Fuzion Compact Disk 156
« Reply #2 on: December 17, 2013 »
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.
You are our 9001st visitor.
Challenge Trophies Won:

Offline KrazyK

  • Amiga 1200
  • ****
  • Posts: 276
  • Karma: 120
    • View Profile
    • KrazyK Remakes
Re: Fuzion Compact Disk 156
« Reply #3 on: December 17, 2013 »
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.
Challenge Trophies Won:

Offline combatking0

  • JavaScript lives!
  • Senior Member
  • DBF Aficionado
  • ********
  • Posts: 4569
  • Karma: 235
  • Retroman!
    • View Profile
    • Combat King's Barcode Battler Home
Re: Fuzion Compact Disk 156
« Reply #4 on: December 17, 2013 »
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.
You are our 9001st visitor.
Challenge Trophies Won:

Offline Dr.Death

  • Senior Member
  • Amiga 1200
  • ********
  • Posts: 433
  • Karma: 8
    • View Profile
Re: Fuzion Compact Disk 156
« Reply #5 on: December 17, 2013 »
Works fine for me mate.  :updance:
Proud member of DAWN

Offline combatking0

  • JavaScript lives!
  • Senior Member
  • DBF Aficionado
  • ********
  • Posts: 4569
  • Karma: 235
  • Retroman!
    • View Profile
    • Combat King's Barcode Battler Home
Re: Fuzion Compact Disk 156
« Reply #6 on: December 17, 2013 »
No, my antivirus is still blocking this at home. Must be a false positive :(
You are our 9001st visitor.
Challenge Trophies Won:

Offline Hotshot

  • DBF Aficionado
  • ******
  • Posts: 2114
  • Karma: 91
    • View Profile
Re: Fuzion Compact Disk 156
« Reply #7 on: December 18, 2013 »
What antivirus have you got? 

Offline combatking0

  • JavaScript lives!
  • Senior Member
  • DBF Aficionado
  • ********
  • Posts: 4569
  • Karma: 235
  • Retroman!
    • View Profile
    • Combat King's Barcode Battler Home
Re: Fuzion Compact Disk 156
« Reply #8 on: December 18, 2013 »
Avast! 2014 edition.
You are our 9001st visitor.
Challenge Trophies Won:

Offline ttemper

  • Atari ST
  • ***
  • Posts: 209
  • Karma: 7
    • View Profile
Re: Fuzion Compact Disk 156
« Reply #9 on: December 20, 2013 »
I went to download it also, and Avast blocked it. :/

Offline KrazyK

  • Amiga 1200
  • ****
  • Posts: 276
  • Karma: 120
    • View Profile
    • KrazyK Remakes
Re: Fuzion Compact Disk 156
« Reply #10 on: December 20, 2013 »
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

« Last Edit: December 27, 2013 by KrazyK »
Challenge Trophies Won:

Offline emook

  • C= 64
  • **
  • Posts: 87
  • Karma: 12
    • View Profile
Re: Fuzion Compact Disk 156
« Reply #11 on: January 19, 2014 »
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!

 :D
----

R Tape loading error, 0:1

Offline KrazyK

  • Amiga 1200
  • ****
  • Posts: 276
  • Karma: 120
    • View Profile
    • KrazyK Remakes
Re: Fuzion Compact Disk 156
« Reply #12 on: January 20, 2014 »
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.   ;D
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
Challenge Trophies Won:

Offline emook

  • C= 64
  • **
  • Posts: 87
  • Karma: 12
    • View Profile
Re: Fuzion Compact Disk 156
« Reply #13 on: January 21, 2014 »
Much appreciated, very nicely done.

I know what you mean about messy code!  :carrot:

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

R Tape loading error, 0:1