CoolBasic Forums

matti3 wrote:Juu. Tismalleen kiitos.

Vielä yksi juttu.

Joka pääloopin alussa putsaat tekstit komennolla ClearText. Poistamalla tämän saat tekstit pysymään.

Jonhu: Tokassa funktiossa on unohdettu poistaa mahdollisesti luotu obj1 objekti, funktio voi vuotaa muistia. Eka funktion taas olisi voinut tehdä _paljon_ lyhyempänä: (tämä on ns. raw versio, ei mitään ylimääräistä) Function PointDistanceToLine2(px#, py#, x1#, y1#, x2#, y2#) d# = Abs((x2-x1)*(y1-py...

Tein tälläisen osion, johon voi postata erilaisia tarkistusfunctioita. Pisteen etäisyys janasta: http://cbkk.systec.fi/koodi.php?id=204 lx1#=100 ly1#=100 lx2#=300 ly2#=140 Repeat Line lx1#,ly1#,lx2#,ly2# Text 10,10,"Hiiren etäisyys janaan: " + MinDistToLine(MouseX(),MouseY(), lx1#,ly1#,lx2...

Onnistuin ratkaisemaan itse. Tässä vielä functiona esimerkin kanssa.. ukko1 = LoadObject("Media\soldier.bmp", 72) ukko2 = LoadObject("Media\guy.bmp", 72) ukko3 = LoadObject("Media\guy.bmp", 72) Repeat 'pääsilmukan alku 'ohjaa nuolilla If LeftKey() Then TurnObject ukko1...

Ai laskee FPS? Onko sulla huono kone vai. :) Mulla ei näy missään toi. Ja hyvinhän se näyttää mulla toimivan. ;) Ja kyllä toi Food objecti on olemassa. Ihan Food:ina. 600Mhz läpäri itellä, mutta en minä edes voi testata tuota ohjelmaasi, kun ei ole medioita, mutta turha paintobjectin käyttö kuitenk...

Nonni. Nytten kun syön pelissä ruokaa tulee MAV... Kun on "DeleteObject Food" tulee MAV kun menee syömään ruokaa.... Ja mistäköhän syystä? game: SCREEN 800,600 y# = Rand(-400,396) x# = Rand(-300,296) rx# = 24 ry# = 24= Rand(-300,296) rx# = 24 ry# = 24 mu# = -1 md# = 1 ml# = -1 mr# = 1 ct#...

Kävi pieni ajatusvirhe tos functios :? Tässä nyt uusi.. Tämä functio tarkastelee vain objectien keskipisteiden välisiä kulmia, mutta jos tarvitset, niin objectien reunojenkin mukaan on helppo toteuttaa tuo functio.. map= LoadMap("Media\cdm2.til","Media\tileset.bmp") ukko = LoadOb...

