Page 1 of 1
Run away!
Posted: Sat Oct 27, 2007 11:20 pm
by Coolariko
Elikkäs otsikosta tiedätte kai jo että kyse on karkuun juoksu peli.
peli on pieni meni vaan 134 riviä koodia joten kyseessä ei ole mikään ihanaisen iso peli.
Tämä peli on ensimmäinen juoksupelini.
Pelaajia on 2.
pelaaja 1 liikkuu nuolinäppäimistä ja
pelaaja 2 liikkuu napeista wasd.
Screenshotteja ei voi laittaa kun en tiedä ohjelmaa millä ottaa kuvia.
No piteimmittä puheitta linkki
http://files.filefront.com/Run+awayzip/ ... einfo.html
Re: Run away!
Posted: Sat Oct 27, 2007 11:51 pm
by MAVmaggot
Coolariko wrote:Screenshotteja ei voi laittaa kun en tiedä ohjelmaa millä ottaa kuvia.
ei siihen ohjelmaa tarvita kun printscreen-näppäin on keksitty.
mutta pelistä; aika jännä idea. yksin peli olis saanut olla (ajan otto) ja pelin päätyttyä olisi voinut mennä valikkoon eikä pois pelistä.
siitä vaan koodaileen.
Re: Run away!
Posted: Sun Oct 28, 2007 5:25 am
by Ilmuri
Coolbasicissa on myös oma komento ruutukaappauksia varten.
Re: Run away!
Posted: Sun Oct 28, 2007 10:30 am
by elmo123
Code: Select all
menu:
Repeat
If TextBut(200,100,"Aloita peli",cbDarkRed,cbRed) Then Goto Peli
TextBut(200,125,"Lataa",cbDarkRed,cbRed,cbDark,1)
If TextBut(200,150,"Lopeta",cbDarkRed,cbRed) Then End
DrawScreen
Forever
Peli:
health = 100
Repeat
health-1
If health<1 Then Goto menu
DrawScreen
Forever
Function TextBut(x,y,txt$,r1,g1,b1,r2,g2,b2,r3=0,g3=0,b3=0,disabled = 0)
r=getRGB(RED)
g=getRGB(GREEN)
b=getRGB(BLUE)
x2=x-TextWidth(txt$)/2
y2=y-TextHeight(txt$)/2
If MouseX()>x2-1 And MouseX()<(x2+TextWidth(txt$))+1 And MouseY()>y2-1 And MouseY()<(y2+TextHeight(txt$))+1 And disabled = 0 Then
Color r2,g2,b2
gi=1
Else
Color r1,g1,b1
EndIf
If disabled Then Color r3,g3,b3
CenterText x,y,txt$,2
If gi And MouseHit(1) Then Return 1
EndFunction
Järkevämpi tapa toteuttaa alkuvalikko.
Tuo input näkyi muuten tuolla vasemmassa yläkulmassa rumasti.
Grafiikat oli melko rumat, vaihda GIMPpiin sillä saa hienosti tehtyä taustan.