# $File: //depot/OurNet-BBSAgent/BBSAgent/saloon.bbs $ $Author: autrijus $
# $Revision: #4 $ $Change: 3252 $ $DateTime: 2002/02/25 09:51:34 $
# Contributed by Anonymous User
# zh_TW.Big5: µN°s½×­^¶¯¯ù´Ì

Saloon
saloon.twbbs.org

load maple2.board
setv postsign 1
setv cursor ¡÷
setv pager	©I¥s¾¹

=login
wait ¥N¸¹¡G
send $[username]\n
send $[password]\n
send n\nq\x20q\x20q\x20q\x20q
goto main

=main
send \e[D\e[D\e[D\e[D\e[D\e[D
wait ¯ù´Ìµæ³æ
till $[pager]

=board
send s
wait ¦WºÙ
send $[board]\n\x20\x20
wait ªO¥D¡G
till ¶i¶¥«ü¥O

=board_article_fetch_last
send qq
wait ¶i¶¥«ü¥O
exit

=board_list_author
call board $[board]
send a$[author]\n
wait $[cursor]
till ¶i¶¥«ü¥O
exit

=article_edit_author
send \x24E\x19\x19\x19\x19
# 1 empty 2 from 3 origin 4 --
send \x14\x19\x19
send \x18\n
wait ¶i¶¥«ü¥O
exit