rect in 8 richtungen bewegen ?

Übersicht

BlitzBasic

Allgemein

	cyby Betreff: rect in 8 richtungen bewegen ?	Do, Apr 22, 2004 18:31 Antworten mit Zitat
hi, ich schaffe es nicht ein rect schräg zu bewegen, wenn man die pfeiltaste hoch und links drückt sollte man sich schräg bewegen, doch das geht nicht ! Zitat: Graphics 640,480,16,2 SetBuffer BackBuffer() x = 100 y = 100 Repeat Cls If KeyDown(200) y = y - 5 ElseIf KeyDown(203) x = x - 5 ElseIf KeyDown(205) x = x + 5 ElseIf KeyDown(208) y = y + 5 ElseIf KeyDown(200) And KeyDown(203) y = y - 5 x = x - 5 EndIf Color 0,0,255 Rect x,y,10,10 Flip Until KeyHit(1) End bitte nicht so vorschlagen Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 SetBuffer BackBuffer() x = 100 y = 100 Repeat Cls If KeyDown(200) y = y - 5 If KeyDown(203) x = x - 5 If KeyDown(205) x = x + 5 If KeyDown(208) y = y + 5 Color 0,0,255 Rect x,y,10,10 Flip Until KeyHit(1) End denn das ist nur eine Vereinfachung meines problems ... THX mfg cyby

cyby

Betreff: rect in 8 richtungen bewegen ?

Do, Apr 22, 2004 18:31
Antworten mit Zitat

hi,

ich schaffe es nicht ein rect schräg zu bewegen, wenn man die pfeiltaste hoch und links drückt sollte man sich schräg bewegen, doch das geht nicht !
Zitat:

Graphics 640,480,16,2
SetBuffer BackBuffer()

x = 100
y = 100

Repeat
Cls

If KeyDown(200)
y = y - 5
ElseIf KeyDown(203)
x = x - 5
ElseIf KeyDown(205)
x = x + 5
ElseIf KeyDown(208)
y = y + 5
ElseIf KeyDown(200) And KeyDown(203)
y = y - 5
x = x - 5
EndIf

Color 0,0,255
Rect x,y,10,10

Flip
Until KeyHit(1)
End

bitte nicht so vorschlagen
Code: [AUSKLAPPEN]

Graphics 640,480,16,2
SetBuffer BackBuffer()

x = 100
y = 100

Repeat
Cls

If KeyDown(200) y = y - 5
If KeyDown(203) x = x - 5
If KeyDown(205) x = x + 5
If KeyDown(208) y = y + 5

Color 0,0,255
Rect x,y,10,10

Flip
Until KeyHit(1)
End

denn das ist nur eine Vereinfachung meines problems ...
THX

mfg cyby Very Happy

	Gast	Do, Apr 22, 2004 18:37 Antworten mit Zitat
also das ist einfach da du als erstes mit if auf EINE Richtung checkst aber nicht ob 2 Tasten gedrückt sind schaut er gar nicht erst weiter... Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 SetBuffer BackBuffer() x = 100 y = 100 Repeat Cls If KeyDown(200) And KeyDown(203) y = y - 5 x = x - 5 ElseIf KeyDown(200) y = y - 5 ElseIf KeyDown(203) x = x - 5 ElseIf KeyDown(205) x = x + 5 ElseIf KeyDown(208) y = y + 5 EndIf Color 0,0,255 Rect x,y,10,10 Flip Until KeyHit(1) End Da du aber nur LINK und RAUF bisher drin hast geht natürlich auch nur das

Gast

Do, Apr 22, 2004 18:37
Antworten mit Zitat

also das ist einfach Smile

da du als erstes mit if auf EINE Richtung checkst aber nicht ob 2 Tasten gedrückt sind schaut er gar nicht erst weiter...

Code: [AUSKLAPPEN]

Graphics 640,480,16,2
SetBuffer BackBuffer()

x = 100
y = 100

Repeat
Cls

If KeyDown(200) And KeyDown(203)
y = y - 5
x = x - 5
ElseIf KeyDown(200)
y = y - 5
ElseIf KeyDown(203)
x = x - 5
ElseIf KeyDown(205)
x = x + 5
ElseIf KeyDown(208)
y = y + 5

EndIf

Color 0,0,255
Rect x,y,10,10

Flip
Until KeyHit(1)
End

Da du aber nur LINK und RAUF bisher drin hast geht natürlich auch nur das Smile

	cyby	Do, Apr 22, 2004 18:37 Antworten mit Zitat
THX

cyby

Do, Apr 22, 2004 18:37
Antworten mit Zitat

THX

	Michi1988	Do, Apr 22, 2004 19:52 Antworten mit Zitat
Toll das funzt in keine weitere Richtu8ng habe ich das Gefühl.

Michi1988

Do, Apr 22, 2004 19:52
Antworten mit Zitat

