Pikku pelit

Someday coder · Post by **Someday coder** » Tue Oct 21, 2008 9:41 pm

Lisää hiirellä pelattavia minipelejä o/ elikkäs tein tylsyyksissäni kaksi osaisen minipelin jossa ensin klikkaat vihreätä laatikkoa mah. paljon ja sitte koitat pitää hiiren poissa reunoista.
Oma enkka 10.69 sekuntia ja klikkasin laatikkoa 27 kertaa :P

Code: Select all

FrameLimit 55

SCREEN 640,480

PositionMouse 320,240

drop#=10
   prot=1
   g#=255
   of=1

Repeat


If Timer() > a+10 Then
 seks#=seks+0.01
 If prot=0 Then
 drop=drop*1.005
 EndIf 
EndIf 

If prot=0 Then
 PositionMouse MouseX(),MouseY()+drop
EndIf 
 
 If prot=0 Then
  
 
  If MouseX() >= 620 Then MakeError "Selvisit "+seks+"s ja klikkasit laatikkoa "+m+" kertaa"
  If MouseX() <= 20 Then MakeError "Selvisit "+seks+"s ja klikkasit laatikkoa "+m+" kertaa"
  If MouseY() >= 460 Then MakeError "Selvisit "+seks+"s ja klikkasit laatikkoa "+m+" kertaa"
  If MouseY() <= 20 then MakeError "Selvisit "+seks+"s ja klikkasit laatikkoa "+m+" kertaa"
  
  Color 255,0,0
  
  Line 10,10,630,10
  Line 630,10,630,470
  Line 630,470,10,470
  Line 10,470,10,10
 
  SetWindow "Mouse is falling :("
   Color 255,255,255
Text 25,25,"Don't hit the borders!!"
Text 25,40,"Time elapsed: "+seks+""
  
 Else
 
 SetWindow "Mouse is normal :)"
 
  If MouseX() >= 620 Then PositionMouse 610,MouseY()
  If MouseX() <= 20 Then PositionMouse 30,MouseY()
  If MouseY() >= 460 Then PositionMouse MouseX(),450
  If MouseY() <= 20 Then PositionMouse MouseX(),30
 
 Color 255,255,255
 Text 25,25,"Click box and keep it green"
 Text 25,40,"Time elapsed: "+seks+""
   Line 10,10,630,10
  Line 630,10,630,470
  Line 630,470,10,470
  Line 10,470,10,10
  If g <= 10 Then 
   k=0
   prot=0
  EndIf
  
   g=g-1.3
  
  Color 0,g,0

  
  

  If of=1 Then
  x=Rand(20,570)
  y=Rand(20,410)
  of=0
  EndIf 
  
  Box x,y,50,50,ON
  
  If MouseHit(1) And MouseX() >= x And MouseX() <= x+50 And MouseY() >= y And MouseY() <= y+50 Then
   If g >= 225 Then 
   g=255
   Else
   g=g+30
   EndIf
   of=1
   m=m+1
  EndIf 
  
  Box 0,470,xx,10,ON
  
  xx=(255-g)/255
  
  
  
 EndIf 
 
 
 DrawScreen
 
Forever

kaneli2000 · Post by **kaneli2000** » Wed Oct 22, 2008 9:10 pm

Teh sorsastuspeli - v 1.0

Ammu toosat (kaneli-slangia, tarkoittaa "sorsat") alas.

MikkoK · Post by **MikkoK** » Wed Oct 22, 2008 10:45 pm

kaneli2000 wrote:Teh sorsastuspeli - v 1.0

Ammu toosat (kaneli-slangia, tarkoittaa "sorsat") alas.

Teh sorsastuspeli wrote:Ammuit 36 lintua.

Juu eli 36 niitä ammuin mutta nyt katsomaan south parkit MTV:ltä ja nukkumaan.

MAVmaggot · Post by **MAVmaggot** » Wed Oct 22, 2008 10:55 pm

