git.sesse.net Git - nms/blob - clients/makeplace.pl

   1 #! /usr/bin/perl
   2
   3 my $x = 308;
   4 my $y = 385;
   5 my $done = 0;
   6
   7 while (<>) {
   8         chomp (my $switch = $_);
   9         print "DELETE FROM placements WHERE switch=$switch;\n";
  10         printf "INSERT INTO placements VALUES ( $switch, '(%u,%u,%u,%u)');\n",
  11                 $x, $y, $x + 14, $y + 51;
  12         $y += 51;
  13         if ($y > 500) {
  14                 $y = 385;
  15                 $x += 18;
  16                 if ($x > 410 && $done == 0) {
  17                         $x += 13;
  18                         $done = 1;
  19                 }
  20                 if ($x > 570 && $done == 1) {
  21                         $x += 12;
  22                         $done = 2;
  23                 }
  24         }
  25 }