Search found 42 matches

by E.T.
Sun Jun 21, 2009 2:36 pm
Forum: Projektit
Topic: Assembly 2009 multiskriin projekti
Replies: 70
Views: 13750

Re: Assembly 2009 multiskriin projekti

Tässä olisi projektia varten tekemäni karttageneraattori, joka luo satunnaisen kartan pelaajien määrän ja ruudun koon perusteella. Funktiolle annetaan parametriksi siemenluku, jonka avulla kaikkien pitäisi saada samanlainen kartta. Koodia... Mulla näyttää tuo tältä: kuva Kumma juttu, itselläni toim...
by E.T.
Thu Jun 18, 2009 3:47 pm
Forum: Projektit
Topic: Assembly 2009 multiskriin projekti
Replies: 70
Views: 13750

Re: Assembly 2009 multiskriin projekti

Tässä olisi projektia varten tekemäni karttageneraattori, joka luo satunnaisen kartan pelaajien määrän ja ruudun koon perusteella. Funktiolle annetaan parametriksi siemenluku, jonka avulla kaikkien pitäisi saada samanlainen kartta. Global g_screens g_screens=9 SCREEN 800,600,32 Dim map Dim playerscr...
by E.T.
Sun Jun 07, 2009 7:42 pm
Forum: Projektit
Topic: Pikku pelit
Replies: 439
Views: 109844

Re: Pikku pelit

Muuten hyvä, mutta isoista rykelmistä saa ihan liikaa pisteitä verrattuna pieniin. Kun poistaa yhden neliön enemmän saa kaksinkertaiset pisteet.
Tulos: 176400 pistettä
by E.T.
Mon Jun 01, 2009 5:08 pm
Forum: Yleinen
Topic: Offtopic (I/2009)
Replies: 1814
Views: 313408

Re: Offtopic, aiheen vierestä, niitä näitä ja banniruletti

No tuo kanavalta häipyminen johtui yhteyden katkeamisesta. Kotona on langaton netti ja oma kone on siinä rajalla että toimiiko yhteys vai ei. Yleensä toimii ihan hyvin mutta välillä on tuollaista pätkimistä.
by E.T.
Mon Jun 01, 2009 3:24 pm
Forum: Yleinen
Topic: Offtopic (I/2009)
Replies: 1814
Views: 313408

Re: Offtopic, aiheen vierestä, niitä näitä ja banniruletti

Latasin tänään mIRC:in ja liityin #Coolbasic kanavalle. Tuli kuitenkin sellainen ongelma että viestit eivät näy, eivät edes omat. Osaisiko joku kertoa miten ongelman saa korjattua?
by E.T.
Sat May 30, 2009 8:08 pm
Forum: Yleinen
Topic: Offtopic (I/2009)
Replies: 1814
Views: 313408

Re: Offtopic, aiheen vierestä, niitä näitä ja banniruletti

Laitanpa minäkin tänne arvosanani. Kumma kyllä, mutta useimmat arvosanat ovat nousseet lukioon siirtymisen jälkeen. Eikö lukiossa pitäisi olla tiukempi arvostelu kuin yläasteella tai jotain sinne päin? äidinkieli 8,9,9 ruotsi 9,9 englanti 9,10,10 pitkä matematiikka 10,10,10,10,10,10 :geek: biologia ...
by E.T.
Thu May 28, 2009 2:39 pm
Forum: Yleinen
Topic: Offtopic (I/2009)
Replies: 1814
Views: 313408

Re: Offtopic, aiheen vierestä, niitä näitä ja banniruletti

Jee, viimeinen koeviikko on nyt ohi! Kesälomakin alkaa ylihuomenna :D
by E.T.
Mon May 11, 2009 4:17 pm
Forum: Ongelmat
Topic: Ammus ongelma (CB:stä en löytänyt)
Replies: 28
Views: 5212

Re: Ammus ongelma (CB:stä en löytänyt)

Virhe on siinä kun tarkistetaan painetaanko välilyöntiä ja onko reload on nolla. Jos on niin soitetaan ääni ja laitetaan reload kymppiin. Sitten tarkistetaan uudelleen painetaanko välilyöntiä ja onko reload nollassa. Koska ensimmäisellä kerralla reload laitettiin kympiksi niin ehto ei toteudu ja uut...
by E.T.
Mon Apr 27, 2009 5:40 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 508640

Re: Tyhmät kysymykset

Yrität muuttaa hahmo_im muuttujaa funktiossa vaikka et ole määritellyt sitä globaaliksi.
by E.T.
Sun Mar 08, 2009 8:32 pm
Forum: Tiimin haku ja rakennus
Topic: Yhteisprojekti
Replies: 78
Views: 16476

Re: Yhteisprojekti

Voisin tulla projektiin mukaan jos vielä pääsee. Tasoni on Galgoneerin laskutavalla 7.

Code: Select all

Galgoneer 9
Viltzu 6
Chaosworm 2,25
Jonhu 7,5
Tuxu 5
Sami345 9
KankiKalle 2,5
-Z- 7,25
Pate5 8,5
Otto90x 8,5
Grandi 6.5
Esa94 6.25
vilQuri 7.25
phons 6
E.T. 7
by E.T.
Fri Feb 06, 2009 6:23 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 508640

Re: Tyhmät kysymykset

Itse käytän tällaista systeemiä. Ei varmastikaan ole paras, mutta melko yksinkertainen.

Code: Select all

positionobject map,objectsizex(map)/2,-objectsizey(map)/2
positionobject obj,32*(tileX+0.5),-32*(tileY+0.5)
by E.T.
Sat Jan 10, 2009 5:54 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 508640

Re: Tyhmät kysymykset

Ensimmäiset lataukset onnistuvat, mutta sitten yrität ladata botin median sijaan siitä kansiosta, jossa ohjelma on. botit(masterbotti, objekti) = LoadObject("soldier.bmp", 360) pitäisi olla botit(masterbotti, objekti) = LoadObject("Media\soldier.bmp", 360) Sama juttu dead.bmp :n kanssa. Lisäksi pyör...
by E.T.
Sat Jan 10, 2009 2:24 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 508640

Re: Tyhmät kysymykset

EDIT:

Miksi viesti tuli kahdesti?

by E.T.
Sat Jan 10, 2009 2:23 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 508640

Re: Tyhmät kysymykset

MAV tulee siitä kun yrität tarkistaa ammuksen osumisen viholliseen käymättä ammuksia läpi. Toinen MAV tulee kun poistat vihun, mutta yrität vielä tarkistaa muiden ammusten osumisen samaan vihuun. Type VIHUT Field obj EndType Type AMMUKSET Field obj EndType FrameLimit 40 vihu=LoadObject("Media\guy.bm...
by E.T.
Thu Jan 08, 2009 10:34 pm
Forum: Ongelmat
Topic: Objectien tunnistus ongelma
Replies: 6
Views: 1096

Re: Objectien tunnistus ongelma

Eli onko 10 muuttujaa todellakin 9*8*7*6*5*4*3*2 ja nämä vielä toisin päin...???? Ja kuinka saadaan törmäys kopioituun palikkaan tunnistettua jos se on sama kuin alkuperäinen. Ohjelma antaa virheen SetupCollision palikka1,palikka1, 1, 1, 2 Kymmenelle objektille törmäyksentunnistuksia tarvitaan "vai...
by E.T.
Sun Dec 28, 2008 10:58 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 508640

Re: Tyhmät kysymykset

En tiedä millaista yhdistymistä tarkoitit, mutta tässä olisi tällainen SCREEN 640,480 Type pallot Field x# Field y# Field xx# Field yy# Field koko Field koko2 EndType For a=1 To 10 p.pallot=New(pallot) p\x#=Rand(0,ScreenWidth()) p\y#=Rand(0,ScreenHeight()) p\xx#=Rnd(0.2,2) p\yy#=Rnd(0.2,2) p\koko2=R...
by E.T.
Sun Dec 28, 2008 8:09 pm
Forum: Esimerkit ja tutoriaalit
Topic: Kartan lataaminen osina
Replies: 0
Views: 2281

Kartan lataaminen osina

Tein tässä aikani kuluksi funktiot, joilla voi ladata kartan osissa. Kartan voi ladata myös pelin aikana, jolloin kenttien välinen latausaika lyhenee. Funktioista on luultavasti hyötyä vain isojen karttojen lataamisessa. Createmap(file$,tiles$) Luo kartan, johon tilet ladataan. file$ on kartan tiedo...
by E.T.
Sun Dec 21, 2008 12:16 pm
Forum: Ongelmat
Topic: Tyhmät kysymykset (I/2009)
Replies: 3075
Views: 508640

Re: Tyhmät kysymykset

Soittolistan voit tehdä vaikka näin. Dim lista(3) lista(0)=LoadSound("media/Space Door open.wav") lista(1)=LoadSound("media/sk_battle2.mp3") lista(2)=LoadSound("media/cannon.wav") lista(3)=LoadSound("media/Boom 1.wav") sound=PlaySound(lista(aani)) Repeat If Not SoundPlaying(sound) Then aani=aani+1 I...
by E.T.
Sat Dec 20, 2008 6:17 pm
Forum: Yleinen
Topic: Offtopic
Replies: 2933
Views: 536066

Re: Offtopic

Itselläni jaksotodistuksen keskiarvo oli 9,6 :D (lukion 1. vuoden 2. jakso)
by E.T.
Sun Dec 14, 2008 11:29 pm
Forum: Äänestykset ja kilpailut
Topic: speed, easy game 1
Replies: 5
Views: 1421

Re: speed, easy game 1

Osallistunpa tällä pelillä. Tavoitteena on koodata peli, jonka FPS on korkeampi kuin tämän pelin. Tietenkin vain CoolBasicin käyttö on sallittua. :D SetWindow "Koodauspeli: Koodaa nopeampi" Repeat f=f+1 If Timer()>a+1000 Then a=Timer() f2=Max(f,f2) f=0 EndIf Cls Print "Tavoite FPS: "+f2 Forever