CoolBasic Forums

Pistinpäs vielä ammuksista jäämään kentälle hylsyjä, tämähän alkaa muistuttamaan jo peliä jota joskus kehittelin. SCREEN 800, 600 Global sw,sh sw=ScreenWidth() sh=ScreenHeight() SAFEEXIT OFF Global tausta 'Vaikeustaso (100 on jo vaikea, nostaminen helpottaa) 'LEVINC on vaikeustason muutosnopeus Dim ...

Enpä tuota rotaatiomatriisikikkaa oikein omaksunut, mutta ajattelin että tämän voi ajatella helpomminkin. Tässä siis ideana että lasketaan nelikulmion kulman koordinaattien etäisyys keskipisteestä x- ja y-suunnassa. Tällöin muiden kärkipisteiden koordinaatit saadaan vähentämällä tai lisäämällä samai...

Voisiko tätä optimoida? Viittiskö joku Mikäli haluat venytellä kuvaa pehmeästi ja nopeasti suosittelen ehdottomasti ScaleImagen käyttöä. Esimerkiksi tähän tapaan: SCREEN 640,480 Global gScaledImage gScaledImage = MakeImage(1, 1) Dim ku(3) ku(0)=LoadImage("media/car.bmp") ku(1) = MirrorIma...

Muokkasin vähän metapallo hässäkkääni(puuttuu kommentointia nyt, mutta lopputulos näyttää hienolta Imo :D); koodia Tähän saa aikalailla lisää nopeutta kun tallentaa paletin värit taulukkoon kuvan sijasta ja käyttää PutPixel2:ta Boxin sijaan. Kokeilin myös josko pallojen kirkkauden esilaskenta muist...

Kas, vallan näppärä pelihän tämä on, ihmettelin vain kun lentävätkin otukset menevät samaa reittiä vaikka yleensä tälläisissä peleissä ne voivat lentää joidenkin esteiden yli. Tornien rakennusvalikossa toivoisi että tornit joihin ei ole varaa näkyisivät jotenkin harmaana tai muuten erilaisena. Ehdot...

Tässä esimerkki tekniikasta jolla ei oikeasti löydä salasanaa, koska pitäisi tietää salasanan pituus tietämättä itse sanaa ja voida kokeilla jokaista merkkiä kerrallaan toisista riippumatta, mutta ihan kivan näköinen systeemi vaikka hakkerointipeliin. pituus = 20 //tässä luodaan merkkijono For i=1 T...

Aloin vaan miettiä että onko tossa nyt ihan oikea todennäköisyys sittenkään kun noi randomit riippuu toisistaan :?: Ja mikä ois se yksinkertasin tapa? Tässä eräs tapa. Ajatuksena siis se että mikäli uutta numeroa arvottaessa huomataan että se on jo käytetty arvotaan numero uudelleen. //varataan tau...

Olikohan se Marcoder joka aikoinaan teki pelin jossa pelimaailmaa pystyi pyörittämään. Sen innoittamana tein aikoinaan systeemin joka pyörittelee tilekartan tilet ja piirtää kartan kuvina tile kerrallaan. Koska pelkkä pyörittely ei riitä niin ymppäsin MaGetzUbin zoomaussysteemin samaan ja aika perus...

En usko että mitään suurta muutosta tapahtuu, kaksi vanhaa suurta puoluetta Kokoomus ja SDP ovat kuitenkin ajamassa samaa politiikkaa kuin ennenkin. Koko kansan etua, niin että pääsemme kohti tasaveroa ja suurempia tuloeroja. Hieman harmissani olen kun piraateille ei yhtään paikkaa lohjennut. Anneta...

Mitä tähän nyt enää kaipaisi niin mahdollisuutta käyttää efektiä vain tietyllä alueella/tietyssä kuvassa, kenties ihan laatikko tai sitten maskikuvan avulla minkä tahansa muotoinen alue. Näitä kun vielä saisi helposti kiinnitettyä pelimaailmaan niin aijai, meillähän taitaa olla nättejä jokia ja laav...

Pistinpä metallia satamaan taivaalta ja koska silmät sekä heijastuskikat on kivoja niin täytyihän se vähän kokeilla mitä saa aikaan.

EDIT: Wing, ei sentään (:

Löinpä sitten KilledWhale:n ASCII-metapallot ja Ruuttu:n Fluidize() -funkkarin yhteen. Tuli ihan kivan näkönen ehvekti: koodia.. Käyttämällä kuvia toistuvan text-komennon sijaan nousi FPS 20 -> 30. Mietin vielä olisiko yhdellä copybox-silmukalla pärjännyt, kun yhdistäisi nuo efektit myös koodissa t...

Käyttöjärjestelmiä kun tuntuu olevan vaikka minkälaisissa koneissa autoista kännyköihin niin saa varsin suuri äänestys olla että kaiken kattaisi.

Pakko kysyä täällä, että miten lähetän CBTCP:llä selaimelle nettisivun? Saan ohjelmallani kalastettua sivupyyntöjä, jotka ovat kutakuinkin tällaisia: GET /sivu.html HTTP/1.1 Host: localhost:100 User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0) Gecko/20100101 Firefox/4.0 Accept: text/html,appl...

Voihan kuvan ulkopuolelta jättää lukematta, hyvinhän se keskiarvo toimii silloinkin. SCREEN 800,600 Dim Buffer(1,1,2) img = LoadImage("media/map.bmp") Repeat If MouseHit(1) Then SetWindow "Blurring.." bt = Timer() img = Blur(img) bt = Timer()-bt SetWindow "Blurred in "+...

+ Niin ja entäs tämä? A=1 B=2 C=3 D=4 Repeat If keyhit(A) Then numero1= True If keyhit(B) Then numero2= True If keyhit(C) Then numero3= True If keyhit(D) Then numero4= True Vaikkapa näin, eli Scan-koodi taulukkoa vilkuilemalla manuaalista saa tarkastettavat arvot selville. Dim numero(4) Repeat //kä...

MaGetzUb wrote:IRC-Galleriassa oli huvittavat kuvien uudet säännöt. Esim kuvassa jossa oli kaksi meloonia ihminen pitämässä rinnan kohdalla oli vastoin sääntöjä, tai banaanin pitäminen suussa. xD

Pistetääs vielä linkki

Kyllähän tuo ihan tasasesti kuuttakymppiä tuntu menevän vaikka resoluutiotakin nosti 640x480 -> 1920x1200. Näppärä efekti kaikenkaikkiaan, vaikken oikeastaan keksi hyvää käyttötarkoitusta. Veden väreilyyn ehkä?

Tässä aikoinaan kirjoittamani kuvan piirto läpinäkyvyyden ja maskivärin kanssa; [koodia] Saisiko tuota nopeutettua kirjastollasi? Miten? :D Kokeilinpa tuon porttaamista cbCalcille, sain pari FPS enemmän. Ilman cbCalcia 10-11 FPS, cbCalcin kanssa 12-13 FPS. Tässä tapauksessa siis huomataan erityises...

Kävipä mielessä muistipalakikkailuja tehdessä, että joskus olisi kiva kun ei tarvitsisi huolehtia indekseistä ja voisi vain koodailla. Tälläinen puolivillainen luokkatoteutus siitä sitten tuli. Ideana siis se että voi luoda omia muistipaloja yksinkertaisella konstruktorilla, jolle voi antaa alkeisty...