[SBJoker]

держи:

Graphics 640,480,16,0,2

Global gfx_image = LoadImage("media\player.png")
Global player:TPlayer

Type TPlayer
    Field x:Float,y:Float
    Field image:TImage
    
    Function Create:TPlayer(x:Float,y:Float)
        Local p:TPlayer = New TPlayer
        
        p.x = x
        p.y = y
        p.image = gfx_image
        
        Return p
    End Function
    
    Method Update()
        DrawImage image,x,y
    End Method
End Type

player= TPlayer.Create(50,120)

Repeat
    Cls
    
    player.Update()
    
    Flip
Forever