' Particle Pinch
'
' Copyright 2005 Ian Cowburn
'
' $Id$
'
Strict
Import noddybox.vector
Import noddybox.bitmapfont
Import "types.bmx"
Import "level.bmx"

Type TGame

	Const LEVEL_NOTOVER:Int=	0
	Const LEVEL_WON:Int=		1
	Const LEVEL_LOST:Int=		2
	
	Field level:TLevel
	Field mass:TList
	Field point:TList
	Field timer:Int
	Field num:Int
	Field lost:Int
	Field captured:Int
	Field done:Int
	Field frame:Int
	Field placed:Int
	Field txtoff:Int[]
	Field playing:Int
	Field col:Int
	Field coli:Int
	
	Field final_percent:Int
	Field pass_time:Int
	
	Function Create:TGame(level:TLevel)
		Local o:TGame=New TGame
		
		o.level=level
		o.mass=CreateList()
		o.point=CreateList()
		o.level.CreatePlayfield(o.mass,o.point)
		o.timer=o.level.timer
		o.num=o.point.Count()
		o.done=LEVEL_NOTOVER
		o.frame=0
		o.placed=0
		o.txtoff=[GameGFX.font.TextWidth("PARTICLES"),GameGFX.font.TextWidth("CAPTURED"),GameGFX.font.TextWidth("TIMER"),GameGFX.font.TextWidth("LEFT")]
		o.playing=False
		o.col=0
		o.coli=5
		o.final_percent=0
		o.pass_time=0
		
		TParticleMachine.Clear()
		
		Return o
	End Function
	
	Method LabelMass(m:TMass)
		Local x:Int=m.x
		Local y:Int=m.y
		Local tx:Int
		Local lx:Int
		Local ty:Int
		Local ly:Int
		Local s:String
		Local l:Int
		
		If m.inverse
			s="-"+Int(m.mass)+" NEWTONS"
		Else
			s=Int(m.mass)+" NEWTONS"
		EndIf
		
		If m.friend
			s="COLLECTOR: " + s
		Else
			s="MASS: " + s
		EndIf
		
		l=GameGFX.smallfont.TextWidth(s)
		
		ly=y
		ty=Max(0,Min(GraphicsHeight()-GameGFX.smallfont.MaxHeight(),y-3))
		
		If x<GraphicsWidth()/2
			tx=0
			lx=l+2
			x:-4
		Else
			tx=GraphicsWidth()-GameGFX.smallfont.TextWidth(s)
			lx=tx-3
			x:+4
		EndIf
		
		SetColor(255,col,col)
		DrawLine(x,y,lx,ly)
		GameGFX.smallfont.DrawColoured(s,tx,ty+2,255,col,col)
	End Method
	
	Method Intro()
		Local y:Int=GraphicsHeight()/4
		Local yi:Int=25

		col:+coli
		
		If col=255 Or col=0
			coli=-coli
		EndIf
		
		For Local m:TMass=EachIn mass
			LabelMass(m)
		Next
		
		SetScale(2,2)
	
		GameGFX.font.CentreColoured(level.name,y,col,col,255-col)
		y:+yi
	
		GameGFX.font.CentreColoured("Need "+level.winpercent+"% to clear",y,col/2,col,col)
		y:+yi

		If level.maxmass>1
			GameGFX.font.CentreColoured("You can place only "+level.maxmass+" masses of " + Int(level.placemass) + " Newtons",y,col/2,col,col)
		Else
			GameGFX.font.CentreColoured("You can place only 1 mass of " + Int(level.placemass) + " Newtons",y,col/2,col,col)
		EndIf
		y:+yi

		If level.invmass
			GameGFX.font.CentreColoured("PLACED MASSES ARE INVERTED!",y,col,col/2,col/2)
			y:+yi
		EndIf
	
		If level.placefriend
			GameGFX.font.CentreColoured("PLACED MASSES ARE COLLECTORS!",y,col,col/2,col/2)
			y:+yi
		EndIf
	
		y:+yi
		GameGFX.font.Centre("Press Left Mouse Button",y)
		y:+yi

		SetScale(1,1)
	End Method
	
	Method Play:Int()
		captured=0
		lost=0

		If playing		
			For Local m:TMass=EachIn mass
				For Local s:TPoint=EachIn point
					s.Attract(m)
				Next
			Next
		EndIf
		
		TParticleMachine.Process()
		
		If playing
			For Local m:TMass=EachIn mass
				m.Move()
				m.Draw()
			Next
		Else
			For Local m:TMass=EachIn mass
				m.Draw()
			Next
		EndIf
		
		If playing		
			For Local s:TPoint=EachIn point
				s.Move()
				s.Draw()
				
				If s.dead
					captured:+1
				ElseIf s.lost
					lost:+1
				EndIf
			Next
		Else
			For Local s:TPoint=EachIn point
				s.Draw()
			Next
		EndIf			
		
		If playing And done=LEVEL_NOTOVER
			frame:+1
			
			If frame=60 And timer>0
				frame=0
				timer:-1
			EndIf
		EndIf
		
		Local percent:Int
		
		If done<>LEVEL_NOTOVER
			percent=final_percent
		Else
			percent:Int=Int(Double(captured)/Double(num)*100.0)
			
			If percent>=level.winpercent And pass_time=0
				pass_time=timer
			EndIf
			
			Local lostpercent:Int=Int(Double(lost)/Double(num)*100.0)
			
			If lostpercent>(101-level.winpercent)
				done=LEVEL_LOST
				final_percent=percent
			EndIf
		EndIf
		
		If (timer=0 Or num=captured+lost) And done=LEVEL_NOTOVER
			final_percent=percent
			If percent>=level.winpercent
				done=LEVEL_WON
			Else
				done=LEVEL_LOST
			EndIf
		EndIf
		
		GameGFX.font.Draw("PARTICLES",0,0)
		GameGFX.font.DrawColoured(num-captured-lost,txtoff[0]+10,0,255,255,0)

		GameGFX.font.Draw("CAPTURED",200,0)

		If percent<level.winpercent
			GameGFX.font.DrawColoured(percent+"%",txtoff[1]+210,0,255,50,50)
		Else
			GameGFX.font.DrawColoured(percent+"%",txtoff[1]+210,0,50,255,50)
		EndIf
		
		GameGFX.font.Draw("LEFT",400,0)
		
		SetScale(2,2)
		SetColor(255,255,255)
		For Local f:Int=0 Until level.maxmass-placed
			DrawImage(GameGFX.mass,410+txtoff[3]+f*10,3)
		Next
		SetScale(1,1)
		
		GameGFX.font.Draw("TIMER",600,0)
		
		If timer>10
			GameGFX.font.Draw(timer,txtoff[2]+610,0)
		Else
			GameGFX.font.DrawColoured(timer,txtoff[2]+610,0,255,0,0)
		EndIf
		
		Select done
			Case LEVEL_NOTOVER
				If playing
					If placed<level.maxmass And mass.Count()<MAX_GRAV
						If MouseHit(1)
							Local m:TMass=New TMass
							m.friend=level.placefriend
							m.inverse=level.invmass
							m.x=MouseX()
							m.y=MouseY()
							m.img=GameGFX.mass
							m.mass=level.placemass
							mass.AddLast(m)
							placed:+1
						EndIf
					EndIf
				Else
					Intro()
					If MouseHit(1)
						playing=True
					EndIf
				EndIf
			Case LEVEL_WON
				If final_percent=100
					SetScale(4,4)
					GameGFX.font.CentreColoured("PERFECT!",50,col,255-col,col/2)
					col:+coli
					
					If col=255 Or col=0
						TParticleMachine.AddFirework(Rand(0,GraphicsWidth()),Rand(0,GraphicsHeight()))
						coli=-coli
					EndIf
				EndIf
				
				SetScale(2,2)
				SetAlpha(0.7)
				GameGFX.font.CentreColoured("LEVEL COMPLETED!",GraphicsHeight()/2+20,255,255,0)
				GameGFX.font.CentreColoured("You got the pass mark with "+pass_time+" left on the clock",GraphicsHeight()/2+40,255,255,0)
				SetScale(1,1)
				SetAlpha(1)
			Case LEVEL_LOST
				SetScale(2,2)
				SetAlpha(0.7)
				GameGFX.font.CentreColoured("LEVEL FAILED!",GraphicsHeight()/2+20,255,64,64)
				SetScale(1,1)
				SetAlpha(1)
		EndSelect
		
		Return done
	End Method	

End Type