Pikku pelit

[DatsuniG]

Tässä olisi pieni pallon_väistely_peli. Oma ennätys 33s

Code: Select all

FrameLimit 40

Type DOTT
Field x#
Field y#
EndType 

uusi=Timer()
alltime=Timer()
Timee=5000

Repeat

If Timer()>uusi+Timee Then 
pallo.DOTT = New(DOTT)
a=Rand(1)
Select a
Case 1
pallo\x=-50
pallo\y=pallo\y-Rand(0,ScreenHeight())
Case 0
pallo\x=pallo\x+ScreenWidth()+25
pallo\y=pallo\y+Rand(0,ScreenHeight())
EndSelect
uusi=Timer()
timee-500
If timee<0 Then timee=100
EndIf 

For pallo.DOTT = Each DOTT
    pallo\x=CurveValue(MouseX(),pallo\x,20.0)
    pallo\y=CurveValue(MouseY(),pallo\y,20.0)
    Color cbwhite
    Circle pallo\x,pallo\y,10
    If pallo\x>MouseX()-5 And pallo\x<MouseX()+5 And pallo\y>MouseY()-5 And pallo\y<MouseY()+5 Then 
    MakeError "Selvisit: "+(Timer()-alltime)/1000+"s"
    EndIf 
Next pallo 

Text 0,0,Abs((alltime-Timer())/1000)+"s"

DrawScreen

Forever 

[Viltzu]

Tässä olisi pieni pallon_väistely_peli. Oma ennätys 33s

Code: Select all

...koodia...

Mainio peli. =) Ekalla yrityksellä 30 sekuntia ja neljännellä yrityksellä 35s! Jee...
Edittaan jos parannan enkaani^^

EDIT:

Nyt ennätys on 36s =P Oon toisena

EDIT:

Ennätys on nyt 47s! Oon kolmantena...

EDIT:

Noniin nyt oon kakkosena tuloksella 287s =D

[SuojelusPerkele]

Wau, mainio peli, addiktoivaa puuhaa..

Tämän hetkinen score:


piti yrittää neljästi


E: Ohhoh

[phons]

Tämä on yksi parhaista aiheista täällä, koska pidän tällaisista pikkupeleistä. Varsinkin niistä joissa täytyy saada joku mahdollisimman hyvä tulos. Ei tarvitse koko ajan kilpilla itsensä kanssa.

[rami123]

minullakin tuli tuosta mahtavasta pallopelistä 37s ja miten ihmeessä voi saada 133s tuosta

[kaneli2000]

HohHohHohHohHohoooooo!!! Paras (julkaistu o_O) hiscore pallopelissä:

EDIT: höh, harakka tuli ja läjäytti paremman

[Harakka]

Kymmenen minuutin jälkeen alkoi kyllästyttää.


(Ekat 6 minuuttia renderöin biisiä ja peli lagasi pahanpuoleisesti, loppuajankin fps oli aika matalaa luokkaa. FPS-riippumattomuus tekisi pisteistä ehkä vertailukelpoisempia.)

[DatsuniG]

Tein tuon vain testatakseni CurveValueta ja aikaa meni se ~4 min. Kyllähän voin tehdä tuosta haastavamman : )

[esa94]

Pistä siitä vaan versio, joka laskee, kuinka monta framea on mennyt aloituksesta. Sen luulis tasoittavan, vai senkö nyt juuri teet..?

[Olwi]

30sekuntia hiirinäppäimillä

[MAVmaggot]

Tuossa on hyvä taktiikka vetää hiiri ulos ikkunasta ja sitten kiertää ikkunan toiselle puolelle Itse sain tuolla tekniikalla heti ekalla yrityksellä 180 pojoo.

[MaGetzUb]

Juu, mäkin käytin samaa taktiikkaa ja sain jotai 300s leikittyy.. meinas tulla vähä hiki..

[SuojelusPerkele]

