Pikapelikisa 17

[phons]

Sori jos tulee myöhäs, mut kuiteski. Perussäännöt:

Kieli: CB
Ei ennen luotua mediaa.
kisa-aika 18:00 - 20:00
kuka tahansa voi osallistua.

Aihe: Mahdollisimman hauska peli, ohjelma tai joku muu.

[YTY]

Tarkoitat varmaankin pikakisaa?

[phons]

Oi hitto juu. Jos joku ihmettelee nimestä nin se on Pikapelikisa 17 ei Viikkokisa 17. Tuli pieni erehdys. Voiko sen muuten muuttaa?

[Jani]

voi.

muutat ekan viestin otsikkoa.

[Awaclus]

Heh

Code: Select all

Print "Kaksi mummoa meni mustikkaan, mutta toinen ei mahtunut o.O"
WaitKey

[temu92]

Nyt kyllä, hauskin peli maailmassa!

Code: Select all

    SCREEN 1024, 768

    SetFont LoadFont("Tahoma", 30, 1)

    Dim rows(10) As String
    Gosub lines
	
	While Not pressed
		If Keyhit(28) Then pressed = true
		
		Text 20, 20, "Paina entteriä pelataksesi!"
		
		Drawscreen
	Wend
	
    Repeat
		pressed = false
		
       For i=0 To 10
          CenterText 512, 384, rows(i), 2
          DrawScreen
          Wait 3000
       Next i
       DrawScreen
       
       While Not pressed
			If Keyhit(28) Then pressed = true
			
			Text 20, 20, "Paina entteriä pelataksesi uudelleen!"
			
			Drawscreen
		Wend
    Forever

    lines:
       rows(0)      = "HÄHHÄHÄÄ!"
       rows(1)      = "HÖHHÖÖHÖÖ!"
       rows(2)      = "LOL"
       rows(3)      = "HAHAHA"
       rows(4)      = "ROFL"
       rows(5)      = "ROFLMAO!!"
       rows(6)      = "ROFLCOPTERRRR!!!!!!"
       rows(7)      = "HAHHAHAA, ONPA HAUSKAA"
       rows(8)      = "LMAOLMAO"
       rows(9)      = "EIKÖ OLEKIN HAUSKA PELI!?"
       rows(10)   = "MHAHAHAMWAHAHAHAAAA"
    Return

[kaneli2000]

Teh hauskin peli ever: Älä paina punaista nappia.

Code: Select all

//Teh hauskin-peli-ever
//Tää osaa sit olla kökkö, tein about 45 minuutissa ja siihen sisältyy se että kävin välissä pizalla.

kohta=1
oldkohta=kohta

Repeat

UpdateGame
DrawGame

Color 90,0,0
Circle 24,24,112

Color cbRed
Circle 30,30,100

Color color_nappi,color_nappi,color_nappi
Circle 40,40,80

If MouseX()<136 And MouseY()<136 And MouseX()>24 And MouseY()>24 And MouseDown(1) Then
    color_nappi=180
Else
    color_nappi=255
EndIf

Color cbWhite
Locate 24,230

If kohta <> oldkohta Then
    ClearText
    oldkohta=kohta
    Locate 24,230
EndIf

If kohta=1 Then AddText "Älä paina punaista nappia."
If kohta=2 Then AddText "Älä paina punaista nappia piste."
If kohta=3 Then AddText "Jumankauta jätkä, älä paina punaista nappia!"
If kohta=4 Then AddText "En edes huomaa että painat punaista nappia."
If kohta=8 Then AddText "HERRA ISÄ ÄLÄ PAINA SITÄ NAPPIA *@#¤¤#@£€€"
If kohta=9 Then AddText "*Voi prkl...*"
If kohta=10 Then AddText "..."

If MouseX()<136 And MouseY()<136 And MouseX()>24 And MouseY()>24 And MouseUp(1) Then kohta +1
If kohta=11 Then kohta=1


DrawScreen
Forever

Jäi vaan vähän lyhyeksi kun aika loppu...

