Panokset poistuvat hyvin osuessaan alukseen, mutta jonkin ajan jälkeen ohjelma hidastuu!?
Missä vika ? Jääkö jotkin muuttujat vielä elämään vaikka kuvittelen poistaneeni ne ?
Code: Select all
Vammuvaan:
Vluoti.VAMMUS = New(VAMMUS) 'luo uusi ammus
Vluoti\Vobjb=CloneObject(Vpati1) 'tee klooni
'asetetaan pati samaan paikkaan
CloneObjectPosition Vluoti\Vobjb,vih\obj
'liikutetaan vihollisen luotia
MoveObject Vluoti\Vobjb,vih\nopeus*4
'käännetään pati samaan suuntaan
CloneObjectOrientation Vluoti\Vobjb,vih\obj
'ohitetaan törmäys hetkeksi
ResetObjectCollision Vluoti\Vobjb
Vreload=10 'aseen lataus
Veiammu:
'päivitä aseen lataaminen
If Vreload>0 Then Vreload=Vreload-1
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''
'Tarkistetaan panos ja dragot
For Vluoti.VAMMUS = Each VAMMUS
'tarkistetaan vihollisen luodin ja vihollisen aluksen etäisyys toisistaan
välimatka1=Distance2(Vluoti\Vobjb,vih\obj)
If välimatka1>250 Then Goto Vpois
'jos vihollisluoti osuu sinuun poistetaan vihollisluoti
If ObjectsOverlap(Vluoti\Vobjb, alus1) Then
'kerrotaan osumasta
CenterText 600,270,"OSUMA"
Vpois:
'poista luoti
ShowObject Vluoti\Vobjb,OFF
Delete Vluoti
Goto Veitarkista
EndIf
Veitarkista:
Next Vluoti
Return