Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|603|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

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=n*20
			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