Dance Pole Script Needed...

Okay, here is my dilemna! I make unique items for dance clubs that need a dance pole (which I can make) and a script to make the avatar 'dance' on them (which I don't have). My question is: can anyone sell me this script so i can have it to copy as needed, or can they help me to write one? Either at this time would be quite appreciated! Reach me in game as SeXXXy Bliss ... Thank you!

Note: the script has to be copyable so I can use it over and over again!

Fill in the blanks:

vector sit_here = <0,0,0>; //Add sit target here
rotation rotate_here = <0,0,0,1>; //Add rotation here
string animation = "Set Animation Name Here";

state_entry()
{
llSitTarget(sit_here,rotate_here);
llSetSitText("Funk"); 
}

changed(integer change)
{
if(change & CHANGED_LINK)
{
key agent = llAvatarOnSitTarget();
if(agent)
llRequestPermissions(agent, PERMISSION_TRIGGER_ANIMATION);
else llStopAnimation(animation);
}
}

run_time_permissions(integer perm)
{
if(perm) llStartAnimation(animation);
}

Oh, and you'll need a custom animation made outside of Second Life as well. Check the animation forums for that.

Meanwhile, I'll just pretend I didn't read what you were using this for and move right along.