Food-web in Arabic

globals [grass cheetahs-nb snakes-nb fennecs-nb rabbits-nb birds-nb ]  ;; keep track all inividuals

breed [cheetahs cheetah]
breed [snakes snake]
breed [fennecs fennec]
breed [rabbits rabbit]
breed [birds bird]
turtles-own [energy age] 
patches-own [countdown]


;;@@@@@@@@@@@@@@@ TO SETUP @@@@@@@@@@@@@@@@@@@@@@@@@@

to setup
  clear-all
  
    ask patches [
      set pcolor one-of [green white]
      if pcolor = green
        [ set countdown مستوى-نمو-العشب ]
    ]
  
  ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@ breed shapes @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 
   set-default-shape cheetahs "cheetah"
  create-cheetahs العدد-الاولي-للفهد  ;; create the cheetah then initialize their variables
  [
    set color brown
    set size 3  
    set label-color blue - 5
    set energy random 100
    set age random 20
    
    setxy random-xcor random-ycor
  ]
  
  ;;@@@@@@@@@
  set-default-shape snakes "snake"
  create-snakes العدد-الاولي-للافعى  ;; create the snakes, then initialize their variables
  [
    set color red
    set size 2.4
    set energy random 100
    set age random 10
    setxy random-xcor random-ycor
  ]
  ;;@@@@@@@@@@@@@@@@@@@@
  set-default-shape fennecs "fennec"
   create-fennecs العدد-الاولي-للفنك  ;; create the fennec, then initialize their variables
  [
    set color brown + 2
    set size 2.5
    set label-color blue - 2
    set energy random 100
    set age random 10
    setxy random-xcor random-ycor
  ]
  ;;@@@@@@@@@@@@@@@@@
  set-default-shape rabbits "rabbit"
   create-rabbits العدد-الاولي-للأرنب  ;; create the rabbit, then initialize their variables
  [
    set color grey 
    set size 1  
    set label-color blue - 2
    set energy random 60
    set age random 10
    setxy random-xcor random-ycor
  ]
  
  
   ;;@@@@@@@@@@@@@@@@@
  set-default-shape birds "bird side"
   create-birds العدد-الاولي-للأرنب  ;; create the rabbit, then initialize their variables
  [
    set color black
    set size 1  
    set label-color blue - 2
    set energy random 50
    set age random 10
    setxy random-xcor random-ycor
  ]
  
  
  
  
  ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  
  display-labels
  set grass count patches with [pcolor = green]
  reset-ticks
end    ;;@@@@@@@@@@@@@@@END TO SETUP @@@@@@@@@@@@@@@@@@@@@@@@@@

to go
   if not any? turtles [ stop ]
  go1
   ask patches [ grow-grass ] 
  tick ;move time one month
end   
;;@@@@@@@@@@@@@@@@@@@@@ TO  GO   @@@@@@@@@@@@@@@@@@@@@@@@@@@

to go1 
 
;;@@@@@@@@@@@@@@@@@@@@@@@@
  ask cheetahs [
    move
    set age age + 1  ;;growing
    set energy energy - 0.5  ;; deduct energy
    catch-fennecs
    catch-rabbits
    catch-snakes
    reproduce-cheetahs
    cheetah-death
    
  ]
;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  ask fennecs [
    move
    set age age + 1
    set energy energy - 0.5   ;; deduct energy
    eat-grass
    catch-birds
    catch-rabbits
    fennecs-death
   ;; reproduce-fennecs
    
  ]
  
 ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  ask snakes [
    move
    set age age + 1
    set energy energy - 0.5   ;; deduct energy
    catch-birds
    catch-rabbits
    catch-fennecs
    snakes-death
    reproduce-snakes
  ]
  
 
 ;;@@@ @@@@@@@@@@@@@@@@@@
 
   ask rabbits [
    move
    set age age + 1
    set energy energy - 0.5  ;; deduct energy
    eat-grass
    rabbits-death
    reproduce-rabbits
  ]
  
 ;;@@@@@@@@@@@@@@@@@@@@@@@
 
  ask birds [
    move
    set age age + 1
    set energy energy - 0.5  ;; deduct energy
    eat-grass
    birds-death
    reproduce-birds
  ]
 ;;@@@@@@@@@@@@@@@@@@@@@@@
 ask patches [ grow-grass ] 
  set grass count patches with [pcolor = green]
 
  display-labels
end 
;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

to move  ;; turtle procedure
  rt random 50
  lt random 50
  fd 1
