Несколько подчистил фильтр "Удаляем мусор на страницах одним кликом". Получилось вот что:
[more]
Код: [HTTP headers]
In = FALSE
Out = TRUE
Key = "URL: Page Eraser 4/4 (out) [LXX_ARS]"
URL = "fiction.fiction/"
Match = "$URL(http://fiction.fiction/\0_\1_\2)($TST((.\0_\2)=$LST(PageEraser))|$ADDLST(PageEraser,.\0_\2(^?)))($TST((\0/)=$LST(PageEraser))|$ADDLST(PageEraser,\0/))|"
Replace = "$JUMP(http://local.ptron/.pinfo/)"
[Patterns]
Name = "Page Eraser 1/4 [LXX_ARS]"
Active = TRUE
URL = "$TYPE(htm)"
Limit = 5
Match = "$STOP()$KEYCHK(^S^91)$SET(trigger=1)"
Replace = "<iframe src='about:blank' width='15' height='15' frameborder='0' name='proxhiding' scrolling='no'></iframe><style type='text/css'><!--/* Proxomitron Eraser */ span.proxbaton{color:#FF8000; font-size: 20px; cursor:hand; padding-right:10px; padding-left:10px} .prxlatent1 {background: #FFFFC6 url(http://local.ptron/outcast.gif); border: 2px solid #FF8000 !important} .prxlatent2 {background: #FFE7E7 url(http://local.ptron/outcast.gif); border: 2px solid #FF8000 !important} span.prxspinf{color:infotext; background-color:infobackground; border:1px solid; font:8pt Tahoma; padding:2px}//--></style>"
Name = "Page Eraser 2/4 [LXX_ARS]"
Active = TRUE
Multi = TRUE
URL = "$TYPE(htm)"
Limit = 1024
Match = "$URL(http://((www.|)webwarper.net/ww/~fz/|)(www.|) \2/(([a-z0-9]+)\#[^a-z0-9]+)+)($TST((\#)=*)|$SET(#=0))"
"(<(t[dh]|div|center)\0((\s*)\1|)>)\4 ([\r\n\t]+|) (((?++{4,*})\5(^(^<(/|) (t(able|[rdh])|div|center))))|(?+{4,*})\5)"
"($TST(trigger=1)|$TST(blst=1)|$TST((\2/)=$LST(PageEraser))$SET(blst=1)$LOG(YPE:blst=1)|$STOP()$SET(pestop=1)$LOG(RPageEraser:stop))"
"((^$TST(pestop=1))"
"$TST(\5=(([a-z]+)\7$SET(lat=$GET(lat)\7)[^a-z]+)+)"
"$TST(\5=(([а-я]+)\7$SET(cyr=$GET(cyr)\7)[^а-я]+)+)"
"$TST(\5=(([0-9]+)\7$SET(num=$GET(num)\7)[^0-9]+)+)"
"$TST(\5=(([^a-z0-9а-я]+)\7$SET(oth=$GET(oth)\7)[a-z0-9а-я]+)+)"
"$TST(\4=(?$TST(($GET(tegoc)+1)=$LST(Count))$SET(tegoc=$GET(i)))+)"
"($TST(lat=(?$TST(($GET(latc)+1)=$LST(Count))$SET(latc=$GET(i)))+)|$SET(latc=0))"
"($TST(cyr=(?$TST(($GET(cyrc)+1)=$LST(Count))$SET(cyrc=$GET(i)))+)|$SET(cyrc=0))"
"($TST(num=(?$TST(($GET(numc)+1)=$LST(Count))$SET(numc=$GET(i)))+)|$SET(numc=0))"
"($TST(oth=(?$TST(($GET(othc)+1)=$LST(Count))$SET(othc=$GET(i)))+)|$SET(othc=0))"
"$SET(sumid=$GET(tegoc)$GET(latc)$GET(cyrc)$GET(numc)$GET(othc))"
"($TST(trigger=1)"
"$TST(($GET(numberh)+1)=$LST(Count))$SET(numberh=$GET(i))$SET(partjs=window.document.getElementById('prxh$GET(numberh)').)"
"($TST((.\2_$GET(sumid))=$LST(PageEraser))$SET(3= [outcast] class='prxlatent2' )"
"$SET(gut=onClick="$GET(partjs)innerHTML='.\2_$GET(sumid)', $GET(partjs)style.backgroundImage='none';")$SET(ttl=[Hit me & Get id] )|"
"$SET(gut=onMouseOver="$GET(partjs)style.border='3px dashed #FF8000';" onMouseOut="$GET(partjs)style.border='';" onClick="$GET(partjs)style.visibility='hidden', window.open('http://fiction.fiction/\2_\@_$GET(sumid)','proxhiding',''); return false"))"
"$SET(6=<span $GET(gut) class="proxbaton" title="Hide \0 ($GET(sumid)) $GET(ttl)">•</span>)$SET(8= id='prxh$GET(numberh)' )"
"|$TST((.\2_$GET(sumid))=$LST(PageEraser))$SET(3= [outcast] style='display:none !important' )|)|)"
Replace = "<\0\3\8\1>\6\5$SET(tegoc=)$SET(latc=)$SET(cyrc=)$SET(numc=)$SET(othc=)$SET(lat=)"
"$SET(cyr=)$SET(num=)$SET(oth=)$SET(ttl=)$SET(gut=)$SET(sumid=)"
Name = "Page Eraser 3/4 [LXX_ARS]"
Active = TRUE
URL = "$TYPE(htm)&(((www.|)webwarper.net/ww/~fz/|)(www.|)$LST(PageEraser))"
Bounds = "$NEST(<td,</ td >)|$NEST(<div,</ div >)|$NEST(<th,</ th >)|$NEST(<center,</ center >)"
Limit = 32767
Match = "(<(t[dh]|div|center)\0\s\[outcast\]\s(style=$AV(\w\s\w)|class=$AV(\w)\sid=$AV(\w)$SET(1=<span class='prxspinf' title='by Page Eraser [LXX]'>html-code was removed</span>)))\#(\s[^>]+|)(>(<span onClick="window.document.getElementById[(][']prxh*</span>|))\#$SET(#=\1</\0>)*"
"((<(t[dh]|div|center)\s\[outcast\]\s(style=$AV(\w\s\w)|class=$AV(\w)\sid=$AV(\w)))\#(\s[^>]+|)(>(<span onClick="window.document.getElementById[(][']prxh*</span>|))\#(\#(.[a-z0-9]+{2,4}|[^/ ]/|s(tyle=|cript)|class=|id=|embed|applet|(i|)frame|object)\#$SET(#=&[killCon])(["'> \t\r])\#)+\#)+"
Replace = "\@"
