search

cb-hackers / cbEnchanted

A new runtime for CoolBasic
13 stars 3 forks source link

PaintObject ei muuta maalattavan objektin leveyttä/korkeutta sisäisesti #23

Closed valscion closed 12 years ago

valscion commented 12 years ago

Vanha objektin leveys pysyy muistissa.

FrameLimit 60
guy = LoadObject("Media/guy.bmp", 4)
soldier = LoadObject("Media/soldier.bmp", 4)
ShowObject soldier, OFF

PaintObject guy, soldier

DrawToWorld ON
Repeat
    MoveObject guy, UpKey() - DownKey()
    TurnObject guy, (KeyHit(cbKeyLeft) - KeyHit(cbKeyRight)) * 90

    DrawGame
    w = ObjectSizeX(guy)
    h = ObjectSizeY(guy)
    Box ObjectX(guy) - w/2, ObjectY(guy) + h/2, w, h, OFF
    DrawScreen
Forever