Sophie

Sophie

distrib > Fedora > 15 > i386 > by-pkgid > bfa8d3d691d0a342cec73ddfa2abcc84 > files > 14

nqc-doc-3.1.7-8.fc15.i686.rpm

task main()
{
  ClearMessage();
  Wait(200);             // make sure all robots are on
  Wait(Random(400));      // wait between 0 and 4 seconds
  if (Message() > 0)      // somebody else was first
  {
    start slave;
  }
  else
  {
    SendMessage(1);       // I am the master now
    Wait(400);           // make sure everybody else knows
    start master;
  }
}

task master()
{
  SendMessage(1); Wait(200);
  SendMessage(2); Wait(200);
  SendMessage(3);
}

task slave()
{
  while (true)
  {
    ClearMessage();
    until (Message() != 0);
    if (Message() == 1) {OnFwd(OUT_A+OUT_C);}
    if (Message() == 2) {OnRev(OUT_A+OUT_C);}
    if (Message() == 3) {Off(OUT_A+OUT_C);}
  }
}