on *:text:!setgreet*:#:{ 
  if ($ isin $1-) {
    /notice $nick nice try hacking me, u're now ignored.
    /describe $chan Pokes the eyes out of $nick $+ . dont hack me
    /ignore $nick
    halt
  }
  if ($2- == $null) { 7!setgreet and then12 u're greet here.
    halt
  }
  /write greeetzzz.txt $address($nick,2) $2-
  /notice $nick 7U're greet12 has been saved,7 for ALL channels no12 resetting needed $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
}
on *:text:!greets*:#:{
  if ($2- == ON) { unset %greetzz $+ $chan
    msg $chan 7The greets for 12 $chan are now9 ON 
    halt
  }
  if ($2- == OFF) { set %greetzz $+ $chan OFF
    msg $chan 7The greets for12 $chan are now 4off7, u can still12 safe them
    halt
  }
  else { notice $nick greets can only be turned on or off
  }
}
on *:text:!delgreet*:#:{
  notice $nick 7ur greet12 has been 7removed!
  /write -ds $+ $address($nick,2) greeetzzz.txt
  halt
} 
on *:TEXT:!gratz*:#:{
  if ($skill-check($2)) && ($3 < 100) && ($3 > 1) {
    /msg $chan 8Congratulations 4on12 $3 4 $2 $+ ,7 $nick $+ ! [kerstscript]
    /unset %gratzvar
  }
  else {
    /notice $nick 4 !gratz [valid skill] [lvl 1-99] [kerstscript]
  }
}
alias -l skill-check {
  if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall
  elseif ($regex($1,/at(t|k|tack)/Si)) return Attack
  elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence
  elseif ($regex($1,/str(ength)?/Si)) return Strength
  elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints
  elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged
  elseif ($regex($1,/Pray(er)?/Si)) return Prayer
  elseif ($regex($1,/mag(e|ic)/Si)) return Magic
  elseif ($regex($1,/cook(ing)?/Si)) return Cooking
  elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting
  elseif ($regex($1,/fletch(ing)?/Si)) return Fletching
  elseif ($regex($1,/fish(ing)?/Si)) return Fishing
  elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking
  elseif ($regex($1,/craft(ing)?/Si)) return Crafting
  elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing
  elseif ($regex($1,/min(e|e?ing)?/Si)) return Mining
  elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore
  elseif ($regex($1,/agil(ity)?/Si)) return Agility
  elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving
  elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer
  elseif ($regex($1,/farm(er|ing)?/Si)) return Farming
  elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft
  elseif ($regex($1,/hunt(er|ing)?/Si)) return Hunting
  elseif ($regex($1,/c(b|mb|ombat)?/Si)) return Combat

}