Buffing PERL Script (Formatting)

[Deimos]

hehe, well, I already wrote about 200 lines with nesting =\ and not quite sure if I want to redo all of it, hehe, just wanted to know if it was possible that it would work =D. Ty though for the help. And you are right, it is very hard programming in the way I set it up, lol, very very very hard. I am counting it by patterns now, only way I recognize syntax and stuffs, lol

{
{
{
elsif
}
}
}
like that, if it doesn't look like that, or whatever pattern I am on, hehe, then I didn't do it yet, lol. It looks more like 2 horns, here:

elsif($ulevel > 89)
	{
		if($ulevel < 100)
		{
			if($platinum == "1000")
			{
				if($copper == "1")
				{
					quest::castspell($userid,1200);

					quest::say("Good luck on your journies $name .");
				}
			}
			elsif($platinum == "1100")
			{
				if($copper == "2")
				{
					quest::castspell($userid,1201);

					quest::say("Good luck on your journies $name .");
				}
			}
		}
	}

ya, like that, and the pattern changes and gets longer every time I add on, at one point though, I wont be able to use the patterns becuz it will be too long, and I have 54 things, up there are only 2. Well, I am going to continue on then with pattersn, and then at one point, just searching through the stuff to see if I put the write values in, hehe.