Objektit : komennot

INITOBJECTLIST


   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 tällä komennolla, joka siirtää sisäisen osoittimen listan alkuun, eli ensiksi luotuun objektiin.

Pääset käsiksi itse objekteihin funktiolla NextObject. Kyseinen funktio 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Ö
INITOBJECTLIST

Katso myös: NEXTOBJECT

   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