[ b3|2A @ 11.06.2004. 15:42 ] @
treba mi pomoc u vezi jedne igre koju sam poceo da pravim!
Napravio sam osnovu igre!
'ovo je kretanje
Private Sub form_keydown(keycode As Integer, shift As Integer)
If keycode = vbKeyRight Then slika.Move slika.Left + 200
If keycode = vbKeyLeft Then slika.Move slika.Left - 200
If keycode = vbKeyDown Then slika.Move slika.Left, slika.Top + 200
If keycode = vbKeyUp Then slika.Move slika.Left, slika.Top - 200
End Sub


Private Sub Form_Load()
Form1.BackColor = RGB(0, 0, 0)
igra = InputBox("Upisite vase ime!", "igra")
MsgBox ("Hvala sto korisitite ovu igricu") + igra, vbInformation, "igra"
End Sub

sada kad postavljam neprijatelja npr. slika2
Koji cod trebam ukucati da se slika2 vjecno krece i kad je dotaknem npr. da mi da poruku izgubio si?
MOLIM VAS POMOZITE!!!!!!
[ mladenovicz @ 16.06.2004. 14:46 ] @
Imas Timer kontrolu. Podesi joj interval na zeljenu vrednost, npr 500 i onda na timer eventu stavi kod koji pomera sliku. Onda ce ti se taj kod izvrsavati svakih pola sekunde (za Interval=500). Znaci treba da osmislis algoritam za slucajno kretanje slike. Sto se tice "doticanja slike" kosristi MouseOver ili Click event za sliku (PictureBox ili Image kontrolu).
[ fLuXx @ 22.06.2004. 13:13 ] @
Code:
 
If (Ped.Top + Ped.Height >= Lopta.Top And Ped.Top < Lopta.Top + Lopta.Height) And _
(Ped.Left + Ped.Width >= Lopta.Left And Ped.Left < Lopta.Left + Lopta.Width) Then 'Detekcija sudara sa predmetom
...'ovde tvoj kod
...'ovde tvoj kod
End If


Ovde je ped objekat, a kod proverava da li se on sudarijo sa loptom. Ako jeste izvrsava neki kod. Ti mozes da promenis ime objekta, umesto 'ped' stavi nesto svoje, umesto 'lopta' takodje. Ovaj kod smestis u tajmer sa intervalom 50 ili koliko ti vec treba. Nadam se da sam pomogao.
[ b3|2A @ 23.06.2004. 17:47 ] @
Hvala ti!
Ti si bog!