end 

to eat-grass
  ;; animals eat grass color changes
  if pcolor = green [
    set pcolor green + 2 
    set energy energy + 1   ;; To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  ]
end 

to reproduce-fennecs  
  
  if random-float 100 < معدل-نمو-الفنك
   [  
    set energy (energy / 2)                
    hatch 1 [ rt random-float 360 fd 1  set age 0 ]  

   ]
end 

to reproduce-snakes 
 if random-float 100 < معدل-نمو-الأفعى
   [  
    set energy (energy / 2)                
    hatch 1 [ rt random-float 360 fd 1 set age 0 ]  

   ]
end 

to reproduce-birds  
 if random-float 100 < معدل-نمو-العصافير
   [  
    set energy (energy / 3)               
    hatch 1 [ rt random-float 360 fd 1 set age 0 ]  

   ]
end 

to reproduce-cheetahs 
if random-float 100 < معدل-نمو-الفهد
   [  
    set energy (energy / 2)                
    hatch 1 [ rt random-float 360 fd 1 set age 0  ]  

   ]
end 

to reproduce-rabbits
 if random-float 100 < معدل-نمو-الأرانب
   [  
    set energy (energy / 2)               
    hatch 1 [ rt random-float 360 fd 1 ]  

   ]
end 

;;@@@ hunting  process

to catch-rabbits  
  let prey one-of rabbits-here                     
  if prey != nobody                             
      [ ask prey [ die ]                          
      set energy energy + 3 ];;  To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
end 

;;@@@@@@

to catch-fennecs
  let prey one-of fennecs-here                   
  if prey != nobody                             
    [ ask prey [ die ]                          
      set energy energy + 4 ];;  To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
end 

;;@@@@@-----------------------________________________________

to catch-snakes
let prey one-of snakes-here
if prey != nobody                             
    [ ask prey [ die ]                         
      set energy energy + 5 ]
end 
;__________________________________________
;;@@@@@

;;@@@@@@@@@@@@@@@@@@@@@@@@@@@ catch-bird@@@@@@@@@@@@@@@@@@@@@@@

to catch-birds  
  let prey one-of birds-here                    ;; grab bird
  if prey != nobody                             ;;  if it get one
    [ ask prey [ die ]                          ;; bird die
     set energy energy + 3 ];; energy up To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
end 
;;_______________________________________________________________________________________________________________________

to cheetah-death  
  if (energy <= 0) or  (age >= 132) ; lifespan 13 years
   [ die ]
end 
;;@@@@

to fennecs-death  
  if (energy < 0) 
 [ die ]
  if (age >= 168) ;; fennec live to 14 years
  [ die ]
end 

to birds-death  
  if (energy < 0) or  (age >= 36) ;average life 3 years
  [ die ]
end 

to rabbits-death  
  if (energy < 0) 
  [ die ]
  if (age >= 90) 
  [ die ]
end 

to snakes-death  
  if (energy < 0) or (age >= 132) ; lifespan 13 years
   [ die ]
end 
;to death
  
 ;; ask snakes [
   ;; let limit count turtles-here 
;;    let a ( 0.95 * snakes-nb )
  ;;  ask n-of min [ 5 limit] turtles-here [ die ] ]
  ;
 ; ask patches [
;  repeat 5 [
  ;  if any? turtles-here [
;      ask one-of turtles-here [
        
;      ]
;    ]
;  ]
;]
;end

to grow-grass  ;
  if pcolor = (green + 2) [
    ifelse countdown > 100
      [ set pcolor green
        set countdown مستوى-نمو-العشب ]
      [ set countdown countdown - 1 ]
  ]
end 

to display-labels
  set cheetahs-nb count cheetahs
  set birds-nb count birds
  set snakes-nb count snakes
  set fennecs-nb count fennecs
  set rabbits-nb count rabbits
  ask turtles [ set label "" ]
  if اظهار-الطاقة [
    ask birds [ set label round energy ]
    ask rabbits [ set label round energy ]
    ask fennecs [ set label round energy ]
    ask snakes [ set label round energy ]
    ask cheetahs [ set label round energy ]
  ]
  
  if age-n [
    ask birds [ set label round age ]
    ask rabbits [ set label round age ]
    ask fennecs [ set label round age ]
    ask snakes [ set label round age ]
    ask cheetahs [ set label round age ]
  ]
end 




;;@@@ created by Kouidrat Amel @@@