Search found 6 matches
- Tue Aug 19, 2014 4:52 am
- Forum: Projektit
- Topic: cbLife - elämänpeli
- Replies: 2
- Views: 10297
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: 10297
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: 12552
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: 581696
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: 575249
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: 575249
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...