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
|
on *:LOAD:{ dialog -m messagelogger messagelogger }
on *:CONNECT:{ dialog -m messagelogger messagelogger }
alias messagelogger { dialog -m messagelogger messagelogger }
dialog messagelogger {
title "MessageLogger"
size -1 -1 236 206
option dbu
button "Login", 2, 6 26 37 12
button "Logout", 3, 191 26 37 12
button "Getlog", 4, 43 3 37 12
button "Eraselog", 5, 80 3 37 12
button "Changepass", 6, 117 3 37 12
button "Addnotice", 7, 154 3 37 12
button "Delnotice", 8, 191 3 37 12
button "Send Message", 9, 98 44 40 12
button "Register", 1, 6 3 37 12
box "MessageLogger", 10, 11 65 211 129
text "Thank you for using MessageLogger", 11, 65 28 105 8, center
text "Created by: BenSax", 12, 178 196 55 8, center
}
on *:dialog:messagelogger:sclick:1:{
if ($me !ison #messagelogger) { join #messagelogger }
.msg logmsg register $input(Enter your username:,oe,Register) $input(Enter your password:,options,window,Register) $input(Enter your password:,options,window,Register)
}
on *:dialog:messagelogger:sclick:2:{
if ($me !ison #messagelogger) { join #messagelogger }
.msg logmsg login $input(Enter your username:,oe,Login) $input(Enter your password:,options,window,Login)
}
on *:dialog:messagelogger:sclick:3:{
.msg logmsg logout
}
on *:dialog:messagelogger:sclick:4:{
.msg logmsg getlog
}
on *:dialog:messagelogger:sclick:5:{
.msg logmsg easelog
}
on *:dialog:messagelogger:sclick:6:{
.msg logmsg changepass $input(Enter old password:,oe,Changepass) $input(Enter new password:,oe,Changepass) $input(Enter new password:,oe,Changepass)
}
on *:dialog:messagelogger:sclick:7:{
.msg logmsg addnotice $input(Enter notice:,oe,Addnotice)
}
on *:dialog:messagelogger:sclick:8:{
.msg logmsg delnotice
}
on *:dialog:messagelogger:sclick:9:{
.msg logmsg message $input(Enter the persons nickname:,oe,MessageLogger) $input(Type message:,oe,Message)
}
on *:text:*:?:{
if ($nick == logmsg) && ($dialog(messagelogger)) {
did -a MessageLogger 10 $time :: $1-
close -m $nick
}
} |