#111 - The Gravity Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|734\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #111 - The Gravity Challenge
Tue, 31 Jul 2007, 16:54
Jayenkai	Wednesday Workshop #111 : The Gravity Challenge Time until Deadline Week : 1 August 2007 The Reason : I could've sworn I'd planned this one months ago! The Challenge : Gravity can be fun, so make a game that makes full use of it. Extra Info If you need a good starting point, try playing around with Shroom_Monk's Orbital Physics code snippet. Of course, your game needn't be like that. You could have a good old fashioned Moon-Lander gravity game! Whatever you choose to make, add plenty of gravity! .. 'cos... you know.. that's this week's theme! 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! Stick your entry underneath this post, leaving a link to your zip or the source of your game, or whatever. (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. (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 Uhoh! Nothing happened again!! -=-=- ''Load, Next List!''
Tue, 31 Jul 2007, 17:44
magicman	well, i have to enter this one, theres just no way around it. -=-=- Stuff... Yeah...
Wed, 01 Aug 2007, 01:21
shroom_monk	Summer Holidays are here, so I've got time, plus it's my gravity engine as the picture! I'll probably enter. Although the rules state that all coding must be done in the week, am I allowed to copy, paste, and tweak bits of my orbit program? -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Wed, 01 Aug 2007, 02:08
Jayenkai	Yes, Of course you can..
Wed, 01 Aug 2007, 08:35
JL235	I'd like to enter Space Snake (for the third, or fourth, time). It has gravity in there from the Earth. Or as some people believe, Australia.
Mon, 06 Aug 2007, 05:28
Jayenkai	Tweaked from bits of the code in Shroom's snippet. Not really much of a game, but still fun to watch. Note : Disable "CanLock" at the top, if you're not getting the lines showing up.. CanLock=1 AppTitle "Orbit" Graphics 800,600,24,2 SetBuffer BackBuffer() Type ile Field x#,y#,xv#,yv# Field r,g,b End Type Type net Field x#,y#,grav#,pull# Field r,g,b End Type Type get Field x#,y# End Type .restart For tar.get=Each get Delete tar.get Next For miss.ile=Each ile Delete miss.ile Next For pla.net=Each net Delete pla.net Next haveshot=0 Repeat:Until MouseDown(1)=0 Cls SeedRnd MilliSecs() For n=1 To 5 pla.net=New net pla\x=Rnd(100,700) pla\y=Rnd(100,500) pla\grav=Rnd(0.4,0.7) pla\pull=Rnd(100,200) pla\r=200 pla\g=250 pla\b=200 Next For n=1 To 25 tar.get=New get ;Mmmm.... Nougat... tar\x=Rnd(100,700) tar\y=Rnd(100,500) Next Repeat targetsleft=0 For tar.get=Each get kill=0 For miss.ile=Each ile If Abs(miss\x-tar\x)<10 And Abs(miss\y-tar\y)<10 Then kill=1:Delete miss.ile Next Color 80,255,80:If kill=1 Then Color 0,80,0 Rect tar\x-8,tar\y-8,16,16,0 If kill=1 For n=0 To 18 an.ile=New ile an\x=tar\x an\y=tar\y ang=n20 an\yv=0-Cos(Ang)2 an\xv=0-Sin(ang)2 an\r=0:an\g=255:an\b=0 Next Delete tar.get EndIf If kill=0 Then targetsleft=targetsleft+1 Next For pla.net=Each net For miss.ile=Each ile spdis# = Sqr#(((miss\x# - pla\x#) ^ 2) + ((miss\y# - pla\y#) ^ 2)) gmul# = 1-(spdis# / pla\pull):If gmul<0 Then gmul=0 DebugLog gmul miss\xv# = miss\xv# + (Cos#(ATan2#(miss\y# - pla\y#,miss\x# - pla\x) + 180) pla\grav * gmul#) miss\yv# = miss\yv# + (Sin#(ATan2#(miss\y# - pla\y#,miss\x# - pla\x) + 180) * pla\grav * gmul#) Next Color pla\r,pla\g,pla\b Oval pla\x,pla\y,5,5,True Next missleft=0 If CanLock=1 Then LockBuffer BackBuffer() For miss.ile=Each ile kill=0 miss\x=miss\x+miss\xv miss\y=miss\y+miss\yv Color miss\r,miss\g,miss\b Line miss\x,miss\y,miss\x+miss\xv,miss\y+miss\yv If miss\x<0 Or miss\x>800 Or miss\y<0 Or miss\y>600 Then kill=1 missleft=1 If kill=1 Then Delete miss.ile Next If CanLock=1 Then UnlockBuffer BackBuffer() If missleft=0 And haveshot=1 And targetsleft>0 Then Color 255,255,255:Text 400,250,"Bad Luck!",1,1:Text 400,350,"Try Again..",1,1:If MouseDown(1) Then Goto restart If haveshot=1 And targetsleft=0 Then Color 255,255,255:Text 400,250,"Yeay!",1,1:Text 400,350,"Have another go!",1,1:If MouseDown(1) Then Goto restart MouseAng#=ATan2(600-MouseY(),400-MouseX()) dx#=0-Cos(MouseAng)2 dy#=0-Sin(MouseAng)2 If MouseDown(1) And HaveShot=0 Then Haveshot=1:miss.ile=New ile:miss\x=400:miss\y=600:miss\xv=dx:miss\yv=dy:miss\r=Rand(3,5)50:miss\g=Rand(3,5)50:miss\b=Rand(3,5)*50 Flip If CanLock=1 Then LockBuffer BackBuffer() For miss.ile=Each ile v=100 Color miss\r/2,miss\g/2,miss\b/2 Line miss\x,miss\y,miss\x+miss\xv,miss\y+miss\yv If miss\r>v Then miss\r=miss\r-1 If miss\g>v Then miss\g=miss\g-1 If miss\b>v Then miss\b=miss\b-1 If miss\r<=v And miss\g<=v And miss\b<=v Then Delete miss.ile Next If CanLock=1 Then UnlockBuffer BackBuffer() Until KeyDown(1) End --v Oh, and Shroom, this'll probably be slow on your system! Lots and lots of maths! -=-=- ''Load, Next List!''
Mon, 06 Aug 2007, 06:56
Nolan	I should be entering this one, if work doesn't get in the way. I started on my entry yesterday. -=-=- nolandc.com
Mon, 06 Aug 2007, 10:20
shroom_monk	Gah! I really must finish my entry. Bearing in mind I started again this morning, I don't know if I will... Jay, you said at the top you thought we'd done this before. Perhaps you're thinking of the Physics Challenge or the Zero G Challenge? -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Mon, 06 Aug 2007, 10:48
Jayenkai	Yeah, but I'm sure ages ago I'd said we'd do something to do with your gravity thing.. I must've just never got round to it. -=-=- ''Load, Next List!''
Mon, 06 Aug 2007, 23:36
magicman	sadly not going to be able to enter this one, i worked with 4 different ideas and didnt like any of them enough to finish until the 4th and thought it had such potential i would just make it in to a bigger game than just a WW entry.(plus it would take a hell of alot longer to make than the time i had.) -=-=- Stuff... Yeah...
Tue, 07 Aug 2007, 16:02
Jayenkai	Sitting here re-watching series 3 of Dr Who... It suddenly struck me that today's a WW night! 1 hour left to finish off any entries.. If not, never mind.. There's always next week! -=-=- ''Load, Next List!''
Wed, 08 Aug 2007, 00:20
shroom_monk	Due to what can only be put down to utter laziness on my part, I was unable to finish my entry for this week! But, I will try and finish it, and post it as a showcase. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!