質問 (解決済み)| [artisocモデル] 人工社会構築指南、2部１１．５ | |
| 質問者: hd140050さん , 質問日時: 2017/12/27 19:14 |
eastwardのルールなのですが下記で実行すると
elseif-ステートメントの先頭にある文字列ではありません と出ます。
どこの個所が間違っているのかご教授ください。
Agt_Init{
My.Direction=0
}
Agt_Step{
dim crowd as agtset
dim CNo as integer
dim RNo as integer
dim LNo as integer
forward(1)
MakeOneAgtSetAroundOwn(crowd,1,universe.terminal.westward,false)
CNo=countagtset(crowd)
forward(-1)
turn(-45)
forward(1)
MakeOneAgtSetAroundOwn(crowd,1,universe.terminal.westward,false)
RNo=countagtset(crowd)
forward(-1)
turn(45)
turn(45)
forward(1)
MakeOneAgtSetAroundOwn(crowd,1,universe.terminal.westward,false)
LNo=countagtset(crowd)
forward(-1)
turn(-45)
if CNo == 0 then
forward(1.2)
My.advance=1.2
elseif RNo == 0 then
if Rnd()<0.5then
turn(-30)
else
turn(30)
end if
else
turn(-30)
end if
forward(1.2)
my.advance = 1
elseif LNo == 0 then
turn(30)
forward(1.2)
my.advance=1
elseif RNo > CNo and LNo > CNo then
forward(0.8)
my.advance = 0.8
elseif RNo > LNo then
turn (30)
forward(0.8)
My.advance=0.7
else
turn(rnd()*30-15)
forward(0.5)
my.advance=0.5
end if
my.Direction=0
universe.advance=universe.advance+my.advance
}
|
|
▼解決した回答
▼ 全ての回答
|
|
artisoc質問用掲示板（アーカイブ）