new

dirlist.as
title "notesave命令テスト" screen 0,320,200 mes "カレントディレクトリの内容を、" mes "「dir.txt」にセーブしました。
sample\new\dirlist.as - 2004/06/12

gcopy5_6.as
buffer 3,,,0 picload "hsp2ttl.jpg" buffer 4,,,0 picload "kumo.jpg" screen 0,640,400,0 *main gm=5 repeat 128 rate=cnt*2 gosub *draw loop repeat 128 rate=256-(cnt*2) gosub *draw loop gm=6 repeat 128 rate=cnt*2 gosub *draw loop repeat 128
sample\new\gcopy5_6.as - 2004/06/12

getpath.as
title "getpath命令のテスト" sdim a,512 sdim b,512 screen 0,640,320 mes "ファイルを開いて下さい。" dialog "*",16:if stat=0 : end a=refstr getpath b,a,0 mes "すべて取り出す。" mes b getpath b,a,1 mes "拡張子を除いた部分を取り出す。" mes b getpath b,a,2 mes "拡張子を取り出す。
sample\new\getpath.as - 2004/06/12

macro_new1.as
ver2.61以降用 組み込みキーワードをマクロで置き換える例 mes命令をマクロによるmesに置き換えます。 (マクロからは本来のmes命令を呼び出しています。) #undef mes #define mes(%1) mes@hsp "MES->"+%1 mes "メッセージです。
sample\new\macro_new1.as - 2004/06/12

macro_new2.as
ver2.61以降用 組み込みキーワードを新規命令で置き換える例 mes命令をサブルーチンによる表示に置き換えます。 (サブルーチンからは本来のmes命令を呼び出しています。
sample\new\macro_new2.as - 2004/06/12

macros.as
#define ctype hour(%1) %1/3600 #define ctype min(%1) %1\3600/60 #define ctype sec(%1) %1\60 ctypeマクロテスト time=9865 a1=hour(time):a2=min(time):a3=sec(time) mes ""+time+"秒="+a1+":"+a2+":"+a3 mes " -" forマクロテスト for i,0,5 mes "count down="+i next mes "
sample\new\macros.as - 2004/06/12

memfile.as
bloadで読み込んだ画像データをpicloadで表示する (メモリストリームの例) notesel buf 読み込みバッファをbufに指定 noteload "hsp2ttl.jpg" サイズ可変バッファbufにファイルを読み込み memfile buf ストリームの直前で指定してください picload "MEM:a.jpg" 画像の拡張子識別のためダミー名a.jpgを使用 sdim buf,64 もったいないのでbufのメモリ領域を小さくしておきます 上は、「picload
sample\new\memfile.as - 2004/06/12

mesinfo.as
title "MESの表示範囲取得" screen 0,640,240 font msgothic,50,font_bold|font_antialias a="Hot Soup Processor":gosub *test a="Ver2.6β testing":gosub *test stop *test color 0,0,0 cx=csrx:cy=csry mes a ginfo ginfo_messize mes "SX="+prmx+"/SY="+prmy
sample\new\mesinfo.as - 2004/06/12

noteadd.as
title "テキストファイル作成" screen 0,320,240 cls 1 mes "指定範囲の数をテキストファイルに出力" objmode 1 pos 0,40:input p_start pos 80,40:mes "to" pos 110,40:input p_end pos 0,80:button "作成",*go stop *go buf="#NUM FILE" notesel buf i = p_end-p_start+1:if i<0 : end repeat i
sample\new\noteadd.as - 2004/06/12

objmode2.as
screen 0,240,480 cls 1 objsize 160,24 pos 40,40 objmode 1+16,1 button "BYE",*ok pos ,csry+8 objmode 2+16+32,1 font "Modern",14 chkbox "Check Box",a pos ,csry+8 bb="OBJECT TEST" font "Lucida Console",14,1 input bb pos ,csry+8 sysfont 11 ed="MesBox
sample\new\objmode2.as - 2004/06/12

onerror.as
エラートラップ onerror *emsg a="kkk"*4 エラーが起こります stop *emsg エラー発生時にここに飛んできます dialog "エラーが発生しました。
sample\new\onerror.as - 2004/06/12

ongosub.as
title "ON～GOSUB Test" screen 0,240,160 a=-1 combox a,100,"青\n赤\n緑" *main bak_a=a:while bak_a=a wait 5:wend on a gosub *a0,*a1,*a2 boxf goto *main *a0 color 0,0,255 return *a1 color 255,0,0 return *a2 color 0,255,0 return
sample\new\ongosub.as - 2004/06/12

star.as
randomize screen 0,320,240,0 cls 4 buffer 3,320,240,0 cls 4 font "ＭＳ ゴシック",40,1 buffer 4,,,0 cls 0 *main gsel 3 gmode 0,320,240 pos 5,5:gzoom 310,230,0 gmode 6,320,240,2 pos 0,0:gcopy 4,0,0 rnd x,320:x-=20:rnd y,240:y-=20 rnd r,256:rnd g,256:rnd
sample\new\star.as - 2004/06/12

starwipe.as
randomize buffer 4,,,0 picload "kumo.jpg" screen 0,320,240,0 cls 4 font "ＭＳ ゴシック",100,1 tm=0 *main tm=tm+1:if tm>10 { rnd x,320:x-=50:rnd y,240:y-=50 rnd r,256:rnd g,256:rnd b,256 color r,g,b:pos x,y:mes "★" tm=0 } gmode 6,320,240,8 rnd
sample\new\starwipe.as - 2004/06/12

switch.as
title "SWITCH～CASE Test" screen 0,240,160 a=-1 combox a,100,"青\n赤\n緑" *main while bak_a=a:wait 5:wend bak_a=a switch a case 0 color 0,0,255 swbreak case 1 color 255,0,0 swbreak case 2 color 0,255,0 swbreak default color 128,128,128 swbreak swend
sample\new\switch.as - 2004/06/12

sysinfo.as
sysinfo a,0 mes "OS = "+a sysinfo a,1 mes "USER = "+a sysinfo a,2 mes "MACHINE = "+a sysinfo a,16 mes "CPU CODE = "+a sysinfo a,33 mes "USED MEMORY % = "+a sysinfo a,34 mes "TOTAL MEMORY = "+a sysinfo a,35 mes "FREE MEMORY = "+a sysinfo a,36 mes
sample\new\sysinfo.as - 2004/06/12

xpstyle.as
XPビジュアルスタイル対応テスト このスクリプトをエディタで読み込んで実行ファイルを作成して下さい。 ([ctrl]+[F9]で自動作成をするか、「xpstyle.exe」という名前で実行ファイル作成) 作成された「xpstyle.exe」と同じフォルダに「xpstyle.exe.manifest」が あることを確認して、「xpstyle.exe」を起動してみてください。
sample\new\xpstyle.as - 2004/06/12