-
Feb 17th, 2014, 04:47 PM
#1
-
Feb 18th, 2014, 12:07 AM
#2
Re: [VB.NET] Flappy Bird - By Jacob Roman
Also note that this is currently in its beta stages. I found a glitch tonight, which is an easy fix. Its just with the menus after fiddling with the physics and pipes, and when you goto Set Defaults, it wont erase the checks. Thats cause I completely forgot to put the code in to erase the checks. So to fix it, just replace the Set_Default_Settings sub with this code:
vb.net Code:
Public Sub Set_Default_Settings() Collision_Disabled = False frmMain.mnuNoCollision.Checked = Collision_Disabled Scalar = 150 frmMain.mnuScalar50.Checked = False frmMain.mnuScalar100.Checked = False frmMain.mnuScalar150.Checked = True frmMain.mnuScalar200.Checked = False Flap_Velocity = -3.5 frmMain.mnuFlapVelocity1.Checked = False frmMain.mnuFlapVelocity15.Checked = False frmMain.mnuFlapVelocity2.Checked = False frmMain.mnuFlapVelocity25.Checked = False frmMain.mnuFlapVelocity3.Checked = False frmMain.mnuFlapVelocity35.Checked = True frmMain.mnuFlapVelocity4.Checked = False frmMain.mnuFlapVelocity45.Checked = False frmMain.mnuFlapVelocity5.Checked = False GAME_SPEED = 3 frmMain.mnuGameSpeed1.Checked = False frmMain.mnuGameSpeed2.Checked = False frmMain.mnuGameSpeed3.Checked = True frmMain.mnuGameSpeed4.Checked = False frmMain.mnuGameSpeed5.Checked = False GAP_X = 250 frmMain.mnuGapDistance150.Checked = False frmMain.mnuGapDistance200.Checked = False frmMain.mnuGapDistance250.Checked = True frmMain.mnuGapDistance300.Checked = False GAP_Y = 175 frmMain.mnuMouthGap100.Checked = False frmMain.mnuMouthGap125.Checked = False frmMain.mnuMouthGap150.Checked = False frmMain.mnuMouthGap175.Checked = True frmMain.mnuMouthGap200.Checked = False frmMain.mnuMouthGap225.Checked = False Gravity = clsPhysics.EARTH_GRAVITY frmMain.mnuGravityEarth.Checked = True frmMain.mnuGravityMoon.Checked = False frmMain.mnuGravity0.Checked = False frmMain.mnuGravity05.Checked = False frmMain.mnuGravity1.Checked = False frmMain.mnuGravity15.Checked = False frmMain.mnuGravity2.Checked = False frmMain.mnuGravity25.Checked = False frmMain.mnuGravity3.Checked = False frmMain.mnuGravity35.Checked = False frmMain.mnuGravity4.Checked = False frmMain.mnuGravity45.Checked = False frmMain.mnuGravity5.Checked = False frmMain.mnuGravity55.Checked = False frmMain.mnuGravity6.Checked = False frmMain.mnuGravity65.Checked = False frmMain.mnuGravity7.Checked = False frmMain.mnuGravity75.Checked = False frmMain.mnuGravity8.Checked = False frmMain.mnuGravity85.Checked = False frmMain.mnuGravity9.Checked = False End Sub
Also if you are frustrated getting through the pipes, the games easier with the flap velocity set at 3. Its currently 3.5
-
Feb 19th, 2014, 03:16 PM
#3
Re: [VB.NET] Flappy Bird - By Jacob Roman
Can't even get past the first pipe!!
-
Feb 21st, 2014, 12:33 AM
#4
Re: [VB.NET] Flappy Bird - By Jacob Roman
For those getting transparency issues such as dclamp that look like this:
You quite possibly have an older DirectX installed. I managed to have the game working perfectly on a generic computer at college that had no DirectX at all by simply installing the DX runtime. So if you have this issue, follow these simple steps:
Download the offline DirectX Runtime:
http://www.microsoft.com/en-us/downl...s.aspx?id=8109
Next extract it into a temperary folder, and run DXSETUP.exe to install it, and boom, the game will work.
-
Apr 1st, 2014, 07:27 AM
#5
Registered User
Re: [VB.NET] Flappy Bird - By Jacob Roman
it look like the mario the popular one..
-
Apr 1st, 2014, 01:25 PM
#6
Re: [VB.NET] Flappy Bird - By Jacob Roman
Something that I noticed in your code that's pretty basic is all your MenuItem clicks. You could shrink this:
Code:
Private Sub mnuMouthGap100_Click(sender As Object, e As EventArgs) Handles mnuMouthGap100.Click
GAP_Y = 100
mnuMouthGap100.Checked = True
mnuMouthGap125.Checked = False
mnuMouthGap150.Checked = False
mnuMouthGap175.Checked = False
mnuMouthGap200.Checked = False
mnuMouthGap225.Checked = False
End Sub
Private Sub mnuMouthGap125_Click(sender As Object, e As EventArgs) Handles mnuMouthGap125.Click
GAP_Y = 125
mnuMouthGap100.Checked = False
mnuMouthGap125.Checked = True
mnuMouthGap150.Checked = False
mnuMouthGap175.Checked = False
mnuMouthGap200.Checked = False
mnuMouthGap225.Checked = False
End Sub
Private Sub mnuMouthGap150_Click(sender As Object, e As EventArgs) Handles mnuMouthGap150.Click
GAP_Y = 150
mnuMouthGap100.Checked = False
mnuMouthGap125.Checked = False
mnuMouthGap150.Checked = True
mnuMouthGap175.Checked = False
mnuMouthGap200.Checked = False
mnuMouthGap225.Checked = False
End Sub
Private Sub mnuMouthGap175_Click(sender As Object, e As EventArgs) Handles mnuMouthGap175.Click
GAP_Y = 175
mnuMouthGap100.Checked = False
mnuMouthGap125.Checked = False
mnuMouthGap150.Checked = False
mnuMouthGap175.Checked = True
mnuMouthGap200.Checked = False
mnuMouthGap225.Checked = False
End Sub
Private Sub mnuMouthGap200_Click(sender As Object, e As EventArgs) Handles mnuMouthGap200.Click
GAP_Y = 200
mnuMouthGap100.Checked = False
mnuMouthGap125.Checked = False
mnuMouthGap150.Checked = False
mnuMouthGap175.Checked = False
mnuMouthGap200.Checked = True
mnuMouthGap225.Checked = False
End Sub
Private Sub mnuMouthGap225_Click(sender As Object, e As EventArgs) Handles mnuMouthGap225.Click
GAP_Y = 225
mnuMouthGap100.Checked = False
mnuMouthGap125.Checked = False
mnuMouthGap150.Checked = False
mnuMouthGap175.Checked = False
mnuMouthGap200.Checked = False
mnuMouthGap225.Checked = True
End Sub
Down to this:
Code:
Private Sub MouthToolStripSubMenuItem_Click(sender As Object, e As EventArgs) Handles mnuMouthGap100.Click, mnuMouthGap125.Click, mnuMouthGap150.Click, mnuMouthGap175.Click, mnuMouthGap200.Click, mnuMouthGap225.Click
Dim menu_item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
For Each subItem As ToolStripMenuItem In MouthToolStripMenuItem.DropDownItems
subItem.Checked = False
Next
menu_item.Checked = True
GAP_Y = CInt(menu_item.Tag)
End Sub
Just set the tag property of each menu item to their represented GAP_Y number. So it's nothing really on performance, it's just on a matter of saving you typing. The same can be done for all of the dropdownitems that have a similar scenario.
Last edited by dday9; Apr 1st, 2014 at 01:33 PM.
-
Apr 22nd, 2014, 04:35 AM
#7
Addicted Member
Re: [VB.NET] Flappy Bird - By Jacob Roman
It works on windows 8
But it looks like this on windows 8.1
Both have the exact directx installed
Time you enjoy wasting is not wasted time
-
Aug 13th, 2014, 06:42 PM
#8
Banned
Re: [VB.NET] Flappy Bird - By Jacob Roman
-
Aug 14th, 2014, 12:14 AM
#9
Re: [VB.NET] Flappy Bird - By Jacob Roman
Originally Posted by Jacob Roman
Oh come on who didnt see this coming. I remade Flappy Bird from scratch based on the famous Android / iPhone app that got removed from the app store. It has realistic physics, very accurate collision detection, and the game is highly configurable from the menu. It even uses DirectX. The only thing that is missing is a title screen and a high score, which I plan to put in, in due time. So there will soon be an update. In the mean time, enjoy.
What a minute! That looks like it could be Mario Bros, that is if you put Mario in place of the bird. What is to stop Nintendo from suing?
when you quote a post could you please do it via the "Reply With Quote" button or if it multiple post click the "''+" button then "Reply With Quote" button.
If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu.
https://get.cryptobrowser.site/30/4111672
-
Aug 14th, 2014, 01:11 AM
#10
Re: [VB.NET] Flappy Bird - By Jacob Roman
Originally Posted by berny22
Wow you're a god.
Nah, I just have years of hardcore game programming experience
Originally Posted by Nightwalker83
What a minute! That looks like it could be Mario Bros, that is if you put Mario in place of the bird. What is to stop Nintendo from suing?
Good point. I could make Flappy Bird World, and add scrotum guns, lava pits, spikes, mushrooms, and epic boss battles o.O
-
Aug 14th, 2014, 02:44 AM
#11
Re: [VB.NET] Flappy Bird - By Jacob Roman
Originally Posted by Jacob Roman
Nah, I just have years of hardcore game programming experience
Good point. I could make Flappy Bird World, and add scrotum guns, lava pits, spikes, mushrooms, and epic boss battles o.O
Not sure if you remember the trouble the original creators for the Giana Sisters got in because Nintendo claimed it was a direct copy of Mario Brothers.
when you quote a post could you please do it via the "Reply With Quote" button or if it multiple post click the "''+" button then "Reply With Quote" button.
If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu.
https://get.cryptobrowser.site/30/4111672
-
Aug 21st, 2014, 01:00 AM
#12
New Member
Re: [VB.NET] Flappy Bird - By Jacob Roman
debug exe file is missing so i cant run it plz email me the file <email removed by moderator>
Last edited by dday9; Aug 21st, 2014 at 08:25 AM.
Reason: Removed email so OP doesn't get spammed to death
-
Aug 21st, 2014, 08:27 AM
#13
Re: [VB.NET] Flappy Bird - By Jacob Roman
-
Aug 26th, 2014, 11:16 AM
#14
Re: [VB.NET] Flappy Bird - By Jacob Roman
It should be in the x86 folder, not the debug folder because when doing directx in vb, you set it to x86, therfore the compiled exe gets tossed in there.
-
May 23rd, 2020, 05:31 AM
#15
Re: [VB.NET] Flappy Bird - By Jacob Roman
Originally Posted by evo74
It works on windows 8
But it looks like this on windows 8.1
Both have the exact directx installed
Out of the bloom, I decided to tackle this issue because it is now happening on my modern piece of hardware as well.
and I found a solution. Just comment out one line of code in modDX in the method Set_Renderstates()
vb.net Code:
'Device.SetRenderState(RenderStates.BlendOperation, TextureOperation.Add)
And it worked like a charm.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|