tamaenaga.hsp

sample\tamane\tamaenaga.hsp » Plain Format

#include "hsp3dish.as"

	;	珠音ちゃんシマエナガ サンプル
	;	(実際の画像データはhsptvフォルダに入っています)
	;
	randomize
	screen 0,640,480

	celload "yama.jpg",1		; 素材フォルダから読み込みます
	celload "tamaenaga.png",2		; 素材フォルダから読み込みます
	celdiv 2,32,32

	emax=30
	dim enx,emax
	dim eny,emax
	dim enpx,emax
	dim enpy,emax
	dim enp,emax
	repeat emax
		enx(cnt)=rnd(640)
		eny(cnt)=rnd(480)
		enpx(cnt)=rnd(3)-5
		enpy(cnt)=rnd(5)-2
		enp(cnt)=rnd(4)
	loop


	frame=0
	myx=100:myy=100:myspd=4
*main
	redraw 0
	pos 0,0:gmode 0:celput 1		; 背景
	gmode 2
	repeat emax
		x=enx(cnt)+enpx(cnt)
		y=eny(cnt)+enpy(cnt)
		if x<0 : x+=640
		if y<0|y>480 : enpy(cnt)=-enpy(cnt)
		enx(cnt)=x
		eny(cnt)=y
		i=(enp(cnt)+(frame/8))\4
		pos x,y:celput 2,i
	loop

	redraw 1
	await 1000/60
	frame++
	goto *main