#include "mod_joystick.as"

	;	ジョイスティック接続サンプル
	;	(アナログスティックで移動させます)
	;
	tamas=ginfo_newid				; 未使用の画面IDを得る
	celload dir_tv+"tamane_b.png",tamas		; 素材フォルダから読み込みます
	celdiv tamas,256,512				; 256x512ドットに区切る

	;	標準のサイズで表示
	screen 0,640,480

	mx=320						; X座標
	my=240						; Y座標
	face=1						; 表情
	rate=32*64					; ジョイスティック感度
	dim jdata,16					; ジョイスティック情報

*main
	stick key,15					; キー入力
	if key&128 : goto *owari			; [ESC]で終了

	joyGetPosEx jdata, 0				; ジョイスティック入力
	if stat!=0 : goto *joy_err			; ジョイスティックのエラー時

	px=( jdata(2) - 32768 )/rate			; アナログ入力X
	py=( jdata(3) - 32768 )/rate			; アナログ入力Y

	;	入力から座標を動かす
	mx+=px
	my+=py

*joy_err
	redraw 0					; 描画始め

	color 0,160,160					; 背景色
	boxf						; 背景を消す

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

	redraw 1					; 描画終わり
	await 1000/60					; 60fpsで更新

	goto *main

*owari
	end