<font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US">Hello, XIE Wensheng,<br><br>I'm sorry for not approving your post, but it's been so much time that I've lost the admin password.<br>

<br>As you can see, the project is a little dead :S<br><br>I might work on it again at the end of this year or beginning of the next one, but no promises.<br></span></font><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

<div link="blue" vlink="purple" lang="ZH-CN"><div><p class="MsoNormal"><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US"><br></span></font></p>

<p class="MsoNormal"><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US">The document file has been reviewed and some spelling
errors are corrected.</span></font></p></div></div></blockquote><div><br><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US"> Thank you for reviewing the .tex file, I'll take a look at it and commit later, and sorry for the spell mistakes.</span></font> <br>

</div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div link="blue" vlink="purple" lang="ZH-CN"><div>

<p class="MsoNormal"><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US"> </span></font></p>

<p class="MsoNormal"><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US">One question:</span></font></p>

<p class="MsoNormal"><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US"> </span></font></p>

<p class="MsoNormal"><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US">Why the parameter ‘fireball-guaranteed-lifetime is not
used in the program?</span></font></p>

<p class="MsoNormal"><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US">How to use it?</span></font></p></div></div></blockquote><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US"><br>

It's a bug, I missed it, thanks for reporting. Now it is (hopefully) fixed </span></font><font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US">and committed (fortunately I remember the svn password :)</span></font><br>

<font face="Arial" size="1"><span style="font-size: 9pt; font-family: Arial;" lang="EN-US"><br>In case you wonder, these are the changes: in systems.lisp, create a slot named lifetime:<br><br><span style="font-family: courier new,monospace;">(defclass object ()</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  ((direction  :accessor object-direction  :initarg :direction)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">   (x-position :accessor object-x-position :initarg :x-position)</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">   (y-position :accessor object-y-position :initarg :y-position)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">   (lifetime   :accessor object-lifetime   :initarg :lifetime :initform 0)))</span><br>

<br><br>add a method for make-move:<br><br><span style="font-family: courier new,monospace;">(defmethod make-move :after (object move)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">  (incf (object-lifetime object)))</span><br>

<br><br>and, in definitions/rules.lisp, make these changes:<br><br><span style="font-family: courier new,monospace;">(def-feeb-parm 'fireball-guaranteed-lifetime 3</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">  "Number of turns that a fireball is guaranteed not to dissipate,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">unless it encounters a wall.")</span><br style="font-family: courier new,monospace;">

<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">(defmethod make-move-choice ((fireball fireball))<br>  (cond<br>   ((wallp (get-forward-pos fireball))<br>    (if (chance (get-feeb-parm 'fireball-reflection-probability))<br>

        :turn-around<br>        :dissipate))<br>   ((and (>= (object-lifetime fireball)<br>             (get-feeb-parm 'fireball-guaranteed-lifetime))<br>         (chance (get-feeb-parm 'fireball-dissipation-probability)))<br>

    :dissipate)<br>   (t :move-forward)))</span><span style="font-family: courier new,monospace;"></span><br><br><br>Regards,<br>Gustavo.</span></font>