While Not KeyDown(1)
Cls
DrawImage mario,xm,ym
DrawImage pein,x,y
DrawImage cur,MouseX(),MouseY()
If KeyDown(200) Then
y = y - 1
EndIf
If KeyDown(208) Then
y = y + 1
EndIf
If KeyDown(203) Then
x = x - 1
EndIf
If KeyDown(205) Then
x = x + 1
EndIf
В действиях пробовал вставлять freeimage. Выдает ошибку.