CoolBasic Forums

Code: Select all

new_x=0
new_y=0

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

Repeat
    
    If MouseHit(1) Then
         new_x=MouseWX()
         new_y=MouseWY()
         
    ElseIf Distance(ObjectX(guy),ObjectY(guy),new_x,new_y)<10
        new_x=ObjectX(guy)
        new_y=ObjectY(guy)
        
    EndIf
    
    If Distance(ObjectX(guy),ObjectY(guy),new_x,new_y)>10 Then
        RotateObject guy,GetAngle(ObjectX(guy),ObjectY(guy),new_x,new_y)
        MoveObject guy,2
    EndIf
    
    DrawScreen
Until EscapeKey()

Code: Select all

tausta = MakeImage( 100, 100 )
maski = MakeImage( 100, 100 )

alkuperäinen_lehmä = LoadImage( "media\cow.bmp" ) //ladataan lehmäkuva, jota ei milloinkaan muuteta.
lehmä = CloneImage( alkuperäinen_lehmä )
MaskImage lehmä, cbMagenta  //<- lehmän maskiväri ON erittäin oleellinen.
                            //Kokeile kommentoida rivit 6-21, ja katso mitä käy.
                            
//Muutetaan lehmän maskiväri magentaksi. Se on alunperin musta. Tästä ei tarvitse välittää. Ongelmana
//on vain se, että media-kansiossa olevan lehmän maski on musta, ja me tarvitsemme magentan.
DrawToImage alkuperäinen_lehmä
For x = 0 To ImageWidth( alkuperäinen_lehmä )
    For y = 0 To ImageHeight( alkuperäinen_lehmä )
        PickImageColor alkuperäinen_lehmä, x, y
        If getRGB( RED ) = 0 And getRGB( GREEN ) = 0 And getRGB( BLUE ) = 0 Then
            Color cbMagenta
            Dot x, y
        EndIf
    Next y
Next x
DrawToScreen

//Tehdään shakkiruudukko.
For x = 1 To 10
    For y = 1 To 10
        Color cbBlack //joka toinen ruutu on musta.
        If x Mod 2 = 0 And y Mod 2 <> 0 Then //joka neljäs ruutu on valkoinen
            Color cbWhite
        ElseIf x Mod 2 <> 0 And y Mod 2 = 0 //joka neljäs ruutu on punainen. Myös maskiin piirretään, värillä magenta.
            Color cbMagenta
            DrawToImage maski
            Box x * 10, y * 10, 10, 10             
            Color cbRed 
        EndIf
    
        DrawToImage tausta      
        Box x * 10, y * 10, 10, 10
        DrawToScreen
    Next y
Next x

ShowMouse OFF //piilotetaan kursori.

Repeat
   
    DrawImage tausta, 0, 0 //piirretään tausta ENSIMMÄISENÄ.
   
    //piirretään maski lehmäkuvion päälle. Tämä luo "reikiä" lehmään, jotta syntyisi illuusio
    //että lehmä jäisi ruutujen taakse.
    DrawToImage lehmä
        Cls
        DrawImage alkuperäinen_lehmä, 0, 0
        DrawImage maski, -MouseX(), -MouseY()
    DrawToScreen

    DrawImage lehmä, MouseX(), MouseY()       

    SetWindow FPS() + ""
    DrawScreen
Forever

Code: Select all

SCREEN 1024, 768
FrameLimit 40

path = MakeImage( ScreenWidth(), ScreenHeight() )
cow = LoadImage( "media\cow.bmp" )

Const SIZE = 40
Const SPEED = 5

cowX = ScreenWidth() / 2
cowY = ScreenHeight() / 2
targetX = cowX
targetY = cowY
Repeat

    //Hiiri2 luo polkua, hiiri1 liikuttaa lehmää, jos mahdollista.
    If MouseDown( 2 ) Then
        DrawToImage path
            Color cbMagenta
            Circle MouseX() - SIZE / 2, MouseY() - SIZE / 2, SIZE
        DrawToScreen
    ElseIf MouseHit( 1 ) Then
        targetX = MouseX()
        targetY = MouseY()
    EndIf

    //Katsotaan suorin reitti kohteeseen. Jos se ei ole mahdollinen, käännetään reittiä hiukan
    //ja etsitään uutta polkua. Jos polkua ei löydy, pysähdytään. Muulloin annetaan lupa
    //jatkaa matkaa.
    If Distance( cowX, cowY, targetX, targetY ) > SPEED Then
        angle# = GetAngle( cowX, cowY, targetX, targetY )
       
        Lock Image( path )
       
        bMove = False
        dir = 0
        While True
            getX = cowX + Cos( angle# + dir ) * SPEED
            getY = cowY - Sin( angle# + dir ) * SPEED

            PickImageColor2 path, getX, getY       

            If getRGB( RED ) <> 0 Or getRGB( GREEN ) <> 0 Or getRGB( BLUE ) <> 0 Then
                bMove = True
                Exit
            EndIf
           
            temp = Not temp           
            If Not temp Then
                dir = dir * -1
            Else
                dir = Abs( dir ) + 10
            EndIf
            If dir > 100 Then Exit
       Wend

        Unlock Image( path )
       
        //liikutetaan lehmää
        If bMove = True Then
            cowX = getX       
            cowY = getY
        Else
            targetX = cowX
            targetY = cowY
        EndIf
    EndIf
   
    //piirretään polku ja lehmä. Pelissä polkua ei tarvitse piirtää ruudulle, se on silti olemassa.
    DrawImage path, 0, 0
    DrawImage cow, cowX - ImageWidth( cow ) / 2, cowY - ImageHeight( cow ) / 2

    Color cbWhite
    Text 20, 20, "Hiiri1 liikuttaa lehmää (jos mahdollista)"
    Text 20, 33, "Hiiri2 luo lattiaa. Kokeile tehdä mutkia."
    DrawScreen
Forever