Developed or developing a new product in PureBasic? Tell the world about it.
em_uk
Enthusiast
Posts: 366 Joined: Sun Aug 08, 2010 3:32 pm
Location: Manchester UK
Post
by em_uk » Fri Feb 21, 2014 11:30 am
@coco2 my apologies! Did you see how touchy I got?! Haha! It because I had spent trying to make sure it was low on resources.
Glad you are all finding it useful to have a play around with the source.
@Danilo, seems I can program on the Mac as well then, marvelous!
----
R Tape loading error, 0:1
infratec
Always Here
Posts: 7618 Joined: Sun Sep 07, 2008 12:45 pm
Location: Germany
Post
by infratec » Fri Feb 21, 2014 1:31 pm
Hi,
for easier crossplatform use this:
Code: Select all
DataSection
IncludePath "audio"
flap:
IncludeBinary "flap.ogg"
flape:
coin:
IncludeBinary "coin.ogg"
coine:
crash:
IncludeBinary "crash.ogg"
crashe:
;
mod:
IncludeBinary "kkrhv.mod"
mode:
;sprites
IncludePath "gfx"
birdspr:
IncludeBinary "birdspr.png"
...
So you don't need to handle the / or \
And why not:
Code: Select all
Select Status
Case 0
SetWindowState(0, #PB_Window_Normal)
Case 1
SetWindowState(0, #PB_Window_Maximize)
EndSelect
Should be also crossplatform.
Bernd
luis
Addict
Posts: 3895 Joined: Wed Aug 31, 2005 11:09 pm
Location: Italy
Post
by luis » Fri Feb 21, 2014 1:39 pm
infratec wrote:
So you don't need to handle the / or \
You can just use "/" everywhere if the path it's not shown to the user.
Some nice history behind it ->
http://blogs.msdn.com/b/larryosterman/a ... 32386.aspx
"Have you tried turning it off and on again ?"
Danilo
Addict
Posts: 3036 Joined: Sat Apr 26, 2003 8:26 am
Location: Planet Earth
Post
by Danilo » Fri Feb 21, 2014 7:54 pm
LOL... Thanks!
electrochrisso
Addict
Posts: 989 Joined: Mon May 14, 2007 2:13 am
Location: Darling River
Post
by electrochrisso » Sat Feb 22, 2014 3:34 am
coco2 wrote: No I'm sure any laptop will play it but I was concerned with frustration being taken out on it being a hard game and a single button one
Nice game, Works good on my old Acer Netbook - N550, 1 gig ram, 1024 x 600, Win 7 Starter.
Would be good to include a choice of modes between beginner to advanced, I am hard pressed to get past a score of 5 at the moment.
PureBasic! Purely the best
Polo
Addict
Posts: 2422 Joined: Tue May 06, 2003 5:07 pm
Location: UK
Post
by Polo » Sat Feb 22, 2014 9:33 pm
Hello,
Is it possible for you (or anyone really) to make an easier version to play?
I want to use it on Monday at school to teach averages but it seems too hard to get high scores
luis
Addict
Posts: 3895 Joined: Wed Aug 31, 2005 11:09 pm
Location: Italy
Post
by luis » Sat Feb 22, 2014 10:17 pm
Polo wrote: Hello,
Is it possible for you (or anyone really) to make an easier version to play?
Maybe you can start from here:
49 #maxpipes=4 : #gap=230 :#pipespeed=2000: score=0 ; #maxpipes=4 : #gap=190 :#pipespeed=1001: score=0
662 val = Abs(Sin(angle*1.6)*4 ) ;val = Abs(Sin(angle*1.6)*9 )
"Have you tried turning it off and on again ?"
Polo
Addict
Posts: 2422 Joined: Tue May 06, 2003 5:07 pm
Location: UK
Post
by Polo » Sat Feb 22, 2014 10:37 pm
Thanks Luis! It makes it non full screen for some reason when I change these values, any ideas why?
Must be something simple, don't really have the time to look at it
luis
Addict
Posts: 3895 Joined: Wed Aug 31, 2005 11:09 pm
Location: Italy
Post
by luis » Sat Feb 22, 2014 10:56 pm
No idea, I tried and works here, it just maximize the window (so the aspect ratio is a little funny on my 16:10, the bird is flattened).
F12 goes back and forth.
"Have you tried turning it off and on again ?"
Polo
Addict
Posts: 2422 Joined: Tue May 06, 2003 5:07 pm
Location: UK
Post
by Polo » Sat Feb 22, 2014 11:07 pm
luis wrote: No idea, I tried and works here, it just maximize the window (so the aspect ratio is a little funny on my 16:10, the bird is flattened).
F12 goes back and forth.
On the Mac it looks a bit odd, will try to have a look
em_uk
Enthusiast
Posts: 366 Joined: Sun Aug 08, 2010 3:32 pm
Location: Manchester UK
Post
by em_uk » Sun Feb 23, 2014 1:03 am
You can make the game easier if you change :
#pipespeed is how long to wait be fore showing a new pipe
Code: Select all
Line 49 : #maxpipes=4 : #gap=190 :#pipespeed=1401: score=0
And if you change the following line is how many pixels to scroll the pipes per update :
Code: Select all
Line 323 : If bgmove=1 : \x=\x-3 : EndIf
And finally the volicity at which we head to the ground :
----
R Tape loading error, 0:1
em_uk
Enthusiast
Posts: 366 Joined: Sun Aug 08, 2010 3:32 pm
Location: Manchester UK
Post
by em_uk » Wed Apr 02, 2014 7:18 pm
----
R Tape loading error, 0:1
Liqu
User
Posts: 77 Joined: Sun Apr 21, 2013 10:31 am
Post
by Liqu » Fri Apr 04, 2014 6:37 am
whoa,
great job! thank you very much!