Ruby Quellcode

# Um einen neuen Ort hinzuzufügen, schreibe $orte.push(ort)
# ort muss hierbei eine Instanz von Game_WorldmapOrt sein.
# Um eine Instanz zu erstelle, schreibe 
# ort = Game_WorldmapOrt.new(name, x, y, beschreibung, ort)
# Vorher müssen die Werte in Variablen festgelegt werden.
# name = "Dies ist der Name"
# x, y = 50, 200   (Pixelkoordinaten auf der Map)
# beschreibung = "Ein Testort für die Demo :3"
# ort = [Mapid, X-Tile, Y-Tile]
# Um die Weltkarte aufzurufen schreibe $scene = Scene_Worldmap.new
 
class Game_WorldmapOrt
  attr_reader :name
  attr_reader :xy
  attr_reader :beschreibung
  attr_reader :map_id
  attr_reader :x
  attr_reader :y
 
  def initialize(name,x,y,beschreibung,ort)
	@name = name
	@xy = [x,y]
	@beschreibung = beschreibung
	@map_id = ort[0]
	@x,@y = ort[1],ort[2]
  end
end
 
class Sprite_WorldmapOrt
  attr_accessor :sprite
 
  def initialize(x,y)
	@sprite = Sprite.new
	@sprite.bitmap = RPG::Cache.picture("Punkt")
	@sprite.x = x
	@sprite.y = y
  end
end
 
class Window_Description < Window_Base
  def initialize(beschreibung)
	super(300,330,300,150)
	self.opacity = 155
	self.contents = Bitmap.new(300-32,150-32)
	refresh(beschreibung)
  end
 
  def refresh(beschreibung)
	self.contents.clear
	rect = Rect.new(0,0,300-32,150-32)
	self.contents.draw_text(rect,beschreibung)
  end
end
 
class Scene_Worldmap
  def main
	@map = Sprite.new
	@map.bitmap = RPG::Cache.picture("Weltkarte")
	@cursor = Sprite.new
	@cursor.bitmap = RPG::Cache.picture("Cursor")
	@cursor.z = 100
	@orte = $orte
	o = @orte[0]
	@cursor.x = o.xy[0]-@cursor.x-@cursor.bitmap.width/2
	@cursor.y = o.xy[1]-@cursor.y-@cursor.bitmap.height
	@window_description = Window_Description.new(o.beschreibung)
	s = []
	for i in @orte
  	s << i.name
	end
	@window_command = Window_Command.new(140,s)
	@window_command.y = 60
	@window_command.opacity = 155
	@sprites = []
	for i in @orte
  	x = i.xy[0]
  	y = i.xy[1]
  	a = Sprite_WorldmapOrt.new(x,y)
  	@sprites << a
	end
	@cursor.x += @sprites[0].sprite.bitmap.width/2
	@cursor.y += @sprites[0].sprite.bitmap.height/2
	Graphics.transition
	loop do
  	Graphics.update
  	Input.update
  	update
  	if $scene != self
    	break
  	end
	end
	Graphics.freeze
	@map.dispose
	for i in @sprites
  	i.sprite.dispose
	end
   @window_description.dispose
   @window_command.dispose
   @cursor.dispose
  end
 
  def update
	@window_command.update
	x = move_x
	y = move_y
	@cursor.x += x
	@cursor.y += y
	if @oldindex != @window_command.index
  	@oldindex = @window_command.index
  	o = @orte[@window_command.index]
  	@window_description.refresh(o.beschreibung)
	end
	if Input.trigger?(Input::C)
  	$game_system.se_play($data_system.decision_se)
  	ort = @orte[@window_command.index]
  	$game_map.setup(ort.map_id)
  	$game_player.moveto(ort.x,ort.y)
  	$scene = Scene_Map.new
	end
  end
 
  def move_x
	ort = @orte[@window_command.index]
	x = ort.xy[0]
	cursorx = @cursor.x+@cursor.bitmap.width/2-@sprites[0].sprite.bitmap.width/2
	x -= cursorx
	if x == 0
  	return 0
	end
	if x < 0
  	x *= -1
  	x = Math.sqrt(x)
  	x *= -1
	else
  	x = Math.sqrt(x)
	end
	return x.round
  end
 
  def move_y
	ort = @orte[@window_command.index]
	y = ort.xy[1]
	cursory = @cursor.y+@cursor.bitmap.height-@sprites[0].sprite.bitmap.height/2
	y -= cursory
	if y == 0
  	return 0
	end
	if y < 0
  	y *= -1
  	y = Math.sqrt(y)
  	y *= -1
	else
  	y = Math.sqrt(y)
	end
	return y.round
  end
end
 
class Scene_Title
  alias old_neobahamut_worldmap_command_new_game command_new_game
  def command_new_game
	$orte = Array.new(0)
	old_neobahamut_worldmap_command_new_game
  end
end
 
class Scene_Load < Scene_File
  alias old_neobahamut_worldmap_read_save_data read_save_data
  def read_save_data(file)
	old_neobahamut_worldmap_read_save_data(file)
	$orte = Marshal.load(file)
  end
end
 
class Scene_Save < Scene_File
  alias old_neobahamut_worldmap_write_save_data write_save_data
  def write_save_data(file)
	old_neobahamut_worldmap_write_save_data(file)
	Marshal.dump($orte,file)
  end
end