hsp3dish

block3.hsp
title "ブロック崩し" cls 4 *gstart clrflag=0 クリアフラグ blsize=16 ボールのサイズ blspd=10 ボールのスピード blx=200:bly=200 ボールの座標 bpx=4:bpy=4 XY方向のボール座標加算値 bk=0 ブロックを崩すフラグ(1=崩す) mblsize=-blsize barsize=64 バーのサイズ barx=240:bary=540 バーの座標 barhalf=barsize/2 blhalf=blsize/2
sample\hsp3dish\block3.hsp - 2018/05/04

block3_ad.hsp
title "ブロック崩し" repeat 10 redraw 0 redraw 1 await 33 loop devcontrol "AdMob" AdMobを有効にする cls 4 *gstart clrflag=0 クリアフラグ blsize=16 ボールのサイズ blspd=10 ボールのスピード blx=200:bly=200 ボールの座標 bpx=4:bpy=4 XY方向のボール座標加算値 bk=0 ブロックを崩すフラグ(1=崩す) mblsize=-blsize
sample\hsp3dish\block3_ad.hsp - 2018/05/04

button_test.hsp
#include "hsp3dish.as" gradf命令サンプル sx=ginfo_sx: sy=ginfo_sy screen 0,sx,sy celload "chr.png" info_os = sysinfo(0) info_user = sysinfo(1) info_name = sysinfo(2) flag_ios=0:flag_and=0:flag_win=0 if instr(info_os,0,"iOS")>=0 : flag_ios=1 if
sample\hsp3dish\button_test.hsp - 2018/05/04

celputm.hsp
title "CELPUTm Test" randomize sx=ginfo_sx 画面のXサイズ sy=ginfo_sy 画面のYサイズ celload "hsp3dish.png",2 celload "ball64.png",3 celdiv 3, 64,64, 32,32 setcls CLSMODE_SOLID, $404040 max = 100 ボールの最大数 gosub *c_init id=0 x = sx / 2 y = sy / 2 *main stick key if
sample\hsp3dish\celputm.hsp - 2018/05/04

dish_sortval.hsp
#include "hsp3dish.as" 配列変数のソート kaz=20 dim n,kaz pos 0,0 repeat kaz n.cnt = rnd(100) mes "N["+cnt+"]="+n.cnt loop sortval n,0 repeat redraw 0 color 0,0,0 pos 0,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop redraw 1 await 33
sample\hsp3dish\dish_sortval.hsp - 2018/05/04

ease_test1.hsp
#include "hsp3dish.as" イージング関数の設定 setease 100,400,ease_cubic_inout i=0 repeat 51 redraw 0 color 0,0,0:boxf 画面をクリア x = getease(i,50) イージング値の取得(整数) color 255,255,255 pos x,100 : mes "●" pos 16,16 : mes "i="+i+" x="+x redraw 1 await 30 i=i+1 loop
sample\hsp3dish\ease_test1.hsp - 2018/05/04

ease_test2.hsp
#include "hsp3dish.as" イージング関数の設定 i=0 repeat redraw 0 color 0,0,0:boxf 画面をクリア color 255,255,255 y=20 setease 100,400,ease_linear+ease_loop x = getease(i,50) イージング値の取得(整数) pos 100,y : mes "ease_linear" pos x,y+20 : mes "●" y+=50 setease
sample\hsp3dish\ease_test2.hsp - 2018/05/04

gradf.hsp
#include "hsp3dish.as" gradf命令サンプル sx=480: sy=800 screen 0,sx,sy それぞれの頂点座標と色を配列に代入 x(0)=0 : y(0)=0 : col(0)=$0000ff x(1)=sx : y(1)=0 : col(1)=$00ffff x(2)=sx : y(2)=sy : col(2)=$ff0000 x(3)=0 : y(3)=sy : col(3)=$ff00ff repeat py=sin(0.1*cnt)*32
sample\hsp3dish\gradf.hsp - 2018/05/04

grotate.hsp
title "grotate" celload "hsp3dish.png",3 cls 4 font "Arial",14 m="HSP3 grotate sample" maxx=ginfo_winx-32 maxy=ginfo_winy-32 max=20 dim xx,max dim yy,max dim px,max dim py,max dim rot,max dim prot,max repeat max xx.cnt=rnd(maxx) yy.cnt=rnd(maxy)
sample\hsp3dish\grotate.hsp - 2018/05/04

gsquare.hsp
title "gsquare" randomize celload "hsp3dish.png",3 screen 0,480,800,0 gmode 0,640,200 tx.0=0:ty.0=0 tx.1=640:ty.1=0 tx.2=640:ty.2=200 tx.3=0:ty.3=200 col.0=0xff0000 col.1=0x00ff00 col.2=0x0000ff col.3=0xffffff sw=0 repeat redraw 0 stick key if
sample\hsp3dish\gsquare.hsp - 2018/05/04

