Search found 6 matches

by Kokkelkhan
Tue Aug 19, 2014 4:52 am
Forum: Projektit
Topic: cbLife - elämänpeli
Replies: 2
Views: 1668

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...
by Kokkelkhan
Sun Aug 10, 2014 10:43 pm
Forum: Projektit
Topic: cbLife - elämänpeli
Replies: 2
Views: 1668

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
by Kokkelkhan
Mon Jan 23, 2012 6:13 pm
Forum: Ongelmat
Topic: Valikko-ongelmia
Replies: 15
Views: 2354

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...
by Kokkelkhan
Sat Jan 07, 2012 5:36 pm
Forum: Esimerkit ja tutoriaalit
Topic: Efektit
Replies: 678
Views: 133110

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...
by Kokkelkhan
Thu Mar 17, 2011 7:59 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2011)
Replies: 989
Views: 76865

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...
by Kokkelkhan
Tue Mar 15, 2011 10:54 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2011)
Replies: 989
Views: 76865

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...