スクリーンセーバーの作り方

ランダムにいろんな位置に表示してみます。 prog08.as :

	screen 2, 200, 200
	picload "pic1.bmp"

	screen 3, 200, 200
	picload "pic2.bmp"

	screen 4, 400, 400
	repeat 10
		x = rnd(200)
		y = rnd(200)
		pos x, y
		gcopy 2, 0,0, 150,150
		await 1000
	loop

	stop

背景を黒に。 prog09.as :

	screen 2, 200, 200
	picload "pic1.bmp"

	screen 3, 200, 200
	picload "pic2.bmp"

	screen 4, 400, 400
	cls 4
	repeat
		x = rnd(200)
		y = rnd(200)
		pos x, y
		gcopy 2, 0,0, 150,150
		await 1000
	loop

	stop

残像を消してみます。 prog10.as :

	screen 2, 200, 200
	picload "pic1.bmp"

	screen 3, 200, 200
	picload "pic2.bmp"

	screen 4, 400, 400
	cls 4
	repeat
		x = rnd(200)
		y = rnd(200)
		pos x, y
		gcopy 2, 0,0, 150,150
		await 1000
		color 0,0,0  :  boxf x,y, x+150,y+150
	loop

	stop

２つの絵を交互に表示します。 prog11.as :

	screen 2, 200, 200
	picload "pic1.bmp"

	screen 3, 200, 200
	picload "pic2.bmp"

	screen 4, 400, 400
	cls 4
	repeat
		x = rnd(200)
		y = rnd(200)
		pos x, y
		repeat 3
			gcopy 2, 0,0, 150,150
			await 300
			gcopy 3, 0,0, 150,150
			await 300
		loop
		color 0,0,0  :  boxf x,y, x+150,y+150 
	loop

	stop

表示画面の全体を使うようにします。 prog12.as :

	screen 2, 200, 200
	picload "pic1.bmp"
	picx = ginfo_winx  :  picy = ginfo_winy

	screen 3, 200, 200
	picload "pic2.bmp"

	screen 4, 400, 400
	cls 4
	repeat
		x = rnd(400-picx)
		y = rnd(400-picy)
		pos x, y
		gcopy 2, 0,0, picx,picy
		await 1000
		color 0,0,0  :  boxf x,y, x+picx,y+picy
	loop

	stop