Fivewin SlotMachine

[avista]

This is fw app ?
Regards,

[Silvio.Falconi]

This is fw app ?
Regards,

Silvio,

you can put the source code ?

best regards,

albeiro

Dear alberio, Dear avista

the slot there is on www.cartolinefree.eu/santaslot/index.html is made with construct2 and converte into html5 you can purchase it on activeden.net

the slot you can download on my site www.eoeo.it (http://www.eoeo.it/download/7561/) is made with fwh and xharbour and for now I not publish the sources codes because we 're working on it

[albeiroval]

Silvio,

Using "google tranductor"...

some progress slotmachine ?

sorry my english.

[Silvio.Falconi]

we are working to create 5 reels (Master chef slot)
We created a new function (using gdiplus) to have a real animation as videoslot on commerce
the first version was with bitmaps and refresh with time control
Before with 9 images now with 13 images
we are working to create a bonus game

snapshot

[ukoenig]

Silvio,

I can make the rounded walls with adjusted vertical lines if You like
adjusting the optical distortion ( see the difference )
I think that looks better



best regards
Uwe

[Silvio.Falconi]

we can make all but I have allready problem to insert the buttons
I hoped with new fwh and bcc7 to resolve these problems

[albeiroval]

Silvio,

good job, waiting for test.

[ukoenig]

Silvio,

I added 2 TITLE-sections
1. for Text and counter
2. for buttons or any other needed images.

Just add more sections if needed

It works fine without any changes of Your original code und can use some extra optical effects like brushed 3D text, shadows, animated buttons .....
Just add these few lines.

Code: Select all

#include "ttitle.ch"
...
...
Function Main()
LOCAL oBrush1, oTitle1, oTitle2, oTitleFont
...
DEFINE BRUSH oBrush1 FILE c_path1 + "paper.bmp"
DEFINE FONT oTitleFont NAME "Tahoma" SIZE 0, -24 BOLD
...
// ----------------- 1. area for Text and counter

@ 10, 100 TITLE oTitle1 SIZE 800, 100 of oWndMain NOSHADOW  NOBORDER  
oTitle1:aGrdBack = {}
oTitle1:nShadow := 0
oTitle1:lTransparent := .T.
    
@  15,  100  TITLETEXT OF oTitle1 TEXT "TOTAL BET" FONT oTitleFont BRUSH oBrush1
@  15,  400  TITLETEXT OF oTitle1 TEXT "LASTWIN" FONT oTitleFont BRUSH oBrush1
@  15,  700  TITLETEXT OF oTitle1 TEXT "WIN" FONT oTitleFont BRUSH oBrush1

// ----------------- 2. area for Images / Buttons

nRowReel:= 550

@ nRowReel, 100 TITLE oTitle2 SIZE 500, 80 of oWndMain NOSHADOW  NOBORDER  
oTitle2:aGrdBack = {}
oTitle2:nShadow := 0
oTitle2:lTransparent := .T.

@   5,  20 TITLEIMG  OF oTitle2 BITMAP c_path1 + "Spin.bmp" SIZE 100, 70 REFLEX ;
TRANSPARENT ANIMA ACTION MsgInfo( "fire any action from here" )
@   5,  150  TITLEIMG  OF oTitle2 BITMAP c_path1 + "Pay.bmp" SIZE 70, 70 REFLEX ;
TRANSPARENT ANIMA ACTION MsgInfo( "fire any action from here" )

ACTIVATE WINDOW oWndMain  ;
ON RESIZE Resize()

oTitleFont:End()

RETURN NIL
 

best regards
Uwe

[Silvio.Falconi]

use the title class can be an solution !!
gimme the time to try with the motor animation

Uwe, when I press paytable button the Reels Bitmpas must be End() and on the same position I wish insert a panel trasparent
or a dialog trasparent when we can insert the paytable information

it is possible make a tpanel transparent ?

[Antonio Linares]

> it is possible make a tpanel transparent ?

I don't think so

Not sure what may happen using a NULL brush

[Silvio.Falconi]

Antonio,
on Gdiplus we have a function can simulate a color box where insert texts ?

[ukoenig]

Silvio,

You can do that using another TITLE-section
using 3D-text with shadow and anything You like



Just add another section as well adding a border if You like

Code: Select all

// ------- added in MAIN

@   5,  150  TITLEIMG  OF oTitle2 BITMAP c_path1 + "Pay.bmp" SIZE 70, 70 ;
TRANSPARENT ANIMA ACTION RESULTS(oTitle3,oTitleFont) // show extra title on pay-button-action
...
...
// add and HIDE extra title 

@ 100, 850 TITLE oTitle3 SIZE 100, 200 of oWndMain NOSHADOW  NOBORDER  
oTitle3:aGrdBack = {}
oTitle3:nShadow := 0
oTitle3:lTransparent := .T.
oTitle3:Hide() //  !!!!!
....

// -----------------

FUNCTION RESULTS(oTitle3,oTitleFont)

oTitle3:Show() //  !!!!!

// show any calculations You need !!!!

@ 5,  5  TITLETEXT OF oTitle3 TEXT "Results" FONT oTitleFont 3d

@  45,  5  TITLETEXT OF oTitle3 TEXT "1" COLOR 16777088 FONT oTitleFont
@  70,  5  TITLETEXT OF oTitle3 TEXT "2" COLOR 255 FONT oTitleFont   
@  95,  5  TITLETEXT OF oTitle3 TEXT "3" COLOR 65280 FONT oTitleFont  

@   130,  20 TITLEIMG  OF oTitle3 BITMAP c_path1 + "Exit.bmp" SIZE 50, 50 ;
TRANSPARENT ANIMA ACTION oTitle3:Hide() //  !!!!! hiding the title again on leaving the results

RETURN NIL
 

Adding a frame

Code: Select all

FUNCTION RESULTS(oTitle3,oTitleFont)

oTitle3:Show() //  !!!!!

// show any calculations You need !!!!

@ 10,  10  TITLETEXT OF oTitle3 TEXT "Results" FONT oTitleFont 3d

@  45,  45  TITLETEXT OF oTitle3 TEXT "1" COLOR 16777088 FONT oTitleFont
@  70,  45  TITLETEXT OF oTitle3 TEXT "2" COLOR 255 FONT oTitleFont   
@  95,  45  TITLETEXT OF oTitle3 TEXT "3" COLOR 65280 FONT oTitleFont  

@   130,  20 TITLEIMG  OF oTitle3 BITMAP c_path1 + "Exit.bmp" SIZE 50, 50 ;
TRANSPARENT ANIMA ACTION oTitle3:Hide()

// added FRAME

// Left, Top, Right, Bottom. Radius1, Radius2, Color, Pen
oTitle3:bPainted := < |hDC|
RoundBox( hDC, 5, 5, 110, 205, 20, 20, 255, 5 )
RETURN NIL
>

RETURN NIL
 

There are many ways to define a style like adding a GRADIENT and SHADOW with transparent-level and size



best regads
Uwe

[Silvio.Falconi]

Uwe,

titleimg support png file reosurces ?






@ nRowCard, 2 TITLEIMG OF oTitle3 RESNAME "hotdog" SIZE 100, 70 REFLEX TRANSPARENT ANIMA

I not see any image

I must insert aline type


AAA X200
where AAA are 3 Hotdogs resurces ( png file save on resource with resedit)

[Silvio.Falconi]

I resolve with bitmaps

[Silvio.Falconi]

THE LAST SNAPSHOT

SLOT


PAYTABLE



DO YOU LIKE I T?