CS2D Steuerung

Übersicht BlitzBasic Allgemein

Gehe zu Seite Zurück  1, 2

Neue Antwort erstellen

Hubsi

BeitragSo, Aug 29, 2004 20:21
Antworten mit Zitat
Benutzer-Profile anzeigen
Zeile? Welches Array? Glaskugel?
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...
 

Apocalyptic

BeitragMo, Aug 30, 2004 12:19
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich habe deinen Code grade mal etwas "kastriert", und wenn ich den Winkel durch drei teile geht alles...

Code: [AUSKLAPPEN]
Graphics 640, 480, 16, 1

Dim player(119, 3)
Dim map1(100, 100)

player(0,0)=CreateImage(10,10)
SetBuffer ImageBuffer(player(0,0))
Rect 0,0,10,10

map=CreateImage(100,100)
SetBuffer ImageBuffer(map)
Color 0,255,0
Rect 0,0,100,100
Color 255,0,0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Type spieler
Field Drehung
End Type
Global spieler.spieler= New spieler

SetBuffer BackBuffer()

MoveMouse 310, 210

For w = 1 To 119
player(w,0)=CopyImage(player(0,0))
RotateImage(player(w,0),w*3)
Next

For x1 = 0 To 100
For y1 = 0 To 100
map1(x1, y1) = 1
Next
Next

While Not KeyHit(1)
scrollx=280
scrolly=210

x_kor = MouseX()
y_kor = MouseY()
t1$ = "X:"
t2$ = " Y:"
t3$ = t1$ + x_kor
t4$ = t2$ + y_kor
t5$ = t3$ + t4$
spieler\drehung=(ATan2(y_kor-scrolly,x_kor-scrollx)+270) Mod 360 ; Winkel berechnen
If spieler\drehung>357 Then spieler\drehung=357

Cls

For x = 0 To 100
For y = 0 To 100
If map1(x,y) = 1 Then DrawImage map, x*100+viewx, y*100+viewy
Next
Next


If KeyDown(17) Then
viewy = viewy +1
If MilliSecs() > t_player + 100 Then
t_player=MilliSecs()
f_player=(f_player + 1) Mod 3
EndIf
EndIf
If KeyDown(31)Then
viewy = viewy -1
If MilliSecs() > t_player + 100 Then
t_player=MilliSecs()
f_player=(f_player + 1) Mod 3
EndIf
EndIf

If KeyDown(30)Then viewx = viewx +1
If KeyDown(32)Then viewx = viewx -1

DrawImage player(spieler\drehung/3,0), scrollx, scrolly
Text 20, 20, t5$

Plot x_kor,y_kor

Flip
Wend

End


PS: Um deiner (wahrscheinlich) nächsten Frage vorzubeugen: Sieh mal nach den Befehlen Midhandle/HandleImage und TFormFilter Wink

Und überdenke am besten noch mal deine "Tileengine", wenn deine Tiles schon 100x100 groß sind, muss man die ja nicht gleich für jeden Frame 10201 mal zeichnen Wink
Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]
 

Stinktier

BeitragMo, Aug 30, 2004 18:59
Antworten mit Zitat
Benutzer-Profile anzeigen
Fühl dich geküsst Very Happy
 

hot-bit

Gast

BeitragMo, Aug 30, 2004 19:31
Antworten mit Zitat
Igittigitt....

von einem Skunk !? Wink

Toni
 

OJay

BeitragMo, Aug 30, 2004 19:36
Antworten mit Zitat
Benutzer-Profile anzeigen
hot-bit hat Folgendes geschrieben:
Igittigitt....

von einem Skunk !? Wink

Toni


skunks sind sehr reinliche tiere! nur wenn sie sich bedrängt fühlen stinken sie...doch das ist absicht! Smile

[sorry für ot]
 

Stinktier

BeitragMo, Aug 30, 2004 19:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich bin ja scjöießlich ein Skunksaver ^_^

DA

BeitragMo, Aug 30, 2004 20:49
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich hab jetzt kein Lust zum suchen aber ich kann dir sagen dass dat auf gar kein fall funktonieren wird!

Wie soll er Grafiken Laden wen keine dar sind? Very Happy

Zitat:

DrawImage player(spieler\drehung/3...
Deutscher Blitz Basic Chat
 

David

BeitragMo, Aug 30, 2004 21:22
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi!

@DarkAngel: Laber kein Sch***, du hast den Quellcode anscheinend nicht verstanden!

Code: [AUSKLAPPEN]

player(0,0)=CreateImage(10,10)


Lesen vor schreiben!

grüße
http://bl4ckd0g.funpic.de

DA

BeitragDi, Aug 31, 2004 13:35
Antworten mit Zitat
Benutzer-Profile anzeigen
Oh shit sorry!
Deutscher Blitz Basic Chat
 

Jaramia

BeitragSo, Sep 05, 2004 14:47
Antworten mit Zitat
Benutzer-Profile anzeigen
edit
alu.art-FX.org

Gehe zu Seite Zurück  1, 2

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group