Type peli toimimaan funktioilla

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Type peli toimimaan funktioilla

Post by iTKEVAnAKKI »

Eli mulla on kaksinpeli jonka haluaisin toimimaan funktioilla, että jokaista asiaa ei tarvitsisi kirjottaa kahdesti. Tässä on osa yhden pelaajan koodi osuudesta:

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
Eli esim tuo täytyisi saada toimaan Esim komennolla ohjaapelaajaa(P1). Toivottavasti ymmärsitte ja osaisitte auttaa :D Voi olla, että selitin huonosti joten kysykää.

EDIT: Ja sori väärä alue, siirtäkää :D
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee ;)
Post Reply