what is the point of this anyways?

ppl really think this is jus a pastebin >_>

lets try out my failed attempt
at making this any less lammme...
[cant test it im in school =[ ]

on $*:text:/^[!.]gift/Si:#:{
  if $regex($1,/^[.!]gift$/Si) {
   if !%f
    inc -u5 %f
      .describe # Gives $nick a $Gift 
 }
}

alias -l Gift {
  var %x = $r(1,4)
  if %x = 1 { return Tree | halt }
  if %x = 2 { return $nick(#,$r(1,$nick(#,0)))  | halt }
  if %x = 3 { return Cookie! | halt }
  if %x = 4 { return coal | halt }
}