Hat mal jemand die genaue Artikelnummer bei Conrad, zu der Schutzfolie? Passt die dann auch schon aufs Display oder muss sie noch zugeschnitten werden?
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 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?Quote from: Schranz0rHatte ich auch mal gemacht, du musst jedes Tile durchgehn das angrenzt.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.
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.
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():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?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???
// --------------------------------- //
// 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: