CoolBasic Forums

Reaaliaikainen ja simppeli vesiefekti, jossa kolme erilaista toimintatilaa (joiden lisääminenkin on helppoa). SCREEN 640,480 SetWindow "Fluids" // Luodaan nurmikko grass=MakeObjectFloor() lawn=LoadImage("Media\grass.bmp") PaintObject grass,lawn guy = LoadObject("Media\guy.b...

Tässä olisi oma pikku pelini. Huonona graafikkona tyydyin ascii grafiikkaan mutta itse olin tulokseen tyytyväinen. Pelin ideana on ohjata jonkinlaista kahdella renkaalla kulkevaa tykkiä, jolla on kolme mahdollista kulmaa. Tykin latausaika on tarkkaan säädetty niin ettei paikkallaan ampuilu riittäisi...

Ilmoittaudun mukaan jos vaikka jotain ehtisin tehdäkin.

Pieni reaaliaikainen 3d kokeilu cb:llä ;) Hiiri tähtää, nuolet liikkuu ja alt + f4 poistuu. cb ikkuna jää taustalle, koska olin liian laiska piilottaakseni sitä :? http://up.servut.us/dl/11196.2jcmm9 Vau, hienoa jälkeä. Jospa jaksaisit kehitellä tuota vielä pidemmälle. Tuohan oli irrlichtin perus e...

Pieni reaaliaikainen 3d kokeilu cb:llä

Hiiri tähtää, nuolet liikkuu ja alt + f4 poistuu. cb ikkuna jää taustalle, koska olin liian laiska piilottaakseni sitä
http://up.servut.us/dl/11196.2jcmm9

Eilisen sähkökatkoksen aikana ehdin koodailemaan taas ja uutta versiota olisi tulossa. Mukaan on tällä kertaa laitettu: - SDL_DrawImageBox() - SDLTTF_Init() - SDLTTF_LoadFont() - SDLTTF_Text() - SDL_PollEvent Funktiot on nyt jaettu useisiin tiedostoihin käyttötarkoituksittain Eventtien ja tekstin kä...

Koska suunnitellun demoprojektin toteutus venyy julkaisen projektin cb puolen jo nyt. Paketti sisältää cbSDL.dll ja muut tarvittavat dll:t cbSDL.cb on varsinainen projekti joka pitää includettaa ja SDL_testi on esimerkkiohjelma joka on ladattavissa ensimmäisestä viestistä. dll on kaikilla ominaisuuk...

nevssons wrote:

KilledWhale wrote:Tässä olisi testiohjelma http://up.servut.us/11142.i62g46j

Ohjelma piirtää 4000 viivaa ja errorittaa siihen kuluneen ajan.
Kaikki halukkaat sanokoon tuloksensa

100-150
Viivoista en kyllä nähnyt vilaustakaan

Voisiko se vaikuttaa että jätin SDL_Flip kutsumatta?

Tässä olisi testiohjelma http://up.servut.us/11142.i62g46j

Ohjelma piirtää 4000 viivaa ja errorittaa siihen kuluneen ajan.
Kaikki halukkaat sanokoon tuloksensa

Omalla koneellani (intel pentium 3 ~800mhz, 512ram) aikaa kului noin 400ms ilman marcoderin kirjastoa.

temu92 wrote:Ei voi ilman fmodin lisenssin ostamista, sillä cb:n käännetyssä exe tiedostossa on silti vieläkin fmodin dll pakattuna mukaan. Sitäpaitsi Audiere on ainakin imo parempi kun SDL_Mixer.

Senhän voi aina poistaa

Hmm, voisi mahdollisesti toimia myös tällä kepposella (D3D apihookilla) : http://www.gamedev.net/community/forums/topic.asp?topic_id=493024 http://www.gamedev.net/community/forums/topic.asp?topic_id=359794 Eli jätät normaalisti cb:n ruudun taustalle fullscreen modelle ja koukutat sdl , opengl tai m...

Mitenkäs onnistuit DLL:n funktiolla piirtämään CoolBasicin ikkunaan? Tai jos tuo testin ikkuna SDL:n luoma, niin minne piilotit CB:n oman? Hyvältähän tuo näyttää. Olisit tosin voinut valita portattavaksi jonkun laitteistokiihdytetyn kirjaston, kuten vaikka SFML. CB-ikkunan otsikoksi laitetaan jotai...

Ilmuri wrote:

KilledWhale wrote:

Olisiko mahdollista ahtaa ainakin trifilleri mukaan?

On jo mukana

No onpa taas tyhmä olo. Kyseessä lienee yksiväriset kolmiot?

Kyllä.

Tosiaan toiveita komentoihin voi sanella jo nyt niin pyrin laittamaan ne julkaistavaan versioon mukaan.

Tosin pikselikomennoissa DLL-kutsut saattavat vähentää hyötyä aika paljon? Jep, aiemmin testatessa koko ruudun piirtoon pikseli kerrallaan meni ~10sekuntia ja vaikka kaikki pikselit ladottiin taulukkoon se ei paljoa nopeuttanut. Olisiko mahdollista ahtaa ainakin trifilleri mukaan? On jo mukana ;)

cbSDL v.0.20 Kuten projektin nimikin kertoo kyseessä on SDL-wrapperi CoolBasicille. Tällä hetkellä cbSDL sisältää peruskomennot 2d grafiikkaan, mutta mahdollisesti tulevaisuudessa 3d-tuki voidaan saada mukaan OpenGL tuen avulla. Vaikka dll-kutsut syövätkin suuren osan SDL:n nopeudesta ero CoolBasic...

A1 hieman pakatumpana ja lisäherkkuna vielä törmäystarkistus seiniin: For i$ = "" To i + " " s$ = Min(Max(Int(GetWord(s$, 1)) + RightKey() - LeftKey(), 0), ScreenWidth() - 30) + " " + Min(Max(Int(GetWord(s$, 2)) + DownKey() - UpKey(), 0), ScreenHeight() - 30) Box Int(Ge...

A4 pakatumpana ja kommentoituna: Repeat stri$ = Str(Rand(1, 49)) // Merkkijonon tyhjennys ja ensimmäinen numero For i = 0 To 5 // Käydään läpi 6 numeroa While (InStr(stri$, Str(a)) Or a = 0) // Jos numeroa ei ole annettu tai numero löytyy jo merkkijonosta a = Rand(1, 49) // Arvotaan uusi numero Wend...

DatsuniG ansaitsi ääneni mukavan yksinkertaisella ja nätin näköisellä pelillä.

Tässä oma pikku tuotokseni. Sukulaiset tulivat ajoissa kylää ja aikaa tekemiseen jäi noin tunti, joten koodi voi olla siistimätöntä ja listojen lataus ja tallennus jäi pois mutta laitan kuitenkin. SCREEN 320,240 Dim name(10) As String Dim score(10) sw = ScreenWidth() sh = ScreenHeight() SetWindow &q...