CoolBasic Forums

beginner wrote:Ei se oikein toimikaan...Nyt jokaiseen data-kerrokseen merkittyyn paikkaan kyllä ilmestyy vihu-objekti, mutta kun pääsilmukkaan laittaa esimerkiksi:

Code: Select all

For a=1 To 16
    MoveObject VIHUT(a),Rand(1,2)
Next a 

Niin kaikki muut vihut pysyvät paikallaan, paitsi tuon alkuperäisen "skannauksen" viimeisten koordinaattien kohdalta lähtee liikkeelle 16 vihulaisen jono. Mitähän ne 15 muuta paikoillaan pysyvää objektia sitten ovat? VIHUT() taulokossa on nimittäin vain tuo 16 solua.

beginner wrote:Mutta kun objekteja luodaan vain tuolla aiemmin mainitulla koodinpätkällä. Saavatkohan nuo sisäkkäiset for-silmukat aikaan sen, että jokaiseen data-kerrokseen merkittyyn kohtaan luodaan 16 objektia? Joista sitten vain nuo viimeiset 16 jäävät "eloon"?

i = 1
For x=1 To MapWidth()
For y=1 To MapHeight()
    If GetMap2(3,x,y)=10 Then
        VIHUTx(i)=(x * 32 -ObjectSizeX(kartta) / 2)
        VIHUTy(i)=-(y * 32 - ObjectSizeY(kartta) / 2)
        VIHUT(i)=CloneObject (v)
        PositionObject VIHUT(i),VIHUTx(i),VIHUTy(i)
        VIHUTELOSSA(i)=1
        i = i + 1
    EndIf
Next y
Next x

skorpioni-cb wrote:Tää on varmaan aika advanced-kysymys, mutta kysympä kuitenkin, kuinka voin manipuloida byte-muuttujan bittejä, attelin tehä kato gif-kuvan kirjoittajan, jotta voin piilottaa jotain inhormaatiota kuvaan. Onko mitään hajua miten tämä tehdään.

MrMonday wrote:Hei, aloitin tänään perehtymisen Jaren cbAStar-reitinhakukirjastoon, ja ongelmia ilmeni heti alku metreillä. Eli saan virheilmoituksen "Can't read from negative array index.", kun CalculatePath(ObjectX(obj),Objecty(obj),MouseX(),Mouse()Y):in joku arvoista on negatiivinen. Eli jos objektin tai hiiren sijainti on funktiota kutsuttaessa alle nollan kummallakaan akselilla. Selkeä siis sinänsä, mutta sitä lähinnä kysyisin, että mikäli CalculatePath()-funktio ei huoli arvoltaan negatiivisia parametrejä, niin mikä olisi helpoin/järkevin tapa toteuttaa em. funktiolle kelpaavat parametrit? Kiitos jo etukäteen kaikille

Code: Select all

If MouseUp(1) Then
    path = CalculatePath(ObjectX(obj),Objecty(obj),MouseX(),MouseY())
EndIf

OffTopic: Ajattelin jatkaa sittemmin jäätynyttä Discord-peliäni, ja tahdon siihen ehdottomasti hiiriohjauksen (ja muitakin toimintoja myös hiirelle), ja siksi siis olen kiinnostunut tästä mainiosta kirjastosta.

skorpioni-cb wrote:

MrMonday wrote:Hei, aloitin tänään perehtymisen Jaren cbAStar-reitinhakukirjastoon, ja ongelmia ilmeni heti alku metreillä. Eli saan virheilmoituksen "Can't read from negative array index.", kun CalculatePath(ObjectX(obj),Objecty(obj),MouseX(),Mouse()Y):in joku arvoista on negatiivinen. Eli jos objektin tai hiiren sijainti on funktiota kutsuttaessa alle nollan kummallakaan akselilla. Selkeä siis sinänsä, mutta sitä lähinnä kysyisin, että mikäli CalculatePath()-funktio ei huoli arvoltaan negatiivisia parametrejä, niin mikä olisi helpoin/järkevin tapa toteuttaa em. funktiolle kelpaavat parametrit? Kiitos jo etukäteen kaikille

Code: Select all

If MouseUp(1) Then
    path = CalculatePath(ObjectX(obj),Objecty(obj),MouseX(),MouseY())
EndIf

OffTopic: Ajattelin jatkaa sittemmin jäätynyttä Discord-peliäni, ja tahdon siihen ehdottomasti hiiriohjauksen (ja muitakin toimintoja myös hiirelle), ja siksi siis olen kiinnostunut tästä mainiosta kirjastosta.

ÄIJÄIJÄI EI MAAILMAKOORDINAATTEJA OBJEKTILLE.
Siis oikeasti, käytä objektien ruutukoordinaatteja ettei mene negatiiviseksi, voin antaa mun strategiapeliapistani avun sulle tähän

