CoolBasic Forums

Code: Select all

FrameLimit 40

'Load the map 
'themap=LoadImage("Media/map.bmp")

'Load an animated image 
'Frame size is 30,25 \ start at the first \ 2 frames total 
cow=LoadAnimObject("music\car\ACar.bmp", 87, 47, 0, 2, 150) 
'Default Position 
x=200:y=150

While Not EscapeKey()

    'Upadte controls
    LoopObject cow
    If LeftKey() Then TurnObject cow,3
    If RightKey() Then TurnObject cow,-3
    If UpKey() Then MoveObject cow,3
    If DownKey() Then MoveObject cow,-3

    'Fraw the map
'    DrawImage themap,0,0

    'Draw the cow
'    DrawImage cow,x,y,cowframe

    'Animate through frames 0 and 1
    If TIMER()>cowtimer+100 Then 'animate every 100 millisecs
        cowframe=cowframe+1
        If cowframe>1 Then cowframe=0
        cowtimer=TIMER()
    EndIf

    DrawScreen

Wend

End

Code: Select all

Type Vihut
    Field obj
End Type 

Type AMMUS
    Field obj
End Type 


SCREEN 800, 600

ukko=LoadObject("Media\soldier.bmp",72)
vihu = LoadObject("Media\guy.BMP") 
pati=LoadObject("Media\bullet.bmp")
ShowObject pati,OFF
ShowObject vihu, OFF

AddText "Nuolista ohjaa, CTRL=ampuu"

//Luodaan viholliset, tehdään niitä 10
For i = 0 To 10
    pahis.Vihut = New(Vihut)
    pahis\obj = CloneObject(Vihu)
    SetupCollision ukko, pahis\obj, 2, 2, 2
    PositionObject pahis\obj,Rand(-400, 400), Rand(-300, 300)
    ObjectFloat pahis\obj, 100 'Asetetaan pahikselle energia
Next i

Repeat

    If LeftKey() Then TurnObject ukko,5
    If RightKey() Then TurnObject ukko,-5
    If UpKey() Then MoveObject ukko,2
    If DownKey() Then MoveObject ukko,-2    


    If KeyDown(cbKeyRControl) And reload=0 Then    
        luoti.AMMUS = New(AMMUS)
        luoti\obj=CloneObject(pati)
        CloneObjectPosition luoti\obj,ukko                
        CloneObjectOrientation luoti\obj,ukko  
        For pahis.Vihut = Each Vihut
            SetupCollision luoti\obj, pahis\obj, 2, 2, 2
        Next pahis
        reload=5       
    EndIf
    
    If reload>0 Then reload=reload-1
    
    //Panosten peruspäivitys
    For luoti.AMMUS = Each AMMUS
        MoveObject luoti\obj,6
        If CountCollisions(luoti\obj) Then 'Johonkin törmättiin, sen täytyi olla vihollinen.. 
            törmättyobjekti = GetCollision(luoti\obj, 1)
            energia# = ObjectFloat(törmättyobjekti) 'Tutkitaan törmätyn objektin energia-arvo ja otetaan muuttuja (energia# <-) talteen.
            uusienergia# = energia# - 10 '"tehdään" uusi energia-arvo, eli energia muuttujasta vähennetään kymmenen.
            ObjectFloat törmättyobjekti, uusienergia 'Asetetaan törmätylle objektille uusi energia-arvo.
            DeleteObject luoti\obj
            Delete luoti
            //Jos ei törmätty mihinkään, ja luoti jatkoi ruudun ulkopuolelle niin... tuhotaan se.
        ElseIf ObjectX(luoti\obj)<-400 Or ObjectX(luoti\obj)>400 Or ObjectY(luoti\obj)<-300 Or ObjectY(luoti\obj)>300 Then     
            DeleteObject luoti\obj
            Delete luoti
        EndIf        
    Next luoti   

    
    DrawGame

    //Vihollisten läpikäynti 
    For pahis.Vihut = Each Vihut
        //Piirretään pahikselle energia
        DrawToWorld 0, 0, ON  
            CenterText ObjectX(pahis\obj), ObjectY(pahis\obj), ObjectFloat(pahis\obj), 2
        DrawToWorld 0, 0, OFF 
        //Joe vihollisen energia-arvo on tasan tai meni alle nollan, niin tuhotaan vihollinen.
        If ObjectFloat(pahis\obj) =< 0 Then 
            DeleteObject pahis\obj
            Delete pahis
        EndIf
    Next Pahis


    DrawScreen
Until EscapeKey()

Code: Select all

 //Vihollisten läpikäynti 
    For pahis.Vihut = Each Vihut
        //Piirretään pahikselle energia
        DrawToWorld 0, 0, ON  
            CenterText ObjectX(pahis\obj), ObjectY(pahis\obj), ObjectFloat(pahis\obj), 2
        DrawToWorld 0, 0, OFF 
        //Joe vihollisen energia-arvo on tasan tai meni alle nollan, niin tuhotaan vihollinen.
        If ObjectFloat(pahis\obj) =< 0 Then 
            DeleteObject pahis\obj
            Delete pahis
        EndIf
    Next Pahis