hsplogo.hsp
#include "hsp3dish.as" #cmpopt varname 1 #module "sprmod" #define global ROT4096 0.00153398078125 標準命令による簡易スプライトモジュール #deffunc init_sprite int _p1, int _p2, int max スプライト初期化 sprsx=_p1:sprsy=_p2 dim sprflg,max dim sprx,max dim spry,max dim sprpx,max
sample\hsp3dish\hsplogo.hsp - 2018/05/04

http_test1.hsp
#include "hsp3dish.as" ファイルの取得 画像ファイル(onibtn.gif)をネットから取得してファイルとして保存します URLを指定 url="http: www.onionsoft.net/img/onibtn.gif" fname ="onibtn.gif" 保存するファイル名 httpload url if stat : goto *bad 正しくリクエストができなかった "DOWNLOAD 開始" *main 結果待ちのためのループ httpinfo
sample\hsp3dish\http_test1.hsp - 2018/05/04

http_test2.hsp
#include "hsp3dish.as" ネット上のデータ取得(メモリ上に取得) 旧HSP3掲示板(onionsoft.net)の検索CGIを直接実行し、結果を取得します URLを指定 url="http: www.onionsoft.net/hsp/beta/betabbs.cgi" POST形式でCGIにパラメーターを渡す prm = "mode=find&cond=and&log=0&word=script" httpload url,prm if stat : goto *bad
sample\hsp3dish\http_test2.hsp - 2018/05/04

mtouch.hsp
title "Dish Test" repeat stick key,15 if key&128 : end redraw 0 gmode 0 color 0,0,128 boxf color 255,255,255 pos 0,0:mes "("+mousex+","+mousey+")" y=16 mtlist touchid num=stat repeat num id = touchid(cnt) mtinfo touch,id mes
sample\hsp3dish\mtouch.hsp - 2018/05/04

obaqtest.hsp
title "OBAQ Test" qreset OBAQの初期化 frame=0 boxmax=30 boxnum=0 *main メインループ redraw 0 画面の更新を開始 gradf ,,,,1,0,128 画面クリア qexec OBAQによるオブジェクトの更新 stick key,15 キーの取得 if key&128 : end [ESC]キーで終了 一定時間ごとに出現 if boxnum<boxmax { if frame\30=0 { qaddpoly my, 4,
sample\hsp3dish\obaqtest.hsp - 2018/05/04

tamacard_dish.hsp
#include "hsp3dish.as" tamaface=ginfo_newid celload dir_tv+"tamaface.png",tamaface 素材フォルダから読み込みます tama_sx=256:tama_sy=256 celdiv tamaface,tama_sx,tama_sy tcard=ginfo_newid celload dir_tv+"tcard.png",tcard 素材フォルダから読み込みます card_sx=256:card_sy=384
sample\hsp3dish\tamacard_dish.hsp - 2018/05/04

tamadot_dish.hsp
#include "hsp3dish.as" tamadot=ginfo_newid celload dir_tv+"tamadot.png",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,38 celput tamadot,38 celput tamadot,38
sample\hsp3dish\tamadot_dish.hsp - 2018/05/04

tamane_s2_dish.hsp
#include "hsp3dish.as" tamas=ginfo_newid celload dir_tv+"tamane_s.png",tamas 素材フォルダから読み込みます celdiv tamas,256,512 標準のサイズで表示 screen 0,640,480 *main redraw 0 color 0,160,160 boxf gmode 2 repeat 5 x=rnd(640):y=rnd(480) i=rnd(8) pos x-128,y-256 適当な座標に表示
sample\hsp3dish\tamane_s2_dish.hsp - 2018/05/04

tamane_s_dish.hsp
#include "hsp3dish.as" tamas=ginfo_newid celload dir_tv+"tamane_s1.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 16 goto *main
sample\hsp3dish\tamane_s_dish.hsp - 2018/05/04

test1.hsp
title "Dish Test" celload "chr.png",1 celdiv 1,16,16,0,0 celload "hsp3dish.png",2 celdiv 2,640,200,320,100 ang=0.0 font "Arial",32,1 repeat stick key,15 if key&128 : end redraw 0 gmode 0 color 0,0,128 boxf gmode 0 pos 0,20+16:celput 1,$1f gmode
sample\hsp3dish\test1.hsp - 2018/05/04

xsample_gcube.hsp
title "S.Programs Glass-Cube" version 1.0/sample_ver http: sprocket.babyblue.jp/ /* ・Glass-Cube ガラスのキューブがバウンドしながら転がっていく様子を描画します。 単一のオブジェクトをローカル座標変換して、回転させたり、鏡像にしたり、影にしたりして描画しています。
sample\hsp3dish\xsample_gcube.hsp - 2018/05/04