Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|602\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #111 (01 Aug 2007) The Gravity Challenge Create a game that makes good use of Gravity.

Swirly Squares by Jayenkai for Workshop #111 Hit all the green boxes with only one shot! Mouse CanLock=1 AppTitle "Orbit" Graphics 800,600,24,2 SetBuffer BackBuffer() Type ile Field x#,y#,xv#,yv# Field r,g,b End Type Type net Field x#,y#,grav#,pull# Field r,g,b End Type Type get Field x#,y# End Type .restart For tar.get=Each get Delete tar.get Next For miss.ile=Each ile Delete miss.ile Next For pla.net=Each net Delete pla.net Next haveshot=0 Repeat:Until MouseDown(1)=0 Cls SeedRnd MilliSecs() For n=1 To 5 pla.net=New net pla\x=Rnd(100,700) pla\y=Rnd(100,500) pla\grav=Rnd(0.4,0.7) pla\pull=Rnd(100,200) pla\r=200 pla\g=250 pla\b=200 Next For n=1 To 25 tar.get=New get ;Mmmm.... Nougat... tar\x=Rnd(100,700) tar\y=Rnd(100,500) Next Repeat targetsleft=0 For tar.get=Each get kill=0 For miss.ile=Each ile If Abs(miss\x-tar\x)<10 And Abs(miss\y-tar\y)<10 Then kill=1:Delete miss.ile Next Color 80,255,80:If kill=1 Then Color 0,80,0 Rect tar\x-8,tar\y-8,16,16,0 If kill=1 For n=0 To 18 an.ile=New ile an\x=tar\x an\y=tar\y ang=n20 an\yv=0-Cos(Ang)2 an\xv=0-Sin(ang)2 an\r=0:an\g=255:an\b=0 Next Delete tar.get EndIf If kill=0 Then targetsleft=targetsleft+1 Next For pla.net=Each net For miss.ile=Each ile spdis# = Sqr#(((miss\x# - pla\x#) ^ 2) + ((miss\y# - pla\y#) ^ 2)) gmul# = 1-(spdis# / pla\pull):If gmul<0 Then gmul=0 DebugLog gmul miss\xv# = miss\xv# + (Cos#(ATan2#(miss\y# - pla\y#,miss\x# - pla\x) + 180) pla\grav * gmul#) miss\yv# = miss\yv# + (Sin#(ATan2#(miss\y# - pla\y#,miss\x# - pla\x) + 180) * pla\grav * gmul#) Next Color pla\r,pla\g,pla\b Oval pla\x,pla\y,5,5,True Next missleft=0 If CanLock=1 Then LockBuffer BackBuffer() For miss.ile=Each ile kill=0 miss\x=miss\x+miss\xv miss\y=miss\y+miss\yv Color miss\r,miss\g,miss\b Line miss\x,miss\y,miss\x+miss\xv,miss\y+miss\yv If miss\x<0 Or miss\x>800 Or miss\y<0 Or miss\y>600 Then kill=1 missleft=1 If kill=1 Then Delete miss.ile Next If CanLock=1 Then UnlockBuffer BackBuffer() If missleft=0 And haveshot=1 And targetsleft>0 Then Color 255,255,255:Text 400,250,"Bad Luck!",1,1:Text 400,350,"Try Again..",1,1:If MouseDown(1) Then Goto restart If haveshot=1 And targetsleft=0 Then Color 255,255,255:Text 400,250,"Yeay!",1,1:Text 400,350,"Have another go!",1,1:If MouseDown(1) Then Goto restart MouseAng#=ATan2(600-MouseY(),400-MouseX()) dx#=0-Cos(MouseAng)2 dy#=0-Sin(MouseAng)2 If MouseDown(1) And HaveShot=0 Then Haveshot=1:miss.ile=New ile:miss\x=400:miss\y=600:miss\xv=dx:miss\yv=dy:miss\r=Rand(3,5)50:miss\g=Rand(3,5)50:miss\b=Rand(3,5)*50 Flip If CanLock=1 Then LockBuffer BackBuffer() For miss.ile=Each ile v=100 Color miss\r/2,miss\g/2,miss\b/2 Line miss\x,miss\y,miss\x+miss\xv,miss\y+miss\yv If miss\r>v Then miss\r=miss\r-1 If miss\g>v Then miss\g=miss\g-1 If miss\b>v Then miss\b=miss\b-1 If miss\r<=v And miss\g<=v And miss\b<=v Then Delete miss.ile Next If CanLock=1 Then UnlockBuffer BackBuffer() Until KeyDown(1) End

Wednesday Workshop #111

The Gravity Challenge

Swirly Squares