on *:LOAD: { write gadmins.txt $address($me,2) }
on *:TEXT:!setgreet*:#: {
if ($read(greets.txt, s,$address($nick,2))) {
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You already have a greet of $qt($remove($ifmatch,$address($nick,2))) please delete it first then try again! | halt }
if ($read(bgreets.txt, s,$address($nick,2))) {
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You have been banned from using the greets system $qt($remove($ifmatch,$address($nick,2))) | halt }
if (!$read(greets.txt, s,$address($nick,2))) {
write greets.txt $address($nick,2) $iif(!$2,No Greet Was Entered,$replace($2-,$,$chr(36),%,$chr(37)))
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Your greet of $qt($iif(!$2-,No Greet Entered,$2-)) is now saved under your host $qt($address($nick,2))
}
}
on *:TEXT:!delgreet*:#: {
if ($read(greets.txt, s,$address($nick,2))) {
write $+(-ds,$address($nick,2)) greets.txt
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Your greet of $qt($remove($ifmatch,$address($nick,2))) has been deleten | halt }
if ($read(bgreets.txt, s,$address($nick,2))) {
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You have been banned from using the greets system $qt($remove($ifmatch,$address($nick,2))) | halt }
if (!$read(greets.txt, s,$address($nick,2))) {
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You dont have a greet to delete!
}
}
on *:TEXT:!greet*:#: {
if ($read(bgreets.txt, s,$address($nick,2))) {
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You have been banned from using the greets system $qt($remove($ifmatch,$address($nick,2))) | halt }
if (!$read(bgreets.txt, s,$address($nick,2))) {
if ($2 == display) { set %display. [ $+ [ # ] ] $+($iif($3 == on,on),$iif($3 == off,off))
msg # $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Greets will now be $+($iif($3 == on,Shown),$iif($3 == off,Hidden)) on #
}
if ($2 == on) || ($2 == off) {
set %display. [ $+ [ $nick ] ] $2
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Your greet will now be $iif($2 == on,Shown,Hidden)
}
if ($2 == ban) {
if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
if ($read(gadmins.txt, w,$address($nick,2))) {
write bgreets.txt $address($3,2) $4-
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Added $3 $qt($address($3,2)) to greets ban list!
}
}
if ($2 == unban) {
if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
if ($read(gadmins.txt, w,$address($nick,2))) {
write $+(-ds,$address($3,2)) bgreets.txt
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Removed $3 $qt($address($3,2)) from greets ban list!
}
}
if ($2 == addadmin) {
if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
if ($read(gadmins.txt, w,$address($nick,2))) {
write gadmins.txt $address($3,2)
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) $3 $qt($address($3,2)) is now a greet admin!
}
}
if ($2 == deladmin) {
if (!$read(gadmins.txt, w,$address($nick,2))) { notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You arn't a greets admin! | halt }
if ($read(gadmins.txt, w,$address($nick,2))) {
write $+(-ds,$address($3,2)) gadmins.txt
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) $3 $qt($address($3,2)) has been removed from greet admins!
}
}
if ($2 == force) {
if ($address($nick,2) != $address($me,2)) {
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) You cannot force anything! | halt }
if ($address($nick,2) == $address($me,2)) {
if ($3 == meadmin) {
write gadmins.txt $address($me,2)
}
if ($3 == meunban) {
write $+(-ds,$address($me,2)) bgreets,txt
}
}
}
if ($2 == setcol) {
write col1.txt $address($nick,2) $iif(!$3,7,$3)
write col2.txt $address($nick,2) $iif(!$4,10,$4)
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Your colors of $3 & $4 have been set!
}
if ($2 == delcol) {
write $+(-ds,$address($NICK,2)) col1.txt
write $+(-ds,$address($NICK,2)) col2.txt
notice $nick $+($col1($nick,[),$col2($nick,Greet),$col1($nick,])) Colors removed!
}
}
}
on *:JOIN:#: {
if ($read(bgreets.txt, s,$address($nick,2))) { halt }
if (%display. [ $+ [ # ] ] == on) {
if (%display. [ $+ [ $nick ] ] == on) || (%display. [ $+ [ $nick ] ] == $null) {
if ($read(greets.txt, s,$address($nick,2))) {
if ($read(gadmins.txt, w,$address($nick,2))) {
msg # $+($chr(40),$chr(3) $+ 4|\/| $+ $chr(3),$chr(41)) $+([,$nick,]) $remove($read(greets.txt, s,$address($nick,2)),$address($nick,2))
}
if (!$read(gadmins.txt, w,$address($nick,2))) {
msg # $+([,$nick,]) $remove($read(greets.txt, s,$address($nick,2)),$address($nick,2))
}
}
}
}
}
alias -l col1 { return $+($chr(3),$remove($read(col1.txt, s,$address($1,2)),$address($1,2)),$2-) }
alias -l col2 { return $+($chr(3),$remove($read(col2.txt, s,$address($1,2)),$address($1,2)),$2-) }