Pikapelikisa 9 - Kisa on alkanut

dem0
Newcomer
Posts: 43
Joined: Wed Mar 19, 2008 7:36 am

Re: Pikapelikisa 9 - Kisa on alkanut

Post by dem0 »

Code: Select all

AddText "Valicco 0.1"
AddText "1 - Mene pois"
AddText "2 - Lopeta"
AddText "3 - Sammuta"

Repeat
    inbut$ = Input(":o ")
    Select inbut
        Case 1: End
        Case 2: End
        Case 3: End
    End Select
    DrawScreen
Forever
Voitinko?

Sanoisin että harvinaisen tylsä aihe, ei jaksanut tehdä mitään.
User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Pikapelikisa 9 - Kisa on alkanut

Post by TheDuck »

Asd, aika loppu ja salkkarit tuli, ei tästä tullu mittää -.-

Code: Select all

SCREEN 640,480,0,cbfullscreen
arial = LoadFont("arial", 65, 1,1,1)
coolb = LoadFont("coolb", 20)

mouse = MakeImage(16,16)
DrawToImage mouse
    Color cbDarkRed
    Line 16,0,0,16
    Line 0,0,0,16
    Line 0,0,16,0
DrawToScreen 
ShowMouse mouse

Repeat
    SetFont arial
    Color cbred
    Text 250,10,"ihQpeli"
    r=Rand(0,255)
    Color r,r,r
    Circle 0,0,201,0
    Line 100,100,100+Sin(Timer()/10)*100,100+Cos(Timer()/10)*100
    SetFont coolb
    If painike(325,120,"UUSI PELI") Then End
    If painike(325,180,"LOPETA") Then End
    Color cbgreen
    Box 50, 400, 150, 50, 0
    Text 52, 402, "FPS: "+FPS()
    Text 52, 422, "Made by TheDuck"
    DrawScreen
Forever 

Function painike(x,y,txt$)
    If MouseX()>x-10 And MouseX()<x+TextWidth(txt$)+20 And MouseY()>y-10 And MouseY()<y+TextHeight(txt$)+20 Then
        Color cbred
        If MouseHit(1) Then Return 1
    Else
        Color cbdarkred
    EndIf 
    Box x-10,y-10,TextWidth(txt$)+20,TextHeight(txt$)+20,0
    If MouseX()>x-10 And MouseX()<x+TextWidth(txt$)+20 And MouseY()>y-10 And MouseY()<y+TextHeight(txt$)+20 Then
        Color 220,0,0
    Else
        Color cbred
    EndIf 
    Box x-9,y-9,TextWidth(txt$)+18,TextHeight(txt$)+18,1
    Color cbblack
    Text x,y,txt$
EndFunction 
Jos joku onneton menee äänestämään niin repeen >:D
^^
Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Pikapelikisa 9 - Kisa on alkanut

Post by Awaclus »

Nyt vähän hidastelin; anteeksi. Nyt pistän äänestystopicin pystyyn.
Post Reply