MrMonday wrote:Hei, aloitin tänään perehtymisen Jaren cbAStar-reitinhakukirjastoon, ja ongelmia ilmeni heti alku metreillä. Eli saan virheilmoituksen "Can't read from negative array index.", kun CalculatePath(ObjectX(obj),Objecty(obj),MouseX(),Mouse()Y):in joku arvoista on negatiivinen. Eli jos objektin tai hiiren sijainti on funktiota kutsuttaessa alle nollan kummallakaan akselilla. Selkeä siis sinänsä, mutta sitä lähinnä kysyisin, että mikäli CalculatePath()-funktio ei huoli arvoltaan negatiivisia parametrejä, niin mikä olisi helpoin/järkevin tapa toteuttaa em. funktiolle kelpaavat parametrit? Kiitos jo etukäteen kaikille

Code: Select all

If MouseUp(1) Then
    path = CalculatePath(ObjectX(obj),Objecty(obj),MouseX(),MouseY())
EndIf

OffTopic: Ajattelin jatkaa sittemmin jäätynyttä Discord-peliäni, ja tahdon siihen ehdottomasti hiiriohjauksen (ja muitakin toimintoja myös hiirelle), ja siksi siis olen kiinnostunut tästä mainiosta kirjastosta.

Function MuunnaX(pelimailmax,taulukonleveys)
    taulukkox=taulukonleveys/2+pelimaailmax
    Return taulukkox
End Function
Function MuunnaY(pelimailmay,taulukonkorkeus)
    taulukkoy=taulukonkorkeus/2+pelimaailmay
    Return taulukkoy
End Function

DJ-Filbe wrote:Videon toisto ei onnistu. Video lähtee pyörimään niin, että äänestä kuuluu noin puoli sekuntia (näyttö mustana) ja sitten kaikki pysähtyy. Tämä siis CB:n manuaalin koodilla.
Video tehty MovieMakerilla (2.6)

MaGetzUb wrote:

DJ-Filbe wrote:Videon toisto ei onnistu. Video lähtee pyörimään niin, että äänestä kuuluu noin puoli sekuntia (näyttö mustana) ja sitten kaikki pysähtyy. Tämä siis CB:n manuaalin koodilla.
Video tehty MovieMakerilla (2.6)

Mikähän tiedostoformaatti mahtaa olla kyseessä?

MrMonday wrote:Kertokaapas nyt, arvoisa foorumin väki, että miten saan toteutettua kahden pallon törmäyksen jälkeisen kimpoamisen, siis siten, että kun pallo A törmää pallo B:hen, niin nämä kimpoaisivat toisistaan oikeisiin suuntiin. Eli aivan kuten biljardissa pallot kimpoavat toisistaan törmätessään. Jostain syystä ei vaan aivot toimi, vaikka ratkaisu onkin varmasti hyvin simppeli

Kiitos jo etukäteen

  
    SCREEN 400,300
    FrameLimit 60
    
    x# = 50
    y# = 150
    x2# = 350
    y2# = 150   
    angle# = 0
    angle2# = 180
    speed# = 3
    speed2# = 6
    rad# = 6
    rad2# = 6
    
    Repeat
        
        x# = x# + Cos(angle#) * speed#
        y# = y# - Sin(angle#) * speed#
        x2# = x2# + Cos(angle2#) * speed2#
        y2# = y2# - Sin(angle2#) * speed2#
        
        speed# = Max(speed# - 0.03,0)
        speed2# = Max(speed2# - 0.03,0)
        
        If Distance(x#,y#,x2#,y2#) <= rad#/2+rad2#/2
            
            If o=0
                o = 1
            
                nspeed# = speed#/6+speed2#/4
                nspeed2# = speed2#/6+speed#/4
                speed# = nspeed#
                speed2# = nspeed2#
                
                //nangle# = ((180-angle#)+angle2#)/2
                //nangle2# = ((180-angle2#)+angle#)/2
                nangle# =  ((180-angle#)+angle2#)/2
                nangle2# = ((180-angle2#)+angle#)/2
                angle# = nangle#
                angle2# = nangle2#
            EndIf
            
        Else
            o=0
        EndIf
    
        Color 54,160,32
        Circle x#-rad#/2, y#-rad#/2,rad#
        Text 10,10, Str(speed#)
        Color 32,64,160
        Circle x2#-rad2#/2, y2#-rad2#/2,rad2#
        Text 10,20, Str(speed2#)
        
        If GetKey() > 0
            If Rand(0,1) = 1
                i=Rnd(-40,40)
                a=Rnd(3,7)
                x# = 50
                y# = 150 
                x2# = 350
                y2# = 150
                angle# = 0+i
                angle2# = 180-i
                speed# = a
                speed2# = a
                rad# = 6
                rad2# = 6
            Else
                x# = 50
                y# = 150 
                x2# = 350
                y2# = 150
                angle# = 0
                angle2# = 180
                speed# = Rnd(0,7)
                speed2# = Rnd(0,7)
                rad# = 6
                rad2# = 6
            EndIf 
        EndIf
        
        
        
    
        DrawScreen
    Forever 

Laurenzo wrote:Miten voi tehä sellase peli että hahmo liikkuu joystickilla?
oon just saanu joistiki

VesQ wrote:

Laurenzo wrote:Miten voi tehä sellase peli että hahmo liikkuu joystickilla?
oon just saanu joistiki

DLL:llä, jonka joudut itse väsäämään. Tai sitten odotat että cbE tukee ilotikkuja