Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|400\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #084 - The Four Object Challenge
Tue, 23 Jan 2007, 16:47
Jayenkai	Wednesday Workshop #084 : The Four Object Challenge Time until Deadline Week : 24 January 2007 The Reason : A recreation of a classic! Right at the start, we had the Five Object Challenge. This time it's a little harder.. The Challenge : Using only Blitz's internal 2D drawing commands (Plot, Line, Rect, Oval, Text) to draw, you must create a game which only ever draws 4 objects onscreen per frame. Extra Info You may not use CopyRect, or otherwise, to replicate more objects. A single Object = 1 single drawing command. If you use Text, you can have as many characters in that line of text as you wish. Feel free to look back at Week 1 for some ideas.. But no blatent copying! 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 underneith this post, leaving a link to your exe or the source of your game, or whatever. (I'll get round to allowing uploads sometime, honest!) 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 entered into next week's voting. (If there are any entries..) All entries will be entered into voting which will take place if there's more than one entry.. 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 Last week there weren't any entries. -=-=- ''Load, Next List!''
Fri, 26 Jan 2007, 06:52
Jayenkai	Quicky game. Bucket Full of Numbers Catch the numbers in the bucket. Use 1->0 to position the bucket. The higher the number you catch, the more points you get. 50 numbers to catch. Graphics 640,480,32,2 SetBuffer BackBuffer() Dim array(3,5) For n=1 To 3 array(n,1)=Rand(1,10) array(n,2)=Rand(-100,-600) array(n,3)=Rand(0,9) array(n,4)=Rand(4,8) Next font=LoadFont("Arial",24) SetFont font score=0 nums=3 GoX=5 Repeat Cls For n=1 To 10 If KeyDown(n+1) Then GoX=n Next For n=1 To 3 array(n,2)=array(n,2)+array(n,4) Color 255,255,255 Text (array(n,1)64)-32,array(n,2),array(n,3),1,1 If array(n,2)>480 If nums=50 Then fin=fin+1:array(n,1)=500:array(n,2)=-10000 If nums<50 nums=nums+1 array(n,1)=Rand(1,10) array(n,2)=Rand(-100,-600) array(n,3)=Rand(0,9) array(n,4)=Rand(4,8) EndIf EndIf If array(n,2)=>400 And array(n,2)<=460 And array(n,1)=GoX Score=score+array(n,3) If nums=50 Then fin=fin+1:array(n,1)=500:array(n,2)=-10000 If nums<50 array(n,1)=Rand(1,10) array(n,2)=Rand(-100,-600) array(n,3)=Rand(0,9) array(n,4)=Rand(4,8) nums=nums+1 EndIf EndIf Next Color 128,255,128 Rect (GoX64)-48,400,32,60,1 If fin=3 Then endofgame=1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Cls Text 320,240,"You scored",1,1 Text 320,280,score,1,1 Flip Delay 2500 --v -=-=- ''Load, Next List!''
Fri, 26 Jan 2007, 07:17
JL235	Very nice, and very hard. But you should make the low numbers go slow and the large numbers go fast.
Fri, 26 Jan 2007, 07:21
Jayenkai	No time for that, here's another one!! Super Roadster Cursors left and right to turn. Keep the roadster on the road! Graphics 600,600,32,2 Graphics 200,200,32,3 SetBuffer BackBuffer() PAng#=90 PX#=100 PY#=100 RAng=9000 RWide=40 RAngGo=0 SeedRnd MilliSecs() Frametime=0 Repeat Cls Frametime=Frametime+1 RAng=RAng+RAngGo If Rand(1,50)=1 Then RAngGo=Rand(-10,10)25 If Rand(1,50)=1 Then RAngGo=Rand(-10,10)12 If Rand(1,50)=1 Then RAngGo=Rand(-10,10) PX=PX+Sin(PAng)2.1 PY=PY-Cos(PAng)2.1 PX=PX-Sin(Float(RAng)/100)2 PY=PY+Cos(Float(RAng)/100)2 Line PX+Sin(PAng)10,PY-Cos(PAng)10,PX-Sin(PAng+20)10,PY+Cos(PAng+20)10 Line PX+Sin(PAng)10,PY-Cos(PAng)10,PX-Sin(PAng-20)10,PY+Cos(PAng-20)10 If ((PX+Sin(PAng)10)<0 Or (PX+Sin(PAng)10)>200) Or ((PY-Cos(PAng)10)<0 Or (PY-Cos(PAng)10)>200) endofgame=1 EndIf Line 100+(Sin((Float(RAng)/100))200)-(Sin(90+(Float(RAng)/100))RWide),100-(Cos((Float(RAng)/100))200)+(Cos(90+(Float(RAng)/100))RWide),100-(Sin((Float(RAng)/100))200)-(Sin(90+(Float(RAng)/100))RWide),100+(Cos((Float(RAng)/100))200)+(Cos(90+(Float(RAng)/100))RWide) Line 100+(Sin((Float(RAng)/100))200)-(Sin(270+(Float(RAng)/100))RWide),100-(Cos((Float(RAng)/100))200)+(Cos(270+(Float(RAng)/100))RWide),100-(Sin((Float(RAng)/100))200)-(Sin(270+(Float(RAng)/100))RWide),100+(Cos((Float(RAng)/100))200)+(Cos(270+(Float(RAng)/100))RWide) PAng=PAng+(KeyDown(205)2)-(KeyDown(203)2) Flip Delay 10 If KeyDown(1) Then endofgame=99 Until endofgame<>0 Cls Text 100,75,"Distance Travelled",1,1 Text 100,125,Frametime/100+" Miles",1,1 Flip Delay 2500 --v -=-=- ''Load, Next List!''
Fri, 26 Jan 2007, 08:12
mike_g	They are both cool games. I like the bucket one best. The controls take some getting used to, but its quite fun
Fri, 26 Jan 2007, 10:51
Jayenkai	Rolly Polly Bally Guide the ball atop the platforms. Graphics 600,600,32,2 Graphics 200,200,32,3 SetBuffer BackBuffer() SeedRnd MilliSecs() Dim array(4,3) atx=68 aty=68 r=Rand(1,4) For n=1 To 3 array(n,1)=atx array(n,2)=aty array(n,3)=255n r=Rand(1,4) If r=1 Then atx=atx-64 If r=2 Then aty=aty+64 If r=3 Then atx=atx+64 If r=4 Then aty=aty-64 Next gx=0 gy=0 speed=2 score=3 Repeat Cls For n=1 To 2 If array(n,3)>array(n+1,3) For e=1 To 3 array(4,e)=array(n,e) array(n,e)=array(n+1,e) array(n+1,e)=array(4,e) Next EndIf Next on=0 For n=1 To 3 c=array(n,3)/3 If c>255 Then c=255 array(n,3)=array(n,3)-Speed If array(n,3)<0 array(n,1)=atx array(n,2)=aty array(n,3)=2553 r=Rand(1,4) If r=1 Then atx=atx-64 If r=2 Then aty=aty+64 If r=3 Then atx=atx+64 If r=4 Then aty=aty-64 score=score+1 st=st+1 If st=10 Then st=0:speed=speed+1 If speed>25 Then speed=25 EndIf array(n,1)=array(n,1)-(gx/3) array(n,2)=array(n,2)-(gy/3) Color c,c,c Rect array(n,1),array(n,2),64,64,1 If RectsOverlap(array(n,1),array(n,2),64,64,94,94,12,12) Then on=1 Next If on=0 Then endofgame=1 atx=atx-(gx/3) aty=aty-(gy/3) gx=gx+KeyDown(205)-KeyDown(203) gy=gy+KeyDown(208)-KeyDown(200) If KeyDown(205)=0 And gx>0 Then gx=gx-1 If KeyDown(203)=0 And gx<0 Then gx=gx+1 If KeyDown(200)=0 And gy<0 Then gy=gy+1 If KeyDown(208)=0 And gy>0 Then gy=gy-1 Color 255,100,100 Oval 92,92,16,16,1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Cls Text 100,75,"You scored",1,1 Text 100,125,score,1,1 Flip Delay 2500 --v (Silly games roxorz!) -=-=- ''Load, Next List!''
Fri, 26 Jan 2007, 10:57
shroom_monk	I think Jay's gonna win this one, with all these entries!!! Keep 'em comin', Jay!!! -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sat, 27 Jan 2007, 06:31
Jayenkai	Weeee Drop a Bomb Cursors and Spacebar for this one. Drop the bomb to destroy the blocks. Graphics 640,480,32,2 SetBuffer BackBuffer() Dim array(2,3) For n=1 To 2 array(n,1)=Rand(0,640) array(n,2)=Rand(0,480) array(n,3)=Rand(0,360) Next PAng#=0 PSpeed#=0 ; Oooh, Pang, might try that next.. PShot=0 PShotX#=0 PShotY#=0 PShotAng#=0 PDist=0 PX#=320 PY#=240 Repeat Cls Color 255,255,255 If KeyDown(200) Then pspeed=pspeed+0.1 If KeyDown(200)=0 Then pspeed=pspeed-0.05 If pspeed>5 Then pspeed=5 If pspeed<0 Then pspeed=0 PX=PX+Sin(Pang)pspeed Py=Py+Cos(Pang)pspeed PAng=PAng+(KeyDown(203)-KeyDown(205))4 If pang>360 Then pang=pang-360 If pang<0 Then pang=pang+360 If PX<0 Then PX=0:Pang=ReflectNormal(PAng,180) If PY<0 Then PY=0:Pang=ReflectNormal(PAng,270) If PX>640 Then PX=640:Pang=ReflectNormal(PAng,0) If PY>480 Then PY=480:Pang=ReflectNormal(PAng,90) If KeyDown(57) Then PShot=1 Line PX,PY,PX-Sin(PAng)10,PY-Cos(PAng)10 If PShot=0 Then PShotAng=PAng:PShotX=PX:PShotY=PY:PDist=0:Oval PX-(Sin(PAng)12)-8,PY-(Cos(PAng)12)-8,16,16,1 If PShot=1 PDist=PDist+2 If PDist=256 Then PShot=0 Color 255,255-PDist/2,255-PDist Oval PShotX-(32-(PDist/8)),PShotY-(32-(PDist/8)),64-(PDist/4),64-(PDist/4),1 For n=1 To 2 If RectsOverlap(PShotX-(32-(PDist/8)),PShotY-(32-(PDist/8)),64-(PDist/4),64-(PDist/4),array(n,1)-8,array(n,2)-8,16,16) score=score+1 array(n,1)=Rand(0,640) array(n,2)=Rand(0,480) array(n,3)=Rand(0,360) EndIf Next EndIf For n=1 To 2 Color 160,0,0 array(n,1)=array(n,1)+Sin(array(n,3))2 array(n,2)=array(n,2)+Cos(array(n,3))*2 If array(n,1)<0 Then array(n,1)=0:array(n,3)=ReflectNormal(array(n,3),180) If array(n,2)<0 Then array(n,2)=0:array(n,3)=ReflectNormal(array(n,3),270) If array(n,1)>640 Then array(n,1)=640:array(n,3)=ReflectNormal(array(n,3),0) If array(n,2)>480 Then array(n,2)=480:array(n,3)=ReflectNormal(array(n,3),90) Rect array(n,1)-8,array(n,2)-8,16,16,1 If RectsOverlap(array(n,1)-8,array(n,2)-8,16,16,PX-2,PY-2,4,4) Endofgame=1 EndIf Next Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Color 255,255,255 Cls Text 320,200,"You scored",1,1 Text 320,280,score,1,1 Flip Delay 2500 Function ReflectNormal#(MoveAngle#,WallAngle#) Local Out#=0 ;Should work for most angles (untested, mind!) , but will only reflect as a mirror would. Repeat If MoveAngle>360 Then MoveAngle=MoveAngle-360 If MoveAngle<0 Then MoveAngle=MoveAngle+360 Until MoveAngle=>0 And MoveAngle<=360 Repeat If WallAngle>360 Then WallAngle=WallAngle-360 If WallAngle<0 Then WallAngle=WallAngle+360 Until WallAngle=>0 And WallAngle<=360 WallNormal#=WallAngle-90 Out=WallAngle+(WallAngle-MoveAngle) Return Out# End Function --v -=-=- ''Load, Next List!''
Sat, 27 Jan 2007, 06:34
shroom_monk	So, it looks like Jay's gonna win this one, but the question is: which one of his entries will win??? -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sat, 27 Jan 2007, 06:37
Jayenkai	Come on, guys, these games are easy to make!! They're taking me 30 mins at a time. Get a move on! -=-=- ''Load, Next List!''
Sat, 27 Jan 2007, 08:49
HoboBen	Well, now that I have no excuse to forget I'll get cracking. -=-=- blog \| work \| code \| more code
Sat, 27 Jan 2007, 09:53
HoboBen	Dotty AppTitle "Dotty : Wednesday Workshop #084 : The Four Object Challenge" ;Use Mouse to move the small dot. ;Avoid the walls ;Avoid the big blocks Graphics 640,480,0,2 HidePointer MoveMouse 320,240 ClsColor(0,0,64) life=255 GameOver=0 block1x=140 block1y=145 block1xdir=6 block1ydir=-6 block1r=65 block2x=240 block2y=325 block2xdir=-7 block2ydir=-12 block2r=38 Const lifeD=5 time=MilliSecs() While GameOver=0 SetBuffer BackBuffer() Cls ;Rectangle Color(0,0,255) Rect(50,50,540,380,0) ;Blocks ;1 - draw Color(128+b1r,128,255-b1r-b1r) Rect(block1x-block1r,block1y-block1r,block1r+block1r,block1r+block1r,1) ;2 - draw Color(128+b2r,255-b2r,128-b2r) Rect(block2x-block2r,block2y-block2r,block2r+block2r,block2r+block2r,1) ;1 - logic If (block1x-block1r)<50 Or (block1x+block1r)>590 Then block1xdir=-block1xdir block1x=block1x+block1xdir If (block1y-block1r)<50 Or (block1y+block1r)>430 Then block1ydir=-block1ydir block1y=block1y+block1ydir ;2 - logic If (block2x-block2r)<50 Or (block2x+block2r)>590 Then block2xdir=-block2xdir block2x=block2x+block2xdir If (block2y-block2r)<50 Or (block2y+block2r)>430 Then block2ydir=-block2ydir block2y=block2y+block2ydir ;Player Color(128,life,0) Oval(MouseX()-5,MouseY()-5,10,10,1) ;Confine to rect If MouseX()<55 Then MoveMouse 56,MouseY() life=life-lifeD EndIf If MouseX()>585 Then MoveMouse 584,MouseY() life=life-lifeD EndIf If MouseY()<55 Then MoveMouse MouseX(),56 life=life-lifeD EndIf If MouseY()>425 Then MoveMouse MouseX(),424 life=life-lifeD EndIf ;Hit boxes... If (MouseX()+3)>(block1x-block1r) And (MouseX()-3)<(block1x+block1r) And (MouseY()+3)>(block1y-block1r) And (MouseY()-3)<(block1y+block1r) Then life=life-lifeD ClsColor(0,64,64) b1r=120 ElseIf (MouseX()+3)>(block2x-block2r) And (MouseX()-3)<(block2x+block2r) And (MouseY()+3)>(block2y-block2r) And (MouseY()-3)<(block2y+block2r) Then life=life-lifeD ClsColor(0,64,64) b2r=120 Else ClsColor(0,0,64) b2r=0 b1r=0 EndIf ;If Dead... If life<0 Then GameOver=1 If KeyHit(1) Then GameOver=1 Flip Delay 5 Wend fintime=(MilliSecs()-time)+1000 score$=fintime score$=Left(score$,(Len(score$)-3)) ; millisecs into secs ShowPointer RuntimeError("You have died. Your score was: "+score$+"") End --v -=-=- blog \| work \| code \| more code
Sat, 27 Jan 2007, 15:18
magicman	i was a bit confused by you turning in so many entrys jay, because i thought it was still the school yard challenge, what confused me the most was tat i couldnt tell how any of your entrys had anything to do with a school yard activity....... but now that im no longer confused, i present to you a simple avoid the objects game. AVOID THE CRAP Graphics 800,600,16,2 AutoMidHandle True player = CreateImage(20,20) SetBuffer ImageBuffer(player) Color 0,255,0 Oval 0,0,20,20,0 Global px# = 100 Global py# = 500 Global pxv# = 0 Global pyv# = 0 b1 = CreateImage(50,50) SetBuffer ImageBuffer(b1) Color 255,0,0 Rect 0,0,50,50,0 b2 = CreateImage(60,60) SetBuffer ImageBuffer(b2) Color 255,0,0 Rect 0,0,60,60,0 b3 = CreateImage(40,40) SetBuffer ImageBuffer(b3) Color 255,0,0 Rect 0,0,40,40,0 Global b1x# = 100 Global b1y# = 100 Global b1xv# = 4 Global b1yv# = 4 Global b2x# = 500 Global b2y# = 500 Global b2xv# = -3 Global b2yv# = -3 Global b3x# = 700 Global b3y# = 100 Global b3xv# = -3 Global b3yv# = 3 Global score = 0 Global highscore = 0 SetBuffer BackBuffer() While Not KeyDown(1) Cls score = score + 1 If KeyDown(200) pyv = pyv -.1 If KeyDown(208) pyv = pyv + .1 If KeyDown(203) pxv = pxv -.1 If KeyDown(205) pxv = pxv + .1 If pxv > 6 pxv = 6 If pxv < -6 pxv = -6 If pyv > 6 pyv = 6 If pyv < -6 pyv = -6 If ImagesCollide(player,px,py,0,b1,b1x,b1y,0) b1x = 100 b1y = 100 b2x = 700 b2y = 500 b3x = 700 b3y = 100 px = 100 py = 500 pxv = 0 pyv = 0 score = 0 EndIf If ImagesCollide(player,px,py,0,b2,b2x,b2y,0) b1x = 100 b1y = 100 b2x = 700 b2y = 500 b3x = 700 b3y = 100 px = 100 py = 500 pxv = 0 pyv = 0 score = 0 EndIf If ImagesCollide(player,px,py,0,b3,b3x,b3y,0) b1x = 100 b1y = 100 b2x = 700 b2y = 500 b3x = 700 b3y = 100 px = 100 py = 500 pxv = 0 pyv = 0 score = 0 EndIf DrawImage b1,b1x,b1y b1x = b1x + b1xv b1y = b1y + b1yv If b1y > 575 b1yv = -b1yv b1y = b1y -1 EndIf If b1y < 25 b1yv = -b1yv b1y = b1y +1 EndIf If b1x > 775 b1xv = -b1xv b1x = b1x -1 EndIf If b1x < 25 b1xv = -b1xv b1x = b1x +1 EndIf DrawImage b2,b2x,b2y b2x = b2x + b2xv b2y = b2y + b2yv If b2y > 570 b2yv = -b2yv b2y = b2y -1 EndIf If b2y < 30 b2yv = -b2yv b2y = b2y +1 EndIf If b2x > 770 b2xv = -b2xv b2x = b2x -1 EndIf If b2x < 30 b2xv = -b2xv b2x = b2x +1 EndIf DrawImage b3,b3x,b3y b3x = b3x + b3xv b3y = b3y + b3yv If b3y > 580 b3yv = -b3yv b3y = b3y -1 EndIf If b3y < 20 b3yv = -b3yv b3y = b3y +1 EndIf If b3x > 780 b3xv = -b3xv b3x = b3x -1 EndIf If b3x < 20 b3xv = -b3xv b3x = b3x +1 EndIf DrawImage player,px,py px = px + pxv py = py + pyv If px > 790 pxv = -pxv If px < 10 pxv = -pxv If py > 590 pyv = -pyv If py < 10 pyv = -pyv Color 255,255,255 Text 290,10,"SCORE: " + score Text 480,10,"HIGHSCORE: " + highscore If score > highscore highscore = score Delay 1 Flip Wend End --v -=-=- Stuff... Yeah...
Sun, 28 Jan 2007, 01:46
svrman	Red Light, Green Light! \|edit\| Updated with additional racer to make it four! >_< \|edit\| \|edit\| Speed tweaked >_< I figured my mouse sensitivity is probably higher than most! \|edit\| ;red traffic light game ; ; ; How to Play! ; Shake mouse as fast as you can to race! ; But beware, If you move during a red light ,you lose! ; Graphics 640,480,0,2 SetBuffer BackBuffer() game=1 win=0 oldmx=0 oldmy=0 myDiff=0 px=0 ;player variable ex=0 ;enemy variable greenlight=0 tick=0 countdown=5000 ; start the race Repeat Cls Coldtime=MilliSecs() If MilliSecs()<Coldtime+5000 Then countdown=countdown-50 End If Text (640/2)-50,480/2,"READY TO RACE IN: "+countdown Flip Until KeyHit(1) Or countdown=0 Repeat Cls ; mouse code oldmy=MouseY() mydiff=oldmy+MouseYSpeed() oldmx=MouseX() mxdiff=oldmx+MouseXSpeed() ; mouse strength : default=150 : lower for a easier time :) ; screenwidth is larger than screenheight if you was wondering... If Abs(MouseY()-mydiff)>150 Then px=px+2 If Abs(MouseX()-mxdiff)>200 Then px=px+2 ; ticker for enemy action Eoldtime=MilliSecs() If MilliSecs()<Eoldtime+1 go=Rand(0,100) If go<15 And greenlight=1 Then ex=ex+1 End If E2oldtime=MilliSecs() If MilliSecs()<E2oldtime+1 go2=Rand(0,100) If go2<5 And greenlight=1 Then ex2=ex2+3 End If ; ticker for light changes Loldtime=MilliSecs() If MilliSecs()<Loldtime+10000 tick=tick+1 EndIf If tick>100 Then greenlight=Rand(0,1) tick=0 End If If greenlight=1 Then Color 0,255,0 If greenlight=0 Then Color 255,0,0 Oval 450,50,50,50 ;traffic light Color 255,255,255 Rect 100+px,200,30,30 ; player rect color 100,100,100 Rect 100+ex,300,30,30 ; enemy rect Rect 100+ex2,400,30,30 ; enemy rect ;result ; ; 0.25 ticks grace period. ; allows player time to react. Instant lose is no fun :-) ; If tick>25 Then If Abs(MouseX()-mxdiff)>25 And greenlight=0 Then win=0:game=0 If Abs(MouseY()-mydiff)>25 And greenlight=0 Then win=0:game=0 End If ;win/lose triggers If px=450 Then win=1:game=0 If ex=450 Then win=0:game=0 If ex2=450 Then win=0:game=0 Flip Until KeyHit(1) Or game=0 FlushKeys() Cls color 255,255,255 If win=1 Then Text (640/2)-30,(480/2),"WIN!" Else Text (640/2)-30,(480/2),"LOSE!" End If Flip WaitKey() End --v -=-=- BlitzRSS script back online!
Sun, 28 Jan 2007, 02:37
Phoenix	Magicman's game is my favourite, my best score was 3913. 22 points in Hobo's game, and 75 on Rolly Polly Bally, that was a really nice game too. Serverman's game was a little too hard for me. Lots of games this week, and Jayenkai entered four entries
Sun, 28 Jan 2007, 12:42
HoboBen	Magicman, I liked your game... but including the text for the score, I counted 5 objects. -=-=- blog \| work \| code \| more code
Sun, 28 Jan 2007, 15:29
magicman	thanks! is text counted as an object? if it is i will do somthing about it. -=-=- Stuff... Yeah...
Sun, 28 Jan 2007, 15:45
Jayenkai	Yes, it is.. Text can be any number of chrs, but each use of "Text" counts as 1 object. -=-=- ''Load, Next List!''
Sun, 28 Jan 2007, 20:14
magicman	ah crap... well, can i say 0,1,2,3,4? i guess i will change it.... \|edit\| here... Graphics 800,600,16,2 AutoMidHandle True player = CreateImage(20,20) SetBuffer ImageBuffer(player) Color 0,255,0 Oval 0,0,20,20,0 Global px# = 100 Global py# = 500 Global pxv# = 0 Global pyv# = 0 b1 = CreateImage(50,50) SetBuffer ImageBuffer(b1) Color 255,0,0 Rect 0,0,50,50,0 b2 = CreateImage(60,60) SetBuffer ImageBuffer(b2) Color 255,0,0 Rect 0,0,60,60,0 b3 = CreateImage(40,40) SetBuffer ImageBuffer(b3) Color 255,0,0 Rect 0,0,40,40,0 Global b1x# = 100 Global b1y# = 100 Global b1xv# = 4 Global b1yv# = 4 Global b2x# = 500 Global b2y# = 500 Global b2xv# = -3 Global b2yv# = -3 Global b3x# = 700 Global b3y# = 100 Global b3xv# = -3 Global b3yv# = 3 Global score = 0 Global highscore = 0 Global gah = 0 SetBuffer BackBuffer() While Not KeyDown(1) Cls If gah = 0 score = score + 1 If KeyDown(200) pyv = pyv -.1 If KeyDown(208) pyv = pyv + .1 If KeyDown(203) pxv = pxv -.1 If KeyDown(205) pxv = pxv + .1 If pxv > 6 pxv = 6 If pxv < -6 pxv = -6 If pyv > 6 pyv = 6 If pyv < -6 pyv = -6 If ImagesCollide(player,px,py,0,b1,b1x,b1y,0) b1x = 100 b1y = 100 b2x = 700 b2y = 500 b3x = 700 b3y = 100 px = 100 py = 500 pxv = 0 pyv = 0 score = 0 gah = 1 EndIf If ImagesCollide(player,px,py,0,b2,b2x,b2y,0) b1x = 100 b1y = 100 b2x = 700 b2y = 500 b3x = 700 b3y = 100 px = 100 py = 500 pxv = 0 pyv = 0 score = 0 gah = 1 EndIf If ImagesCollide(player,px,py,0,b3,b3x,b3y,0) b1x = 100 b1y = 100 b2x = 700 b2y = 500 b3x = 700 b3y = 100 px = 100 py = 500 pxv = 0 pyv = 0 score = 0 gah = 1 EndIf If gah = 0 DrawImage b1,b1x,b1y b1x = b1x + b1xv b1y = b1y + b1yv If b1y > 575 b1yv = -b1yv b1y = b1y -1 EndIf If b1y < 25 b1yv = -b1yv b1y = b1y +1 EndIf If b1x > 775 b1xv = -b1xv b1x = b1x -1 EndIf If b1x < 25 b1xv = -b1xv b1x = b1x +1 EndIf DrawImage b2,b2x,b2y b2x = b2x + b2xv b2y = b2y + b2yv If b2y > 570 b2yv = -b2yv b2y = b2y -1 EndIf If b2y < 30 b2yv = -b2yv b2y = b2y +1 EndIf If b2x > 770 b2xv = -b2xv b2x = b2x -1 EndIf If b2x < 30 b2xv = -b2xv b2x = b2x +1 EndIf DrawImage b3,b3x,b3y b3x = b3x + b3xv b3y = b3y + b3yv If b3y > 580 b3yv = -b3yv b3y = b3y -1 EndIf If b3y < 20 b3yv = -b3yv b3y = b3y +1 EndIf If b3x > 780 b3xv = -b3xv b3x = b3x -1 EndIf If b3x < 20 b3xv = -b3xv b3x = b3x +1 EndIf EndIf DrawImage player,px,py px = px + pxv py = py + pyv If px > 790 pxv = -pxv If px < 10 pxv = -pxv If py > 590 pyv = -pyv If py < 10 pyv = -pyv If gah > 0 Color 255,255,255 Text 290,300,"SCORE: " + score Text 480,300,"HIGHSCORE: " + highscore gah = gah + 1 If gah > 200 gah = 0 EndIf If score > highscore highscore = score Delay 1 Flip Wend End --v \|edit\| -=-=- Stuff... Yeah...
Mon, 29 Jan 2007, 06:27
Phoenix	I played magicman's game again and got a much better score this time (link). I think you should make it harder the longer you survive.
Tue, 30 Jan 2007, 06:24
Jayenkai	Captcha tha Flaaag Cursor keys. Grab the flag, then carry it over to the left. Graphics 800,600,32,2 SetBuffer BackBuffer() Global p1x=200 Global p1y=300 Global p2x=600 Global p2y=300 font=LoadFont("Arial",24) SetFont font endtime=MilliSecs()+(100060) SeedRnd MilliSecs() Global fx,fy,f PutaFlagdownSomewhereSoItsAwayFromThePlayers d1=0 d2=0 Repeat Cls wave=wave+4 Color 255,0,0 Rect p1x-8,p1y-8,16,16,1 Color 0,0,255 Oval p2x-8,p2y-8,16,16,1 If f=1 Then fx=p1x-4:fy=p1y If f=2 Then fx=p2x-4:fy=p2y Color 0,255,0 Line fx,fy-8,fx,fy+12 e=Sin(wave)12 If e>0 Then Rect fx,fy-8,e,8,1 If e<0 Then Rect fx+e,fy-8,0-e,8,1 If fx<50 Then score1=score1+1:Gosub showscores:PutaFlagdownSomewhereSoItsAwayFromThePlayers If fx>750 Then score2=score2+1:Gosub showscores:PutaFlagdownSomewhereSoItsAwayFromThePlayers If KeyDown(200) Then d1=1 If KeyDown(208) Then d1=2 If KeyDown(203) Then d1=3 If KeyDown(205) Then d1=4 r=Rand(1,20) If f=0 If p2x<fx+4 And r=1 Then d2=4 If p2x>fx-4 And r=2 Then d2=3 If p2y<fy+4 And r=3 Then d2=2 If p2y>fy-4 And r=4 Then d2=1 EndIf If f=1 And r=1 Then d2=Rand(1,4) If f=2 Then d2=4 If Abs(p1x-fx)<12 And Abs(p1y-fy)<12 And f=0 Then f=1 If Abs(p2x-fx)<12 And Abs(p2y-fy)<12 And f=0 Then f=2 If d1=1 Then p1y=p1y-4 If d1=2 Then p1y=p1y+4 If d1=3 Then p1x=p1x-4 If d1=4 Then p1x=p1x+4 If d2=1 Then p2y=p2y-4 If d2=2 Then p2y=p2y+4 If d2=3 Then p2x=p2x-4 If d2=4 Then p2x=p2x+4 timeleft=endtime-MilliSecs() If timeleft<0 Then endofgame=1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Gosub showscores:End .ShowScores Cls Color 255,255,255 Text 400,200,"Scores",1,1 Color 255,0,0 Text 400,300,"Red : "+score1,1,1 Color 0,0,255 Text 400,350,"Blue : "+score2,1,1 Color 0,255,0 If endofgame=0 Text 400,400,"Time Left : "+millisecstotime$(timeleft),1,1 EndIf If endofgame<>0 Text 400,400,"Game Over",1,1 EndIf Flip Delay 1500 endtime=endtime+1500 Return Function millisecstotime$(mills) out$="" mills=(mills/1000) secs=mills Mod 60 mills=(mills/60) mins=mills Mod 60 out$=Right$("00"+mins,2)+":"+Right$("00"+secs,2) Return out$ End Function Function PutaFlagdownSomewhereSoItsAwayFromThePlayers() Repeat done=0 f=0 fx=Rand(200,600) fy=Rand(100,500) dx=fx-p1x dy=fy-p1y d1=Sqr((dxdx)+(dydy)) dx=fx-p2x dy=fy-p2y d2=Sqr((dxdx)+(dydy)) If d1<100 Or d2<100 Then done=1 Until done=0 End Function --v -=-=- ''Load, Next List!''
Tue, 30 Jan 2007, 16:51
Jayenkai	Hmm.. I forgot to post a "2 hours left" post, this week.. No matter.. Workshop over, time to head over to a less colourful challenge, and don't forget to vote for this week's entries. -=-=- ''Load, Next List!''

Bucket Full of Numbers

Super Roadster

Rolly Polly Bally

Drop a Bomb

Dotty

Captcha tha Flaaag