123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156 |
- $config_file = File.expand_path("~/.flexlay/supertux-worldmap.rb")
- def find_supertux_datadir()
-
- possible_locations = [
- "~/cvs/supertux/supertux/data/",
- "~/cvs/supertux/data/",
- "/usr/share/games/supertux/",
- "/usr/local/share/games/supertux/",
- "/opt/supertux/data/",
- "~/project/supertux/data/",
- "~/projects/supertux/svn/trunk/supertux/data/",
- ]
-
- end
- if File.exist?($config_file) then
- require $config_file
- end
- BACKGROUND_LAYER = 1
- INTERACTIVE_LAYER = 2
- FOREGROUND_LAYER = 3
- require "flexlay_wrap"
- include Flexlay_wrap
- require "flexlay.rb"
- require "gameobj.rb"
- require "sexpr.rb"
- require "sprite.rb"
- require "util.rb"
- flexlay = Flexlay.new()
- width = 1024
- height = 768
- flexlay.init("SuperTux Worldmap Editor", width, height)
- $tilemap_paint_tool = TileMapPaintTool.new()
- $tilemap_select_tool = TileMapSelectTool.new()
- $zoom_tool = ZoomTool.new()
- $objmap_select_tool = ObjMapSelectTool.new()
- require "gui.rb"
- class Config
- attr_accessor :datadir, :recent_files
- def initialize()
- @recent_files = []
- end
- def save(filename)
- dir = File.expand_path("~/.flexlay/")
- if not File.exists?(dir) then
- Dir.mkdir(dir)
- end
- f = File.new(filename, "w")
- f.write("# Autogenerated Script, don't edit by hand!\n\n")
- f.write("$datadir = " + $datadir.inspect() + "\n")
- f.write("$recent_files = " + $recent_files.inspect() + "\n")
- f.write("\n# EOF #\n")
- end
- end
- $config = Config.new()
- if !$datadir then
- $datadir = File.expand_path("~/projects/supertux/data/")+"/"
- end
- require "data.rb"
- require "WorldMap.rb"
- require "WorldMapObject.rb"
- require "TileMap.rb"
- require "LispWriter.rb"
- require "tileset.rb"
- require "level.rb"
- require "sector.rb"
- $tileset = Tileset.new(32)
- $tileset.load($datadir + "images/worldmap.strf")
- $tileset.create_ungrouped_tiles_group()
- $mysprite = make_sprite("../data/images/icons16/stock_paste-16.png")
- $gui = SuperTuxGUI.new(width, height)
- if !$recent_files then
- $recent_files = []
- end
- $recent_files.each do |filename|
- $gui.recent_files_menu.add_item($mysprite, filename, proc{ supertux_load_level(filename) })
- end
- if ARGV == []
- WorldMap.new(70, 50).activate($gui.workspace)
- $use_worldmap = true
- else
- supertux_load_worldmap(ARGV[0])
- end
- $gui.gui_toggle_minimap()
- $gui.gui_toggle_minimap()
- $gui.gui_show_current()
- $gui.set_tilemap_paint_tool()
- if not File.exist?($datadir) then
- dialog = GenericDialog.new("Specify the SuperTux data directory and restart", $gui.gui.get_component())
- dialog.add_label("You need to specify the datadir where SuperTux is located")
- dialog.add_string("Datadir:", $datadir)
-
- dialog.set_block { |datadir|
- $datadir = datadir
- }
- end
- $gui.run()
- $config.save($config_file)
|