smaller leaf, thanks desvox
This commit is contained in:
parent
7c18bfb7a2
commit
11661c51cb
29
vantabot.ml
29
vantabot.ml
|
@ -54,22 +54,27 @@ 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 ";
|
||||
" | ";
|
||||
"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…
Reference in New Issue