basic

aviplay.as
window内aviファイル再生サンプル gsel 0,-1 dialog "avi",16,"aviﾌｧｲﾙ" if stat=0 : goto *dlcan fname=refstr screen 0,640,480,0 cls 4 objmode 1 objsize 160,32 pos 0,0 button "PLAY",*gogo pos 160,0 button "END",*dlcan pos 0,32 sndload fname,1 stop *gogo snd 1 stop
sample\basic\aviplay.as - 2004/06/12

C_CALC.AS
a=1 if a==1 : mes "OK!" if a!=2 : mes "OK!" mes "A="+a b=1<<4:c=4>>1 mes "B="+b+"/C="+c if 2>=1 : mes "TRUE!" : else : mes "FALSE!" if 2<=2 : mes "TRUE!" : else : mes "FALSE!" d=0 d++:d+ mes "D="+d d--:d- mes "D="+d d=1,2,3,4 mes
sample\basic\C_CALC.AS - 2004/06/12

CDPLAY2.AS
簡易CDプレイヤーサンプル ( 現在演奏中のトラックを監視するバージョン) mci "capability cdaudio can play" if stat!0 : dialog "デバイスは使用中です",1:end mci "status cdaudio number of tracks" if stat<0 : dialog "CDがセットされていません",1:end maxtrack=stat onexit *owari 終了した時のジャンプ先 mci "open cdaudio
sample\basic\CDPLAY2.AS - 2004/06/12

CHDIR.AS
ディレクトリ一覧表示サンプル (CHDIRを押すと、入力したディレクトリに移動します) alloc dirbuf,32000 dirbuf="" sel=0 ad="" objsize 200,24:pos 0,30 listbox sel,200,dirbuf input ad button "CHDIR",*chg *getdir color 255,255,255:boxf 0,0,640,24 color 0,0,0:pos 0,0:mes "DIR="+curdir dirlist
sample\basic\CHDIR.AS - 2004/06/12

CHKBOX.AS
cls 1 mes "Check box test" a1=1:a2=0 objsize 80,24 chkbox "変数a1",a1 chkbox "変数a2",a2 button "OK",*chkok stop *chkok m="現在の状態\na1="+a1+"/a2="+a2 dialog m stop
sample\basic\CHKBOX.AS - 2004/06/12

CLOCK.AS
今日の曜日を表示 gettime命令で曜日を取得し表示する。
sample\basic\CLOCK.AS - 2004/06/12

EDITOR.AS
mesbox命令による簡易テキストエディタ 編集可能なテキストファイルは32000バイトまでです。
sample\basic\EDITOR.AS - 2004/06/12

editor2.as
mesbox命令による簡易テキストエディタ2 (HSP ver2.5以降用) 編集可能なテキストファイルは32000バイトまでです。
sample\basic\editor2.as - 2004/06/12

EDITOR3.AS
title "size="+size goto *main *file_save dialog "txt",17,"ﾃｷｽﾄﾌｧｲﾙ" if stat=0 : goto *dlcan strlen a,buf テキストの長さを調べる bsave refstr,buf,a テキストファイルをセーブ *dlcan stop *file_load dialog "txt",16,"ﾃｷｽﾄﾌｧｲﾙ" if stat=0 : goto *dlcan2 bload refstr,buf
sample\basic\EDITOR3.AS - 2004/06/12

fonts.as
cls 4 color 255,155,55 boxf 0,84,640,90 boxf 0,0,640,40 font "Arial",20,17 pos 20,8 color 0,0,0 mes "HSP ver2.6 font test" font "Arial",20,16 color 255,255,255 pos 40,60 mes "Non-Anti-aliased" pos 360,60 mes "Anti-aliased" color 255,255,255 text 60
sample\basic\fonts.as - 2004/06/12

groupbox.as
Group Box例 cls 1 sdim bb,1024 st1="" st2="Static Text Message..." objsize 300,100 pos 0,0 mesbox st1,300,100,2 pos 40,40 mesbox st2,200,40,2 pos 0,0 button "GROUPBOX",*dummy a=0:objsend 2,$f4,7,a,1 pos 0,120 input bb stop *dummy stop
sample\basic\groupbox.as - 2004/06/12

