obj
   Apple
       icon = 'apple.dmi'
   tree
       icon = 'lol.dmi'
       set src in view(1)
       verb
           Pick()
                var/obj/A = new /obj/Apple(usr.loc)
                usr << "You get the apple"

atom/movable/var/grabbable=FALSE
mob/verb/grab(t as null|text)
  set desc = "moves any nearby grabbable object into your square, if possible"

  var/list/l = new // this will be a list of grabbable objects
  for(var/atom/movable/a in orange(1))
    if(a.grabbable) l.Add(a) // add grabbables to the list

  if(l.len)
    var/atom/movable/a
    if(!t) //if the user didn't specify anything to grab,
           //ask which one is preferable.
      a = input("Grab what?","Grab") as null|anything in l
    else          //otherwise, try to figure out
      for(a in l) //which one the player is asking for
        if(ckey(a.name)==ckey(t)) break
        // ^ in a parsed enviornment, the above code
        // ^ ought to be replaced by some sort of name-
        // ^ -to-object matcher. Comparing ckeys is a
        // ^ pretty rudimentary way to make matches, since
        // ^ there could be a "red apple" in a tree, and
        // ^ by this system, a player typing "grab apple"
        // ^ would be told "there are no apples nearby!",
        // ^ which is stupid. But I digress.
        else a=null

    if(a) //assuming now that we have an object in mind
      if(alert("Grab [a.name]?","Grab","Grab","Nevermind") == "Grab")
        if(a in orange(1)) // prevent abuse, hopefully
          if(!a.Move(src.loc)) src << "It won't budge!"
          else view() << "[src.name] grabs [a.name]."
        else               // by disallowing grab of once-near objets
          src << "[a.name] is out of reach now!"

    else if(t) //assuming now that no suitable object was specified
      var/t_plural=0
      if(copytext(t,length(t),0)=="s") t_plural=1
      src << "There [t_plural? "are" : "is"] no [t] in your reach."
  else src << "Nothing grabbable is in reach!"

obj/apple
  icon = 'fruit.dmi' // whatever
  icon_state = "apple"
  desc = "looks fresh and tasty!"
  grabbable = 1 //now it can be grabbed,
                //no extra work required!