Message #1222

[guest]

    Here's proof of concept of the VSGE Editor that creates a file containing data statements to include in the engine program.
The graphic:
http://dl.dropbox.com/u/10291175/RogueCraftExp1.bmp
The code:

Code:

REM
DEFINT A-Z

_TITLE "VSGE Editor" '                                           our window title
SCREEN _NEWIMAGE(800, 600, 32) '                                 screen the user sees

DIM Map%(40, 30) '                                               structure to hold the map data inmemory
DIM SHARED mx%, my%, mbl%, mbr% '                                structure for mouse x y left and right buttons
DIM Tints&(8) '                                                  structure for the 8 colors numbers

Tiles1& = _LOADIMAGE("RogueCraftExp1.bmp", 32) '                 hidden window of our tiles 8 tiles@(16 x 16)

IF Tiles1& <> 0 THEN '                                           error trap for unfound file
  PRINT "Graphic file loaded"; Tiles1&
ELSE
  PRINT "Unable to locate graphic file RougeCraftExp1.bmp"
  _DELAY 3
  END
END IF


Grey& = _RGB32(192, 192, 192)
Pink& = _RGB32(255, 105, 180)
LWhite& = _RGB32(255, 250, 250)

GOSUB Box
GOSUB Grid
GOSUB ShowTiles

TileNum = 0: Savfilename$ = "VSGE-Data.txt": CanSave = 0
_MOUSESHOW


DO
  _LIMIT 30
  GOSUB MicePoll
  GOSUB FindPlace
  IF _KEYDOWN(115) THEN GOSUB PrepareSave 'S button to save
  IF Region = 2 THEN GOSUB InRegion2
  IF Region = 1 THEN GOSUB InRegion1
  LOCATE 34, 1: PRINT "Tile", "Region="; Region, "TileNum="; TileNum, cellx, celly
  LOCATE 35, 1: PRINT "MiceX="; mx%, "MiceY="; my%; "        "
  _DISPLAY
LOOP UNTIL _KEYDOWN(27)

SLEEP
SYSTEM

'------------------------------------- GOSUBS ------------------------------------
Box:
LINE (7, 7)-(649, 489), Grey&, BF '         main window
LINE (663, 7)-(680, 136), Grey&, BF '       tile selection window
LINE (698, 6)-(739, 39), Grey&, BF '        mini map
RETURN

Grid:
FOR x = 8 TO 647 STEP 16 '                  main paste window grid
  FOR y = 8 TO 487 STEP 16
    LINE (x, y)-(x + 15, y + 15), Pink&, B
  NEXT y
NEXT x
x = 664: y = 8
FOR Tile = 0 TO 7 '                         tile selection window grid
  LINE (x, y)-(x + 15, y + 15), Pink&, B
  y = y + 16
NEXT Tile
RETURN

ShowTiles:
x1 = 664: y1 = 8: x2 = 0: y2 = 0 '           show tiles zero to seven = 8 tiles total
FOR Tile = 0 TO 7 '
  LINE (x1, y1)-(x1 + 15, y1 + 15), Pink&, B
  _PUTIMAGE (x1, y1)-(x1 + 15, y1 + 15), Tiles1&, 0, (x2, y2)-(x2 + 15, y2 + 15)
  y1 = y1 + 16
  x2 = x2 + 16
NEXT Tile
GOSUB MakeColors '                           'probe the color of the tiles + save to array
RETURN

FindPlace:
Region = 0
IF mx% >= 8 THEN
  IF mx% <= 647 THEN
    IF my% >= 8 THEN
      IF my% <= 487 THEN
        Region = 1 'main draw window
      END IF
    END IF
  END IF
END IF

IF mx% >= 664 THEN
  IF mx% <= 679 THEN
    IF my% >= 8 THEN
      IF my% <= 135 THEN
        Region = 2 'main tile window
      END IF
    END IF
  END IF
END IF
RETURN

MicePoll:
DO WHILE _MOUSEINPUT
  mx% = _MOUSEX: my% = _MOUSEY: mbl% = _MOUSEBUTTON(1): mbr% = _MOUSEBUTTON(2)
LOOP
RETURN

InRegion1:
micex = mx% - 8: MiceY = my% - 8 '    correct the offset from the left of the screen
cellx = micex \ 16 '                  divide by 16 to get cell
celly = MiceY \ 16 '                  divide by 16 to get cell
pastex1 = (cellx * 16) + 8: pastex2 = pastex1 + 15: pastey1 = (celly * 16) + 8: pastey2 = pastey1 + 15 'paste refers to place to paste
IF mbl% = -1 THEN
  _PUTIMAGE (pastex1, pastey1)-(pastex2, pastey2), Tiles1&, 0, (copyx1, copyy1)-(copyx2, copyy2)
  Map%(cellx, celly) = TileNum '      assign tile number
  GOSUB ShowMiniDim '                 update mini window
END IF
RETURN

InRegion2:
IF mbl% = -1 THEN
  SELECT CASE my%
    CASE 8 TO 23
      TileNum = 0
      copyx1 = 0: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15 'the source image co-ordinates for putimage
    CASE 24 TO 39
      TileNum = 1
      copyx1 = 16: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15
    CASE 40 TO 55
      TileNum = 2
      copyx1 = 32: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15
    CASE 56 TO 71
      TileNum = 3
      copyx1 = 48: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15
    CASE 72 TO 87
      TileNum = 4
      copyx1 = 64: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15
    CASE 88 TO 103
      TileNum = 5
      copyx1 = 80: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15
    CASE 103 TO 119
      TileNum = 6
      copyx1 = 96: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15
    CASE 120 TO 135
      TileNum = 7
      copyx1 = 112: copyy1 = 0: copyx2 = copyx1 + 15: copyy2 = copyy1 + 15
  END SELECT
  _PUTIMAGE (10, 500)-(26, 516), Tiles1&, 0, (copyx1, copyy1)-(copyx2, copyy2)
END IF
RETURN

ShowMiniDim:
x = 699: y = 7
FOR across = 0 TO 29 '39
  FOR down = 0 TO 39 '29
    z = Map%(down, across) '                             ->across ,down
    PSET (699 + down, 8 + across), Tints&(z) '           ->across ,down
    'LOCATE across + 1, down + 1: PRINT LTRIM$(STR$(z)) ' ->across ,down
  NEXT down
NEXT across
CanSave = 1
RETURN

MakeColors:
count = 0
FOR T = 16 TO 130 STEP 16
  Hue& = POINT(675, T)
  Tints&(count) = Hue&
  count = count + 1
NEXT T
RETURN

PrepareSave:
'convert onscreen to DATA statements
temp$ = "": LOCATE 20, 20: PRINT "SAVING FILE": _DISPLAY: _DELAY 1
FOR across = 0 TO 29 '39
  FOR down = 0 TO 39 '29
    z = Map%(down, across)
    z$ = STR$(z): z$ = LTRIM$(z$)
    temp$ = temp$ + z$ + ","
  NEXT down
  GOSUB SavTxt
  temp$ = ""
NEXT across
LOCATE 20, 10: PRINT "FILE HAS BEEN SAVED AS VSGE-Data.txt": _DISPLAY: _DELAY 1
SYSTEM
RETURN

SavTxt:
z = LEN(temp$)
temp$ = LEFT$(temp$, z - 1)
temp$ = "DATA " + temp$
OPEN Savfilename$ FOR APPEND AS #1
PRINT #1, temp$
CLOSE #1
RETURN