Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Messages - Dakker

#1
Hat mal jemand die genaue Artikelnummer bei Conrad, zu der Schutzfolie? Passt die dann auch schon aufs Display oder muss sie noch zugeschnitten werden?
#2
Gibt noch eine wesentliche Änderung. Der F200 ist nicht mehr Netzwerkfähig!
#3
lol, mit nem Bissl Nachdenken, wär ich vllt auch drauf gekommen ;-). Danke für die Hilfe!!!
#4
Hi, ich wollte eine Lautstärkeregelung programmieren. Der Code dazu sieht so aus:

Code (glbasic) Select
IF KEY(209) AND vol > 0
DEC vol, 0.05
SLEEP 150
ENDIF
IF KEY(201) AND vol < 1
INC vol, 0.05
SLEEP 150
ENDIF
Funktioniert so eigentlich auch, aber ab 0.15 bekomme ich komische Werte, wie z. B. "1.e-001". Woran liegt das?

Auf dem GP2X funktioniert es bis 0.05.
#5
Quote from: Schranz0rHatte ich auch mal gemacht, du musst jedes Tile durchgehn das angrenzt.
Sprich grenzt ein Tile an, an deiner aktiven Farbe musst du dieses auch auf oben unten links und rechts prüfen ob da noch was da ist...
Ist garnet mal so einfach....

Lass mich lügen, ich glaub ich hatte das mit Types gemacht.
In die Richtung hab ichs auch schon probiert, aber irgendwie klappt das nicht. Ich habs bestimmt schon zehn mal neu programmiert und immer was neues probiert. Der fehler ist dass er ab der 2 bzw 3 wechsel von Horizontal auf Vertikl bzw umgekehrt, einfach aufhört. Ich prüf das ganze übers Array.

Die steine sind als Tileset mit 6 verschiedenen Tiles gespeichert und werden als Anim geladen.
Das Feld erzeuge ich mit folgender Schleife:

Code (glbasic) Select
FOR x = 0 TO 9
FOR y = 0 TO 12
Feld[x][y] = RND(2)   //Feld generieren RND(anzahl der Farben - 1)
NEXT
NEXT
Später wird es dann mit drawanim gezeichnet. Zum überprüfen der angrenzenden Blöcke habe ich die funktinon chkumg():

Code (glbasic) Select
FUNCTION chckumg:
// Diese Variablen sind als LOCAL definiert:
// numwor$
FOR dlx = 0 TO 9
IF Group[dlx][y] = 1
FOR dly = y TO 12
IF Feld[dlx][dly] = Feld[x][y]
Group[dlx][dly] = 1
ELSE
BREAK
ENDIF
NEXT
ENDIF
NEXT

FOR dlx = 0 TO 9
IF Group[dlx][y] = 1
FOR dly = y TO 0 STEP -1
IF Feld[dlx][dly] = Feld[x][y]
Group[dlx][dly] = 1
ELSE
BREAK
ENDIF
NEXT
ENDIF
NEXT

FOR dly = 0 TO 12
IF Group[x][dly] = 1
FOR dlx = x TO 9
IF Feld[dlx][dly] = Feld[x][y]
Group[dlx][dly] = 1
ELSE
BREAK
ENDIF
NEXT
ENDIF
NEXT

FOR dly = 0 TO 12
IF Group[x][dly] = 1
FOR dlx = x TO 0 STEP -1
IF Feld[dlx][dly] = Feld[x][y]
Group[dlx][dly] = 1
ELSE
BREAK
ENDIF
NEXT
ENDIF
NEXT



ENDFUNCTION // CHCKUMG
Wie genau hast du es mit den Types gelöst?


//EDIT:
Ok, hat sich erledigt. Hab etz nach 2 Wochen endlich die Lösung. Bin da viel zu kompliziert rangegangen, is eigentlich ganz einfach! ^^ Danke für die Hilfe!
#6
Hi, hab ein kleines Problem mit mienem Spiel. Ich hab ein Spielfeld, das aus 10x13 Blöcken besteht, die verschiedene Farben haben. Das ganze ist in einem 2 dimensionalem Array gespeichert. Ich möchte nun, wenn ich mit dem Mauzeiger über einen Block fahre, ermitteln welche Blöcke an disen Block angrenzen, und welche Blöcke wiederum an diese Blöcke angrenzen(horizontal und vertikal), so dass dann eine Blockgruppe entsteht, die wiederum in einem eigenen Array gspeichert wird.

hier mal ein Bild:





Wie man sieht, werden nicht alle Blöcke erkannt, die zu der Gruppe gehören. Hat jemand eine Idee, wie ich das lösen könnte?
#8
THX, jetz gehts!!!^^
#9
Hi, beim starten von GLBasic, also vom Editor, bekomme ich folgende Fehlermeldung:

Quote"Diese Anwendung konnte nicht gestartet werden, weil die Anwendungskonfiguration nicht korrekt ist."
Habs auch schon neuinstalliert, hat aber nich geholfen. Woran liegt das und was kann ich dagegen tun???
#10
Bentutzt du ein Tileset in einer einzelnen Datei, aus dem du dann die einzelnen Tiles ausschneidest??? Gibts da irgendwo ein tutorial dazu?
#11
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