on *:TEXT:!setgreet*:#: {
  if (!$2-) {
    notice $nick Speicfy a greet!
    halt
  }
  if ($2) {
    set %Greet. [ $+ [ $address($nick,2) ] ] on
    writeini Greets.ini Greets $address($nick,2) $2-
    notice $nick 15 $+ $nick $+ , Your Personal Greet Has Been Set To:7 $2- $+ . For Address: $+(7,$address($nick,2),)
  }
}

on *:TEXT:@setgreet*:#: {
  if (!$2-) {
    notice $nick Speicfy a greet!
    halt
  }
  if ($2) {
    set %Greet. [ $+ [ $address($nick,2) ] ] on
    writeini Greets.ini Greets $address($nick,2) $2-
    msg $chan 15 $+ $nick $+ , Your Personal Greet Has Been Set To:7 $2- $+ . For Address: $+(7,$address($nick,2),)
  }
}

on *:TEXT:!delgreet:#: {
  if (%Greet. [ $+ [ $address($nick,2) ] ]) {
    notice $nick Greet Deleted.
    unset %Greet. [ $+ [ $address($nick,2) ] ]
    writeini -r Greets.ini Greets $address($nick,2) $2-
  }
  else {
    notice $nick You Dont Have A Greet! $chr(91) !setgreet GREET $chr(93)
  }
}

on *:JOIN:#: {
  if ($readini(Greets.ini,Greets,$address($nick,2))) {
    msg $chan $+([,7,$nick,,],:) $readini(Greets.ini,Greets,$address($nick,2))
  }
  if ($readini(Greets.ini,Quits,$address($nick,2))) {
    writeini Greets.ini Joins $address($nick,2) $asctime(h:nntt)
    notice $nick Welcome Back $nick $+ , You Were Last Here $Readini(Greets.ini,QTimes,$address($nick,2)) on $Readini(Greets.ini,QDates,$address($nick,2)) $+ .
  }
  if (!$readini(Greets.ini,Quits,$address($nick,2))) {
    writeini Greets.ini Joins $address($nick,2) $asctime(h:nntt)
  }
}
on *:QUIT: {
  writeini Greets.ini Quits $address($nick,2) on
  writeini Greets.ini QTimes $address($nick,2) $asctime(h:nntt)
  writeini Greets.ini QDates $address($nick,2) $asctime(mm/dd/yy)
}
on *:PART:#: {
  writeini Greets.ini Quits $address($nick,2) on
  writeini Greets.ini QTimes $address($nick,2) $asctime(h:nntt)
  writeini Greets.ini QDates $address($nick,2) $asctime(mm/dd/yy)
}