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:

1. Sub Provera_Dodira1b()
2. Dim x110 As Integer
3.   Dim x120 As Integer
4.   Dim x130 As Integer
5.   Dim x140 As Integer
6.   Dim x210 As Integer
7.   Dim x220 As Integer
8.   Dim x230 As Integer
9.   Dim x240 As Integer
10.   Dim y110 As Integer
11.   Dim y120 As Integer
12.   Dim y130 As Integer
13.   Dim y140 As Integer
14.   Dim y210 As Integer
15.   Dim y220 As Integer
16.   Dim y230 As Integer
17.   Dim y240 As Integer
19.   x110 = brodic.Left
20.   y110 = brodic.Top
21.   x120 = brodic.Left + brodic.Width
22.   y120 = brodic.Top
23.   x130 =  brodic.Left + brodic.Width
24.   y130 =  brodic.Top + brodic.Height
25.   x140 =  brodic.Left
26.   y140 =  brodic.Top +  brodic.Height
28.   x210 = meteor.Left
29.   y210 = meteor.Top
30.   x220 = meteor.Left +meteor.Width
31.   y220 = meteor.Top
32.   x230 = meteor.Left + meteor.Width
33.   y230 = meteor.Top + meteor.Height
34.   x240 = meteor.Left
35.   y240 = meteor.Top +meteor.Height
39.   If (x110 >= x210 And x110 <= x220 And y110 >= y210 And y110 <= y230) Or _
40.       (x120 >= x210 And x120 <= x220 And y120 >= y210 And y120 <= y230) Or _
41.       (x130 >= x210 And x130 <= x220 And y130 >= y210 And y130 <= y230) Or _
42.       (x140 >= x210 And x140 <= x220 And y140 >= y210 And y140 <= y230) Then
43. form2.show
44. unload form1
46.   If (x210 >= x110 And x210 <= x120 And y210 >= y110 And y210 <= y130) Or _
47.       (x220 >= x110 And x220 <= x120 And y220 >= y110 And y220 <= y130) Or _
48.       (x230 >= x110 And x230 <= x120 And y230 >= y110 And y230 <= y130) Or _
49.       (x240 >= x110 And x240 <= x120 And y240 >= y110 And y240 <= y130) Then
50. form2.show
51. unload form1
52.  End Sub

• 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

0. 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
1.  
2.   If (x1 >= x2 And x1 <= x2+s2 And y1 >= y2 And y1 <= y2+v2) Then
3.       Provera_Dodira=True
4.       Exit Function
5.   End If
6.  
7.   If (x1+s1 >= x2 And x1+s1 <= x2+s2 And y1 >= y2 And y1 <= y2+v2) Then
8.       Provera_Dodira=True
9.       Exit Function
10.   End If
11.  
12.   If (x1 >= x2 And x1 <= x2+s2 And y1+v1 >= y2 And y1+v1 <= y2+v2) Then
13.       Provera_Dodira=True
14.       Exit Function
15.   End If
16.  
17.   If (x1+s1 >= x2 And x1+s1 <= x2+s2 And y1+v1 >= y2 And y1+v1 <= y2+v2) Then
18.       Provera_Dodira=True
19.       Exit Function
20.   End If
21.  
22.   Provera_Dodira=False
23.  
24. End Function

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

Hvala puno uskoro cu postaviti igricu zavrsena je 95 %