« 【講座】「教えて!おにたま!!」 | メイン | HSPTV!メルマガ 第20号 »

2006年08月01日

【講座】HSPよく使うフレーズ 第12回 ペイントソフトっぽいもの

マウスを使ってペイントソフトっぽいものを作ってみよう。

コーヒーを飲みながら昔のパソコンの事を思い出していると、
MacPaintというソフトのことをちょっと思い出した。

マウスでちょっとヘボい絵を描くツールってどうやって作るのかな?
と思ったら簡単そうなので作ってみました。

マウスの位置はシステム変数mousexとmouseyでわかります。
これはウィンドの左上からの座標。

それから、ボタンのクリックはstick命令で検出できます。

左ボタンを押すと●などを置けて、右クリックで置くキャラクタを
変更するというスクリプトにしてみた。

たったこれだけのスクリプトで絵が描けるのは面白いね。

screen 0,640,400
dim paint_char,10,10
paint_char(0)="●"
paint_char(1)="・"
paint_char(2)="★"
paint_char(3)="■"
*top
title ">"+paint_char(n)
x=mousex:y=mousey
stick key,256
if (key & 256):pos x-10,y-10:mes paint_char(n)
if (key & 512):n=(n+1) & 3
await 1
goto *top

[mouse.hsp / hsp3用]

(うすあじ)

投稿者 usuaji : 2006年08月01日 01:34

口臭チェッカー市場