Search found 367 matches

by DatsuniG
Sun Feb 21, 2010 5:48 pm
Forum: Yleinen
Topic: Galaksipeli-projekti
Replies: 31
Views: 20074

Re: Galaksipeli

Not Found

The requested URL /downloads/tekniikkademo v0.65a.rar was not found on this server. :?
by DatsuniG
Sat Feb 20, 2010 7:40 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2010)
Replies: 1543
Views: 789493

Re: Tyhmät kysymykset (I/2010)

Code: Select all

aika = Timer()
Repeat
Text 2,2,Str(20 - (Timer() - aika) / 1000)
if Timer() - aika > 20000 Then End
drawscreen
forever
EDIT:

@Viltzu: Sinun viestisi vasta tyhmiä ovatkin. : )

by DatsuniG
Sat Feb 20, 2010 3:31 pm
Forum: Projektit
Topic: Pikku pelit
Replies: 439
Views: 267281

Re: Pikku pelit

Olipas tylsää ja koodailin (huonon) Asteroids kloonin piirtokomennoilla. Ja kiitokset Spuntelle funktiosta LineSegIsect(). Global gReload as integer, gX As Float, gY As Float, gSpeed As Float, gAngle As Float, gScore As Integer gX = 200 gY = 150 taim = 3000 Type BULLETS Field x As Float Field y As F...
by DatsuniG
Fri Feb 19, 2010 11:28 pm
Forum: Yleinen
Topic: Offtopic (I/2010)
Replies: 1987
Views: 1032768

Re: Offtopic (I/2010)

temu92 wrote:Noniih, 3 kk harjottelua ja ny o wanhojentanssit ohitte >_> Vähän on outo olokin, jalat ihan muussia ja niska pamahtaa :E
Eikö pitäisi olla vielä jatkotkin? ; )
by DatsuniG
Thu Feb 18, 2010 6:20 pm
Forum: Esimerkit ja tutoriaalit
Topic: Efektit
Replies: 678
Views: 584547

Re: Efektit

Jaa'a, tylsää oli ja yrittelin vääntää jonkinmoisia efektejä 5 riviin: For i = 0 To 1000 Color 255 * Abs(Sin(i Mod 360)), 255 * Abs(Sin((i + 20) Mod 360)), 255 * Abs(Sin((i + 70) Mod 360)) Line 200 + Cos((i Mod 360) + (360 / (3 + (1000 - i) / 300)) * (i Mod (360 / (360 / (3 + (1000 - i) / 300))))) *...
by DatsuniG
Tue Feb 16, 2010 5:22 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2010)
Replies: 1543
Views: 789493

Re: Tyhmät kysymykset (I/2010)

Mitenkös saan jokaiselle äänelle tehtyä omat virheilmoitukset, mikäli ei toimi. ääni1=LoadSound("Power Up 1.wav") ääni2=LoadSound("boom 1.wav") ääni3=LoadSound("Blaster.wav") Tuohonkin joku jippo oli, mutten nyt muista mikä :) Function LoadSound2(path As String) If Fil...
by DatsuniG
Sun Feb 14, 2010 11:52 am
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2010)
Replies: 1543
Views: 789493

Re: Tyhmät kysymykset (I/2010)

Code: Select all

aika As Float = Timer()
Repeat
    // Laatikon maksimi pituus * (1 - (Timer() - Ajastin) / Haluttu aika määrä)
    Box 2, 2, 100 * (1 - (Timer() - aika) / 30000), 20
    DrawScreen
Forever 
by DatsuniG
Sat Feb 13, 2010 10:03 pm
Forum: Ongelmat
Topic: Kuvan sisällytys ohjelmaan?
Replies: 2
Views: 2894

Re: Kuvan sisällytys ohjelmaan?

viewtopic.php?f=12&t=1873

Ja pikku kysymykset voi postata aina tuonne tyhmiin kysymyksiin, ei tarvitse tehdä jokaiselle omaa threadia.
by DatsuniG
Mon Feb 08, 2010 6:24 pm
Forum: Projektit
Topic: PuzzleBlocks v1.4 - Nettikartat lisätty + Parantelua
Replies: 36
Views: 23497

Re: PuzzleBlocks v1.4 - Nettikartat lisätty + Parantelua

Tulipas nyt itsekkin testattua ja todella mukava puzzlepeli! Tätä jaksaa pelatakkin jonkin aikaa, ehkä jopa hieman kauemminkin kuin "jonkin aikaa". Teinpäs sitten samantien uuden kentänkin, LOL. Ja nyt mietinkin tässä, ilmeisesti sinä itse arvostelet vaikeusasteen kentästä? Ei kai siinä m...
by DatsuniG
Fri Feb 05, 2010 5:05 pm
Forum: Projektit
Topic: Pikku pelit
Replies: 439
Views: 267281

Re: Pikku pelit

Kuten JATothrim jo sanoi, tyyppi on trolli. Katsokaa koodin rakennetta ja miettikää voisiko tuon tehdä generaattorilla. Ja nyt vaihdetaan aihetta. Eli tässä on kauan aikaa sitten tekemäni pikku peli, joka jäi ilman huomiota. Toivoisin parempaa vastaanottoa tällä kertaa. : ) FrameLimit 50 Global gPoi...
by DatsuniG
Thu Feb 04, 2010 9:39 pm
Forum: Ongelmat
Topic: apumisongelma
Replies: 2
Views: 2421

Re: apumisongelma

