require 'launchpad_mk2'

interaction = Launchpad::Interaction.new

UP = -1
DOWN = 1

@left_bottom_edge = @right_bottom_edge = 3
@left_score = @right_score = 0

def move_flipper(flipper, d, delta, column)
	flipper = flipper + delta
	if (flipper < 0 || flipper > 5)
		return flipper - delta
	end
	show_flipper(d, column, flipper)

	return flipper
end

def move_left_flipper(d, delta)
	@left_bottom_edge = move_flipper(@left_bottom_edge, d, delta, 0)
end

def move_right_flipper(d, delta)
	@right_bottom_edge = move_flipper(@right_bottom_edge, d, delta, 7)
end

def show_flipper(d, x, bottom_edge)
	d.light1_column(x, 0)
	d.change(:grid, :x => x, :y => bottom_edge, :color => 16)
	d.change(:grid, :x => x, :y => bottom_edge + 1, :color => 16)
	d.change(:grid, :x => x, :y => bottom_edge + 2, :color => 16)
end

# yellow feedback for grid buttons
interaction.response_to(:grid, :down) do |interaction, action|
	x = action[:x]
	y = action[:y]
	if (x == 0 && y == 0)
		move_left_flipper(interaction.device, UP)
	elsif (x == 0 && y == 7)
		move_left_flipper(interaction.device, DOWN)
	elsif (x == 7 && y == 0)
		move_right_flipper(interaction.device, UP)
	elsif (x == 7 && y == 7)
		move_right_flipper(interaction.device, DOWN)
	end
end

# red feedback for top control buttons
interaction.response_to([:up, :down, :left, :right, :session, :user1, :user2, :mixer]) do |interaction, action|
  interaction.device.change(action[:type], :color => 13)
end

# green feedback for scene buttons
interaction.response_to([:scene1, :scene2, :scene3, :scene4, :scene5, :scene6, :scene7, :scene8]) do |interaction, action|
  interaction.device.change(action[:type], :color => 16)
end

# mixer button terminates interaction on button up
interaction.response_to(:mixer, :up) do |interaction, action|
	interaction.device.reset_all()
  interaction.stop
end

def hits_left_flipper?(new_ball_y)
	new_ball_y >= @left_bottom_edge && new_ball_y <= @left_bottom_edge + 2
end

def hits_right_flipper?(new_ball_y)
	new_ball_y >= @right_bottom_edge && new_ball_y <= @right_bottom_edge + 2
end

def update_scores(d)
	puts "Left score: " + @left_score.to_s
	puts "Right score: " + @right_score.to_s
	if (@left_score > 0)
		scene_button = (":scene" + @left_score.to_s).to_sym
		puts scene_button
		d.change(scene_button, :color => 72)
	end
	if (@right_score > 0)
		scene_button = (":scene" + (9 - @right_score).to_s).to_sym
		puts scene_button
		d.change(scene_button, :color => 72)
	end
	if (@left_score == 4 || @right_score == 4)
		@player_wins = true
	end
end

def approaching_left_gutter?(new_ball_x)
	new_ball_x < 1
end

def approaching_right_gutter?(new_ball_x)
	new_ball_x > 6
end

def record_score(d)
	update_scores(d)
	hide_ball(d, @ball_x, @ball_y)
end

def record_right_score(d)
	puts "Right score with ball at " + @ball_x.to_s + ", " + @ball_y.to_s + ", and left flipper at " + @left_bottom_edge.to_s
	@right_score = @right_score + 1
	record_score(d)
end

def record_left_score(d)
	puts "Left score with ball at " + @ball_x.to_s + ", " + @ball_y.to_s + ", and right flipper at " + @right_bottom_edge.to_s
	@left_score = @left_score + 1
	record_score(d)
end

def bounce?(new_ball_y)
	new_ball_y < 0 || new_ball_y > 7
end

def run_ball_movement(d) 
	Thread.new {
		@player_wins = false
		until @player_wins do
			new_score = false
			start_ball(d)
			until new_score do
				sleep 0.5
				if (approaching_left_gutter?(@ball_x + @lat_delta))
					if (hits_left_flipper?(@ball_y + @lon_delta))
						@lat_delta = -@lat_delta
						move_ball(d, @ball_x + @lat_delta, @ball_y + @lon_delta)
				else
						record_right_score(d)
						new_score = true
					end
				elsif (approaching_right_gutter?(@ball_x + @lat_delta))
					if (hits_right_flipper?(@ball_y + @lon_delta))
						@lat_delta = -@lat_delta
						move_ball(d, @ball_x + @lat_delta, @ball_y + @lon_delta)
					else
						record_left_score(d)
						new_score = true
					end
				end
				if (!new_score)
					if (bounce?(@ball_y + @lon_delta))
						@lon_delta = -@lon_delta
					end
					move_ball(d, @ball_x + @lat_delta, @ball_y + @lon_delta)
				end
			end
		end
	}
end

def move_ball(d, new_ball_x, new_ball_y)
	hide_ball(d, @ball_x, @ball_y)
	@ball_x = new_ball_x
	@ball_y = new_ball_y
	show_ball(d, @ball_x, @ball_y)
end

def show_ball(d, x, y)
	d.change(:grid, :x => x, :y => y, :color => 72)	
end

def hilite_collision(d, x, y)
	d.change(:grid, :x => x, :y => y, :color => 34)	
end

def hide_ball(d, x, y)
	d.change(:grid, :x => x, :y => y, :color => 0)	
end

def start_ball(d)
	@lat_delta = rand(2) == 0 ? -1 : 1
	@lon_delta = rand(2) == 0 ? -1 : 1
	@ball_x = @lat_delta == -1 ? 4 : 3
	@ball_y = @lon_delta == -1 ? 4 : 3
	puts "Ball moving using " + @lat_delta.to_s + ", " + @lon_delta.to_s + " from " + @ball_x.to_s + ", " + @ball_y.to_s
	show_ball(d, @ball_x, @ball_y)
end

show_flipper(interaction.device, 0, @left_bottom_edge)
show_flipper(interaction.device, 7, @right_bottom_edge)
run_ball_movement(interaction.device)
# start interacting
interaction.start

# sleep so that the messages can be sent before the program terminates
sleep 0.1