PureBasic Forums - English

Code: Select all

; MENU
; File
; - New: Creates a New Map
; - Load Map: Loads an already existing Map, the corresponding tileset will be loaded also
; - Map Save: Saves the current Map, the corresponding tileset is saved also
; - Map Save As: Saves the current Map with a different name, the corresponding tileset is saved also
; - Loading Tile: loads a new (single) Tile. the Tile must have the same dimension As the Map Tilesize 
; - tileset Loading: loads an Image and cut out new Tiles
; - New tileset: Deletes the current tileset
; - tileset Save: Saves all open Tiles As a New tileset
;
;
; Export Map
; - .. to text: saves the Map As a text (Data.i).
; - .. PB code To: returns the Map As PureBasic code. (Currently not working)
; - .. to Binary: is the Map as a Binary Data. A loader for PureBasic is saved also
; - .. Image To: Save the Map with the current settings as a image.
;
; Quit: Exits the program
;
;
; Tools
; Background -> Function: With this tool syou can assign functions from the background tiles
; The default assignment is made according to the order of the tiles. These can be changed by clicking on an other Tile
;
; Settings: Displays a dialog box in which various settings can be made
;
;
; Help
; , - Help: shows a Help screen (Currently not working)
; - About: Displays information about the program
;
;
;
; The Gadgets on the Main Screen
; Map
; Map Delete: Deletes the contents of the current map, all other settings remain
; Show Grid: displays a grid 
; The "Del" button deletes the current field under the mouse on the given layer
;
; 
; How is it working
; - You select a tile or tileset first
; - You select on with the mouse
; - You click on the map, it appears there.
; 
; You can choose from 3 layers, where to draw
; - Background - alle the drawing
; - Objects - here you can place things as objects (these are not used when doing Backgrund-<function)
; - function - here you have 10 numbers you can assign to a tile. (With "Settigns" you can change the numer later)
; - When you are done, save it and export it into a format you like to use
; - Have fun
;
;
; Map format
; This is the format, the map is saved as' binary '
; - the Size of each element is a bit different on 32bit And 64 bit architectures.
; at 32-bit each field is stored with 4 bytes to 64 bit with 8 byte.
; The first two elements are the x-and y-size of the map
; the Map is stored this way
; From up to down and from left to right, each tiles has 3 values
; the 1st the background - the Index of Image in the tileset
; , 2 the objects placed on the Map - the Index of Image in the tileset
; , 3 the function - As a number starting from 1 To .... You have to define yourself how this functions are used in your program
;
; Or in pseudo-code
; For y = 1 To MapWeight
; For x = 1 To MapWidth
;  Map (x, y, background)
;  Map (x, y, objects)
;  Map (x, y, function)
; Next
; Next
;

Code: Select all

For y = 1 To MapWeight
  For x = 1 To MapWidth
    Map (background, x, y)
    Map (objects,    x, y)
    Map (function,   x, y)
  Next
Next

Code: Select all

For x = 1 To MapWidth
  For y = 1 To MapWeight
    Map (x, y, background)
    Map (x, y, objects)
    Map (x, y, function)
  Next
Next

Code: Select all

Dim test(3,3,3)

For x=0 To 3
  For y=0 To 3
    For z=0 To 3
      test(x,y,z) = 100*x + 10*y + z
    Next
  Next
Next

*pointer.Long = @test()

For n=0 To 63
  Valu = PeekL( *pointer )
  *pointer +4
  Debug Valu
Next