foreach ($armor as $a) {
     if ($a->occurence > 1) {
         $occ = "(" . $a->occurence . ") ";
     } else {
         $occ = "";
     }
     $pdf->Text($apt_x, $apt_y, formatIt($occ . $a->name));
     //Gear name
     $pdf->SetFont('Lato-LigIta', '', 6);
     setBookLink($a->name, $apt_x - 12.5, $apt_y, $p, $pdf);
     //Gear bookLink
     $pdf->SetFont('Lato-Lig', '', $fontsize);
     $apt_y += $y_space;
 }
 //IMPLANTS
 $armor = filterImplantOnly($morphGear);
 $y_space = 3.5;
 $apt_x = 141;
 $apt_y = 171.5;
 $fontsize = 8;
 //if more than 17 implants then chage the fontsize and spaces
 if (count($armor) > 17) {
     $fontsize = 5;
     $y_space = 2;
     $apt_y = 170;
 }
 $pdf->SetFont('Lato-Lig', '', $fontsize);
 foreach ($armor as $a) {
     if ($a->occurence > 1) {
         $occ = "(" . $a->occurence . ") ";
     } else {
 echo $line . $carriageReturn;
 //GEARS
 echo formatTitle("Gears") . $carriageReturn . $carriageReturn;
 $gears = filterGeneralOnly($morphGear);
 foreach ($gears as $g) {
     if ($g->occurence > 1) {
         $occ = "(" . $g->occurence . ") ";
     } else {
         $occ = "";
     }
     echo formatResult($occ . " " . $g->name) . $tab . setBookLink($g->name, $p) . $carriageReturn;
 }
 echo $line . $carriageReturn;
 //IMPLANTS
 echo formatTitle("Implants") . $carriageReturn . $carriageReturn;
 $implants = filterImplantOnly($morphGear);
 foreach ($implants as $i) {
     if ($i->occurence > 1) {
         $occ = "(" . $i->occurence . ") ";
     } else {
         $occ = "";
     }
     echo formatResult($occ . $i->name) . $tab . setBookLink($i->name, $p) . $carriageReturn;
 }
 echo $line . $carriageReturn;
 //MEMO (all ego bonus malus descriptive only)
 echo formatTitle("Morph Memo") . $carriageReturn . $carriageReturn;
 $morphBonusMalus = $_SESSION['cc']->getBonusMalusForMorph($morph);
 foreach ($morphBonusMalus as $bm) {
     echo formatResult($bm->name) . $carriageReturn;
     echo formatResult($bm->description) . $carriageReturn . $carriageReturn;