GSEL.AS
gsel命令サンプル (３つのボタンで、もう１つのウインドゥの状態をコントロール) width 320,200 mes "MAIN" button "OFF",*sc0 button "ON1",*sc1 button "ON2",*sc2 screen 2,320,200 cls 4 mes "screen2" gsel 0,1 stop *sc0 gsel 2,-1 stop *sc1 gsel 2,1 stop *sc2 gsel 2,2 stop
sample\basic\GSEL.AS - 2004/06/12

gstyle.as
gstyle命令テスト screen 0,320,24 cls 3 color 255,255,255 mes "新しいウインドゥスタイル" screen 2,320,120,4 cls 2 mes "ID2以降のサイズ固定Window" screen 3,320,120,8 cls 2 mes "ツールWindow(タスクバーに出ません)" screen 4,320,120,16 cls 2 mes "縁の深いWindow" stop
sample\basic\gstyle.as - 2004/06/12

htcopy1.as
半透明コピーテスト1 「hsp2ttl.jpg」ファイルを同じディレクトリに 用意しておいてください。
sample\basic\htcopy1.as - 2004/06/12

htcopy2.as
半透明コピーテスト2 「hsp2ttl.jpg」ファイルを同じディレクトリに 用意しておいてください。
sample\basic\htcopy2.as - 2004/06/12

LINE.AS
redraw命令によるバッファ書き込みの速度テスト。 line命令を400回実行する際の違いを見ることができます。 ノーマルな描画の速度に比べて、redrawスイッチを0にして書き込んで おき、最後にredraw 1を実行した方が圧倒的に速度が違うのがわかると思います。
sample\basic\LINE.AS - 2004/06/12

loclabel.as
ローカルラベルのテスト mes "GO!" a=0 goto *@f 次のローカルラベルにジャンプ mes "GO!" ここは通らない *@ mes "A="+a a+ if a<5 : goto *@b 前のローカルラベルに戻る stop
sample\basic\loclabel.as - 2004/06/12

memcpy.as
メモリコピーテスト a="TEST MESSAGE" b="" memcpy b,a,16,0,5 mes "A="+a mes "B="+b memset b,'@',16,5 mes "B="+b stop
sample\basic\memcpy.as - 2004/06/12

modtest1.as
title "サイズ="+stat タイトルにファイルサイズ表示 objprm 0,txt *tover stop
sample\basic\modtest1.as - 2004/06/12

modtest2.as
#include "modtest2.as"」を入れることで使用できます。 通常のbload命令では、テキストを読み込んだ場合、以前に ロードされたテキストの一部が残ってしまう現象が起こる ことがありましたが、txtload命令はロードしたテキストの 最後に文字列の終了コード(0)を自動的に入れるので、 そうした問題がなくなります。
sample\basic\modtest2.as - 2004/06/12

modtest3.as
#module #deffunc strnum val,int strnum 変数, 数値 で、変数に[数値]という文字列を代入する。 mref _p1,16+8 mref _p2,1 _p1="["+_p2+"]" return #global strnumで指定された変数は、強制的に文字列型になる。 変数aをためしに数値(0)で初期化。 a=0 strnumを呼び出す strnum a,123 変数aを表示。変数aは文字列になっている。
sample\basic\modtest3.as - 2004/06/12

modtest4.as
#module #deffunc valchk val valchk 変数 で、変数についての情報を表示する。
sample\basic\modtest4.as - 2004/06/12

MOUSE.AS
マウスカーソルの座標を調べて表示します。 ボタンを押すとマウスカーソル表示ON/OFF、ランダムジャンプが可能です。
sample\basic\MOUSE.AS - 2004/06/12

NOTE1.AS
メモリノートパッド命令テスト１ "note1.as"にインデックス番号をつけて表示 nmax=0 b="" alloc a,32000 bload "note1.as",a notesel a notemax nmax idx=0 repeat nmax noteget b,idx print "index"+idx+"="+b idx++ loop stop
sample\basic\NOTE1.AS - 2004/06/12

NOTE2.AS
メモリノートパッド命令テスト２ 選んだファイルをメッセージボックスに表示。
sample\basic\NOTE2.AS - 2004/06/12

objmode.as
title "press [TAB] key" cls 1 objsize 160,24 pos 20,20 objmode 1,1 button "BYE",*ok objmode 2,1 font "Modern",14 chkbox "Check Box",a bb="OBJECT TEST" font "Lucida Console",14,1 input bb sysfont 11 ed="MesBox Test..." mesbox ed,160,100,0 ly=0
sample\basic\objmode.as - 2004/06/12

OBJSEL.AS
objsel命令を使用したサンプル ( [TAB]キーで入力フォーカスを移動する ) for HSP ver2.4d a1="" a2="" a3="" objsize 80,24,24 pos 120,12 mes "INPUT-1" mes "INPUT-2" mes "INPUT-3" pos 20,8 input a1 input a2 input a3 button "END",*owari curid=0 現在のフォーカスID *keychk wait 2 getkey a,9
sample\basic\OBJSEL.AS - 2004/06/12

ONEXIT.AS
onexit *exit mes "スクリプト終了テスト(クローズボックスを押してみてください)" button "END",*owari stop *exit dialog "終了していいですか?",2,"On exit prompt" if stat=7 : stop *owari end
sample\basic\ONEXIT.AS - 2004/06/12

onkey.as
onexit goto *owari 終了時にジャンプ onkey goto *inkey キー入力時にジャンプ onclick goto *inmouse マウスクリック時にジャンプ btnmes="END" mes "メッセージを入力して[Enter]" objsize 600,24 a="" input a button btnmes,*owari ボタン名に変数も使用できます *ao stop *inkey if iparam=229 : goto *ao IMEからの日本語入力 if
sample\basic\onkey.as - 2004/06/12

PICLOAD.AS
JPEGロード & BMPセーブをするスクリプト width 320,80 objsize 300,24 button "JPEGロード",*fload button "BMPセーブ",*fsave screen 2,640,480 gsel 2,-1 stop *fload dialog "jpg",16,"JPEG" if stat=0 : goto *failed gsel 2,1 picload refstr stop *fsave dialog "bmp",17,"BMP" if
sample\basic\PICLOAD.AS - 2004/06/12

SAMPLES.AS
HSPスクリプト・ミニミニサンプル onion software/onitama 1998/1 このサンプルは、HSP ver2.2以降で使うことのできる簡単な例を 集めたものです。それぞれのサンプルを切り出してスクリプト の一部として使用することができます。HSPの機能を活用する ための参考にしてみてください。
sample\basic\SAMPLES.AS - 2004/06/12

static.as
cls objmode 1 a="Test message..\nwaiting..." mesbox a,400,48,2 input b button "GO",*gogo stop *gogo objprm 0,"変更されました。
sample\basic\static.as - 2004/06/12

STICK.AS
stick命令によるメニュー選択サンプル cls 4 color 255,255,255 pos 300,180:mes "SELECTION-1" pos 300,200:mes "SELECTION-2" pos 300,220:mes "SELECTION-3" pos 300,240:mes "PROGRAM END" a=0 x=280:y=180:sel=0:maxsel=3 *selmain color 0,0,0:boxf x,y,x+20,y+20 y=sel*20+180
sample\basic\STICK.AS - 2004/06/12

STR.AS
str命令による、10進数->16進数変換サンプル a=0 b="" pos 0,0:input a pos 0,30:input b pos 70,2:mes "10進数" pos 70,32:mes "16進数" pos 0,60 button "変換",*in10 button "終了",*owari stop *in10 n=a:str n,16 objprm 1,n stop *owari end
sample\basic\STR.AS - 2004/06/12

STRMID.AS
i=" -" mes i a="ABCDEFG" mes "もとの文字列="+a strmid b,a,0,3 mes "左から３文字を取り出す="+b strmid b,a,-1,3 mes "右から３文字を取り出す="+b strmid b,a,2,3 mes "２文字目から３文字を取り出す="+b mes i instr c,a,"FG" mes "文字列「FG」のある場所="+c instr c,a,"AB" mes "文字列「AB」のある場所="+c instr c,a,"GH"
sample\basic\STRMID.AS - 2004/06/12

winhide.as
最初から非表示のウインドゥ screen 0,160,60 cls 3 button "ON",*aaa button "OFF",*bbb screen 2,320,240,2 cls 1 stop *aaa gsel 2,1 stop *bbb gsel 2,-1 stop
sample\basic\winhide.as - 2004/06/12