For !pick you can use something like:

msg $chan Ball - $r(1,49)

As for !gift, you can put all the messages in a gift.txt for example and use:

describe $chan $read(gift.txt)

This saves you a lot of unnecessary repetitions.