;;; elite-for-emacs-commander.el - Elite for EMACS commander functions

;; Elite for EMACS is based on Elite series by Ian Bell and David Braben.
;; Original Elite, (C) 1984 Ian Bell and David Braben.
;; Elite for EMACS uses code from original Elite and it is (C) 1984 Ian Bell and David Braben.
;; Additional code
;; Author: Sami Salkosuo ([email protected])

;; This file is not part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;; Commentary:

;; Player and AI commander functions. Idea is that player and AI commander have
;; exactly the same attributes
;; All game variables should be in commander struct


;;state constants are internal indicators of commander state
;;different situations may have different state, for example
;;commander can enter casino while docked and then state would be in casino etc
(defconst STATE_DOCKED 0)
(defconst STATE_IN_SPACE 1)
(defconst STATE_WITCH_SPACE 2)
(defconst STATE_COMBAT 3)
(defconst STATE_BAZAAR 4)

(defstruct elite-for-emacs-commander
 ;;additional fields MUST be included at the end of struct
 ;;when deployed: do NOT make new fields so that they have to be available from
 ;;the start of game
 id
 name
 gender
 elite-score;one kill, one point
 legal-status
 reputation;reputation, more the better
 credits
 fuel
 missiles
 current-planet
 hyperspace-system
 condition;0=docked,1=green,2=yellow,3=red
 current-state;docked,in space, witchspace, combat etc
 current-galaxy
 cargo-capacity
 max-cargo-capacity
 current-cargo
 local-market
 lastrand
 fluct
 current-day ;day in elite unverse
 auto-refuel
 equipment-list
 script-list;script list, for good trade routes etc
 temp
 home-system
 home-galaxy
 ;;last message sent is for displaying last known system of commander
 ;;messages are public so we know it...
 last-message-sent-galaxy;;for online mode, galaxy index where user sent message
 last-message-sent-planet;;for online mode, planet index where user sent message
 distance-to-planet;;when in space, distance to planet, location 0 is space station and commander can dock,
 character-dd;;dungeons and dragons character description
 trade-history-current;;current trade items in cargo hold, update when buying
 trade-history;;overall cargo history, update when selling
 ;;todo mates;list of mates
)

(defvar elite-for-emacs-commander-list nil
 "Elite for EMACS commanders. First in list is player")

(defvar elite-for-emacs-saved-commander-list nil
 "Saved commanders");;used to easily upgrade commander struct

(defun elite-for-emacs-generate-commander (name id gender current-planet current-galaxy day)

 (let (

       )

   (setq elite-for-emacs-commander-list
         (append
          elite-for-emacs-commander-list
          (list (make-elite-for-emacs-commander
           :id id
           :name name
           :gender gender
           :elite-score 0;one kill, one point
           :legal-status 0
           :condition CONDITION_DOCKED
           :current-state STATE_DOCKED
           :reputation 0;reputation, more the better
           :credits 1000
           ;;:credits 100000
           :current-planet current-planet
           :current-galaxy current-galaxy
           :hyperspace-system current-planet
;;(aref (elite-for-emacs-get-galaxy 0) 7)
           :fuel 70
           :cargo-capacity 20
           :max-cargo-capacity 20
           :current-cargo (make-vector (+ lasttrade 1) 0)
           :lastrand (mysrand 12345)
           :current-day day
           :auto-refuel t;;set nil to switch autorefuel off
           :home-system current-planet
           :home-galaxy current-galaxy
           )
                )
          )
         )
   )
 )

(defun elite-for-emacs-get-commander (index)
 (nth index elite-for-emacs-commander-list)
)

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.