From d67c2f96e415e2e8ffe1edc11c76b31c13531226 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Tue, 29 Jan 2019 21:39:36 -0500
Subject: net: orc.rkt: Add block action.
* net/ricketyspace/ror/eight/orc.rkt (BLOCK): New constant.
(player-acts-on-monsters): Add handling for block action.
(block): New function
(all-monsters-attack-player): Add armor block handling.
---
net/ricketyspace/ror/eight/orc.rkt | 31 ++++++++++++++++++++++++-------
1 file changed, 24 insertions(+), 7 deletions(-)
diff --git a/net/ricketyspace/ror/eight/orc.rkt b/net/ricketyspace/ror/eight/orc.rkt
index 73531d3..e983942 100644
--- a/net/ricketyspace/ror/eight/orc.rkt
+++ b/net/ricketyspace/ror/eight/orc.rkt
@@ -28,6 +28,7 @@
-- the player may 'f'lail at several monsters;
-- the player may 'h'eal herself.
-- the player may 'm'asturbate for a change.
+ -- the player may 'b'lock to gain armor.
When the player runs out of attacks, all live monsters attack the player.
After that, it is the player's turn again.
@@ -107,6 +108,7 @@
(define FLAIL-DAMAGE 3)
(define MASTURBATE-DAMAGE 5)
(define HEALING 8)
+(define BLOCK 8)
;; monster attributes
(define MONSTER# 12)
@@ -225,6 +227,7 @@
[(key=? "h" k) (heal w)]
[(key=? "f" k) (flail w)]
[(key=? "m" k) (masturbate w)]
+ [(key=? "b" k) (block w)]
[(key=? "right" k) (move-target w +1)]
[(key=? "left" k) (move-target w -1)]
@@ -340,6 +343,11 @@
(decrease-attack# w)
(player-health+ (orc-world-player w) HEALING))
+;; OrcWorld -> Void
+(define (block w)
+ (decrease-attack# w)
+ (player-armor+ (orc-world-player w) BLOCK))
+
;; OrcWorld -> Void
;; Effect: reduces a targeted monster's health
(define (stab w)
@@ -412,19 +420,28 @@
(define (all-monsters-attack-player player lom)
;; Monster -> Void
(define (one-monster-attacks-player monster)
+ (define armor (player-armor player))
+ (define block (cond
+ [(zero? armor) 0]
+ [else (random+ armor)]))
+ ;; block buffers the damage
+ (define (damage d)
+ (+ d block))
+ ;; reduce player's armor by block
+ (player-armor+ player (* -1 block))
(cond
[(orc? monster)
- (player-health+ player (random- (orc-club monster)))]
+ (player-health+ player (damage (random- (orc-club monster))))]
[(hydra? monster)
- (player-health+ player (random- (monster-health monster)))]
+ (player-health+ player (damage (random- (monster-health monster))))]
[(slime? monster)
- (player-health+ player -1)
- (player-agility+ player (random- (slime-sliminess monster)))]
+ (player-health+ player (damage -1))
+ (player-agility+ player (damage (random- (slime-sliminess monster))))]
[(brigand? monster)
(case (random 3)
- [(0) (player-health+ player HEALTH-DAMAGE)]
- [(1) (player-agility+ player AGILITY-DAMAGE)]
- [(2) (player-strength+ player STRENGTH-DAMAGE)])]))
+ [(0) (player-health+ player (damage HEALTH-DAMAGE))]
+ [(1) (player-agility+ player (damage AGILITY-DAMAGE))]
+ [(2) (player-strength+ player (damage STRENGTH-DAMAGE))])]))
;; -- IN --
(for-each one-monster-attacks-player (filter monster-alive? lom)))
--
cgit v1.2.3