如何让两个智能体打架

Question

我需要让两队特工在他们看到对方的时候打架。每支球队都有50%的获胜机会。如果座席的能量低于初始配置，则会损失50%的能量。我该怎么做？我的代码似乎是错误的。谢谢。

to move-teamA
ask teamA
[
ifelse any? teamB-on patch-right-and-ahead -90 1 or any? teamB-on patch-
ahead 1  
[
  fd 1
  if energy < advance_energy [set energy (energy / 2)]                            
  let x random 1
            if x = 0 [fd 1]
            if x = 1 [die]]
end  

Answer 1

看看这种方法--我认为它是你想要做的事情的一个更简单的版本。我忽略了你的energy组件，因为我不确定你是如何设置它的，但是你可以随心所欲地把它放进去。

breed [ teamA one-teamA ]
breed [ teamB one-teamb ]

to setup
  ca
  create-teamA 10 [
    setxy random-xcor random-ycor
    set color red
  ]
  create-teamB 10 [
    setxy random-xcor random-ycor
    set color blue
  ]
  reset-ticks
end

to go
  ask turtles [
    let enemy one-of turtles in-cone 1 90 with [ breed != [breed] of myself ]
    ifelse enemy != nobody [
      ifelse random 2 = 1 [ ; if visible enemy exists, flip coin
        ask enemy [ die ]   ; if 1, enemy dies, I move forward
        fd 1
      ] [ 
        die 
      ]                     ; if 0, I die
    ] [ 
      fd 1 
    ]                       ; if no enemy, move forward
  ]
  tick
end