Jedno pitanje (pravim igricu)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako da napravim naprimer da imaju 3 slike i napravio sam da se one pomeraju preciznije imaju 2 meteora i jedan svemirski brod i sad kako da napravim da ako jedan od tih slika (meteor) dodje u dodir sa slikom svemirskog broda da mi otvoti form2 a da se ta forma u kojoj je igrica zatvori....??? psl hitno je

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nisam programer pa ne mogu reći tačan kod ali potraži nešto s ključnim rečima "collision detection", trebalo bi da ti pomogne za prvi deo problema.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa evo ti kod:

Sub Provera_Dodira1b()  Dim x110 As Integer     Dim x120 As Integer     Dim x130 As Integer     Dim x140 As Integer     Dim x210 As Integer     Dim x220 As Integer     Dim x230 As Integer     Dim x240 As Integer     Dim y110 As Integer     Dim y120 As Integer     Dim y130 As Integer     Dim y140 As Integer     Dim y210 As Integer     Dim y220 As Integer     Dim y230 As Integer     Dim y240 As Integer     x110 = brodic.Left     y110 = brodic.Top     x120 = brodic.Left + brodic.Width     y120 = brodic.Top     x130 =  brodic.Left + brodic.Width     y130 =  brodic.Top + brodic.Height     x140 =  brodic.Left     y140 =  brodic.Top +  brodic.Height     x210 = meteor.Left     y210 = meteor.Top     x220 = meteor.Left +meteor.Width     y220 = meteor.Top     x230 = meteor.Left + meteor.Width     y230 = meteor.Top + meteor.Height     x240 = meteor.Left     y240 = meteor.Top +meteor.Height       If (x110 >= x210 And x110 <= x220 And y110 >= y210 And y110 <= y230) Or _         (x120 >= x210 And x120 <= x220 And y120 >= y210 And y120 <= y230) Or _         (x130 >= x210 And x130 <= x220 And y130 >= y210 And y130 <= y230) Or _         (x140 >= x210 And x140 <= x220 And y140 >= y210 And y140 <= y230) Then   form2.show unload form1     If (x210 >= x110 And x210 <= x120 And y210 >= y110 And y210 <= y130) Or _         (x220 >= x110 And x220 <= x120 And y220 >= y110 And y220 <= y130) Or _         (x230 >= x110 And x230 <= x120 And y230 >= y110 And y230 <= y130) Or _         (x240 >= x110 And x240 <= x120 And y240 >= y110 And y240 <= y130) Then form2.show unload form1    End Sub

Posle samo pozovi u tajmeru ovaj sub i to je to.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

A joj...Pa ovako nikad neces napraviti igricu...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako imas vise tela, pa trebas proveriti dodir izmedju bilo koja dva bolje resenje je da napravis funkciju koja proverava dodir:


x1 - x koordinata prvog tela
y1 - y koordinata prvog tela
s1 - x sirina prvog tela
v1 - x visina prvog tela
x2 - x koordinata II tela
y2 - y koordinata II tela
s2 - x sirina II tela
v2 - x visina II tela

Function Provera_Dodira(x1 as integer,y1 as integer,s1 as integer,v1 as integer,x2 as integer,y2 as integer,s2 as integer,v2 as integer) as Boolean   If (x1 >= x2 And x1 <= x2+s2 And y1 >= y2 And y1 <= y2+v2) Then       Provera_Dodira=True       Exit Function   End If   If (x1+s1 >= x2 And x1+s1 <= x2+s2 And y1 >= y2 And y1 <= y2+v2) Then       Provera_Dodira=True       Exit Function   End If   If (x1 >= x2 And x1 <= x2+s2 And y1+v1 >= y2 And y1+v1 <= y2+v2) Then       Provera_Dodira=True       Exit Function   End If   If (x1+s1 >= x2 And x1+s1 <= x2+s2 And y1+v1 >= y2 And y1+v1 <= y2+v2) Then       Provera_Dodira=True       Exit Function   End If   Provera_Dodira=False End Function



Posle toga mozes na jednostavan nacin da proveravas da li postoji dodir izmedju bilo koja dva tela (slike) koja poseduju x,y koordinatu, sirinu i visinu.



If Postoji_Dodir (Image1.left, Image1.Top, Image1.Width, Image1.Height, Image2.left, Image2.Top, Image2.Width, Image2.Height)=True Then     "Uradi to i to" End If

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala puno uskoro cu postaviti igricu zavrsena je 95 %