« 【講座】「教えて！おにたま！！」 | メイン | 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
口臭チェッカー市場