#-------------------------------------#
#                                     #
#                            #
#                                     #
#-------------------------------------#

&read_stuff_base;

my @stuff_base;
sub read_stuff_base {
  open(STUFF_BASE,"..\\bases\\stuff_base.dat");
  @stuff_base=<STUFF_BASE>;
  close(STUFF_BASE);
}

alias {
  &read_stuff_base;
  local($found)=0;
  foreach $stuff(@stuff_base) {
    $stuff =~ s/\n//g;
    local(@temp) = split(/\'/,$stuff);
    local($ttt)="\'$temp[1]\'";
    if (($ttt =~ /@_/)&&(!$found)) {
      echo "  $stuff";
      $found=1;
    }
  }
  if (!$found) {
    echo "      !";
  }
} "?";

alias {
  &read_stuff_base;
  local($found)=0;
  foreach $stuff(@stuff_base) {
    $stuff =~ s/\n//g;
    local(@temp) = split(/\'/,$stuff);
    local($ttt)="\'$temp[1]\'";
    if (($stuff =~ /\: /)&&($stuff =~ /@_/)) {
      local(@temp2) = split(/\: /,$stuff);
      echo "  $temp[1]: $temp2[1]";
      $found=1;
    }
  }
  if (!$found) {
    echo "      !";
  }
} "?";

alias {
  &read_stuff_base;
  local($found)=0;
  foreach $stuff(@stuff_base) {
    $stuff =~ s/\n//g;
    local(@temp) = split(/\'/,$stuff);
    local($ttt)="\'$temp[1]\'";
    if (($ttt =~ /@_/)&&(!$found)) {
      while(length($stuff)>250) {
        $ttt=substr($stuff,0,250);
        $stuff=substr($stuff,250,length($stuff));
        sendl(" $ttt");
      }
      sendl(" $stuff");
      $found=1;
    }
  }
  if (!$found) {
    echo "      !";
  }
} "";

alias {
  &read_stuff_base;
  local($found)=0;
  foreach $stuff(@stuff_base) {
    $stuff =~ s/\n//g;
    local(@temp) = split(/\'/,$stuff);
    local($ttt)="\'$temp[1]\'";
    if (($ttt =~ /@_/)&&(!$found)) {
      while(length($stuff)>250) {
        $ttt=substr($stuff,0,250);
        $stuff=substr($stuff,250,length($stuff));
        sendl(" $ttt");
      }
      sendl(" $stuff");
      $found=1;
    }
  }
  if (!$found) {
    echo "      !";
  }
} "";

alias {
  &read_stuff_base;
  local($found)=0;
  foreach $stuff(@stuff_base) {
    $stuff =~ s/\n//g;
    local(@temp) = split(/\'/,$stuff);
    local($ttt)="\'$temp[1]\'";
    if (($ttt =~ /@_/)&&(!$found)) {
      while(length($stuff)>250) {
        $ttt=substr($stuff,0,250);
        $stuff=substr($stuff,250,length($stuff));
        sendl(" $ttt");
      }
      sendl(" $stuff");
      $found=1;
    }
  }
  if (!$found) {
    echo "      !";
  }
} "";

alias {
  &read_stuff_base;
  local($found)=0;
  foreach $stuff(@stuff_base) {
    $stuff =~ s/\n//g;
    if ($stuff =~ /@_/) {
      local(@temp) = split(/\'/,$stuff);
      echo "  $temp[1]";
      $found++;
    }
  }
  if (!$found) {
    echo "      !";
  } else {
    echo " : $found";
  }
} "?";
