CoolBasic Forums

Code: Select all

Type hahmo
    Field A
End Type

hahmo.hahmo = New(hahmo)
hahmo\A=10

Repeat

    Text 10,10,"A: "+hahmo\A
    add_loota(100,100,hahmo\A)
    
    DrawScreen
Forever 

Function add_loota(x,y,z)
    Color cbred
    Box x,y,40,15,0
    Color cbwhite
    CenterText x+20,y+1, "LESS"
    Color cbyellow
    If MouseX()>=x And MouseX()<=x+40 And MouseY()>=y And MouseY()<=y+20 Then
        Box x+2,y+2,36,13,0
            If MouseHit(1) Then
                z=z-1
                If z<3 Then 
                    z=z+1    
                EndIf
            EndIf    
    EndIf  
End Function 

Code: Select all

Type hahmo
    Field A
End Type

h.hahmo = New(hahmo)
h\A=10

Repeat

    Text 10,10,"A: "+h\A
    add_loota(100,100,ConvertToInteger(h))
    
    DrawScreen
Forever 

Function add_loota(x,y,id)
    h.hahmo = ConvertToType(id)
    Color cbred
    Box x,y,40,15,0
    Color cbwhite
    CenterText x+20,y+1, "LESS"
    Color cbyellow
    If MouseX()>=x And MouseX()<=x+40 And MouseY()>=y And MouseY()<=y+20 Then
        Box x+2,y+2,36,13,0
            If MouseHit(1) Then
                h\A=h\A-1
                If h\A<3 Then 
                    h\A=h\A+1    
                EndIf
            EndIf    
    EndIf
End Function

Code: Select all

'latauspalkki

'väri
Color cbBlue
If reload Then Color cbBlackSkin

Box 250,38,*joku laskutoimitus*,15

'reunus
Color 0,0,0
Box 250,38,100,15,OFF

Code: Select all

FrameLimit 40 

guy= LoadObject("Media\guy.bmp", 72)

Repeat

kiihtyvyys(car,1.5,1.0,20,0)

DrawScreen
Forever

Function kiihtyvyys(objekti,kiihtyvyys$,pakki$,maxnopeus,nopeus$)
If UpKey() Then nopeus + kiihtyvyys
If DownKey() Then nopeus - pakki 
If KeyDown(cbkeyspace) And nopeus$=>1 Then nopeus$-pakki
MoveObject objekti,nopeus
EndFunction

Code: Select all

FrameLimit 40

    guy= LoadObject("Media\guy.bmp", 72)

    Repeat

    KiihtyvyysFunktio(car,1.5,1.0,20,0)

    DrawScreen
    Forever

    Function KiihtyvyysFunktio(objekti,kiihtyvyys#,pakki#,maxnopeus,nopeus#)
        If UpKey() Then nopeus = nopeus + kiihtyvyys
        If DownKey() Then nopeus = nopeus - pakki
        If KeyDown(cbkeyspace) And nopeus=>1 Then nopeus = nopeus - pakki
        MoveObject objekti, nopeus
    EndFunction

Code: Select all

Box 250, 38, 100/maxkudit, 15

Code: Select all

Const maxkutimäärä = 5
kudit = maxkutimäärä

Const lipaslatausaika = 400
Const kutilatausaika = 50

ClsColor 255, 255, 255

Repeat
    
    If KeyHit(57) And ajastin<Timer() Then
        If kudit = 0 Then
            ajastin = Timer()+lipaslatausaika
            lipaslatautuu = True
            ajastin2 = Timer()+lipaslatausaika/maxkutimäärä
        Else
            ajastin = Timer()+kutilatausaika
            kudit = kudit - 1
        EndIf
        
    EndIf
    
    If lipaslatautuu And ajastin2<Timer() Then
        
        kudit = kudit + 1
       ajastin2 = Timer()+ lipaslatausaika/maxkutimäärä
        If kudit = maxkutimäärä Then lipaslatautuu = False
        
    EndIf
    
    Color 100, 100, 100
    Box 250,38,101,15
    Color 0, 0, 0
    Box 250, 38, 101, 15, OFF
    
    For i = 0 To kudit-1
        
        Color 255, 255, 0
        Box 251+i*(100/maxkutimäärä), 39, (100/maxkutimäärä)-1, 13
        Color 200, 200, 0
        Box 251+i*(100/maxkutimäärä), 39, (100/maxkutimäärä)-1, 13, OFF
        
    Next i
    
    DrawScreen
Forever

Code: Select all

Function kiihtyvyys(objekti,kiihtyvyys$,pakki$,maxnopeus,nopeus$)
If UpKey() Then nopeus + kiihtyvyys
If DownKey() Then nopeus - pakki
If KeyDown(cbkeyspace) And nopeus$=>1 Then nopeus$-pakki
MoveObject objekti,nopeus
EndFunction

Code: Select all

joka ukolle
    tarkista puoli
    tee temp-muuttuja etäisyyksiä varten, aseta arvoksi suuri luku, esim 1000
    temp-muuttuja myös vihollisobjektia varten
        käy vastapuoli läpi
            jos nykyisen vihun etäisyys pienempi kuin temp, tallenna temp-muuttujiin etäisyys ja objekti
        seuraava
    osoita temp-objektiin
    ammu(?)
seuraava