HSPのコード一覧 | ページ 8 | Codetter（こーどったー）

#cmpopt varinit 1

	dialog "ax", 16, "HSP Object File"
	if stat == 0 : end
	filename = refstr

; HSP 3.4
#include "hgimg3.as"

	hgini

; HSP 3.4
#uselib "dwmapi"
#func DwmEnableComposition "DwmEnableComposition" int

	if (varptr(DwmEnableComposition) == 0) {

#module foo n_
#modinit int n
	n_ = n
	mes "init #" + n_
	return

;
;	着弾予測
;
;弾道、飛距離、の予想。弾丸の発射が行えます。
;

/*
	nazr.inのサービスを使ってアドレスを短縮するスクリプト
	と、それを関数一つを呼び出して取得できるようにするモジュール

	nazr.in/docs/devのテキストAPIを使用します。

;
;	ウィンドウ中央表示（タスクバー考慮）
;
; タスクバーを考慮してウィンドウを中心寄せで配置します。
; ウィンドウが大きすぎてディスプレイサイズを超える場合は、左上が必ずディスプレイ内に入るよう調整。

mes "	T	E	S	T    !    "

#define TEST			$1
	#define TEST2 		$2
;
; ハイライトテスト
;

/*// c4hsp で使ったCのソースコード
int func(unsigned char *str) {
	unsigned char *p = str;
	while ( *( p++ ) );
	return (p - str -1);