Helpoin taktiikka hennoo olla että otat kiinni ikkunan yläreunasta ja liikutat ikkunaa hiukan, etkä päästä irti hiiren napista. Peli näyttää pysähtyneen mutta kun irti päästät niin sekunnit ovatkin kuluneet koko ajan.. Sillä taktiikalla saa käytännössä loputtoman pitkän ajan, riippuen siitä miten pitkään etusormi kestää

[kaneli2000]

Teh Battle of Balls

Tein tämmösen kun olin mummolassa eikä ollu mitään tekemistä. Mietin että "teenpä pelin, jossa ei käytetä kuin piirtokomentoja!" ja täs se nyt on.

Näppäimet:

Pelaaja 1 (sininen):
-Nuolista ohjaa
-Numpad-0 "ampuu"

Pelaaja 2 (punainen):
-W,A,D ohjaa
-E "ampuu"

Ohjeet:

Jos pallot ovat aseen kantaman päässä toisistaan (75 pixeliä ) ja esim. punainen ampuu, siniseltä lähtee 25 pointsia healtista.
Kun toinen on kuollut peli loppuu.

Aika yksinkertaista?

Ainiin, ja sitten se itse peli:

Code: Select all

    SCREEN 800,600,0,0
    SAFEEXIT OFF

    menu:

    Cls

    selected=1

    Repeat

        SetFont LoadFont("impact",70)
        CenterText 400,50,"THE BATTLE OF BALLS!"

        SetFont LoadFont("coolb")
        CenterText 375,350,"Start game"
        CenterText 425,400,"Exit game"
       
        Color cbGreen
        If selected=1 Then
            Box 327,346,100,20,OFF
        ElseIf selected=2 Then
            Box 377,398,100,20,OFF
        EndIf
       
        If KeyHit(208) Then selected +1
        If KeyHit(200) Then selected -1
       
        If selected > 2 Then selected = 2
        If selected < 1 Then selected = 1
       
        If selected=1 And KeyHit(cbKeyReturn) Then Goto game
        If selected=2 And KeyHit(cbKeyReturn) Then End
       
        DrawScreen

    Forever

    game:

    Cls

    p1_x=200
    p1_y=50
    p2_x=600
    p2_y=50

    p1_life=100
    p2_life=100

    p1_heart=MakeObject()
    p2_heart=MakeObject()

    ClsColor cbBlack

    FrameLimit 50

    Repeat

    oldgamma=gamma

    DrawGame

        PositionObject p1_heart,p1_x +10,p1_y +10
        PositionObject p2_heart,p2_x +10,p2_y +10

        'Lattia
        Color cbWhite
        Line -300,505,800,505





        '-------------------------------------------------------------------
        'Player 1
        Color cbBlue
        Circle p1_x,p1_y,20,OFF
        Text 10,10,"P1 energy - "+p1_life
        Box 10,25,p1_life,10,OFF
        If p1_reload > 0 Then Text 10,40,"RELOADING BOMBER..."
       
        'P1 - hyppiminen
        If UpKey() And p1_jump=1 Then
            p1_yPlus#=4.5
            p1_jump=0
        EndIf
       
        p1_y - p1_yPlus#
       
        p1_yPlus# - 0.05

        If p1_maassa=1 Then p1_yPlus# = 0
       
        If p1_y > 500 Then
            p1_maassa=1
            p1_y = 500
        Else
            p1_maassa=0
        EndIf
       
        If p1_maassa=1 Then p1_jump=1
       
        'P1 - liikkuminen
        If RightKey() Then
            p1_x +1
        ElseIf LeftKey() Then
            p1_x -1
        EndIf

        'P1 - shield
        Color cbWhite
        If KeyHit(82) And p1_reload=0 Then
            Circle p1_x -65,p1_y -65,150,OFF
            gamma=150
            p1_reload=200
        EndIf

        If p1_reload > 0 Then p1_reload -1

        If p1_reload=200 And Distance(p1_x +10,p1_y +10,p2_x +10,p2_y +10) < 150 Then p2_life -25

        If p1_reload > 198 And Distance2(p2_heart,p1_heart) < 85 Then p2_life -25

        '------------------------------------------------------------------------
        'Player 2
        Color cbRed
        Circle p2_x,p2_y,20,OFF
        Text 660,10,p2_life+" - P2 energy"
        Box 680,25,p2_life,10,OFF
        If p2_reload > 0 Then Text 640,40,"RELOADING BOMBER..."
       
        'P2 - hyppiminen
        If KeyDown(cbKeyW) And p2_jump=1 Then
            p2_yPlus#=4.5
            p2_jump=0
        EndIf
       
        p2_y - p2_yPlus#
       
        p2_yPlus# - 0.05

        If p2_maassa=1 Then p2_yPlus# = 0
       
        If p2_y > 500 Then
            p2_maassa=1
            p2_y = 500
        Else
            p2_maassa=0
        EndIf
       
        If p2_maassa=1 Then p2_jump=1
       
        'P2 - liikkuminen
        If KeyDown(cbKeyD) Then
            p2_x +1
        ElseIf KeyDown(cbKeyA) Then
            p2_x -1
        EndIf

        'P2 - ampuminen
        Color cbWhite
        If KeyHit(cbKeyE) And p2_reload=0 Then
            Circle p2_x -65,p2_y -65,150,OFF
            gamma = 150
            p2_reload=200
        EndIf
       
        If p2_reload > 0 Then p2_reload -1

        If p2_reload > 198 And Distance2(p2_heart,p1_heart) < 85 Then p1_life -25

        'Muut
        If gamma > 0 Then gamma -5
       
        If oldgamma<>gamma Then ScreenGamma gamma,gamma,gamma
       
        If p1_life=0 Then
            ClearKeys
            Cls
            CenterText 400,200,"Player 2 wins!!!!"
            CenterText 400,560,"Press ESC to continue"
            If KeyHit(cbKey) Then Goto menu
        ElseIf p2_life=0 Then
            ClearKeys
            Cls
            CenterText 400,200,"Player 1 wins!!!!"
            CenterText 400,560,"Press ESC to continue"
            If KeyHit(cbKey) Then Goto menu
        EndIf
       
        If EscapeKey() Then Goto menu

        DrawScreen

    Forever

