Search found 6 matches
- Tue Aug 19, 2014 4:52 am
- Forum: Projektit
- Topic: cbLife - elämänpeli
- Replies: 2
- Views: 4661
Re: cbLife - elämänpeli
Ihan mielenkiintonen pätkä, thanks :) Tässä muuten pohja omalle toteukselle: //Paina välilyöntiä Const SW=800 Const SH=600 Rate=50 //Päivitysnopeus cSize=50 //Solujen koko sX=SW/cSize sY=SH/cSize cells=sX*sY cell_i=1 SCREEN SW,SH,0,1 Dim cGrid(cells,4) //1 = X //2 = Y //3 = Elossa //4 = Naapurit //A...
- Sun Aug 10, 2014 10:43 pm
- Forum: Projektit
- Topic: cbLife - elämänpeli
- Replies: 2
- Views: 4661
cbLife - elämänpeli
Tervehdys tännekin autiotaloon.
Kaivoin pitkästä aikaa vanhan kunnon CB:n esiin ja töräytin oman versioni Conwayn kuuluisuudesta.
Idea kaikille varmasti tuttu, joten asiaan.
Tuosta latauslinkkiä:
https://drive.google.com/file/d/0B0UknX ... sp=sharing
Kaivoin pitkästä aikaa vanhan kunnon CB:n esiin ja töräytin oman versioni Conwayn kuuluisuudesta.
Idea kaikille varmasti tuttu, joten asiaan.
Tuosta latauslinkkiä:
https://drive.google.com/file/d/0B0UknX ... sp=sharing
- Mon Jan 23, 2012 6:13 pm
- Forum: Ongelmat
- Topic: Valikko-ongelmia
- Replies: 15
- Views: 7328
Re: Valikko-ongelmia
Silmukoiden kanssa kikkailu on tosiaan hyvä opetella. Itse toteutan valikko ja pause systeemit jokseenkin tähän tyyliin: MENU: 'Valikon koodi Repeat Text 10,10,"Menu" If Keyhit(CbKeyReturn) Then GoTo LOAD: 'Jos entteriä painetaan -> siirrytään lataus osioon If Keyhit(1) Then End 'Esc = lopetus Draws...
- Sat Jan 07, 2012 5:36 pm
- Forum: Esimerkit ja tutoriaalit
- Topic: Efektit
- Replies: 678
- Views: 309212
Re: Efektit
Pari sini & cosini kikkailua: Type FORM Field fX Field fY Field fID End Type Type STARS Field sX Field sY EndType SCREEN 1200,800,0,1 FrameLimit 30 For i=0 To 200 newStar.STARS=New(STARS) newStar\sX=Rand(-200,ScreenWidth()+200) newStar\sY=Rand(-200,ScreenHeight()+200) Next i boxes=1 Repeat For i=0 T...
- Thu Mar 17, 2011 7:59 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2011)
- Replies: 989
- Views: 317894
Re: Tyhmät kysymykset (I/2011)
Taas kysymys :roll: miten saan objektin kääntymään hiireen päin :?: RotateObject objekti,-GetAngle(ObjectX(objekti),ObjectY(objekti),MouseWX(),mouseWY()) Mielestäni ehdottomasti kätevin tapa olisi kiinnittää objecti hiireen: hiiri=Makeobject() obj1=Loadobject("media/soldier.bmp",72) Repeat Position...
- Tue Mar 15, 2011 10:54 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2011)
- Replies: 989
- Views: 317894
Re: Tyhmät kysymykset (I/2011)
Olen pohtinut pääni puhki yrittäessäni saada eräänlaista energia systeemia toimimaan. Eli tarkoitus olisi tehdä rutiini (funktio mahdollisesti?) joka vähentäisi energiaa aina tietyn määrän kun joku ehto kävisi toteen, ja sitten palauttaisi vähennetyn energian kun ehto ei ole enää tosi. Tässä ongelma...