LID SLeep a nightmare. Still not a clue?

[kidalive]

I can got LID SLEEP FUNCTION USING THE MODE posted on Infinitemac. But have issue wake up. I can wake up my laptop normally using the PWB but not working when close the lid. I googled the DSDT fix and found a partly working way on InfiniteMac but when come to the process of waking up it wake up repeatedly waking and asleep. I`m sure it was not a good way to work. I can see my LID device via IOREG but no detail info. Maybe this code will do, but I`m not sure how.

					 Method (_REG, 2, NotSerialized)
				{
					If (LEqual (Arg0, 0x03))
					{
						Store (Arg1, FGEC)
						Add (PPCM, One, TPST)
						If (LNotEqual (LSTE, ^^^GFX0.CLID))
						{
							If (LNot (^^^GFX0.GLID (LSTE)))
							{
								Store (LSTE, LIDS)
								Notify (LID, 0x80)
							}
						}

						Store (0x04, XSEC)
						Store (XCIN, PWRS)
						If (LOr (S4FG, S3FG)) {}
						Else
						{
							Sleep (0x2710)
							If (And (CFGD, One)) {}
							Else
							{
								If (LOr (LBLM, LLess (XIF1, 0x0BB8)))
								{
									Store (0x02, LPST)
								}

								If (XCIN)
								{
									Store (Zero, LPST)
								}

								Sleep (0x1F40)
								FTHR ()
							}
						}

						Store (Zero, S4FG)
						Store (Zero, S3FG)
					}
				}

It`s get under DEVICE (BA0). Seems related to the lid and sleep. That is as far as I go. Help needed.