Code: Alles auswählen
For t=0 To #MapY
For n=0 To #MapX
Map(n,t)\typ = Random(1)
Next
NextCode: Alles auswählen
#MapX=50
#MapY=50
InitSprite()
InitSprite3D()
InitMouse()
InitKeyboard()
Structure Map
typ.b
EndStructure
Dim Map.Map(#MapX,#MapY)
OpenScreen(1024,768,32,"Map-Test")
CreateSprite(1,50,50,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(1))
Box(0,0,50,50,0)
Box(1,1,48,48,$00FF00)
StopDrawing()
CreateSprite3D(1,1)
CreateSprite(2,50,50,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(2))
Box(0,0,50,50,0)
Box(1,1,48,48,$0000FF)
StopDrawing()
CreateSprite3D(2,2)
CreateSprite(3,10,20)
StartDrawing(SpriteOutput(3))
Line(0,0,0,20,$FF0000)
Line(0,0,10,20,$FF0000)
StopDrawing()
viewX=-100
viewY=-100
Zoom.f=1
For a=0 To #MapX
For b=0 To #MapX
Map(a,b)\Typ=Random(1)
Next b
Next a
Repeat
If IsScreenActive()
ClearScreen(0):ExamineKeyboard():ExamineMouse()
If KeyboardReleased(#PB_Key_Escape)
End
EndIf
If KeyboardPushed(#PB_Key_Left)
viewX-5*Zoom
EndIf
If KeyboardPushed(#PB_Key_Right)
viewX+5*Zoom
EndIf
If KeyboardPushed(#PB_Key_Up)
viewY-5*Zoom
EndIf
If KeyboardPushed(#PB_Key_Down)
viewY+5*Zoom
EndIf
Start3D()
If KeyboardReleased(#PB_Key_Y)
rotate-1
RotateSprite3D(1,-90,1)
If rotate<0
rotate+4
EndIf
EndIf
If KeyboardReleased(#PB_Key_X)
rotate+1
RotateSprite3D(1,90,1)
If rotate>3
rotate-4
EndIf
EndIf
If MouseWheel()
If MouseWheel()<0
Zoom*2
Else
Zoom/2
EndIf
If Zoom<1
Zoom=1
ElseIf Zoom>16
Zoom=16
EndIf
ZoomSprite3D(1,50/Zoom,50/Zoom)
ZoomSprite3D(2,50/Zoom,50/Zoom)
EndIf
MouseMapX=MouseX()*Zoom+viewX
MouseMapY=MouseY()*Zoom+viewY
If rotate=1
MouseMapX=(#MapX+1)*50-MouseMapX
ElseIf rotate=2
MouseMapX=(#MapX+1)*50-MouseMapX
MouseMapY=(#MapY+1)*50-MouseMapY
ElseIf rotate=3
MouseMapY=(#MapY+1)*50-MouseMapY
EndIf
If MouseMapX>0 And MouseMapX<#MapX*50+49 And MouseMapY>0 And MouseMapY<#MapY*50+49
If MouseButton(2)
Map(MouseMapX/50,MouseMapY/50)\Typ=1
ElseIf MouseButton(1)
Map(MouseMapX/50,MouseMapY/50)\Typ=0
EndIf
EndIf
For a=0 To #MapX
For b=0 To #MapY
If rotate=0
c=Map(a,b)\Typ
ElseIf rotate=1
c=Map(#MapX-a,b)\Typ
ElseIf rotate=2
c=Map(#MapX-a,#MapY-b)\Typ
ElseIf rotate=3
c=Map(a,#MapX-b)\Typ
EndIf
Select c
Case 0
DisplaySprite3D(1,(a*50-viewX)/Zoom,(b*50-viewY)/Zoom)
Case 1
DisplaySprite3D(2,(a*50-viewX)/Zoom,(b*50-viewY)/Zoom)
EndSelect
Next b
Next a
Stop3D()
StartDrawing(ScreenOutput())
DrawText(10,10,Str(mouseMapX)+"|"+Str(MouseMapY))
StopDrawing()
DisplayTransparentSprite(3,MouseX(),MouseY())
EndIf
FlipBuffers()
ForEver
) ist dann ein Iso-Ansicht der Karte.wohl leider richtig. das ist dann ein anderes Prinzip, zumindest was koordinatenberechnungen angeht...dann will ich nicht auf einmal erleben das ich dafür komplett alles hätte anders machen müssen.
Mit Hintergrundkrafik meine ich ja im Grunde die unterste Ebene der KArte.Kaeru Gaman hat geschrieben: > einfach eine Hintergrundgrafik die ich jeden Aufruf (z.b. einige male in der Sekunde) die ich neu kopieren muß und daruaf dann die Elemente?
wenn du eine hintergrundgrafik brauchst?
aber oft wählt man den kartenausschnitt so groß, dass er den Screen komplett ausfüllt,
man braucht also keinen Hintergrund dahinter eigentlich nichtmal ein Clear.
oder man wählt eine feste farbe für den hintersten Hintergrund, die man dann direkt bei ClearScreen angibt.
Das habe ich "befürchtet". Alles "handarbeit" und keine Routine die einem das abnimmt. Na ich fang dann erstmal klein an ohne zu drehen und später... eins nach dem anderen. Wir für den ersten Versuch ja nur wenig Code da ist es egal den komplett neu zu machen wenn es notwendig wird.> Aber wenn ich dir Karte z.B. um 45% drehen will damit sie auf der Kante steht, wie könnte ich dann die Positionen usw. in erfahrung bringen?
ja, da wird die Mathematik dahinter um einiges komplizierter, aber machbar ist es.
am praktischsten wäre es, die koordinaten direkt im moment der darstellung zu vergleichen,
da man ja für die darstellung ausrechnen muss, wo man momentan grad das tile und das objekt hin Displayt,
da kann man auch mit den Mauskoordinaten vergleichen und die schleifenposition rückpuffern.
Sag ich doch. Diese Ansicht nennt man ISO-Ansicht oder Isometrische welche... Die ist ein wenig aufwendiger zu programmieren als die klassischeToshy hat geschrieben:Der sinn wäre gewesen, weil in dem Originalbrowserspiel die Welt auch in einem 45% Winkel steht. Ich wollte die Ansicht so besser vergleichbar machen.
