HSP

HSPに投稿されたコード一覧

WindowにHELPボタンを追加する[エラーが出る]

$00000400Lを指定するとエラーが出ます。「L」の指定方法で引っかかっているようです。
$00000400Lを指定するとエラーが出ます。「L」の指定方法で引っかかっているようです。
	#include "user32.as"
	#define WS_EX_CONTEXTHELP $00000400L
	GetWindowLong hwnd, -16
	SetWindowLong hwnd, -16, WS_EX_CONTEXTHELP

コードを見る
  • タグ:
  • タグはありません

ペア比較マクロ

(a, b) = (c, d) みたいな書き方ができるマクロ。見やすくなる時だけ使おう。 特殊展開マクロちゅっちゅちゅー
(a, b) = (c, d) みたいな書き方ができるマクロ。見やすくなる時だけ使おう。 特殊展開マクロちゅっちゅちゅー
// コア
#define global ctype _pairOpPush2(%1, %2) %t_pairOp %s2 %s1	// 逆順 (%pN の N を(左:0→右:max)にするため)
#define global ctype _pairOpPush1(%1)     %t_pairOp %s1
#define global       _pairOpPop2          %t_pairOp %o0 %o0
#define global       _pairOpPop1          %t_pairOp %o0
コードを見る

UserStream取得

TwitterのUserStreamを取得して、どんどんとmesしていくスクリプト。 hspextのpipeexec命令でも使って、別プロセスとして動かすことを想定して作りました。 固まることが多々あ...
TwitterのUserStreamを取得して、どんどんとmesしていくスクリプト。 hspextのpipeexec命令でも使って、別プロセスとして動かすことを想定して作りました。 固まることが多々あ...
#runtime "hsp3cl"

#packopt name "USA"


コードを見る

[初心者用] 文字色を変更しながら表示するサンプル

初心者用 HSPで文字を変えながら表示させてみましょう。
初心者用 HSPで文字を変えながら表示させてみましょう。
;
;ちらちらなしで文字を表示させるサンプル
;

	screen 0,500,300,,(ginfo_dispx-500)/2,(ginfo_dispy-300)/2
コードを見る
  • タグ:
  • タグはありません

HSPのテスト

http://antares.cn/hsp/sample/index.html#tournament より。
http://antares.cn/hsp/sample/index.html#tournament より。
;
#ifdef __hsp30__
#define objselstr(%1,%2,%3) vvv=%3: sendmsg objinfo(%1,2),177,%2,varptr(vvv)
#define getact(%1) %1=ginfo_act
#else
コードを見る
  • タグ:
  • タグはありません