CoolBasic Forums

Code: Select all

SCREEN 400,250 'Säädetään ikkunan kokoa

nappi=LoadObject("media\buttoni.bmp") 'Ladataan the nappi..

hiiri=LoadObject("Media\cursor.bmp") '..ja the hiiri

ShowMouse OFF  'Ei näytetä kauhistuttavaa windowshiirtä

Repeat

PositionObject hiiri,MouseWX(),MouseWY() 'Asetetaan oma hiiremme windowshiiren paikalle

'Jos hiiri ja nappula ovat päällekkäin ja nappia painetaan
'Ohjelma lopetetaan.
If ObjectsOverlap(hiiri,nappi) And MouseHit(1) Then 
End
EndIf 

DrawScreen 'DrawZcreenzzz
Forever

Code: Select all

 
   repeat
        Button(100,100,100,20,"Pelaa")
        Button(100,130,100,20,"Asetukset")
        if Button(100,160,100,20,"Poistu") then
              end    // kun painetaan nappulaa
        endif
        drawscreen
   forever

   // x, y koordinaatit
   // w,h koko
   // t painikkeen teksti
   // s painikkeen pyöreys
   Function Button(x,y,w,h,t$,s=5)
        If MouseX()>x And MouseY()>y And MouseX()<x+w And MouseY()<y+h Then
            If MouseDown(1) Then Color 180,180,180 Else Color 240,240,240
            If MouseUp(1) Then Return True  
        Else
            Color 200,200,200
        EndIf          
            Box x+s,y,w-(s*2),h     
            Box x,y+s,w,h-(s*2)
            Circle x,y,s*2
            Circle x+w-s*2,y,s*2
            Circle x+w-s*2,y+h-s*2,s*2
            Circle x,y+h-s*2,s*2
            Color cbblack
            CenterText x+w/2,y+h/2-TextHeight(t)/2,t$
    EndFunction 

Code: Select all

valikkonappuloita = 3

//luodaan nappuloille taulukko jossa toisen ulottuvuus kertoo onko kyseessä  
//nappulan nimi (1) vai nappulafunktion palauttama arvo (0)

Dim valikkokohta(valikkonappuloita-1,1) As String 

//asetetaan nappuloille nimet, nämähän voidaan toki vaikka ladata ulkoisesta tiedostostakin
valikkokohta(0,1)="Uusi peli"
valikkokohta(1,1)="Asetukset"
valikkokohta(2,1)="Lopeta peli"
 
Repeat

    // tässä päivitetään kaikkien nappuloiden tila, jos nappula on alhaalla niin valikkokohta(i,0)="1" muutoin valikkokohta(i,0)="0"
    For i=0 To valikkonappuloita-1
        valikkokohta(i,0)=Button(100,100+30*i,100,20,valikkokohta(i,1))
    Next i

    //jos nappula numero 2 eli lopetus on alhaalla niin lopetetaan
    If Int(valikkokohta(2,0)) Then End 
    
    DrawScreen
Forever

// x, y koordinaatit
// w,h koko
// t painikkeen teksti
// s painikkeen pyöreys
Function Button(x,y,w,h,t$,s=5)
    If MouseX()>x And MouseY()>y And MouseX()<x+w And MouseY()<y+h Then
        If MouseDown(1) Then Color 180,180,180 Else Color 240,240,240
        If MouseUp(1) Then Return True  
    Else
        Color 200,200,200
    EndIf          
        Box x+s,y,w-(s*2),h     
        Box x,y+s,w,h-(s*2)
        Circle x,y,s*2
        Circle x+w-s*2,y,s*2
        Circle x+w-s*2,y+h-s*2,s*2
        Circle x,y+h-s*2,s*2
        Color cbblack
        CenterText x+w/2,y+h/2-TextHeight(t)/2,t$
EndFunction 

Code: Select all

Print "MOI"
GoTo yli

Print "Tätä riviä ei ikinä tulostu."

yli:
Print "Tänne hypättiin!"

WaitKey

Code: Select all

SCREEN 640,480,0,cbfullscreen

 Repeat
        Button(100,100,100,20,"Pelaa") Then Goto yli
        Button(100,130,100,20,"Asetukset")
        if Button(100,160,100,20,"Poistu") Then 
              End    // kun painetaan nappulaa
        EndIf
        DrawScreen
   Forever

   // x, y koordinaatit
   // w,h koko
   // t painikkeen teksti
   // s painikkeen pyöreys
   Function Button(x,y,w,h,t$,s=5)
        If MouseX()>x And MouseY()>y And MouseX()<x+w And MouseY()<y+h Then
            If MouseDown(1) Then Color 180,180,180 Else Color 240,240,240
            If MouseUp(1) Then Return True 
        Else
            Color 200,200,200
        EndIf         
            Box x+s,y,w-(s*2),h     
            Box x,y+s,w,h-(s*2)
            Circle x,y,s*2
            Circle x+w-s*2,y,s*2
            Circle x+w-s*2,y+h-s*2,s*2
            Circle x,y+h-s*2,s*2
            Color cbblack
            CenterText x+w/2,y+h/2-TextHeight(t)/2,t$
    EndFunction 


yli:
Const PAINOVOIMA = -0.1 

Code: Select all

MENU:     'Valikon koodi
Repeat
	Text 10,10,"Menu"
	If Keyhit(CbKeyReturn) Then GoTo LOAD:     'Jos entteriä painetaan -> siirrytään lataus osioon
	If Keyhit(1) Then End     'Esc = lopetus
	
	Drawscreen
Forever

LOAD:     'Kuvien & objektien lataus
//Lataus hommelit
GoTo GAME     '...jonka jälkeen siirretään suoritus itse peliin

GAME:     'Pelin koodi
Repeat
	Text 10,10,"Game"
	If Keyhit(2) Then     'Jos '1' näppäintä painetaan... 
		ClearObjects     '-tyhjennetään muisti objekteista (lisää äänille & kuville omat poistot)
		GoTo MENU     'ja pompataan valikkoon
	Endif
	If Keyhit(CbKeySpace) Then GoSub PAUSE     'Välilyönti = suoritus siirtyy PAUSE silmukkaan

	Drawscreen
Forever

PAUSE:     'Pause osio, johon voidaan lisätä valikko
Repeat
	Text 10,10,"Pause"

	Drawscreen
Until KeyHit(CbKeySpace)     'välilyöntiä painetaan...
Return     'suoritus takaisin peliin