misc
Path : sample\misc
ahtman_kw.hsp
#include "hsedsdk.as" #include "mod_aht.as" gsel 0,-1 tminit ahtfile = dir_exe + "\\ezinput\\画面の操作\\カラー設定.aht" /* ahtfile = dir_cmdline if ahtfile="" { dialog "無効な機能を選択しました。
sample\misc\ahtman_kw.hsp - 2010/02/01
cnvsrc.hsp
title "cnvsrc v1.0" screen 0,480,240 sdim buf,$10000 sdim ln,4096 sdim fname,1024 enc=0 syscolor 15:boxf color 0,0,0 mes "指定されたスクリプトをC言語ソースファイルに変換します" pos 8,30 sysfont 17 mes "ソーススクリプト:" objsize 390,24 input fname objsize 64,24 pos 408,41:button
sample\misc\cnvsrc.hsp - 2011/11/08
dragdrop.hsp
Windowへのドラッグ&ドロップsample http: quasiquote.org/hspwiki/ thanks ちょくと さん http: yokohama.cool.ne.jp/chokuto/urawaza/dragdrop.html #uselib "shell32.dll" #func DragAcceptFiles "DragAcceptFiles" int,int #func DragQueryFile "DragQueryFileA" int,int,int,int
sample\misc\dragdrop.hsp - 2010/02/01
hspcmp.hsp
#include "hspcmp.as" hspcmp.dllを呼び出して、HSPスクリプトのコンパイルと実行を行ないます 使い方は、アイデア次第だと思いますが、知っておくと役立つ日がくるかもしれませんよ。 以下のスクリプトは、「winobj.hsp」というスクリプトを実行する (スクリプトエディタで[F5]キーを押すのと同じ)サンプルです。
sample\misc\hspcmp.hsp - 2010/02/01
hsptv_test.hsp
#include "hsptv.as" score=1000 sdim comm,64 mes "HSPTVデータの更新登録テスト" hsptv_up -1,"" 最初に情報を更新しておく gosub *update ランキング情報の表示 pos 500,32:objsize 120,24 mes "スコア" input score mes "コメント" input comm button "更新",*send button "終了",*ok stop *send hsptv_up
sample\misc\hsptv_test.hsp - 2010/02/01
hsptv_test2.hsp
title "HSPTV Test2" HSPTVブラウザ用・標準イメージを読み込む celload dir_exe+"\\hsptv\\hsptv_img.bmp",1 cls 4 画面をクリア fbase 0 フォントの起点を設定(0=通常フォント) celdiv 1,16,16,0,0 フォント用のドット分割指定 pos 120,100 gmode 2 黒は透過 fprt "HSPTV Origila Font Print" フォントを描画 fbase 96
sample\misc\hsptv_test2.hsp - 2011/11/08
hsptv_test3.hsp
title "HSPTV Test3" HSPTVブラウザ用・標準イメージを読み込む celload dir_exe+"\\hsptv\\hsptv_img.bmp",1 cls 4 画面をクリア 終了ボタン配置 pos 540,450 objsize 100,24 button "END",*owari bg=0 *main redraw 0 stick key if key&128 : goto *owari ESCキー if key&1 : bg=limit(bg-1,0,47)
sample\misc\hsptv_test3.hsp - 2011/11/08
label_type.hsp
ラベル型変数のテスト a=*test a(1)=*test2 mes "TYPE="+vartype(a) mes "USE="+varuse(a) gosub a gosub a(1) mes "OK" stop *test mes "JUMP OK" return *test2 mes "JUMP OK2" return
sample\misc\label_type.hsp - 2010/02/01
libptr.hsp
#uselib "user32.dll" #func MessageBoxA "MessageBoxA" int,sptr,sptr,int ladr=libptr( MessageBoxA ) dupptr lptr,ladr,28 STRUCTDAT構造体を取得 lib_id=wpeek(lptr,0) mes "LIB#"+lib_id mref hspctx,68 linf_adr=lpeek( hspctx, 832 ) if linf_adr=0 { mes "No Data."
sample\misc\libptr.hsp - 2010/02/01
macro.hsp
組み込みキーワードを新規命令で置き換える例 mes命令をサブルーチンによる表示に置き換えます。 (サブルーチンからは本来のmes命令を呼び出しています。
sample\misc\macro.hsp - 2010/02/01
mkpack.hsp
title "mkdpm v1.0" screen 0,480,240 sdim fname,256 sdim dname,256 dname="data" deckey=0 syscolor 15:boxf color 0,0,0 mes "指定ディレクトリの内容をDPMファイルに変換します" pos 0,30 sysfont 17 mes "ディレクトリ:" objsize 400,24 input fname objsize 64,24 pos 408,41:button
sample\misc\mkpack.hsp - 2010/02/01
nkfcnv.hsp
#include "hspinet.as" 単純なファイルのダウンロード netinit if stat : dialog "ネット接続できません。" : end neturl "http: www.yahoo.co.jp/" mes "DOWNLOAD 開始" netload "index.html" mes "DOWNLOAD 完了" mes "index.htmlを保存しました。
sample\misc\nkfcnv.hsp - 2010/02/01
sampview.hsp
title "HSP3 Sample Viewer 1.1" smppath=dir_exe+"\\sample\\" smppath=dir_exe+"\\hsp3rc2\\sample\\" dirlist smpstr,smppath+"*.*",5 smpstr="NEW\nGAME\nBASIC\nCOMOBJ\nHGIMG3\nHGIMG\nHSPCL\nHSPDA\nHSPDB\nHSPDX\nHSPEXT\nHSPINET\nHSPSOCK" sdim
sample\misc\sampview.hsp - 2010/02/01
winmove.hsp
各種配置オブジェクトのテスト (ウィンドウを動かすと位置を検出します) onexit *m6 onerror *m4 onkey *m5 onclick *m5 #define WM_MOVE 0x0003 oncmd gosub *m7,WM_MOVE a=123 buf="" input a,320,24 sdim buf,256 listbox z,100,"apple\npie\ntoast" mesbox buf,320,100 button "DELETE",*m1 button
sample\misc\winmove.hsp - 2010/02/01
winobj.hsp
#include "hsp3util.as" #include "obj.as" 特殊な配置オブジェクトを使ったサンプル statictext "スタティックテキストです",640,100 progbar 640,20 id=stat progbar_set id,1 button "無効ボタン",*owari objgray stat button "終了ボタン",*owari getobjsize inf,stat mes
sample\misc\winobj.hsp - 2010/02/01