TheGameCreators - CodeBase - Basic Matrix Editor

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 2nd May 2004 14:45

Modified: 1st Jan 1970 01:00

Author: Pheonixx

Summary

This is a basic shell for editing a 256x256 matrix

Full Description

Allows for Basic Tile and Height Manipulation, Camera Rotates around target and zooms for visual, this shell should provide you with the fundamentals you'll need to get a basic matrix editing program working for your games. It is set up for a 2x2 matrix texture, so adapt it accordingly.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM ***

REM Title : Matrix Editing Function

REM Created : Sunday May 2, 2004

REM Author : Pheonixx

REM For : The DBP Community

REM ***

REM PREPARE DISPLAY

SET DISPLAY MODE 800,600,32

COLOR BACKDROP RGB(0,0,0)

AUTOCAM OFF

SET CAMERA RANGE 0, 1, 25000

SYNC ON

REM LOAD MEDIA

LOAD IMAGE "Simple.PNG", 1

REM MATRIX OF 256 - 32(10point) Sized Tiles

MAKE MATRIX 1, 81920, 81920, 256, 256

PREPARE MATRIX TEXTURE 1, 1, 2, 2

SET MATRIX 1, 0, 1, 0, 1, 1, 1, 1

RANDOMIZE MATRIX 1, 25

UPDATE MATRIX 1

REM CREATE MOUSE POINTER

TYPE XZPOINTER

XLOC AS INTEGER

ZLOC AS INTEGER

ENDTYPE

TARGET AS XZPOINTER

MAKE OBJECT SPHERE 1, 32, 2, 4

COLOR OBJECT 1, RGB(256,256,256)

MAKE OBJECT SPHERE 2, 16, 2, 4

COLOR OBJECT 2, RGB(128,256,128)

POSITION MOUSE 0,0

HIDE MOUSE

REM DEFAULT STARTING VARIABLES

TC = 0

ZOOM = 1000

REM USER INPUT

A$ = UPPER$(INKEY$())

SELECT A$

CASE "["

INC ZOOM, 25

ENDCASE

CASE "]"

DEC ZOOM, 25

ENDCASE

CASE ","

INC TC, 2

ENDCASE

CASE "<"

INC TC, 2

ENDCASE

CASE "."

DEC TC, 2

ENDCASE

CASE ">"

DEC TC, 2

ENDCASE

CASE DEFAULT

REM DEFAULT INPUT VARIABLES

ENDCASE

ENDSELECT

INC TARGET.XLOC, MOUSEMOVEX()

DEC TARGET.ZLOC, MOUSEMOVEY()

IF LEFTKEY() = 1 THEN DEC TARGET.XLOC, 320

IF RIGHTKEY() = 1 THEN INC TARGET.XLOC, 320

IF UPKEY() = 1 THEN INC TARGET.ZLOC, 320

IF DOWNKEY() = 1 THEN DEC TARGET.ZLOC, 320

REM VARIABLE LIMITERS

IF TARGET.XLOC < 0 THEN TARGET.XLOC = 0

IF TARGET.XLOC > 81920 THEN TARGET.XLOC = 81920

IF TARGET.ZLOC < 0 THEN TARGET.ZLOC = 0

IF TARGET.ZLOC > 81920 THEN TARGET.ZLOC = 81920

REM RELATIVE VARIABLES

MATRIXPOINTX = TARGET.XLOC / 320

MATRIXPOINTZ = TARGET.ZLOC / 320

MATRIXPOINTY = GET MATRIX HEIGHT(1,MATRIXPOINTX,MATRIXPOINTZ)

REM USER INPUT REACTIONS

IF MOUSECLICK() = 1

HEIGHT = MATRIXPOINTY

REM USER INPUT

A$ = UPPER$(INKEY$())

SELECT A$

CASE "1"

SET MATRIX TILE 1, MATRIXPOINTX, MATRIXPOINTZ, 1

UPDATE MATRIX 1

ENDCASE

CASE "2"

SET MATRIX TILE 1, MATRIXPOINTX, MATRIXPOINTZ, 2

UPDATE MATRIX 1

ENDCASE

CASE "3"

SET MATRIX TILE 1, MATRIXPOINTX, MATRIXPOINTZ, 3

UPDATE MATRIX 1

ENDCASE

CASE "4"

SET MATRIX TILE 1, MATRIXPOINTX, MATRIXPOINTZ, 4

UPDATE MATRIX 1

ENDCASE

CASE "A"

IF SHIFTKEY() = 1

REM ABSOLUTE

SET MATRIX HEIGHT 1, MATRIXPOINTX, MATRIXPOINTZ, HEIGHT

SET MATRIX HEIGHT 1, MATRIXPOINTX+1, MATRIXPOINTZ, HEIGHT

SET MATRIX HEIGHT 1, MATRIXPOINTX, MATRIXPOINTZ+1, HEIGHT

SET MATRIX HEIGHT 1, MATRIXPOINTX+1, MATRIXPOINTZ+1, HEIGHT

ELSE

REM AVERAGE

SET MATRIX HEIGHT 1, MATRIXPOINTX, MATRIXPOINTZ, (HEIGHT+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ)+GET MATRIX HEIGHT(1,MATRIXPOINTX, MATRIXPOINTZ+1)+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ+1))/4

SET MATRIX HEIGHT 1, MATRIXPOINTX+1, MATRIXPOINTZ, (HEIGHT+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ)+GET MATRIX HEIGHT(1,MATRIXPOINTX, MATRIXPOINTZ+1)+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ+1))/4

SET MATRIX HEIGHT 1, MATRIXPOINTX, MATRIXPOINTZ+1, (HEIGHT+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ)+GET MATRIX HEIGHT(1,MATRIXPOINTX, MATRIXPOINTZ+1)+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ+1))/4

SET MATRIX HEIGHT 1, MATRIXPOINTX+1, MATRIXPOINTZ+1, (HEIGHT+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ)+GET MATRIX HEIGHT(1,MATRIXPOINTX, MATRIXPOINTZ+1)+GET MATRIX HEIGHT(1,MATRIXPOINTX+1, MATRIXPOINTZ+1))/4

ENDIF

UPDATE MATRIX 1

ENDCASE

CASE "+"

IF SHIFTKEY() = 1 THEN SHIFT = 9

INC HEIGHT, 1+SHIFT

SET MATRIX HEIGHT 1, MATRIXPOINTX, MATRIXPOINTZ, HEIGHT

UPDATE MATRIX 1

ENDCASE

CASE "-"

IF SHIFTKEY() = 1 THEN SHIFT = 9

DEC HEIGHT, 1+SHIFT

SET MATRIX HEIGHT 1, MATRIXPOINTX, MATRIXPOINTZ, HEIGHT

UPDATE MATRIX 1

ENDCASE

CASE DEFAULT

REM DEFAULT INPUT VARIABLES

SHIFT = 0

UPDATE MATRIX 1

ENDCASE

ENDSELECT

REM GUI

TEXT 300,100,"HEIGHT"+STR$(HEIGHT)

REM EXIT CONDITION

IF MOUSECLICK() = 0 THEN EXIT

SYNC

LOOP

ENDIF

REM GUI

REM TARGETS

POSITION OBJECT 1, TARGET.XLOC,MATRIXPOINTY,TARGET.ZLOC

POSITION OBJECT 2, MATRIXPOINTX*320,MATRIXPOINTY,MATRIXPOINTZ*320

REM CAMERA

SET CAMERA TO FOLLOW TARGET.XLOC,MATRIXPOINTY,TARGET.ZLOC,TC,ZOOM,250,1,0

REM DISPLAY USER DATA

TEXT 0,0,STR$(MATRIXPOINTX)

TEXT 0,20,STR$(MATRIXPOINTZ)

TEXT 0,40,STR$(TARGET.XLOC)

TEXT 0,60,STR$(TARGET.ZLOC)

SYNC

LOOP

END

Download

Please login to download

Comments

No comments yet.

Author Name:	Pheonixx
CodeBase Entries:	1

CodeBase - Basic Matrix Editor

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments