Run away!

Jaa meneillään olevat projektisi tai valmiit pelit muun yhteisön kanssa täällä.
Post Reply
Coolariko
Newcomer
Posts: 41
Joined: Mon Sep 24, 2007 6:14 pm

Run away!

Post 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
Paras koodi ikinä:
repeat
if keydown (cbkeys) then makeerror "kuolit"
drawscreen
forever
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Run away!

Post 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.
User avatar
Ilmuri
Developer
Developer
Posts: 277
Joined: Sun Aug 26, 2007 2:46 pm
Location: \o

Re: Run away!

Post by Ilmuri »

Coolbasicissa on myös oma komento ruutukaappauksia varten.
CoolBasic henkilökuntaa
Kehittäjä
CoolBasic Classic
User avatar
elmo123
Active Member
Posts: 153
Joined: Sun Sep 09, 2007 4:19 pm

Re: Run away!

Post 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. :x

Grafiikat oli melko rumat, vaihda GIMPpiin sillä saa hienosti tehtyä taustan.
Attachments
Tässä olisi taustan sijaan logoehdokas, olisi kiva jos pistäisit kiitoksiin nimeni
Tässä olisi taustan sijaan logoehdokas, olisi kiva jos pistäisit kiitoksiin nimeni
runawaylogo2.png (24.08 KiB) Viewed 4802 times
Kiinnostuin pelien tekemisestä ennen 1. luokkaa.
Sitten 3. luokalla tuli CB. Ja siitä se alkoi.

Blender! TF2! CB! Game Maker! Nokia-mollaus! Kitaransoitto! Breakdance! MadTracker! Minecraft!
Post Reply