Browse Source

smaller leaf, thanks desvox

master
epic morphism 2 years ago
parent
commit
11661c51cb
  1. 33
      vantabot.ml

33
vantabot.ml

@ -53,23 +53,28 @@ let inc_tokers_count () =
let leaf = [
" W ";
" WWW ";
" WWW ";
" WWWWW ";
"W WWWWW W";
"WWW WWWWW WWW";
" WWW WWWWW WWW ";
" WWW WWW WWW ";
" WWW WWW WWW ";
" WWWWWWW ";
" WWWW | WWWW ";
" | ";
" | "]
" W ";
"WWW";
" | "]
(* let leaf = [
* " W ";
* " WWW ";
* " WWW ";
* " WWWWW ";
* "W WWWWW W";
* "WWW WWWWW WWW";
* " WWW WWWWW WWW ";
* " WWW WWW WWW ";
* " WWW WWW WWW ";
* " WWWWWWW ";
* " WWWW | WWWW ";
* " | ";
* " | "] *)
let show_leaf connection =
leaf |> Lwt_list.iter_s (fun l ->
C.send_msg connection ~is_big:true (bold_text (color_text ~fg:Green ~bg:Black l)))
C.send_msg connection ~is_big:false (bold_text (color_text ~fg:Green ~bg:Black l)))
let start_toke connection =
toke_in_progress := true;

Loading…
Cancel
Save