# $File: //depot/OurNet-BBSAgent/BBSAgent/hua.bbs $ $Author: Jedi $
# $Revision: #4 $ $Change: 2946 $ $DateTime: 2002/01/29 03:18:44 $
# Contributed by Jedi <Jedi@Jedism.org>
# zh_TW.Big5: ÅÊÅÊ¥b½u±¡

ChangHua Senior High School
hua.twbbs.org

load maple3.board
load maple3.session
load maple3.user

setv cursor	>

=main
send qqqqqqee
wait ¥D¥\¯àªí
till ¤â¾÷

=board_article_fetch_first
call board $[board]
send $[article]\n\n
wait \e[2J
till \e[1;36;44m
  or \e[36;44m
till \e[0;31;47m (
wait \e[m
exit

=board_article_fetch_next
send \n
till \e[1;36;44m
  or \e[36;44m
till \e[0;31;47m (
wait \e[m
exit

# ñ¦WÀÉ post «e´N°Ý
=article_post_raw
call board $[board]
send \cP$[title]\n0\n$[body]
# clean header
# send \cS\cY\cY\cY\cY
# save
send \cX
send s\n
wait (E)Ä~Äò½s¿è (W)±j¨î¼g¤J¡H[E]
  or \e[m
doif $[1]
    send w\n
endo
send \x20
doif $[author]
    call article_edit_author $[author]
endo # ?
exit

=article_edit_author
send \x24E\cY\cY\cY\cY
# 1 empty 2 from 3 origin 4 --
send \cXs\n
wait ¤å  ³¹  ¼Ð  ÃD
exit

=article_edit_raw
send E$[content]\x18
wait Ū¼g§R¼È¦sÀÉ¡H
send s\n
doif $[postsign]
  send 0\n
endo
send \x20
doif $[author]
    call article_edit_author $[author]
endo
exit

=message_reply
send \x12
wait ¦^À³
send $[message]\n
wait [Y]
send \n
wait \e[37;45m
wait \e[m
send h\x20
exit