forked from DooubleTap/mIRC
-
Notifications
You must be signed in to change notification settings - Fork 0
/
note-system.mrc
67 lines (60 loc) · 2.15 KB
/
note-system.mrc
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
;Just load it, and read the instructions. it's pretty simple.
;Made by Sebastien @ undernet - freenode - nextirc - geekshed
alias note.add {
if ($hget(jnotes) != jnotes) { hmake jnotes }
hadd jnotes $1 $2-
echo -at Note Added for $1 $+ $2- $+ .
}
alias note.del {
var %i = 1
while (%i <= $hget(jnotes,0).item) {
if ($hget(jnotes,%i).item == $1) {
hdel jnotes $1
echo -at Note Deleted for $1
}
inc %i
}
}
alias notes {
echo $color(notice) -at Note System help
echo $color(notice) -at /note.list :: Show the notes added to the database.
echo $color(notice) -at /note.del <nick> :: Delete a note from the database.
echo $color(notice) -at /note.add <nick> <info> :: Add some infos to the database
echo $color(notice) -at /note.credits :: Informations about the author.
echo $color(notice) -a Example /note.add $me I am really hot, and you know it!
}
alias note.credits {
echo -at This script was written by [email protected]
echo -at You can find me on /server -m irc.undernet.org -j #mircscripting
echo -at Feel free to modify it as you wish, but it would be nice to send me your copy, so i could get another version out.
echo -at Improvements are allways welcomed.
}
alias note.list {
window -k0 @Notes 10 10
aline @Notes [Listing Join notes Database]
.timer 1 3 aline @Notes 4Double-Click in this window to close it.
var %i = 1
if ($hget(jnotes)) {
while (%i <= $hget(jnotes,0).item) {
aline @Notes 4,1[ $+ $hget(jnotes,%i).item $+ 4]: $hget(jnotes,$hget(jnotes,%i).item)
inc %i
}
}
}
on *:EXIT:{ hsave jnotes jnotesystem.txt }
on *:DISCONNECT:{ hsave jnotes jnotesystem.txt }
on *:START:{ hmake jnotes | hload jnotes jnotesystem.txt }
on ^*:JOIN:#:{
var %i = 1
while (%i <= $hget(jnotes,0).item) {
if ($nick == $hget(jnotes,%i).item) {
echo $color(join) $chan $timestamp * Joins: $nick ( $+ $gettok($address($nick,5),2,33) $+ )
echo $color(notice) $chan ### [Note] $+([,$nick,]) - $hget(jnotes,$nick)
haltdef
}
inc %i
}
}
menu @notes {
dclick: window -c @notes
}