mirror of https://github.com/nealey/irc-bot
42 lines
587 B
Plaintext
42 lines
587 B
Plaintext
|
#! /bin/sh
|
||
|
|
|
||
|
|
db=$1; shift
|
||
|
|
text="$1"
|
||
|
|
|
||
|
|
get () {
|
||
|
|
cdb -q $db "$1" || echo 0
|
||
|
|
}
|
||
|
|
|
||
|
|
put () {
|
||
|
|
(printf "+%d,%d:%s->%s\n" ${#1} ${#2} "$1" $2;
|
||
|
|
cdb -d $db) | cdb -c -u $db
|
||
|
|
}
|
||
|
|
|
||
|
|
adj () {
|
||
|
|
who=${text%%$1$1}
|
||
|
|
if [ "$who" = "$sender" ]; then
|
||
|
|
echo "Nice try, $sender."
|
||
|
|
else
|
||
|
|
put "$who" $(expr $(get "$who") $1 1)
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
case "$text" in
|
||
|
|
whuffie\ *)
|
||
|
|
who=${text##whuffie }
|
||
|
|
amt=$(get "$who")
|
||
|
|
echo "$who has $amt whuffie"
|
||
|
|
;;
|
||
|
|
*++)
|
||
|
|
adj +
|
||
|
|
;;
|
||
|
|
*--)
|
||
|
|
adj -
|
||
|
|
;;
|
||
|
|
*)
|
||
|
|
exit 1
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
|