on *:Start:{
if (!$hget(greet)) {
hmake Greet
}
if ($exists(greet.txt)) {
hload greet greet.txt
}
}
on *:Exit:{
hsave greet greet.txt
}
on *:text:!setgreet*:#:{
if ($len($2-) > 200) { .notice $nick That greet is too long. Your greet must be under 200 characters. | Halt }
else {
if (!$2) {
.notice $nick No greet set.
halt
}
if ($2 == off) && (!$3) {
.hadd greet $nick off
.notice $nick Greets turned off for the nick $+($nick,.)
}
else {
.notice $nick Your greet has been set to $+($2-,.)
.hadd greet $nick $2-
.hsave greet greet.txt
}
}
}
on *:TEXT:!Greets*:#:{
if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
if (!$2) {
if ($hget(greet,$chan)) {
.notice $nick Greets are currently off in $+($chan,.)
}
else {
.notice $nick Greets are currently on in $+($chan,.)
}
}
if ($2 == off) {
.notice $nick Greets are now off in channel $+($chan,.)
.hadd greet $chan on
.hsave greet greet.txt
}
elseif ($2 == on) {
.notice $nick Greets are now on in channel $+($chan,.)
.hdel greet $chan
.hsave greet greet.txt
}
}
else { .notice $nick You must be an op to alter this channel's greet settings. | halt }
}
on *:Text:!viewgreet:*:{
if (!$hget(greet,$nick)) {
notice $nick No Greet Found, please type !greethelp to get help with greets.
}
else {
notice $nick Your greet is set to $hget(greet,$nick))
}
}
on *:TEXT:!Delgreet*:#:{
if ($hget(greet,$nick)) {
.hdel greet $nick
.notice $nick Your greet has been deleted.
}
else { .notice $nick You have no greet set. Type !setgreet greet here to set one. | halt }
}
on *:Join:#:{
if (($hget(Greet,$chan)) || ($hget(greet,$nick) == off) || ($nick == $me)) {
Halt
}
if ((!$hget(greet,$nick)) && (!$hget(greet,$chan))) {
.notice $nick You have no greet set. To set a greet, type !setgreet greet here .
halt
}
elseif (($hget(greet,$nick)) && (!$hget(Greet,$chan))) {
.msg $chan [12 $nick ] 7 $hget(greet,$nick)
}
}