Tile Based World Maker! (FIXED update 7)

[Cobalt]

So I was fiddling with making a Program to create maps for a game and thought I might share it and see if you guys would want to create some custom maps?

Plus it could use some stress testing.

The interface is mouse based. Click and release, NOT CLICK AND DRAG.(although you can add to the map by clicking and dragging with left and right buttons, but not the middle button.)

To use, you click on a tile, then click the tile either in the BASE, DECO, or AUTOMATIC areas.

Left button allows selection of a tile from the tile list area to be placed in the BASE, DECO, or AUTOMATIC area.
Right button cancels the selection

In the Map grid:
Left button adds the DECO tile to the map.
Right button clears the DECO and restores the BASE tile.
Middle button places the AUTOMATIC area on the map. Now this has an issue if you click and drag, and it will cause errors.Fixed

The AUTOMATIC area allows you to pre-make a 3x3 area that can be used over and over. Right clicking in the AUTOMATIC area erases it.

The yellow box on the "Mini Map" shows what area you are currently working in. right now the Mini Map only shows the BASE tiles no DECO tiles. This may not change due to the Mini Map being a 256x256 render of the full map which is 8192x8192.(32:1 ratio)
(FYI: DECO is short for Decorations)

There are currently 960 tiles to choose from.
this is due to the limitations of image format sizes, BMP max out at roughly 32k px. and my imaging software maxes the PNG out at roughly 30k. (I will need to come up with a round about way to make it capable of larger sets)
Only the first 8 tiles can be used for the BASE.

Maps can be saved(and loaded!) with up to 32 character long names, leaving the name blank names it "DEFUALT" no spaces allowed. Extension is automatically set to ".MAP".  Can only save to the program directory at the moment.


I think that is it, tell me what you think!
(this requires a MFI file, so be sure to download it.)

Fixed an issue where the decorations would not draw correctly when you moved on the map.(11\24\2021)
Fixed an issue where the decorations displayed outside the map grid area(11\24\2021)
Added the ability to place SINGLE tiles straight to the map area. (as recommended by Bplus)
Added a 3rd layer to the placement of tiles for more depth.
Fixed issue with erasing decorations after moving in the map.(11/27/2021)

Video Demo:(outdated)
https://youtu.be/0K6pmuGXY-Q

[bplus]

Seems to me the simplest thing would be to click a tile and click it onto map or Auto thing. Well it sticks to Auto thing but not the map??? And can't do anything with Auto thing?

I think if you want this to catch on you need the above fixed and an explanation of how to put an .MFI file together.

[Cobalt]

And can't do anything with Auto thing?

What do you mean?

Seems to me the simplest thing would be to click a tile and click it onto map.

I have been tossing around this idea too. Just haven't committed to it yet.

Well it sticks to Auto thing but not the map???

If its not loaded into the DECO box it wont place on the map.

[bplus]

What do you mean?

I have been tossing around this idea too. Just haven't committed to it yet.

