ページ 22 | Codetter（こーどったー）

#packopt name "test1"
#uselib "shell32"
#func SHGetPropertyStoreForWindow "SHGetPropertyStoreForWindow" sptr, sptr, sptr
#func GetCurrentProcessExplicitAppUserModelID "GetCurrentProcessExplicitAppUserModelID" wptr
#func SetCurrentProcessExplicitAppUserModelID "SetCurrentProcessExplicitAppUserModelID" wstr

// 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

// 座標
struct Point
{
	int x;
	int y;

# include <iostream>
# include <string>
# include <random>
void main()
{

randomize

dim ran, max
max =10