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

// http://togarasi.wordpress.com/2009/10/19/win7-%E3%82%BF%E3%82%B9%E3%82%AF%E3%83%90%E3%83%BC%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0%EF%BC%88appids%EF%BC%89/
// 参考にしました

#packopt name "test1"
;#packopt name "test2"

// http://togarasi.wordpress.com/2009/10/19/win7-%E3%82%BF%E3%82%B9%E3%82%AF%E3%83%90%E3%83%BC%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0%EF%BC%88appids%EF%BC%89/
// 参考にしました

#uselib "shell32"
#func SHGetPropertyStoreForWindow "SHGetPropertyStoreForWindow" sptr, sptr, sptr

#module
;	矢印描画モジュール
;使い方：lineと同じです。
#deffunc arrow_ int x1, int y1, int x2, int y2
	t = sin(deg2rad(15))

#include "user32.as"
#define GWL_WNDPROC -4
#define WM_CREATE 0x1
#define WM_DESTROY 0x2

	buffer 1, 800, 200
	font msgothic, 200, 16
	mes "←↑→↓"
	arrow = 1, 2, 4, 8
	celdiv 1, 200, , 100, 100

#include "d3m.hsp"//おまじない
randomize
/////////////////////////////////////////////
/////////////////////////////////////////////
repeat

randomize

dim ran, max
max =10

; http://www9.plala.or.jp/sgwr-t/lib/strcmp.html
#uselib "msvcrt.dll"
;#uselib "ntdll.dll"
#cfunc strcmp "strcmp" str, str

#include "a2d.hsp"

#module
#uselib "user32"
#func GetDC "GetDC" int

// コンソールに進捗状況を表示してみる by akk026

#runtime "hsp3cl"

#uselib "kernel32.dll"