Toll das funzt in keine weitere Richtu8ng habe ich das Gefühl.

	Kryan	Do, Apr 22, 2004 20:17 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 SetBuffer BackBuffer() x = 100 y = 100 Repeat Cls If KeyDown(200) y = y - 5 End IF If KeyDown(203) x = x - 5 End IF If KeyDown(205) x = x + 5 End IF If KeyDown(208) y = y + 5 EndIf Color 0,0,255 Rect x,y,10,10 Flip Until KeyHit(1) End Du musst jede taste einzeln abfragen mit elseif würde nur eins gehen, da wenn eine bedingung erfüllt wird die nächsten elseifs nicht aufgerufen werden
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Do, Apr 22, 2004 20:17
Antworten mit Zitat

Code: [AUSKLAPPEN]

Graphics 640,480,16,2
SetBuffer BackBuffer()

x = 100
y = 100

Repeat
Cls

If KeyDown(200)
y = y - 5
End IF
If KeyDown(203)
x = x - 5
End IF
If KeyDown(205)
x = x + 5
End IF
If KeyDown(208)
y = y + 5
EndIf

Color 0,0,255
Rect x,y,10,10

Flip
Until KeyHit(1)
End

Du musst jede taste einzeln abfragen
mit elseif würde nur eins gehen, da wenn eine bedingung erfüllt wird die nächsten elseifs nicht aufgerufen werden

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Michi1988	Do, Apr 22, 2004 20:55 Antworten mit Zitat
Rofl. @Kryan: Hast du dir alles durchgelesen? Genau so wollters doch NICH haben oder? Darf ich fragen warum es NICHT so sein soll wie du es auch beschribeen hast?

Michi1988

Do, Apr 22, 2004 20:55
Antworten mit Zitat

Rofl.

@Kryan: Hast du dir alles durchgelesen? Genau so wollters doch NICH haben oder?

Darf ich fragen warum es NICHT so sein soll wie du es auch beschribeen hast?

	cyby	Do, Apr 22, 2004 21:41 Antworten mit Zitat
hmm, das kann man schwer beschreiben... ihr seht es dann in meinem rpg wenn es hoffentlich was wird (man kann bis jetzte in 8 richtungen laufen, holz aufnehmen und hinlegen , 4layer,kolli,clipping, ect.) ach holt es euch selber ^^ [url] home.arcor.de/tl-softec/sonstiges/rpg.rar [/url] steuerrung: laufen mit den pfeiltasten,linke strg holz aufnehmen und das ablegen geht in der version noch nicht ... habe ich aber schon eingebaut ...

cyby

Do, Apr 22, 2004 21:41
Antworten mit Zitat

hmm, das kann man schwer beschreiben... ihr seht es dann in meinem rpg wenn es hoffentlich was wird (man kann bis jetzte in 8 richtungen laufen, holz aufnehmen und hinlegen , 4layer,kolli,clipping, ect.)
ach holt es euch selber ^^
[url] home.arcor.de/tl-softec/sonstiges/rpg.rar [/url]
steuerrung: laufen mit den pfeiltasten,linke strg holz aufnehmen und das ablegen geht in der version noch nicht ... habe ich aber schon eingebaut ...

	soli	Fr, Apr 23, 2004 2:16 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 400,300,16,2 While Not KeyHit(1) Cls Text 10,10," x="+x+" y="+y y=y-KeyHit(200)5+KeyHit(208)5 x=x-KeyHit(203)5+KeyHit(205)5 Wend keydown bekommst du sicher selber hin
solitaire

soli

Fr, Apr 23, 2004 2:16
Antworten mit Zitat

Code: [AUSKLAPPEN]

Graphics 400,300,16,2

While Not KeyHit(1)

Cls
Text 10,10," x="+x+" y="+y

y=y-KeyHit(200)*5+KeyHit(208)*5
x=x-KeyHit(203)*5+KeyHit(205)*5

Wend

keydown bekommst du sicher selber hin

solitaire

	Kabelbinder Sieger des WM-Contest 2006 Betreff: Du darfst kein ElseIf verwenden	Fr, Apr 23, 2004 14:05 Antworten mit Zitat
Du darfst kein ElseIf verwenden, bei ElseIf überprüft er ob gerade eine einzige Bedingung erfüllt ist. bei normalen If Booleans können auch mehr Bedingungen erfüllt sein. Nebenbei: Ich benutze überhaupt kein ElseIf
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Kabelbinder

Sieger des WM-Contest 2006

Betreff: Du darfst kein ElseIf verwenden

Fr, Apr 23, 2004 14:05
Antworten mit Zitat

Du darfst kein ElseIf verwenden, bei ElseIf überprüft er ob gerade eine einzige Bedingung erfüllt ist. bei normalen If Booleans können auch mehr Bedingungen erfüllt sein.

Nebenbei: Ich benutze überhaupt kein ElseIf Wink

	Jan_ Ehemaliger Admin	Fr, Apr 23, 2004 14:43 Antworten mit Zitat
Elseif ist gut! man muss es nur richtig einsetzten
between angels and insects

Jan_

Ehemaliger Admin

Fr, Apr 23, 2004 14:43
Antworten mit Zitat

Elseif ist gut!

man muss es nur richtig einsetzten

between angels and insects

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

rect in 8 richtungen bewegen ?

Betreff: rect in 8 richtungen bewegen ?

Gast

Betreff: Du darfst kein ElseIf verwenden