|
|
|
@ -74,4 +74,20 @@
|
|
|
|
|
printfn "[INFO.] Listing available colours..." |
|
|
|
|
for item in colourList do |
|
|
|
|
printfn "%s" item.Key |
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
|
|
|
|
|
(* ALIASES |
|
|
|
|
======================================================================= |
|
|
|
|
These command-methods will not show up in the help section. Before |
|
|
|
|
adding extra aliases, make sure the main version is as clear and |
|
|
|
|
helpful to someone new to the program as possible. Aliases should be |
|
|
|
|
treated as commands for experienced users and documented on the wiki, |
|
|
|
|
hosted alongside the repository on GitHub. |
|
|
|
|
URL: https://github.com/CraigOates/Death-Socket/wiki *) |
|
|
|
|
|
|
|
|
|
let ad imgPath newPath = ``add-default`` imgPath newPath |
|
|
|
|
|
|
|
|
|
let ag imgPath numRows numColumns pWidth colour newPath = |
|
|
|
|
``add-grid`` imgPath numRows numColumns pWidth colour newPath |
|
|
|
|
|
|
|
|
|
let lc () =``list-colours`` () |