Code: Select all
If vuoro=1 Then
For ukko.P1=Each P1
If valinta=OFF Then
If Distance2(hiiri,ukko\obj)<10 Then
If MouseHit(1) Then
ukko\valittu=ON
ClearMouse
valinta=ON
EndIf
EndIf
ElseIf valinta=ON Then
If MouseHit(1) And Distance2(hiiri,ukko\obj)<100 Then
ShowObject piste,ON
PositionObject piste,MouseWX(),MouseWY()
asetettu=ON
EndIf
If ukko\valittu=ON Then
ympyrä(ObjectX(ukko\obj),ObjectY(ukko\obj),200,0)
EndIf
EndIf
Next ukko
If turns(1)>=3 Then
If KeyHit(2) Then
ukko.P1=New(P1)
ukko\obj=LoadObject("Media\joukkue.png")
ScreenPositionObject ukko\obj,10,10
ukko\teho=5
ukko\elämä=100
ObjectOrder ukko\obj,-1
turns(1)=turns(1)-3
EndIf
EndIf
For ukko.P1=Each P1
If turns(1)>=2 Then
If ukko\valittu=ON Then
If KeyHit(3) Then
ukko\teho=ukko\teho+5
turns(1)=turns(1)-2
EndIf
EndIf
EndIf
If turns(1)>=1 Then
If ukko\valittu=ON Then
If KeyHit(4) And Distance2(alku(1),ukko\obj)<75 Then
ukko\elämä=ukko\elämä+10
turns(1)=turns(1)-1
EndIf
EndIf
EndIf
For ukko2.P2=Each P2
If ukko\valittu=ON Then
If Distance2(ukko\obj,ukko2\obj)<100 Then
If MouseHit(2) Then
hyökkäys=Rand(ukko\teho/2,ukko\teho)
ukko2\elämä=ukko2\elämä-hyökkäys
vuorovaihtuu=ON
EndIf
EndIf
EndIf
Next ukko2
Next ukko
EDIT: Ja sori väärä alue, siirtäkää