// --------------------------------------
// FileName Object/default.dbs
//  Object 定義
//
PARAM	XMIN	YMIN	XMAX	YMAX

CHAR:="*"
XMUKI:=1
YMUKI:=1
x:=40
y:=10
SPEED:=1
POWER:=2
KNOWLEDGE:=2


// ---------------------------------------
// FileName Objet/Power.ams
//
param	pw

POWER:=pw



// ---------------------------------------
// FileName Objet/Speed.ams
//
param	SP

SPEED:=SP



// ---------------------------------------
// FileName Objet/Speed.ams
//
param	SP

SPEED:=SP



// ---------------------------------------
// FileName Objet/Work.ams
//
locate(x,y)
print " ",

x:=x+SPEED*XMUKI
y:=y+SPEED*YMUKI

if x<XMIN then
	x:=XMIN
	XMUKI:=1
endif
if x>XMAX then
	x:=XMAX
	XMUKI:=-1
endif

if y<YMIN then
	y:=YMIN
	YMUKI:=1
endif

if y>YMAX then
	y:=YMAX
	YMUKI:=-1
endif

locate(x,y)
print CHAR,



// ---------------------------------------
// FileName Objet/Nowledge.ams
//
param	pw

KNOWLEDGE:=pw



// ---------------------------------------
// FileName Objet/Thread1-4.ams
//

w:=wopen(0,0,0,1,40,10,31)
window(w)
msg("Thread1",0)
import	MAN

man1	:=	new	MAN(0,0,40,10)	//オブジェクトをnewする。

i:=0
repeat
	man1.work()					//生成されたオブジェクトのメソッド
	i:=i+1
until(i>1000000)
wclose(w)


// ---------------------------------------
// FileName Main/main.ams
//

w:=wopen(0,0,0,1,40,10,31)
window(w)

// Threadを4つ生成実行する
// ４つのスレッドが同時に動き回る

thread	THREAD1
thread	THREAD2
thread	THREAD3
thread	THREAD4

getchar