Code: Select all
Type AMMUS
Field obj
End Type
Const vihumäärä=10
Dim vihu_obj(vihumäärä)
Dim vihu_pic(vihumäärä)
SCREEN 800,600
FrameLimit 40 'rajoita nopeutta
ukko=LoadObject("Media\soldier.bmp",72)
cloonattava_vihu=LoadObject("Media\guy.bmp",72)
pati=LoadObject("Media\bullet.bmp")
target = LoadObject("Media\target.bmp")
ShowObject pati,OFF
ShowMouse OFF
ShowObject cloonattava_vihu,OFF
For i=1 To vihumäärä
vihu_obj(i)=CloneObject(cloonattava_vihu)
PositionObject vihu_obj(i), Rand (-1000,1000),Rand (-1000,1000)
Next i
osumat=0
AddText "Nuolista ohjaa, Hiiri=ampuu"
Repeat
PositionObject target,MouseWX(),MouseWY()
'Ohjaa ukkoa NUOLILLA
//If LeftKey() Then TurnObject ukko,5
//If RightKey() Then TurnObject ukko,-5
If UpKey() Then MoveObject ukko,2
If DownKey() Then MoveObject ukko,-2
PointObject ukko,target
If MouseDown(1) And reload=0 Then
luoti.AMMUS = New(AMMUS) 'luo uusi ammus
luoti\obj=CloneObject(pati) 'tee klooni
CloneObjectPosition luoti\obj,ukko
// CloneObjectOrientation luoti\obj,ukko
PointObject luoti\obj,target
CloneObjectOrientation ukko,luoti\obj
//GetAngle (ObjectX(ukko),ObjectY(ukko), hiiriWX, hiiriWY)
reload=5 'aseen lataus
EndIf
If reload>0 Then reload=reload-1
For luoti.AMMUS = Each AMMUS
For i=1 To vihumäärä
SetupCollision luoti\obj,vihu_obj(i),2,2,2
Next i
ObjectLife luoti\obj,50
MoveObject luoti\obj,6
If ObjectX(luoti\obj)<-380 Or ObjectX(luoti\obj)>380 Or ObjectY(luoti\obj)<-280 Or ObjectY(luoti\obj)>280 Then
ShowObject luoti\obj,OFF
EndIf
//////////////////////////////////////////////////////////////////////////////
//////ONGELMAKOHTA
If CountCollisions (luoti\obj) Then
ShowObject luoti\obj,OFF
osumat=osumat+1
//ShowObject vihu_obj(i),OFF
//deleteobject vihu_obj(i
EndIf
///////////////////////////////////////
///////////////////////////////////////
Next luoti
'tämä ennen muuta grafiikkaa (box)
For i=1 To vihumäärä
PointObject vihu_obj(i),ukko
MoveObject vihu_obj(i),3
Next i
DrawGame
Color cbOrange
Box 20,20,760,560,OFF
Text 600,1, "Osumat: "+osumat
DrawScreen
Until EscapeKey()
ei toiminuSly_Jack0 wrote:Toimisikohan näin? (en ole varma)
Miksi et muuten tee vihuja typeillä?
miten vihut tehää typeillä, ja mitä hyötyä siitä olisi?
Onko uusia ehdotuksia, miten saisin vihut deletoitua/piilotettua?