//Plague?
					if (count("object",121)>$s2g_plagues){ [b](If the amount of planted grain is greater than the global value for plague triggering)[/b]
						if (skillvalue("plant")>40){ [b](If your planting skill is above 40)[/b]
							if (random(1,3)==1){ [b](You have a one in three chance of triggering a plague)[/b]
								$tmp=0; [b](Set a counting integer to 0)[/b]
								$tmp2=random(5,7); [b](Set a target integer as a random integer between 5 and 7. This is where we specify the randomness of how many "locust" appear.)[/b]
								loop ("objects",121){ [b](loop this event around objects with ID 121)[/b]
									$tmp++; [b](Increase counting integer)[/b]
									if ($tmp>=$tmp2){ [b](If counting integer exceeds target integer)[/b]
										$tmp=0; [b](reset the counting integer)[/b]
										$id=loop_id(); [b](get grain ID)[/b]
										$x=getx("object",$id); [b](Get grain location)[/b]
										$z=getz("object",$id); [b](Get grain location)[/b]
										create "unit",43,$x,$z; [b](Place a locus at the grain location)[/b]
									}
								}
								freevar $id,$x,$z; [b](free the grain variable)[/b]
							}
						}
					}