Untitled

on $*:TEXT:/^[!@.]SetGreet/Si:#: {
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  if (*$chr(36)* iswm $1-) { notice $nick Very funny, ignore time! | ignore -u300 $address($nick,2) }
  else {
    hadd -m address $+($network,.,$address($nick,2)) $2-
    notice $nick $logo $iif($2-,$c1(your greet is now:) $qt($c2($hget(address,$+($network,.,$address($nick,2))))),Your greet has been unset)
  }
}

on *:JOIN:#: {
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  ;if ($regex($chan,/(bot|terror|scripting|mIRC)$/Si)) { halt }
  if ($hget(address,$+($network,.,$chan)) == off) { halt }
  if ($hget(address,$+($network,.,$address($nick,2)))) {
    msg $chan $c1($chr(91)) $+ $c2($nick) $+ $c1($chr(93)) $hget(address,$+($network,.,$address($nick,2)))
  }
}

ON $*:TEXT:/^[!@.]Greets(On|Off)/Si:#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  if ($right($1,2) == on) {
    if ($hget(address,$+($network,.,$chan)) == on) {
      notice $nick $logo $c1(Greets are already) $c2(on) $c1(for) $c2($chan)
    }
    else { 
      hadd -m address $+($network,.,$chan) on | notice $nick $logo $c1(Greets turned) $c2(on) $c1(for) $c2($chan)
    }
  }
  elseif ($right($1,3) == off) { 
    if ($hget(address,$+($network,.,$chan)) == off) {
      notice $nick $logo $c1(Greets are already) $c2(off) $c1(for) $c2($chan)
    }
    else { 
      hadd -m address $+($network,.,$chan) off | notice $nick $logo $c1(Greets turned) $c2(off) $c1(for) $c2($chan) 
    }
  }
}

on $*:TEXT:/^[!@.]Greet/Si:#: { 
  if (on !isin $1 && off !isin $1) {
    if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
    var %output $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($2) && ($chr(42) !isin $2) { %output $logo $iif($hget(address,$+($network,.,$address($2,2))),$c2(The greet for) $c1($2) $c2(is:) $qt($hget(address,$+($network,.,$address($2,2)))),$c1($2) $c2(Dosent have a greet)) }
    if (!$2) { %output $logo $iif($hget(address,$+($network,.,$address($nick,2))), $c1(Your) $c2(greet) $c1(is:) $qt($hget(address,$+($network,.,$address($nick,2)))),$c1($nick) $c2(has no greet)) }
    if ($chr(42) isin $2) { 
      tokenize 42 $2- 
      var %x = 1
      while (%x <= 3) { 
        $iif($hget(address,$+($network,.,$address($($ $+ %x,2),2))),%output $Logo $c2(greet) $c1(for) $c2($($ $+ %x,2) $+ :) $qt($hget(address,$+($network,.,$address($($ $+ %x,2),2)))),%output $logo $c2($($ $+ %x,2)) $c1(Dosent have a greet))
        inc %x
      }
    }
  }
}

alias greetsave { .timer 0 60 hsave address addresses.hsh | msg #terror greets saved }

on *:START: { hload addresses.hsh address | echo -a Greets loaded! | greetsave }

on $*:TEXT:/^[!@.]DelGreet/Si:#: { 
  if ($nick !isop #terror) { notice $nick fuck off | halt }
  if (!$2) { notice $Nick a name is necessary... | halt }
  if ($hget(address,$+($network,.,$address($2,2)))) { hdel address $+($network,.,$address($2,2)) | notice $nick $logo $c2($2) $c1(has been deleted from the greet database) | halt }
  if (!$hget(address,$+($network,.,$address($2,2)))) && (*@* !iswm $2-) { notice $nick $logo $c2($2) $c1(is not here, or dosent have a greet) }
  if (@ isin $2) {
    if ($hget(address,$+($network,.,$2))) { hdel address $+($network,.,$2) | notice $nick $logo $c2($2) $c1(Has been deleted from the greet database) }
  }
}