autochess

[nerd.tech]

How do you make your program say a specific line of text when someone joins your table thx

[g00dtr]

right click on the pl file which is in the Yay or Stuci folder and click Edit, then find the typing part which is below somewhere and type what you want your program to say when someone joins or sits at your table

Code: Select all

sub rop_tableentry {   # 6a
        my $line=sprintf
        my $who=sreadutf($_[0]);
   my $table=unpack('C',shift());
   exists($handles{$who}) or return;
   defined($tables[$table]) or return;
   push(@{$handles{$who}->[2]},$table);
   push(@{$tables[$table]->[5]},$who);
   if (lc($who) eq lc($me)) {
      iprint "You are now observing game $table.\n";
      prompt;
      defined($primary) or $primary=$table;
   } else {
      top_ack $table,"Game $table: $who is now observing.";
                if (lc($tables[$table]->[6]->[0]) eq lc($me))   {   
         my $t=$tables[$primary];                       
                        my $message="Welcome @ $who  messaage  ";
                        nprinttop($t,0x43,packutf($message));
   
      }                     
   }
}

[matematiko]

I'd like to add that before editing your script( or any other perl script), allways make a back up.
It is so easy to mess up a good working script and so hard to find the error, specially when editing with a plain and simple text editor (such as notepad). Even professional editors not allways detect errors. See this topic for more information on editing perl scripts http://autochess.com/forum/viewtopic.php?t=63.

I have a technique( not necesary the best one) but I'd like to share it.

In the folder where ytoics.pl is ( usually c:\ytoics\), creare a new folder and name it "Backups", then when backing up a file save it with the date included in the file name, for example: ytoics_102107.pl . I also have in this folder a text file with notes. For example something like this:

ytoics.pl was backed up as ytoics_102107 before attempting to implement an autoboot.

Cheers