Tamagotchi emulator: Difference between revisions

=={{header|EchoLisp}}==

The tamagotchi status is saved in permanent storage. The tamagotchi cycles can be started manually, or in the '''preferences''' function, or at predefined intervals : '''every''' function. The following code may be loaded from the EchoLisp library : (load 'tamagotchi). This tamagotchi does not play, but gets bored, and needs to talk. It must be feed two times between each cycle. It will die at age around 42 (42 cycles).

<lang scheme>

(define-constant CYCLE_TIME 30000)

(string-delimiter "")

(struct tamagotchi (name age food poop bored))

;; utility : display tamagotchi thoughts : transitive verb + complement

(define (tama-talk tama)

(writeln (string-append

"😮 : "

(word-random #:any '( verbe trans inf -vintran)))

" les "

(word-random #:any '(nom pluriel))))

;; load tamagotchi from persistent storage into *tama* global

(define (run-tamagotchi)

(if (null? (local-get '*tama*))

(writeln "Please (make-tamagotchi <name>)")

(begin

(make-tamagotchi (tamagotchi-name *tama*) *tama*)

(tama-cycle *tama*)

(writeln (tama-health *tama*)))))

;; make a new tamagotchi

;; or instantiate an existing

;; tama : instance ot tamagotchi structure

(define (make-tamagotchi name (tama null))

(when (null? tama)

(set! tama (tamagotchi name 0 2 0 0))

(define-global '*tama* tama)

(local-put '*tama*))

;; define the <name> procedure :

;; perform user action / save tamagotchi / display status

(define-global name

(lambda (action)

(define tama (local-get '*tama*))

[case action

((feed) (set-tamagotchi-food! tama (1+ (tamagotchi-food tama))))

((talk) (tama-talk tama) (set-tamagotchi-bored! tama (max 0 (1- (tamagotchi-bored tama)))))

((clean) (set-tamagotchi-poop! tama (max 0 (1- (tamagotchi-poop tama)))))

((look) #t)

;; debug actions

((_cycle) (tama-cycle tama))

((_reset) (set! *tama* null) (local-put '*tama*))

((_kill) (set-tamagotchi-age! tama 44))

((_self) (writeln tama))

(else (writeln "actions: feed/talk/clean/look"))]

(local-put '*tama*)

(tama-health tama))))

;; every n msec : get older / eat food / get bored / poop

(define (tama-cycle tama)

(when (tama-alive tama)

(set-tamagotchi-age! tama (1+ (tamagotchi-age tama)))

(set-tamagotchi-bored! tama (+ (tamagotchi-bored tama) (random 2)))

(set-tamagotchi-food! tama (max 0 (- (tamagotchi-food tama) 2)))

(set-tamagotchi-poop! tama (+ (tamagotchi-poop tama) (random 2))))

(local-put '*tama*))

;; compute sickness (too much poop, too much food, too much bored)

(define (tama-sick tama)

(+ (tamagotchi-poop tama)

(tamagotchi-bored tama)

(max 0 (- (tamagotchi-age tama) 32)) ;; die at 42

(abs (- (tamagotchi-food tama) 2))))

;; alive if sickness <= 10

(define (tama-alive tama)

(<= (tama-sick tama) 10))

;; display num icons from a list

(define (icons list num)

(for/fold (str " ") ((i [in-range 0 num] ))

(string-append str (list-ref list (random (length list))))))

;; display boredom/food/poops icons

(define (tama-status tama)

(if (tama-alive tama)

(string-append

" [ "

(icons '(💤 💭 ❓ ) (tamagotchi-bored tama))

(icons '(🍼 🍔 🍟 🍰 🍜 ) (tamagotchi-food tama))

(icons '(💩) (tamagotchi-poop tama))

" ]")

" R.I.P" ))

;; display health status = f(sickness)

(define (tama-health tama)

(define sick (tama-sick tama))

;;(writeln 'health:sick°= sick)

(string-append

(format "%a (🎂 %d) " (tamagotchi-name tama)(tamagotchi-age tama))

(cond

([<= sick 2] (icons '(😄 😃 😀 😊 😎️ 👍 ) 1 )) ;; ok <= 2

([<= sick 4] (icons '(😪 😥 😰 😓 ) 1))

([<= sick 6] (icons '(😩 😫 ) 1))

([<= sick 10] (icons '(😡 😱 ) 1)) ;; very bad

(else (icons '(❌ 💀 👽 😇 ) 1))) ;; dead

(tama-status tama)))

;; timer operations

;; run tama-proc = cycle every CYCLE_TIME msec

(define (tama-proc n)

(define tama (local-get '*tama*))

(when (!null? tama)

(tama-cycle tama)

(writeln (tama-health tama))))

;; boot

;; manual boot or use (preferences) function

(every CYCLE_TIME tama-proc)

(run-tamagotchi)

</lang>

{{out}}

<pre>

(lib 'struct)

(lib 'sql) ;; for words

(lib 'words)

(lib 'timer)

(lib 'dico.fr);; will talk in french

(load 'tamagotchi)

Please (make-tamagotchi <name>)

(make-tamagotchi 'albert)

albert (🎂 1) 😓 [ 💭 ]

albert (🎂 2) 😰 [ 💭❓ ] ;; needs to talk

(albert 'talk)

😮 : déléaturer les fidèles

albert (🎂 2) 😓 [ ❓ ]

(albert 'talk)

😮 : facetter les décorations

albert (🎂 2) 😃 [ ]

albert (🎂 3) 😥 [ 💤 💩 ]

(albert 'feed)

albert (🎂 3) 😪 [ 💤 🍔 💩 ] ;; needs cleaning

(albert 'clean)

albert (🎂 3) 😊 [ 💭 🍟 ]

(albert 'talk)

😮 : manifester les canyons

albert (🎂 3) 😃 [ 🍰 ] ;; all is ok

albert (🎂 4) 👍 [ ]

albert (🎂 5) 😃 [ ]

albert (🎂 6) 😥 [ ❓ 💩 ]

(albert 'clean)

albert (🎂 6) 😪 [ 💤 ]

albert (🎂 7) 😰 [ 💭 💩 ]

albert (🎂 8) 😓 [ 💭 💩 ]

(for ((i 10)) (albert 'feed))

albert (🎂 8) 😱 [ 💭 🍔🍼🍔🍼🍜🍼🍟🍔🍔🍟 💩 ] ;; very sick

albert (🎂 9) 😱 [ ❓ 🍰🍰🍟🍟🍼🍟🍜🍜 💩💩 ]

(albert 'talk)

😮 : assortir les déchiffrages

albert (🎂 9) 😱 [ 🍼🍼🍟🍟🍜🍔🍼🍰 💩💩 ]

albert (🎂 10) 😡 [ 💭 🍰🍟🍟🍟🍟🍜 💩💩💩 ]

(for ((i 14)) (albert 'feed)) ;; do'nt feed it too much .. it will die

albert (🎂 10) 😇 R.I.P ;; died at age 10

albert (🎂 10) ❌ R.I.P

albert (🎂 10) 👽 R.I.P

albert (🎂 10) 😇 R.I.P

albert (🎂 10) 😇 R.I.P

(make-tamagotchi 'simon)

simon

simon (🎂 1) 😓 [ 💤 💩 ]

</pre>