Mojtaba

globals [
  payoff-sender  ;; keeps track of sender's payoff
  payoff-receiver ;; keeps track of receiver's payoff
]

breed [senders sender]
breed [receivers receiver]

senders-own [
  type ;; the type of the sender, which could be either 0 or 1
  signal ;; the signal sent by the sender, which could be either 0 or 1
]

receivers-own [
  action ;; the action taken by the receiver based on the signal received, which could be either 0 or 1
]

to setup
  clear-all
  set-default-shape senders "circle"
  set-default-shape receivers "triangle"

  ;; Create one sender and one receiver for simplicity
  create-senders 1 [
    set color blue
    setxy random-xcor random-ycor
    set type random 2 ;; type is randomly set to 0 or 1
  ]

  create-receivers 1 [
    set color red
    setxy random-xcor random-ycor
  ]

  reset-ticks
end 

to go
  ask senders [
    send-signal
  ]

  ask receivers [
    interpret-signal
  ]

  calculate-payoffs
  tick
end 

to send-signal
  ifelse type = 0 [
    set signal 0  ;; Sender of type 0 sends signal 0
  ][
    set signal 1  ;; Sender of type 1 sends signal 1
  ]
end 

to interpret-signal
  if [signal] of one-of senders = 0 [
    set action 0  ;; Receiver takes action 0 if the signal is 0
  ][
    set action 1  ;; Receiver takes action 1 if the signal is 1
  ]
end 

to calculate-payoffs
  let sender one-of senders
  let receiver one-of receivers

  ;; Simple payoff calculation based on matching of type and action
  if [type] of sender = [action] of receiver [
    set payoff-sender payoff-sender + 1
    set payoff-receiver payoff-receiver + 1
  ] [
    set payoff-sender payoff-sender - 1
    set payoff-receiver payoff-receiver - 1
  ]

  ;; Display the payoffs
  show payoffs
end 

to-report payoffs
  report (word "Sender Payoff: " payoff-sender "  Receiver Payoff: " payoff-receiver)
end