画像がちらつく - HSPTV!掲示板

画像は自分で作ったものなのでスプリクトを実行しても
画像が合わないでだめなんですが一応スプリクトを
乗せてます画像は3枚使っているんですが
1枚目、背景　2枚目スクロール画像　3枚目　自機
初心者なのでサンプルのものをだいたいいじったものなので
めちゃくちゃなのかもしれませんが
画像のちらつきを無くさせるだけでいいのです
どこを変更したらよいのでしょうか？？

score=0
screen 0, 440, 180
picload "tilebg.bmp"

dim x1,10
dim z1,10
dim y1,10
dim x2,10
dim y2,10

screen 1

picload "tilebg.bmp"

winx1=ginfo_winx-10
x2=0, winx1, winx1, 0
winy1=ginfo_winy-20　　　　　
winy8=ginfo_winy/20

y2=800, 800, winy8-1, winy8-1
z1=500,500
trix=ginfo_winx/-1
x1.0=trix,winx1-trix,winx1,0
z1.2=255,255,winy8-1,winy8-1

celload "face.bmp" ; 元画像ファイル
face=stat ; 元画像のIDを保存
mx=5 ; X座標
my=250 ; Y座標
msp=4 ; スピード

zx=1.0 ; X倍率
zy=1.0 ; Y倍率
mr=0.0 ; 角度
*main_loop

gsel 0,1
gmode 0,1
repeat winy1+1-winy3
wait 0.1

gsquare 1,x1,z1,x2,y2
repeat 4
y2.cnt++

gmode 2 ; 透明色ありの指定
pos mx,my ; 表示位置の設定
celput face,0,zx,zy,mr ; 描画
celput face ; 画像コピー

redraw 1 ; 描画終わり

loop ; 繰り返しの終わり
loop
goto *main_loop