« 【講座】「教えて！おにたま！！」 | メイン | HSPTV!メルマガ 第45号 »
2007年07月25日
【講座】HSPよく使うフレーズ 第34回 総集編2
テレビじゃ野球が雨で中止のときとか、総集編的なものをやりますな。
このコーナーでも前回から総集編として、スクリプトを集めてみました。
すべてHSP3用で、たいていの場合コピー＆ペーストで動きます。
実際に試してみてください。
●第6回テキストファイルを読む
notesel buf
noteload "test.txt"
sdim tmp,1000
repeat notemax
noteget tmp,cnt
mes ""+cnt+":"+tmp
wait 1
loop
stop
[HSP3用 text1.hsp]
サンプル1
サンプル2
サンプル3
サンプル4
[test.txt]
●第7回 画像を回転する
screen 2,200,200
color 200,0,0
boxf
color 255,255,255
font "",50
mes "うすあじ"
mes "ソフト"
gsel 0
pos 200,200
gmode 0,200,200
repeat 629
color 255,255,255:boxf
r=0.01*cnt
grotate 2,0,0,r
redraw 1
await 1
redraw 0
loop
stop
[HSP3用 rote.hsp]
●第8回 EXEのファイル名を指定
#packopt name "sample"
#packopt xsize 200
#packopt ysize 100
mes "test"
stop
[HSP3 exetest.hsp]
●第9回 画像を変形する
dim x1,10
dim y1,10
dim x2,10
dim y2,10
x1.0=30,170,200,0
y1.0=0,0,200,200
x2.0=0,200,200,0
y2.0=0,0,200,200
screen 2,200,200
color 200,0,0:boxf
color 255,255,255
font "",40,2
mes "納豆は"
mes "ねばねば！"
mes "するぞー！"
gsel 0
gmode 200,200
gsquare 2,x1,y1,x2,y2
stop
[HSP3用 squ.hsp]
● 第10回 limit命令は便利
//limit.hsp
screen 0,640,480
cls 4
wsize=50
*top
title ""+x
x=mousex
x=limit(x,0,640-wsize)
redraw 0
color 0,0,0:boxf
color 0,255,0:boxf x,400,x+wsize,410
redraw 1
wait 1
goto *top
[HSP3用 limit.hsp]
それじゃ、いろいろ試して感想を聞かせてね！
(うすあじ)
投稿者 usuaji : 2007年07月25日 23:42
口臭チェッカー市場