CS2D Steuerung
Übersicht

![]() |
Hubsi |
![]() Antworten mit Zitat ![]() |
---|---|---|
Zeile? Welches Array? Glaskugel? | ||
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn... |
Apocalyptic |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
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 ![]() 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 ![]() |
||
Suum cuique
[ www.ffs-net.de.vu ] [ Raycaster ] |
Stinktier |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Fühl dich geküsst ![]() |
||
hot-bitGast |
![]() Antworten mit Zitat |
|
---|---|---|
Igittigitt....
von einem Skunk !? ![]() Toni |
||
OJay |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
hot-bit hat Folgendes geschrieben: Igittigitt....
von einem Skunk !? ![]() Toni skunks sind sehr reinliche tiere! nur wenn sie sich bedrängt fühlen stinken sie...doch das ist absicht! ![]() [sorry für ot] |
||
Stinktier |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Ich bin ja scjöießlich ein Skunksaver ^_^ | ||
![]() |
DA |
![]() Antworten mit Zitat ![]() |
---|---|---|
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? ![]() Zitat: DrawImage player(spieler\drehung/3... |
||
Deutscher Blitz Basic Chat |
David |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
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 |
![]() Antworten mit Zitat ![]() |
---|---|---|
Oh shit sorry! | ||
Deutscher Blitz Basic Chat |
Jaramia |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
edit | ||
alu.art-FX.org |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group