Contents of email message added to LordNews Issue #11 archive
on February 25, 2002.  This file named CC11-Fairy.Txt and included
inside lnws-11h.zip.  When I am ready to officially release this
issue, I'll include this file in the LNWS-11.ZIP text version file also.
Donald.
----------------------------------------------------------------------

Return-Path: <chasware2002@earthlink.net>
Received: from gull.prod.itd.earthlink.net ([207.217.120.84])
          by imf12bis.bellsouth.net
          (InterMail vM.5.01.04.05 201-253-122-122-105-20011231) with ESMTP
          id <20020226015540.JIRN8136.imf12bis.bellsouth.net@gull.prod.itd.earthlink.net>
          for <ktidmore@bellsouth.net>; Mon, 25 Feb 2002 20:55:40 -0500
Received: from cpe-24-221-46-222.az.sprintbbd.net ([24.221.46.222]
        helo=chas-0331.earthlink.net)
	by gull.prod.itd.earthlink.net with esmtp (Exim 3.33 #1)
	id 16fWos-0003xa-00
	for ktidmore@bellsouth.net; Mon, 25 Feb 2002 17:54:19 -0800
Message-Id: <5.1.0.14.2.20020225184403.00a47780@mail.earthlink.net>
X-Sender: chasware2002@mail.earthlink.net
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Mon, 25 Feb 2002 18:54:20 -0700
To: ktidmore@bellsouth.net
From: Chas <chasware2002@earthlink.net>
Subject: Fairy Code for Kdrive
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed

Donald,
Here is my code for fixing the Kdrive bug of NOT reading in the
fairy info on IGM LOAD.  Kdrive DOES properly record the fairy on EXIT.

Usage would be:

  InitKLord; {Initialize Kdrive via INFO.X and lose lose the fairy
  if you have one}
  ReadLordFile; {Read the player record from Lord - Fairies not
  stored in this record}
  FairyCheck; {Give back the fairy if lost during InitKLord}
  ....the rest of IGM code here......

Chas

PROCEDURE FairyCheck;
VAR F:TEXT;
        Temp:STRING;
        i : BYTE;
BEGIN
  Assign(F,InfoDir); {InfoDir is the path and filename variable of the
  info.x file that needs to be read}
  Reset(F);
  FOR i:= 1 TO 4 DO Readln(F,Temp);
  IF Temp[7] = 'Y' THEN Fairy(True);{If the Info.X says we have a fairy,
  then we give the player a fairy}
  Close(F); {back since Kdrive ripped them off !!!}
END;


