*Driving Car Script

[ProGM]

Driving Car Script

Descrizione

Simula uno di quei giochini di guida in 2d. Tasti:
SU = accelera; GIù = frena/retro; destra= sterza a destra; sinistra = sterza a sinistra

Autore

ProGM

Allegati

demo

Istruzioni per l'uso

 per salire/scendere dalla macchina usate un chiama script:

 

 

$car = false
class Game_Car < Game_Character
	CENTER_X = (320 - 16) * 4 # Center screen x-coordinate * 4
	CENTER_Y = (240 - 16) * 4 # Center screen y-coordinate * 4
	def initialize
		super
		@id = 4
		@directions = [nil, 1, 1, 4, 4, 7, 7, 8, 8, 9, 9, 6, 6, 3, 3, 2, 2]
		@direction = 8
		@move_speed = 4
	end
	def passable?(x, y, d)
		new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
		new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
		unless $game_map.valid?(new_x, new_y)
			return false
		end
		if $DEBUG and Input.press?(Input::CTRL)
			return true
		end
		super
	end
	def center(x, y)
		max_x = ($game_map.width - 20) * 128
		max_y = ($game_map.height - 15) * 128
		$game_map.display_x = [0, [x * 128 - CENTER_X, max_x].min].max
		$game_map.display_y = [0, [y * 128 - CENTER_Y, max_y].min].max
	end
	def moveto(x, y)
		super
		center(x, y)
		make_encounter_count
	end
	def increase_steps
		super
		unless @move_route_forcing
			$game_party.increase_steps
			if $game_party.steps % 2 == 0
				$game_party.check_map_slip_damage
			end
		end
	end
	def encounter_count
		return @encounter_count
	end
	def make_encounter_count
		if $game_map.map_id != 0
			n = $game_map.encounter_step
			@encounter_count = rand(n) + rand(n) + 1
		end
	end
	def refresh
		if $game_party.actors.size == 0
			@character_name = ""
			@character_hue = 0
			return
		end
		actor = $game_party.actors[0]
		@character_name = actor.character_name
		@character_hue = actor.character_hue
		@opacity = 255
		@blend_type = 0
	end
	def check_event_trigger_here(triggers)
		result = false
		if $game_system.map_interpreter.running?
			return result
		end
		for event in $game_map.events.values
			if event.x == @x and event.y == @y and triggers.include?(event.trigger)
				if not event.jumping? and event.over_trigger?
					event.start
					result = true
				end
			end
		end
		return result
	end
	def check_event_trigger_there(triggers)
		result = false
		# If event is running
		if $game_system.map_interpreter.running?
			return result
		end
		new_x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
		new_y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
		for event in $game_map.events.values
			# If event coordinates and triggers are consistent
			if event.x == new_x and event.y == new_y and
				triggers.include?(event.trigger)
				# If starting determinant is front event (other than jumping)
				if not event.jumping? and not event.over_trigger?
					event.start
					result = true
				end
			end
		end
		if result == false
			if $game_map.counter?(new_x, new_y)
				new_x += (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
				new_y += (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
				# All event loops
				for event in $game_map.events.values
					# If event coordinates and triggers are consistent
					if event.x == new_x and event.y == new_y and
						triggers.include?(event.trigger)
						# If starting determinant is front event (other than jumping)
						if not event.jumping? and not event.over_trigger?
							event.start
							result = true
						end
					end
				end
			end
		end
		return result
	end
	def check_event_trigger_touch(x, y)
		result = false
		if $game_system.map_interpreter.running?
			return result
		end
		# All event loops
		for event in $game_map.events.values
			# If event coordinates and triggers are consistent
			if event.x == x and event.y == y and [1,2].include?(event.trigger)
				# If starting determinant is front event (other than jumping)
				if not event.jumping? and not event.over_trigger?
					event.start
					result = true
				end
			end
		end
		return result
	end
	def move_forward
		case @direction
		when 1
			move_lower_left
		when 2
			move_down(false)
		when 3
			move_lower_right
		when 4
			move_left(false)
		when 6
			move_right(false)
		when 7
			move_upper_left
		when 8
			move_up(false)
		when 9
			move_upper_right
		end
	end
	def move_backward
		# Remember direction fix situation
		last_direction_fix = @direction_fix
		# Force directino fix
		@direction_fix = true
		# Branch by direction
		case @direction
		when 1
			move_upper_right
		when 2 # Down
			move_up(false)
		when 3
			move_upper_left
		when 4 # Left
			move_right(false)
		when 6 # Right
			move_left(false)
		when 7
			move_lower_right
		when 8 # Up
			move_down(false)
		when 9
			move_lower_left
		end
		# Return direction fix situation back to normal
		@direction_fix = last_direction_fix
	end
	def update
		last_moving = moving?
		unless moving? or $game_system.map_interpreter.running? or
			@move_route_forcing or $game_temp.message_window_showing
			# Move player in the direction the directional button is being pressed
			case Input.dir8
			when 8
				if @moving_type != "backward"
					move_forward
					@move_speed += 0.2 unless @move_speed >= 5
					@moving_type = "forward"
				else
					if @move_speed >= 4.0
						@move_speed -= 0.2
						move_backward
					else
						@moving_type = ""
					end
				end
			when 7
				@id -= 1
				@id = 16 if @id == 0
				@id = 1 if @id == 17
				@direction = @directions[@id]
				move_forward
				@move_speed += 0.1 unless @move_speed >= 5
				@moving_type = "forward"
			when 9
				@id += 1
				@id = 16 if @id == 0
				@id = 1 if @id == 17
				@direction = @directions[@id]
				move_forward
				@move_speed += 0.1 unless @move_speed >= 5
				@moving_type = "forward"
			when 1
				@id += 1
				@id = 16 if @id == 0
				@id = 1 if @id == 17
				@direction = @directions[@id]
				move_backward
				@move_speed += 0.1 unless @move_speed >= 5
				@moving_type = "backward"
			when 3
				@id -= 1
				@id = 16 if @id == 0
				@id = 1 if @id == 17
				@direction = @directions[@id]
				move_backward
				@move_speed += 0.1 unless @move_speed >= 5
				@moving_type = "backward"
			when 4 #sx
				if @move_speed >= 4.0
					@id -= 1
					@id = 16 if @id == 0
					@id = 1 if @id == 17
					@direction = @directions[@id]
				end
				@move_speed -= 0.2 if @move_speed >= 4.0
				move_forward if @move_speed >= 4.0 and @moving_type == "forward"
				move_backward if @move_speed >= 4.0 and @moving_type == "backward"
			when 6 #dx
				if @move_speed >= 4.0
					@id += 1
					@id = 16 if @id == 0
					@id = 1 if @id == 17
					@direction = @directions[@id]
				end
				@move_speed -= 0.2 if @move_speed >= 4.0
				move_forward if @move_speed >= 4.0 and @moving_type == "forward"
				move_backward if @move_speed >= 4.0 and @moving_type == "backward"
			when 2
				if @moving_type != "forward"
					move_backward
					@move_speed += 0.1 unless @move_speed >= 5
					@moving_type = "backward"
				else
					if @move_speed >= 4.0
						@move_speed -= 0.2
						move_forward
					else
						@moving_type = ""
					end
				end
			else
				@move_speed -= 0.2 if @move_speed >= 4.0
				move_forward if @move_speed >= 4.0 and @moving_type == "forward"
				move_backward if @move_speed >= 4.0 and @moving_type == "backward"
			end
		end
		last_real_x = @real_x
		last_real_y = @real_y
		super
		if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
			$game_map.scroll_down(@real_y - last_real_y)
		end
		if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
			$game_map.scroll_left(last_real_x - @real_x)
		end
		if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
			$game_map.scroll_right(@real_x - last_real_x)
		end
		if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
			$game_map.scroll_up(last_real_y - @real_y)
		end
		unless moving?
			if last_moving
				result = check_event_trigger_here([1,2])
				if result == false
					unless $DEBUG and Input.press?(Input::CTRL)
						if @encounter_count > 0
							@encounter_count -= 1
						end
					end
				end
			end
			if Input.trigger?(Input::C)
				check_event_trigger_here([0])
				check_event_trigger_there([0,1,2])
			end
		end
	end
end
class Sprite_Character < RPG::Sprite
	attr_accessor :character # character
	def initialize(viewport, character = nil)
		super(viewport)
		@character = character
		update
	end
	def update
		if $car
			$car = false
			x = $game_player.x
			y = $game_player.y
			if $game_player.is_a?(Game_Player)
				$game_player= Game_Car.new
			else
				$game_player= Game_Player.new
			end
			$game_player.moveto(x, y)
			$game_player.refresh
			$game_map.refresh
			$scene = Scene_Map.new
			return
		end
		super
		if @character.is_a?(Game_Car)
			if @tile_id != @character.tile_id or
				@character_name != @character.character_name or
				@character_hue != @character.character_hue
				@tile_id = @character.tile_id
				@character_name = @character.character_name
				@character_hue = @character.character_hue
				if @tile_id >= 384
					self.bitmap = RPG::Cache.tile($game_map.tileset_name,
					@tile_id, @character.character_hue)
					self.src_rect.set(0, 0, 32, 32)
					self.ox = 16
					self.oy = 32
				else
					self.bitmap = RPG::Cache.character(@character.character_name,
					@character.character_hue)
					@cw = bitmap.width / 4
					@ch = bitmap.height / 8
					self.ox = @cw / 2
					self.oy = @ch
				end
			end
			self.visible = (not @character.transparent)
			if @tile_id == 0
				sx = @character.pattern * @cw
				case @character.direction
				when 1
					sy = 1
				when 2
					sy = 8
				when 3
					sy = 7
				when 4
					sy = 2
				when 6
					sy = 6
				when 7
					sy = 3
				when 8
					sy = 4
				when 9
					sy = 5
				end
				sy = (sy - 1) * @ch
				self.src_rect.set(sx, sy, @cw, @ch)
			end
		else
			if @tile_id != @character.tile_id or
				@character_name != @character.character_name or
				@character_hue != @character.character_hue
				@tile_id = @character.tile_id
				@character_name = @character.character_name
				@character_hue = @character.character_hue
				if @tile_id >= 384
					self.bitmap = RPG::Cache.tile($game_map.tileset_name,
					@tile_id, @character.character_hue)
					self.src_rect.set(0, 0, 32, 32)
					self.ox = 16
					self.oy = 32
				else
					self.bitmap = RPG::Cache.character(@character.character_name,
					@character.character_hue)
					@cw = bitmap.width / 4
					@ch = bitmap.height / 4
					self.ox = @cw / 2
					self.oy = @ch
				end
			end
			self.visible = (not @character.transparent)
			if @tile_id == 0
				sx = @character.pattern * @cw
				sy = (@character.direction - 2) / 2 * @ch
				self.src_rect.set(sx, sy, @cw, @ch)
			end
		end
		self.x = @character.screen_x
		self.y = @character.screen_y
		self.z = @character.screen_z(@ch)
		self.opacity = @character.opacity
		self.blend_type = @character.blend_type
		self.bush_depth = @character.bush_depth
		if @character.animation_id != 0
			animation = $data_animations[@character.animation_id]
			animation(animation, true)
			@character.animation_id = 0
		end
	end
end

 

 

Edited August 12, 2013 by Flame

[Timisci]

Provatelo che è una figata!!

Vi fisserete come me a girare e girare XD

 

Bravo Pro ^^

[Erunamo]

Uhm, uno screen piccolo piccolo? °_°

[ProGM]

http://www.imagetemple.eu/files/z8lsImmagine.JPG

però è da provare, non da vedere ç_ç

[Erunamo]

Che figata tremenda, bravissimo Pr0 ;D

[^zephiro^]

complimenti è altamente demenziale! XD

Per ore mi mettevo a fare avanti ed indietro come un matto!! XDDD

[marigno]

Né che togata che è uscito :D.

Ottimo lavoro ^^.

[Baldo Ssj2]

io ti amo

 

 

no giuro :*****

[ProGM]

wow, ho inventato in giochino per rendere sceme le persone xD

 

comunque vedo che ha avuto successo, nonostante l'inutilità xD

[Omega Ciccio]

Carinissimo^^ :panchi: :panchi:

[marigno]

wow, ho inventato in giochino per rendere sceme le persone xD

 

comunque vedo che ha avuto successo, nonostante l'inutilità xD

 

Ma non è per niente inutile... Magari fanne uno più complesso, con tanto di N2O :D.

[ProGM]

si, poi ci metto le marce, ci metto la benzina, un sistema di grafica 3d e faccio il nuovo gran turismo per ps3 xDD

[marigno]

si, poi ci metto le marce, ci metto la benzina, un sistema di grafica 3d e faccio il nuovo gran turismo per ps3 xDD

 

Ghgh.

 

 

 

 

 

 

 

 

 

Mica male come idea.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

xD.

[Phantom]

E' troppo pazzesco!!!!

Per me è utilissimo!!!

Veramente complimenti.

[manolo]

E' mostruosamente demenziale!

Ma ti faccio un appunto se, appena entri in macchina, provi a sterzare verso destra mentre acceleri l'auto per la prima volta va a sinistra... Ora non so se è colpa mia (forse si è perso qualche dato mentre l'ho scaricato) o è proprio così!^^

Cmq è veramente bello e anche utile!

 

Ora che c'è il codice, si può creare anche una specie di Gta!!! XD

[Kingartur2]

Scusa Pro se ne sei ancora in possesso potresti postare il chara template???

[fanton95]

Scusa king non ho capito vuoi dei chara di alcune automobili o il template di quei chara?

[Kingartur2]

Il template,

ci devo fare le carrozze

Edited December 12, 2009 by kingartur2

[fanton95]

Ho appena finito di farlo, dovrebbe andare bene ^^

 

http://img193.imageshack.us/img193/6374/templateking.png

[Kingartur2]

Ma questo è per i chara normali ce l'ho gia,

a me serve per i chara di questo script

[ProGM]

Ho perso la demo del progetto originale... però sto script lo usa Fenrix nel suo progetto.

Appena lo sento gli chiedo di uppare un suo chara ;)

[Kingartur2]

Ottimo

[Squall_Leonheart]

Qualcuno potrebbe riuppare la demo?

[Davide]

Non potete riuppare la demo???

Grazie!!!

[ProGM]

scusate, non riesco più a ritrovare la demo... però in compenso ho trovato il template del chara da utilizzare :3

 

 

http://img716.imageshack.us/img716/445/scooter.png

 

Se riesco vi ricostruisco la demo XDXD