source: abuse/trunk/data-abuse/lisp/userfuns.lsp @ 582

Last change on this file since 582 was 582, checked in by Sam Hocevar, 10 years ago

data: remove \r and trailing spaces and tabs from all Lisp sources.

File size: 1.3 KB
RevLine 
[54]1;; Copyright 1995 Crack dot Com,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4(defun set_all_lives (first x)
5  (if (eq first nil)
6      nil
7    (progn
8      (set_lives first x)
9      (set_all_lives (next_focus first) x))))
10
[582]11
12(defun select_place (x place)
[54]13  (- (/ x place) (* (/ x (* place 10)) 10)))
14
[582]15(defun dig2char (x)
[54]16  (code-char (+ x (char-code "0"))))
17
18;; this creates a list of dpaint numbered antimation from a base name
19;; i.e. (seq "hi" 2 5)  -> '("hi0002.pcx" "hi0003.pcx" "hi0004.pcx" "hi0005.pcx")
20;; will take into acount reverse sequences
21(defun seq (name first last)
22  (if (<= first last)
23      (forward-seq name first last)
24    (reverse-seq name first last))
25)
[582]26(defun forward-seq (name first last)
27  (if (> first last)
28      nil
29    (cons (concatenate 'string name (digstr first 4) ".pcx")
[54]30          (forward-seq name (+ 1 first) last))))
[582]31(defun reverse-seq (name last first)
32  (if (< last first)
33      nil
34    (cons (concatenate 'string name (digstr last 4) ".pcx")
[54]35          (reverse-seq name (- last 1) first))))
36
37(defun rep (name count)
38  (if (eq count 0)
39      nil
40    (cons name (rep name (- count 1)))))
41
42
43;; appends something to the end of a list
44(defun app (head tail) (if (null head) tail (cons (car head) (app (cdr head) tail))))
45
46
Note: See TracBrowser for help on using the repository browser.