Jotain 30-40 luokkaa sain, kunnes tajusin että kädessäni on autoshotgun. Sitten sarjatulella tiputinkin 49 kappaletta. Niin ja kaikki lataukset kannattaisi tehdä heti alussa, koska nyt on turhauttavaa ladata aina uudestaan. Mutta lopuksi sanon että grafikat oli ihan kivat muuten ihan toimiva peli.

=Joku= · Post by **=Joku=** » Thu Oct 23, 2008 2:55 pm

Hei nimenvaihto sorsastuspelille!
Duckhunt? mites se pääs sinne!
aika mukava vaikka graffaa voit parannella.

MikkoK · Post by **MikkoK** » Thu Oct 23, 2008 4:06 pm

kaneli2000 wrote:Teh sorsastuspeli - v 1.0

Ammu toosat (kaneli-slangia, tarkoittaa "sorsat") alas.

Olen muuten miettinyt että miten tällainen peli tehdään eli siis olisiko neuvoja??
Meinaan FPS joku sorsastusjuttu.

Jonhu · Post by **Jonhu** » Thu Oct 23, 2008 5:13 pm

Itse olen tehnyt joitain cheatteja vain noihin peleihin.. Kieltä vaihtamalla ainakin saa nopeammaksi, mutta kyllä coolbasicilläkin saa tuon helposti pysymään korkealla (ellei ala efektejä väsäillä)

Liitteenä Aimbot yhteen sorsastuspeliin.. (koneen kelloa hidastamalla saat vielä paremman tuloksen

)

Someday coder · Post by **Someday coder** » Thu Oct 23, 2008 5:52 pm

Joo hieno peli tuo sorsastus mutta miks ihmeessä nii pitkä lataus aika :O

Post by **temu92** » Thu Oct 23, 2008 6:09 pm

Joskus vuonna papu koodaamani välilyönnin painamispeli (joo, ainaki 1-2v vanha).

Code: Select all

SCREEN 640,480

Dim a(3) As String

font=LoadFont("impact",25)
font2=LoadFont("impact",22)
SetFont font

uusi:

s=0
m=0
h=0
d=0

ClearKeys

Repeat
    Color 200,200,200
    SetFont font
    CenterText 320,10,"Näppäinmania"
    CenterText 320,16,"___________________"
    Color 255,255,255
    SetFont font2
    Text 50,70,"Pelissä on tarkoitus painaa välilyöntiä"
    Text 50,90,"mahdollisimman kauan."
    Text 50,300,"Aloita painamalla välilyöntiä. . ."
    DrawScreen
Until KeyHit(57)

sek=Timer()

Repeat
    Color 200,200,200
    SetFont font
    CenterText 320,10,"Näppäinmania"
    CenterText 320,16,"___________________"
    Color 255,255,255
    SetFont font2
    If Timer()>sek+1000 Then
        s+1
        sek=Timer()
    EndIf
    If s=60 Then s=0:m+1
    If m=60 Then m=0:h+1
    If h=24 Then h=0:d+1
    se=Len(Str(s))
    mi=Len(Str(m))
    ho=Len(Str(h))
    da=Len(Str(d))
    If se=1 Then a(0)="0"+Str(s) Else a(0)=Str(s)
    If mi=1 Then a(1)="0"+Str(m) Else a(0)=Str(m)
    If ho=1 Then a(2)="0"+Str(h) Else a(0)=Str(h)
    If da=1 Then a(3)="0"+Str(d) Else a(0)=Str(d)
    Text 50,70,"Olet pitänyt näppäintä pohjassa:"
    Text 50,90,a(3)+" : "+a(2)+" : "+a(1)+" : "+a(0)
    DrawScreen
Until KeyDown(57)=0

ClearKeys

