Noch mal was mit schüssen.
Übersicht
BlitzBasic Beginners-Corner
|
Jo0okerBetreff: Noch mal was mit schüssen. |
 Fr, Jan 19, 2007 23:41Antworten mit Zitat 
|
|---|---|---|
|
Hallo ich verstehe das immernoch nicht wie kann ich schüsse machen die nicht nur nach unten sonder auch quer schoeßen?
ober - unten kann ich schon??? lg Buster15 |
||
|
Tehadon, das kostenlose 3D RPG
www.tehadon.de http://www.blitzforum.de/worklogs/14/ Das Abenteuer wird beginnen! |
||
|
Gameprogman |
Fr, Jan 19, 2007 23:48 Antworten mit Zitat
|
|---|---|---|
|
einfach statt der y koordinate, die x koordinate erhöhen/senken
Code: [AUSKLAPPEN] Graphics 640,480 ;Graphic repeat ;Schleife cls rect x,10,10,10 ;rechteck an schüsskoordinaten, x steht für die x-koordinate x=x+1 ;x koordinate erhöhen-> rechteck bewegt sich nach Rechts if x=640 then x=0 ;wenn rechteck ganz rechts dann rechteck wieder nach links flip until keyhit(1) |
||
| www.bandradr.de ! Awesome ! | ||
|
|
Jo0oker |
Sa, Jan 20, 2007 0:01 Antworten mit Zitat
|
|---|---|---|
|
Sry,
missverständnis: Ich meine nicht quer sonder auch z.B.: Diagonal also nach links - recht , ober-unter kann ich nur Diagonal klappt net. lg Jo0oker |
||
|
Tehadon, das kostenlose 3D RPG
www.tehadon.de http://www.blitzforum.de/worklogs/14/ Das Abenteuer wird beginnen! |
||
|
|
Gameprogman |
Sa, Jan 20, 2007 0:03 Antworten mit Zitat
|
|---|---|---|
|
dann einfach beide Variablen gleichzeitig erhöhen/senken
Code: [AUSKLAPPEN] Graphics 640,480 repeat cls rect x,y,10,10 x=x+1 y=y+1 if y=480 then x=0 :y=0 flip until keyhit(1) Oder schau dir hier: http://www.robsite.de/tutorials.php?tut=blitzbasic einmal das tut zu GTA Steuerung an. |
||
| www.bandradr.de ! Awesome ! | ||
|
ToeB |
Sa, Jan 20, 2007 13:13 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] Graphics 800,600,16,2 Type schuss Field x Field y Field w# End Type Global s.schuss Repeat mx = MouseX() my = MouseY() w# = ATan2(mx-a,my-b) If KeyDown(200) Then b = b - 1 If KeyDown(208) Then b = b + 1 If KeyDown(203) Then a = a - 1 If KeyDown(205) Then a = a + 1 If a < 0 Then a = 0 If a > 780 Then a = 780 If b < 0 Then b = 0 If b > 580 Then b = 580 If MouseHit(1) Then s = New schuss s\x = a s\y = b s\w# = w# EndIf Line a,b,a+Sin(w#)*50,b+Cos(w#)*50 Oval a-10,b-10,20,20,0 For s = Each schuss Color 255,0,0 Line s\x+1,s\y+1,s\x+Sin(s\w#)*10,s\y+Cos(s\w#)*10 Line s\x,s\y,s\x+Sin(s\w#)*10,s\y+Cos(s\w#)*10 s\x = s\x + Sin(s\w#) * 20 s\y = s\y + Cos(s\w#) * 20 Color 255,255,255 Next Flip Cls Until KeyHit(1) End Ich glaube das sollte dir weiter helfen  ....
|
||
|
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt! |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group