chewbranca.com

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Added src/fahombo/assets/osmstudios_character_block.png.

cannot compute difference between binary files

Changes to src/fahombo/mode-intro.fnl.

     1      1   (var counter 0)
     2      2   (var time 0)
     3      3   
            4  +(local dev-mode? true)
            5  +;;(local play-game :play)
            6  +(local play-game :play-osms-part1)
            7  +
     4      8   {:draw (fn draw [message]
     5      9            (love.graphics.print (: "This window should close in %0.2f seconds"
     6     10                                    :format (- 3 time)) 32 16))
     7     11    :update (fn update [dt set-mode]
     8     12                (if (< counter 65535)
     9     13                    (set counter (+ counter 1))
    10     14                    (set counter 0))
    11     15                (set time (+ time dt))
    12         -             (when (> time 3)
    13         -               (love.event.quit)))
           16  +             (when (or (> time 3) dev-mode?)
           17  +               (set-mode play-game)))
    14     18    :keypressed (fn keypressed [key set-mode]
    15     19                    (love.event.quit))}

Added src/fahombo/play-osms-part1.fnl.

            1  +;; This is a Fennel implementation of http://www.osmstudios.com/tutorials/love2d-platformer-tutorial-part-1-the-basics
            2  +
            3  +(local bump (require "lib.bump"))
            4  +(local player-img (love.graphics.newImage "assets/osmstudios_character_block.png"))
            5  +
            6  +(local player {
            7  +  :x 16
            8  +  :y 16
            9  +  ;; The first set of values are for our rudimentary physics system
           10  +  :xVelocity 0 ;; current velocity on x, y axes
           11  +  :yVelocity 0
           12  +  :acc 100 ;; the acceleration of our player
           13  +  :maxSpeed 600 ;; the top speed
           14  +  :friction 20 ;; slow our player down - we could toggle this situationally to create icy or slick platforms
           15  +  :gravity 80 ;; we will accelerate towards the bottom
           16  +
           17  +  ;; These are values applying specifically to jumping
           18  +  :isJumping false ;; are we in the process of jumping?
           19  +  :isGrounded false ;; are we on the ground?
           20  +  :hasReachedMax false ;; is this as high as we can go?
           21  +  :jumpAcc 500 ;; how fast do we accelerate towards the top
           22  +  :jumpMaxSpeed 9.5 ;; our speed limit while jumping
           23  +
           24  +  ;; Here are some incidental storage areas
           25  +  :img player-img}) ;; store the sprite we'll be drawing
           26  +
           27  +(local world (bump.newWorld 16))
           28  +(local ground-0 {})
           29  +(local ground-1 {})
           30  +
           31  +(: world :add player player.x player.y (: player.img :getWidth) (: player.img :getHeight))
           32  +;;(: world :add ground-0 20 360 640 16) ; blog version
           33  +(: world :add ground-0 120 360 640 16) ; github version
           34  +(: world :add ground-1 0 448 640 32)
           35  +
           36  +(fn update [dt set-mode]
           37  +  (local goal-x (+ player.x player.xVelocity))
           38  +  (local goal-y (+ player.y player.yVelocity))
           39  +
           40  +  (let [(x y) (: world :move player goal-x goal-y)]
           41  +    (set player.x (lume.clamp x 5 1000))
           42  +    (set player.y y))
           43  +
           44  +  ;; apply friction
           45  +  (let [df (- 1 (math.min 1 (* dt player.friction)))]
           46  +    (set player.xVelocity (* player.xVelocity df))
           47  +    (set player.yVelocity (* player.yVelocity df)))
           48  +
           49  +  ;; apply gravity
           50  +  (set player.yVelocity (+ player.yVelocity (* player.gravity dt)))
           51  +  (when (= player.yVelocity 0) ;; TODO: FIXME
           52  +    (set player.hasReachedMax false))
           53  +
           54  +  ;; handle horizontal movement
           55  +  (if
           56  +    (and (love.keyboard.isDown "left" "a") (> player.xVelocity (- player.maxSpeed)))
           57  +    (set player.xVelocity (- player.xVelocity (* player.acc dt)))
           58  +    (and (love.keyboard.isDown "right" "d") (< player.xVelocity player.maxSpeed))
           59  +    (set player.xVelocity (+ player.xVelocity (* player.acc dt))))
           60  +
           61  +  ;; jump up jump up and get down
           62  +  (if (love.keyboard.isDown "up" "w")
           63  +    (do
           64  +      (if
           65  +        (and (< (- player.yVelocity) player.jumpMaxSpeed) (not player.hasReachedMax))
           66  +        (do
           67  +          ;; (log "{%s} Setting player velocity{%s} to {%s} using a={%s}" dt player.yVelocity (- player.yVelocity (* player.jumpAcc dt)) player.jumpAcc)
           68  +          (set player.yVelocity (- player.yVelocity (* player.jumpAcc dt))))
           69  +        ;; (log "Approaching terminal velocity %s ----> %s" (math.abs player.yVelocity) player.jumpMaxSpeed)
           70  +        (> (math.abs player.yVelocity) player.jumpMaxSpeed)
           71  +        (set player.hasReachedMax true))
           72  +
           73  +      (set player.isGrounded false))))
           74  +
           75  +(fn keypressed [key set-mode])
           76  +
           77  +(fn draw [player world]
           78  +  (love.graphics.draw player.img player.x player.y)
           79  +  (let [(x0 y0 w0 h0) (: world :getRect ground-0)
           80  +        (x1 y1 w1 h1) (: world :getRect ground-1)]
           81  +    (love.graphics.rectangle "fill" x0 y0 w0 h0)
           82  +    (love.graphics.rectangle "fill" x1 y1 w1 h1)))
           83  +
           84  +{:draw (partial draw player world)
           85  + :update update
           86  + :keypressed keypressed}