Repeat
    Color 200,200,200
    SetFont font
    CenterText 320,10,"Näppäinmania"
    CenterText 320,16,"___________________"
    Color 255,255,255
    SetFont font2
    Text 50,70,"Häh!! Lopetit painamisen. Eikö kantti kestä."
    Text 50,110,"No, kummikin onnistuit painamaan välilyöntiä jopa"
    If Int(a(3))<>1 Then pa$="päivää" else pa$="päivä"
    If Int(a(2))<>1 Then tu$="tuntia" Else tu$="tunti"
    If Int(a(1))<>1 Then minu$="minuttia" else minu$="minutti"
    If Int(a(0))<>1 Then seku$="sekuntia" else seku$="sekunti"
    Text 50,130,Int(a(3))+" "+pa$+", "+Int(a(2))+" "+tu$+", "+Int(a(1))+" "+minu$+", "+Int(a(0))+" "+seku$
    Text 50,300,"Kokeile uudestaan painamalla välilyöntiä. . ."
    DrawScreen
Until KeyHit(57) Or KeyHit(1)

If KeyHit(57) Then Goto uusi

Jambo · Post by **Jambo** » Fri Oct 24, 2008 2:17 am

Tein joku päivä tällasen yksinkertasen matopelin ja laitan sen nyt tänne.

Pelissä on häiritsevä tausta ja pisteet.

LATAA MATO

-Z- · Post by **-Z-** » Fri Oct 24, 2008 9:51 am

Tässäpä minun pelini: Pysy hengissä painelemalla ylänuolta, varo osumasta seiniin, lattiaan tai kattoon. Yrittäkääpä yli tuhatta pistettä helpossa moodissa, ja viittäsataa vaikeassa!

Code: Select all

FrameLimit 30
Type LOODAT
    Field _x
    Field _y
    Field size
End Type


CenterText 200,50, "Tervetuloa lentopeliin!"
CenterText 200,65, "Paina mitä tahansa näppäintä"
CenterText 200,80, "aloittaaksesi helpon pelin"
CenterText 200,95, "tai paina H:ta aloittaaksesi vaikean pelin!"
DrawScreen
hoh = WaitKey()
If hoh=35 Then
    diff=200
Else
    diff=100
EndIf

Ymov#=0
X#=50
y#=100
The_game:
Repeat
    Color 100,100,100:Box X,Y,20,20
    Y=Y+YMov
    Ymov+0.1
    If UpKey() Then ymov-0.2
    
    
    score+1
    
    lvl#=score+2000
    level#=lvl#/1000
    
    If Tim=0 Then
    laatikko.LOODAT = New(LOODAT)
    laatikko\size=Rand(30,diff)
    laatikko\_x=400
    laatikko\_y=Rand(300-diff)
    Tim=30
    EndIf
    
    Color 0,150,0
    Box 0,50,400,1
    Box 0,249,400,1
        
    For laatikko.LOODAT=Each LOODAT
        laatikko\_x=laatikko\_x-level
        Color 0,150,0
        Box laatikko\_x-1,laatikko\_y-1,32,laatikko\size+2
        Color 100,60,0
        Box laatikko\_x,laatikko\_y,30,laatikko\size
        If BoxOverlap(X,Y,20,20,laatikko\_x,laatikko\_y,30,laatikko\size) Then dead=1
    Next laatikko
    If Tim>0 Then Tim-1
    
    Color 100,60,0
    Box 0,0,400,50
    Box 0,250,400,50
    
    If y<49 Or y>230 Then dead=1
    
    Color 255,255,255
    Text 0,285, score
    If dead=1 Then Goto go
    
    DrawScreen
Forever
go:
Color 255,255,255
AddText "Sait "+score+" pistettä!"
AddText ""
AddText "Paina näppäintä yrittääksesi uudelleen..."
DrawScreen
WaitKey
For laatikko.LOODAT=Each LOODAT
    Delete laatikko
Next laatikko
x=50:y=100:ymov=0:score=0:dead=0
ClearText
Goto The_game

Substance · Post by **Substance** » Fri Oct 24, 2008 5:42 pm

ylänuolenpainamispelistä:
1561 pistettä helpolla ja 544 pistettä vaikealla! (ekan kerran kun kokeilin vaikeata, niin ensimmäisenä tuli koko kentän korkeuden kattava boxi

)

