記述が不明瞭で、なぜ出口に着いたときに消さないのかわかりませんが、 出口に着いた人のうち、任意の数(3人)だけ消すという場合、 例えば、 Agt_stepのルールにおいて、 If 出口に着いた == True Then AddAgt(Universe.arrived, my) End if として Univ_step_endのルールにおいて ad = CountAgtSet(Universe.arrived) If ad > 3 Then For i = 0 to 2 person = GetAgt(Universe.arrived,i) Killagt(person) Next i Else For i = 0 to ad - 1 person = GetAgt(Universe.arrived,i) Killagt(person) Next i End if とすれば良いと思います。
回答者: igaguri さん , 回答日時: 2018/12/03 18:54
▼ 全ての回答
記述が不明瞭で、なぜ出口に着いたときに消さないのかわかりませんが、 出口に着いた人のうち、任意の数(3人)だけ消すという場合、 例えば、 Agt_stepのルールにおいて、 If 出口に着いた == True Then AddAgt(Universe.arrived, my) End if として Univ_step_endのルールにおいて ad = CountAgtSet(Universe.arrived) If ad > 3 Then For i = 0 to 2 person = GetAgt(Universe.arrived,i) Killagt(person) Next i Else For i = 0 to ad - 1 person = GetAgt(Universe.arrived,i) Killagt(person) Next i End if とすれば良いと思います。