Packages

erlang_behaviour_trees

0.1.0
0.5.22 0.5.21 0.5.20 0.5.18 0.5.17 0.5.16 0.5.15 0.5.14 0.5.13 0.5.12 0.5.11 0.5.10 0.5.9 0.5.8 0.5.7 0.5.6 0.5.5 0.5.4 0.5.3 0.5.2 0.5.1 0.5.0 0.4.5 0.4.4 0.4.3 0.4.2 0.4.1 0.4.0 0.3.1 0.3.0 0.2.0 0.1.0

An implementation of behaviour trees in erlang.

Current section

Files

Jump to
Readme
32 Versions
3 Dependencies
Dependants
Files
Activity
erlang_behaviour_trees src samples tasks wait_task.erl
Raw

src/samples/tasks/wait_task.erl 

-module(wait_task).

-behaviour(bt_task).

-export([

  get_params/0,

  init/2,

  run/4

]).



-record(state, {

  start_timestamp,

  wait_time_sec

}).



get_params() ->

  ["time"].



init(#{"time" := Time_key}, BB) ->

  Time = blackboard:eval(Time_key, BB),

  %% get current timestamp and add to state

  #state{

    start_timestamp = erlang:timestamp(),

    wait_time_sec = Time

  }.



run(_Args, State = #state{start_timestamp = StartTimestamp, wait_time_sec = WaitTimeSec}, BB, _Event) -> 

  %% if already WaitTimeSec seconds have passed, return success, otherwise running

  NowTimestamp = erlang:timestamp(),

  DiffInMicroseconds = timer:now_diff(NowTimestamp, StartTimestamp),

  DiffInSeconds = DiffInMicroseconds/1000000,

  if

    DiffInSeconds > WaitTimeSec -> {success, State, BB};

    true ->

      io:format("Waiting...~n"),

      {running, State, BB}

  end.