Objektit : funktiot

NEXTOBJECT


   KUVAUS

CoolBasic tarjoaa mahdollisuuden käydä kaikki objektit läpi. Samaan tapaan kuin For..Each läpikäy kaikki tyypin jäsenet tai For..Next läpikäy esimerkiksi kaikki taulukon solut. Lista alustetaan komennolla InitObjectList, joka siirtää sisäisen osoittimen listan alkuun, eli ensiksi luotuun objektiin.

Pääset käsiksi itse objekteihin tällä funktiolla. Se palauttaa listassa seuraavan objektin. Kun lista on käyty kokonaan läpi, palauttaa NextObject nollan.

Tämä on kätevä esimerkiksi silloin, kun pitäisi käydä kaikki viholliset tai ammukset läpi (ne tunnistetaan esim. ObjectInteger-funktiolla).

HUOM! Tämä komento ei toimi 3D-tilassa.

   KÄYTTÖ
NEXTOBJECT ()

Katso myös: INITOBJECTLIST

   ESIMERKKI
'Create 9 cows and position them into a row
For i=0 To 7
    obj=LoadObject("Media\cow.bmp")
    PositionObject obj,( -4+i)*40,0
Next i

'enable shapes to be rendered into world coordinates
DrawToWorld ON

ClsColor cbdarkred

InitObjectList 'reset the object iteration
Repeat

    If TIMER()>interv+1000 Then
        current=NextObject()
        If current
            drawx=ObjectX(current)
            drawy=ObjectY(current)
        Else
            'all objects have been iterated, start all over
            InitObjectList
        EndIf
        
        interv=TIMER()
    EndIf

    Color cbpink
    Circle drawx-20,drawy+20,40,OFF

    Text 0,0,current
    DrawScreen

Until EscapeKey()

<<TAKAISIN