Kuinka saaha objektille 140 asteen näkökenttä olen kokeillut tuota cbsdk funktiota mutta se ei vaan toimi Jos tarkotit tuota vain tunnistusta varten, niin tein nopeasti tälläisen function.. Function ObjectSight2(obj1, obj2, kulma#) If ObjectAngle(obj1) <= ObjectAngle(obj2) + kulma/2.0 And ObjectAng...

Syntyi tällänen hauska efecti puolivahingossa :D Repeat a#+1.0 Efect1(150,150,7,80,a) Text 10,10,"FPS: "+FPS() DrawScreen Forever Function Efect1(x#,y#,sakaroita=10, r_# = 80,angle#=0,size# = 2, fill=1) vali# = 360.0 / sakaroita dist# = r_ * Sin( vali / 2.0 ) alfa# = 360.0 - vali# For a=0 ...

Haluaisin tietää että onko mitään mahdollisuuksia laittaa taulukko TYPEn Fieldiksi? Luulen olevani aika varma, että ei, mutta kysynpä nyt kumminkin... Itselläni tuli sama ongelma vastaan, kun tein scripti moottoria strategia peliimme. Minun täytyi saada yksi Field sisältämään monta eri tietokenttää...

EDIT. Kokeilin ihan puhtaasti koodilla obj = LoadObject("gfx\lolmalli.bmp", 360) Repeat MoveObject obj, 1 DrawScreen Forever Ja tosiaan sinne oikealle se vaan liikkuu. Eli siis X ja Y akselit ovat sekaisin ja parametri tulee vielä käänteisenä... Piti yksi projekti aloittaa mutta taitaa ta...

Itse ajattelin tehdä myös tunnistuksen erimuotoisille kolmioille, mutta näköjään ehdit ensin

Itse suosittelisin muistipaloja tai taulukoita, että tarkistus saataaisiin tehty for-silmukassa, jolloin function voisi yleistää kaikille monikulmioille.

Janojen leikkaus-metodi ei tunnista sisäkkäisiä kolmioita. Sen takia tuossa on tämä functio, joka kertoo, että ovatko pakosti sisäkkäin.. // Laskee säännöllisen kulmion keskipisteestä lyhimmän etäisyyden sen reunaan // halkasija = koko# kulmia = kulmien lkm. Function MinDist(koko#,kulmia) alfa# = (...

Tässä vielä monikulmioiden (mukaanlukien kolmio) päällekkäinolotunnistus.. ShowMouse OFF Repeat angle+1 // merkataan kuvion pisteet // TurnDots(muistipala, keskipisteX, keskipisteY, halkasija, kulma, kulmia) mem1 = TurnDots(mem1,100,100,150,angle,5) mem2 = TurnDots(mem2,MouseX(),MouseY(),70,-angle,3...

Tässä nyt väsäämäni input()-komentoa vastaava functio. Pystyt editoimaan tekstiä keskeltä hiiren / nuolinäppäimien avulla. Repeat Repeat Text 10,10,"Kirjoita tekstiä.. Voit editoida tekstiä " Text 10,22,"keskeltä nuolinäpäimillä tai hiirellä." Text 10,100,"Edellinen Kirjoitu...

Tässä esimerkki koodeista: FrameLimit 40 'rajoita nopeutta kartta = LoadMap("Media\cdm2.til","Media\tileset.bmp") PlayObject kartta,0,0,1 ukko = LoadObject ("Media\guy.bmp",72) SetupCollision ukko, kartta, 1, 4, 2 AddText "Paina entter ja kirjota lol" Repeat '...

Sillä ei voi tehdä kaikkea periaatteessa! CoolBasic on 2D pelinteko ohjelma jolloin et voi muuttaa sitä 3D tai 4D peliksi :) OT: Kyllä CoolBasicilla voi tehdä 3D-pelejä. "Vain edistyneemmille käyttäjille"-merkintä manuaalissa ei tarkoita sitä että sitä ei voi tehdä. Itse sitäpaitsi kutsui...

Tästä -92 puolestavälistä. Itse luulin olevani tätä keski-ikäluokkaa, mutta vaikuttaa, että kuulun tähän vähäsen vanhempaan kastiin. Itsellä on kaikki matemaattiset aineet pitkinä lukiossa, ja niistä on osoittautunut hyötyä ohjelmointiikin :) Coolbasicin käytössä tuli juuri puolivuotta täyteen :roll:

Tässä vielä toinen.. Sisäänkirjautuminen Kesti 5min, niin Phons ehti ensin :roll: EDIT: Tämä functio toimii siis näytön koordinaateissa, eikä se tee tästä mielestäni parempaa kuin Phonsin. Näin saa maailmakoordinaatit näytön koordinaateiksi: paikkax = ObjectX(obj) + ScreenWidth()/2 paikkay = ScreenH...

kemp250 wrote:Kun yritän kokeilla peliäni, se ilmoittaa "showmouse failed". mikä tähän auttaisi?

Lähdekoodi auttaisi asiaa..
Nyt alkuun tuli vain mieleen, että sijoitat kursorin paikalle kuvaa, jota ei ole olemassa (tai se on ladattu muuna kuin kuvana).