◆□□□□□□□□□□□□□□□□□□□□□□□□□□□◆
                   ＨＳＰであなたもプログラマー

    発行者そらとす  第二十三回 “ルーレット”2002/2/20
   MAIL:soratosu@24i.net  HP:http://www3.to/soratosu/
◆□□□□□□□□□□□□□□□□□□□□□□□□□□□◆

お久しぶりです。(^^;約一ヶ月ぶりの発行です。
私立も一段落（合格）しましたので２３回を発行します。

★初めて購読の方
バックナンバーをご利用ください。
http://www.h3.dion.ne.jp/~fyoshio/merumaga.html

★前回
動体視力を鍛えました。

★今回
今回は、予告していたとおりルーレットを作りたいと思います。

こんな感じでつくりたいとおもいます。
・左クリックするまで回し続ける。
・左クリックしたら少しづつ遅くなりながらとまる。
・他？

とりあえず、画像を用意したいと思います。
人○ゲームっぽく０〜９にします。
そらとすが作った画像は６００＊９０になったのでメルマガでは、
６００＊９０で書きます。
（http://www.h3.dion.ne.jp/~fyoshio/gazo.lzh（0〜9のサンプル画像）


■すくりぷと
;# メインウィンドウをパレットモード(256色)で作ります。
screen 0,120,90,1

;# 画像をロードする用のウィンドウ（buffer)を作ります。
;# ウィンドウサイズは画像ロード時に自動的にそのサイズになるため適当でいいです。
buffer 3,,,1

;# 画像ロード
;# このファイルに0〜9の数字(じゃ無くてもいい)が書いてある。
picload "gazo.bmp"

;# 描画先をメインウィンドウ(ID=0)に戻します。
gsel 0

;# メインループ
*mainloop
	redraw 0          ;# ちらつきを抑えるためredraw 0〜redraw 1ではさむ
	color 255,255,255 ;# 画面全体を黒く塗りつぶす
	boxf              ;# ↑

	if p>=9 : p=0 : else : p+    ;# 9より大きくなっていたら0に戻す。違う場合は1プラス。

	pos 30,0
	gcopy 3,p*60,0,60,90 ;# 0,0にコピー
	;# 一個あたり60*90だから
	;# X座標=p*60
	;# Y座標=0
	;# X-size=60
	;# Y-size=90

	redraw 1 ;#描画

	stick a                ;# キー入力
	if a&256 : goto *stopp ;# 左クリックされていたら*stoppへ
	;# ↑getkeyで書く場合は
	;# getkey a,1
	;# if a=1 : goto *stopp

	wait 10 ;# 多めにウェイト

	goto *mainloop ;# 永久ループ

*stopp
	w=10 ;# だんだん遅くするようにする用の数値型変数

	;# １３回ループしたら抜ける
	repeat 13
		redraw 0
		color 255,255,255 : boxf
		if p>=9 : p=0 : else : p+    ;# 9より大きくなっていたら0に戻す。違う場合は1プラス。

		pos 30,0
		gcopy 3,p*60,0,60,90 ;# 0,0にコピー

		w++      ;# ウェイトを少しづつ増やす
		wait w
		redraw 1
	loop

	stop ;# とめる

ここまで。

どうですか？
クリックしたらすぐ止めるなら
*stoppのところは不要です。
*stopp
	stop
とすでばＯＫ。

以上終了。
質問疑問などがあればお気軽に掲示板やメールでお聞きください。

■読者様こーなー（デザインにちょっとこってみました(^^;■
受験スペシャル？？
◎今回受験にかんしてとてもたくさんの方からいただきました。
ありがとうございます。本当にこういうメールはうれしいです。
　┏━━━━━━┓
  ┃tamaさんより┃
┏┻━━━━━━┻━━━━━━━━━━━━━━━━━━━┓
┃受験頑張ってくださいね〜。                            ┃
┃HSPでは後輩（生徒）ですが，人生ではちょっと先輩ですね ┃
┃高校は，まあ楽しいことばかりというわけには行きませんが┃
┃楽しい事もたくさんありますよ。                        ┃
┃志望校目指して頑張ってね。                            ┃
┣━┳━━━━━━━━━━━━━━━━━━━━━━━━━┨
┃そ┃ありがとうございます。ありがとうございます。      ┃
┣━┛とてもやる気がでました。(^-^)                     ┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
他受験系Boraemonさん、い〜うさん、あのヲさん……
合計167通(過去最高)

おたよりお待ちしておりま〜す。soratosu@24i.netまで
どしどし送ってください。

●じこちゅー！！
僕は大阪のどこかの私立S校を受けました。
開始早々とてつもなくすさまじい眠気がおそってきてこまりました。
原因：早く寝すぎた。（睡眠時間１３時間。通常より６時間も多い。）
みなさん、受験前寝すぎないようにしましょう…ってだれもいないか。
その後昼休みにさっさと昼食をとり40分ほど爆睡したから午後の理科
社会はカンペキ。

あとは公立！！！まっとけ〜〜〜！大阪の数学むずい〜〜！
わけわかめ〜〜〜（古）！だりかおせーてーーーー！

こんな問題がでました。
（英語）次のうちアからエに適する語をえらびなさい。
        A：for B:in C:on D:by
（数学）点ＡとＰ、ＣとＢを結びその四角形の面積をこたえよ
（国語）全部わすれた
（理科）イ(優勢の法則)を発見した人物をこたえよ。
（社会）なんだっけ？公職選挙法が答えのやつだった