# $File: //depot/OurNet-BBSAgent/BBSAgent/maple2/user.inc $ $Author: autrijus $
# $Revision: #2 $ $Change: 2217 $ $DateTime: 2001/10/27 06:03:10 $
# Contributed by Smartboy <kcwu@ck.tp.edu.tw>

Maple2/SOB User

load maple2.base

=configure
call main
send c\n
wait ¨ä¥L¥\¯à
till Call¾÷

=mood_get
call configure
send m\n
wait ¥Ø«e¤ß±¡\x20\e[1;31m\x20
till \x20\e[
wait ²Ä´X¶µ¡G
send \n
exit

=mood_set
call configure
send m\n
wait ²Ä´X¶µ¡G
send 0\n$[mood]\n
exit

=mail
call main
send m\n
wait ¹q¤l¶l¥ó
till Call¾÷

=mail_send
call mail
send s\n
wait ¥N¸¹¡G
send $[receiver]\n
wait ¥DÃD¡G
send $[subject]\n
wait ½s¿è¤å³¹
send $[content]\x18
wait Àɮ׳B²z
send s\n\n
wait ©³½Z
doif $[savelocal]
    send \n
else
    send n\n
endo
send \n