1# $File: //depot/OurNet-BBSAgent/BBSAgent/twserv.bbs $ $Author: autrijus $
2# $Revision: #4 $ $Change: 2829 $ $DateTime: 2002/01/10 14:54:36 $
3# Contributed by Chia-liang Kao <clkao@clkao.org>
4# zh_TW.Big5: �x�W��Ƹ�T��
5
6TWServ
7tw.twbbs.org
8
9setv headansi 1;32;40m
10setv headansiend 33m
11
12=login
13wait �b���G
14send $[username]\n$[password]\n\n\n\n
15goto main
16
17=main
18send \e[D\e[D\e[D\e[D\e[D\e[D
19wait �D�\���
20till Call��
21
22=message
23wait [1;33;46m\xa1\xb9
24till \x1b\x5b37;45m\x20
25till \x20\x1b\x5b\x6d
26exit
27
28=message_reply
29send \x12
30wait ���y��L�h
31send $[message]\n
32wait [Y/n]?
33send \n
34wait \x20\x1b\x5b\x6d
35exit
36
37=message_send
38call talk_users
39send /
40wait �N���G
41send $[receiver]\nw
42wait ]:
43send $[message]\n
44wait [Y/n]?
45send \n
46wait \e[m
47exit
48
49=talk
50call main
51send t\n
52wait ��ѻ���
53till ����
54
55=talk_users
56call talk
57send u\n
58wait �ϥΪ̦C��
59till �ϥΪ̦C��
60
61=logoff
62call main
63send g\ng\n\n\n\n
64
65
66# bad
67
68=mail
69call main
70send m\n
71wait �q�l�l��
72till Call��
73
74=mail_send
75call mail
76send s\n
77wait �N���G
78send $[receiver]\n
79wait �D�D�G
80send $[subject]\n
81wait �s��峹
82send $[content]\x18
83wait �ɮ׳B�z
84send s\n\n
85wait ���Z
86doif $[savelocal]
87    send \n
88else
89    send n\n
90endo
91send \n
92
93=board
94send s
95wait �W��
96send $[board]\n\x20\nq\n
97wait �O�D�G
98till �峹��Ū
99
100=board_list_last
101call board $[board]
102send 1\n\x24
103wait ��
104till /
105exit
106
107=board_article_select
108call board $[board]
109send $[article]\n\nq\n
110wait ��
111till �峹��Ū
112exit
113
114=board_article_desc
115send q\n
116wait ��
117till �峹��Ū
118exit
119
120=board_article_fetch_first
121call board $[board]
122send $[article]\n\n
123#send \n
124till m/\e\[([\d;]+)m\x20\x20�s��\x20P./
125  or \x07
126doif $[2]
127    call die
128endo
129wait (
130till )
131wait \e[30m����\x20\x20\x20\x20\x20\e[0m
132exit
133
134=board_article_fetch_next
135send \x20
136till m/\e\[([\d;]+)m\x20\x20�s��\x20P./
137wait (
138till )
139wait \e[30m����\x20\x20\x20\x20\x20\e[0m
140exit
141
142=board_article_fetch_last
143send qq
144wait �峹��Ū
145exit
146
147=article_post_raw
148call board $[board]
149send \x10$[title]\n0\n$[body]\x18\n\n
150doif $[author]
151    call article_edit_author $[author]
152endo
153exit
154
155=article_edit_author
156send \x24E\x19\x19\x19\x19\x14\x19\x19\x19\x18\nT\n\x01\x0b$[author]\n\ny\n
157wait �峹��Ū
158exit
159
160=chat_enter
161call talk
162send c\n\n
163wait ��
164
165=chat_room
166send /j $[room]\n
167wait [$[room]]
168exit
169
170=chat_say
171send $[message]\n
172wait $[message]
173exit
174
175=chat_listen
176wait ;1H
177till :\x20
178  or *\x20
179till \e[
180exit
181
182=chat_leave
183send /bye\n
184wait [C]
185send c\n
186goto main
187
188=chat_message_send
189send /m $[caller] $[message]\n
190wait $[message]
191exit
192
193=send_enter
194send \n
195exit
196