# $File: //depot/OurNet-BBSAgent/BBSAgent/kkcity.bbs $ $Author: autrijus $
# $Revision: #10 $ $Change: 2895 $ $DateTime: 2002/01/17 06:37:53 $
# Contributed by Smartboy <kcwu@ck.tp.edu.tw>
# zh_TW.Big5: KKCity

KK City
bbs.kkcity.com.tw

load maple3.board
load maple3.session
load maple3.user
setv separator \x0d\e\[36m(?:¢w)+.*\x20\x20\e\[m\e\[\d+;1H

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

=main
send \e[D\e[D\e[D\e[D\e[D\e[Dv\n\e[D
wait ¥D¥\¯àªí
till ©I¥s¾¹

=logoff
call main
send g\ny\n\n\n\n

=board
call main
send s
wait ­^¤å¯¸¦W
send $[site]\n
wait ¦WºÙ
send $[board]\n\x20\x20
wait ªO¥D¡G
till ¤å³¹¾\Ū

=board_list_last
call board $[board]
send \x24\x0c
wait ªO¥D¡G
wait \x0d>
till /
exit

=board_article_fetch_first
call board $[board]
send $[article]\n\n
wait \e[2J
till \e[0;34;46m\x20ÂsÄý\x20P.
  or \e[1;36;44m\x20¤å³¹¾\Ū\e[0;31;47m
till [ªÅ¥ÕÁä]\e[30m¤U
wait \e[31m(¡ö)\e[30mµ²§ô\x20\x20\e[m
  or \e[31m(¡ö)\e[30mÂ÷¶}\x20\x20\e[m
exit

=board_article_fetch_next
send \x20
till \e[0;34;46m\x20ÂsÄý\x20P.
  or \e[1;36;44m\x20¤å³¹¾\Ū\e[0;31;47m
till [ªÅ¥ÕÁä]\e[30m¤U
wait \e[31m(¡ö)\e[30mµ²§ô\x20\x20\e[m
  or \e[31m(¡ö)\e[30mÂ÷¶}\x20\x20\e[m
exit

=board_article_fetch_last
send q
wait ¤å³¹¾\Ū
exit

=article_edit_author
send \x24En\n\x19\x19\x19\x19
# 1-3 from,origin 4 --
send \x14\x19\x19\x19\x19
send \x18s\n
wait ¤å³¹¿ïŪ
exit

=message_reply
send \x12
wait ¦^ÂаT®§:
send $[message]\n
wait [Y]
send \n 
wait \e[37;45m
wait \e[m
send h\x20\x20\x20\x20\x20\x20
exit