Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|533\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #084 (24 Jan 2007) The Four Object 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.

Bucket Full of Numbers by Jayenkai for Workshop #084 Catch the numbers in the bucket. The higher the number you catch, the more points you get. 50 numbers to catch. Use 1->0 to position the bucket. 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

Super Roadster by Jayenkai for Workshop #084 Keep the roadster on the road! Cursors left and right to turn. 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

Rolly Polly Bally by Jayenkai for Workshop #084 Guide the ball atop the platforms. Cursors 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

Drop a Bomb by Jayenkai for Workshop #084 Drop the bomb to destroy the blocks. Cursors and Spacebar 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

Dotty by HoboBen for Workshop #084 Avoid the walls. Avoid the big blocks. Mouse 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

Avoid the Crap by magicman for Workshop #084 Avoid the crap Cursors 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

Red Light, Green Light! by svrman for Workshop #084 Shake mouse as fast as you can to race! But beware, If you move during a red light ,you lose! Mouse ;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

Captcha tha Flaaag by Jayenkai for Workshop #084 Grab the flag, then carry it over to the left. Cursors 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

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.094

Wednesday Workshop - Socoder