Pikapelikisa16

Post Reply
User avatar
skinkken
Advanced Member
Posts: 453
Joined: Sat Sep 01, 2007 4:00 pm
Location: Helsinki

Pikapelikisa16

Post by skinkken »

Tällä kertaa kisan aiheena on tehdä mahdollisimman ärsyttävä peli, mutta se pitää voida sammuttaa esc:stä.
Säännöt wrote:* Kilpailuaika on perjantaina 2 päivä, kello 18:00-20:00. Työ tulee olla kisatopikissa (aukeaa 18:00) viimeisintään kello 20:10.
* Pelipaketissa tulee olla mukana pelin lähdekoodi.
* Toteutuskieli Coolbasic.
* Ennen kilpailua luotua mediaa tai koodia ei saa käyttää.
* Peliin tulee sisältyä kilpailun alkaessa paljastuva elementti.
Osallistuja:
-Eurosisu

Edit: Tulee niitä pelejä varmaan enemmänkin kuin yksi.
Valmiit pelit: House of Horrors , Battle Zone , Über Ball , Itdoti , Space Chaos , Bloxxplosives
Projekti jota teen ehkä joskus vielä: viewtopic.php?f=11&t=2636 <-- Tämä rivi päivitetty 14.1.2013
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Pikapelikisa16

Post by Viltzu »

Keh... Mikä aihe >_> Mutta joo, tähän voin osallistuakin :D Hmp... Jaahas, cbFUN:ta ei saa käyttää... ;D
EDIT:

Kah, en jaksakkaan :D Tai oikeestaan en kerkee...

Last edited by Viltzu on Fri Jan 02, 2009 7:42 pm, edited 2 times in total.
Eur0-5isu
Active Member
Posts: 106
Joined: Mon Sep 01, 2008 5:12 pm

Re: Pikapelikisa16

Post by Eur0-5isu »

En keksinyt muuta :D:

Code: Select all

SCREEN 640,480,0,cbfullscreen

Type FAILS
    Field t$
EndType 


hiiri=MakeImage(7,7)
DrawToImage hiiri
Line 3,0,3,7
Line 0,3,7,3
DrawToScreen
ShowMouse hiiri
hiiriobj=MakeObject()

nappula=MakeObject()
nappulakuva=MakeImage(16,16)
DrawToImage nappulakuva
Color cbred
Box 0,0,16,16,0
Color cbdarkred
Box 1,1,14,14
DrawToScreen

PaintObject nappula,-nappulakuva

Repeat

    rx=MouseX()
    ry=MouseY()
    
    rx=rx+Rand(-10,10)
    ry=ry+Rand(-10,10)  
    
    PositionMouse rx,ry

    PositionObject hiiriobj,MouseWX(),MouseWY()
    
    If ObjectsOverlap (hiiriobj,nappula) And MouseUp(1)
        MakeError "OMG! ''Vain'' "+p+" failausta..."
    ElseIf ObjectsOverlap (hiiriobj,nappula)=0 And MouseUp(1)
        uusiFAIL.FAILS= New(FAILS)
        uusiFAIL\t$="fail!"
        Locate MouseX(),MouseY()
        AddText ""+uusiFAIL\t$
        p+1
    EndIf
    
    Color cbwhite
    CenterText 320,40,"KOITAS PAINAA PUNAISTA NAPPULAA NIIN PÄÄSET POIS :)"

    If TIMER()>aika+500 Then 
        liikkuu=1
        aika=TIMER()
    EndIf 

    If liikkuu=1
        ScreenPositionObject nappula,Rand(0,(640-32)),Rand(0,(480-32))
        liikkuu=0
    EndIf
    
DrawScreen
Forever
Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Pikapelikisa16

Post by Awaclus »

Jos tämä ei ole jonkun mielestä ärsyttävä, niin silloin kannattaa tarkistaa onko äänentoisto päällä.

Lähdekoodi unohtui pelin paketista, mutta toivottavasti hyväksytään jos sen nyt kirjoitan tähän:

Code: Select all

Print "Paina jotain näppäintä kuullaksesi äänen"
Repeat
  WaitKey
   If SoundPlaying(kauhea) Then
   g=1 'en ole varma pitääkö tässä olla jotain
   Else
   kauhea=PlaySound ("Media\kauhee.mp3")
  EndIf
Forever 
User avatar
skinkken
Advanced Member
Posts: 453
Joined: Sat Sep 01, 2007 4:00 pm
Location: Helsinki

Re: Pikapelikisa16

Post by skinkken »

Kisa aika on loppunut, mutta pelejä voi vielä laittaa klo 20.10 asti
EDIT:

.

Valmiit pelit: House of Horrors , Battle Zone , Über Ball , Itdoti , Space Chaos , Bloxxplosives
Projekti jota teen ehkä joskus vielä: viewtopic.php?f=11&t=2636 <-- Tämä rivi päivitetty 14.1.2013
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Pikapelikisa16

Post by temu92 »

En tiedä kelpaako peliksi :P

Code: Select all

SCREEN 1024, 768

SetFont LoadFont("Tahoma", 30, 1)

Dim rows(10) As String
Gosub lines

Repeat
	For i=0 To 10
		CenterText 512, 384, rows(i), 2
		DrawScreen
		Wait 3000
	Next i
	DrawScreen
	Wait 10000
Forever

lines:
	rows(0)		= "HÄHHÄHÄÄ!"
	rows(1)		= "*kröhm* siis.. Moi!"
	rows(2)		= "Terve siellä kuka oletkaan."
	rows(3)		= "Minä olen peli nimeltään Ärsyttävä Peli."
	rows(4)		= "Joo, tiedän että se on tyhmä nimi..."
	rows(5)		= "mutta.."
	rows(6)		= "SE ONKIN TOTTA!! MWHAHAHAHAAA!!"
	rows(7)		= "Aijaa miten minä olen Ärsyttävä Peli?"
	rows(8)		= "ET VOI PÄÄSTÄ MINUA LÄPI KOSKAAN!"
	rows(9)		= "EIKÖ OLEKIN ÄRSYTTÄVÄÄ!?"
	rows(10)	= "MHAHAHAMWAHAHAHAAAA"
Return
User avatar
skinkken
Advanced Member
Posts: 453
Joined: Sat Sep 01, 2007 4:00 pm
Location: Helsinki

Re: Pikapelikisa16

Post by skinkken »

"Poks"
Pelejä ei enää vastaanoteta.

Teen äänestyksen...
Valmiit pelit: House of Horrors , Battle Zone , Über Ball , Itdoti , Space Chaos , Bloxxplosives
Projekti jota teen ehkä joskus vielä: viewtopic.php?f=11&t=2636 <-- Tämä rivi päivitetty 14.1.2013
Post Reply