# $File: //depot/OurNet-BBSAgent/BBSAgent/fpg.bbs $ $Author: autrijus $
# $Revision: #5 $ $Change: 2829 $ $DateTime: 2002/01/10 14:54:36 $
# Contributed by Smartboy <kcwu@ck.tp.edu.tw>
# zh_TW.Big5: ¤p³½ªºµµ¦âªá¶é

Fish's Purple Garden
fpg.twbbs.org.tw

setv headansi 1;40;32m
setv headansiend 40;33m

load maple2.board
setv morehead	m/\e\[([\d;]+)m\x20\x20ÂsÄý\x20P./
setv moretail	[q]\e[30mµ²§ô\x20\x20\e[0m
setv pager	Call¾÷

=login
wait µù¥U¡G
send $[username]\n$[password]\nn\n
wait ½Ð¸ÔŪ¶i¯¸µe­±ªº¤½§i¡AµM«á¿é¤J¡u
  or (Space/Return)
doif $[2]
else
  wait m/\w/
  send $[1]
  wait ¡vÄ~Äò¡G
endo
send \nqq
goto main

=board_list_last
call board $[board]
send 1\n\x24\x0c
wait \x0d>
till /
exit

=board_article_fetch_last
send q
wait ¤å³¹¿ïŪ
exit

=article_edit_author
send \x24E\x19\x19\x19\x19
send \x18\n
wait ¤å³¹¿ïŪ
exit