I tried the following code in version 2019.01.18 of the IDE and player and it worked here. When you run the player does it have the correct date at the bottom of the screen (Jan 17th 2019)? You could try uninstalling the player and reinstalling, not sure what else could be causing it.
SetErrorMode(2)
SetVirtualResolution(1024,768)
SetClearColor( 101,120,154 )
SetScissor(0,0,0,0)
SetPrintSize( 25 )
SetWindowAllowResize(1)
UseNewDefaultFonts(1)
do
Print( ScreenFPS() )
Sync()
loop
function createBackgroundWall(width#, height#, xpos#, ypos#, imageName$, phyType, imagenum)
rem get the file
Tfile$=left(imageName$,len(imageName$)-3)+"shp" //Tfile$=left(bg1.png,len(imageName$)-3)+"shp"
rem load the image
if imagenum<=0
imagenum = loadImage(imageName$)
else
loadImage(imagenum,imageName$)
endif
rem create the sprite
scaleX# = width# / getImageWidth(imagenum)
scaleY# = height# / getImageHeight(imagenum)
spr = createSprite(imagenum)
setSpriteSize(spr,width#,height#)
setSpriteOffset(spr,width#*0.5,height#*0.5)
setSpritePosition(spr,xpos#,ypos#)
setSpritePhysicsOn(spr,phyType)
setSpriteShape(spr,0)
SetSpriteDepth(spr,11)
rem read the contents and create the shape
filenum = openToRead(Tfile$)
nul$ = readLine(filenum)
shapes = val(readLine(filenum))
for i=1 to shapes
nul$ = readLine(filenum)
nul$ = readLine(filenum)
totalnum = val(readLine(filenum))
for x=1 to totalnum
nul$ = readLine(filenum)
pntx# = FloatVal(readLine(filenum))
pnty# = FloatVal(readLine(filenum))
addSpriteShapePolygon(spr,totalnum,x-1,pntx#*scaleX#,pnty#*scaleY#)
next
next
closeFile(filenum)
endfunction spr
function FloatVal(s$)
s1$=""
s2$=""
l = len(s$)
for c=1 to l
letter$=mid(s$,c,1)
if letter$="."
s2$=mid(s$,c+1,l-c)
exit
else
s1$=s1$+letter$
endif
next
v1=val(s1$)
v2#=val(s2$)
n=len(s2$)
if n>6
n=6
s2$=mid(s2$,1,6)
v2#=val(s2$)
endif
for i=1 to n
v2#=v2#*0.1
next
v#=v1+v2#
endfunction v#
