asteroids.rb

# asteroids game by lljk
# have fun!


class LaserBulletThing < Shoes::Widget
	attr_accessor :x, :y, :x_vec, :y_vec
	def initialize(x, y)
		@x = x; @y = y
		@x_vec = 0; @y_vec = 0
		fill lime; oval(0, 0, 5)
		self.move(@x, @y)
	end	
end		#LaserBulletThing


class FirstClassFlyingShip < Shoes::Widget
	attr_accessor :center_x, :center_y, :shots, :paused
	
	def initialize(x, y)
		@paused = false
		@x = x - 10; @y = y - 12
		@center_x = x; @center_y = y
		@shots = []
		@x_vec = 0; @y_vec = 0
		@start_angle = 0
		@rotate_by = 0
		@slot = stack fill: black, stroke: lime
		@slot.move(@x, @y)
		draw_ship

		motion{|x, y|
			unless @paused
				@rads = Math.atan2(y - @center_y, x - @center_x)
				degs = 270 - (@rads * (180 / Math::PI)).round(2)
			
				@rotate_by = degs - @start_angle
				@start_angle = degs
			
				draw_ship
			end
		}
		
		#put this bit in a slot, or it won't work
		stack width: 700, height: 600, top: 0, left: 0 do
			click{|btn, x, y|
				unless @paused
					shoot if btn == 1
					if btn == 3
						@x_vec += 1 if x > @x + 20
						@x_vec -= 1 if x < @x
						@y_vec +=1 if y > @y + 24
						@y_vec -= 1 if y < @y
					end
				end
			}
		end
	end	#init
	
	def draw_ship
		@slot.clear
		@slot.append{
			rotate @rotate_by
			@ship = shape{
				move_to(10, 0)
				line_to(20, 24)
				line_to(10, 20)
				line_to(0, 24)
				line_to(10, 0)
			}
		}
	end
	
	def move_ship
		@x += @x_vec
		@y += @y_vec
		@x = 0 if @x > 700; @y = 0 if @y > 600
		@x = 700 if @x < 0; @y = 600 if @y < 0
		@center_x = @x + 10; @center_y = @y + 12
		@slot.move(@x, @y)
		draw_shots unless @shots.empty?
	end
	
	def shoot
		if @rads
		bullet_x = ((15 * Math.cos(@rads)) + @center_x).round
		bullet_y = ((15 * Math.sin(@rads)) + @center_y).round
		
		bullet = laser_bullet_thing(bullet_x, bullet_y)
		
		bullet.x_vec = bullet_x - @center_x
		bullet.y_vec = bullet_y - @center_y
		
		@shots << bullet
		end
	end
	
	def draw_shots
		@shots.each{|bullet|
			bullet.x += bullet.x_vec
			bullet.y += bullet.y_vec
			
			if bullet.x < 0 || bullet.x > 695 || bullet.y < 0 || bullet.y > 595
				bullet.remove
				@shots.delete(bullet)
			else
				bullet.move(bullet.x, bullet.y)
			end
		}
	end
end		#Ship


class Asteroid < Shoes::Widget
	attr_accessor :x, :y, :x_vec, :y_vec, :size, :area
	
	def initialize(size, x, y)
		@size = size
		@x_vec = 0; @y_vec = 0
		until @x_vec != 0
			@x_vec = (30 / size).round + ((rand(5) - 2) * (rand(3) - 1))
		end
		until @y_vec != 0
			@y_vec = (30 / size).round + ((rand(5) - 2) * (rand(3) - 1))
		end
		
		x1 = rand(size * 0.1).round + (size * 0.1); y1 = rand(size * 0.1).round + (size * 0.1)
		x2 = x1 + rand(size * 0.4).round; y2 = 0
		x3 = size - (rand(size * 0.1).round + (size * 0.1)); y3 = rand(size * 0.1).round + (size * 0.1)
		x4 = size - (rand(size * 0.1).round + (size * 0.1)); y4 = rand(size * 0.1).round + (size * 0.1)
		x5 = size; y5 = y4 + rand(size * 0.4).round
		x6 = size - (rand(size * 0.1).round + (size * 0.1)); y6 = size - (rand(size * 0.1).round + (size * 0.1))
		x7 = size - (rand(size * 0.1).round + (size * 0.1)); y7 = size - (rand(size * 0.1).round + (size * 0.1))
		x8 = x7 - rand(size * 0.4).round; y8 = size
		x9 = rand(size * 0.1).round + (size * 0.1); y9 = size - (rand(size * 0.1).round + (size * 0.1))
		x10 = rand(size * 0.1).round + (size * 0.1); y10 = size - (rand(size * 0.1).round + (size * 0.1))
		x11 = 0; y11 = y10 - rand(size * 0.4).round
		x12 = rand(size * 0.1).round + (size * 0.1); y12 = rand(size * 0.1).round + (size * 0.1)
		
		@slot = stack top: 30 do
			shape{
				fill black
				stroke lime
				move_to(x1, y1)
				line_to(x2, y2)
				line_to(x3, y3)
				line_to(x4, y4)
				line_to(x5, y5)
				line_to(x6, y6)
				line_to(x7, y7)
				line_to(x8, y8)
				line_to(x9, y9)
				line_to(x10, y10)
				line_to(x11, y11)
				line_to(x12, y12)
				line_to(x1, y1)
			}
		end
		set_coords(x, y)
	end
	
	def set_coords(x, y)
		x = 0 if x > 700; x = 700 if x < 0 - @size
		y = 0 if y > 600; y = 600 if y < 0
		@x = x; @y = y
		@area = [@x..(@x + @size), @y..(@y + @size)]
		self.move(@x, @y)
	end
	
	def move_asteroid
		x = @x + @x_vec; y = @y + @y_vec
		set_coords(x, y)
	end
	
	def check_hits(x, y)
		if @area[0].include?(x) && @area[1].include?(y)
			@hit = true
		end
	end
	
	def hit?
		@hit
	end
	
