Objektit : hybridit

OBJECTSTRING


   KUVAUS

Liittää objektiin merkkijonon. Esimerkiksi nimen tai tiedon siitä, onko se ystävä vai vihollinen.

Komentoa voi käyttää myös funktiona, jolloin se palauttaa objektin tiedot. Tällöin tulos on merkkijono.

Esimerkki näyttänee parhaiten miten komentohybridiä voi käyttää.

   KÄYTTÖ
OBJECTSTRING objektimuuttuja, arvo
  tai
OBJECTSTRING (objektimuuttuja)

  • objektimuuttuja = Se muuttuja, mihin objekti ladattiin tai luotiin.
  • arvo = Desimaaliluku.

  • Katso myös: OBJECTINTEGER, OBJECTFLOAT

       ESIMERKKI
    DrawToWorld ON,ON,ON 'draw text to world coordinates
    'assign a custom mouse pointer
    cursor=LoadImage("Media\cursor.bmp")
    ShowMouse cursor

    guy1=LoadObject("Media\guy.bmp")
    guy2=LoadObject("Media\guy.bmp")
    guy3=LoadObject("Media\guy.bmp")

    PositionObject guy2, -100,0
    PositionObject guy3,100,0

    'make them pickable (by ball)
    ObjectPickable guy1,2
    ObjectPickable guy2,2
    ObjectPickable guy3,2

    'give guy1 some properties
    ObjectInteger guy1,100
    ObjectFloat guy1,PI
    ObjectString guy1,"friend"

    'give guy2 some properties
    ObjectInteger guy2,50
    ObjectFloat guy2,45.6
    ObjectString guy2,"enemy"

    'give guy3 some properties
    ObjectInteger guy3,25
    ObjectFloat guy3, -0.5
    ObjectString guy3,"neutral"


    ClsColor cbwhite
    Color cbblack

    '- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
    'THE GAME ITSELF
    Repeat

        CameraPick MouseX(),MouseY()
        
        e=PickedObject()
        If e Then
            'if picking resulted an object, print its properties
            CenterText ObjectX(e),ObjectY(e) -70,ObjectInteger(e)
            CenterText ObjectX(e),ObjectY(e) -60,ObjectFloat(e)
            CenterText ObjectX(e),ObjectY(e) -50,ObjectString(e)
        EndIf
        
        DrawScreen

    Until KeyHit(1) 'esc

    <<TAKAISIN