For starters, using var instead of set is a better method for what you have.
Second, this:
on *:text: !Credits:#:{
/set %T $rand(1,1)
if (%T == 1) msg $chan Made by LikeSeoul!
}
Can turn into:
on *:text:!Credits:#: msg $chan Made by LikeSeoul
I'm not quite sure how (I has forgot how to do this), but you can shorten allll those if (%t == blah) into:
on *:text: !Pokemon:#:{
msg $chan $gettok(%pokemon.list,$rand(1,297),32) $gettok(%pokemon.events,$rand(1,2),32)
}
Where %pokemon.list is the list of pokemon (seperated by a space):
e.g.
%pokemon.list = mew mewtwo
And %pokemon.events is either:
escaped from the pokeball. Darn it!
OR
is caught. Congratulations.
All in all, it's not bad. Seems like a lot of effort though.