Miscellany

alias c1 { return $+(,$1-) } 
alias c2 { return $+(,$1-) } 
On $*:TEXT:/^[!@.]setgreet/Si:#: { 
    if ($readini(greets.ini,greets,$wildsite)) { 
      writeini -n greets.ini greets $wildsite $replace($2-,$chr(3),@k,$chr(2),@b,$chr(22),@r,$chr(31),@u,$chr(15),@o) 
      notice $nick $c1(Your greet has been changed to:) $c2 $+ $2-     
    } 
    else { 
      writeini -n greets.ini greets $wildsite $replace($2-,$chr(3),@k,$chr(2),@b,$chr(22),@r,$chr(31),@u,$chr(15),@o) 
      notice $nick $c1(Your greet has been set to:) $c2 $+ $2- 
    }
 } 


on $*:TEXT:/^[!@.]delgreet/Si:#: { 
  if (!$readini(greets.ini,greets,$wildsite)) { 
    notice $nick $c1(You have no greet to delete!) 
  } 
  else { 
    notice $nick $c1(Your greet of:) $c2 $+ $qt($replace($readini(greets.ini,greets,$wildsite),@k,$chr(3),@b,$chr(2),@r,$chr(22),@u,$chr(31),@o,$chr(15)) $+ ) $c1(has been deleted.)  
    remini greets.ini greets $wildsite 
  } 
} 
on $*:TEXT:/^[!@.]viewgreet/Si:#: { 
  if (!$2) && ($right($1,5) == greet) { 
    if (!$readini(greets.ini,greets,$wildsite)) { 
      notice $nick $c1(You have no greet set. Type) $c2(!setgreet <greet>) $c1(to set one.) 
    } 
    else { 
      notice $nick $c1(Your greet is:) $c2 $+ $replace($readini(greets.ini,greets,$wildsite),@k,$chr(3),@b,$chr(2),@r,$chr(22),@u,$chr(31),@o,$chr(15)) 
    } 
  } 
} 
on $*:TEXT:/^[!@.]greets/Si:#: { 
  if (!$2) { 
    notice $nick $c1(Please specify on or off) 
  } 
  if ($nick ishop $chan || $nick isop $chan) { 
    if ($2) { 
      writeini -n greets.ini channels $chan $2 
      notice $chan $c1(Greets for) $c2($chan) $c1(have been turned) $c2($2) $+ $c1(.) 
    } 
  } 
  else { 
    notice $nick $c1(You need to be an op/halfop to use this command.) 
  } 
} 
on *:JOIN:#: { 
  if ($readini(greets.ini,channels,$chan) != off) { 
    if ($readini(greets.ini,greets,$wildsite)) { 
      msg $chan  $+ $+([,$nick,]) $replace($readini(greets.ini,greets,$wildsite),@k,$chr(3),@b,$chr(2),@r,$chr(22),@u,$chr(31),@o,$chr(15)) 
    } 
    else { 
      notice $nick $c1(You have no greet set! Type) $c2(!setgreet <greet>) $c1(to set one.) 
    } 
  } 
}