yogsototh/fin
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

playing

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2016-07-27 23:32:40 +02:00
parent 35db20b196
commit 305f9601e2
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 39 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
Main.elm
View file

@ -1,6 +1,7 @@
import Html exposing (Html, button, div, text)
import Html exposing (Html, button, div, text, node)
import Html.Attributes exposing (style)
import Html.App as App
import Time exposing (Time,second)
import Time exposing (Time,millisecond)
import Html.Events exposing (onClick)
main : Program Never
@ -12,12 +13,14 @@ main = App.program { init = init
-- MODEL
type alias Model = { money : Int
type alias Model = { money : Float
, mbs : Float
, t : Time
}
init : (Model,Cmd Msg)
init = ({ money = 0
, mbs = 1
, t = 0
}, Cmd.none)
@ -28,9 +31,11 @@ type Msg = Gain Int | Tick Time | Reset
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
let newmodel = case msg of
Gain i -> { model | money = (model.money + i) }
Tick newTime -> { model | money = model.money + (if model.t > 0
then truncate ((newTime - model.t) / 1000)
Gain i -> { model | mbs = max 0 (model.mbs + (toFloat i)) }
Tick newTime -> { model |
money = model.money +
(if model.t > 0
then model.mbs * (newTime - model.t) / 1000
else 0)
, t = newTime }
Reset -> { model | money = 0 }
@ -39,12 +44,33 @@ update msg model =
-- SUBSCRIPTION
subscriptions : Model -> Sub Msg
subscriptions model = Time.every second Tick
subscriptions model = Time.every millisecond Tick
wdgStyle : Html.Attribute msg
wdgStyle = style [ ("margin","1em auto")
, ("font-family","Helvetica")
, ("display","block")
, ("padding", "1em")
, ("font-size","16px")
, ("color", "#555")
, ("border","solid")
, ("width", "20em")
, ("text-align", "center")]
view : Model -> Html Msg
view model = div []
[ button [ onClick (Gain 1) ] [text "+1"]
, button [ onClick (Gain 2) ] [text "+2"]
, div [] [text (toString (.money model))]
, button [ onClick Reset ] [text "0"]
view model = div [ wdgStyle ]
[ div [ style [("color","#888")
, ("font-size","12px")]] [text ("dbs: " ++ (toString model.mbs))]
, node "hr" [] []
, button [ onClick (Gain -1) ] [text "-1/s"]
, button [ onClick (Gain 1) ] [text "+1/s"]
, button [ onClick Reset ] [text "reset"]
, div [ style [ ("font-size","21px")
, ("font-family","Menlo, monaco, monospace")
, ("background","#EEE")
, ("padding","1em")
, ("margin","1em")
, ("border","solid 1px #CCC")
]]
[text (toString (truncate model.money))]
]