Tämä koodi ei toimi, koska kaikki vihut tulevat pelaajaaa kohti vaikka ne olisivat kaukana pelaajasta.
Code: Select all
If Distance (ukko,ukko,vihu\obj,vihu\obj) < 200 Then
PointObject vihu\obj, ukko
MoveObject vihu\obj, 1
EndIf
Code: Select all
If Distance (ukko,ukko,vihu\obj,vihu\obj) < 200 Then
PointObject vihu\obj, ukko
MoveObject vihu\obj, 1
EndIf
Code: Select all
If Distance2(ukko,vihu\obj) < 200 Then 'tee jotain
Code: Select all
if objectsoverlap(luoti\obj,vihu\obj) then
delteobject luoti\obj
delete luoti
Endif
Code: Select all
if objectoverlap(vihu\obj,luoti\obj) then
deleteobject vihu
delete vihu
Endif
Code: Select all
if objectsoverlap(luoti\obj,vihu\obj) then
delteobject luoti\obj
delete luoti
deleteobject vihu\obj
delete vihu
Endif
MAV.Dibalo wrote:Code: Select all
if objectsoverlap(luoti\obj,vihu\obj) then delteobject luoti\obj delete luoti deleteobject vihu\obj delete vihu Endif
Code: Select all
If KeyDown(cbKeyRControl) Then
luoti.AMMUS = New(AMMUS)
luoti\obj=CloneObject(pati)
CloneObjectPosition luoti\obj,ukko
CloneObjectOrientation luoti\obj,ukko
If ObjectsOverlap(luoti\obj,vihu\obj) Then
DeleteObject luoti\obj
Delete luoti
DeleteObject vihu\obj
Delete vihu
EndIf
EndIf
For luoti.AMMUS = Each AMMUS
MoveObject luoti\obj,6
Next luoti
Code: Select all
if objectsoverlap(luoti\obj,vihu\obj) then
delteobject luoti\obj
delete luoti
deleteobject vihu\obj
delete vihu
exit
Endif
Code: Select all
For vihu.VIHUT=Each VIHUT
Next vihu
Code: Select all
For vihu.VIHUT = Each VIHUT
//ETTEI TULE MAVIA MUISTA KATSOA VIHUJA KATSOTTAESSA MYÖS PATEJA!!!
For pati.AMMUKSET = Each AMMUKSET
If ObjectsOverlap(vihu\obj,pati\obj,3) Then
DeleteObject pati\obj
Delete pati
collide=1
EndIf
Next pati
If collide Then DeleteObject vihu\obj:Delete vihu
Next vihu