home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 14A / DAYNUM24.ZIP / DAYNUM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-25  |  794 b   |  33 lines
  1. PROGRAM SetDayNum;
  2. USES Globals, GameIO, Comm, Mouse4;
  3. VAR g,i:WORD;
  4.  
  5. PROCEDURE ProcessGame(game:BYTE);
  6. VAR i : BYTE;
  7. BEGIN
  8.   IF ExistGame(game) THEN BEGIN
  9.     Write(#13,'Processing game #',game);
  10.     LoadGame(game);
  11.     FOR i:=1 TO MaxPlayers DO
  12.       Player_Moved[i]:=Now-1.0;
  13.     SaveGame(game);
  14.   END;
  15. END;
  16.  
  17. BEGIN
  18.   IF Mouse_Installed THEN HideMouse;
  19.   Writeln('DayNum v2.40 by Joel Bergen');
  20.   IF ParamCount<>0 THEN BEGIN
  21.     g:=Value(ParamStr(1));
  22.     IF g<>0 THEN ProcessGame(g)
  23.     ELSE BEGIN
  24.       FOR i:=1 TO 255 DO ProcessGame(i);
  25.     END;
  26.   END ELSE BEGIN
  27.     Writeln('SYNTAX: DAYNUM game');
  28.     Writeln(' Sets all last-played dates to one day ago.');
  29.     Writeln(' game = game number to process, or 0 to process ALL games.');
  30.   END;
  31.   Writeln;
  32. END.
  33.