CoolBasic Forums

Code: Select all

SCREEN 800,600  
    SetWindow "Kill those bugs!",0,"Are you sure? There's no better game!"
    Const DIFF = 1  // Tästä voi vaihtaa vaikeutta
    Dim bugx(100)
    Dim bugy(100)
    Dim bugsx(100)
    Dim bugsy(100)
    Dim alive(100)
    img = LoadImage("media/tatti.bmp")
    If ImageHeight(img)<>16 Or ImageWidth(img)<>16 Then ResizeImage img,16,16
    For i=1 To 100
        bugx(i) = Rand(10,ScreenWidth()-20)
        bugy(i) = Rand(30,ScreenHeight()-20)
        bugsx(i) = DIFF*Rand(-1,1)
        bugsy(i) = DIFF*Rand(-1,1)
        alive(i) = True
    Next i
    font = LoadFont("verdana",16)
    SetFont font
    Repeat
        Color cbwhite
        Text 0,0,"Time: "+Left(Str((1000-mytime)),2)
        Text 300,0,"Kills: "+killed
        Text 600,0,"Misses: "+misses
        mytime = mytime + 1
        For i=1 To 100
            If alive(i) Then
                Color 255,0,0
                DrawImage img,bugx(i),bugy(i)
                bugx(i) = bugx(i) + bugsx(i)
                bugy(i) = bugy(i) + bugsy(i)
                If bugx(i) < 0 Or bugx(i) > ScreenWidth()-16 Then
                    bugsx(i) = bugsx(i)*-1
                EndIf
                
                If bugy(i) < 20 Or bugy(i) > ScreenHeight()-16 Then
                    bugsy(i) = bugsy(i)*-1
                EndIf
                
                If MouseHit(1) Then
                    If MouseX()>bugx(i) And MouseY()>bugy(i) And MouseX()<bugx(i)+17 And MouseY()<bugy(i)+17 Then
                        killed = killed + 1
                        alive(i) = False
                    EndIf
                EndIf
             EndIf
        Next i
        If mytime > 1001 Then MakeError "You destroyed "+killed+" bugs!"
        DrawScreen
    Forever 

Code: Select all

SetWindow "OmgHiiri!",0,"AYS?"
SCREEN 800,600
alku:
hiir=MakeImage(52,32)
DrawToImage hiir
    Color 192,192,192
    Ellipse 0,0,52,32
    Color 160,160,160
    Ellipse 0,22,5,32
    Ellipse 42,22,5,32
    Ellipse 32,0,10,10
DrawToScreen
mouse=MakeObject()
AddText "OMG: tehään hiiriä (OMG: loading)"
DrawScreen 
Dim hiiret(10)
For i=0 To 10
    hiiret(i)=MakeObject(72)
    PaintObject hiiret(i),-hiir
    PositionObject hiiret(i),Rand(-200,-1000),Rand(-200,200)
Next i
ClearText 
vaikeus=1
hp=3
osumat=0
Repeat
    If osumat>vaikeus*5 Then vaikeus+1:show=1:aloitus=Timer()
    PositionObject mouse,MouseWX(),MouseWY()
    For i=0 To 10
        MoveObject hiiret(i),vaikeus
        If ObjectX(hiiret(i))>400 Then hp-1:PositionObject hiiret(i),Rand(-200,-1000),Rand(-200,200)
        If ObjectsOverlap(mouse,hiiret(i)) And MouseHit(1) Then PositionObject hiiret(i),Rand(-200,-1000),Rand(-200,200):osumat+1
    Next i
    If show=1 And Timer()-aloitus<2000 Then Text 400,300,"TASO "+vaikeus
    DrawGame
    Text 0,0,"Elämiä: "+hp
    Text 0,15,"Osumia: "+osumat
    Text 0,30,"Vaikeustaso: "+vaikeus
    DrawScreen
Until hp<0
ClearObjects
AddText "Sait pisteitä: "+osumat
AddText "Paina näppäintä saadaksesi uuden pelin"
DrawScreen 
WaitKey
Goto alku