#120 - The Slots Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|523\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #120 - The Slots Challenge
Tue, 09 Oct 2007, 16:27
Jayenkai	Wednesday Workshop #120 : The Slots Challenge Time until Deadline Week : 10 October 2007 The Reason : Another "just for fun" challenge. The Challenge : This week, try to make a Slot Machine. They're nice and easy to make, and always fun to play. Extra Info 7-7-7! Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're probably already there! I got three cherries!! Stick your entry underneath this post, leaving a link to your zip or the source of your game, or whatever. Aww. Only two lemons?! (I really should get round to that Upload thing, shouldn't I!) If you can't figure it out, or have a really rubbish server, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and then entered into the next week's voting. Jackpot!!! (If there are any entries..) Please try to keep all entries within small file sizes. 2Mb is the average maximum for files. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. Last Week's Games Tum tee tum... -=-=- ''Load, Next List!''
Tue, 09 Oct 2007, 17:22
tnt23	wow, even you didn't do anything for last week. very sad. damn.. i haven't programmed in like a year. this seems easy but i don't think i'll have time. maybe i'm just closed-minded but is there any room for creativity with this? -=-=- What if this were not a hypothetical question?
Tue, 09 Oct 2007, 19:05
Jayenkai	Basic Classic "Slots", no, but most modern Fruit Machines have different combo types, and then there's all those little games, and things that pop up as you play, to keep the variety going. Plenty of possibilities.. Or you can keep it simple! -=-=- ''Load, Next List!''
Fri, 12 Oct 2007, 07:22
Jayenkai	Taking on Tnt's mini-challenge, to try and make a slot machine as creatively unusual as possible, I've created This. Now that's what I call a slot machine Highest score so far : 62 -=-=- ''Load, Next List!''
Fri, 12 Oct 2007, 14:28
Forklift_Fred	That's genius I just had a good run and made it across three times, one of which had a bonus... New Highscore : 81 I'm going to try one in 3D... Probably setting sights too high again but there's learning to be had in a challenge and that's what I'm here for -=-=- Come rain or shine...
Sat, 13 Oct 2007, 11:20
Nolan	That's really awesome, Jay! High Score: 80
Sat, 13 Oct 2007, 14:46
Dabz	98! Nice little game J! Dabz
Sat, 13 Oct 2007, 19:51
Yo! Wazzup?	85 like the game Get your own submissons in!!! EDIT: 96 Lowest score so far: 20 LOL -=-=- Hi everyone! I'm new to Blitz and only 10 years old so all things coding is gush to me
Sun, 14 Oct 2007, 19:09
tnt23	106!! that's skill right there. jnk... wow... o_O... I got pwned in my little challenge -=-=- What if this were not a hypothetical question?
Mon, 15 Oct 2007, 07:57
Forklift_Fred	138! Couple of bonus and your away (Shouldn't these scores be posted in the showcase rather than clogging up this page?) Amazingly addictive for a game of chance Jay! -=-=- Come rain or shine...
Mon, 15 Oct 2007, 08:03
Jayenkai	I haven't added a WW page for it, yet, sorry! Fill away! And, good scores, all! -=-=- ''Load, Next List!''
Tue, 16 Oct 2007, 17:14
Forklift_Fred	OK, just to show that I've made an effort despite starting late, here's this week's work in progress. Clearly passed the deadline and unfinished but it's turned into a project that I can now run with for a while longer Obviously, the graphics won't work but they were only numbers to get me started anyway and I've replaced them for now with text (Imagine the 8 is a bell, the 6 is a cherry and 0 is a bar). The audio was just to kill the mind numbing silence as I racked my brains trying to get it to work (It's just a click sound that probably came from a Blitz game I downloaded back in the BlitzCoder days) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Fruit Machine ;; ;; ============= ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; #120 (10/10/07 - 17/10/07) ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "Blitz Fruit Machine" Graphics3D 800,600,32,2 cam = CreateCamera() microphone=CreateListener(cam) CameraViewport cam,0,0,800,600 PositionEntity cam,-8,0,0 CameraZoom cam,4 light1 = CreateLight() Global soundclick=Load3DSound("sfx/CLCKTURN.WAV") Dim reels(3) Dim speeds#(3) Dim holds(3) Dim readys(3) Dim symbles(3,10) Dim scores(3) Dim reeltex(3) Dim maps(10) For m=1 To 10 maps(m)=LoadImage(m+".png") Next dat=OpenFile("reels.dat") textest=LoadImage("numbers1.png") For x=1 To 3 img=CreateImage(16,160) SetBuffer ImageBuffer(img) ClsColor 255,255,255 Cls Color 255,0,0 For y=10 To 1 Step -1 yy=y+2 If yy>10 Then yy=yy-10 symbles(x,yy)=ReadLine(dat) ;DrawImage(maps(symbles(x,yy)),0,160-((y)16)) Text 0,160-((y)16),symbles(x,yy) Next symbles(x,0)=symbles(x,10) ; This is to prevent any clockwise/anticlockwise trouble at 10/0 - Bizarre but needed! SaveBuffer(ImageBuffer(img),"temp_reel_img_"+x+".bmp") reeltex(x)=LoadTexture("temp_reel_img_"+x+".bmp") Next Color 255,255,255 SetBuffer BackBuffer() reels(1)=CreateCylinder (10,1) reels(2)=CreateCylinder (10,1) reels(3)=CreateCylinder (10,1) RotateMesh reels(1),90,0,0 RotateMesh reels(2),90,0,0 RotateMesh reels(3),90,0,0 ScaleEntity reels(1),1,1,0.25 ScaleEntity reels(2),1,1,0.25 ScaleEntity reels(3),1,1,0.25 MoveEntity reels(1),0,0,0.5 MoveEntity reels(3),0,0,-0.5 ;EntityColor reels(1),255,0,0 ;EntityColor reels(2),0,255,0 ;EntityColor reels(3),0,0,255 EntityTexture reels(1),reeltex(1) EntityTexture reels(2),reeltex(2) EntityTexture reels(3),reeltex(3) RotateTexture reeltex(1),-90 RotateTexture reeltex(2),-90 RotateTexture reeltex(3),-90 PointEntity cam,reels(2) Global ready=True Global spun=False Global credits=10 Global score=0 Global scored=True While Not KeyHit(1) If KeyHit(57) Or KeyHit(82) Then ; Spin (SPACE or 0) If ready=True Then If Not holds(1) Then speeds(1)=Rnd(20,30) If Not holds(2) Then speeds(2)=Rnd(-30,-20) If Not holds(3) Then speeds(3)=Rnd(20,30) ready=False spun=True scored=False End If Else If KeyHit(79) And ready=True Then ; Nudge 1 down (1) speeds(1)=2 ready=False scored=False Else If KeyHit(71) And ready=True Then ; Nudge 1 up (7) speeds(1)=-2 ready=False scored=False Else If KeyHit(75) And ready=True Then ; Hold 1 (4) HoldReel(1) ready=False End If If KeyHit(80) And ready=True Then ; Nudge 2 down (2) speeds(2)=2 ready=False scored=False Else If KeyHit(72) And ready=True Then ; Nudge 2 up (8) speeds(2)=-2 ready=False scored=False Else If KeyHit(76) And ready=True Then ; Hold 2 (5) HoldReel(2) ready=False End If If KeyHit(81) And ready=True Then ; Nudge 3 down (3) speeds(3)=2 ready=False scored=False Else If KeyHit(73) And ready=True Then ; Nudge 3 up (9) speeds(3)=-2 ready=False scored=False Else If KeyHit(77) And ready=True Then ; Hold 3 (6) HoldReel(3) ready=False End If End If SpinReel(1) SpinReel(2) SpinReel(3) UpdateWorld RenderWorld scores(1)=((EntityRoll(reels(1)))+180)/36 scores(2)=((EntityRoll(reels(2)))+180)/36 scores(3)=((EntityRoll(reels(3)))+180)/36 Color 255,0,0 Line 250,240,570,240 Line 250,375,570,375 Color 255,255,255 ; Text 255,510,scores(1) ; Text 355,510,scores(2) ; Text 455,510,scores(3) Text 255,530,symbles(1,scores(1)) Text 355,530,symbles(2,scores(2)) Text 455,530,symbles(3,scores(3)) If holds(1)=True Then Text 255,300,"HOLD" If holds(2)=True Then Text 355,300,"HOLD" If holds(3)=True Then Text 455,300,"HOLD" Text 0,0, "Credits "+credits Text 0,10," Score "+(score10) Text 0,20,ready+" "+spun Flip If CheckReel(1) And CheckReel(2) And CheckReel(3) Then UpdateScore() Wend DeleteFile("temp_reel_img_1.bmp") DeleteFile("temp_reel_img_2.bmp") DeleteFile("temp_reel_img_3.bmp") End Function SpinReel(reel) If holds(reel)=False ; DebugLog speeds(reel) If (speeds(reel)<2.1 And speeds(reel)>-2.1) Or spun=True Then ; Speed between -2 and 2 to nudge, OR sun=true to spin normally If speeds(reel)<>0 Then TurnEntity reels(reel),0,0,speeds(reel) ;[Block] Play sound at specified intervals check$=EntityRoll(reels(reel)) loc=Instr(check$,".") If loc>0 Then check$=Mid$(check$,loc-1,1) EndIf If check$=0 Then EmitSound(soundclick,reels(reel)) ;[End Block] End If If speeds(reel)>0 Then speeds(reel)=speeds(reel)-0.1 Else If speeds(reel)<0 Then speeds(reel)=speeds(reel)+0.1 End If If speeds(reel)<0.25 And speeds(reel)>-0.25 Then speeds(reel)=0 checkroll#=EntityRoll(reels(reel))+180 checkdiff#=((checkroll/36)-(Int(checkroll)/36)) If (Int(EntityRoll(reels(reel))/36)36) > ((EntityRoll(reels(reel))/36)36) Then TurnEntity reels(reel),0,0,1 If (Int(EntityRoll(reels(reel))/36)36) < ((EntityRoll(reels(reel))/36)36) Then TurnEntity reels(reel),0,0,-1 If checkdiff<1 And checkdiff>0 Then RotateEntity reels(reel),0,0,(Int(EntityRoll(reels(reel)))) ; holds(reel)=False readys(reel)=True End If End If End If Else If ready=True And speeds(1)=0 And speeds(2)=0 And speeds(3)=0 And spun=True Then holds(reel)=false End If End Function Function CheckReel(reel) intreel#=(Int(EntityRoll(reels(reel))));/36)36) fullreel#=((EntityRoll(reels(reel))));/36)36) intcheck#=TwoDecimal$(intreel#) fullcheck#=TwoDecimal$(fullreel#) If intcheck# = fullcheck# Then readys(reel)=True ; speeds(reel)=0 Return True End If End Function Function TwoDecimal$(integer$) loc=Instr(integer$,".") If loc>0 Then twodec$=Mid$(integer$,1,loc+2) Else twodec=integer$ EndIf Return twodec$ End Function Function HoldReel(reel) ; Stop If readys(reel)=True Then If holds(reel)=True Then holds(reel)=False DebugLog "release "+reel Else If holds(reel)=False Then holds(reel)=True ;speeds(reel)=0 DebugLog "Hold "+reel End If If holds(1)=True Or holds(2)=True Or holds(3)=True Then spun=False Else spun=True End If End If End Function Function UpdateScore() If scored=False And speeds(1)=0 And speeds(2)=0 And speeds(3)=0 Then score1=symbles(1,scores(1)) score2=symbles(2,scores(2)) score3=symbles(3,scores(3)) DebugLog score1+" "+score2+" "+score3 DebugLog "Score before "+score If score1=10 And score2=10 And score3=10 Then ; All Bar=Payout credits=credits+score score=0 DebugLog "Score: "+score1+" "+score2+" "+score3+" = All Bar - payout" Else If (score1=10 And score2=10) Or (score1=10 And score3=10) Or (score2=10 And score3=10) Then score=0 ; Pair of Bars resets score DebugLog "Score: "+score1+" "+score2+" "+score3+" = Two Bar - reset score" Else If score1=10 Or score2=10 Or score3=10 Then ; A bar gives no points DebugLog "Score: "+score1+" "+score2+" "+score3+" = A Bar - no score" ;no score Else If score1=score2 And score1=score3 Then ; Full House (value of triplet x 2) score=score+(score16) DebugLog "Score: "+score1+" "+score2+" "+score3+" = Full house - value of triplet x 2" Else If score3=score2+1 And score2=score1+1 Then ; Run Up (sum of scores) score=score+score1+score2+score3 DebugLog "Score: "+score1+" "+score2+" "+score3+" = Run Up - sum of scores" Else If score3=score2-1 And score2=score1-1 Then ; Run Down (double sum of scores) score=score+(score12)+(score22)+(score32) DebugLog "Score: "+score1+" "+score2+" "+score3+" = Run Down - double sum of scores" Else If score1=8 And score3=8 Then ; Pair of Bells (split) score=score+16 DebugLog "Score: "+score1+" "+score2+" "+score3+" = Pair of bells - 2 x 8 (16)" Else If score2=6 And (score1=6 Or score3=6) ; Pair of Cherries (adjacent) score=score+12 DebugLog "Score: "+score1+" "+score2+" "+score3+" = Pair of Cherries - 2 x 6 (12)" End If scored=True DebugLog "Score after "+score End If ready=True End Function --v Judge it as a bare bones work in progress and hopefully you'll see where I'm going with it. If you run it in debug mode you see what all the scoring is about. It's Blitz3D so if anyone is desperate to try it as an EXE just let me know and I'll run one up. Oh, You'll need to make the dat file for it use Notepad if you like and save the following in a file called reels.dat* 2 9 3 7 1 5 10 6 8 4 4 10 6 5 1 2 7 9 8 3 4 1 8 5 3 2 10 9 6 7 --v Oh and the controls... Numberpad based: The three column relate to the three wheels: 7 8 9 = nudge up 4 5 6 = hold 1 2 3 = nudge down 0 to spin. -=-=- Come rain or shine...
Tue, 16 Oct 2007, 17:19
Jayenkai	Lovely Shame you didn't have the time to finish it, really. I like the little "bump" they do at the end of their spins! -=-=- ''Load, Next List!''
Tue, 16 Oct 2007, 17:52
Forklift_Fred	Thanks. The bump kind of happened by accident but like the reel thing it's just the reels slotting into the centre position I may have missed out on the workshop deadline but I'm determined to actually finish this one As you can see, it's basically all there, just needs whistles and bells and a bit of control over the nudge and hold options. Let's reconvene in a week's time and see where it is then -=-=- Come rain or shine...
Tue, 16 Oct 2007, 23:44
Dabz	May as throw my old fruit machine into the mix:- www.syntaxbomb.com/forum/index.php?action=dlattach;topic=12.0;attach=37 Full source and you can do what the hell you want with it! Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit