new35

clbk_enumwindows.hsp
title "コールバックモジュール" dim clbkptr,1 dim i,1 sdim tmpwns,64 sdim wns ewlb=*ew newclbk3 clbkptr,2,ewlb コールバック関数を作成する EnumWindows clbkptr,2 コールバックが必要なAPI title "トップレベルウィンドウ数:"+i mesbox wns,640,480,4,0 結果を表示する stop *ew 実際にコールバックを受け取るサブルーチン dupptr
sample\new35\clbk_enumwindows.hsp - 2018/05/04

clbk_gwlwndpproc.hsp
#include "modclbk3.hsp" ↓必要な定数の設定 #const GWL_WNDPROC $FFFFFFFC #const WM_CONTEXTMENU $0000007B #const WM_PASTE $00000302 ↓必要なＤＬＬ関数の登録 #uselib "user32.dll" #cfunc GetWindowLong "GetWindowLongA" int,int #func SetWindowLong "SetWindowLongA" int,int,int
sample\new35\clbk_gwlwndpproc.hsp - 2018/05/04

joystick1.hsp
#include "mod_joystick.as" ジョイスティック接続サンプル (キーボードかジョイスティックで移動させます) tamas=ginfo_newid 未使用の画面IDを得る celload dir_tv+"tamane_b.png",tamas 素材フォルダから読み込みます celdiv tamas,256,512 256x512ドットに区切る 標準のサイズで表示 screen 0,640,480 mx=320 X座標 my=240 Y座標 msp=4 スピード face=1
sample\new35\joystick1.hsp - 2018/05/04

joystick2.hsp
#include "mod_joystick.as" ジョイスティック接続サンプル (アナログスティックで移動させます) tamas=ginfo_newid 未使用の画面IDを得る celload dir_tv+"tamane_b.png",tamas 素材フォルダから読み込みます celdiv tamas,256,512 256x512ドットに区切る 標準のサイズで表示 screen 0,640,480 mx=320 X座標 my=240 Y座標 face=1 表情 rate=32*64
sample\new35\joystick2.hsp - 2018/05/04

joystick3.hsp
#include "mod_joystick.as" ジョイスティック接続サンプル (ジョイスティックの情報を表示します) 標準のサイズで表示 screen 0,640,480 dim jdata,16 ジョイスティック情報 *main stick key,15 キー入力 if key&128 : goto *owari [ESC]で終了 joyGetPosEx jdata, 0 ジョイスティック入力 if stat!=0 : goto *joy_err ジョイスティックのエラー時 px=(
sample\new35\joystick3.hsp - 2018/05/04

moji.hsp
mes/printサンプル (オプションを指定することで改行されません) font msgothic,20 s1="" x=0:y=0 repeat 5 moji="This is mes/print sample for HSP3.5." gosub *sub moji="１文字ずつ表示するサンプルスクリプトです。
sample\new35\moji.hsp - 2018/05/04

notefind.hsp
複数行文字列の検索 (HSP3.5からnotefind命令が標準命令として追加されました) sdim st,1000 st={"peach apple orange banana kiwi grape"} pos 0,0 mes st findstr="apple" notesel st pos 320,0 findstr="apple" i=notefind( findstr, notefind_match ) mes
sample\new35\notefind.hsp - 2018/05/04

packopt.hsp
実行ファイル・アイコン書き換えサンプル ([ctrl]+[F9]で実行ファイルの自動作成を行なってください) (packopt.exeが生成されます) randomize 作成する実行ファイル名 #packopt name "packopt" 埋め込むアイコンファイル #packopt icon "tamaicon.ico" 言語を指定 デフォルトは日本語 (1041) 英語(米国)は 1033 など10進数で記述 #packopt lang "1041"
sample\new35\packopt.hsp - 2018/05/04

sortnote.hsp
文字列のソート (HSP3.5からソートが標準命令になりました) sdim st,1000 st={"peach apple orange banana kiwi grape"} pos 0,0 mes st sortnote st,0 pos 320,0 mes st stop
sample\new35\sortnote.hsp - 2018/05/04

sortstr.hsp
配列変数のソート (HSP3.5からソートが標準命令になりました) randomize kaz=10 sdim n,32,kaz repeat kaz n.cnt=" "+rnd(20) loop pos 0,0 repeat kaz mes "N["+cnt+"]="+n.cnt loop sortstr n,0 pos 320,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop stop
sample\new35\sortstr.hsp - 2018/05/04

sortval.hsp
配列変数のソート (HSP3.5からソートが標準命令になりました) kaz=20 dim n,kaz pos 0,0 repeat kaz n.cnt = rnd(100) mes "N["+cnt+"]="+n.cnt loop sortval n,0 pos 320,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop stop
sample\new35\sortval.hsp - 2018/05/04

tamacard.hsp
珠音ちゃんドット絵素材サンプル (実際の画像データはhsptvフォルダに入っています) tamaface=ginfo_newid celload dir_tv+"tamaface.bmp",tamaface 素材フォルダから読み込みます tama_sx=256:tama_sy=256 celdiv tamaface,tama_sx,tama_sy tcard=ginfo_newid celload dir_tv+"tcard.png",tcard 素材フォルダから読み込みます
sample\new35\tamacard.hsp - 2018/05/04

tamadot.hsp
珠音ちゃんドット絵素材サンプル (実際の画像データはhsptvフォルダに入っています) tamadot=ginfo_newid celload dir_tv+"tamadot.bmp",tamadot 素材フォルダから読み込みます tama_sx=64:tama_sy=64 celdiv tamadot,tama_sx,tama_sy anim=0 *main redraw 0 color 255,255,255:boxf gmode 2 pos 0,0 celput tamadot,37
sample\new35\tamadot.hsp - 2018/05/04

tamane_s.hsp
珠音ちゃん絵素材サンプル (実際の画像データはhsptvフォルダに入っています) tamas=ginfo_newid celload dir_tv+"tamane_b1.png",tamas 素材フォルダから読み込みます 標準のサイズで表示 screen 0,800,600 x=0:y=1024-600 *main redraw 0 color 0,255,255 boxf gmode 2 pos 0,0-y celput tamas if y>0 : y=y-1 redraw 1 await
sample\new35\tamane_s.hsp - 2018/05/04

tamane_s2.hsp
珠音ちゃん絵素材サンプル (実際の画像データはhsptvフォルダに入っています) tamas=ginfo_newid 未使用の画面IDを得る celload dir_tv+"tamane_b.png",tamas 素材フォルダから読み込みます celdiv tamas,256,512 256x512ドットに区切る 標準のサイズで表示 screen 0,640,480 *main color 0,160,160 boxf gmode 2 repeat 5
sample\new35\tamane_s2.hsp - 2018/05/04

tree.hsp
木の素材サンプル (実際の画像データはhsptvフォルダに入っています) randomize celload dir_tv+"sozai4.jpg",1 素材フォルダから読み込みます celload dir_tv+"treeset.png",2 素材フォルダから読み込みます celdiv 2,160,320 標準のサイズで表示 screen 0,640,480 *main redraw 0 pos 0,0:gmode 0:celput 1 背景 gmode 2 repeat 5 pos
sample\new35\tree.hsp - 2018/05/04