Posted to tcl by mookie at Sat Nov 01 17:40:29 GMT 2025view raw
- ##############
- # Crystal API
- ##############
- # html::display "[crystal::obtain $crystal render home]"
- # html::div "start" "tab"
- # html::display [html::iframe "out_box" "" "340" "280" "out_box" "iframe-container"]
- #
- # html::form "start" "POST" "out_box"
- # ##############
- # ### Time
- # ##############
- # html::button "start" "client_key" "" "[crystal::obtain $crystal config hexkey]" "button crystal" ""
- # html::span "start" "button_text"
- # html::display "[lindex [split [crystal::datetime]] 0] :: [lindex [split [crystal::datetime]] 1]"
- # html::span "end" "button-text"
- # html::button "end"
- # ##############
- # ### Sandbox
- # ##############
- # html::form "start" "POST" "netdisc_display"
- # html::button "start" "client_key" "/::crystal/fountain" "[crystal::obtain $crystal config hexkey]" "button " ""
- # html::span "start" "button_text"
- # html::display "Character Info"
- # html::span "end" "button-text"
- # html::button "end"
- # html::form "END" "POST" "netdisc_display"
- # ##############
- # ### Prompt
- # ##############
- # html::button "start" "client_key" "/!prompt" "[crystal::obtain $crystal config hexkey]" "button crystal" ""
- # html::span "start" "button_text"
- # html::display "Prompt Manager"
- # html::span "end" "button-text"
- # html::button "end"
Add a comment