FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Fivewin SlotMachine
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: Fivewin SlotMachine

Posted: Wed Jan 20, 2016 05:33 PM
Silvio,

You can include any GDI+ object from inside a Title-function.
It will be shown together with the TTitle and destroyed,if hiding the title
It belongs to the MAINWINDOW ( doesn't cover a TTitle and NOT painted on top of a TTitle)
It gives You the possibility, to show some extra effects.


Code (fw): Select all Collapse
// -----------------

FUNCTION RESULTS(oTitle3,oTitleFont)
LOCAL oImg
LOCAL hDC := oWndMain:GetDC() 

LOCAL oGraphics := Graphics():New( hDC )
// nTransparency, nRed, nGreen, nBlue
LOCAL oPen := Pen():New( 255, 0, 0, 255 )  
 // Brush-Object -> nTransparency, nRed, nGreen, nBlue
LOCAL oBrush := Brush():NewSolidBrush( 150, 0, 255, 0 )  

DEFINE IMAGE oImg FILENAME c_path1 + "Exit.bmp"

oTitle3:Show()

@ 15,  15  TITLETEXT OF oTitle3 TEXT "Results" FONT oTitleFont 3d
oTitle3:nShadowTxtClr := 65535
oTitle3:nShadowTxtDis := 10     // Shadow Text Distance

@  55,  45  TITLETEXT OF oTitle3 TEXT "1" COLOR 16777088 FONT oTitleFont
@  80,  45  TITLETEXT OF oTitle3 TEXT "2" COLOR 255 FONT oTitleFont   
@  105,  45  TITLETEXT OF oTitle3 TEXT "3" COLOR 65280 FONT oTitleFont  

@   130,  25 TITLEIMG  OF oTitle3 BITMAP c_path1 + "Exit.bmp" SIZE 50, 50 ;
TRANSPARENT ANIMA ACTION ( oGraphics:destroy(), oTitle3:Hide(), oWndMain:Refresh() )

// oPen, [oBrush], nLeft, nTop, nWidth, nHight
oPen:SetInset( )
oGraphics:DrawRect( oPen,  oBrush , 400, 550, 300, 100 ) 

DELETEDC( hDC )

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

RETURN NIL


best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: Fivewin SlotMachine

Posted: Thu Jan 21, 2016 08:10 AM

good Idea

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: Fivewin SlotMachine

Posted: Thu Jan 21, 2016 08:45 AM

Uwe,
a question....
Look the reels
I use Png file transparent and GBmp function
but I see white background and not transparent
you KnowHow make it ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: Fivewin SlotMachine

Posted: Tue Jan 26, 2016 10:30 PM
Silvio,

more tests with TTitle showing how to display and change images inside a TTitle

1. creating 5 sections
3. painting 3 images inside each section
4. random - function
5. changing images of the sections with button SPIN with a selected speed and turns
( I noticed < TITLEIMG OF oTitle > only accepts BMP ? )

Download
http://www.pflegeplus.com/DOWNLOAD/Gditest_3.zip



best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: Fivewin SlotMachine

Posted: Thu Jan 28, 2016 09:39 AM

Uwe,
Now I am waiting because I am compiling my application s with new fwh and bcc7 and I have some problems

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: Fivewin SlotMachine

Posted: Thu Jan 28, 2016 10:28 AM

I saw the exe ...good but to make a good animation engine you have to think that each wheel must turn 9 images and you should also implement a system that shows the images more or less times: for example, those who have to go out more and those who have never come out or sometimes (those who are at the top of the standings), then I use the class Gdiplus to view images, generally in the slot you see there are 3 images per wheel (and 5 rings), there are 4 slots in the new images to 5 wheels but line of payment are 100 and not 40/25/10/5

if you wish help me try to create a bonus game type
samples:
1. High card or less Card
2. BlackJack ( small) user->Pc
3. see the slot ( http://www.cartolinefree.eu/santaslot/index.html) when there is the bonus I have on my site 5 box and the use can select only 3 box to have the points . How We can implement it on fwh?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: Fivewin SlotMachine

Posted: Tue Feb 02, 2016 10:33 AM
Silvio,

I tested displaying animated GIF's inside ttitles to simulate turning wheels.
It is possible and works fine.
I will test / create VERTICAL animated GIF's, using some symbols
How can I stop / close the GIF's after some defined turns ?
Maybe the only solution : closing the ttitles and reopen them ?



any idea about to stop / closing the GIF ?

best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Fivewin SlotMachine

Posted: Tue Feb 02, 2016 10:44 AM

Uwe,

oGif:Stop()

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: Fivewin SlotMachine

Posted: Tue Feb 02, 2016 02:34 PM
Antonio,

thank You very much.
I finished my test to display animated Gif's inside TTitles with VERTICAL-movements like a turning wheel

It is just the basics, to test and show how it works
5 Gifs are running the same time, they stop after a defined time / turns
and the end-result-images are shown.
To make it perfect, You need 5 Gif-files. Each gif must start with a different image.
For my test Ii used only 3 GIF-files

Animated gifs are included : a complete working-set with different start-images and size adjusted.
1 animated gif includes 3 images with 3 subimages each
The logic :



The best FREE Anigifcreator and easy to use You can find at
http://www.photoscape.org

Downlod my complete test
http://www.pflegeplus.com/DOWNLOADS/Anigif1.zip

1. the start-images are shown
2. the button < SPIN > creates and runs 5 animated GIF-files
3. the spinning stops after a defined time
4. a random-generator defines the end-result images




From the download-page select the language

the usage :



Add the images and select movement to top ( wheel-effect )



best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Fivewin SlotMachine

Posted: Tue Feb 02, 2016 06:47 PM

Uwe,

great work! :-)

What screen resolution are you using ?

Here I am testing with 1400 x 1050 and the spin and pay table buttons are not properly placed in the right location

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: Fivewin SlotMachine

Posted: Thu Feb 04, 2016 10:13 AM
Antonio,

the screen resolution I'm using is 1024 x 768
That is the lowest used with modern monitors

I tested TRANSPARENT, but it seems not to be supported ?

There is a great tool to make animated gif's transparent < gifsicle >
As well it is FREE of charge !
Download from :
https://eternallybored.org/misc/gifsicle/

gifsicle is a powerful command-line program for creating, editing, manipulating, and getting information about GIF images and animations.
Gifsicle normally processes input GIF files according to its command line options and writes the result to the standard output. The −i option, for example, tells gifsicle to interlace its inputs:
gifsicle −i < pic.gif > interlaced-pic.gif
Gifsicle is good at creating and manipulating GIF animations. By default, it combines two or more input files into a “flipbook” animation:
gifsicle pic1.gif pic2.gif pic3.gif > animation.gif
Use options like −−delay, −−loopcount, and −−optimize to tune your animations.
To modify GIF files in place, use the −−batch option. With −−batch, gifsicle will modify the files you specify instead of writing a new file to the standard output. To interlace all the GIFs in the current directory, you could say:
gifsicle −−batch −i *.gif


To explode ‘Halo.gif’ into its component frames:

gifsicle −−explode Haloanim.gif
ls Halo.gif*

Results
Halo.gif Halo.gif.000 Halo.gif.001 Halo.gif.002 Halo.gif.003 ......





I will do some more tests with animated Gif's

best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM

Re: Fivewin SlotMachine

Posted: Wed Mar 02, 2016 03:15 PM

Buen dia,

Silvio algun avance para mostrar con SlotMachine ?

Puedes contactarme por albeiroval [arroba] gmail[.]com

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: Fivewin SlotMachine

Posted: Wed Mar 02, 2016 08:59 PM

sent ademo 5 reels.
U can found a slot at my site http://www.eoeo.it
for the 5reels i made a roller class but I'n working on it to make others features

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM

Re: Fivewin SlotMachine

Posted: Mon Sep 18, 2017 11:29 PM
ukoenig wrote: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 :-)


Saludos Mr.Uwe, estoy diseñando el sistema de ruleta de la suerte y me gustaria usar un fondo en 3D de un casino o parecido al que tienes aca, puede recomendarme alguna pagina web para ver algunos fondos haber si alguno me sirve para mi proyecto.? saludos, gracias... :-)

Greetings Mr.Uwe, I am designing the roulette system of luck and I would like to use a 3D background of a casino or similar to the one you have here, you can recommend me some website to see some funds if any one serves me for my project. ? greetings thank you... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion