Isogames ?? Hier das Spielfeld !

[Schranz0r]

Hi leute

Wer eine Isomap braucht, den kann ich hier abhilfe schaffen !
Screenshot:


Hier noch die PNG zum Download: http://www.styleattax.de/boden.png

oder so (save as PNG):

Code: (glbasic) [Select]

// --------------------------------- //
// Project: isogame
// Start: Thursday, April 05, 2007
// IDE Version: 4.142

LOADSPRITE "boden.png",1  // Load Isosprite

DIM tile[20][20] // Set Array

WHILE TRUE

//-----Set Locals----------
w=72     // Tile width
h=36     // Tile hight
w2=w/2   // Half Tile width
h2=h/2   // Half Tile hight
//-------------------------

FOR x = 0 TO 19
FOR y = 0 TO 19

xpos = w2*(x-y)-w2  // calculate xpos
ypos = h2*(x+y)     // calculate ypos

SPRITE 1,xpos-ScrollX,ypos-ScrollY    // Draw sprite

NEXT
NEXT

//--------Scroll-----------------------

IF KEY(200) THEN ScrollY = ScrollY -3
IF KEY(208) THEN ScrollY = ScrollY +3
IF KEY(203) THEN ScrollX = ScrollX -3
IF KEY(205) THEN ScrollX = ScrollX +3

//---------------------------------------

SHOWSCREEN
WEND
ENDUPDATE:

Häuser mit RND auf die map zeichen.

Hier der Download: http://www.styleattax.de/Isogame.rar

Hier der Screen :


Der Screenshot ist nicht schön, aber dafür selten

[Dakker]

Nette idee ^^.

bin noch ziemlich neu was GLBasic angeht. Hab mir das Programm trotzdem mal vorgenommen und ein wenig modifiziert. Man kann jetzt Häuser mit der linken Maustaste platzieren und mit rechts wieder löschen. Der Cod ist ziemlich unsauber und noch nicht ganz kommentiert, aber es funktioniert. Wenn ich nen Filehoster finde, lade ich das ganze Spiel mal hoch.

Code: (glbasic) [Select]

// --------------------------------- //
// Project: IsoGameMod
// Start: Wednesday, January 30, 2008
// IDE Version: 5.148

LOADBMP "sprites/bg.bmp"
LOADSPRITE "sprites/cursor.png", 10
LOADSPRITE "sprites/cursorbody.png", 11
LOADSPRITE "sprites/boden.png", 1
LOADSPRITE "sprites/haus.png", 2
LOADSPRITE "sprites/bodench.png", 3
LOADSPRITE "sprites/hausch.png", 4


mousedown = FALSE

DIM map[20][20]

WHILE TRUE
//-----Set Locals----------
w=72     // Tile width
h=36     // Tile hight
w2=w/2   // Half Tile width
h2=h/2   // Half Tile hight
housedif = 65 - h
//-------------------------

//-----Draw Map--------------------------
FOR x = 0 TO 19
FOR y = 0 TO 19
tileposX = w2*(x-y)-w2
tileposY = h2*(x+y)
realposX = tileposX-ScrollX
realposY = tileposY-ScrollY

choice = SPRCOLL (10, mx, my, 1, realposX, realposY)

//----- init mouseklick------------------------------
MOUSESTATE mx, my, mb1, mb2

    IF mb1=FALSE THEN lc = FALSE
    IF mb2=FALSE THEN rc = FALSE

    IF lc THEN mb1 = FALSE
    IF rc THEN mb2 = FALSE

    IF mb1 THEN lc = TRUE
    IF mb2 THEN rc = TRUE

//---------------------------------------------------


IF choice = TRUE AND allready = 0 AND lc = TRUE  AND rc = FALSE //----------
DRAWSPRITE 4, realposX-2, realposY-2-housedif
map[x][y] = 1
ELSEIF choice = TRUE AND allready = 0 AND rc = TRUE AND lc = FALSE
DRAWSPRITE 3, realposX-2, realposY-2
allready = 1
map[x][y] = 0
ELSEIF choice = TRUE AND allready = 0 AND lc = FALSE AND rc = FALSE
IF map[x][y] = 1
DRAWSPRITE 4, realposX-5, realposY-5-housedif
allready = 1
ELSE
DRAWSPRITE 3, realposX-5, realposY-5
allready = 1
ENDIF
ELSEIF map[x][y] = 1
DRAWSPRITE 2, realposX, realposY-housedif
ELSE
DRAWSPRITE 1, realposX, realposY
ENDIF
NEXT
NEXT

allready = 0
//---------------------------------------


//--------Scroll-----------------------

IF KEY(200) THEN ScrollY = ScrollY -3
IF KEY(208) THEN ScrollY = ScrollY +3
IF KEY(203) THEN ScrollX = ScrollX -3
IF KEY(205) THEN ScrollX = ScrollX +3

//---------------------------------------

DRAWSPRITE 10, mx, my
DRAWSPRITE 11, mx, my



SHOWSCREEN
WEND\\EDIT:


So hier die files:
http://www.datenschleuder.eu/get_d66b5a43e0dd9ff1469e4a20c3f6f4f1.html

[Schranz0r]

Sollte ja auch nur ein Basic sein, damit Leute die Games in Iso machen können
Was jeder andere daraus macht ist mir gleich....
Aber schön das du den alten Code wiederbelebt hast