blob: 0b16543d3b801fbb9224ea0688b0327fbfdb817a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#!/usr/bin/env bash
set -o pipefail
OUR_HOST=$(/usr/local/libexec/sockip | head -n1)
THEIR_HOST=$(/usr/local/libexec/peerip | head -n1)
OUR_PORT=$(/usr/local/libexec/sockip | tail -n1)
THEIR_PORT=$(/usr/local/libexec/peerip | tail -n1)
log=/var/log/log.hackvr
# some hackvr scripts use USER for commanding the player
if USER=$(ident $OUR_HOST $THEIR_HOST 113 $THEIR_PORT $OUR_PORT);then
export USER
else
printf "%s does not have an ident daemon running.\n" "$THEIR_HOST" >> $log
exit 1
fi
if [ ! "$USER" ];then
exit 1
fi
printf "%s@%s connected to hackvr\n" "$USER" "$THEIR_HOST" >> $log
last_pong=$(date +%s)
wat=true
while true;do
while read -t 10 group action target args;do
printf "hackvr line: %s\n" "$group $action $target $args" >> $log
if [ "$group" = "$USER" -a "$action" = "pong" ];then
printf '%s@%s ponged on hackvr\n' $USER $THEIR_HOST >> $log
last_pong="$(date +%s)"
fi
if [ "$group" = "$USER" -a "$action" = "quit" ];then
break
fi
if [ "$action" = "action" ];then
if [ "$target" = "/links" ];then
printf "%s deleteallexcept %s\n" "$USER" "$USER"
off=-10
for link in gopher://thebackupbox.net/;do
off=$[$off + 10]
printf '<%s> addshape 4 3 0 0 0 0 8 0 8 0 0\n' "$link"
printf '%s' "$link" | makelabel.sh "<$link>" 8 0 0
printf '<%s> move 0 %d 0\n' "$link" "$off"
done
target=/
fi
if [ $target = "/radio" ];then
printf "$USER deleteallexcept $USER\n"
cd /var/hackvr/
./radio.sh
target=/
fi
if [ $target = "/ttt" ];then
printf "$USER deleteallexcept $USER\n"
cd /usr/local/src/hackvr/share/hackvr/examples/tictactoe
./game.sh 2>/dev/null
target=/
fi
if grep "^/dun" <<< "$target" 2>&1 >/dev/null;then
printf "$USER deleteallexcept $USER\n"
export seed="$(printf "%s\n" "$target" | cut -d/ -f3)"
cd /usr/local/src/hackvr/share/hackvr/examples/dungen
./dunexplore.sh 2>/dev/null
target=/
fi
if [ $target = "/multi" ];then
/var/hackvr/multi.sh
target=/
fi
if [ $target = "/map" ];then
printf "$USER deleteallexcept $USER\n"
cd /usr/local/src/hackvr/share/hackvr/examples/anonet_map
./map 2>/dev/null
printf '/ addshape 4 3 0 0 0 0 8 0 8 0 0\n'
while read group action target args;do
if [ "$action" = "action" ];then
if [ "$target" = "/" ];then
break
fi
fi
done
target=/
fi
if [ $target = "/" ];then
printf "%s deleteallexcept %s\n" "$USER" "$USER"
cd /usr/local/src/hackvr/share/hackvr/examples/hackvrd
off=-10
for name in ttt dun map multi links radio;do
off=$[$off + 10]
printf '/%s addshape 4 3 0 0 0 0 8 0 8 0 0\n' "$name"
printf '/%s' "$name" | makelabel.sh "/$name" 8 0 0
printf '/%s move 0 %d 0\n' $name $off
done
fi
else
if $wat;then
wat=false
printf '/ addshape 4 3 0 0 0 0 8 0 8 0 0\n'
printf 'welcome' | makelabel.sh / 8 0 0
fi
fi
done
#printf "pinging... %s@%s\n" "$USER" "$THEIR_HOST" >> /var/log/hackvr.all
#printf "%s ping %s\n" "$USER" "thebackupbox.net"
#if [ $[$(date +%s) - $last_pong] -gt 30 ];then #they probably pinged out.
# printf '# you pinged out. gotta respond to those, dude.\n'
# printf "%s@%s pinged out from hackvr\n" "$USER" "$THEIR_HOST" >> /var/log/hackvr.all
# exit 1
#fi
done
printf "%s@%s disconnected from hackvr\n" "$USER" "$THEIR_HOST" >> $log
|