skinkken · Post by **skinkken** » Fri Oct 24, 2008 6:09 pm

Tuo ylänuolen painamispeli oli kyllä aika paljon tuurista kiinni kun tulee mahdottomia kohtia,
Vaikka olihan se ihan hauska.

Matopeli oli aika pitkästyttävä(Tee siihen vaikka vastustajia) vaikka mato toimikin hyvin.
Siinä ei voi kuolla ennen kuin mato on tarpeeksi pitkä.

Sly_Jack0 · Post by **Sly_Jack0** » Fri Oct 24, 2008 6:27 pm

Ylänuoli-peli: Vaikea taso: 955 pistettä. (Kävi aika munkki. =P)

kaneli2000 · Post by **kaneli2000** » Sun Oct 26, 2008 10:36 am

Someday coder wrote:Joo hieno peli tuo sorsastus mutta miks ihmeessä nii pitkä lataus aika :O

Kaikki ladataan aina uudestaan, kun painaa start game nappia. se on isoin kömmähdys, mutta voin muuttaa sen kun CB-kuume nousee ylemäks.

Eur0-5isu · Post by **Eur0-5isu** » Sun Oct 26, 2008 10:55 am

Tulipahan tehtyä tälläinen kokonaan piirtokomennoilla tehty palikanväistelemispeli. Pelin nimi on Through the Boxes ja siinä tarkoituksena on ohjata alus laatikoiden keskellä niin ettei alus osu vasempaan reunaan.
Laatikot työntävät alusta tietenkin taakseppäin. Alus voi läpäistä nimensä mukaan yhden laatikon mutta kaksi tai useampi laatikkoa työntävät sen ja pelaajan pitää kiertää ne. Alussa on pientä alkulämmittelyä ennen varsinaista sokkeloa.
Liikutetaan nuolinäppäimistä.

http://www.savefile.com/files/1859570

DatsuniG · Post by **DatsuniG** » Sun Oct 26, 2008 3:30 pm

Väsäsinpäs tämmöisen ristinollan. Ei ole mahdoton : P

Ratkaisu löytyy tästä maalaamalla: 2,2;3,3;3,1;3,2

EDIT:

Tässä pelataan siis AI:ta vastaan jos joku ei tajunnut : P

TheDuck · Post by **TheDuck** » Tue Oct 28, 2008 4:26 pm

Haa voitin! Ja en ees kattonu tota sun spoileria.

DatsuniG · Post by **DatsuniG** » Fri Nov 14, 2008 3:58 pm

Postataanpas teille pientä ajankulua. Tarkoituksena on siis painaa nappia mahdollisimman monta kertaa 10s sisällä.

Code: Select all

Const SIZE=100
Started=False 
count=0

Repeat

SetWindow ""+count

If MouseHit(1) And MouseX()>ScreenWidth()/2-SIZE/2 And MouseX()<ScreenWidth()/2+SIZE/2 And MouseY()>ScreenHeight()/2-SIZE/2 And MouseY()<ScreenHeight()/2+SIZE/2 Then 
    If started=True Then count+1
    If started=False Then 
        started=True
        tst=Timer()
        count+1
    EndIf 
EndIf 

If started=True Then 
    Color cbwhite
    Text 0,0,10-(Timer()-tst)/1000+"s"
Else 
    Color cbwhite
    Text 0,0,"10s"
EndIf 


Color cbred
Circle ScreenWidth()/2-SIZE/2,ScreenHeight()/2-SIZE/2,size 

Color cbblack 
Text ScreenWidth()/2-SIZE/2+SIZE/4,ScreenHeight()/2-size/12,"PAINA!!"

If (Timer()-tst)/1000=10 Then MakeError "Painoit "+count+" kertaa!"

DrawScreen
Forever

Ja oma ennätykseni:

skinkken · Post by **skinkken** » Fri Nov 14, 2008 4:12 pm

Minun ennätykseni on 84, mutta tässä yksi kuva:

EDIT:

CoolBasic Forums

Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit