Search found 6 matches
- Tue Aug 19, 2014 4:52 am
- Forum: Projektit
- Topic: cbLife - elämänpeli
- Replies: 2
- Views: 10616
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: 10616
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 5:13 pm
- Forum: Ongelmat
- Topic: Valikko-ongelmia
- Replies: 15
- Views: 12641
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 = lop...
- Sat Jan 07, 2012 4:36 pm
- Forum: Esimerkit ja tutoriaalit
- Topic: Efektit
- Replies: 678
- Views: 590178
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...
- Thu Mar 17, 2011 6:59 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2011)
- Replies: 989
- Views: 577973
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) Repea...
- Tue Mar 15, 2011 9:54 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2011)
- Replies: 989
- Views: 577973
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...