CoolBasic Forums

DatsuniG

@cb-skorpioni: Siistin vähän koodia. Include "ide\cbJanelas.cb" 'Pääohjelma SCREEN 400,300,0,0 FrameLimit 40 Type RAKETIT Field obj EndType Type ASTEROIDIT Field obj Field hp EndType Type VIHUT Field obj Field hp# Field id EndType Const TUTKA_X=225 Const TUTKA_Y=100 Const TUTKA_KOKO=50 Glo...

DatsuniG

skorpioni-cb wrote:
Viltzu wrote:Itse en ainakaan vieläkään ymmärrä mitä haet.
kun olen tiputtanut sen jota voin hallita niin se jota ei voi hallita ei mene hallintaan.

Hmmm? Koita nyt selittää vähän paremmin.

DatsuniG

iPod Touch/iPhone on puolitäydellinen valinta; keksikää jotain mitä sillä ei voi tehdä. iPhonesta tuli nyt mieleen iFhone :D 82€ maksaa DealExtremestä :P DealExtremestähän löytyy kaikkea jännää halvalla, free shipping, zomg. Tiedä sitten miten ne paketit tulee. :D Minkäänlaista kokemusta kellään de...

DatsuniG

RAAH!! Enpäs saanut modattua PSP:tä huuto.netistä. :/ Mutta ostaja joutuikin maksamaan siitä sitten 80 € :D Alunperin kun oli 60 € Harmi, koska PSP on kyllä hauska kapistus. Laitteelle löytyy hyviä pelejä ja custom firmwarella saa kaikkia kivoja homebrewejä. http://i237.photobucket.com/albums/ff218...

DatsuniG

no, aloitetaampas sitten, pyydän 100x100 kuvaa joka on TÄYSIN abstrakti, värit, muodot ja työkalut saa tekijä päättää itse. Elikkäs aika vapaat kädet annan tekijälle :) sw33t.png Ja täysikokoinen: http://i237.photobucket.com/albums/ff218/DatsuniG/logo.png?t=1263409362 @Regalis: No tausta ainakin on...

DatsuniG

phons wrote:Tämän takia on kehitetty hieno funktio: Lower!
Code: Select all
Text 0,0,Lower("For")

Code: Select all

Select MyString$
Case Lower("For")
Case "Ne"+"xt"
Endselect

DatsuniG

Onko mahdollista tehdä hahmolle ase, josta ammukset tulevat ja miten sen voisi kenties tehdä? Näyttäisi tyhmältä jos ukkeli ampuu raketteja mahasta. Kiitos etukäteen. Piirtämällä sellaisen ukkelin, jolla on ase kädessä. Walter varmaan tarkoitti sitä, että oppituntien esimerkeissä luoti kloonataan a...

DatsuniG

R.I.P Tony Halme

DatsuniG

Kämänen liekki-efekti: Const MAXPARTICLES = 150 Const PARTICLEMAXSIZE = 40 Global gEmitterAmount, gParticleAmount Type FireEmitter Field x# Field y# Field w# Field duration Field timerr Field Amount EndType Type FireParticles Field x# Field y# Field r# Field g# Field b# Field size# Field targ# EndTy...

DatsuniG

Postcounter = Postcounter + 1 Niinpä niin :roll:. Editoiminen ei nosta postikountteria, mutta eipä se nosta myöskään viestiketjua. Uuden viestin kirjoittaminen sen sijaan nostaa viestiketjun, joten uusi asia huomataan helpommin. Yritän tässä auttaa ihmisiä, ja jos sinulla on jotain sitä vastaan, vo...

DatsuniG

Olisi pitänyt auttaa. Postcounter = Postcounter + 1 Olisi pitänyt auttaa. Väännetään sitten rautalangasta: Reload = 4 Reload2 = 156 Repeat If MouseHit(1) And Ase = 1 And reload = 0 Then AmmuAseella1() If MouseHit(1) And Ase = 2 And reload2 = 0 Then AmmuAseella2() Reload -1 Reload2 -1 Forever Onko s...

DatsuniG

Half-Life 2 menin läpi jo vuonna 2004. ; ) Ja olen pelannut kaikki muutkin Half-lifet + lisäosat läpi.

DatsuniG

Sulut puuttuivat ampumisen ehtolausekkeesta. Type AMMUS Field obj End Type FrameLimit 40 ClsColor cbWhite ukko=LoadObject("Media\soldier.bmp",72) pati=LoadObject("Media\bullet.bmp") ShowObject pati,OFF AddText "Nuolista ohjaa, CTRL=ampuu" RotateObject ukko, 90 MaskObjec...

DatsuniG

Function RGBToHex(r,g,b) Return "#" + Right(Hex(r),2) + Right(Hex(g),2) + Right(Hex(b),2) EndFunction Oho se olikin heksadesimaalista RGB:ksi. No muunnos onnistuu esim. tällä. nr.2 Tässä on koodi tuohon Heksadesimaalista RGB:ksi muunnokseen: Function HexToRGB(hexvalue$) Hexvalue = Upper(h...

DatsuniG

Tuo on melko vanha ongelmanratkaisutehtävä, eli en keksinyt itse. : )

DatsuniG

Vaihda punaisten ja sinisten laatikoiden paikkaa: SCREEN 120,80 Dim Steps(6) r: For i = 0 To 2 Steps(i) = 1 Next i Steps(3) = 0 For i = 4 To 6 Steps(i) = 2 Next i Repeat If GetKey() <> 0 Then Goto r For i = 0 To 6 If Steps(i) > 0 Then If Steps(i) = 1 Then Color cbred Else Color cbblue Box i * 10 + 6...

DatsuniG

Dewe wrote:No jos GTA IV aikoo pelata saa kaksi ytimisen heittää mäjelle

Kyllä mulla ainakin toimii ihan hyvin Intel E8500 Core 2 Duo 3,16GHz:lla.

DatsuniG

BoxWidth as Float = 50 BoxHeight as Integer = 10 CurrentHealth As Float = 100 MaxHealth As Float = 100 x = 2 y = 2 M = -1 Repeat CurrentHealth = CurrentHealth + m If CurrentHealth = 0 or currentHealth = MaxHealth then m = -m Color cbRed Box x, y, BoxWidth, BoxHeight Color cbGreen Box x, y, BoxWidth...

DatsuniG

Jotakin säätöä vaihteeksi: X = ScreenWidth() / 2 Y = ScreenHeight() / 2 Angles = 5 rad As Float = 28 RadMax = 66 Size = 10 Pulse As String ="--#-###--#--#-##" PulseLength = 250 Repeat If Timer() - PulseTimer > PulseLength Then PulseTimer = Timer() If PulsePointer < Len(Pulse) Then PulsePoi...

DatsuniG

Raha on lisätty peliin, joten nyt on aidon tower defencen tuntua. : ) Peli kaipailee enään hienosäätöä ja parempaa karttasuunnittelua. Aloitusviesti päivitetty ja sieltä vaan latailemaan. Pikkubugiin törmäsin myös, upgradetut tornit tuntuivat pystyvän ampumaan huomattavasti kauemmas, kuin mitä torni...

CoolBasic Forums

Search found 367 matches

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Pyydä itsellesi avatar

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Offtopic (I/2010)

Re: Efektit

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Offtopic (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Pikku pelit

Re: Pikku pelit

Re: Ongelmia tietokoneen kanssa

Re: Tyhmät kysymykset (II/2009)

Re: Efektit

Re: Tower defence