Question: problem with integration

I have problem with following question:

"You are given two functions: h(x) = (x+2)^2 - 15x - 30 and L(x) = qx, where q is any real number. Find the value(s) of the parameter q such that the area of the region enclosed by these two functions is equal to 1000."

Here is what I have done so far:

1) declare (and display) both functions:

h := proc (x) options operator, arrow; (x+2)^2-15*x-30 end proc; L := proc (x) options operator, arrow; q*x end proc; plot([h(x), subs(q = 5, L(x)), subs(q = -25, L(x))], x = -20 .. 20, y = -200 .. 500)

2) try to find limits to integrate:

a := solve(L(x) = h(s));

3) integrate and solve for q:

Int(L(x)-h(x), x = rhs(a[1]) .. rhs(a[2]));
solve(%, q);
 

but it does not work. :-(

what am i doing wrong?

IK242