end		#Asteroid


#######################


Shoes.app width: 700, height: 630 do
	
	background black
	
	def init_game
		@lives = 3
		@score = 0
		@level = 1
		@rocks = []
		@game_over = false
		
		status_area = flow height: 30 do
			border lime
			@status_info = para " ", stroke: lime, align: "center", top: 2
		end
		
		init_level(1)
	end
	
	def init_level(level)
		update_status(@lives, @score, @level)
		
		unless @rocks.empty?
			@rocks.each{|rock| rock.remove}
			@rocks.clear
		end
		
		unless @level == 1 || @no_congrats
			salutations = ["Hey There", "Woah", "Nice One", "Well Done", "Awesome"]
			names = ["Dude", "Buddy", "Pal", "Friend", "Amigo"]
			actions = ["Rocked", "Destroyed", "Annihilated", "Kicked Butt On", "Creamed"]
			
			self.append{
				@congrats = title "#{salutations[rand(5)]} #{names[rand(5)]}, 
You #{actions[rand(5)]} Level #{@level - 1}!
On To...", stroke: lime, align: "center", top: 100
			}
			
			timer(3){@congrats.remove}
		end
		
		self.append{
			@level_info = banner "level #{@level}", stroke: lime, align: "center", top: 280
		}
		
		timer(3){
			@level_info.remove
			self.append{@ship = first_class_flying_ship(350, 300)}
			n = @level
			n.times{
				self.append{@rock = asteroid(60, rand(80) - 70, rand(80) - 70)}
				@rocks << @rock
			}
			@no_congrats = false
			start_motion
		}
	end
	
	def update_status(lives, level, score)
		@status_info.text = "lives: #{@lives}          score: #{@score}          level: #{@level}"
	end
	
	def break_rock(size, x, y)
		case size
			when 60
			self.append{@rock1 = asteroid(30, x + 25, y)}
			self.append{@rock2 = asteroid(30, x -25, y)}
			@rocks << @rock1 << @rock2
			@score += 25
			when 30
			self.append{@rock1 = asteroid(15, x + 25, y)}
			self.append{@rock2 = asteroid(15, x - 25, y)}
			self.append{@rock3 = asteroid(15, x, y - 25)}
			@rocks << @rock1 << @rock2 << @rock3
			@score += 50
			when 15
			@score += 100
		end
		update_status(@lives, @score, @level)
		new_level if @rocks.empty?
	end
	
	def new_level
		@game_motion.stop
		@level += 1
		update_status(@lives, @score, @level)
		@ship.remove
		init_level(@level)
	end
	
	def destroy_ship
		@game_motion.stop
		@ship.remove
		@debris = []

		fill lime
		50.times{
			blasted_bit = oval(@ship.center_x + (rand(51) - 25), (@ship.center_y + (rand(51) - 25) + 30), 3)
			@debris << blasted_bit
		}

		@lives -= 1
		update_status(@lives, @score, @level)
		if @lives == 0
			game_over
		else
			@no_congrats = true
			timer(3){
				@debris.each{|bit| bit.remove}
				init_level(@level)
			}
		end
	end
	
	def game_over
		@game_over = true
		
		sorry = stack width: 700 do
			banner "GAME OVER", stroke: lime, align: "center"
			title "press space to restart", stroke: lime, align: "center"
		end
		
		sorry.move(0, 200)
		
		keypress{|key|
			if key == " " && @game_over
				clear
				init_game
			end
		}
	end
	
	def start_motion
		@game_motion = animate(16){
			@ship.move_ship
			@rocks.each{|rock|
				rock.move_asteroid
				rock.check_hits(@ship.center_x, @ship.center_y)
				if rock.hit?
					destroy_ship
				end
			}
			
			unless @ship.shots.empty?
				@ship.shots.each{|bullet|
					@rocks.each{|rock|
						rock.check_hits(bullet.x, bullet.y)
						if rock.hit?
							@rocks.delete(rock); rock.remove
							@ship.shots.delete(bullet); bullet.remove
							break_rock(rock.size, rock.x, rock.y)
						end
					}
				}
			end
		}
	end
	
	@first_run = true
	
	intro = stack width: 700 do
		banner "ASTEROIDS!\n", stroke: lime, align: "center"
		para "move mouse to rotate ship", stroke: lime, align: "center"
		para "use right mouse button to accelerate towards the pointer", stroke: lime, align: "center"
		para "use left mouse button to shoot\n\n", stroke: lime, align: "center"
		title "press space to start and pause", stroke: lime, align: "center"
	end
	
	intro.move(0, 100)
	
	keypress{|key|
		if key == " "
			if @first_run
				clear
				init_game
				@first_run = false
			elsif @paused
				@pause_message.remove
				@game_motion.start; @paused = false; @ship.paused = false
			else
				@game_motion.stop; @paused = true; @ship.paused = true
				@pause_message = stack width: 700 do
					title "paused", stroke: lime, align: "center"
				end
				@pause_message.move(0, 200)
			end
		end
	}
	
end