EDIT: Menu bugasi, korjasin

[nevssons]

Selvisin pallo pelissä minuutin ja piti mennä syömään :/

[Someday coder]

Tein tälläisen pikku pelin jossa pitää pysyä pallon sisällä joka liikkuu ympäri aluetta ja pienenee koko ajan, oma ennätys 24.2 sekuntia :D

Code: Select all

FrameLimit 55

SCREEN 640,480

r#=120
x=320
y=240
PositionMouse 320,240
check=Timer()
Repeat

Text 0,0,"Ympyrän koko alkuperäisestä: "+int((r/120)*100)+"%"

Text 0,15,"Olet selvinnyt: "+seks#+"s"

If Timer() => check + 10 Then
 seks=seks+0.01
 check=Timer()
EndIf 

 r=r-0.035

 Circle x-r,y-r,r*2,OFF
 
 
 If Timer() > vv+1750 Then
  AA:
  mx=Rand(0+r,640-r)
  my=Rand(0+r,480-r)
  If Distance(mx,my,x,y) < 100 Then Goto AA
  If Distance(mx,my,x,y) > 250 Then Goto AA
  vv=Timer()
 EndIf
 
 
 x=CurveValue(mx,x,60)
 y=CurveValue(my,y,60)
 
 If Distance(x,y,MouseX(),MouseY()) > r Then 
  MakeError "Selvisit "+seks+"s"
 EndIf 
 
 
 DrawScreen
Forever 

[naabster]

toihan on hyvä mini peli someday coder , kolme yritystä ja paras tulos 25,7505s XD

[MAVmaggot]

Jesh, rikoinhan tuon naabsterin ennätyksen, 25,9.. Ihan kiva peli mutta aika pitkäveteinen alussa.

[TheDuck]

Jännä pikkupeli. Ideakin on ihan kohdallaan. Oma ennätykseni on 24,5s.

[-Z-]

25.9905 toisella yrityksellä.