# $File: //depot/OurNet-BBSAgent/BBSAgent/kuas.bbs $ $Author: autrijus $
# $Revision: #6 $ $Change: 2829 $ $DateTime: 2002/01/10 14:54:36 $
# Contributed by Chihchun <kalug@kalug.ks.edu.tw>
# zh_TW.Big5: 高雄應用科技大學

Kaohsiung University of Applied Science
bbs.kuas.edu.tw

load firebird2.base

setv headl \x0d?
setv headr :\x20(.+?)(?:,\x20信區:\x20.+)?$
setv headi 發信人,標\x20\x20題,發信站
setv separator \e\[\\d;1H

setv bottom 時間

=board
call main
send e\n
send b\n
send /
wait 請輸入要找尋的 board 名稱：
send $[board]\nr\n\x20
wait 板主:
till $[statustail]

=board_list_last
call board $[board]
send \x24\x0c
wait 板主:
wait \x0d>
till $[bottom]
exit

=board_article_fetch_first
call board $[board]
send $[article]\n\n
till \e[1;44;31m[閱讀文章]
  or \e[1;44;32m下面還有喔
till 結束
wait m/\^X\x20?或\x20?p\x20\e\[m/
  or │\x20\x20\x20\x20\x20\e[m
exit

=board_article_fetch_next
send \x20
till \e[1;44;31m[閱讀文章]
  or \e[1;44;32m下面還有喔
till 結束
wait m/\^X\x20?或\x20?p\x20\e\[m/
  or │\x20\x20\x20\x20\x20\e[m
exit

=board_article_fetch_last
send q
wait $[statustail]
exit

=article_post_raw
call board $[board]
send \x10
wait 標題:
send $[title]\n
wait 設定:
send \n
wait 時間
send $[body]
# clean footer
send \x10\x10\x10
send \x15\x14\x15
send \ed
# clean header
send \eg
wait 第幾行
send \e[D\e[D\e[D\e[D\e[D\e[D
send 1\n
send \x19\x19\x19\x19
send \x18
wait (S)儲存
send S\n
wait 是否轉信
send Y\n
wait $[statustail]
exit