Search found 6 matches

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

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: 10301

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 5:13 pm
Forum: Ongelmat
Topic: Valikko-ongelmia
Replies: 15
Views: 12553

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

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

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

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