Well I read a little more of OP instructions and the Auto thing is controlled by middle button but on my mouse that is a wheel, no middle button, so there goes Auto thing :(

I would think it would go like this:
Click a Tile, it's highlighted

Click to your hearts content the map to put that tile. Select another tile repeat...

Advanced:
Select a section of the map and copy to paste over another section of the map to duplicate tiles in that section of map.

or Select a section of map and paste highlighted tile into all those places

or Select a section of map and paste highlighted tile into all those places that don't have tiles yet.

That way you could tile worlds a little bit faster than a tile at a time.

Just some ideas...

[Cobalt]

Well I read a little more of OP instructions and the Auto thing is controlled by middle button but on my mouse that is a wheel, no middle button, so there goes Auto thing :(

So on your mouse you can't depress the wheel to generate a click? Mine has the wheel but I can press on it to act like a button as well. Which is pretty much how every mouse I've had that used a scroll wheel, over the past 15-20 years, has worked. didn't know they made them otherwise. I might look into a hot key to use with the left button then. Perhaps CTRL.

[bplus]

Just standard issue Logitech mouse?

[Cobalt]

Just standard issue Logitech mouse?

I literally cannot find any information on any Logitech mice that do not have the scroll wheel button.
Even the earliest models from the mid 90s had the button according to what I've just been reading.

But that, now that I'm thinking about it, is the original reason you could not just take the tile straight to the map area was because I originally was going to only use the LEFT and RIGHT buttons and you had to toggle between the auto build and the single placement. Then I thought 'why not just use the middle button for auto build placement?'. but never went back to being able to pick and place directly.

But the more I work with it, the more I am finding that I need to be able to place at least 3 layers worth of tiles, not just 2. and need to be able to split the tiles\sprites up better.

There is still a little screen real estate that I could add toggles too. And I'm not to sure just what good the mini map is doing really. so it may go the way of the dodo.

[bplus]

Well I'll be... never tried clicking anything with the scroll wheel before, guess it works.

And tiles work fine too, once they are in DECO thing.

[Cobalt]

Unfortunately the last modification breaks compatibility with previously created maps.

[Cobalt]

Ok, so there has been some MAJOR changes made to World Builder!

There is now a "Tile Tips" display by the mouse when you are hovering over the map area.
This displays: If the tile is Walkable
                    : The tile IDs for Base, Deco, and Layer 3
                    : If there is a Dialog, Chest, or Doorway special associated with the tile

You can now add Dialog, Chest, and Doorway specials to tiles!
Hold the Left Ctrl key and right click on a tile to bring up the options dialog.

Dialog- can be upto 255 characters long. Pressing ENTER will place a new line character in the dialog.
            (this is used within the world explorer program's dialog display function)

Chest- A small sample list of items(and images) can be picked from. The max count is 9999, and the item can be Trapped
           The item doesn't have to be in a 'chest' so-to-speak, as it could be a hidden item on the tile that has to be searched for, or a
           visible item just laying on the ground the player could pick up.

Doorway- This tell the game to 'teleport' the player to a new location on a specified map. It could be a building interior, cave,
                 town\castle, or just a new world map.

As suggested by @bplus :
You can now select a section of the map then Copy and Paste. (Experimental, seems functional 12\5\2021)
Holding the Left Shift then Left Click and drag on the map to select the tiles you want copied.
Holding the Right Shift then Left Click where you want to paste what was copied.
Pressing ESC will clear the current selection allowing for a new selection. This does not clear the copied data, so you can still Paste what you had copied until you make a new selection.


While these changes have changed the save file greatly, I believe I have found a way to still load previously made maps without losing data. Now this too is Experimental and may not work. Basic Trials have been successful though.(back up old .MAP files before hand to be safe)fixed, working correctly(12\7\2021)[now that the forum is back up for me to post the fix!]

Major error with the save(and load) routine, caused by 1 missing line(in both). There is no fix for maps already saved I'm afraid. Unless you know exactly how many dialogs+chests+doorways  are supposed to be in the map, and have a decent HEX editor to pop that INTEGER value into the correct location of the save file.(Lines added and fixed: 12\7\2021)

To Manually fix this issue, you must put the 2-byte value of the number of;Dialogs+Chests+Doorways; starting at location 655364

Minor bug: Tile tips fail to show Dialog, Chest, and Doorway status when loading a map(as of 12\7\2021)
The MFI has been updated with the Item sprites.(12/5/2021)


edit: error with the MFI file corrected. was showing 2.11mb instead of 537kb

[Cobalt]

Found a whole slue of bugs from just one seemingly minor one. Things that catastrophically broke saved map loading. But they seem repaired, and were associated with the conversion process used when loading previously saved maps. Its funny how one(1) missed line can snow ball into an avalanche of issues. On top of adding a few features...

The whole layering system has been changed, there are now 9 possible layers for tiles:
0-Base tile: this is what all tiles default to, where the player can walk.
1 to 8- Decoration tiles: trees, weeds, crops, wells,doors,walls,beds,book shelves, ect. ect.

Layers can be set with the Option box above the mini-map or with the corresponding key on the keyboard (0-8). Layer 0 is still reserved for base tiles 0-7(for now!)
If you have a tile selected you can not change the layer until you place it somewhere, BUT you can use the keyboard to change placement layer with the tile still selected.

When creating a Doorway, if you leave the MAP blank it will teleport the player to the specified X and Y locations on the current map, if you specify the current map, it will save it then reload it, basically wasting time.

A new option and tool is the Manual Manipulation! this allows you to change the tiles on each layer at the same time, by typing in the tile ID directly. This can make 'hiding' something under other tiles easier.

That is pretty much it on the new and fixed side of things. A couple of ideas have presented themselves recently though.

One was an Idea presented by @STxAxTIC and @luke over on discord. This involved using real world maps of areas of the earth to pre-generate some of the map. While an interesting idea, that I may look into, it is honestly beyond the scope of this projects goal. The optimal map would be at a scale of 1-pixel to 1-meter(or yard) for the simplest conversion. If anybody can find that type of map a sample would be appreciated, for a possible future version 2.0 upgrade.

Another idea I am looking at is a change of the tile selection layout, by splitting up the tile list into Multiple lists. So each list would contain a more specific set of tiles;
Landscape tiles-Grass, sand, stone, trees & plants, Rocks, ect. ect.
Decoration tiles-Statues, fences, Fountains, ect. ect.
Household tiles-Beds, Tables, chairs, sinks, ect. ect.

This would allow for a larger tile base and easier selection of tiles. Lets face it scrolling through nearly 1000 tiles takes a while...
This change would be fairly easy to implement, but very time consuming to perform.

Code: QB64: [Select]

1. 'World Builder V1.0
2. '2021 Unikorn Produckions
3. 'Cobalt
4. 'with feature suggestions from Bplus
5. 'Other reviews\suggestions welcome.
6.  
7. TYPE World_Tiles
8.  Walkable AS _BYTE
9.  Has_Dialog AS _BYTE
10.  Has_Chest AS _BYTE
11.  Has_Door AS _BYTE
12. END TYPE
13.  
14. TYPE Special_Tiles
15.  Xloc AS _UNSIGNED _BYTE
16.  Yloc AS _UNSIGNED _BYTE
17.  Is_Dialog AS INTEGER 'Denotes any situation where dialog occurs; signs, graves, notes, NPCs
18.  Is_Chest AS INTEGER 'Denotes any situation where player gains; money, items, ect
19.  Is_Door AS INTEGER 'denotes a location where the map changes to the inside of a building or new location.
20. END TYPE
21.  
22. TYPE Item_Data
23.  N AS STRING * 24
24. END TYPE
25.  
26. TYPE Program_Data
27.  Selected_Base AS INTEGER
28.  Selected_Deco AS INTEGER
29.  Toggle_Walk AS _BYTE
30.  Toggle_Layer_2 AS _BYTE
31.  Toggle_Layer_3 AS _BYTE
32.  Current_Layer AS _BYTE 'layer that tiles are being applied to
33.  Walk_Block AS _BYTE 'toggles if the tile is walkable
34.  Automatic AS INTEGER
35.  List_Start AS INTEGER
36.  Clicked_tile AS INTEGER
37.  Mouse_over_R AS _BYTE 'Red value mouse is over
38.  Mouse_over_G AS _BYTE 'Green Value Mouse is over
39.  Mouse_over_B AS _BYTE 'Blue Value Mouse is over
40.  World_X AS INTEGER 'current top left pos of map displayed
41.  World_Y AS INTEGER
42.  Last_File AS STRING * 32 'last file name Saved or Loaded
43.  Quit AS _BYTE
44.  AutoSave_Notice AS _BYTE
45.  LCtrl_Down AS _BYTE 'is control key held down?
46.  LShft_Down AS _BYTE 'Is the Left Shift Key held down? used to select & copy map area
47.  RShft_Down AS _BYTE 'Is the Right Shift Key held down? used to paste copied map area(if any)
48.  Special_Count AS INTEGER 'number of dialogs, chests, and Doors on map
49.  Dialog_ID AS INTEGER 'the current number of Dialog tiles
50.  Chest_ID AS INTEGER 'the current number of Chest tiles
51.  Door_ID AS INTEGER 'the current number of Door tiles
52.  Has_Selection AS _BYTE 'triggers whether or not the selection box shows
53.  Selecting_Area AS _BYTE 'Triggered when user begins to select area
54.  TmpStartX AS _BYTE 'top left corner of selection
55.  TmpStartY AS _BYTE
56.  TmpEndX AS _BYTE 'Bottom right corner of selection
57.  TmpEndY AS _BYTE
58.  Copied AS _BYTE 'is there a valid map copy in memory?
59.  Copied_X AS _BYTE 'X size of copied area
60.  Copied_Y AS _BYTE 'Y size of copied area
61. END TYPE
62.  
63. TYPE Chest_Data
64.  Item_ID AS _BYTE
65.  Count AS INTEGER
66.  Trapped AS _BYTE
67. END TYPE
68.  
69. TYPE Door_Data
70.  New_Loc_X AS _UNSIGNED _BYTE
71.  New_Loc_Y AS _UNSIGNED _BYTE
72.  New_Map AS STRING * 32
73.  Facing AS _BYTE
74. END TYPE
75.  
76. SCREEN _NEWIMAGE(900, 640, 32)
77. _DELAY .25
78. _TITLE "World Builder V1.0"
79. _SCREENMOVE 10, 10
80.  
81. CONST TRUE = -1, FALSE = NOT TRUE, Max_Tile = 960, MaxItems = 35
82. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
83. CONST LCtrl = 100306, LShft = 100304, Rshft = 100303
84.  
85. CONST VerInfo = &HC0BA1102
86. CONST OldVer = &HC0BA1101
87.  
88. DIM SHARED Layer(16) AS LONG, World(255, 255) AS World_Tiles, P AS Program_Data
89. DIM SHARED TileLayer(255, 255, 8) AS INTEGER
90. DIM SHARED Specials(3072) AS Special_Tiles, Dialogs(1024) AS STRING * 255
91. DIM SHARED Chests(1024) AS Chest_Data, DoorWays(1024) AS Door_Data
92. DIM SHARED Auto(2, 2) AS INTEGER, AST AS LONG, I(1024) AS Item_Data
93. DIM SHARED Facing$(3), TempWorldCopy(15, 15) AS World_Tiles, TempLayerCopy(15, 15, 8) AS INTEGER
94.  
95. DATA "Nothing","Coins","Gems","Dagger","Book","Scroll","Bag","Sack","Rope","Envolope","Sword","Knife","Package","Lore Stone"
96. DATA "Health Potion","Cure Potion","Rotten Potato","Smelly Sock","Stained Paper","Seeds","Pumpkins","Apples","Beans","Rice"
97. DATA "Darts","Water Skin","Barrel","Iron Ingot","Gold Ingot","Wheel","Board","Key Ring","Jar","Mug","Bottle"
98. AST = _FREETIMER
99. ON TIMER(AST, 180) Auto_Save
100.  
101. FOR i%% = 1 TO MaxItems
102.  READ I(i%%).N
103. NEXT i%%
104. Facing$(0) = "Down"
105. Facing$(1) = "Left"
106. Facing$(2) = "Right"
107. Facing$(3) = "Up"
108. Init_World_Maker
109.  
110. DO
111.  Nul%% = _MOUSEINPUT
112.  Check_Mouse_Over _MOUSEX, _MOUSEY
113.  Check_Input
114.  Mouse_Logic
115.  '------------------Display Update--------------------------
116.  Display_Tiles
117.  Display_Map_Area 0, 0, Layer(1)
118.  Display_Selected_Box
119.  _PUTIMAGE , Layer(3), Layer(1)
120.  Place_Mini_Map_Area_box
121.  Display_Tile_Selection_Arrows
122.  Display_Mini_Map_Arrows
123.  Display_Load_Save_Buttons
124.  Place_Toggle_Xs
125.  Place_Current_Layer
126.  IF P.AutoSave_Notice THEN AutoSave_Notice 'tell player map was autosaved
127.  IF P.Clicked_tile THEN _PUTIMAGE (_MOUSEX - 15, _MOUSEY - 15), Layer(2), Layer(1), (0 + 32 * (P.Clicked_tile - 1), 0)-STEP(31, 31)
128.  
129.  IF (_MOUSEX > 31 AND _MOUSEX < 560) AND (_MOUSEY > 71 AND _MOUSEY < 600) THEN 'tile data 'tool' tip
130.   IF P.Mouse_over_R > 0 AND P.Mouse_over_B > 0 THEN
131.    Mouse_Over_Data _MOUSEX, _MOUSEY, P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1
132.   ELSE
133.    _PRINTSTRING (620, 560), STR$(P.Mouse_over_R) + STR$(P.Mouse_over_B), Layer(1)
134.   END IF
135.  END IF
136.  
137.  
138.  IF P.Has_Selection AND NOT _MOUSEBUTTON(1) THEN P.Has_Selection = Check_Selection_Valid 'confirm the selection was valid
139.  '                                                                                        unless mousebutton down
140.  IF P.Has_Selection THEN 'draw the selection box if valid selection area
141.   _DEST Layer(1)
142.   IF SBlink%% THEN L1% = 255: L2% = 32767 - 255 ELSE L2% = 255: L1% = 32767 - 255
143.   LINE ((P.TmpStartX) * 33 + 31, (P.TmpStartY) * 33 + 71)-STEP(33 + P.TmpEndX * 33, 33 + P.TmpEndY * 33), _RGB32(160, 0, 0), B , L1% 'selection box start points
144.   LINE ((P.TmpStartX) * 33 + 31, (P.TmpStartY) * 33 + 71)-STEP(33 + P.TmpEndX * 33, 33 + P.TmpEndY * 33), _RGB32(224, 224, 0), B , L2% 'selection box start points
145.  END IF
146.  _PRINTSTRING (620, 540), STR$(P.Mouse_over_R) + STR$(P.Mouse_over_B), Layer(1)
147.  _PUTIMAGE , Layer(1), Layer(0)
148.  ClearLayer Layer(1)
149.  '-----------------------------------------------------------
150.  S%% = S%% + 1
151.  IF S%% = 8 THEN SBlink%% = NOT SBlink%%: S%% = 0
152.  _LIMIT 60
153.  Mouse_Clear
154.  IF INKEY$ = CHR$(27) AND NOT P.Has_Selection THEN Exitflag%% = TRUE
155.  IF P.Quit THEN Exitflag%% = TRUE
156. LOOP UNTIL Exitflag%% = TRUE
157. TIMER(AST) OFF
158. '_DELAY 1
159. 'SYSTEM
160.  
161.  
162. SUB Mouse_Clear
163.  DO: Nul%% = _MOUSEINPUT: LOOP WHILE Nul%%
164. END SUB
165.  
166. SUB Mouse_Logic
167.  '------------------------------Mouse Logic statements--------------------------------------
168.  IF _MOUSEBUTTON(1) AND P.Mouse_over_R THEN
169.   IF P.Clicked_tile = 0 THEN
170.    IF NOT P.LShft_Down THEN 'if shift is down user is selecting an area to copy
171.     IF NOT P.RShft_Down THEN 'if right shift is down user is placing a map copy
172.      IF (_MOUSEX > 15 AND _MOUSEX < 659) AND (_MOUSEY > 15 AND _MOUSEY < 49) THEN 'only make selection when over the tile list
173.       _MOUSEHIDE
174.       P.Clicked_tile = P.List_Start + P.Mouse_over_R
175.      ELSEIF (_MOUSEX > 31 AND _MOUSEX < 560) AND (_MOUSEY > 71 AND _MOUSEY < 600) THEN 'Placing a tile or auto on the map
176.       IF P.Selected_Deco < 8 THEN
177.        TileLayer(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1, P.Current_Layer) = P.Selected_Deco 'base tile placement(0-7 are base tiles)
178.        World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Walkable = TRUE
179.       ELSEIF P.Current_Layer > 0 THEN 'can only place decorations on layers 1-8
180.        TileLayer(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1, P.Current_Layer) = P.Selected_Deco
181.        World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Walkable = P.Toggle_Walk
182.       ELSE
183.        Display_Layer0_Error
184.       END IF
185.      END IF
186.  
187.      IF P.Mouse_over_R = 23 AND ((P.List_Start + 20) < Max_Tile) THEN P.List_Start = P.List_Start + 1: _DELAY .05
188.      IF P.Mouse_over_R = 24 AND P.List_Start > 0 THEN P.List_Start = P.List_Start - 1: _DELAY .05
189.      IF P.Mouse_over_R = 25 THEN Build_MAP: Place_Mini_Map: _DELAY .15
190.      IF P.Mouse_over_R = 26 AND P.World_X >= 8 THEN P.World_X = P.World_X - 8: _DELAY .15: P.Has_Selection = FALSE
191.      IF P.Mouse_over_R = 27 AND P.World_X < 240 THEN P.World_X = P.World_X + 8: _DELAY .15: P.Has_Selection = FALSE
192.      IF P.Mouse_over_R = 28 AND P.World_Y >= 8 THEN P.World_Y = P.World_Y - 8: _DELAY .15: P.Has_Selection = FALSE
193.      IF P.Mouse_over_R = 29 AND P.World_Y < 240 THEN P.World_Y = P.World_Y + 8: _DELAY .15: P.Has_Selection = FALSE
194.      IF P.Mouse_over_R = 30 THEN New_Map
195.      IF P.Mouse_over_R = 31 THEN Save_Map
196.      IF P.Mouse_over_R = 32 THEN Load_Map
197.      IF P.Mouse_over_R = 33 THEN P.Quit = TRUE
198.      IF P.Mouse_over_R = 34 THEN P.Toggle_Walk = NOT P.Toggle_Walk: _DELAY .15 'tile walkable or non walkable
199.      IF P.Mouse_over_R = 35 AND P.Current_Layer < 8 THEN P.Current_Layer = P.Current_Layer + 1: _DELAY .15 '
200.      IF P.Mouse_over_R = 36 AND P.Current_Layer THEN P.Current_Layer = P.Current_Layer - 1: _DELAY .15 '
201.     ELSEIF P.Copied THEN
202.      'make sure user clicks in the map area.
203.      IF (_MOUSEX > 31 AND _MOUSEX < 560) AND (_MOUSEY > 71 AND _MOUSEY < 600) THEN Paste_Map_Area P.Mouse_over_R - 1, P.Mouse_over_B - 1
204.     END IF
205.    ELSE
206.     IF NOT P.Selecting_Area THEN
207.      P.TmpStartX = P.Mouse_over_R - 1: P.TmpStartY = P.Mouse_over_B - 1: P.Selecting_Area = TRUE 'get the starting tile
208.     ELSE
209.      P.TmpEndX = P.Mouse_over_R - 1 - P.TmpStartX: P.TmpEndY = P.Mouse_over_B - 1 - P.TmpStartY 'allows click and drag selection(I hope)
210.      IF P.TmpEndX >= 0 THEN P.Has_Selection = TRUE ELSE P.Has_Selection = FALSE
211.     END IF
212.    END IF
213.   ELSEIF (_MOUSEX > 31 AND _MOUSEX < 560) AND (_MOUSEY > 71 AND _MOUSEY < 600) THEN 'Placing a tile directly to map area
214.    'suggested Function by Bplus (a good idea for 1 off tile placement too!
     )
215.    IF P.Current_Layer THEN 'layer 2 toggle is marked
216.     TileLayer(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1, P.Current_Layer) = P.Clicked_tile - 1
217.     World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Walkable = P.Toggle_Walk
218.     P.Clicked_tile = 0
219.     _MOUSESHOW
220.     _DELAY .1
221.    ELSE
222.     _MOUSESHOW
223.     Display_Layer0_Error
224.     _MOUSEHIDE
225.    END IF
226.   ELSEIF (_MOUSEX > 787 AND _MOUSEX < 885) AND (_MOUSEY > 15 AND _MOUSEY < 116) THEN 'Placing a tile in the Auto Build area
227.    Place_Auto_Tile
228.   ELSEIF P.Mouse_over_R = 21 THEN
229.    IF P.Clicked_tile <= 8 THEN
230.     P.Selected_Base = P.Clicked_tile - 1 'only first 8 tiles(0-7) can be base
231.     Change_Map_Base
232.     P.Clicked_tile = 0
233.     _MOUSESHOW
234.    END IF
235.   ELSEIF P.Mouse_over_R = 22 THEN
236.    IF P.Selected_Base <> P.Clicked_tile - 1 THEN
237.     P.Selected_Deco = P.Clicked_tile - 1 'deco can not be base
238.     P.Clicked_tile = 0
239.     _MOUSESHOW
240.    END IF
241.   END IF
242.  END IF
243.  
244.  IF _MOUSEBUTTON(2) THEN
245.   IF P.Clicked_tile THEN
246.    P.Clicked_tile = 0
247.    _MOUSESHOW
248.    _DELAY .1
249.   ELSEIF P.Mouse_over_R THEN
250.    IF (_MOUSEX > 787 AND _MOUSEX < 885) AND (_MOUSEY > 15 AND _MOUSEY < 116) THEN 'reset the auto build area
251.     Erase_Auto_Build
252.    ELSEIF (_MOUSEX > 31 AND _MOUSEX < 560) AND (_MOUSEY > 71 AND _MOUSEY < 600) THEN 'remove a deco from the map
253.     IF P.LCtrl_Down THEN 'unless user is holding Left ctrl key down
254.      Popup_Menu 1
255.     ELSE
256.      TileLayer(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1, 0) = P.Selected_Base 'restore the base
257.      FOR l% = 1 TO 8
258.       TileLayer(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1, l%) = -1 'erase any DECOrations
259.      NEXT l%
260.     END IF
261.    END IF
262.   END IF
263.  END IF
264.  
265.  IF _MOUSEBUTTON(3) THEN 'place the Auto Build area to map
266.   IF (_MOUSEX > 31 AND _MOUSEX < 560) AND (_MOUSEY > 71 AND _MOUSEY < 600) THEN 'Placing a tile or auto on the map
267.    IF P.Mouse_over_R THEN
268.     IF P.Current_Layer THEN
269.      Place_Auto_Build
270.     ELSE 'Display error box, cannot place on layer 0
271.      Display_Layer0_Error
272.     END IF
273.    END IF
274.   END IF
275.  END IF
276.  '------------------------------------------------------------------------------------------
277. END SUB
278.  
279. SUB Display_Map_Area (x%, y%, L&)
280.  'display Map tile location numbers
281.  FOR I% = 0 TO 15
282.   Xo% = 48 - (8 * LEN(LTRIM$(STR$(x% + I% + P.World_X)))) \ 2
283.   Yo% = 16 - (8 * LEN(LTRIM$(STR$(y% + I% + P.World_Y)))) \ 2
284.   _PRINTSTRING (Xo% + 33 * I%, 58), LTRIM$(STR$(x% + I% + P.World_X)), L& 'x id
285.   _PRINTSTRING (Yo%, 82 + 33 * I%), LTRIM$(STR$(y% + I% + P.World_Y)), L& 'y id
286.  NEXT I%
287.  'display base
288.  FOR Iy% = 0 TO 15
289.   FOR Ix% = 0 TO 15
290.    Show_Tile 32 + 33 * Ix%, 72 + 33 * Iy%, TileLayer(x% + Ix% + P.World_X, y% + Iy% + P.World_Y, 0), 1, L&
291.   NEXT Ix%
292.  NEXT Iy%
293.  'display Deco(ration)
294.  FOR Il% = 0 TO 8
295.   FOR Iy% = 0 TO 15
296.    FOR Ix% = 0 TO 15
297.     IF TileLayer(x% + Ix% + P.World_X, y% + Iy% + P.World_Y, Il%) THEN Show_Tile 32 + 33 * Ix%, 72 + 33 * Iy%, TileLayer(x% + Ix% + P.World_X, y% + Iy% + P.World_Y, Il%), 1, L&
298.    NEXT Ix%
299.   NEXT Iy%
300.  NEXT Il%
301. END SUB
302.  
303. SUB Change_Map_Base
304.  FOR Y% = 0 TO 255
305.   FOR X% = 0 TO 255
306.    TileLayer(X%, Y%, 0) = P.Selected_Base
307.   NEXT X%
308.  NEXT Y%
309. END SUB
310.  
311. SUB Build_Click_Layer
312.  _DEST Layer(4)
313.  'tile selection area
314.  FOR I~%% = 0 TO 19
315.   LINE (17 + I~%% * 32, 17)-STEP(31, 31), _RGB32(1 + I~%%, 0, 0), BF
316.  NEXT I~%%
317.  LINE (689, 17)-STEP(31, 31), _RGB32(21, 0, 0), BF 'selected base
318.  LINE (737, 17)-STEP(31, 31), _RGB32(22, 0, 0), BF 'selected deco
319.  LINE (661, 17)-STEP(15, 31), _RGB32(23, 0, 0), BF 'move tiles left(increase)
320.  LINE (0, 17)-STEP(15, 31), _RGB32(24, 0, 0), BF 'Move tiles Right(decrease)
321.  'mini map arrows+refresh
322.  LINE (600, 392)-STEP(64, 18), _RGB32(25, 0, 0), BF 'Refresh
323.  LINE (583, 244)-STEP(15, 31), _RGB32(26, 0, 0), BF 'move left
324.  LINE (861, 244)-STEP(15, 31), _RGB32(27, 0, 0), BF 'Move Right
325.  LINE (714, 114)-STEP(31, 15), _RGB32(28, 0, 0), BF 'move up
326.  LINE (714, 390)-STEP(31, 15), _RGB32(29, 0, 0), BF 'Move down
327.  
328.  LINE (660, 460)-STEP(127, 31), _RGB32(30, 0, 0), BF 'new map
329.  LINE (600, 500)-STEP(63, 15), _RGB32(31, 0, 0), BF 'save button
330.  LINE (680, 500)-STEP(63, 15), _RGB32(32, 0, 0), BF 'load button
331.  LINE (760, 500)-STEP(63, 15), _RGB32(33, 0, 0), BF 'Quit Button
332.  
333.  LINE (580, 54)-STEP(14, 14), _RGB32(34, 0, 0), BF 'walkable toggle
334.  LINE (676, 72)-STEP(16, 9), _RGB32(35, 0, 0), BF 'layer up arrow
335.  LINE (676, 82)-STEP(16, 9), _RGB32(36, 0, 0), BF 'layer down arrow
336.  
337.  'auto build area(Green denotes X cord, Blue denotes Y cord)
338.  FOR Ay% = 0 TO 2
339.   FOR Ax% = 0 TO 2
340.    LINE (786 + Ax% * 33, 17 + Ay% * 33)-STEP(31, 31), _RGB32(1, 1 + Ax%, 1 + Ay%), BF
341.   NEXT Ax%
342.  NEXT Ay%
343.  'main map area (red denotes X cord, Blue denotes Y cord)
344.  FOR Iy% = 0 TO 15
345.   FOR Ix% = 0 TO 15
346.    LINE (32 + Ix% * 33, 72 + Iy% * 33)-STEP(31, 31), _RGB32(1 + Ix%, 0, 1 + Iy%), BF
347.   NEXT Ix%
348.  NEXT Iy%
349.  _DEST Layer(0)
350. END SUB
351.  
352. SUB Init_World_Maker
353.  Layer(0) = _DISPLAY
354.  Layer(1) = _NEWIMAGE(900, 640, 32) 'composite layer
355.  ' Layer(2) = _LOADIMAGE("linear_tiles.bmp", 32) 'world tiles
356.  Layer(3) = _NEWIMAGE(900, 640, 32) 'window setup
357.  Layer(4) = _NEWIMAGE(900, 640, 32) 'Click layer
358.  ' Layer(5) = _LOADIMAGE("arrows.bmp", 32) 'arrow tiles
359.  Layer(6) = _NEWIMAGE(8192, 8192, 32) 'temp map for Mini Map display
360.  Layer(7) = _NEWIMAGE(900, 640, 32) 'save\load window
361.  
362.  MFI_Loader "WorldBuilderBeta.MFI"
363.  _CLEARCOLOR _RGB32(0), Layer(2)
364.  _CLEARCOLOR _RGB32(0), Layer(5)
365.  _PRINTMODE _KEEPBACKGROUND , Layer(3)
366.  _PRINTMODE _KEEPBACKGROUND , Layer(1)
367.  _PRINTMODE _KEEPBACKGROUND , Layer(7)
368.  P.World_X = 0: P.World_Y = 0
369.  
370.  New_Map
371.  
372.  'Build Construction Screen
373.  _DEST Layer(3)
374.  Display_Tile_list_Section
375.  Display_Auto_Build_Deco
376.  Display_Selected_Base
377.  Display_Selected_Deco
378.  Display_Toggles
379.  Display_Current_layer
380.  Display_Mini_Map
381.  Build_MAP
382.  Place_Mini_Map
383.  '-------------------------
384.  _DEST Layer(0)
385.  Build_Click_Layer
386.  _SOURCE Layer(4)
387.  P.Last_File = ""
388.  P.Toggle_Walk = TRUE
389.  P.Current_Layer = 0
390.  TIMER(AST) ON
391. END SUB
392.  
393. SUB Display_Tile_Selection_Arrows
394.  IF P.List_Start > 0 THEN
395.   IF P.Mouse_over_R <> 24 THEN
396.    _PUTIMAGE (0, 17), Layer(5), Layer(1), (0, 32)-STEP(15, 31) 'left arrow(decending) Unlit
397.   ELSE
398.    _PUTIMAGE (0, 17), Layer(5), Layer(1), (0, 0)-STEP(15, 31) 'left arrow(decending) Lit
399.   END IF
400.  END IF
401.  IF P.List_Start < Max_Tile - 20 AND P.Mouse_over_R <> 23 THEN
402.   _PUTIMAGE (660, 17), Layer(5), Layer(1), (16, 32)-STEP(15, 31) 'right arrow(increasing) UnLit
403.  ELSE
404.   _PUTIMAGE (660, 17), Layer(5), Layer(1), (16, 0)-STEP(15, 31) 'right arrow(increasing) Lit
405.  END IF
406. END SUB
407.  
408.  
409. SUB Check_Mouse_Over (X%, Y%)
410.  Test~& = POINT(X%, Y%) 'save a few cycles by just doing this once
411.  IF _RED32(Test~&) THEN 'only bother if there is a red value(click areas all include a red base value of atleast 1)
412.   P.Mouse_over_R = _RED32(Test~&) 'all click events
413.   P.Mouse_over_G = _GREEN32(Test~&) 'for the auto build area
414.   P.Mouse_over_B = _BLUE32(Test~&) 'for the map area
415.  ELSE
416.   P.Mouse_over_R = 0
417.   P.Mouse_over_G = 0
418.   P.Mouse_over_B = 0
419.  END IF
420. END SUB
421.  
422. SUB Place_Auto_Tile
423.  Auto(P.Mouse_over_G - 1, P.Mouse_over_B - 1) = P.Clicked_tile - 1
424.  P.Clicked_tile = 0
425.  _MOUSESHOW
426. END SUB
427.  
428. SUB Mouse_ButtonDown_Hold
429.  DO
430.   nul%% = _MOUSEINPUT
431.   ' _LIMIT 60
432.  LOOP WHILE _MOUSEBUTTON(1)
433. END SUB
434.  
435. SUB Erase_Auto_Build
436.  FOR Ay% = 0 TO 2
437.   FOR Ax% = 0 TO 2
438.    Auto(Ax%, Ay%) = 0
439.   NEXT Ax%
440.  NEXT Ay%
441. END SUB
442.  
443. SUB Place_Auto_Build
444.  FOR Ay% = 0 TO 2
445.   FOR Ax% = 0 TO 2
446.    IF Auto(Ax%, Ay%) THEN 'dont place blank tiles
447.     IF P.Mouse_over_R - 1 + Ax% <= 15 AND P.Mouse_over_B - 1 + Ay% <= 15 THEN 'only place if tiles show in map area
448.      TileLayer(P.World_X + P.Mouse_over_R - 1 + Ax%, P.World_Y + P.Mouse_over_B - 1 + Ay%, P.Current_Layer) = Auto(Ax%, Ay%)
449.      World(P.World_X + P.Mouse_over_R - 1 + Ax%, P.World_Y + P.Mouse_over_B - 1 + Ay%).Walkable = FALSE
450.     END IF
451.    END IF
452.   NEXT Ax%
453.  NEXT Ay%
454. END SUB
455.  
456. SUB Build_MAP
457.  FOR L% = 0 TO 8
458.   FOR Y% = 0 TO 255
459.    FOR X% = 0 TO 255
460.     IF TileLayer(X%, Y%, L%) >= 0 THEN Show_Tile X% * 32, Y% * 32, TileLayer(X%, Y%, L%), 1, Layer(6)
461.    NEXT X%
462.   NEXT Y%
463.  NEXT L%
464. END SUB
465.  
466. SUB Place_Mini_Map
467.  _PUTIMAGE (602, 132)-STEP(255, 255), Layer(6), Layer(3)
468. END SUB
469.  
470. SUB Place_Mini_Map_Area_box
471.  _PUTIMAGE (602 + P.World_X, 132 + P.World_Y)-STEP(15, 15), Layer(5), Layer(1), (0, 64)-STEP(31, 31)
472. END SUB
473.  
474. SUB Display_Mini_Map_Arrows
475.  IF P.Mouse_over_R <> 26 THEN
476.   _PUTIMAGE (583, 244), Layer(5), Layer(1), (0, 32)-STEP(15, 31) 'left arrow Unlit
477.  ELSE
478.   _PUTIMAGE (583, 244), Layer(5), Layer(1), (0, 0)-STEP(15, 31) 'left arrow lit
479.  END IF
480.  IF P.Mouse_over_R <> 27 THEN
481.   _PUTIMAGE (861, 244), Layer(5), Layer(1), (16, 32)-STEP(15, 31) 'right arrow UnLit
482.  ELSE
483.   _PUTIMAGE (861, 244), Layer(5), Layer(1), (16, 0)-STEP(15, 31) 'right arrow Lit
484.  END IF
485.  IF P.Mouse_over_R <> 28 THEN
486.   _PUTIMAGE (714, 114), Layer(5), Layer(1), (32, 32)-STEP(31, 15) 'up arrow Unlit
487.  ELSE
488.   _PUTIMAGE (714, 114), Layer(5), Layer(1), (32, 0)-STEP(31, 15) 'up arrow lit
489.  END IF
490.  IF P.Mouse_over_R <> 29 THEN
491.   _PUTIMAGE (714, 390), Layer(5), Layer(1), (32, 48)-STEP(31, 15) 'down arrow UnLit
492.  ELSE
493.   _PUTIMAGE (714, 390), Layer(5), Layer(1), (32, 16)-STEP(31, 15) 'down arrow Lit
494.  END IF
495.  IF P.Mouse_over_R <> 25 THEN
496.   _PUTIMAGE (600, 392)-STEP(64, 18), Layer(5), Layer(1), (32, 64)-STEP(15, 15) 'unlit(orange)
497.  ELSE
498.   _PUTIMAGE (600, 392)-STEP(64, 18), Layer(5), Layer(1), (0, 64)-STEP(31, 31) 'lit(yellow)
499.  END IF
500. END SUB
501.  
502. SUB Place_Toggle_Xs
503.  IF P.Toggle_Walk THEN
504.   _PUTIMAGE (580, 55), Layer(5), Layer(1), (48, 64)-STEP(15, 15) 'place X
505.  END IF
506. END SUB
507.  
508. SUB Place_Current_Layer
509.  _DEST Layer(1)
510.  COLOR _RGB32(16)
511.  _PRINTSTRING (631, 74), LTRIM$(STR$(P.Current_Layer)), Layer(1)
512.  COLOR _RGB32(255)
513. END SUB
514.  
515. SUB New_Map
516.  P.Selected_Deco = 0
517.  Erase_Auto_Build
518.  Reset_Map
519.  P.Last_File = ""
520.  Build_MAP
521.  Place_Mini_Map
522. END SUB
523.  
524. SUB AutoSave_Notice
525.  STATIC Tim!
526.  IF Tim! = 0 THEN Tim! = TIMER
527.  IF Tim! + 3 > TIMER THEN
528.   _PRINTSTRING (0, 620), "Auto saved...", Layer(1)
529.  ELSE
530.   Tim! = 0
531.   P.AutoSave_Notice = FALSE
532.  END IF
533. END SUB
534.  
535. SUB Mouse_Over_Data (Mx%, My%, Wx%, Wy%)
536.  _DEST Layer(1)
537.  COLOR _RGBA32(224, 224, 224, 192)
538.  IF World(Wx%, Wy%).Has_Dialog THEN Extra%% = Extra%% + 1
539.  IF World(Wx%, Wy%).Has_Chest THEN Extra%% = Extra%% + 1
540.  IF World(Wx%, Wy%).Has_Door THEN Extra%% = Extra%% + 1
541.  
542.  FOR l%% = 0 TO 8
543.   T$ = T$ + STR$(TileLayer(Wx%, Wy%, l%%))
544.  NEXT l%%
545.  LINE (8 + Mx%, 16 + My%)-STEP(10 + 8 * LEN(T$), 32 + 16 * Extra%%), _RGBA32(80, 80, 80, 104), BF
546.  IF World(Wx%, Wy%).Walkable THEN W$ = "Walkable: YES" ELSE W$ = "Walkable: NO"
547.  _PRINTSTRING (8 + Mx% + 5, 16 + My% + 2), W$
548.  _PRINTSTRING (8 + Mx% + 5, 16 + My% + 18), T$
549.  IF World(Wx%, Wy%).Has_Dialog THEN _PRINTSTRING (8 + Mx% + 5, 16 + My% + 34 + 16 * Ext%%), "Dialog " + STR$(Return_Special(0)): Ext%% = Ext%% + 1
550.  IF World(Wx%, Wy%).Has_Chest THEN _PRINTSTRING (8 + Mx% + 5, 16 + My% + 34 + 16 * Ext%%), "Chest " + STR$(Return_Special(1)): Ext%% = Ext%% + 1
551.  IF World(Wx%, Wy%).Has_Door THEN _PRINTSTRING (8 + Mx% + 5, 16 + My% + 34 + 16 * Ext%%), "Doorway " + STR$(Return_Special(2))
552.  COLOR _RGB32(255)
553.  _DEST Layer(0)
554. END SUB
555.  
556. SUB Check_Input
557.  IF _KEYDOWN(LCtrl) THEN P.LCtrl_Down = TRUE ELSE P.LCtrl_Down = FALSE
558.  IF _KEYDOWN(LShft) THEN P.LShft_Down = TRUE: P.Copied = FALSE ELSE P.LShft_Down = FALSE: P.Selecting_Area = FALSE: IF Check_Selection_Valid AND (NOT P.Copied) THEN Copy_Map_Area
559.  IF _KEYDOWN(Rshft) THEN P.RShft_Down = TRUE ELSE P.RShft_Down = FALSE
560.  IF _KEYDOWN(27) THEN P.Has_Selection = FALSE 'remove selection
561.  FOR i% = 0 TO 8
562.   IF _KEYDOWN(48 + i%) THEN P.Current_Layer = i%
563.  NEXT i%
564. END SUB
565.  
566. SUB Popup_Menu (opt%%)
567.  Mx% = _MOUSEX
568.  My% = _MOUSEY
569.  SELECT CASE opt%%
570.   CASE 1
571.    tmp& = _COPYIMAGE(Layer(0))
572.    _DEST Layer(1)
573.    _DELAY .1
574.    DO
575.     nul%% = _MOUSEINPUT
576.     _PUTIMAGE , tmp&, Layer(1)
577.     LINE (Mx% - 1, My% - 1)-STEP(97, 129), _RGBA32(64, 64, 64, 232), B
578.     LINE (Mx%, My%)-STEP(95, 127), _RGBA32(160, 160, 160, 232), BF
579.  
580.     IF _MOUSEX > Mx% + 4 AND _MOUSEX < Mx% + 99 AND _MOUSEY > My% + 4 AND _MOUSEY < My% + 20 THEN 'highlight add dialog option
581.      Selection%% = 1
582.     ELSEIF _MOUSEX > Mx% + 4 AND _MOUSEX < Mx% + 99 AND _MOUSEY > My% + 24 AND _MOUSEY < My% + 40 THEN 'highlight add chest option
583.      Selection%% = 2
584.     ELSEIF _MOUSEX > Mx% + 4 AND _MOUSEX < Mx% + 99 AND _MOUSEY > My% + 44 AND _MOUSEY < My% + 60 THEN 'highlight add door option
585.      Selection%% = 3
586.     ELSEIF _MOUSEX > Mx% + 4 AND _MOUSEX < Mx% + 99 AND _MOUSEY > My% + 64 AND _MOUSEY < My% + 80 THEN 'highlight add door option
587.      Selection%% = 4
588.     ELSEIF _MOUSEX > Mx% + 4 AND _MOUSEX < Mx% + 99 AND _MOUSEY > My% + 104 AND _MOUSEY < My% + 120 THEN 'highlight close option
589.      Selection%% = 5
590.     ELSE
591.      Selection%% = 0
592.     END IF
593.  
594.     IF Selection%% = 1 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
595.     _PRINTSTRING (Mx% + 4, My% + 4), "Add Dialog", Layer(1)
596.     IF Selection%% = 2 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
597.     _PRINTSTRING (Mx% + 4, My% + 24), "Add Chest", Layer(1)
598.     IF Selection%% = 3 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
599.     _PRINTSTRING (Mx% + 4, My% + 44), "Add Doorway", Layer(1)
600.     IF Selection%% = 4 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
601.     _PRINTSTRING (Mx% + 4, My% + 64), "Manipulate", Layer(1)
602.     _PRINTSTRING (Mx% + 4, My% + 80), "     Layers", Layer(1)
603.     IF Selection%% = 5 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
604.     _PRINTSTRING (Mx% + 4, My% + 104), "Close... ", Layer(1)
605.  
606.     IF _MOUSEBUTTON(1) THEN
607.      SELECT CASE Selection%%
608.       CASE 1
609.        Create_Dialog
610.        ExitFlag%% = TRUE
611.       CASE 2
612.        Fill_Chest
613.        ExitFlag%% = TRUE
614.       CASE 3
615.        Add_DoorWay
616.        ExitFlag%% = TRUE
617.       CASE 4
618.        Change_Layers
619.        ExitFlag%% = TRUE
620.       CASE 5
621.        ExitFlag%% = TRUE
622.      END SELECT
623.      _DELAY .15
624.     END IF
625.  
626.     _PUTIMAGE , Layer(1), Layer(0)
627.     IF INKEY$ = CHR$(27) THEN ExitFlag%% = TRUE
628.     Mouse_Clear
629.    LOOP UNTIL ExitFlag%%
630.  END SELECT
631.  _FREEIMAGE tmp&
632. END SUB
633.  
634. SUB Create_Dialog
635.  _DELAY .1
636.  _PUTIMAGE , Layer(0), Layer(1) 'back up the screen then draw the window on top
637.  LINE (220, 220)-STEP(299, 249), _RGBA32(64, 64, 64, 96), BF
638.  LINE (199, 199)-STEP(301, 251), _RGB32(32), BF
639.  LINE (200, 200)-STEP(299, 249), _RGB32(92), BF
640.  LINE (201, 201)-STEP(297, 15), _RGB32(144), BF
641.  _PRINTSTRING (350 - 12 * 4, 203), "Dialog Maker", Layer(1)
642.  _PRINTSTRING (204, 224), "Dialog... ", Layer(1)
643.  LINE (204, 240)-STEP(291, 181), _RGB32(160), BF
644.  LINE (229, 429)-STEP(47, 17), _RGB32(32), B
645.  LINE (230, 430)-STEP(45, 15), _RGB32(128), BF
646.  LINE (389, 429)-STEP(67, 17), _RGB32(32), B
647.  LINE (390, 430)-STEP(65, 15), _RGB32(128), BF
648.  tmp& = _COPYIMAGE(Layer(1))
649.  
650.  'check for existing dialog in this location
651.  IF World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Has_Dialog THEN D$ = RTRIM$(Dialogs(Specials(Return_Special(0)).Is_Dialog))
652.  
653.  DO
654.   nul%% = _MOUSEINPUT
655.   _PUTIMAGE , tmp&, Layer(1)
656.  
657.   IF _MOUSEX > 230 AND _MOUSEX < 275 AND _MOUSEY > 430 AND _MOUSEY < 445 THEN 'highlight OK option
658.    Selection%% = 1
659.   ELSEIF _MOUSEX > 390 AND _MOUSEX < 455 AND _MOUSEY > 430 AND _MOUSEY < 445 THEN 'highlight Cancel option
660.    Selection%% = 2
661.   ELSE
662.    Selection%% = 0
663.   END IF
664.  
665.   IF Selection%% = 1 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
666.   _PRINTSTRING (244, 430), "OK", Layer(1)
667.   IF Selection%% = 2 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
668.   _PRINTSTRING (400, 430), "Cancel", Layer(1)
669.   COLOR _RGB32(255)
670.  
671.   KBD& = _KEYHIT
672.   IF KBD& > 0 THEN
673.    SELECT CASE KBD&
674.     CASE 27 'esc (acts like cancel)
675.      ExitFlag%% = TRUE
676.     CASE 8 'back space
677.      IF LEN(D$) THEN D$ = LEFT$(D$, LEN(D$) - 1)
678.     CASE 13 'insert line break (chr(1)) adds 2 characters "
     "
679.      IF LEN(D$) < 254 THEN D$ = D$ + CHR$(1) + " "
680.     CASE 32 TO 127 '
681.      IF LEN(D$) < 255 THEN D$ = D$ + CHR$(KBD&)
682.    END SELECT
683.   END IF
684.  
685.   IF _MOUSEBUTTON(1) THEN
686.    SELECT CASE Selection%%
687.     CASE 1 'OK
688.      P.Dialog_ID = P.Dialog_ID + 1
689.      P.Special_Count = P.Special_Count + 1
690.      Specials(P.Special_Count).Xloc = P.Mouse_over_R - 1
691.      Specials(P.Special_Count).Yloc = P.Mouse_over_B - 1
692.      Specials(P.Special_Count).Is_Dialog = P.Dialog_ID
693.      Dialogs(P.Dialog_ID) = D$
694.      World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Has_Dialog = TRUE
695.      ExitFlag%% = TRUE
696.     CASE 2 'Cancel
697.      ExitFlag%% = TRUE
698.    END SELECT
699.    _DELAY .15
700.   END IF
701.  
702.  
703.   Row%% = LEN(D$) \ 36
704.   IF L%% THEN Col%% = L%% ELSE Col%% = LEN(D$) MOD 36
705.   IF Blink%% THEN _PRINTSTRING (206 + 8 * Col%%, 242 + 16 * Row%%), "_", Layer(1)
706.   Bt%% = Bt%% + 1 'blink timer
707.   IF Bt%% = 8 THEN Blink%% = NOT Blink%%: Bt%% = 0
708.  
709.   IF D$ <> "" THEN L%% = Display_Dialog_InBox(36, D$)
710.   _PUTIMAGE , Layer(1), Layer(0)
711.   Mouse_Clear
712.   _LIMIT 60
713.  LOOP UNTIL ExitFlag%%
714.  
715.  _FREEIMAGE tmp&
716.  
717. END SUB
718.  
719. FUNCTION Display_Dialog_InBox%% (MaxLen%%, Txt$)
720.  STATIC Line$(10) 'max 10 lines of text
721.  Temp$ = Txt$
722.  DO
723.   IF LEN(Temp$) > MaxLen%% THEN 'only bother if line is too long
724.    T$ = MID$(Temp$, 1, MaxLen%%) 'get the starting text for a line
725.    FOR i%% = MaxLen%% TO 1 STEP -1 'lets find a space toward the end
726.     IF MID$(T$, i%%, 1) = " " THEN stp%% = i%%: i%% = 0
727.    NEXT i%%
728.    T$ = MID$(T$, 1, stp%% - 1) 'get the line minus the space
729.    Temp$ = LTRIM$(MID$(Temp$, stp%% + 1)) 'reduce the text including the space
730.    Line$(c%%) = T$ 'store the found line
731.    c%% = c%% + 1 'next line
732.   ELSE
733.    Done%% = TRUE
734.   END IF
735.  LOOP UNTIL Done%%
736.  Line$(c%%) = Temp$
737.  FOR i%% = 0 TO c%%
738.   _PRINTSTRING (206, 242 + 16 * i%%), Line$(i%%), Layer(1)
739.  NEXT i%%
740.  Display_Dialog_InBox = LEN(Line$(c%%))
741. END FUNCTION
742.  
743. SUB Fill_Chest
744.  _DELAY .1
745.  _PUTIMAGE , Layer(0), Layer(1) 'back up the screen then draw the window on top
746.  _DEST Layer(1)
747.  '---------------------Setup PopUp Window------------------------
748.  COLOR _RGB32(16)
749.  LINE (140, 170)-STEP(399, 299), _RGBA32(64, 64, 64, 96), BF
750.  LINE (119, 149)-STEP(401, 301), _RGB32(32), BF
751.  LINE (120, 150)-STEP(399, 299), _RGB32(128), BF
752.  LINE (121, 151)-STEP(397, 15), _RGB32(192), BF
753.  _PRINTSTRING (325 - 12 * 4, 153), "Chest Maker", Layer(1)
754.  _PRINTSTRING (158, 174), "Item...", Layer(1)
755.  LINE (124, 190)-STEP(199, 229), _RGB32(224), BF
756.  LINE (123, 189)-STEP(201, 231), _RGB32(92), B
757.  'up arrow
758.  LINE (307, 190)-STEP(16, 15), _RGB32(32), B
759.  LINE (308, 191)-STEP(14, 13), _RGB32(112), BF
760.  LINE (309, 200)-STEP(12, 0), _RGB32(224): LINE -(315, 194), _RGB32(224): LINE -(309, 200), _RGB32(224): PAINT (315, 197), _RGB32(224), _RGB32(224)
761.  'Down arrow
762.  LINE (307, 404)-STEP(16, 15), _RGB32(32), B
763.  LINE (308, 405)-STEP(14, 13), _RGB32(112), BF
764.  LINE (309, 410)-STEP(12, 0), _RGB32(224): LINE -(315, 416), _RGB32(224): LINE -(309, 410), _RGB32(224): PAINT (315, 413), _RGB32(224), _RGB32(224)
765.  'Column
766.  FOR i%% = 0 TO 15 STEP 2
767.   LINE (307 + i%%, 206)-(307 + i%%, 403), _RGB32(160), , 43690
768.   LINE (308 + i%%, 206)-(308 + i%%, 403), _RGB32(160), , 21845
769.  NEXT i%%
770.  LINE (307 + i%%, 206)-(307 + i%%, 403), _RGB32(160), , 43690
771.  
772.  _PRINTSTRING (338, 192), "Count", Layer(1)
773.  LINE (386, 190)-STEP(116, 19), _RGB32(224), BF
774.  'up arrow
775.  LINE (486, 190)-STEP(16, 9), _RGB32(32), B
776.  LINE (487, 191)-STEP(14, 7), _RGB32(112), BF
777.  LINE (489, 197)-STEP(10, 0), _RGB32(224): LINE -(494, 192), _RGB32(224): LINE -(489, 197), _RGB32(224): PAINT (495, 195), _RGB32(224), _RGB32(224)
778.  'down arrow
779.  LINE (486, 200)-STEP(16, 9), _RGB32(32), B
780.  LINE (487, 201)-STEP(14, 7), _RGB32(112), BF
781.  LINE (489, 203)-STEP(10, 0), _RGB32(224): LINE -(494, 208), _RGB32(224): LINE -(489, 203), _RGB32(224): PAINT (495, 205), _RGB32(224), _RGB32(224)
782.  
783.  _PRINTSTRING (338, 222), "Trapped", Layer(1)
784.  LINE (408, 220)-STEP(17, 17), _RGB32(16), BF
785.  LINE (410, 222)-STEP(13, 13), _RGB32(144), BF
786.  LINE (209, 429)-STEP(47, 17), _RGB32(32), B
787.  LINE (210, 430)-STEP(45, 15), _RGB32(160), BF
788.  LINE (369, 429)-STEP(67, 17), _RGB32(32), B
789.  LINE (370, 430)-STEP(65, 15), _RGB32(160), BF
790.  
791.  LINE (358, 258)-STEP(131, 19), _RGB32(92), BF
792.  LINE (359, 259)-STEP(129, 17), _RGB32(32), BF
793.  LINE (360, 260)-STEP(127, 15), _RGB32(224), BF
794.  LINE (359, 279)-STEP(129, 129), _RGB32(80), B
795.  LINE (360, 280)-STEP(127, 127), _RGB32(144), BF
796.  
797.  tmp& = _COPYIMAGE(Layer(1))
798.  ItemLoc% = 1
799.  Hilite%% = 0
800.  Item%% = 1
801.  'check for existing chest in this location
802.  Tag% = Specials(Return_Special(1)).Is_Chest
803.  Item%% = Chests(Tag%).Item_ID
804.  Count% = Chests(Tag%).Count
805.  Trapped%% = Chests(Tag%).Trapped
806.  '----------------------------------------------------------------
807.  DO
808.   nul%% = _MOUSEINPUT
809.   _PUTIMAGE , tmp&, Layer(1)
810.  
811.   IF _MOUSEX > 210 AND _MOUSEX < 255 AND _MOUSEY > 430 AND _MOUSEY < 445 THEN 'highlight OK option
812.    Selection%% = 1
813.   ELSEIF _MOUSEX > 370 AND _MOUSEX < 435 AND _MOUSEY > 430 AND _MOUSEY < 445 THEN 'highlight Cancel option
814.    Selection%% = 2
815.   ELSEIF _MOUSEX > 408 AND _MOUSEX < 426 AND _MOUSEY > 220 AND _MOUSEY < 238 THEN 'trapped toggle
816.    Selection%% = 3
817.    LINE (408, 220)-STEP(17, 17), _RGB32(225, 225, 0), BF
818.    LINE (410, 222)-STEP(13, 13), _RGB32(144), BF
819.   ELSEIF _MOUSEX > 486 AND _MOUSEX < 502 AND _MOUSEY > 190 AND _MOUSEY < 200 THEN 'count up
820.    Selection%% = 4
821.    LINE (489, 197)-STEP(10, 0), _RGB32(224, 224, 16): LINE -(494, 192), _RGB32(224, 224, 16): LINE -(489, 197), _RGB32(224, 224, 16): PAINT (495, 195), _RGB32(224, 224, 16), _RGB32(224, 224, 16)
822.   ELSEIF _MOUSEX > 486 AND _MOUSEX < 502 AND _MOUSEY > 201 AND _MOUSEY < 210 THEN ' count down
823.    Selection%% = 5
824.    LINE (489, 203)-STEP(10, 0), _RGB32(224, 224, 16): LINE -(494, 208), _RGB32(224, 224, 16): LINE -(489, 203), _RGB32(224, 224, 16): PAINT (495, 205), _RGB32(224, 224, 16), _RGB32(224, 224, 16)
825.   ELSEIF _MOUSEX > 307 AND _MOUSEX < 324 AND _MOUSEY > 190 AND _MOUSEY < 206 THEN ' Item Up
826.    Selection%% = 6
827.    LINE (309, 200)-STEP(12, 0), _RGB32(224, 224, 16): LINE -(315, 194), _RGB32(224, 224, 16): LINE -(309, 200), _RGB32(224, 224, 16): PAINT (315, 197), _RGB32(224, 224, 16), _RGB32(224, 224, 16)
828.   ELSEIF _MOUSEX > 307 AND _MOUSEX < 324 AND _MOUSEY > 404 AND _MOUSEY < 420 THEN ' Item down
829.    Selection%% = 7
830.    LINE (309, 410)-STEP(12, 0), _RGB32(224, 224, 16): LINE -(315, 416), _RGB32(224, 224, 16): LINE -(309, 410), _RGB32(224, 224, 16): PAINT (315, 413), _RGB32(224, 224, 16), _RGB32(224, 224, 16)
831.   ELSEIF _MOUSEX > 386 AND _MOUSEX < 470 AND _MOUSEY > 190 AND _MOUSEY < 210 THEN ' Count input
832.    Selection%% = 8
833.   ELSE
834.    Selection%% = 0
835.   END IF
836.  
837.   FOR i%% = 0 TO 14
838.    IF _MOUSEX > 125 AND _MOUSEX < 300 AND _MOUSEY > 193 + 15 * i%% AND _MOUSEY < 206 + 15 * i%% THEN Selection%% = 9 + i%%
839.   NEXT i%%
840.  
841.   IF Selection%% = 1 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
842.   _PRINTSTRING (224, 430), "OK", Layer(1)
843.   IF Selection%% = 2 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
844.   _PRINTSTRING (380, 430), "Cancel", Layer(1)
845.   COLOR _RGB32(255)
846.  
847.   KBD& = _KEYHIT
848.   IF KBD& > 0 THEN
849.    SELECT CASE KBD&
850.     CASE 27 'esc (acts like cancel)
851.      ExitFlag%% = TRUE
852.     CASE 8 'back space (only if user clicks in COUNT box)
853.      IF LEN(C$) AND Cinput%% THEN C$ = LEFT$(C$, LEN(C$) - 1)
854.     CASE 48 TO 57 '0-9 (only if user clicks in COUNT box)
855.      IF LEN(C$) < 4 AND Cinput%% THEN C$ = C$ + CHR$(KBD&)
856.      Count% = VAL(C$)
857.     CASE Key_Up
858.      IF ItemLoc% > 1 AND Linput%% THEN
859.       ItemLoc% = ItemLoc% - 1
860.      ELSEIF Linput%% AND Hilite%% > 0 THEN
861.       Hilite%% = Hilite%% - 1
862.      END IF
863.      Item%% = Hilite%% + ItemLoc%
864.     CASE Key_Down
865.      IF ItemLoc% + 14 < MaxItems AND Linput%% THEN
866.       ItemLoc% = ItemLoc% + 1
867.      ELSEIF Linput%% AND Hilite%% < 14 THEN
868.       IF Item%% THEN Hilite%% = Hilite%% + 1
869.      END IF
870.      Item%% = Hilite%% + ItemLoc%
871.    END SELECT
872.   END IF
873.  
874.   IF _MOUSEBUTTON(1) THEN
875.    SELECT CASE Selection%%
876.     CASE 1 'OK
877.      World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Has_Chest = TRUE
878.      P.Chest_ID = P.Chest_ID + 1
879.      P.Special_Count = P.Special_Count + 1
880.      Specials(P.Special_Count).Xloc = P.Mouse_over_R - 1
881.      Specials(P.Special_Count).Yloc = P.Mouse_over_B - 1
882.      Specials(P.Special_Count).Is_Chest = P.Chest_ID
883.      Chests(P.Chest_ID).Item_ID = Item%%
884.      Chests(P.Chest_ID).Count = Count%
885.      Chests(P.Chest_ID).Trapped = Trapped%%
886.      ExitFlag%% = TRUE
887.     CASE 2 'Cancel
888.      ExitFlag%% = TRUE
889.     CASE 3
890.      Trapped%% = NOT Trapped%%
891.      Cinput%% = FALSE
892.      Linput%% = FALSE
893.     CASE 4
894.      IF Count% < 9998 THEN Count% = Count% + 1
895.      Cinput%% = FALSE
896.      Linput%% = FALSE
897.     CASE 5
898.      IF Count% > 1 THEN Count% = Count% - 1
899.      Cinput%% = FALSE
900.      Linput%% = FALSE
901.     CASE 6
902.      IF ItemLoc% > 1 THEN
903.       ItemLoc% = ItemLoc% - 1
904.       IF Item%% THEN Hilite%% = Hilite%% + 1
905.      END IF
906.      Cinput%% = FALSE
907.      Linput%% = FALSE
908.     CASE 7
909.      IF ItemLoc% + 14 < MaxItems THEN
910.       ItemLoc% = ItemLoc% + 1
911.       IF Item%% THEN Hilite%% = Hilite%% - 1
912.      END IF
913.      Cinput%% = FALSE
914.      Linput%% = FALSE
915.     CASE 8
916.      Cinput%% = NOT Cinput%%
917.      Linput%% = FALSE
918.     CASE 9 TO 23 'select item
919.      Item%% = Selection%% - 9 + ItemLoc%
920.      Hilite%% = Selection%% - 9
921.      Cinput%% = FALSE
922.      Linput%% = TRUE
923.    END SELECT
924.    _DELAY .15
925.   END IF
926.  
927.  
928.   IF Trapped%% THEN _PUTIMAGE (410, 222), Layer(5), Layer(1), (48, 64)-STEP(15, 15) 'place X
929.   COLOR _RGB32(16)
930.   _PRINTSTRING (390, 192), LTRIM$(STR$(Count%)), Layer(1)
931.   IF Blink%% AND Cinput%% THEN _PRINTSTRING (390 + 8 * LEN(LTRIM$(STR$(Count%))), 192), "_", Layer(1)
932.   IF Hilite%% >= 0 AND Hilite%% < 15 THEN 'hilite selected item if in display
933.    LINE (124, 192 + 15 * Hilite%%)-STEP(174, 15), _RGBA32(0, 24, 192, 64), BF
934.   END IF
935.   FOR i%% = 0 TO 14
936.    _PRINTSTRING (128, 192 + 15 * i%%), I(i%% + ItemLoc%).N, Layer(1)
937.   NEXT i%%
938.   IF Item%% THEN
939.    _PRINTSTRING (361, 260), I(Item%%).N, Layer(1)
940.    _PUTIMAGE (360, 280)-STEP(127, 127), Layer(8), Layer(1), (64 * (Item%% - 1), 0)-STEP(63, 63)
941.   END IF
942.   COLOR _RGB32(255)
943.  
944.   Bt%% = Bt%% + 1 'blink timer
945.   IF Bt%% = 8 THEN Blink%% = NOT Blink%%: Bt%% = 0
946.   _PUTIMAGE , Layer(1), Layer(0)
947.   Mouse_Clear
948.   _LIMIT 60
949.  LOOP UNTIL ExitFlag%%
950.  
951.  _FREEIMAGE tmp&
952. END SUB
953.  
954. SUB Add_DoorWay
955.  _DEST Layer(1)
956.  LINE (170, 220)-STEP(299, 199), _RGBA32(64, 64, 64, 96), BF
957.  LINE (151, 201)-STEP(299, 199), _RGB32(128), BF
958.  LINE (152, 202)-STEP(298, 18), _RGB32(0, 16, 192), BF 'title bar
959.  _PRINTSTRING (300 - 8 * 9, 204), "Create Doorway", Layer(1)
960.  LINE (169, 259)-STEP(251, 21), _RGB32(80), B 'File name box
961.  LINE (170, 260)-STEP(249, 19), _RGB32(224), BF '"   "   "
962.  _PRINTSTRING (170, 240), "File Name of New Map", Layer(1)
963.  _PRINTSTRING (232, 288), "Starting Location", Layer(1)
964.  _PRINTSTRING (180, 310), "X-", Layer(1)
965.  LINE (199, 307)-STEP(65, 21), _RGB32(80), B 'X location
966.  LINE (200, 308)-STEP(63, 19), _RGB32(224), BF '"   "   "
967.  _PRINTSTRING (320, 310), "Y-", Layer(1)
968.  LINE (339, 307)-STEP(65, 21), _RGB32(80), B 'Y location
969.  LINE (340, 308)-STEP(63, 19), _RGB32(224), BF '"   "   "
970.  _PRINTSTRING (210, 338), "Facing:", Layer(1)
971.  LINE (274, 335)-STEP(81, 21), _RGB32(80), B 'Facing Direction
972.  LINE (275, 336)-STEP(79, 19), _RGB32(224), BF '"   "   "
973.  'Down arrow
974.  LINE (337, 338)-STEP(16, 15), _RGB32(32), B
975.  LINE (338, 339)-STEP(14, 13), _RGB32(180), BF
976.  LINE (339, 343)-STEP(12, 0), _RGB32(96): LINE -(345, 349), _RGB32(96): LINE -(339, 343), _RGB32(96): PAINT (345, 345), _RGB32(64), _RGB32(96)
977.  
978.  LINE (312, 367)-STEP(79, 19), _RGB32(64), B 'Cancel button
979.  LINE (313, 368)-STEP(77, 17), _RGB32(160), BF 'Cancel button
980.  LINE (212, 367)-STEP(71, 19), _RGB32(64), B 'OK button
981.  LINE (213, 368)-STEP(69, 17), _RGB32(160), BF 'OK button
982.  Temp& = _COPYIMAGE(Layer(1))
983.  COLOR _RGB32(16, 16, 16)
984.  'check for existing Door in this location
985.  IF World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Has_Door THEN
986.   Tag% = Specials(Return_Special(2)).Is_Door
987.   XL$ = LTRIM$(STR$(DoorWays(Tag%).New_Loc_X))
988.   YL$ = LTRIM$(STR$(DoorWays(Tag%).New_Loc_Y))
989.   F$ = RTRIM$(DoorWays(Tag%).New_Map)
990.   FI%% = DoorWays(Tag%).Facing
991.  END IF
992.  DO
993.   _PUTIMAGE , Temp&, Layer(1)
994.   Nul%% = _MOUSEINPUT
995.   IF NOT DropList%% THEN
996.    IF _MOUSEX > 312 AND _MOUSEX < 392 AND _MOUSEY > 367 AND _MOUSEY < 387 THEN
997.     LINE (313, 368)-STEP(77, 17), _RGB32(96), BF 'Cancel button
998.     Selection%% = 2
999.    ELSEIF _MOUSEX > 212 AND _MOUSEX < 282 AND _MOUSEY > 367 AND _MOUSEY < 387 THEN
1000.     LINE (213, 368)-STEP(69, 17), _RGB32(96), BF: over%% = 2 'OK button
1001.     Selection%% = 1
1002.    ELSEIF _MOUSEX > 171 AND _MOUSEX < 320 AND _MOUSEY > 260 AND _MOUSEY < 280 THEN 'File input
1003.     Selection%% = 3
1004.    ELSEIF _MOUSEX > 199 AND _MOUSEX < 263 AND _MOUSEY > 308 AND _MOUSEY < 328 THEN 'X Location input
1005.     Selection%% = 4
1006.    ELSEIF _MOUSEX > 333 AND _MOUSEX < 397 AND _MOUSEY > 308 AND _MOUSEY < 328 THEN 'Y location input
1007.     Selection%% = 5
1008.  
1009.    ELSEIF _MOUSEX > 338 AND _MOUSEX < 353 AND _MOUSEY > 339 AND _MOUSEY < 353 THEN 'drop down Facing list
1010.     LINE (338, 339)-STEP(14, 13), _RGB32(144), BF
1011.     LINE (339, 343)-STEP(12, 0), _RGB32(224, 224, 16): LINE -(345, 349), _RGB32(224, 224, 16): LINE -(339, 343), _RGB32(224, 224, 16): PAINT (345, 345), _RGB32(224, 224, 16), _RGB32(224, 224, 16)
1012.     Selection%% = 6
1013.    ELSE
1014.     Selection%% = 0
1015.    END IF
1016.   ELSE
1017.    FOR i%% = 0 TO 3
1018.     IF _MOUSEX > 276 AND _MOUSEX < 340 AND _MOUSEY > 338 + 15 * i%% AND _MOUSEY < 354 + 15 * i%% THEN
1019.      Selection%% = 7 + i%%
1020.      HlF%% = i%%
1021.      i%% = 4
1022.     ELSE
1023.      Selection%% = 0
1024.      HlF%% = -1
1025.     END IF
1026.    NEXT i%%
1027.   END IF
1028.  
1029.   KBD& = _KEYHIT
1030.   IF KBD& > 0 THEN
1031.    SELECT CASE KBD&
1032.     CASE 27 'esc
1033.      ExitFlag%% = TRUE
1034.     CASE 8 'back space
1035.      IF Finput%% AND LEN(F$) THEN F$ = LEFT$(F$, LEN(F$) - 1)
1036.      IF CinputX%% AND LEN(XL$) THEN XL$ = LEFT$(XL$, LEN(XL$) - 1) 'X start location input
1037.      IF CinputY%% AND LEN(YL$) THEN YL$ = LEFT$(YL$, LEN(YL$) - 1) 'Y start location input
1038.     CASE 33 TO 127 'no spaces allowed
1039.      IF Finput%% AND LEN(F$) < 32 THEN F$ = F$ + CHR$(KBD&)
1040.      IF CinputX%% AND LEN(XL$) < 3 THEN XL$ = XL$ + CHR$(KBD&)
1041.      IF CinputY%% AND LEN(YL$) < 3 THEN YL$ = YL$ + CHR$(KBD&)
1042.      IF VAL(XL$) > 254 THEN XL$ = "254"
1043.      IF VAL(YL$) > 254 THEN YL$ = "254"
1044.    END SELECT
1045.   END IF
1046.  
1047.   IF _MOUSEBUTTON(1) THEN
1048.    SELECT CASE Selection%%
1049.     CASE 1 'Ok
1050.      World(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1).Has_Door = TRUE
1051.      P.Door_ID = P.Door_ID + 1
1052.      P.Special_Count = P.Special_Count + 1
1053.      Specials(P.Special_Count).Xloc = P.Mouse_over_R - 1
1054.      Specials(P.Special_Count).Yloc = P.Mouse_over_B - 1
1055.      Specials(P.Special_Count).Is_Door = P.Door_ID
1056.      DoorWays(P.Door_ID).New_Loc_X = VAL(XL$)
1057.      DoorWays(P.Door_ID).New_Loc_Y = VAL(YL$)
1058.      DoorWays(P.Door_ID).New_Map = F$
1059.      DoorWays(P.Door_ID).Facing = FI%%
1060.      ExitFlag%% = TRUE
1061.     CASE 2 'Cancel
1062.      ExitFlag%% = TRUE
1063.     CASE 3 'Enter map name
1064.      Finput%% = TRUE
1065.      CinputX%% = FALSE
1066.      CinputY%% = FALSE
1067.      DropList%% = FALSE
1068.     CASE 4 'Enter X starting location
1069.      Finput%% = FALSE
1070.      CinputX%% = TRUE
1071.      CinputY%% = FALSE
1072.      DropList%% = FALSE
1073.     CASE 5 'Enter Y starting location
1074.      Finput%% = FALSE
1075.      CinputX%% = FALSE
1076.      CinputY%% = TRUE
1077.      DropList%% = FALSE
1078.     CASE 6 'Enter Facing Direction
1079.      Finput%% = FALSE
1080.      CinputX%% = FALSE
1081.      CinputY%% = FALSE
1082.      DropList%% = TRUE
1083.     CASE 7 TO 10 'Select facing direction
1084.      DropList%% = FALSE
1085.      FI%% = HlF%% 'Facing Indicator =  Hilited Facing direction
1086.     CASE ELSE 'Cancel Facing Drop down list.
1087.      IF DropList%% THEN DropList%% = FALSE
1088.    END SELECT
1089.    _DELAY .1
1090.   END IF
1091.  
1092.   _PRINTSTRING (330, 370), "Cancel", Layer(1)
1093.   _PRINTSTRING (240, 370), "OK", Layer(1)
1094.   _PRINTSTRING (174, 263), F$ + ".MAP", Layer(1)
1095.   _PRINTSTRING (280, 338), Facing$(FI%%), Layer(1)
1096.   IF VAL(XL$) = 0 THEN Dx% = 1 ELSE Dx% = VAL(XL$) 'value check on start locations, 0 is invalid so adjust to 1
1097.   IF VAL(YL$) = 0 THEN Dy% = 1 ELSE Dy% = VAL(YL$) '  "    "    "
1098.  
1099.   _PRINTSTRING (202, 310), LTRIM$(STR$(Dx%)), Layer(1)
1100.   _PRINTSTRING (342, 310), LTRIM$(STR$(Dy%)), Layer(1)
1101.   IF Blink%% AND Finput%% THEN _PRINTSTRING (174 + 8 * LEN(F$), 263), "_", Layer(1)
1102.   IF Blink%% AND CinputX%% THEN _PRINTSTRING (202 + 8 * LEN(XL$), 310), "_", Layer(1)
1103.   IF Blink%% AND CinputY%% THEN _PRINTSTRING (342 + 8 * LEN(YL$), 310), "_", Layer(1)
1104.  
1105.   IF DropList%% THEN
1106.    LINE (274, 335)-STEP(83, 72), _RGBA32(80, 80, 80, 80), BF 'Facing Direction
1107.    LINE (275, 336)-STEP(79, 68), _RGB32(224), BF '"   "   "
1108.    FOR i%% = 0 TO 3
1109.     IF Selection%% AND HlF%% = i%% THEN LINE (275, 336 + 17 * i%%)-STEP(79, 16), _RGBA32(10, 10, 180, 80), BF 'Facing Direction hilite
1110.     _PRINTSTRING (280, 339 + 16 * i%%), Facing$(i%%), Layer(1)
1111.    NEXT i%%
1112.   END IF
1113.  
1114.   _PUTIMAGE , Layer(1), Layer(0)
1115.   Mouse_Clear
1116.   Bt%% = Bt%% + 1 'blink timer
1117.   IF Bt%% = 8 THEN Blink%% = NOT Blink%%: Bt%% = 0
1118.   _LIMIT 60
1119.  LOOP UNTIL ExitFlag%%
1120.  _FREEIMAGE Temp&
1121.  COLOR _RGB32(255)
1122. END SUB
1123.  
1124. SUB Copy_Map_Area
1125.  'Experimental: Copy a section of the map to be pasted else where
1126.  'Suggested by Bplus
1127.  
1128.  '-------------Erase Temp Area---------------
1129.  FOR l% = 1 TO 7
1130.   FOR y% = 0 TO 15
1131.    FOR x% = 0 TO 15
1132.     TempLayerCopy(x%, y%, 0) = P.Selected_Base
1133.     TempLayerCopy(x%, y%, l%) = -1
1134.     TempWorldCopy(x%, y%).Walkable = 0
1135.     TempWorldCopy(x%, y%).Has_Dialog = 0
1136.     TempWorldCopy(x%, y%).Has_Chest = 0
1137.     TempWorldCopy(x%, y%).Has_Door = 0
1138.    NEXT x%
1139.   NEXT y%
1140.  NEXT l%
1141.  '--------------------------------------------
1142.  FOR l%% = 0 TO 8
1143.   FOR Iy%% = 0 TO P.TmpStartY + P.TmpEndY
1144.    FOR Ix%% = 0 TO P.TmpStartX + P.TmpEndX
1145.     TempWorldCopy(Ix%%, Iy%%) = World(P.World_X + P.TmpStartX + Ix%%, P.World_Y + P.TmpStartY + Iy%%) 'copy the extra data
1146.     TempLayerCopy(Ix%%, Iy%%, l%%) = TileLayer(P.World_X + P.TmpStartX + Ix%%, P.World_Y + P.TmpStartY + Iy%%, l%%) 'copy the tile data
1147.    NEXT Ix%%
1148.   NEXT Iy%%
1149.  NEXT l%%
1150.  P.Copied = TRUE
1151.  P.Copied_X = P.TmpEndX 'Size of the copied area
1152.  P.Copied_Y = P.TmpEndY
1153. END SUB
1154.  
1155. SUB Paste_Map_Area (Start_X%%, Start_Y%%)
1156.  'Experimental: Paste a section of the map copied from else where
1157.  'Suggested by Bplus
1158.  FOR l%% = 0 TO 8
1159.   FOR Iy%% = 0 TO P.Copied_Y
1160.    FOR Ix%% = 0 TO P.Copied_X
1161.     IF TempLayerCopy(Ix%%, Iy%%, l%%) <> 0 THEN 'paste if there is tiledata to paste(non-0)
1162.      TileLayer(P.World_X + P.TmpStartX + Ix%%, P.World_Y + P.TmpStartY + Iy%%, l%%) = TempLayerCopy(Ix%%, Iy%%, l%%)
1163.      World(Start_X%% + P.World_X + Ix%%, Start_Y%% + P.World_Y + Iy%%) = TempWorldCopy(Ix%%, Iy%%)
1164.     END IF
1165.    NEXT Ix%%
1166.   NEXT Iy%%
1167.  NEXT l%%
1168. END SUB
1169.  
1170. FUNCTION Check_Selection_Valid%%
1171.  Result%% = TRUE
1172.  'end x and y must be greater than start x and y for selection to be valid
1173.  IF P.TmpStartX + P.TmpEndX <= P.TmpStartX AND P.TmpStartY + P.TmpEndY <= P.TmpStartY THEN Result%% = FALSE
1174.  Check_Selection_Valid = Result%%
1175. END FUNCTION
1176.  
1177. SUB Reset_Map
1178.  'Erases all map related data
1179.  FOR y% = 0 TO 255
1180.   FOR x% = 0 TO 255
1181.    TileLayer(x%, y%, 0) = 0
1182.    World(x%, y%).Walkable = TRUE
1183.    World(x%, y%).Has_Dialog = FALSE
1184.    World(x%, y%).Has_Chest = FALSE
1185.    World(x%, y%).Has_Door = FALSE
1186.   NEXT x%
1187.  NEXT y%
1188.  FOR l% = 1 TO 8
1189.   FOR y% = 0 TO 255
1190.    FOR x% = 0 TO 255
1191.     TileLayer(x%, y%, l%) = -1
1192.    NEXT x%
1193.   NEXT y%
1194.  NEXT l%
1195.  P.World_X = 0
1196.  P.World_Y = 0
1197.  P.List_Start = 0
1198.  P.Toggle_Walk = TRUE
1199.  P.Current_Layer = 0
1200.  P.Has_Selection = FALSE
1201.  P.Special_Count = FALSE
1202.  P.Selected_Base = 0
1203.  P.Selected_Deco = 0
1204.  P.Dialog_ID = 0
1205.  P.Chest_ID = 0
1206.  P.Door_ID = 0
1207.  FOR i% = 1 TO 3072 'erase specials
1208.   Specials(i%) = Specials(0)
1209.  NEXT i%
1210.  FOR i% = 1 TO 1024 'erase dialogs, chests, and doorways
1211.   Dialogs(i%) = ""
1212.   Chests(i%) = Chests(0)
1213.   DoorWays(i%) = DoorWays(0)
1214.  NEXT i%
1215. END SUB
1216.  
1217. SUB Display_Layer0_Error
1218.  tmp& = _COPYIMAGE(Layer(0))
1219.  _DEST tmp&
1220.  _PRINTMODE _KEEPBACKGROUND , tmp&
1221.  LINE (310, 210)-STEP(200, 100), _RGBA32(32, 32, 32, 64), BF
1222.  LINE (300, 200)-STEP(200, 100), _RGB32(192), BF
1223.  LINE (300, 200)-STEP(200, 100), _RGB32(96), B
1224.  COLOR _RGB32(16)
1225.  _PRINTSTRING (340, 226), "Cannot place on", tmp&
1226.  _PRINTSTRING (344, 242), "layer 0 (base)", tmp&
1227.  LINE (374, 279)-STEP(47, 17), _RGB32(32), B
1228.  LINE (375, 280)-STEP(45, 15), _RGB32(128), BF
1229.  _PRINTSTRING (390, 281), "OK", tmp&
1230.  _DEST Layer(1)
1231.  DO
1232.   nul%% = _MOUSEINPUT
1233.   _PUTIMAGE , tmp&, Layer(1)
1234.   IF _MOUSEX > 375 AND _MOUSEX < 421 AND _MOUSEY > 280 AND _MOUSEY < 296 THEN Selection%% = 1 ELSE Selection%% = 0
1235.   IF Selection%% = 1 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
1236.   _PRINTSTRING (390, 281), "OK", Layer(1)
1237.   IF _MOUSEBUTTON(1) AND Selection%% = 1 THEN Exitflag%% = TRUE
1238.   _PUTIMAGE , Layer(1), Layer(0)
1239.   _LIMIT 60
1240.   Mouse_Clear
1241.  LOOP UNTIL Exitflag%%
1242.  _FREEIMAGE tmp&
1243. END SUB
1244.  
1245. SUB Change_Layers
1246.  DIM Layer_Values(8) AS INTEGER
1247.  _DEST Layer(1)
1248.  LINE (160, 210)-STEP(299, 239), _RGBA32(32, 32, 32, 96), BF
1249.  LINE (150, 200)-STEP(299, 239), _RGB32(96), BF
1250.  LINE (150, 200)-STEP(299, 239), _RGB32(32), B
1251.  LINE (151, 201)-STEP(297, 15), _RGB32(0, 8, 240), BF
1252.  _PRINTSTRING (300 - 8 * 12.5, 202), "Manual Layer Manipulation", Layer(1)
1253.  _PRINTSTRING (159, 226), "Base", Layer(1)
1254.  
1255.  FOR I%% = 0 TO 8
1256.   LINE (199, 225 + 20 * I%%)-STEP(59, 16), _RGB32(240), BF
1257.   IF I%% THEN _PRINTSTRING (164, 226 + 20 * I%%), STR$(I%%), Layer(1)
1258.   LINE (244, 225 + 20 * I%%)-STEP(14, 8), _RGB32(32), B 'up arrow
1259.   LINE (245, 226 + 20 * I%%)-STEP(12, 6), _RGB32(112), BF
1260.   LINE (247, 231 + 20 * I%%)-STEP(8, 0), _RGB32(224): LINE -(251, 227 + 20 * I%%), _RGB32(224): LINE -(247, 231 + 20 * I%%), _RGB32(224): PAINT (251, 229 + 20 * I%%), _RGB32(224), _RGB32(224)
1261.   LINE (244, 233 + 20 * I%%)-STEP(14, 8), _RGB32(32), B 'down arrow
1262.   LINE (245, 234 + 20 * I%%)-STEP(12, 6), _RGB32(112), BF
1263.   LINE (247, 235 + 20 * I%%)-STEP(8, 0), _RGB32(224): LINE -(251, 239 + 20 * I%%), _RGB32(224): LINE -(247, 235 + 20 * I%%), _RGB32(224): PAINT (251, 237 + 20 * I%%), _RGB32(224), _RGB32(224)
1264.   Layer_Values(I%%) = TileLayer(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1, I%%) 'go ahead and get the tile values here
1265.  NEXT I%%
1266.  
1267.  LINE (290, 240)-STEP(65, 65), _RGB32(8), BF 'base preview
1268.  LINE (290, 330)-STEP(65, 65), _RGB32(8), BF 'tiles preview
1269.  LINE (370, 280)-STEP(65, 65), _RGB32(8), BF 'final preview
1270.  _PRINTSTRING (306, 225), "Base", Layer(1)
1271.  _PRINTSTRING (306, 316), "Deco", Layer(1)
1272.  _PRINTSTRING (380, 264), "On Map", Layer(1)
1273.  
1274.  LINE (312, 411)-STEP(79, 19), _RGB32(64), B 'Cancel button
1275.  LINE (313, 412)-STEP(77, 17), _RGB32(160), BF 'Cancel button
1276.  LINE (212, 411)-STEP(71, 19), _RGB32(64), B 'OK button
1277.  LINE (213, 412)-STEP(69, 17), _RGB32(160), BF 'OK button
1278.  COLOR _RGB32(16)
1279.  tmp& = _COPYIMAGE(Layer(1))
1280.  _DELAY .1
1281.  Mouse_Clear
1282.  DO
1283.   nul%% = _MOUSEINPUT
1284.   _PUTIMAGE , tmp&, Layer(1)
1285.  
1286.   IF _MOUSEX > 213 AND _MOUSEX < 282 AND _MOUSEY > 412 AND _MOUSEY < 429 THEN 'highlight OK option
1287.    Selection%% = 1
1288.   ELSEIF _MOUSEX > 324 AND _MOUSEX < 392 AND _MOUSEY > 412 AND _MOUSEY < 429 THEN 'highlight Cancel option
1289.    Selection%% = 2
1290.   ELSE
1291.    Selection%% = 0
1292.   END IF
1293.   FOR I%% = 0 TO 8 'input boxes
1294.    IF _MOUSEX > 199 AND _MOUSEX < 243 AND _MOUSEY > 225 + 20 * I%% AND _MOUSEY < 241 + 20 * I%% THEN Selection%% = 3 + I%%
1295.   NEXT I%%
1296.   FOR I%% = 0 TO 8 'up arrows
1297.    IF _MOUSEX > 244 AND _MOUSEX < 259 AND _MOUSEY > 225 + 20 * I%% AND _MOUSEY < 232 + 20 * I%% THEN Selection%% = 12 + I%%
1298.   NEXT I%%
1299.   FOR I%% = 0 TO 8 'down arrows
1300.    IF _MOUSEX > 244 AND _MOUSEX < 259 AND _MOUSEY > 234 + 20 * I%% AND _MOUSEY < 241 + 20 * I%% THEN Selection%% = 21 + I%%
1301.   NEXT I%%
1302.  
1303.   IF _MOUSEBUTTON(1) THEN
1304.    SELECT CASE Selection%%
1305.     CASE 1 ' ok
1306.      FOR I%% = 0 TO 8
1307.       TileLayer(P.World_X + P.Mouse_over_R - 1, P.World_Y + P.Mouse_over_B - 1, I%%) = Layer_Values(I%%)
1308.      NEXT I%%
1309.      ExitFlag%% = TRUE
1310.     CASE 2 'cancel
1311.      ExitFlag%% = TRUE
1312.     CASE 3 TO 11 'manual input boxes
1313.      ManualInput%% = Selection%% - 2 'set the flag to which box is being inputed into.
1314.     CASE 12 TO 20 'up arrow increase
1315.      IF Layer_Values(Selection%% - 12) < Max_Tile THEN Layer_Values(Selection%% - 12) = Layer_Values(Selection%% - 12) + 1
1316.      IF Selection%% - 12 = 0 THEN
1317.       IF Layer_Values(0) > 7 THEN Layer_Values(0) = 7
1318.      END IF
1319.      ManualInput%% = FALSE
1320.     CASE 21 TO 29 'down arrow decrease
1321.      IF Layer_Values(Selection%% - 21) >= 0 THEN Layer_Values(Selection%% - 21) = Layer_Values(Selection%% - 21) - 1
1322.      IF Selection%% - 21 = 0 THEN
1323.       IF Layer_Values(0) < 0 THEN Layer_Values(0) = 0
1324.      END IF
1325.      ManualInput%% = FALSE
1326.    END SELECT
1327.    _DELAY .1
1328.   END IF
1329.  
1330.   KBD& = _KEYHIT
1331.   IF KBD& > 0 AND ManualInput%% THEN
1332.    C$ = LTRIM$(STR$(Layer_Values(ManualInput%% - 1)))
1333.    SELECT CASE KBD&
1334.     CASE 27 'esc (acts like cancel)
1335.      ExitFlag%% = TRUE
1336.     CASE 8 'back space
1337.      IF LEN(C$) THEN C$ = LEFT$(C$, LEN(C$) - 1)
1338.     CASE 48 TO 57 '0-9
1339.      IF C$ = "-1" THEN C$ = ""
1340.      IF LEN(C$) < 3 THEN C$ = C$ + CHR$(KBD&)
1341.      IF VAL(C$) > Max_Tile THEN C$ = LTRIM$(STR$(Max_Tile))
1342.    END SELECT
1343.    Layer_Values(ManualInput%% - 1) = VAL(C$)
1344.   END IF
1345.  
1346.   IF Selection%% = 1 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
1347.   _PRINTSTRING (240, 413), "OK", Layer(1)
1348.   IF Selection%% = 2 THEN COLOR _RGB32(224, 224, 32) ELSE COLOR _RGB32(255)
1349.   _PRINTSTRING (330, 413), "Cancel", Layer(1)
1350.   COLOR _RGB32(16)
1351.   FOR I%% = 0 TO 8 'display tile data numbers, if any
1352.    IF Layer_Values(I%%) >= 0 THEN
1353.     _PRINTSTRING (204, 226 + 20 * I%%), LTRIM$(STR$(Layer_Values(I%%))), Layer(1)
1354.    ELSE
1355.     _PRINTSTRING (204, 226 + 20 * I%%), "None", Layer(1)
1356.    END IF
1357.   NEXT I%%
1358.  
1359.   IF Blink%% AND ManualInput%% THEN
1360.    IF Layer_Values(ManualInput%% - 1) >= 0 THEN
1361.     _PRINTSTRING (204 + 8 * LEN(LTRIM$(STR$(Layer_Values(ManualInput%% - 1)))), 226 + 20 * (ManualInput%% - 1)), "_", Layer(1)
1362.    ELSE
1363.     _PRINTSTRING (204, 226 + 20 * (ManualInput%% - 1)), "_", Layer(1)
1364.    END IF
1365.   END IF
1366.   COLOR _RGB32(255)
1367.   _PRINTSTRING (670, 600), STR$(Selection%%) + STR$(ManualInput%%), Layer(1)
1368.   Show_Tile 291, 241, Layer_Values(0), .5, Layer(1) 'base preview
1369.   Show_Tile 371, 281, Layer_Values(0), .5, Layer(1) 'composite preview
1370.   FOR I%% = 1 TO 8 'DECOration preview
1371.    IF Layer_Values(I%%) >= 0 THEN Show_Tile 291, 331, Layer_Values(I%%), .5, Layer(1)
1372.    IF Layer_Values(I%%) >= 0 THEN Show_Tile 371, 281, Layer_Values(I%%), .5, Layer(1) 'composite preview
1373.   NEXT I%%
1374.   Bt%% = Bt%% + 1 'blink timer
1375.   IF Bt%% = 8 THEN Blink%% = NOT Blink%%: Bt%% = 0
1376.   _PUTIMAGE , Layer(1), Layer(0)
1377.   _LIMIT 60
1378.   Mouse_Clear
1379.   IF INKEY$ = CHR$(27) THEN ExitFlag%% = TRUE
1380.  LOOP UNTIL ExitFlag%%
1381.  _FREEIMAGE tmp&
1382.  
1383. END SUB
1384.  
1385. FUNCTION Return_Special% (Kind~%%)
1386.  Result% = FALSE
1387.  FOR i% = 1 TO P.Special_Count
1388.   SELECT CASE Kind~%%
1389.    CASE 0 'dialog
1390.     IF Specials(i%).Xloc = P.Mouse_over_R - 1 AND Specials(i%).Yloc = P.Mouse_over_B - 1 AND Specials(i%).Is_Dialog THEN Result% = i%
1391.    CASE 1 'chest
1392.     IF Specials(i%).Xloc = P.Mouse_over_R - 1 AND Specials(i%).Yloc = P.Mouse_over_B - 1 AND Specials(i%).Is_Chest THEN Result% = i%
1393.    CASE 2 'door
1394.     IF Specials(i%).Xloc = P.Mouse_over_R - 1 AND Specials(i%).Yloc = P.Mouse_over_B - 1 AND Specials(i%).Is_Door THEN Result% = i%
1395.   END SELECT
1396.   IF Result% THEN i% = P.Special_Count + 1 'no need to check further so tell loop its done.
1397.  NEXT i%
1398.  Return_Special = Result%
1399. END FUNCTION
1400.  
1401. REM'$include:'Displays.BI'
1402. SUB Show_Tile (X%, Y%, ID%, Scale!, L&)
1403.  Sx% = 32 / Scale! - 1
1404.  Sy% = 32 / Scale! - 1
1405.  _PUTIMAGE (X%, Y%)-STEP(Sx%, Sy%), Layer(2), L&, (0 + 32 * ID%, 0)-STEP(31, 31)
1406. END SUB
1407.  
1408. SUB Display_Tile_list_Section
1409.  '--------------Tile sheet selection display-------------------
1410.  _PRINTSTRING (16 + 320 - 32, 0), "Tile List", Layer(3)
1411.  LINE (15, 15)-STEP(644, 35), _RGB32(224), B
1412.  LINE (14, 14)-STEP(646, 37), _RGB32(128), B
1413.  '-------------------------------------------------------------
1414. END SUB
1415.  
1416. SUB Display_Mini_Map
1417.  _PRINTSTRING (600, 112), "Mini Map", Layer(3)
1418.  LINE (600, 130)-STEP(259, 259), _RGB32(224), B
1419.  LINE (599, 129)-STEP(261, 261), _RGB32(160), B
1420.  _PRINTSTRING (604, 394), "Refresh", Layer(3)
1421. END SUB
1422.  
1423. SUB Display_Auto_Build_Deco
1424.  '------------------Auto Placement of premade deco-------------
1425.  _PRINTSTRING (800, 0), "Automatic", Layer(3)
1426.  LINE (783, 14)-STEP(103, 103), _RGB32(128), B 'top left
1427.  LINE (784, 15)-STEP(101, 101), _RGB32(224), B
1428.  LINE (786, 49)-STEP(98, 0), _RGB32(96)
1429.  LINE (786, 82)-STEP(98, 0), _RGB32(96)
1430.  LINE (818, 16)-STEP(0, 98), _RGB32(96)
1431.  LINE (851, 16)-STEP(0, 98), _RGB32(96)
1432.  '--------------------------------------------------------------
1433. END SUB
1434.  
1435. SUB Display_Selected_Base
1436.  '---------------Selected Map Base Tile--------------------
1437.  _PRINTSTRING (688, 0), "Base", Layer(3)
1438.  LINE (686, 14)-STEP(37, 37), _RGB32(128), B
1439.  LINE (687, 15)-STEP(35, 35), _RGB32(224), B
1440.  '-------------------------------------------------------------
1441. END SUB
1442.  
1443. SUB Display_Selected_Deco
1444.  '---------------Selected Deco Tile----------------------------
1445.  _PRINTSTRING (736, 0), "Deco", Layer(3)
1446.  LINE (734, 14)-STEP(37, 37), _RGB32(128), B
1447.  LINE (735, 15)-STEP(35, 35), _RGB32(224), B
1448.  '-------------------------------------------------------------
1449. END SUB
1450.  
1451. SUB Display_Toggles
1452.  LINE (580, 54)-STEP(14, 14), _RGB32(92), B
1453.  _PRINTSTRING (602, 54), "Walkable"
1454. END SUB
1455.  
1456. SUB Display_Current_layer
1457.  LINE (628, 71)-STEP(65, 21), _RGB32(128), B
1458.  LINE (629, 72)-STEP(63, 19), _RGB32(192), BF
1459.  _PRINTSTRING (580, 74), "Layer"
1460.  'up arrow
1461.  LINE (676, 72)-STEP(16, 9), _RGB32(32), B
1462.  LINE (677, 73)-STEP(14, 7), _RGB32(112), BF
1463.  LINE (679, 80)-STEP(10, 0), _RGB32(224): LINE -(684, 75), _RGB32(224): LINE -(679, 80), _RGB32(224): PAINT (685, 77), _RGB32(224), _RGB32(224)
1464.  'down arrow
1465.  LINE (676, 82)-STEP(16, 9), _RGB32(32), B
1466.  LINE (677, 83)-STEP(14, 7), _RGB32(112), BF
1467.  LINE (679, 85)-STEP(10, 0), _RGB32(224): LINE -(684, 90), _RGB32(224): LINE -(679, 85), _RGB32(224): PAINT (685, 87), _RGB32(224), _RGB32(224)
1468. END SUB
1469.  
1470. SUB Display_Load_Save_Buttons
1471.  IF P.Mouse_over_R <> 30 THEN
1472.   _PUTIMAGE (660, 460)-STEP(127, 31), Layer(5), Layer(1), (0, 96)-STEP(63, 15) 'new map
1473.  ELSE
1474.   _PUTIMAGE (660, 460)-STEP(127, 31), Layer(5), Layer(1), (0, 112)-STEP(63, 15) 'new map
1475.  END IF
1476.  IF P.Mouse_over_R <> 31 THEN
1477.   _PUTIMAGE (600, 500)-STEP(63, 15), Layer(5), Layer(1), (0, 96)-STEP(63, 15) 'save
1478.  ELSE
1479.   _PUTIMAGE (600, 500)-STEP(63, 15), Layer(5), Layer(1), (0, 112)-STEP(63, 15) 'save
1480.  END IF
1481.  IF P.Mouse_over_R <> 32 THEN
1482.   _PUTIMAGE (680, 500)-STEP(63, 15), Layer(5), Layer(1), (0, 96)-STEP(63, 15) 'load
1483.  ELSE
1484.   _PUTIMAGE (680, 500)-STEP(63, 15), Layer(5), Layer(1), (0, 113)-STEP(63, 15) 'load
1485.  END IF
1486.  IF P.Mouse_over_R <> 33 THEN
1487.   _PUTIMAGE (760, 500)-STEP(63, 15), Layer(5), Layer(1), (0, 96)-STEP(63, 15) 'quit
1488.  ELSE
1489.   _PUTIMAGE (760, 500)-STEP(63, 15), Layer(5), Layer(1), (0, 112)-STEP(63, 15) 'quit
1490.  END IF
1491.  _PRINTSTRING (696, 468), "New Map", Layer(1)
1492.  _PRINTSTRING (616, 501), "Save", Layer(1)
1493.  _PRINTSTRING (694, 501), "Load", Layer(1)
1494.  _PRINTSTRING (776, 501), "Quit", Layer(1)
1495. END SUB
1496.  
1497. SUB Display_Tiles
1498.  Show_Tile 689, 17, P.Selected_Base, 1, Layer(1)
1499.  IF (P.Selected_Deco <> P.Selected_Base) AND P.Selected_Deco THEN Show_Tile 737, 17, P.Selected_Deco, 1, Layer(1) 'Deco can not match Base
1500.  FOR Ay% = 0 TO 2
1501.   FOR Ax% = 0 TO 2
1502.    IF Auto(Ax%, Ay%) THEN Show_Tile 786 + Ax% * 33, 17 + Ay% * 33, Auto(Ax%, Ay%), 1, Layer(1) '0 is not valid for deco
1503.   NEXT Ax%
1504.  NEXT Ay%
1505.  _PUTIMAGE (17, 17)-STEP(639, 31), Layer(2), Layer(1), (0 + 32 * P.List_Start, 0)-STEP(639, 31)
1506. END SUB
1507.  
1508. SUB Display_Selected_Box
1509.  '---------------Selected Tile Box--------------------
1510.  IF (P.Mouse_over_R < 21 AND P.Mouse_over_R > 0) AND (P.Mouse_over_B = 0 AND P.Mouse_over_G = 0) THEN _PUTIMAGE (17 + (P.Mouse_over_R - 1) * 32, 17), Layer(5), Layer(1), (0, 64)-STEP(31, 31)
1511.  '-------------------------------------------------------------
1512.  '---------------Selected Auto Box--------------------
1513.  IF P.Mouse_over_G THEN _PUTIMAGE (786 + (P.Mouse_over_G - 1) * 33, 17 + (P.Mouse_over_B - 1) * 33), Layer(5), Layer(1), (0, 64)-STEP(31, 31)
1514.  '-------------------------------------------------------------
1515.  '---------------Selected Map Tile Box--------------------
1516.  IF P.Mouse_over_B AND P.Mouse_over_G = 0 THEN _PUTIMAGE (32 + (P.Mouse_over_R - 1) * 33, 72 + (P.Mouse_over_B - 1) * 33), Layer(5), Layer(1), (0, 64)-STEP(31, 31)
1517.  '-------------------------------------------------------------
1518. END SUB
1519.  
1520. SUB ClearLayer (L&)
1521.  _DEST L&
1522.  CLS
1523.  _DEST _DISPLAY
1524. END SUB
1525.  
1526. SUB ClearLayerTrans (L&)
1527.  _DEST L&
1528.  CLS , 0
1529.  _DEST _DISPLAY
1530. END SUB
1531.  
1532. REM'$include:'SaveLoad.bi'
1533. SUB Save_Map
1534.  Temp& = _COPYIMAGE(Layer(0))
1535.  _DEST Layer(7)
1536.  LINE (320, 220)-STEP(299, 199), _RGBA32(64, 64, 64, 96), BF
1537.  LINE (301, 201)-STEP(299, 199), _RGB32(128), BF
1538.  LINE (302, 202)-STEP(298, 18), _RGB32(0, 16, 192), BF 'title bar
1539.  _PRINTSTRING (450 - 8 * 4, 204), "Save As...", Layer(7)
1540.  LINE (319, 259)-STEP(251, 21), _RGB32(80), B 'File name box
1541.  LINE (320, 260)-STEP(249, 19), _RGB32(16), BF '"   "   "
1542.  _PRINTSTRING (320, 240), "File Name", Layer(7)
1543.  LINE (362, 347)-STEP(79, 19), _RGB32(64), B 'Cancel button
1544.  LINE (363, 348)-STEP(77, 17), _RGB32(160), BF 'Cancel button
1545.  LINE (462, 347)-STEP(71, 19), _RGB32(64), B 'OK button
1546.  LINE (463, 348)-STEP(69, 17), _RGB32(160), BF 'OK button
1547.  _DEST Layer(1)
1548.  _KEYCLEAR
1549.  IF LTRIM$(P.Last_File) <> "" THEN f$ = RTRIM$(P.Last_File) 'use what ever name was used last(if any)
1550.  DO
1551.   Nul%% = _MOUSEINPUT
1552.   KBD& = _KEYHIT
1553.   IF KBD& > 0 THEN
1554.    SELECT CASE KBD&
1555.     CASE 27 'esc
1556.      ExitFlag%% = TRUE
1557.     CASE 8 'back space
1558.      IF LEN(f$) THEN f$ = LEFT$(f$, LEN(f$) - 1)
1559.     CASE 13 'enter
1560.      ExitFlag%% = TRUE
1561.      Save_it f$
1562.     CASE 33 TO 127 'no spaces allowed
1563.      IF LEN(f$) < 32 THEN f$ = f$ + CHR$(KBD&)
1564.    END SELECT
1565.   END IF
1566.   _PUTIMAGE , Temp&, Layer(1)
1567.   _PUTIMAGE , Layer(7), Layer(1)
1568.   IF _MOUSEX > 362 AND _MOUSEX < 442 AND _MOUSEY > 347 AND _MOUSEY < 367 THEN
1569.    LINE (363, 348)-STEP(77, 17), _RGB32(96), BF 'Cancel button
1570.    IF _MOUSEBUTTON(1) THEN ExitFlag%% = TRUE 'no save
1571.   END IF
1572.   IF _MOUSEX > 462 AND _MOUSEX < 532 AND _MOUSEY > 347 AND _MOUSEY < 367 THEN
1573.    LINE (463, 348)-STEP(69, 17), _RGB32(96), BF: over%% = 2 'OK button
1574.    IF _MOUSEBUTTON(1) THEN
1575.     ExitFlag%% = TRUE
1576.     Save_it f$
1577.    END IF
1578.   END IF
1579.   _PRINTSTRING (380, 350), "Cancel", Layer(1)
1580.   _PRINTSTRING (490, 350), "OK", Layer(1)
1581.   _PRINTSTRING (324, 263), f$ + ".MAP", Layer(1)
1582.   IF Blink%% THEN _PRINTSTRING (324 + 8 * LEN(f$), 263), "_", Layer(1)
1583.   _PUTIMAGE , Layer(1), Layer(0)
1584.   Mouse_Clear
1585.   Bt%% = Bt%% + 1 'blink timer
1586.   IF Bt%% = 8 THEN Blink%% = NOT Blink%%: Bt%% = 0
1587.   _LIMIT 60
1588.  LOOP UNTIL ExitFlag%%
1589.  _DEST Layer(0)
1590.  _FREEIMAGE Temp&
1591.  P.Last_File = f$
1592. END SUB
1593.  
1594.  
1595. SUB Save_it (File$)
1596.  F = FREEFILE
1597.  IF File$ = "" THEN File$ = "Defualt"
1598.  File$ = LTRIM$(RTRIM$(File$)) 'no spaces allowed
1599.  OPEN File$ + ".MAP" FOR BINARY AS #F 'Save
1600.  P.Special_Count = 7
1601.  Ver~& = VerInfo
1602.  PUT #F, , Ver~&
1603.  PUT #F, , World()
1604.  PUT #F, , TileLayer()
1605.  PUT #F, , P.Special_Count
1606.  PUT #F, , Specials()
1607.  PUT #F, , P.Dialog_ID
1608.  FOR i% = 1 TO P.Dialog_ID
1609.   PUT #F, , Dialogs(i%)
1610.  NEXT i%
1611.  PUT #F, , P.Chest_ID
1612.  PUT #F, , Chests()
1613.  PUT #F, , P.Door_ID
1614.  PUT #F, , DoorWays()
1615.  CLOSE #F
1616. END SUB
1617.  
1618. SUB Auto_Save
1619.  Save_it "AutoSave"
1620.  P.AutoSave_Notice = TRUE
1621. END SUB
1622.  
1623. SUB Load_Map
1624.  Temp& = _COPYIMAGE(Layer(0))
1625.  _DEST Layer(7)
1626.  LINE (320, 220)-STEP(299, 199), _RGBA32(64, 64, 64, 96), BF
1627.  LINE (301, 201)-STEP(299, 199), _RGB32(128), BF
1628.  LINE (302, 202)-STEP(298, 18), _RGB32(0, 16, 192), BF 'title bar
1629.  _PRINTSTRING (450 - 8 * 5, 204), "Load Map...", Layer(7)
1630.  LINE (319, 259)-STEP(251, 21), _RGB32(80), B 'File name box
1631.  LINE (320, 260)-STEP(249, 19), _RGB32(16), BF '"   "   "
1632.  _PRINTSTRING (320, 240), "File Name", Layer(7)
1633.  LINE (362, 347)-STEP(79, 19), _RGB32(64), B 'Cancel button
1634.  LINE (363, 348)-STEP(77, 17), _RGB32(160), BF 'Cancel button
1635.  LINE (462, 347)-STEP(71, 19), _RGB32(64), B 'OK button
1636.  LINE (463, 348)-STEP(69, 17), _RGB32(160), BF 'OK button
1637.  _DEST Layer(1)
1638.  _KEYCLEAR
1639.  IF LTRIM$(P.Last_File) <> "" THEN f$ = RTRIM$(P.Last_File) 'use what ever name was used last(if any)
1640.  DO
1641.   Nul%% = _MOUSEINPUT
1642.   KBD& = _KEYHIT
1643.   IF KBD& > 0 THEN
1644.    SELECT CASE KBD&
1645.     CASE 27 'esc
1646.      ExitFlag%% = TRUE
1647.     CASE 8 'back space
1648.      IF LEN(f$) THEN f$ = LEFT$(f$, LEN(f$) - 1)
1649.     CASE 13 'enter
1650.      ExitFlag%% = TRUE
1651.      Load_it f$
1652.      Build_MAP
1653.      Place_Mini_Map
1654.     CASE 33 TO 127 'no spaces allowed
1655.      IF LEN(f$) < 32 THEN f$ = f$ + CHR$(KBD&)
1656.    END SELECT
1657.   END IF
1658.   _PUTIMAGE , Temp&, Layer(1)
1659.   _PUTIMAGE , Layer(7), Layer(1)
1660.   IF _MOUSEX > 362 AND _MOUSEX < 442 AND _MOUSEY > 347 AND _MOUSEY < 367 THEN
1661.    LINE (363, 348)-STEP(77, 17), _RGB32(96), BF 'Cancel button
1662.    IF _MOUSEBUTTON(1) THEN ExitFlag%% = TRUE 'no load
1663.   END IF
1664.   IF _MOUSEX > 462 AND _MOUSEX < 532 AND _MOUSEY > 347 AND _MOUSEY < 367 THEN
1665.    LINE (463, 348)-STEP(69, 17), _RGB32(96), BF: over%% = 2 'OK button
1666.    IF _MOUSEBUTTON(1) THEN
1667.     ExitFlag%% = TRUE
1668.     Load_it f$
1669.     Build_MAP
1670.    END IF
1671.   END IF
1672.   _PRINTSTRING (380, 350), "Cancel", Layer(1)
1673.   _PRINTSTRING (490, 350), "OK", Layer(1)
1674.   _PRINTSTRING (324, 263), f$ + ".MAP", Layer(1)
1675.   IF Blink%% THEN _PRINTSTRING (324 + 8 * LEN(f$), 263), "_", Layer(1)
1676.   _PUTIMAGE , Layer(1), Layer(0)
1677.   Mouse_Clear
1678.   Bt%% = Bt%% + 1 'blink timer
1679.   IF Bt%% = 8 THEN Blink%% = NOT Blink%%: Bt%% = 0
1680.   _LIMIT 60
1681.  LOOP UNTIL ExitFlag%%
1682.  _DEST Layer(0)
1683.  _FREEIMAGE Temp&
1684.  P.Last_File = f$
1685. END SUB
1686.  
1687. SUB Load_it (File$)
1688.  F = FREEFILE
1689.  IF File$ = "" THEN File$ = "Defualt"
1690.  File$ = LTRIM$(RTRIM$(File$)) 'no spaces allowed
1691.  Erase_Auto_Build
1692.  Reset_Map
1693.  OPEN File$ + ".MAP" FOR BINARY AS #F 'Save
1694.  GET #F, , VerCheck&
1695.  IF VerCheck& <> VerInfo THEN 'Old style Map needs converted
1696.   IF VerCheck& = OldVer THEN
1697.    FOR Y~%% = 0 TO 255 'load the second setup (ver0.9 with verification)
1698.     FOR X~%% = 0 TO 255
1699.      GET #F, , TileLayer(X~%%, Y~%%, 0)
1700.      GET #F, , TileLayer(X~%%, Y~%%, 1)
1701.      GET #F, , TileLayer(X~%%, Y~%%, 2)
1702.      GET #F, , World(X~%%, Y~%%).Walkable
1703.      GET #F, , World(X~%%, Y~%%).Has_Dialog
1704.      GET #F, , World(X~%%, Y~%%).Has_Chest
1705.      GET #F, , World(X~%%, Y~%%).Has_Door
1706.      IF TileLayer(X~%%, Y~%%, 1) = 0 THEN TileLayer(X~%%, Y~%%, 1) = -1
1707.      IF TileLayer(X~%%, Y~%%, 2) = 0 THEN TileLayer(X~%%, Y~%%, 2) = -1
1708.     NEXT X~%%
1709.    NEXT Y~%%
1710.    GET #F, , P.Special_Count
1711.    GET #F, , Specials()
1712.    GET #F, , P.Dialog_ID
1713.    FOR i% = 1 TO P.Dialog_ID
1714.     GET #F, , Dialogs(i%)
1715.    NEXT i%
1716.    GET #F, , P.Chest_ID
1717.    GET #F, , Chests()
1718.    GET #F, , P.Door_ID
1719.    GET #F, , DoorWays()
1720.   ELSE
1721.    SEEK #F, 1 'reset file location for conversion
1722.    FOR Y~%% = 0 TO 255 'load the first setup (V1.0Beta 11/30/21-NO VerID)
1723.     FOR X~%% = 0 TO 255
1724.      GET #F, , TileLayer(X~%%, Y~%%, 0)
1725.      GET #F, , TileLayer(X~%%, Y~%%, 1)
1726.      GET #F, , TileLayer(X~%%, Y~%%, 2)
1727.      GET #F, , World(X~%%, Y~%%).Walkable
1728.     NEXT X~%%
1729.    NEXT Y~%%
1730.   END IF
1731.  ELSE 'No conversion needed
1732.   GET #F, , World()
1733.   GET #F, , TileLayer()
1734.   GET #F, , P.Special_Count
1735.   GET #F, , Specials()
1736.   GET #F, , P.Dialog_ID
1737.   FOR i% = 1 TO P.Dialog_ID
1738.    GET #F, , Dialogs(i%)
1739.   NEXT i%
1740.   GET #F, , P.Chest_ID
1741.   GET #F, , Chests()
1742.   GET #F, , P.Door_ID
1743.   GET #F, , DoorWays()
1744.  END IF
1745.  CLOSE #F
1746. END SUB
1747.  
1748. REM'$include:'MFILoader.bi'
1749. SUB MFI_Loader (FN$)
1750.  DIM Size(128) AS LONG, FOffset(128) AS LONG
1751.  OPEN FN$ FOR BINARY AS #1
1752.  GET #1, , c~%% 'retrieve number of files
1753.  FOR I~%% = 1 TO c~%%
1754.   GET #1, , FOffset(I~%%)
1755.   GET #1, , Size(I~%%)
1756.   FOffset&(I~%%) = FOffset&(I~%%) + 1
1757.  NEXT I~%%
1758.  
1759.  Layer(2) = LoadGFX(FOffset(1), Size(1)) 'tiles
1760.  Layer(5) = LoadGFX(FOffset(2), Size(2)) 'Buttons
1761.  Layer(8) = LoadGFX(FOffset(3), Size(3)) 'items
1762.  
1763.  CLOSE #1
1764.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
1765. END SUB
1766.  
1767. SUB LoadData (Foff&, Size&)
1768.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
1769.  OPEN "temp.dat" FOR BINARY AS #3
1770.  dat$ = SPACE$(Size&)
1771.  GET #1, Foff&, dat$
1772.  PUT #3, , dat$
1773.  CLOSE #3
1774. END SUB
1775.  
1776. REM '$include:'MFI_Loader2.bi'
1777.  
1778. FUNCTION LoadGFX& (Foff&, Size&)
1779.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
1780.  OPEN "temp.dat" FOR BINARY AS #3
1781.  dat$ = SPACE$(Size&)
1782.  GET #1, Foff&, dat$
1783.  PUT #3, , dat$
1784.  CLOSE #3
1785.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
1786. END FUNCTION
1787.  

The MFI file is the same as above, but is just posted here too as to keep the updated code and MFI together. but no need to re-download if you already have it from above.