[skinkken]

tässä on hauska peli:
hauska peli

[KankiKalle]

Oma pelini.
edit: Huh ehdinpäs! Huomasin tämän kilpailun vasta klo 19:50, joten pitihän sitä suurena huumorin ystävänä osallistua:D

Code: Select all

Repeat 
   
   Select kohta 
 
 Case 0
  
  Color cbblue 
    Text 20,10,"Tämä on hauska peli. "
    Text 20,20,"Oletko valmis? "
    Text 20,30,"Olen valmis  (1)"
    Text 20,40,"En ole valmis  (2)"
    
    If KeyHit (cbkey1) Then kohta=1
    If KeyHit (cbkey2) Then kohta=2
    
    Case 1
    Color cbyellow 
    Text 20,60,"Hieno olet valmis! Harmi vaan "
    Text 20,70,"että minä en saanut tätä peliä"
    Text 20,80,"valmiiksi:)"
    
    
    
   Case 2
   Color cbred 
    Text 20,60,"No sepäs on hauskaa!"
    Text 20,70,"Mutta minulla on vielä hauskempaa"
    Text 20,80,"koska et päässyt peliä läpi:D"
    
    EndSelect 
    DrawScreen 
Forever 

[Tuxu]

Code: Select all

//Sherlock?
//By: tuxu
//
//

FrameLimit 40

arial=LoadFont ("Arial",20) 
coolb=LoadFont("coolb")


AddText "Kumita hiirellä harmaata. "
AddText "Takaa paljastuu kirjoitus."
AddText "Kun saat siitä selvää kirjoita vastaus"
AddText "tähän ja paina Enter:"

//
päällys=MakeImage(400,300)
teksti=MakeImage(400,150)
DrawToImage päällys
Color cbsilver
Box 0,0,400,300,1
DrawToScreen
DrawToImage teksti
SetFont arial
Color cbyellow
Text 10,0,"Pikapelikisa"
DrawToScreen
pisteet=100

SetFont coolb
Repeat

    DrawImage teksti,20,180
    DrawImage päällys,0,0

    jaa$=Input(">>")
    If KeyHit(28) Then Goto tarkistus
    
    If MouseHit(1) Then 
        Pisteet-1
        DrawToImage päällys
        Color cbblack
        Circle MouseX(),MouseY(),20
        DrawToScreen
    EndIf

    DrawScreen
    
Forever

tarkistus:
asd$="Pikapelikisa"
CloseInput 
If jaa$=asd$ Then 
ClearText 
AddText "OIKEIN!!! Olet sherlock."
AddText "Pisteesi:"+pisteet
Else
ClearText
AddText "Ei sinne päinkään..."
EndIf
DrawScreen                     
WaitKey        

Huh. Kiireessä tein kun huomasin tämän vasta n. kl0 19.30. Tämmösen kurasen väänsin, kun idea piti temmata nopeesti jostain. Koodi on suuri purkkakasa. Eikä peli edes ole hauska. Antakaa anteeksi. Saahan sitä yrittää...

[phons]

Okei, pistän kohta äänestyksen. Ja kisa-aika on NYT LOPPU. Tässä vielä banneri voittajalle(en osaa laittaa img tageihin sry ): http://img179.imageshack.us/img179/3867/ppk17pq5.png

[KankiKalle]

Öh, eikö kisa-aika lopukkaan tasan klo 20:00 vaan siihen jää päälle muutama minsa "armon aikaa"?
(onko tuo armon aika muuten yhdyssana?)

[phons]

Yleensä siihen on annetu se armon aika(ei tietääkseni ole yhdyssana) niille mattimyöhäisille jotka haluavat mukkan.

[Awaclus]

Se armon aika on ollut 10 minuuttia ja se on nettiin uploadaamista varten. Pelin pitää olla valmis tasan 20:00.

[Pettis]

hohhoijjaa... Jos pitäisitte vaan ne sovitut ajat eikä aleta lisäajan lisäajan lisäaikoja jakamaan.