| moving balls von ??? |
| Hi! hier eine simple ball physik, wer lust hat kann es ja mal erweitern so das die bälle auch gegen einander knallen. [code:1:42a9e72e75] ; Author: Pride ; Datum: 29.09.02 ; Thmea: moveing balls ; Zeit: 11:32:01 Graphics 800,600,16,1 SetBuffer BackBuffer() Dim speed_x#(20), speed_y#(20) Dim x#(20), y#(20) font = LoadFont("Comic Sans MS",72,False,False,False) For i = 0 To 20 speed_x#(i) = Rand(0,5) speed_y#(i) = Rand(0,5) x#(i) = Rand(10,750) y#(i) = Rand(10,500) Next Repeat Cls ClsColor(0,50,155) SetFont font Color(0,255,0) Text 100,10,"Moving Balls" ball_physik() Flip Until KeyHit(1) End Function ball_physik() Color(Rand(0,255),Rand(0,255),Rnd(0,255)) For i = 0 To 20 x#(i) = x#(i) + speed_x#(i) y#(i) = y#(i) + speed_y#(i) If x#(i) => 800 speed_x#(i) =- speed_x#(i) If x#(i) =< 0 speed_x#(i) =- speed_x#(i) If y#(i) => 600 speed_y#(i) =- speed_y#(i) If y#(i) =< 0 speed_y#(i) =- speed_y#(i) Oval x#(i),y#(i),20,20,1 Next End Function [/code:1:42a9e72e75] |
| antwort von ??? |
| ich glaub triton oder bruzard oder irgendwer hatte ne ball demo da sind die auch zusammengeprallt. |
| von ??? |
| hm... wenn ich mit bildern arbeiten würde wäre das einfach da könnte ich ja einfach imagesoverlap nehmen, aber wenn das ganze mit primitiven objekten mache müsste ich jedes mal abfragen wann zwei oder mehrere primitive objekte sich an einer position treffen so das sie aprallen. Das wäre mehr code aber wenn du willt kannst du das ja machen :wink: . ps: korrigiert mich wenn ich falsch liege :) |