Game Time! - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|645\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Game Time!
Page : 1 2 Next Prev
Mon, 07 May 2007, 04:02
Jayenkai	You know that game where you write a line of a story, then the next forum member carries it on. I figured we could do something like that.. Add a bit, pass it on.. Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 SetBuffer BackBuffer() Type ayer Field X#,Y#,GoX#,GoY# End Type .GameLoop Repeat EndofGame=0 Gosub PlayLoop Until EndofGame=99 .PlayLoop pl.ayer=New ayer pl\X=400 pl\Y=300 pl\GoX=0 pl\GoY=0 Repeat Cls n=0 For pl.ayer=Each ayer n=n+1 Color 0,0,255 If n=1 ;If 1 then our player. Color 255,0,0 If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 EndIf pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH Rect pl\x-4,pl\y-4,8,8,1 Next Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 Return --v You can add as little or as much as you'd like. You may also tweak bits as you see fit. But before you post your alteration, reload the page to ensure that no-one else has posted in the time it took you to do your tweak. -=-=- ''Load, Next List!''
Mon, 07 May 2007, 04:38
shroom_monk	Just had to add some gravity: Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type grav.ity = New ity grav\x# = ScrW / 2 grav\y# = scrH / 2 grav\p# = 0.5 .GameLoop Repeat EndofGame=0 Gosub PlayLoop Until EndofGame=99 .PlayLoop pl.ayer=New ayer pl\X=400 pl\Y=300 pl\GoX=0 pl\GoY=0 Repeat Cls n=0 For pl.ayer=Each ayer n=n+1 If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 EndIf For grav.ity = Each ity spdis# = Sqr#(((sx# - 200) ^ 2) + ((sy# - 150) ^ 2)) gmul# = 1 - (spdis# / 300) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH Color 255,0,0 Rect pl\x-4,pl\y-4,8,8,1 Color 0,255,0 For grav.ity = Each ity Oval grav\x# - 2,grav\y# - 2,5,5,True Next Next Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 Return --v -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Mon, 07 May 2007, 04:55
blanko1324	Collect the blue dots to earn points Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type Type ible ;<- this is weird, but I'll follow along. Field x,y End Type grav.ity = New ity grav\x# = ScrW / 2 grav\y# = scrH / 2 grav\p# = 0.5 For i = 0 To 20 collect.ible = New ible collect\x = Rand(0,800) collect\y = Rand(0,600) Next .GameLoop Repeat EndofGame=0 Gosub PlayLoop Until EndofGame=99 .PlayLoop pl.ayer=New ayer pl\X=400 pl\Y=300 pl\GoX=0 pl\GoY=0 Repeat Cls n=0 For pl.ayer=Each ayer n=n+1 If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 EndIf For grav.ity = Each ity spdis# = Sqr#(((sx# - 200) ^ 2) + ((sy# - 150) ^ 2)) gmul# = 1 - (spdis# / 300) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) Next For collect.ible = Each ible If pl\X >= collect\x - 5 And pl\X <= collect\x + 5 If pl\Y >= collect\y - 5 And pl\Y <= collect\y + 5 score = score + 1 Delete collect EndIf EndIf Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH Color 255,0,0 Rect pl\x-4,pl\y-4,8,8,1 Color 0,255,0 For grav.ity = Each ity Oval grav\x# - 2,grav\y# - 2,5,5,True Next Next For collect.ible = Each ible Color 0,0,255 Rect collect\x-5,collect\y-5,10,10,1 Next Color 255,255,255 Text 400,100,"Score: " + score,1,1 Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 Return --v Best forum game ever. -=-=- My Twitter
Mon, 07 May 2007, 05:19
shroom_monk	Fixed glitch in gravity, changed bits of gravity, and now blocks are affected by gravity: Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type Type ible ;<- this is weird, but I'll follow along. Field x#,y# Field vx#,vy# End Type grav.ity = New ity grav\x# = ScrW / 2 grav\y# = scrH / 2 grav\p# = 0.5 For i = 0 To 20 collect.ible = New ible collect\x# = Float Rand(0,800) collect\y# = Float Rand(0,600) collect\vx# = 0 collect\vy# = 0 Next .GameLoop Repeat EndofGame=0 Gosub PlayLoop Until EndofGame=99 .PlayLoop pl.ayer=New ayer pl\X=50 pl\Y=50 pl\GoX=0 pl\GoY=0 Repeat Cls n=0 For pl.ayer=Each ayer n=n+1 If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 EndIf For grav.ity = Each ity spdis# = Sqr#(((pl\GoX# - grav\x#) ^ 2) + ((pl\GoY# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) Next For collect.ible = Each ible For grav.ity = Each ity spdis# = Sqr#(((collect\x# - grav\x#) ^ 2) + ((collect\y# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 collect\vx# = collect\vx# + (Cos#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) collect\vy# = collect\vy# + (Sin#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) Next collect\x# = collect\x# + collect\vx# collect\y# = collect\y# + collect\vy# If pl\X >= collect\x - 5 And pl\X <= collect\x + 5 If pl\Y >= collect\y - 5 And pl\Y <= collect\y + 5 score = score + 1 Delete collect EndIf EndIf Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH Color 255,0,0 Rect pl\x-4,pl\y-4,8,8,1 Color 0,255,0 For grav.ity = Each ity Oval grav\x# - 2,grav\y# - 2,5,5,True Next Next For collect.ible = Each ible Color 0,0,255 Rect collect\x-5,collect\y-5,10,10,1 Next Color 255,255,255 Text 400,100,"Score: " + score,1,1 Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 Return --v -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Mon, 07 May 2007, 05:22
shroom_monk	Aah! That made it possible to loose blocks off the screen, cos the gravity has less effect. Fixed: Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type Type ible ;<- this is weird, but I'll follow along. Field x#,y# Field vx#,vy# End Type grav.ity = New ity grav\x# = ScrW / 2 grav\y# = scrH / 2 grav\p# = 0.5 For i = 0 To 20 collect.ible = New ible collect\x# = Float Rand(0,800) collect\y# = Float Rand(0,600) collect\vx# = 0 collect\vy# = 0 Next .GameLoop Repeat EndofGame=0 Gosub PlayLoop Until EndofGame=99 .PlayLoop pl.ayer=New ayer pl\X=50 pl\Y=50 pl\GoX=0 pl\GoY=0 Repeat Cls n=0 For pl.ayer=Each ayer n=n+1 If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 EndIf For grav.ity = Each ity spdis# = Sqr#(((pl\GoX# - grav\x#) ^ 2) + ((pl\GoY# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) Next For collect.ible = Each ible For grav.ity = Each ity spdis# = Sqr#(((collect\x# - grav\x#) ^ 2) + ((collect\y# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 collect\vx# = collect\vx# + (Cos#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) collect\vy# = collect\vy# + (Sin#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) Next collect\x# = collect\x# + collect\vx# collect\y# = collect\y# + collect\vy# If collect\x<0 Then collect\x=collect\x+scrW If collect\x>ScrW Then collect\x=collect\x-scrW If collect\y<0 Then collect\y=collect\y+scrH If collect\y>ScrH Then collect\y=collect\y-scrH If pl\X >= collect\x - 5 And pl\X <= collect\x + 5 If pl\Y >= collect\y - 5 And pl\Y <= collect\y + 5 score = score + 1 Delete collect EndIf EndIf Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH Color 255,0,0 Rect pl\x-4,pl\y-4,8,8,1 Color 0,255,0 For grav.ity = Each ity Oval grav\x# - 2,grav\y# - 2,5,5,True Next Next For collect.ible = Each ible Color 0,0,255 Rect collect\x-5,collect\y-5,10,10,1 Next Color 255,255,255 Text 400,100,"Score: " + score,1,1 Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 Return --v \|edit\| That last code was broke. Fixed again! \|edit\| -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Mon, 07 May 2007, 05:42
Jayenkai	Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 Starfield=CreateImage(scrw,scrh) SetBuffer ImageBuffer(starfield) Color 16,16,16 Rect 0,0,scrw,scrh,1 For n=1 To 1000 d=Rand(5,25)10 Color d,d,d Plot Rand(0,scrw),Rand(0,scrh) Next SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type Type ible ;<- this is weird, but I'll follow along. Field x#,y# Field vx#,vy# End Type .GameLoop Repeat EndofGame=0 For pl.ayer=Each ayer Delete pl.ayer Next For grav.ity=Each ity Delete grav.ity Next For collect.ible=Each ible Delete collect.ible Next Gosub PlayLoop Until EndofGame=99 .PlayLoop grav.ity = New ity grav\x# = ScrW / 2 grav\y# = scrH / 2 grav\p# = 0.5 For i = 0 To 20 collect.ible = New ible collect\x# = Float Rnd(0,800) collect\y# = Float Rnd(0,600) collect\vx# = 0 collect\vy# = 0 Next pl.ayer=New ayer pl\X=50 pl\Y=50 pl\GoX=0 pl\GoY=0 Repeat DrawImage starfield,0,0 n=0 For pl.ayer=Each ayer n=n+1 For grav.ity = Each ity spdis# = Sqr#(((pl\GoX# - grav\x#) ^ 2) + ((pl\GoY# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) If Abs(pl\x-grav\x)<4 And Abs(pl\y-grav\y)<4 endofgame=1 EndIf Next For collect.ible = Each ible If Abs(pl\x-collect\x)<10 And Abs(pl\y-collect\y)<10 score = score + 1 Delete collect EndIf Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 Color 255,0,0 EndIf Rect pl\x-4,pl\y-4,8,8,1 Next Color 0,0,0 For grav.ity = Each ity Oval grav\x# - 8,grav\y# - 8,16,16,True Next For collect.ible = Each ible For grav.ity = Each ity spdis# = Sqr#(((collect\x# - grav\x#) ^ 2) + ((collect\y# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 collect\vx# = collect\vx# + (Cos#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) collect\vy# = collect\vy# + (Sin#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) Next collect\x# = collect\x# + collect\vx# collect\y# = collect\y# + collect\vy# If collect\x<0 Then collect\x=collect\x+scrW If collect\x>ScrW Then collect\x=collect\x-scrW If collect\y<0 Then collect\y=collect\y+scrH If collect\y>ScrH Then collect\y=collect\y-scrH Color 0,0,255 Rect collect\x-5,collect\y-5,10,10,1 Next Color 255,255,255 Text 400,100,"Score: " + score,1,1 Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=1 Color 255,255,255 Text 400,250,"You got sucked into the black hole!",1,1 Text 400,350,"Game Over",1,1 Flip Delay 1500 EndIf Return --v Added death if you're in the black hole. Shifted a few bits about (mostly so that collectable's aren't shifted every player!) -=-=- ''Load, Next List!''
Mon, 07 May 2007, 05:58
Blitz3Dman	Curses, Jay, you posted when I was about to put mine up. I added some nice looking particles, a win screen, and, er, not much else. Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 Starfield=CreateImage(scrw,scrh) SetBuffer ImageBuffer(starfield) Color 16,16,16 Rect 0,0,scrw,scrh,1 For n=1 To 1000 d=Rand(5,25)10 Color d,d,d Plot Rand(0,scrw),Rand(0,scrh) Next SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0, total = 0 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type Type ible ;<- this is weird, but I'll follow along. Field x#,y# Field vx#,vy# End Type Type article Field x#,y# Field xv#,yv# Field r,g,b End Type .GameLoop Repeat EndofGame=0 For pl.ayer=Each ayer Delete pl.ayer Next For grav.ity=Each ity Delete grav.ity Next For collect.ible=Each ible Delete collect.ible Next Gosub PlayLoop Until EndofGame=99 .PlayLoop grav.ity = New ity grav\x# = ScrW / 2 grav\y# = scrH / 2 grav\p# = 0.5 For i = 0 To 20 total=total+1 collect.ible = New ible collect\x# = Float Rnd(0,800) collect\y# = Float Rnd(0,600) collect\vx# = 0 collect\vy# = 0 Next pl.ayer=New ayer pl\X=50 pl\Y=50 pl\GoX=0 pl\GoY=0 Repeat DrawImage starfield,0,0 n=0 For pl.ayer=Each ayer n=n+1 For grav.ity = Each ity spdis# = Sqr#(((pl\GoX# - grav\x#) ^ 2) + ((pl\GoY# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) If Abs(pl\x-grav\x)<4 And Abs(pl\y-grav\y)<4 endofgame=1 EndIf Next For collect.ible = Each ible If Abs(pl\x-collect\x)<10 And Abs(pl\y-collect\y)<10 score = score + 1 NewParticle(pl\X,pl\Y,6,Rand(8,18),255,150,30) Delete collect EndIf Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 Color 255,0,0 EndIf Rect pl\x-4,pl\y-4,8,8,1 Next Color 0,0,0 For grav.ity = Each ity Oval grav\x# - 8,grav\y# - 8,16,16,True Next For collect.ible = Each ible For grav.ity = Each ity spdis# = Sqr#(((collect\x# - grav\x#) ^ 2) + ((collect\y# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 collect\vx# = collect\vx# + (Cos#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) collect\vy# = collect\vy# + (Sin#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) Next collect\x# = collect\x# + collect\vx# collect\y# = collect\y# + collect\vy# If collect\x<0 Then collect\x=collect\x+scrW If collect\x>ScrW Then collect\x=collect\x-scrW If collect\y<0 Then collect\y=collect\y+scrH If collect\y>ScrH Then collect\y=collect\y-scrH Color 0,0,255 Rect collect\x-5,collect\y-5,10,10,1 Next For p.article=Each article Color p\r,p\g,p\b Plot p\x,p\y p\x=p\x+p\xv p\y=p\y+p\yv If p\r>0 Then p\r=p\r-1 If p\g>0 Then p\g=p\g-1 If p\b>0 Then p\b=p\b-1 If p\r=0 And p\g=0 And p\b=0 Then partgobyebye=True If p\x>ScrW Or p\y>ScrH Or p\x<0 Or p\y<0 Then partgobyebye=True If partgobyebye=True Then Delete p:partgobyebye=False Next Color 255,255,255 Text 400,100,"Score: " + score+"/"+total,1,1 If score=>total Then Endofgame=2 Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=99 Then End If Endofgame=1 Color 255,255,255 Text 400,250,"You got sucked into the black hole!",1,1 Text 400,350,"Game Over",1,1 Flip Delay 1500 EndIf Return If Endofgame=2 Then done=0 Repeat Cls Color Rand(160,255),Rand(160,255),Rand(160,255) Text ScrW/2,ScrH/2,"Good job! You win!",1,1 Flip done=done+1 Until KeyDown(1) Or done=>1000 End EndIf Return Function NewParticle(Xpos,Ypos,maxspeed#,many,r=255,g=255,b=100) For create=1 To many ;lol! just realized! "One too many" p.article=New article p\x=Xpos p\y=Ypos p\xv=Rnd(-maxspeed,maxspeed) p\yv=Rnd(-maxspeed,maxspeed) p\r=r:p\g=g:p\b=b Next End Function --v Best... forum... game... ever!! Very much fun, really. funny bit of code that just happened to be this way: For create=1 To many ;lol! just realized! "One too many" --v -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Mon, 07 May 2007, 06:01
shroom_monk	Made game playable for those with slow computers .start Global usefield$ = Input$("Use starfield? (Y/N)") If usefield$ <> "y" And usefield$ <> "n" And usefield$ <> "Y" And usefield$ <> "N" Then Goto start Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 Starfield=CreateImage(scrw,scrh) SetBuffer ImageBuffer(starfield) Color 16,16,16 Rect 0,0,scrw,scrh,1 For n=1 To 1000 d=Rand(5,25)10 Color d,d,d Plot Rand(0,scrw),Rand(0,scrh) Next SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0, total = 0 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type Type ible ;<- this is weird, but I'll follow along. Field x#,y# Field vx#,vy# End Type Type article Field x#,y# Field xv#,yv# Field r,g,b End Type .GameLoop Repeat EndofGame=0 For pl.ayer=Each ayer Delete pl.ayer Next For grav.ity=Each ity Delete grav.ity Next For collect.ible=Each ible Delete collect.ible Next Gosub PlayLoop Until EndofGame=99 .PlayLoop grav.ity = New ity grav\x# = ScrW / 2 grav\y# = scrH / 2 grav\p# = 0.5 For i = 0 To 20 total=total+1 collect.ible = New ible collect\x# = Float Rnd(0,800) collect\y# = Float Rnd(0,600) collect\vx# = 0 collect\vy# = 0 Next pl.ayer=New ayer pl\X=50 pl\Y=50 pl\GoX=0 pl\GoY=0 Repeat Cls If usefield$ = "y" Or usefield$ = "Y" Then DrawImage starfield,0,0 If usefield$ = "n" Or usefield$ = "N" Then Color 32,32,32 Rect 0,0,ScrW,ScrH,True End If n=0 For pl.ayer=Each ayer n=n+1 For grav.ity = Each ity spdis# = Sqr#(((pl\GoX# - grav\x#) ^ 2) + ((pl\GoY# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) If Abs(pl\x-grav\x)<4 And Abs(pl\y-grav\y)<4 endofgame=1 EndIf Next For collect.ible = Each ible If Abs(pl\x-collect\x)<10 And Abs(pl\y-collect\y)<10 score = score + 1 NewParticle(pl\X,pl\Y,6,Rand(8,18),255,150,30) Delete collect EndIf Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\x=pl\x+scrW If pl\x>ScrW Then pl\x=pl\x-scrW If pl\y<0 Then pl\y=pl\y+scrH If pl\y>ScrH Then pl\y=pl\y-scrH If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 Color 255,0,0 EndIf Rect pl\x-4,pl\y-4,8,8,1 Next Color 0,0,0 For grav.ity = Each ity Oval grav\x# - 8,grav\y# - 8,16,16,True Next For collect.ible = Each ible For grav.ity = Each ity spdis# = Sqr#(((collect\x# - grav\x#) ^ 2) + ((collect\y# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 collect\vx# = collect\vx# + (Cos#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) collect\vy# = collect\vy# + (Sin#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) Next collect\x# = collect\x# + collect\vx# collect\y# = collect\y# + collect\vy# If collect\x<0 Then collect\x=collect\x+scrW If collect\x>ScrW Then collect\x=collect\x-scrW If collect\y<0 Then collect\y=collect\y+scrH If collect\y>ScrH Then collect\y=collect\y-scrH Color 0,0,255 Rect collect\x-5,collect\y-5,10,10,1 Next For p.article=Each article Color p\r,p\g,p\b Plot p\x,p\y p\x=p\x+p\xv p\y=p\y+p\yv If p\r>0 Then p\r=p\r-1 If p\g>0 Then p\g=p\g-1 If p\b>0 Then p\b=p\b-1 If p\r=0 And p\g=0 And p\b=0 Then partgobyebye=True If p\x>ScrW Or p\y>ScrH Or p\x<0 Or p\y<0 Then partgobyebye=True If partgobyebye=True Then Delete p:partgobyebye=False Next Color 255,255,255 Text 400,100,"Score: " + score+"/"+total,1,1 If score=>total Then Endofgame=2 Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=99 Then End If Endofgame=1 Color 255,255,255 Text 400,250,"You got sucked into the black hole!",1,1 Text 400,350,"Game Over",1,1 Flip Delay 1500 EndIf Return If Endofgame=2 Then done=0 Repeat Cls Color Rand(160,255),Rand(160,255),Rand(160,255) Text ScrW/2,ScrH/2,"Good job! You win!",1,1 Flip done=done+1 Until KeyDown(1) Or done=>1000 End EndIf Return Function NewParticle(Xpos,Ypos,maxspeed#,many,r=255,g=255,b=100) For create=1 To many ;lol! just realized! "One too many" p.article=New article p\x=Xpos p\y=Ypos p\xv=Rnd(-maxspeed,maxspeed) p\yv=Rnd(-maxspeed,maxspeed) p\r=r:p\g=g:p\b=b Next End Function --v -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Mon, 07 May 2007, 07:46
Jayenkai	Made the walls bouncy instead of wraparound. Wraparound + moving objects + multiple blackholes = Collectables flying around the screen at 1,000,000 mph! So.. Bouncy it is! Tweaked the scoring methods.. added Levels.. Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 StarfieldOn=2 .start Repeat Cls Text scrw/2,scrh/2,"Starfield?",1,1 If KeyDown(21) Then StarFieldOn=1 If KeyDown(49) Then StarFieldOn=0 Flip Until StarFieldOn<>2 Starfield=CreateImage(scrw,scrh) SetBuffer ImageBuffer(starfield) Color 16,16,16 Rect 0,0,scrw,scrh,1 For n=1 To 1000 d=Rand(5,25)10 Color d,d,d Plot Rand(0,scrw),Rand(0,scrh) Next SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0, Level = 1, BestScore=0 Type ayer Field X#,Y#,GoX#,GoY# End Type Type ity Field x#,y#,p# End Type Type ible ;<- this is weird, but I'll follow along. Field x#,y# Field vx#,vy# End Type Type article Field x#,y# Field xv#,yv# Field r,g,b End Type .GameLoop Repeat EndofGame=0 For pl.ayer=Each ayer Delete pl.ayer Next For grav.ity=Each ity Delete grav.ity Next For collect.ible=Each ible Delete collect.ible Next Gosub PlayLoop If Score>BestScore Then BestScore=Score If EndofGame=2 Then Level=Level+1 If EndofGame=1 Then Level=1:Score=0 Until EndofGame=99 .PlayLoop pl.ayer=New ayer pl\X=50 pl\Y=50 pl\GoX=0 pl\GoY=0 For n=1 To Level grav.ity = New ity grav\x# = Rand(200,600) grav\y# = Rand(200,400) grav\p# = 0.2 Next For i = 1 To Level2 total=total+1 collect.ible = New ible collect\x# = Float Rnd(200,600) collect\y# = Float Rnd(200,400) collect\vx# = 0 collect\vy# = 0 Next GameOverReason=0 GameOverTick=0 ClsColor 32,32,32 BonusTime=MilliSecs()+(1201000) Repeat Cls If StarfieldOn=1 Then DrawImage starfield,0,0 n=0 For pl.ayer=Each ayer n=n+1 For grav.ity = Each ity spdis# = Sqr#(((pl\GoX# - grav\x#) ^ 2) + ((pl\GoY# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\GoX# = pl\GoX# + (Cos#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) grav\p# * gmul#) pl\GoY# = pl\GoY# + (Sin#(ATan2#(pl\Y# - grav\y#,pl\X# - grav\x#) + 180) * grav\p# * gmul#) If Abs(pl\x-grav\x)<4 And Abs(pl\y-grav\y)<4 And GameOverReason=0 GameOverReason=1:pl\gox=0:pl\goy=0 EndIf Next For collect.ible = Each ible If Abs(pl\x-collect\x)<10 And Abs(pl\y-collect\y)<10 And GameOverReason=0 score = score + 25 NewParticle(pl\X,pl\Y,6,Rand(8,18),255,150,30) Delete collect EndIf Next pl\X=pl\X+pl\GoX pl\Y=pl\Y+pl\GoY If pl\x<0 Then pl\gox=Abs(pl\gox) If pl\x>ScrW Then pl\gox=0-Abs(pl\gox) If pl\y<0 Then pl\goy=Abs(pl\goy) If pl\y>ScrH Then pl\goy=0-Abs(pl\goy) If n=1 ;If 1 then our player. If KeyDown(200) Then pl\GoY=pl\GoY-0.1 If KeyDown(208) Then pl\GoY=pl\GoY+0.1 If KeyDown(203) Then pl\GoX=pl\GoX-0.1 If KeyDown(205) Then pl\GoX=pl\GoX+0.1 Color 255,0,0 EndIf Rect pl\x-4,pl\y-4,8,8,1 Next Color 0,0,0 For grav.ity = Each ity Oval grav\x# - 8,grav\y# - 8,16,16,True Next CollectLeft=0 For collect.ible = Each ible CollectLeft=CollectLeft+1 For grav.ity = Each ity spdis# = Sqr#(((collect\x# - grav\x#) ^ 2) + ((collect\y# - grav\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 collect\vx# = collect\vx# + (Cos#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) collect\vy# = collect\vy# + (Sin#(ATan2#(collect\y# - grav\y#,collect\x# - grav\x#) + 180) * grav\p# * gmul#) Next collect\x# = collect\x# + collect\vx# collect\y# = collect\y# + collect\vy# If collect\x<0 Then collect\vx=Abs(collect\vx) If collect\x>ScrW Then collect\vx=0-Abs(collect\vx) If collect\y<0 Then collect\vy=Abs(collect\vy) If collect\y>ScrH Then collect\vy=0-Abs(collect\vy) Color 0,0,255 Rect collect\x-5,collect\y-5,10,10,1 Next For p.article=Each article Color p\r,p\g,p\b Plot p\x,p\y p\x=p\x+p\xv p\y=p\y+p\yv If p\r>0 Then p\r=p\r-1 If p\g>0 Then p\g=p\g-1 If p\b>0 Then p\b=p\b-1 If p\r=0 And p\g=0 And p\b=0 Then partgobyebye=True If p\x>ScrW Or p\y>ScrH Or p\x<0 Or p\y<0 Then partgobyebye=True If partgobyebye=True Then Delete p:partgobyebye=False Next Bonus=(BonusTime-MilliSecs())/1000 If Bonus<0 Then Bonus=0 Color 255,255,255 Text scrw/2,10,"Score: " + score,1,1 Text scrw/2,25,"Best Score: " + bestscore,1,1 Text (scrw/4)3,10,"Level: " + level,1,1 Text scrw/4,10,"Time Bonus: " + bonus,1,1 If CollectLeft=0 And GameOverReason=0 Then GameOverReason=2:Score=Score+Bonus If GameOverReason<>0 If GameOverReason=1 Color 255,255,255 Text scrw/2,(scrh/8)3,"You got sucked into a black hole!",1,1 Text scrw/2,(scrh/8)*5,"Game Over",1,1 EndIf If GameOverReason=2 Color Rand(160,255),Rand(160,255),Rand(160,255) Text ScrW/2,ScrH/2,"Level Complete",1,1 EndIf GameOverTick=GameOverTick+1 If GameOverTick>60 Then EndofGame=GameOverReason EndIf Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=99 Then End Return Function NewParticle(Xpos,Ypos,maxspeed#,many,r=255,g=255,b=100) For create=1 To many ;lol! just realized! "One too many" p.article=New article p\x=Xpos p\y=Ypos p\xv=Rnd(-maxspeed,maxspeed) p\yv=Rnd(-maxspeed,maxspeed) p\r=r:p\g=g:p\b=b Next End Function --v \|edit\| Quick tweak to add "Best Score \|edit\| -=-=- ''Load, Next List!''
Mon, 07 May 2007, 09:39
JL235	Unified the conventions. Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 StarfieldOn=2 .start Repeat Cls Text scrw/2,scrh/2,"Starfield?",1,1 If KeyDown(21) Then StarFieldOn=1 If KeyDown(49) Then StarFieldOn=0 Flip Until StarFieldOn<>2 Starfield=CreateImage(scrw,scrh) SetBuffer ImageBuffer(starfield) Color 16,16,16 Rect 0,0,scrw,scrh,1 For n=1 To 1000 d=Rand(5,25)10 Color d,d,d Plot Rand(0,scrw),Rand(0,scrh) Next SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0, Level = 1, BestScore=0 Type Player Field x#,y#,dx#,dy# End Type Type Gravity Field x#,y#,p# End Type Type Collectible Field x#,y# Field dx#,dy# End Type Type Particle Field x#,y# Field dx#,dy# Field r,g,b End Type .GameLoop Repeat EndofGame=0 For pl.Player=Each Player Delete pl.Player Next For g.Gravity=Each Gravity Delete g.Gravity Next For c.Collectible=Each Collectible Delete c.Collectible Next Gosub PlayLoop If Score>BestScore Then BestScore=Score If EndofGame=2 Then Level=Level+1 If EndofGame=1 Then Level=1:Score=0 Until EndofGame=99 .PlayLoop ; setup player pl.Player=New Player pl\x#=50 pl\y#=50 pl\dx#=0 pl\dy#=0 For n=1 To Level g.Gravity = New Gravity g\x# = Rand(200,600) g\y# = Rand(200,400) g\p# = 0.2 Next For i = 1 To Level2 total=total+1 c.Collectible = New Collectible c\x# = Float Rnd(200,600) c\y# = Float Rnd(200,400) c\dx# = 0 c\dy# = 0 Next GameOverReason=0 GameOverTick=0 ClsColor 32,32,32 BonusTime=MilliSecs()+(1201000) ; main loop Repeat Cls If StarfieldOn=1 Then DrawImage starfield,0,0 n=0 For pl.Player = Each Player n=n+1 For g.Gravity = Each Gravity spdis# = Sqr#(((pl\dx# - g\x#) ^ 2) + ((pl\dy# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\dx# = pl\dx# + (Cos#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) g\p# * gmul#) pl\dy# = pl\dy# + (Sin#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) * g\p# * gmul#) If Abs(pl\x-g\x)<4 And Abs(pl\y-g\y)<4 And GameOverReason=0 GameOverReason=1 pl\dx=0 pl\dy=0 EndIf Next For c.Collectible = Each Collectible If Abs(pl\x-c\x)<10 And Abs(pl\y-c\y)<10 And GameOverReason=0 score = score + 25 NewParticle(pl\x,pl\y,6,Rand(8,18),255,150,30) Delete c EndIf Next pl\x# = pl\x#+pl\dx# pl\y# = pl\y#+pl\dy# If pl\x#<0 Then pl\dx#=Abs(pl\dx#) If pl\x#>ScrW Then pl\dx#=0-Abs(pl\dx#) If pl\y#<0 Then pl\dy#=Abs(pl\dy#) If pl\y#>ScrH Then pl\dy#=0-Abs(pl\dy#) If n=1 ;If 1 then our player. If KeyDown(200) Then pl\dy# = pl\dy#-0.1 If KeyDown(208) Then pl\dy# = pl\dy#+0.1 If KeyDown(203) Then pl\dx# = pl\dx#-0.1 If KeyDown(205) Then pl\dx# = pl\dx#+0.1 Color 255,0,0 EndIf Rect pl\x#-4,pl\y#-4,8,8,1 Next For g.Gravity = Each Gravity Color 0,0,0 Oval g\x# - 8,g\y# - 8,16,16,True Color 255,255,255 Oval g\x# - 8,g\y# - 8,16,16,False Next CollectLeft=0 For c.Collectible = Each Collectible CollectLeft=CollectLeft+1 For g.Gravity = Each Gravity spdis# = Sqr#(((c\x# - g\x#) ^ 2) + ((c\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 c\dx# = c\dx# + (Cos#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) * g\p# * gmul#) c\dy# = c\dy# + (Sin#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) * g\p# * gmul#) Next c\x# = c\x# + c\dx# c\y# = c\y# + c\dy# If c\x<0 Then c\dx=Abs(c\dx) If c\x>ScrW Then c\dx=0-Abs(c\dx) If c\y<0 Then c\dy=Abs(c\dy) If c\y>ScrH Then c\dy=0-Abs(c\dy) Color 0,0,255 Rect c\x-5,c\y-5,10,10,1 Next For p.Particle=Each Particle Color p\r,p\g,p\b Plot p\x,p\y p\x# = p\x#+p\dx# p\y# = p\y#+p\dy# If p\r>0 Then p\r=p\r-1 If p\g>0 Then p\g=p\g-1 If p\b>0 Then p\b=p\b-1 If p\r=0 And p\g=0 And p\b=0 Then partgobyebye=True If p\x#>ScrW Or p\y#>ScrH Or p\x#<0 Or p\y#<0 Then partgobyebye=True If partgobyebye=True Then Delete p:partgobyebye=False Next Bonus=(BonusTime-MilliSecs())/1000 If Bonus<0 Then Bonus=0 Color 255,255,255 Text scrw/2,10,"Score: " + score,1,1 Text scrw/2,25,"Best Score: " + bestscore,1,1 Text (scrw/4)3,10,"Level: " + level,1,1 Text scrw/4,10,"Time Bonus: " + bonus,1,1 If CollectLeft=0 And GameOverReason=0 Then GameOverReason=2:Score=Score+Bonus If GameOverReason<>0 If GameOverReason=1 Color 255,255,255 Text scrw/2,(scrh/8)3,"You got sucked into a black hole!",1,1 Text scrw/2,(scrh/8)*5,"Game Over",1,1 EndIf If GameOverReason=2 Color Rand(160,255),Rand(160,255),Rand(160,255) Text ScrW/2,ScrH/2,"Level Complete",1,1 EndIf GameOverTick=GameOverTick+1 If GameOverTick>60 Then EndofGame=GameOverReason EndIf Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=99 Then End Return Function NewParticle(Xpos,Ypos,maxspeed#,many,r=255,g=255,b=100) For create=1 To many ;lol! just realized! "One too many" p.Particle=New Particle ; position p\x = Xpos p\y = Ypos ; momentum p\dx = Rnd(-maxspeed,maxspeed) p\dy = Rnd(-maxspeed,maxspeed) ; color p\r = r p\g = g p\b = b Next End Function --v pl.Player rather then pl.ayer p.Particle rather then p.article g.Gravity rather then grav.ity c.Collectible rather then collect.ible vx, xv, vy, xy, Gox and Goy are now 'dx' and 'dy' FOR ALL TYPES. X and Y of Player type changed to x and y. Added white circle outlin for Gravity type drawing. Padded a few lines out, so they are no longer over one line. Added a few minor comments.
Mon, 07 May 2007, 10:33
Jayenkai	<gripe mode> "c\x" is 100% less obvious than "Collect\x" "c.Collectable" might look better, but I'm not using the variable "Collectable" over and over, I'm using the "C" bit.. In that case "Collect" is much better. spdis# = Sqr#(((c\x# - g\x#) ^ 2) + ((c\y# - g\y#) ^ 2)) vs spdis# = Sqr#(((collect\x# - grav\x#) ^ 2) + ((collect\y# - grav\y#) ^ 2)) --v I know which I'd pick! I purposely left a black black hole on a slightly lesser black sky so that the black black hole was almost invisible.. It's a black hole in the black of space.. And Space is Black.. And a Black Hole is Black.. See Red Dwarf for further details. Oh, and X and Y of Player changed to x and y.... Wow. If Blitz gave a munky about that, I'm sure it would've been worth it! .. And you didn't add anything. you're supposed to add something.. </gripe mode> Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 StarfieldOn=2 SeedRnd MilliSecs() .start Repeat Cls Text scrw/2,scrh/2,"Starfield?",1,1 If KeyDown(21) Then StarFieldOn=1 If KeyDown(49) Then StarFieldOn=0 Flip Until StarFieldOn<>2 EasyMode=0 SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0, Level = 1, BestScore=0 Type Player Field x#,y#,dx#,dy# End Type Type Gravity Field x#,y#,p# End Type Type Collectible Field x#,y# Field dx#,dy# End Type Type Particle Field x#,y# Field dx#,dy# Field r,g,b End Type Type ar Field X#,Y# Field GoX#,GoY# Field D End Type .GameLoop Repeat EndofGame=0 For pl.Player=Each Player Delete pl.Player Next For g.Gravity=Each Gravity Delete g.Gravity Next For c.Collectible=Each Collectible Delete c.Collectible Next For st.ar=Each ar Delete st.ar Next Gosub PlayLoop If Score>BestScore Then BestScore=Score If EndofGame=2 Then Level=Level+1 If EndofGame=1 Then Level=1:Score=0 Until EndofGame=99 .PlayLoop For n=1 To 100 st.ar=New ar st\d=Rand(5,25)10 st\x=Rand(0,800) st\y=Rand(0,600) st\GoX=0 st\GoY=0 Next ; setup player pl.Player=New Player pl\x#=50 pl\y#=50 pl\dx#=0 pl\dy#=0 For n=1 To Level g.Gravity = New Gravity g\x# = Rand(200,600) g\y# = Rand(200,400) g\p# = 0.2 Next For i = 1 To Level2 total=total+1 c.Collectible = New Collectible c\x# = Float Rnd(200,600) c\y# = Float Rnd(200,400) c\dx# = 0 c\dy# = 0 Next GameOverReason=0 GameOverTick=0 ClsColor 32,32,32 BonusTime=MilliSecs()+(1201000) ; main loop Repeat Cls If StarfieldOn=1 Then starfield() n=0 For pl.Player = Each Player n=n+1 For g.Gravity = Each Gravity spdis# = Sqr#(((pl\x# - g\x#) ^ 2) + ((pl\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\dx# = pl\dx# + (Cos#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) g\p# * gmul#) pl\dy# = pl\dy# + (Sin#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) * g\p# * gmul#) If Abs(pl\x-g\x)<4 And Abs(pl\y-g\y)<4 And GameOverReason=0 GameOverReason=1 pl\dx=0 pl\dy=0 EndIf Next For c.Collectible = Each Collectible If Abs(pl\x-c\x)<10 And Abs(pl\y-c\y)<10 And GameOverReason=0 score = score + 25 NewParticle(pl\x,pl\y,6,Rand(8,18),255,150,30) Delete c EndIf Next pl\x# = pl\x#+pl\dx# pl\y# = pl\y#+pl\dy# If pl\x#<0 Then pl\dx#=Abs(pl\dx#) If pl\x#>ScrW Then pl\dx#=0-Abs(pl\dx#) If pl\y#<0 Then pl\dy#=Abs(pl\dy#) If pl\y#>ScrH Then pl\dy#=0-Abs(pl\dy#) If n=1 ;If 1 then our player. If KeyDown(200) Then pl\dy# = pl\dy#-0.1 If KeyDown(208) Then pl\dy# = pl\dy#+0.1 If KeyDown(203) Then pl\dx# = pl\dx#-0.1 If KeyDown(205) Then pl\dx# = pl\dx#+0.1 Color 255,0,0 EndIf Rect pl\x#-4,pl\y#-4,8,8,1 Next For g.Gravity = Each Gravity For n=1 To 8 Color n4,n4,n4 Oval g\x# - n,g\y# - n,n2,n2,False Next If EasyMode=1 Color 255,255,255 Oval g\x# - 8,g\y# - 8,16,16,False EndIf Next CollectLeft=0 For c.Collectible = Each Collectible CollectLeft=CollectLeft+1 For g.Gravity = Each Gravity spdis# = Sqr#(((c\x# - g\x#) ^ 2) + ((c\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 c\dx# = c\dx# + (Cos#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) g\p# * gmul#) c\dy# = c\dy# + (Sin#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) * g\p# * gmul#) Next c\x# = c\x# + c\dx# c\y# = c\y# + c\dy# If c\x<0 Then c\dx=Abs(c\dx) If c\x>ScrW Then c\dx=0-Abs(c\dx) If c\y<0 Then c\dy=Abs(c\dy) If c\y>ScrH Then c\dy=0-Abs(c\dy) Color 0,0,255 Rect c\x-5,c\y-5,10,10,1 Next For p.Particle=Each Particle Color p\r,p\g,p\b Plot p\x,p\y p\x# = p\x#+p\dx# p\y# = p\y#+p\dy# If p\r>0 Then p\r=p\r-1 If p\g>0 Then p\g=p\g-1 If p\b>0 Then p\b=p\b-1 If p\r=0 And p\g=0 And p\b=0 Then partgobyebye=True If p\x#>ScrW Or p\y#>ScrH Or p\x#<0 Or p\y#<0 Then partgobyebye=True If partgobyebye=True Then Delete p:partgobyebye=False Next Bonus=(BonusTime-MilliSecs())/1000 If Bonus<0 Then Bonus=0 Color 255,255,255 Text scrw/2,10,"Score: " + score,1,1 Text scrw/2,25,"Best Score: " + bestscore,1,1 Text (scrw/4)3,10,"Level: " + level,1,1 Text scrw/4,10,"Time Bonus: " + bonus,1,1 If CollectLeft=0 And GameOverReason=0 Then GameOverReason=2:Score=Score+Bonus If GameOverReason<>0 If GameOverReason=1 Color 255,255,255 Text scrw/2,(scrh/8)3,"You got sucked into a black hole!",1,1 Text scrw/2,(scrh/8)5,"Game Over",1,1 EndIf If GameOverReason=2 Color Rand(160,255),Rand(160,255),Rand(160,255) Text ScrW/2,ScrH/2,"Level Complete",1,1 EndIf GameOverTick=GameOverTick+1 If GameOverTick>60 Then EndofGame=GameOverReason EndIf Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=99 Then End Return Function NewParticle(Xpos,Ypos,maxspeed#,many,r=255,g=255,b=100) For create=1 To many ;lol! just realized! "One too many" p.Particle=New Particle ; position p\x = Xpos p\y = Ypos ; momentum p\dx = Rnd(-maxspeed,maxspeed) p\dy = Rnd(-maxspeed,maxspeed) ; color p\r = r p\g = g p\b = b Next End Function Function StarField() For st.ar=Each ar kill=0 For g.Gravity = Each Gravity spdis# = Sqr#(((st\x# - g\x#) ^ 2) + ((st\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 800) ;More power to suck in stars! If gmul# < 0 Then gmul# = 0 st\gox# = st\gox# + (Cos#(ATan2#(st\y# - g\y#,st\x# - g\x#) + 180) g\p# * gmul#) st\Goy# = st\goy# + (Sin#(ATan2#(st\y# - g\y#,st\x# - g\x#) + 180) * g\p# * gmul#) If Abs(st\x-g\x)<20 And Abs(st\y-g\y)<20 Then kill=1 Next st\x=st\x+(st\GoX/4) st\y=st\y+(st\GoY/4) ;But suck slower Color st\d,st\d,st\d Plot st\x,st\y If kill=1 Delete st.ar newst.ar=New ar newst\d=Rand(5,25)*10 Repeat goodspot=0 x=Rand(-100,scrw+100) y=Rand(-100,scrh+100) If (x<0 Or x>scrw) Or (y<0 Or y>scrh) Then goodspot=1 Until goodspot=1 newst\x=x:newst\y=y newst\GoX=0 newst\GoY=0 EndIf Next End Function --v Added New Starfield \|edit\| Fixed a tiny Gravity vs Player bug which seems to have snuck in AGES ago! \|edit\| -=-=- ''Load, Next List!''
Mon, 07 May 2007, 11:21
JL235	I did add something, readability. I changed the black holes because at first I was sitting here thinking 'why am I dying?'. You can barely see them, and that may annoy some people. Blitz may not care about changing X to x, but it helps to unify the code for the next person. I was simply typing out every change I had made. You must admit that 'dx' and 'dy' is better then three different names. Also 'ible' tells me nothing about what the Type is or does. I changed it Collect and subsequently 'c.Collect' so it fits as a convention (like p.Particle and g.Gravity). But I can agree with your point, and the reason I made these changes is to make it easier to read. c does say less about the variable then 'collect', so feel free to change it. But I think 'collect.Collectible' says far more, and as a result is more appropriate, then 'collect.ible'. To be honest I'm not planning to add anything else, but I think people should make more detailed reports about their additions and changes. For the next guy. \|edit\| The code also needs more commenting. Just little things to help show which section related to what. It'll be quicker (and so easier) for someone new to get involved. \|edit\|
Mon, 07 May 2007, 12:38
blanko1324	This game is out of control! It's a monster!
Mon, 07 May 2007, 15:20
Phoenix	Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 StarfieldOn=2 SeedRnd MilliSecs() .start Repeat Cls Text scrw/2,scrh/2,"Starfield?",1,1 If KeyDown(21) Then StarFieldOn=1 If KeyDown(49) Then StarFieldOn=0 Flip Until StarFieldOn<>2 EasyMode=0 SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0, Level = 1, BestScore=0 Type Player Field x#,y#,dx#,dy# End Type Type Gravity Field x#,y#,p# End Type Type Collectible Field x#,y# Field dx#,dy# End Type Type Particle Field x#,y# Field dx#,dy# Field r,g,b End Type Type Trash Field x#, y# Field angle Field radius End Type Type ar Field X#,Y# Field GoX#,GoY# Field D End Type .GameLoop Repeat EndofGame=0 For pl.Player=Each Player Delete pl.Player Next For g.Gravity=Each Gravity Delete g.Gravity Next For c.Collectible=Each Collectible Delete c.Collectible Next For st.ar=Each ar Delete st.ar Next Gosub PlayLoop If Score>BestScore Then BestScore=Score If EndofGame=2 Then Level=Level+1 If EndofGame=1 Then Level=1:Score=0 Until EndofGame=99 .PlayLoop For n=1 To 100 st.ar=New ar st\d=Rand(5,25)10 st\x=Rand(0,800) st\y=Rand(0,600) st\GoX=0 st\GoY=0 Next ; setup player pl.Player=New Player pl\x#=50 pl\y#=50 pl\dx#=0 pl\dy#=0 For n=1 To Level g.Gravity = New Gravity g\x# = Rand(200,600) g\y# = Rand(200,400) g\p# = 0.2 Next For i = 1 To Level2 total=total+1 c.Collectible = New Collectible c\x# = Float Rnd(200,600) c\y# = Float Rnd(200,400) c\dx# = 0 c\dy# = 0 Next GameOverReason=0 GameOverTick=0 ClsColor 32,32,32 BonusTime=MilliSecs()+(1201000) ; main loop Repeat Cls If StarfieldOn=1 Then Starfield() If( Rand( 5 ) = 5 ) t.Trash = New Trash t\x = Rand( 1, 0 )800 t\y = Rand( 1, 0 )600 t\angle = Rand( 360 ) End If For t.Trash = Each Trash If( t\x>800 Or t\x<0 ) Then Delete t : Exit Color( 0, 255, 0 ) t\x = t\x + Sin(t\angle)5 t\y = t\y + Cos(t\angle)5 Oval( t\x, t\y, 5, 5 ) Color( 255, 255, 255 ) For pl.Player = Each Player If( RectsOverlap( pl\x, pl\y, 5, 5, t\x, t\y, 5, 5 ) ) Delete Each Trash pl\dx=0 pl\dy=0 pl\x = 50 pl\y = 50 GameOverReason = 3 EndIf Next Next n=0 For pl.Player = Each Player n=n+1 For g.Gravity = Each Gravity spdis# = Sqr#(((pl\x# - g\x#) ^ 2) + ((pl\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\dx# = pl\dx# + (Cos#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) g\p# * gmul#) pl\dy# = pl\dy# + (Sin#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) * g\p# * gmul#) If Abs(pl\x-g\x)<4 And Abs(pl\y-g\y)<4 And GameOverReason=0 GameOverReason=1 pl\dx=0 pl\dy=0 EndIf Next For c.Collectible = Each Collectible If Abs(pl\x-c\x)<10 And Abs(pl\y-c\y)<10 And GameOverReason=0 score = score + 25 NewParticle(pl\x,pl\y,6,Rand(8,18),255,150,30) Delete c EndIf Next pl\x# = pl\x#+pl\dx# pl\y# = pl\y#+pl\dy# If pl\x#<0 Then pl\dx#=Abs(pl\dx#) If pl\x#>ScrW Then pl\dx#=0-Abs(pl\dx#) If pl\y#<0 Then pl\dy#=Abs(pl\dy#) If pl\y#>ScrH Then pl\dy#=0-Abs(pl\dy#) If n=1 ;If 1 then our player. If KeyDown(200) Then pl\dy# = pl\dy#-0.1 If KeyDown(208) Then pl\dy# = pl\dy#+0.1 If KeyDown(203) Then pl\dx# = pl\dx#-0.1 If KeyDown(205) Then pl\dx# = pl\dx#+0.1 Color 255,0,0 EndIf Rect pl\x#-4,pl\y#-4,8,8,1 Next For g.Gravity = Each Gravity For n=1 To 8 Color n4,n4,n4 Oval g\x# - n,g\y# - n,n2,n2,False Next If EasyMode=1 Color 255,255,255 Oval g\x# - 8,g\y# - 8,16,16,False EndIf Next CollectLeft=0 For c.Collectible = Each Collectible CollectLeft=CollectLeft+1 For g.Gravity = Each Gravity spdis# = Sqr#(((c\x# - g\x#) ^ 2) + ((c\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 c\dx# = c\dx# + (Cos#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) g\p# * gmul#) c\dy# = c\dy# + (Sin#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) * g\p# * gmul#) Next c\x# = c\x# + c\dx# c\y# = c\y# + c\dy# If c\x<0 Then c\dx=Abs(c\dx) If c\x>ScrW Then c\dx=0-Abs(c\dx) If c\y<0 Then c\dy=Abs(c\dy) If c\y>ScrH Then c\dy=0-Abs(c\dy) Color 0,0,255 Rect c\x-5,c\y-5,10,10,1 Next For p.Particle=Each Particle Color p\r,p\g,p\b Plot p\x,p\y p\x# = p\x#+p\dx# p\y# = p\y#+p\dy# If p\r>0 Then p\r=p\r-1 If p\g>0 Then p\g=p\g-1 If p\b>0 Then p\b=p\b-1 If p\r=0 And p\g=0 And p\b=0 Then partgobyebye=True If p\x#>ScrW Or p\y#>ScrH Or p\x#<0 Or p\y#<0 Then partgobyebye=True If partgobyebye=True Then Delete p:partgobyebye=False Next Bonus=(BonusTime-MilliSecs())/1000 If Bonus<0 Then Bonus=0 Color 255,255,255 Text scrw/2,10,"Score: " + score,1,1 Text scrw/2,25,"Best Score: " + bestscore,1,1 Text (scrw/4)3,10,"Level: " + level,1,1 Text scrw/4,10,"Time Bonus: " + bonus,1,1 If CollectLeft=0 And GameOverReason=0 Then GameOverReason=2:Score=Score+Bonus If GameOverReason<>0 If GameOverReason=1 Color 255,255,255 Text scrw/2,(scrh/8)3,"You got sucked into a black hole!",1,1 Text scrw/2,(scrh/8)5,"Game Over",1,1 EndIf If GameOverReason=2 Color Rand(160,255),Rand(160,255),Rand(160,255) Text ScrW/2,ScrH/2,"Level Complete",1,1 EndIf If GameOverReason=3 Color 255,255,255 Text scrw/2,(scrh/8)3,"You were killed by trash floating around!",1,1 Text scrw/2,(scrh/8)5,"Game Over",1,1 EndIf GameOverTick=GameOverTick+1 If GameOverTick>60 Then EndofGame=GameOverReason EndIf Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=99 Then End Return Function NewParticle(Xpos,Ypos,maxspeed#,many,r=255,g=255,b=100) For create=1 To many ;lol! just realized! "One too many" p.Particle=New Particle ; position p\x = Xpos p\y = Ypos ; momentum p\dx = Rnd(-maxspeed,maxspeed) p\dy = Rnd(-maxspeed,maxspeed) ; color p\r = r p\g = g p\b = b Next End Function Function StarField() For st.ar=Each ar kill=0 For g.Gravity = Each Gravity spdis# = Sqr#(((st\x# - g\x#) ^ 2) + ((st\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 800) ;More power to suck in stars! If gmul# < 0 Then gmul# = 0 st\gox# = st\gox# + (Cos#(ATan2#(st\y# - g\y#,st\x# - g\x#) + 180) g\p# * gmul#) st\Goy# = st\goy# + (Sin#(ATan2#(st\y# - g\y#,st\x# - g\x#) + 180) * g\p# * gmul#) If Abs(st\x-g\x)<20 And Abs(st\y-g\y)<20 Then kill=1 Next st\x=st\x+(st\GoX/4) st\y=st\y+(st\GoY/4) ;But suck slower Color st\d,st\d,st\d Plot st\x,st\y If kill=1 Delete st.ar newst.ar=New ar newst\d=Rand(5,25)*10 Repeat goodspot=0 x=Rand(-100,scrw+100) y=Rand(-100,scrh+100) If (x<0 Or x>scrw) Or (y<0 Or y>scrh) Then goodspot=1 Until goodspot=1 newst\x=x:newst\y=y newst\GoX=0 newst\GoY=0 EndIf Next End Function --v Dug up Blitz3D on my hard drive and made a bad attempt at making the game more difficult
Mon, 07 May 2007, 15:55
Blitz3Dman	Tweaked the difficulty a bit and added some images instead of Rects and Ovals. Const ScrW=800 Const ScrH=600 Graphics ScrW,ScrH,32,2 StarfieldOn=2 SeedRnd MilliSecs() Global playerimage=CreateImage(8,8) Restore ufo SetBuffer ImageBuffer(playerimage) For y=0 To 7 For x=0 To 7 Read dat Select dat Case 0:WritePixel x,y,$FF00FF Case 1:WritePixel x,y,$F0FFFF Case 2:WritePixel x,y,$40F0F0 Case 3:WritePixel x,y,$FF0000 End Select Next Next MaskImage playerimage,255,0,255 Global uranium=CreateImage(8,8) Restore rock SetBuffer ImageBuffer(uranium) For y=0 To 7 For x=0 To 7 Read dat Select dat Case 0:WritePixel x,y,$FF00FF Case 1:WritePixel x,y,$8FFF88 Case 2:WritePixel x,y,$3FFF44 Case 3:WritePixel x,y,$0A8811 End Select Next Next MaskImage uranium,255,0,255 Global debris=CreateImage(8,8) Restore rock SetBuffer ImageBuffer(debris) For y=0 To 7 For x=0 To 7 Read dat Select dat Case 0:WritePixel x,y,$FF00FF Case 1:WritePixel x,y,$BBBBC0 Case 2:WritePixel x,y,$9999A8 Case 3:WritePixel x,y,$66667E End Select Next Next MaskImage debris,255,0,255 SetBuffer BackBuffer() .start Repeat Cls Text scrw/2,scrh/2,"Starfield?",1,1 If KeyDown(21) Then StarFieldOn=1 If KeyDown(49) Then StarFieldOn=0 Flip Until StarFieldOn<>2 EasyMode=0 SetBuffer BackBuffer() Global spdis# = 0,gmul# = 1 Global score = 0, Level = 1, BestScore=0 Type Player Field x#,y#,dx#,dy# End Type Type Gravity Field x#,y#,p# End Type Type Collectible Field x#,y# Field dx#,dy# End Type Type Particle Field x#,y# Field dx#,dy# Field r,g,b End Type Type Trash Field x#, y# Field angle Field radius End Type Type ar Field X#,Y# Field GoX#,GoY# Field D End Type .GameLoop Repeat EndofGame=0 For pl.Player=Each Player Delete pl.Player Next For g.Gravity=Each Gravity Delete g.Gravity Next For c.Collectible=Each Collectible Delete c.Collectible Next For st.ar=Each ar Delete st.ar Next Gosub PlayLoop If Score>BestScore Then BestScore=Score If EndofGame=2 Then Level=Level+1 If EndofGame=1 Then Level=1:Score=0 Until EndofGame=99 .PlayLoop For n=1 To 80 st.ar=New ar st\d=Rand(5,25)10 st\x=Rand(0,800) st\y=Rand(0,600) st\GoX=0 st\GoY=0 Next ; setup player pl.Player=New Player pl\x#=50 pl\y#=50 pl\dx#=0 pl\dy#=0 For n=1 To Level g.Gravity = New Gravity g\x# = Rand(200,600) g\y# = Rand(200,400) g\p# = 0.2 Next For i = 1 To Level3 total=total+1 c.Collectible = New Collectible c\x# = Float Rnd(200,600) c\y# = Float Rnd(200,400) c\dx# = 0 c\dy# = 0 Next GameOverReason=0 GameOverTick=0 ClsColor 32,32,32 BonusTime=MilliSecs()+(1201000) ; main loop Repeat Cls If StarfieldOn=1 Then Starfield() If( Rand( 50-level ) = 50-level ) t.Trash = New Trash t\x = Rand( 1, 0 )800 t\y = Rand( 1, 0 )600 t\angle = Rand( 360 ) End If For t.Trash = Each Trash If( t\x>800 Or t\x<0 ) Then Delete t : Exit ;Color( 0, 255, 0 ) t\x = t\x + Sin(t\angle)5 t\y = t\y + Cos(t\angle)5 DrawImage debris,t\x,t\y ;Oval( t\x, t\y, 5, 5 ) Color( 255, 255, 255 ) For pl.Player = Each Player If( RectsOverlap( pl\x, pl\y, 5, 5, t\x, t\y, 5, 5 ) ) Delete Each Trash pl\dx=0 pl\dy=0 pl\x = 50 pl\y = 50 GameOverReason = 3 EndIf Next Next n=0 For pl.Player = Each Player n=n+1 For g.Gravity = Each Gravity spdis# = Sqr#(((pl\x# - g\x#) ^ 2) + ((pl\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 pl\dx# = pl\dx# + (Cos#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) g\p# * gmul#) pl\dy# = pl\dy# + (Sin#(ATan2#(pl\y# - g\y#,pl\x# - g\x#) + 180) * g\p# * gmul#) If Abs(pl\x-g\x)<4 And Abs(pl\y-g\y)<4 And GameOverReason=0 GameOverReason=1 pl\dx=0 pl\dy=0 EndIf Next For c.Collectible = Each Collectible If Abs(pl\x-c\x)<10 And Abs(pl\y-c\y)<10 And GameOverReason=0 score = score + 25 NewParticle(pl\x,pl\y,6,Rand(8,18),255,150,30) Delete c EndIf Next pl\x# = pl\x#+pl\dx# pl\y# = pl\y#+pl\dy# If pl\x#<0 Then pl\dx#=Abs(pl\dx#) If pl\x#>ScrW Then pl\dx#=0-Abs(pl\dx#) If pl\y#<0 Then pl\dy#=Abs(pl\dy#) If pl\y#>ScrH Then pl\dy#=0-Abs(pl\dy#) If n=1 ;If 1 then our player. If KeyDown(200) Then pl\dy# = pl\dy#-0.1 If KeyDown(208) Then pl\dy# = pl\dy#+0.1 If KeyDown(203) Then pl\dx# = pl\dx#-0.1 If KeyDown(205) Then pl\dx# = pl\dx#+0.1 Color 255,0,0 EndIf DrawImage playerimage,pl\x-4,pl\y-4 Next For g.Gravity = Each Gravity For n=1 To 8 Color n4,n4,n4 Oval g\x# - n,g\y# - n,n2,n2,False Next If EasyMode=1 Color 255,255,255 Oval g\x# - 8,g\y# - 8,16,16,False EndIf Next CollectLeft=0 For c.Collectible = Each Collectible CollectLeft=CollectLeft+1 For g.Gravity = Each Gravity spdis# = Sqr#(((c\x# - g\x#) ^ 2) + ((c\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 600) If gmul# < 0 Then gmul# = 0 c\dx# = c\dx# + (Cos#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) g\p# * gmul#) c\dy# = c\dy# + (Sin#(ATan2#(c\y# - g\y#,c\x# - g\x#) + 180) * g\p# * gmul#) Next c\x# = c\x# + c\dx# c\y# = c\y# + c\dy# If c\x<0 Then c\dx=Abs(c\dx) If c\x>ScrW Then c\dx=0-Abs(c\dx) If c\y<0 Then c\dy=Abs(c\dy) If c\y>ScrH Then c\dy=0-Abs(c\dy) ;Color 0,0,255 DrawImage uranium,c\x-4,c\y-4;Rect c\x-5,c\y-5,10,10,1 Next For p.Particle=Each Particle Color p\r,p\g,p\b Plot p\x,p\y p\x# = p\x#+p\dx# p\y# = p\y#+p\dy# If p\r>0 Then p\r=p\r-1 If p\g>0 Then p\g=p\g-1 If p\b>0 Then p\b=p\b-1 If p\r=0 And p\g=0 And p\b=0 Then partgobyebye=True If p\x#>ScrW Or p\y#>ScrH Or p\x#<0 Or p\y#<0 Then partgobyebye=True If partgobyebye=True Then Delete p:partgobyebye=False Next Bonus=(BonusTime-MilliSecs())/1000 If Bonus<0 Then Bonus=0 Color 255,255,255 Text scrw/2,10,"Score: " + score,1,1 Text scrw/2,25,"Best Score: " + bestscore,1,1 Text (scrw/4)3,10,"Level: " + level,1,1 Text scrw/4,10,"Time Bonus: " + bonus,1,1 If CollectLeft=0 And GameOverReason=0 Then GameOverReason=2:Score=Score+Bonus If GameOverReason<>0 If GameOverReason=1 Color 255,255,255 Text scrw/2,(scrh/8)3,"You got sucked into a black hole!",1,1 Text scrw/2,(scrh/8)5,"Game Over",1,1 EndIf If GameOverReason=2 Color Rand(160,255),Rand(160,255),Rand(160,255) Text ScrW/2,ScrH/2,"Level Complete",1,1 EndIf If GameOverReason=3 Color 255,255,255 Text scrw/2,(scrh/8)3,"You were killed by trash floating around!",1,1 Text scrw/2,(scrh/8)5,"Game Over",1,1 EndIf GameOverTick=GameOverTick+1 If GameOverTick>60 Then EndofGame=GameOverReason EndIf Flip If KeyDown(1) Then EndofGame=99 Until EndofGame<>0 If Endofgame=99 Then End Return Function NewParticle(Xpos,Ypos,maxspeed#,many,r=255,g=255,b=100) For create=1 To many ;lol! just realized! "One too many" p.Particle=New Particle ; position p\x = Xpos p\y = Ypos ; momentum p\dx = Rnd(-maxspeed,maxspeed) p\dy = Rnd(-maxspeed,maxspeed) ; color p\r = r p\g = g p\b = b Next End Function Function StarField() For st.ar=Each ar kill=0 For g.Gravity = Each Gravity spdis# = Sqr#(((st\x# - g\x#) ^ 2) + ((st\y# - g\y#) ^ 2)) gmul# = 1 - (spdis# / 800) ;More power to suck in stars! If gmul# < 0 Then gmul# = 0 st\gox# = st\gox# + (Cos#(ATan2#(st\y# - g\y#,st\x# - g\x#) + 180) g\p# * gmul#) st\Goy# = st\goy# + (Sin#(ATan2#(st\y# - g\y#,st\x# - g\x#) + 180) * g\p# * gmul#) If Abs(st\x-g\x)<20 And Abs(st\y-g\y)<20 Then kill=1 Next st\x=st\x+(st\GoX/4) st\y=st\y+(st\GoY/4) ;But suck slower Color st\d,st\d,st\d Plot st\x,st\y If kill=1 Delete st.ar newst.ar=New ar newst\d=Rand(5,25)*10 Repeat goodspot=0 x=Rand(-100,scrw+100) y=Rand(-100,scrh+100) If (x<0 Or x>scrw) Or (y<0 Or y>scrh) Then goodspot=1 Until goodspot=1 newst\x=x:newst\y=y newst\GoX=0 newst\GoY=0 EndIf Next End Function .ufo Data 0,0,0,0,0,0,0,0 Data 0,0,0,2,2,0,0,0 Data 0,0,2,1,2,2,0,0 Data 0,0,2,2,2,2,0,0 Data 3,3,3,3,3,3,3,3 Data 3,3,3,3,3,3,3,3 Data 0,3,3,3,3,3,3,0 Data 0,0,0,0,0,0,0,0 .rock Data 0,0,0,0,0,0,0,0 Data 0,0,1,1,2,1,2,0 Data 0,1,1,2,2,2,0,0 Data 0,0,2,2,2,2,0,0 Data 0,0,1,2,2,3,0,0 Data 0,1,2,2,3,3,3,0 Data 0,0,3,3,3,3,3,0 Data 0,0,0,0,0,0,0,0 --v -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Mon, 07 May 2007, 18:25
Jayenkai	At a slight request, can we remove the 50Kb of midi data from all future versions? (I don't like the idea of the database clogging up with 50kb of data being repeatedly posted to the forum!) -=-=- ''Load, Next List!''
Tue, 08 May 2007, 00:02
shroom_monk	Just gotta love that music!!! Jay, when you say remove from future versions, does that mean remove it from the game, of just don't post it? -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Tue, 08 May 2007, 00:47
Yayyak	Just cut out the data, and replace it with a comment saying where it should go. That way people can just copy and paste the data back in again.
Tue, 08 May 2007, 06:01
Blitz3Dman	\|moan\| It's exceeded B3D demo version code limit and the music refuses to play for BB2D for some reason. \|moan\| -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Tue, 08 May 2007, 09:24
power mousey	wow, a lot has already been added and also coded. If you all like I'll write the intro and also the game manual. True.
Tue, 08 May 2007, 11:12
shroom_monk	This is really cool! We've done so much. I wonder what else we could add... -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Tue, 08 May 2007, 11:36
JL235	a storyline?
Tue, 08 May 2007, 11:44
shroom_monk	Also, what about: -Enemies -Power-Ups ... -Mushrooms! -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Tue, 08 May 2007, 12:03
power mousey	Shroom and DD, thats what I mean by an intro...is a storyline. Nothing complex or long....I think for this game. Unless you like or want me to make it fancy and frivilous. I think something just short, clear and concise. and oh Shroom, I like that suggestion of power ups and/or enemies: mushrooms, natch naturally.
Page : 1 2 Next Prev