Hihii, minun lisäämäni kommentti 'lol on vieläkin funktion "VähennäHp" kohdalla.
by DatsuniG
Wed Feb 03, 2010 6:07 pm
Forum: Yleinen
Topic: Offtopic (I/2010)
Replies: 1987
Views: 1032768

Re: Offtopic (I/2010)

Itselläni Firefox lakkasi toimimasta jokin aika sitten, enkä ole jaksanut asennella uudestaan. Operalla olen mennyt, ja vaati kyllä hieman aluksi totuttelua tämä Opera. Mutta asentelenpas tuon uusimman FireFoxin kun Personaskin mukana. :) FireFox asennettu ja Opera roskiksessa. VesQ: Miksi pidät qu...
by DatsuniG
Tue Feb 02, 2010 10:14 pm
Forum: Projektit
Topic: Pikku pelit
Replies: 439
Views: 267281

Re: Pikku pelit

@jaahas: Onnistuin kutistamaan tuon kymmeneen riviin: Dim numbers(0) Repeat key = GetKey() If key > 47 And key < 58 Then numbers(active) = key - 48 active = Not active EndIf Text 2,2,numbers(0) + " + " + numbers(1) + " = " + (numbers(0) + numbers(1)) DrawScreen Forever Hidas : /
by DatsuniG
Sat Jan 30, 2010 3:26 pm
Forum: Projektit
Topic: Pikku pelit
Replies: 439
Views: 267281

Re: Pikku pelit

@ukkeli: Pisteitä saa vain kun osuu viimeiseksi luotuun "tulipalloon", ja uusi "tulipallo" luodaan jokaisen kierroksen aikana, on pisteiden haaliminen vaikeaa. Siirrä If ObjectsOverlap(ukko,pist\obj) Then pisteet+1 End If For...Next looppiin sekä muuta If Timer() Then muotoon If ...
by DatsuniG
Fri Jan 29, 2010 10:23 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2010)
Replies: 1543
Views: 789493

Re: Tyhmät kysymykset (I/2010)

- Se on EndIf, ei End If. Jossain päin manuaalia tai esimerkkejä muistaakseni lukee, että oikea muoto olisi End If, mutta tämä info on virheellistä. Ei pidä paikkaansa. Jotkut pitävät End If:iä selkeämpänä kuin EndIf:iä, ihan tottumiskysymys. If 1 = 1 Then test1() End If If 2 = 2 Then test2() EndIf...
by DatsuniG
Fri Jan 29, 2010 9:46 pm
Forum: Esimerkit ja tutoriaalit
Topic: Efektit
Replies: 678
Views: 584547

Re: Efektit

Fiksasit niin eeppisesti (lauseesta jäi tarkoitus kokonaan pois*), että saisit Survivalissa plussan, jos olisit osallistunut. Fiksasin samalla itse tuon quoteviidakon, jossa itse alunperin jo failasin. *...vai olisiko omasta mielestäsi "En uskalla kuvitellakaan, mitäköhän tästä vielä tulee, jo...
by DatsuniG
Fri Jan 29, 2010 8:53 pm
Forum: Esimerkit ja tutoriaalit
Topic: Efektit
Replies: 678
Views: 584547

Re: Efektit

Chaosworm wrote:
Ellu wrote:
LittleGreen wrote:Ei että, mitäköän tästä tulee jos jo ennen CBClassicia tällasia tedään, puhtaalla matematiikalla tehdään tällaisia, en uskalla ees kuvitella! WAU :shock:
Fix'd.
Fix'd ^ 2
EDIT:

IMO on

by DatsuniG
Mon Jan 18, 2010 9:00 pm
Forum: Yleinen
Topic: Offtopic (I/2010)
Replies: 1987
Views: 1032768

Re: Offtopic (I/2010)

Eikös vain näitä vanhemman mallin PSP:tä pysty modaamaan? 3000 sarjasia ei voi modata mikäli olen oikein ymmärtänyt. Hmm, eiköhän melkeinpä aina joka konsoliin löydy tapa modata. Ja siis modaus on hieman laaja alue oikeastaan, softamodaus, hardwaremodaus(?) ja jopa ehkäpä ulkoisesti muutteleminen l...
by DatsuniG
Sun Jan 17, 2010 8:54 pm
Forum: Esimerkit ja tutoriaalit
Topic: Coolbasicin sisäiset tehtävät
Replies: 30
Views: 21885

Re: Coolbasicin sisäiset tehtävät

Chaosworm wrote:Necropotency!

Nyt kun tätä aihetta jossain muussa threadissa linkitettiin ja erehdyin vilkuilemaankin tätä, niin tuli mieleen, että näihinhän sopii Spoiler-tagit kuin spoiler-tagit spoilauksiin.
Ehdotusta on kuultu.
EDIT:

@koodaaja: Päivitetty

by DatsuniG
Sat Jan 16, 2010 11:36 pm
Forum: Yleinen
Topic: Offtopic (I/2010)
Replies: 1987
Views: 1032768

Re: Offtopic (I/2010)

RFA:lle iso käsi nyt. Hukannut pienen muistitikun, jossa on mm:Paljon koulutehtäviä, Kaikki minun CB projectit ja ainoat kopiot eräistä tod.tärkeistä kuvista. Sehän on tietenkin jäänyt jollekkin pöydälle ja äiti sanonut että nyt siivotaan. Tietenkin joku muu kuin minä sen on löytänyt ja laittanut s...