あやしいわーるど＠Proxomitron






Name = "Color Replacer"
Active = TRUE
Multi = TRUE
URL = "^$LST(Allow-Color)"
Limit = 16
Match = "color(=|: )\1(['"]+{0,1})\2(#|)( (Red|[a-f]+{2}0000) $SET(0=#CCAAAA) | (Green|00[1-f]+{2}00) $SET(0=#77CC77) |"
        " (Blue|Navy|darkblue|[0-5]+{4}[0-f]+{2}) $SET(0=#AAAACC) | (Black|[01]+{1,6}|(")\3) $SET(0=#999999) )([^0-9A-F]+{0,1})\4"
Replace = "color\1\2\0\3\4"

原色に近い色や下ので置き換えた<BODY>で見にくい色を置き換えます
BODY TAG Replacerと調整しないとなお見にくいです。




Name = "BODY TAG Replacer - Strange"
Active = FALSE
URL = "^$LST(Allow-Color)"
Limit = 256
Match = "<BODY*>"
Replace = "<BODY BGCOLOR="#004040" TEXT="#FFFFFF" LINK="#EEFFEE" VLINK="#DDDDDD" ALINK="#FF0000">"

Name = "BODY TAG Replacer - DGreen&Yellow"
Active = TRUE
URL = "^$LST(Allow-Color)"
Bounds = "<BODY*>"
Limit = 2048
Match = "<BODY*>"
Replace = "<BODY BGCOLOR="#112200" TEXT="#BA8700" LINK="#CF7403" ALINK="#88AA88" VLINK="#9999BB">"

Name = "BODY TAG Replacer - Black&Yellow"
Active = FALSE
URL = "^$LST(Allow-Color)"
Limit = 256
Match = "<BODY*>"
Replace = "<BODY BGCOLOR="#BA8700" TEXT="#223311" LINK="#0022AA" ALINK="#AA6666" VLINK="#336699">"

<BODY>タグを置き換えて色を固定します




Name = "TABLE BGCOLOR Replacer"
Active = TRUE
URL = "^$LST(Allow-Color)"
Bounds = "<t(able|r|d)\s*>"
Limit = 256
Match = "<t(able|r|d)\1\s\2(bgcolor=("|)#[0-9A-Z]+{3,8}("|)|background="*") \3>"
Replace = "<T\1 BGCOLOR="#331100" \2\3>"

<TABLE>タグを置き換えて色を固定します




Name = "Style Sheet Replacer"
Active = TRUE
Bounds = "<LINK*REL=("|)STYLESHEET("|)*>|<STYLE*</STYLE>"
Limit = 4096
Match = "<LINK*REL=("|)STYLESHEET("|)*>|<STYLE*</STYLE>"
Replace = "<STYLE type="text/css">"
          "a:link {color:AAAAAA;}\na:visited {color:#AA2222;}\n"
          "a:active {color:#88AA88;}\na:hover {background-color:220022;}</STYLE>"

StyleSeetを置き換えます
BODY TAG Replacerだけでは片手落ちなのでつくりましたが
私は現実に現場で一度も道具を使ったこともないようなW3Cの白痴どもが定めた
StyleSeetそのものが嫌いなので適当です
各自自分で作り直してください




Name = "ALL DIV KILL"
Active = TRUE
Bounds = "<DIV=[^>]++>"
Limit = 256
Match = "*"

Name = "DIV KILLER"
Active = TRUE
Multi = TRUE
Bounds = "<(/|)DIV*>|style=[^>]+|CLASS=[^ >]+{1,*}"
Limit = 1024
Match = "<DIV ALIGN="CENTER"> $SET(0=<CENTER>)|<DIV*> $SET(0=)|</DIV> $SET(0= </CENTER>)|style=[^>]+ $SET(0= )|CLASS=([^ >]+{1,*})\1 $SET(0=\1)"
Replace = "\0"

セット使用
NN4.x以前で画像やフォントが重なり合ったりずれたりして
とてもページが閲覧できなくなるのを防ぎます





Name = "<PRE> Kiiller"
Active = FALSE
Bounds = "<PRE>|\r\n"
Limit = 5
Match = "<PRE> $SET(0=)|\r\n $SET(0=<BR>)"
Replace = "\0"

<PRE>がうざい時消します





Name = "Allow Frame Resizing"
Active = TRUE
Multi = TRUE
Bounds = "<FRAME[^>]++>"
Limit = 1024
Match = "\0(frameborder=("|)no("|) $SET(1=frameborder="3" )|noresize $SET(1= )|framespacing=("|)0("|) $SET(1= )|"
        "scrolling=("|)(NO|YES)("|) $SET(1=scrolling="AUTO" )) \2"
Replace = "\0\1\2"

改良版




Name = "Frameset Fixer"
Active = TRUE
Multi = TRUE
Bounds = "<FRAMESET[^>]++>"
Limit = 256
Match = "\0(rows=|cols=)\1((\*[^,]|"\*") $SET(2="100%")|("|)([#1-3000]|[#1-99]%)\3("|)[ >] $SET(2="\3,*")) \4"
Replace = "\0\1\2 \4"

NN4.xでFARAMESETの記述がマズイせいで表示されないのを直します




Name = "TABLE Support"
Active = TRUE
Bounds = "<TR*>"
Limit = 64
Match = "<TR\0>"
Replace = "</TD></TR><TR\0>"

NN4.x用、TR,TDの閉じ忘れを防ぐ為
執拗にTRの終了タグを挿入します。
BOTTOM URL Tools Ad の方にあるTABLEそのものの閉じタグと併せて使うと
大抵の閉じ忘れは防げます。




Name = "Table I Hate HEIGHT"
Active = TRUE
Multi = TRUE
Bounds = "<TABLE*>"
Limit = 128
Match = "<TABLE\0HEIGHT="[0-9]++"\1>"
Replace = "<TABLE\0\1>"

NN4.xで型崩れを防ぎます




Name = "DeTabler"
Active = FALSE
Limit = 128
Match = "<(/|)t(able|r)*>"
Replace = "<p>"

NN4.xで多重Table内の文字を選択→コピーする時なんかに
たしか改良版




Name = "Table Width Limitter"
Active = TRUE
Multi = TRUE
Bounds = "<TABLE*>"
Limit = 128
Match = "<TABLE\0WIDTH=(|")[#400-*](|") \1>"
Replace = "<TABLE\0WIDTH="100%" \1>"

TABLEのWidthが数値(ドットピッチ)で固定されている場合
画面からはみ出て読みにくくなるのを解消します




Name = "Local File Access Killer"
Active = TRUE
Limit = 12
Match = "\3(=|"|>)\0(file|local|[A-Z])://\4"
Replace = "\3\0[Local File://]\4"

多分改良版です




Name = "Protocol src killer"
Active = TRUE
Multi = TRUE
Bounds = "<[^>]++src=*>|< link[^>]++rel=("|) stylesheet*>|: url(*)|< meta (*http-equiv=("|)refresh('|)&*content=) [^>]++>"
Limit = 2000
Match = "<[^>]++(src|href|url)=("|) "
        "([a-z]:|about:|afs:|cdl:|cid:|cso:|finger:|ftp:|gopher:|"
        "its:|JavaScript:|ldap:|lynxcgi:|lynxexec:|lynxprog:|"
        "mailserver:|mailto:|mid:|mk:|mms:|ms-its:|"
        "news:|newspost:|newsreply:|nfs:|nntp:|"
        "prospero:|res:|rlogin:|rn3270:|"
        "snewspost:|snewsreply:|sysimage:|telnet:|tn3270:|"
        "vbscript:|vnd.ms.radio:|wais:|z39.50:|"
        "http://[^/]++:[0-9]++(/|)("|>|\s)"
        " )\0*"
Replace = "<font size=1>[Protocol src killed] \0</font>
"

出回っているものの改造版
色々つつきまわったような気がしますが多分これで問題ないでしょう




Name = "Banner Blaster from LST"
Active = TRUE
Bounds = "<a\s[^>]++href=*</a >|<(img|image|input)*>"
Limit = 1024
Match = "<a\s[^>]++href=("|)((http://|)$LST(URL-Kill)[^ >"]+)\0*</a >|"
        "<(img|image|input)*(href|src)=("|)($LST(URL-Kill)[^ >"]+)\0*>"
Replace = "<font size=1><a href="\0" TARGET="_blank">[killed]</a></font>"




Name = "Banner Blaster in Size"
Active = TRUE
Bounds = "<(img|image|input)*>"
Limit = 1024
Match = "<(img|image|input)\s(*(href|src)=("|)([^ >"]+)\0 & *width=([#80-90]|[#230-240]|[#460-480]) & *height=([#25-35]|[#55-60])*)"
Replace = "<a href="\0"><font size=1 color=#DD0000>[ad]</font></a>"

標準付属の奴や出回っているものの出来が悪いので自作
管理が簡単で反応のしすぎをなくします




Name = "Image Size Limitter"
Active = TRUE
Bounds = "<img *>"
Limit = 1024
Match = "<img\s((*width=([#1601-*])\0 & *height=([#1201-*])\1)|(*width=([#1-3])\0 & *height=([#1-3])\1))*>"
Replace = "<FONT SIZE=1 COLOR="#BB7777">\0x\1</FONT>"




Name = "Hide Browser's Info from JS"
Active = FALSE
Limit = 25
Match = ".referrer $SET(0=.referrer.substr(0,0)+"\u)|"
        "navigator.appVersion $SET(0='5.5')|"
        "navigator.(appName|userAgent) $SET(0='InternetExplore')"
Replace = "\0"

default付属の同じような機会に一緒にon/offするだろうものをまとめてあります




Name = "Onload unloader"
Active = TRUE
Multi = TRUE
Limit = 20
Match = "on(un|)\1(load|mouseover|mouseout)\2="
Replace = "no\1\2="

同上




Name = "OTD BBS Noise Killer"
Active = TRUE
URL = "bbs[0-9i]++.otd.co.jp/"
Limit = 32767
Match = "<table (bgcolor="#ffffff"|) width="626"*="1" border="0"> (|</a></noscript></IFRAME>)</td></tr></table>"

OTDの広告TABLEを消します





Name = "Free Servers Ad Blaster"
Active = TRUE
URL = "[a-z0-9.]++.(skipup.com|infoseek.co.jp|freeweb.ne.jp|geocities.co.jp|tok2.com|tripod.co.jp|angelfire.com|netfirms.com|virtualave.net|theglobe.com|prohosting.com|infoseek.(ne.jp|livedoor.com)|aaacafe.ne.jp|xrea.com|watch.impress.co.jp)"
Limit = 20480
Match = "(<!--[*]++/(SKIPUP|変更)[^>]++>|<!-- START HOST IT FOOTER CODE -->|<!-- isweb auto-insert \*/ -->|<!--\*/GeoGuide/\*-->|<!-- Yahoo! Menu service -->|<!-- freeweb auto-insert -->|<!-- TOK2_TOP -->|<CENTER><script|<TOBJ|"
        "<!-- (Start|Beginning) of Angelfire Ad Code Insertion -->|<!-- (ads |)BEGIN -->|<!-- hiding|<!-- BEGIN PROBE CODE -->|<!--Begin isweb_Header-->|<!-- AAACAFE banner tag -->|"
        "<a href="http://www.xrea.com/" target="_blank"><img|<CENTER><A HREF=http://www.xrea.com/|<!--BODY TEXT|<!--TSUKAERU CODE START-->|<!--■■■WATCH LINK■■■-->)"
        "*"
        "(<!--[*]++/SKIPUP[^>]++>|<!-- END HOST IT (HEADER|FOOTER) CODE -->|<!-- inserted by isweb server/\*  -->|<!--\*/GeoGuide/\*-->|<!-- END Yahoo! Menu Service -->|<!-- inserted by freeweb server -->|</TOBJ>|"
        "<!-- TEMPORARY POP UNDER -->|<!-- (TOK2_TOP_|ads |)END( of Angelfire Ad Code Insertion|)[^_]++-->|// End of hiding -->|<!-- END PROBE CODE -->|<!--End isweb_Header-->|<!-- AAACAFE banner tag -->|"
        "http://ad.xrea.com/ad_img.fcg" border="0">|</A></IFRAME>|<!--TSUKAERU CODE END: Thankyou-->|<!--■■■[^>]++>)"

Free系の自動的に追加される宣伝などをすべて消します
まとめて管理した方が賢明でしょう





Name = "Link Fixer"
Active = TRUE
Multi = TRUE
URL = "^www.google.com/"
Limit = 256
Match = "(\s|\n|\r|　|｡|([^0-9a-z]:|：|\()|[%81-%99]?|[^"k]("|)>|$B|\(B)\0("
        "([hftp\*@]+{2,4}|[gsoｔ粋]+{6,8})://([^ <"]++{1,*})\1|"
        "([0-9a-z]+{*,12}.[0-9a-z]+{*,25}(.[0-9a-z.]++{*,15}|)."
        "(arts|banc|biz|com|edu|firm|gov|info|int|mil|name|net|nom|org|rec|shop|web|[a-z]+{2})(:[#0-65535]|)/*)\2"
        ")([%20]|\n|\r|[%81-%99]|<|-->|$B|\(B)\3"
Replace = "\0<a href="http://\1\2" TARGET="_blank">http://\1\2</a> [Fixed]\3"


ホストから直接記されたものやttp://など自動リンクされないよう表示されたURLを
きちんとリンクします
Reffererを取られたくなくてそうしている場合は
HeaderフィルタでReffererがでないようにしておきましょう




Name = "Link Target Force _blank"
Active = TRUE
Multi = TRUE
Bounds = "<a(|[%0D][%0A])[%20](|[%0D][%0A])[^>]++href=*>*</a>"
Limit = 512
Match = "<a[^>]++href=("|)((http://|)([^">#]++{0,256}/|)[^>#" ]++)\1(>|("|\s)[^>]++>) \2</a>"
Replace = "<a  href="\1" TARGET="_blank">\2</a>"


ページ内LINK以外のすべてのLINKを強制的に新しいWindowで開きます
URL="^\u"とか出来るといいんだけど無理なので全部に反応させたい場合は[^>#"]から#を削って下さい
くずはすくりぷとのTEXTAREA内に反応させないためには<PRE></PRE>で囲むといいようですが
色々不便になるようです





Name = "Bottom URL-Tools Ad"
Active = TRUE
Limit = 8
Match = "<end>"
Replace = "</TD></TR></TABLE></TD></TR></TABLE><P><CENTER><FONT SIZE=2>"
          "<a href="" target=_blank accesskey=1>0UP</a> \n"
          "<a href=../ target=_blank accesskey=2>1UP</a> \n"
          "<a href=../../ target=_blank accesskey=3>2UP</a> \n | "
          "<a href=http://dbug..\h\p\q target=_blank accesskey=D>dbug</a> \n"
          "<a href=http://src..\h\p\q target=_blank accesskey=S>src</a> \n"
          "<a href=http://src..bweb..\h\p\q target=_blank accesskey=S>src&bweb</a> \n"
          "<a href=http://bweb..\h\p\q target=_blank accesskey=W>bweb</a> \n"
          "<a href=http://bypass..\h\p\q accesskey=B>bypass</a> \n | "
          "<a href=http://www.google.com/search?q=\u&hl=ja target=_blank accesskey=G>Google</a> \n"
          "<a href=http://www.google.com/search?q=cache:\u&hl=ja target=_blank accesskey=C>Cache</a> \n"
          "<a href=http://www.google.com/search?q=link:\u&hl=ja target=_blank accesskey=L>Linked</a> \n"
          "<a href=http://www.google.com/search?q=related:\u&hl=ja target=_blank accesskey=R>Related</a> \n | "
          "<TABLE><TR><TD VALIGN=CENTER><FONT SIZE=-1>\n"
          " En-Ja <a href="http://www.excite.co.jp/world/url/body/?wb_url=\u&wb_lp=ENJA">Excite</a> \n"
          "<a href="http://www.excite.co.jp/world/url/body/?wb_url=\u&wb_lp=ENJA&wb_dis=3">wb</a> \n | "
          "<a href="http://babel.altavista.com/translate.dyn?lp=en_ja&doit=done&url=\u">Altavista</a> \n | "
          "<a href="http://www.worldblaze.com/scripts/xlatepage.cgi?wb_url=\u&wb_lp=enja-ATL">elingo</a> \n | "
          "<a href="http://www.teletranslator.com:8080\p\q?AlisFramesTgtDoc&AlisTargetHost=\h&AlisUI=frames_ex/ns_toolbar&AlisSourceLang=en&AlisTargetLang=ja&AlisUILang=ja">Gist-in-Time</a> \n | "
          "<a href="http://www.t-mail.com/cgi-bin/tsail?url=\u&sail=full&lp=en-ja&requestType=T-Sail">T-Sail</a> \n | "
          " Ko-Ja <a href="http://www.netomo.com/cgi-bin/transkj.cgi?\u">netomo</a> \n"
          "<a href="http://trans.myplan.co.kr/webtrans/ktjs/kjtran.cgi?url=\u">TM</a> \n"
          "<a href="http://www.chattingman.com/trans/kjtrans.php3?target_url=\u">CM</a> \n | "
          "</FONT></TD><TD><FONT SIZE=-1>
\n"
          "<FORM method="GET" action="http://www.worldblaze.com/scripts/xlatepage.cgi">"
          "<INPUT type="hidden" name="wb_url" value="\u">"
          "<SELECT name="wb_lp" size="1" accesskey=T>"
          "<OPTION value="FREN-lhs">France-En</OPTION>\n"
          "<OPTION value="DEEN-lhs">German-En</OPTION>\n"
          "<OPTION value="ITEN-lhs">Italia-En</OPTION>\n"
          "<OPTION value="ESEN-lhs">Spain-En</OPTION>\n"
          "<OPTION value="PTEN-lhs">Portgal-En</OPTION>\n"
          "<OPTION value="RUEN-promt">Rosia-En</OPTION>\n"
          "<OPTION value="ZHEN-tstar">ChinaE-En</OPTION>\n"
          "<OPTION value="TWEN-tstar">ChinaD-En</OPTION>\n"
          "</SELECT><INPUT type="submit" value="e-lingo"></FORM>\n"
          "</FONT></TD></TR></TABLE>\n"
          "</FONT></CENTER>\n"

ページの底に色々便利なリンクを追加します
タグをまともに閉じてない大半のページも見れるようになります

翻訳とか多分ほとんど死んでいる
替わりの翻訳サイトhttp://www.freetranslation.com/とか良さそうなんだが
調べるの面倒なので放置






Name = "Support Amazon.com Sign In"
Active = TRUE
URL = "www.amazon.co.jp/exec/obidos/"
Bounds = "<input[^>]++>"
Limit = 256
Match = "<input ("
        "type=text name=email $SET(0=email type=text size=30 maxlength=64 value=登録メアド)|"
        "type=password $SET(0=password type=password size=10 maxlength=20 value=パスワード)|"
        "name=password $SET(0=password type=password size=10 maxlength=20 value=パスワード))*"
Replace = "<input name=\0>"

AmazonのSign In自動化
修正

Name = "Yahoo Auction 20PageList Access"
Active = TRUE
URL = "list[0-9].auctions.yahoo.co.jp/"
Limit = 128
Match = "<a href="\0-leaf.html\?apg=([#1-99]\&[^"]++)\1">\2??50??</a>"
Replace = "<a href="\0-leaf.html?apg=\1" TARGET="_blank"> \2の50件 </a>"
          "<P><CENTER>"
          "<a href="\0-leaf.html?apg=1&\1" TARGET="_blank">1</a> "
          "<a href="\0-leaf.html?apg=2&\1" TARGET="_blank">2</a> "
          "<a href="\0-leaf.html?apg=3&\1" TARGET="_blank">3</a> "
          "<a href="\0-leaf.html?apg=4&\1" TARGET="_blank">4</a> "
          "<a href="\0-leaf.html?apg=5&\1" TARGET="_blank">5</a> "
          "<a href="\0-leaf.html?apg=6&\1" TARGET="_blank">6</a> "
          "<a href="\0-leaf.html?apg=7&\1" TARGET="_blank">7</a> "
          "<a href="\0-leaf.html?apg=8&\1" TARGET="_blank">8</a> "
          "<a href="\0-leaf.html?apg=9&\1" TARGET="_blank">9</a> "
          "<a href="\0-leaf.html?apg=10&\1" TARGET="_blank">10</a> "
          "<a href="\0-leaf.html?apg=11&\1" TARGET="_blank">11</a> "
          "<a href="\0-leaf.html?apg=12&\1" TARGET="_blank">12</a> "
          "<a href="\0-leaf.html?apg=13&\1" TARGET="_blank">13</a> "
          "<a href="\0-leaf.html?apg=14&\1" TARGET="_blank">14</a> "
          "<a href="\0-leaf.html?apg=15&\1" TARGET="_blank">15</a> "
          "<a href="\0-leaf.html?apg=16&\1" TARGET="_blank">16</a> "
          "<a href="\0-leaf.html?apg=17&\1" TARGET="_blank">17</a> "
          "</CENTER>"

ヤフオクのページめくり面倒だから作成。
ヤフオクはクソというより素人との非対面商売がクソ。




for Strange Script


ログインの手間を省きます




Name = "Strange View No. Replacer"
Active = TRUE
Limit = 128
Match = "([%95][%5C]示件数\s|ﾉｽｼｨｷ????|View\s)\0<input*name="(d|msgdisp|def|bbsdisp)\1"*>"
Replace = "\0 <input type="submit" name="\1" value="0"> \n"
          "<input type="submit" name="\1" value="15"> \n"
          "<input type="submit" name="\1" value="30"> \n"
          "<input type="submit" name="\1" value="100"> \n"
          "<input type="submit" name="\1" value="200"> \n"
          "<input type="submit" name="\1" value="300"> \n"
          "<input type="submit" name="\1" value="400"> \n"
          "<input type="submit" name="\1" value="500"> \n"

表示件数をボタンで表示し、押すだけでその数の投稿がみれるようにします






Name = "GetLog+Strange Auto Citer-check box"
Active = TRUE
URL = "jo.st45.arena.ne.jp/|strangeworld.westhost.com/"
Bounds = "value=*引用"
Limit = 22
Match = "value="checked'>引用"
Replace = "value="checked" checked>引用"

Name = "GetLog+Strange Auto Citer-add Date"
Active = TRUE
URL = "jo.st45.arena.ne.jp/cgi-bin/|strangeworld.westhost.com/cgi-bin/"
Bounds = "投稿日：*■</A>*</FONT>"
Limit = 512
Match = "投稿日：(\1/\2/\3)\0\(\4\&ff=([0-9]+{8}.dat|)"\starget="link">■</A>"
        "(|\5"\starget="link">★</A> $SET(7 = \5&ff=\1\2\3.dat" target="_blank">★</A>))"
        "(|\6"\starget="link">◆</A> $SET(8 = \6&ff=\1\2\3.dat" target="_blank">◆</A>))"
        "*</FONT>"
Replace = "投稿日：\0(\4&ff=\1\2\3.dat" target="_blank">■</A>\7\8\n</FONT>"

GetLog+くずはすくりぷと組みこみで検索する時
引用をし易くします




Name = "Strange Copy&Paste Minimizer"
Active = TRUE
Bounds = "(秒　\s|\n\ \ )<A href=[^>]++>■*</PRE>"
Limit = 10240
Match = "\7<A href="http://\5>■\6<PRE>\0("
        "[>\\[\]\(\)\{\}＼ヽ丶〃/⌒￣―_＿\|｜\*#$%\&\+\^"'.,;\:‥…∴∵巛》┬┗┛┏┓┳┻┣┫╋┃━〓■□◆◇▲▼△▽●〇○◎★☆Σ∀⊂⊃∩∫ﾉ\r]+{20}([%81-%99]?|)|"
        "(\r|\n)[^a-z0-9:\/.\?=]++{0,256}[a-z0-9]++{30,256}[^.\/\?=]"
        ")\1\2(\r\r*|\n*|</PRE>)\3"
Replace = "\7<A href="http://\5>■</A>　 \n<A href="http://bweb..\5><font face=WingDings>x</font>\6\n"
          "<font color="#CCCC00">[Copy&Paste Minimized]</font><P>\n"
          "<PRE>\n<SPAN STYLE="font-size:70%"><FONT FACE="ＭＳ 明朝">\0<font color="#DDDDAA">\1</font>\2\3</FONT></SPAN>"




Name = "Strange Copy&Paste Minimizer2"
Active = TRUE
Bounds = "(秒　\s|ﾉﾃ｡｡\s|\n\ \ )<A href=[^>]++>(■|｢｣)*</PRE>"
Limit = 10240
Match = "\7<A href="http://\5>(■|｢｣) \6<PRE>\0("
        "([ 　\r]++{2,128}[^ @・]+{2,20})+{3}[ 　]+{2}"
        ")\1\2(\r\r*|\n*|</PRE>)\3"
Replace = "\7<A href="http://\5>■</A>　 \n<A href="http://bweb..\5><font face=WingDings>x</font>\6\n"
          "<font color="#CCCC00">[Copy&Paste Minimized 2]</font><P>\n"
          "<PRE>\n<SPAN STYLE="font-size:70%"><FONT FACE="ＭＳ 明朝">\0<font color="#DDDDAA">\1</font>\2\3</FONT></SPAN>"

巨大な文字絵を小さく表示して見易くします
またプロポーショナルフォントを使っている場合ずれない文字絵が表示されます
1は特定の文字列の繰り返しに対する反応であり、2は空白+文字列の繰り返しに反応します






Name = "Strange Repeat to One"
Active = TRUE
Bounds = "(秒　\s|\n\ \ )<A href=[^>]++>■*</PRE>"
Limit = 20480
Match = "\7<A href="http://\5>■\6<PRE>\0"
        "(([%10-%FF]++{80,*})\1(\r|\n))+{7,*}\2"
        "(\r\r*|\n*|</PRE>)\3"
Replace = "\7<A href="http://\5>■</A>　 \n<A href="http://bweb..\5><font face=WingDings>x</font>\6\n"
          "<FONT COLOR="#AA77BB">[Strange Repeat to One]</FONT><PRE>\0<P>\n"
          "<FONT COLOR="#AA77BB">\1</FONT>\n\2\3"

同じ文字列を多数行に渡って貼り付けたものを一行に縮めます
単純に一定の文字数以上の行が連続すると反応するだけなので、
文字数({80,*})・行数({7,*)とも調整してください。






Name = "Strange NG Word Checker"
Active = TRUE
URL = "^vendemiaire.hypermart.net/cgi-bin/"
Bounds = "<PRE>*</PRE>"
Limit = 10240
Match = "\1("
        "\n([^ 　]+{2}[\s\r　]+|[\s\r　]++[^ 　]+{2})\n|(\s|\r|\n)KAS(\s|\r)|Ｋ(?| )Ａ(?| )Ｓ|[\r\n](|また)(釣|つれ)|(釣|つ)れた[！]++|(帰れ|ｲｸ)[\r\n]|(|あ―[)[\r\n]+つ[\r\n_]+ま[\r\n_]+ん[\r\n_]+(ね|ない)|"
        "ﾊﾞｰｶ[^ﾞ]|バ([%81][%5B])+{1,*}カ|(\r[> ]++{*,4}|\n)ばかじゃん|ﾁﾝｶｽ|チンカス|(ｶｽ|屑)(\r|\n)|クズ|(ﾌﾟﾙ|プル)(ﾌﾟﾙ|ｯち|ｯた|っ)|[\r\n](ウ|チ|ソ})ンコ|チ●ソ||"
        "あ―[うぜ|うぜ―[よ|?[^0-9a-z/.](KUS|UZ)(E)+{2,*}|(ｋｕｓ|ｕｚ)(ｅ)+{2,*}|(ＫＵＳ|ＵＺ)(Ｅ)+{2,*}|(^よ|ろ)うぜ(え)+{1,*}[\r\n]|[\r\n]う(ざい|ぜ)|"
        "(\r|\n)(ウザイ|ｳｾﾞ(ｪ|ｴ|)|うぜ|ウ[%83][%5B](エ|ェ|))|(ウザイ|ｳｾﾞ(ｪ|)|[^ｨｱｻﾆﾌﾙ裄跋]うぜ|ウ[%83][%5B](エ|ェ|))(\r|\n)|消えろ|失せろ|うっせ|うるせ[%81][%5B]|ねえよ(\r|\n)|"
        "[^a-z0-9.](age|sage)[^.a-z0-9]|ａｇｅ|ｓａｇｅ|ぼ[%81][%5B]ん|(逝|い)(つ|っ)て(よ|ヨ|良)(し|シ)|ITTEYOSHI|ｲｯﾃﾖｼ|ｺﾞﾙｧ|ｳﾞｫｹ|ＹＯ！[\r\n]|糞スレ|名無し|氏(ね|ん)|ﾁｬﾝｺﾛ(か|くさ|は詳|発見|死|\r|\n)|(ｷﾀ|キタ)(━|―[|ｰ|-)|ｗ(|[%20])[\r\n<]+{1,2}|"
        "(ﾓ|モ|ＭＯ)([^ｶ]|??| )(ﾅ|ナ|ＮＡ)(?|??| )(-|[%81][%7C]|[%81][%5C]|ｰ|[%81][%5B])|しる！|ｳﾏｲﾎﾞｰ|ﾜｼｮｰｲ|ﾔﾊﾟｰﾘ|(・|･|ﾟ|´|´|） )∀|▽|ω|） д|∀|―^■＼|"
        "クソ\が|[\r\n]死ね|(死ね|死ねよ|童貞)[\r\n]|[\r\n> ](は|ハ|ﾊ)(ァ|ぁ|ｧ)(\?|？)[\r\n]|ほっちゃん|糞(\r|\n)|学歴|高卒|公畜|ｦﾀ|ｱｲｵﾀ|ｷﾞｬﾊ|ギャノヽ|ｷｬﾊﾟ!|"
        "(ｸ|ﾆ)ｯﾁｬ|ﾆﾔﾆﾔ|(イ|ｲ)(ザ|ｻﾞ)(リ|ﾘ)(ン|ﾝ)|ババ(ァ|ア)|ﾊﾞﾊﾞ(ｧ|ｱ)|(\(|（)[\^＾дД]+{4,*}(\)|）)|"
        "\r\r逃げ|(\r[> ]++{*,4}|\n)臭(い|え|[%82][%A5]|エ|ェ)|臭(い|え|[%82][%A5]|エ|ェ)(\r|\n)|ｸｾｴ|[^%80-%9F](㍼|㍾)|㊥|乞食|[%89][%CE][%96][%5C]|[\r\n](↑|↓)|ﾐﾗｺﾛ|ミラコロ|"
        "ﾌﾟｯ[\r\n]|(ﾌﾟ)+{2,*}|(\r|\n|\>\s|>\s)ﾌﾟ(\r|\n)|ｹﾞﾗｹﾞﾗ|ヲプ|ｦﾌﾟ|火[%96][%5C]|(春|夏|秋|冬)厨|厨[%96][%5B]|屁(\r|\n)|"
        "(\(|（|\{|【|〔|\s|　|。|．|、|,|.)([\^;]+{2,*}[%A6-%DF]+{1,10}|ﾌﾟ|ﾌﾟｯ|w|ｗ|(wa|ゎ|韮|わ|ワ|ﾜ|ｹﾞｷﾜ|ﾏ|ge|ゲ|ｹﾞ)(フ|ラ|ら|ﾗ|ra|)|(核爆|爆|激(藁|嗤|稿))+{1,3})(\)|）|】|〕|)(\r|\n|。|</[a-z]++>)"
        ")\0\2"
Replace = "<font color="#99DD99">[NG Word]</font><P>"
          "\1<font color="#99DD99">\0</font>\2"

Name = "Strange NG Word Banisher"
Active = FALSE
Bounds = "<hr>*<PRE>*</PRE>*</blockquote>"
Limit = 10240
Match = "*<PRE>*("
        "\n([^ 　]+{2}[\s\r　]+|[\s\r　]++[^ 　]+{2})\n|(\s|\r|\n)KAS(\s|\r)|Ｋ(?| )Ａ(?| )Ｓ|[\r\n](|また)(釣|つれ)|(釣|つ)れた[！]++|(帰れ|ｲｸ)[\r\n]|(|あ―[)[\r\n]+つ[\r\n_]+ま[\r\n_]+ん[\r\n_]+(ね|ない)|"
        "ﾊﾞｰｶ[^ﾞ]|バ([%81][%5B])+{1,*}カ|(\r[> ]++{*,4}|\n)ばかじゃん|ﾁﾝｶｽ|チンカス|(ｶｽ|屑)(\r|\n)|クズ|(ﾌﾟﾙ|プル)(ﾌﾟﾙ|ｯち|ｯた|っ)|[\r\n](ウ|チ|ソ})ンコ|チ●ソ||"
        "あ―[うぜ|うぜ―[よ|?[^0-9a-z/.](KUS|UZ)(E)+{2,*}|(ｋｕｓ|ｕｚ)(ｅ)+{2,*}|(ＫＵＳ|ＵＺ)(Ｅ)+{2,*}|(^よ|ろ)うぜ(え)+{1,*}[\r\n]|[\r\n]う(ざい|ぜ)|"
        "(\r|\n)(ウザイ|ｳｾﾞ(ｪ|ｴ|)|うぜ|ウ[%83][%5B](エ|ェ|))|(ウザイ|ｳｾﾞ(ｪ|)|[^ｨｱｻﾆﾌﾙ裄跋]うぜ|ウ[%83][%5B](エ|ェ|))(\r|\n)|消えろ|失せろ|うっせ|うるせ[%81][%5B]|ねえよ(\r|\n)|"
        "[^a-z0-9.](age|sage)[^.a-z0-9]|ａｇｅ|ｓａｇｅ|ぼ[%81][%5B]ん|(逝|い)(つ|っ)て(よ|ヨ|良)(し|シ)|ITTEYOSHI|ｲｯﾃﾖｼ|ｺﾞﾙｧ|ｳﾞｫｹ|ＹＯ！[\r\n]|糞スレ|名無し|氏(ね|ん)|ﾁｬﾝｺﾛ(か|くさ|は詳|発見|死|\r|\n)|(ｷﾀ|キタ)(━|―[|ｰ|-)|ｗ(|[%20])[\r\n<]+{1,2}|"
        "(ﾓ|モ|ＭＯ)([^ｶ]|??| )(ﾅ|ナ|ＮＡ)(?|??| )(-|[%81][%7C]|[%81][%5C]|ｰ|[%81][%5B])|しる！|ｳﾏｲﾎﾞｰ|ﾜｼｮｰｲ|ﾔﾊﾟｰﾘ|(・|･|ﾟ|´|´|） )∀|▽|ω|） д|∀|―^■＼|"
        "クソ\が|[\r\n]死ね|(死ね|死ねよ|童貞)[\r\n]|[\r\n> ](は|ハ|ﾊ)(ァ|ぁ|ｧ)(\?|？)[\r\n]|ほっちゃん|糞(\r|\n)|学歴|高卒|公畜|ｦﾀ|ｱｲｵﾀ|ｷﾞｬﾊ|ギャノヽ|ｷｬﾊﾟ!|"
        "(ｸ|ﾆ)ｯﾁｬ|ﾆﾔﾆﾔ|(イ|ｲ)(ザ|ｻﾞ)(リ|ﾘ)(ン|ﾝ)|ババ(ァ|ア)|ﾊﾞﾊﾞ(ｧ|ｱ)|(\(|（)[\^＾дД]+{4,*}(\)|）)|"
        "\r\r逃げ|(\r[> ]++{*,4}|\n)臭(い|え|[%82][%A5]|エ|ェ)|臭(い|え|[%82][%A5]|エ|ェ)(\r|\n)|ｸｾｴ|[^%80-%9F](㍼|㍾)|㊥|乞食|[%89][%CE][%96][%5C]|[\r\n](↑|↓)|ﾐﾗｺﾛ|ミラコロ|"
        "ﾌﾟｯ[\r\n]|(ﾌﾟ)+{2,*}|(\r|\n|\>\s|>\s)ﾌﾟ(\r|\n)|ｹﾞﾗｹﾞﾗ|ヲプ|ｦﾌﾟ|火[%96][%5C]|(春|夏|秋|冬)厨|厨[%96][%5B]|屁(\r|\n)|"
        "(\(|（|\{|【|〔|\s|　|。|．|、|,|.)([\^;]+{2,*}[%A6-%DF]+{1,10}|ﾌﾟ|ﾌﾟｯ|w|ｗ|(wa|ゎ|韮|わ|ワ|ﾜ|ｹﾞｷﾜ|ﾏ|ge|ゲ|ｹﾞ)(フ|ラ|ら|ﾗ|ra|)|(核爆|爆|激(藁|嗤|稿))+{1,3})(\)|）|】|〕|)(\r|\n|。|</[a-z]++>)"
        ")*PRE>*"

投稿内容に特定の語が含まれる場合それを消去します
Checkerでどんなものに反応するかを理解してから使用するのがいいでしょう
NG Wordを含んだ投稿に対するレスにも反応しないようにするには一行目を
Match = "*<PRE>*(\r\r*|\n*)*("








Name = "Strange Kusoama Checker"
Active = TRUE
Bounds = "<PRE>*</PRE>"
Limit = 2048
Match = "\1("
        "(k(?| )u|<|＜|く|ク|ｸ|9|９|⑨|ⅸ|Ⅸ|苦|喰|区|九|倶|玖|矩|駈|駆|久|供|狗|躯|駒|孔|工|貢|紅|糞)"
        "([%1F-%7F%A1-%DF]+{1,2}|[　│\r・\)\(（）;\'’`｀´\^＾Дд\-[%81][%5B][%5C]＿ρ_ヽノﾟ∀。￢人\*＊]+{0,10})"
        "(s(?| )o|そ|[%83][%5C]|ｿ|ン|ﾝ|リ|ﾘ|ノ|ﾉ|祖|疎|租|素|蘇|訴|疏||噌|岨|姐|塑|遡|會|甦|狙|礎|組|阻|鼠|粗|[%91][%5B-%5E])"
        "([%1F-%7F%A1-%DF]+{1,2}|[　|│|\r|・|\)|\(|（|）|;|\'|’|`|´|\^|＾|Д|д|\-|[%81][%5B]|[%81][%5C]|＿|ρ|_|｀|ヽ|ノ|ﾟ|∀|。|￢|人|\*|＊]+{0,10})"
        "(a|あ|ぁ|ア|ｱ|ァ|ｧ|亜|阿|亞|唖|吾|海|[%8F]|[%93])"
        "([%1F-%7F%A1-%DF]+{1,2}|[　|│|\r|・|\)|\(|（|）|;|\'|’|`|´|\^|＾|Д|д|\-|[%81][%5B]|[%81][%5C]|＿|ρ|_|｀|ヽ|ノ|ﾟ|∀|。|￢|人|\*|＊]+{0,10})"
        "(m(?| )a|ま|[%83][%7D]|ﾏ|魔|間|摩|磨|麻|馬|痲|[%90][%5E]|眞|[%97]|[%F2]|[%56])|"
        "ク[ア\\\} @＊]+{6,8}|"
        "[ク @＊\\]+{3,4}[%5C][ア\} @＊]+{4,6}|"
        "[ク @＊]+{6,8}ア[[%83]\} @＊]+{2,3}|"
        "[クA @＊\\]+{7,9}[%7D]"
        ")\0\2"
Replace = "<font color="#cc3333">[Kusoama]</font><P>"
          "\1<font color="#cc3333">\0</font>\2"

Name = "Strange Kusoama Banisher"
Active = FALSE
URL = "jo.st45.arena.ne.jp/cgi-bin/"
Bounds = "<hr>*<PRE>*</PRE>*</blockquote>(</p>|)"
Limit = 4096
Match = "*<PRE>*("
        "(k(?| )u|<|＜|く|ク|ｸ|9|９|⑨|ⅸ|Ⅸ|苦|喰|区|九|倶|玖|矩|駈|駆|久|供|狗|躯|駒|孔|工|貢|紅|糞)"
        "([%1F-%7F%A1-%DF]+{1,2}|[　|│|\r|・|\)|\(|（|）|;|\'|’|`|´|\^|＾|Д|д|\-|[%81][%5B]|[%81][%5C]|＿|ρ|_|｀|ヽ|ノ|ﾟ|∀|。|￢|人|\*|＊]+{0,10})"
        "(s(?| )o|そ|[%83][%5C]|ｿ|ン|ﾝ|リ|ﾘ|ノ|ﾉ|祖|疎|租|素|蘇|訴|疏||噌|岨|姐|塑|遡|會|甦|狙|礎|組|阻|鼠|粗|[%91][%5B-%5E])"
        "(?|??|[　|│|\r|・|\)|\(|（|）|;|\'|’|`|´|\^|Д|\-|[%81][%5B]|[%81][%5C]|＿|ρ|_|｀|ヽ|ノ|ﾟ|∀|。|￢|人|\*|＊]+)"
        "(a|あ|ぁ|ア|ｱ|ァ|ｧ|亜|阿|亞|唖|吾|海|[%8F]|[%93])"
        "(?|??|[　|│|\r|・|\)|\(|（|）|;|\'|’|`|´|\^|Д|\-|[%81][%5B]|[%81][%5C]|＿|ρ|_|｀|ヽ|ノ|ﾟ|∀|。|￢|人|\*|＊]+)"
        "(m(?| )a|ま|[%83][%7D]|ﾏ|魔|間|摩|磨|麻|馬|痲|[%90][%5E]|眞|[%97]|[%F2]|[%56])|"
        "ク([%83][%5C]|)[ @＊]+{4,8}|"
        "[ @＊]+{2,10}([%83][%5C]|)ア([ @＊]+{1,2}|"
        "[%83][%7D])|[ @＊]+{4,10}(ア|)[%83][%7D]|"
        "(ク|[ @＊]+{2,6})[%83][%5C][ @＊]+{2,6}[%83][%7D]"
        ")*</PRE>*"

ク　アマなどの表示を消します





Name = "Strange Locked Name Banisher"
Active = TRUE
Bounds = "<FONT[^>]+><B>*</B>*</blockquote>*<HR>"
Limit = 4096
Match = "*<B>("
        "(|＞|> )(Ｂａｙ|OFF|[%8B][%5B]古＠不死那魅|貴族Ａ)"
        ")</B>*"



投稿者に指定の名前がある場合投稿そのものを消去します
Proxomitronの予約文字があるかどうか事前にチェックしてから追加しましょう





Name = "TEXTAREA show Formal Font"
Active = TRUE
Bounds = "<(/|)TEXTAREA*>"
Limit = 64
Match = "<TEXTAREA\0> $SET(1=<FONT FACE="ＭＳ 明朝">\n<TEXTAREA\0>)|"
        "</TEXTAREA> $SET(1=</TEXTAREA>\n</FONT>)"
Replace = "\1"


TEXTAREAを非プロポーショナルフォントで表示します
プロポーショナルフォントを使っている場合、
空白を連ねた後~~~~などで指定するのがずれるのを防ぎます






Name = "Strange Thumbnail"
Active = TRUE
Limit = 256
Match = "<A href="*.(jpg|jpeg|gif|png)"*>([^<]++)\1</a>"
Replace = "<a href="\1" target="_brank"><img src="\1"></a>"

本店で誰かが出したので改良
画像リンクを投稿中にそのまま表示、ENV踏むのがいやならOutHeaderFilterで殺しとけばOK



Name = "Strange Thumbnail SWF"
Active = TRUE
Limit = 256
Match = "<A href="[^>]++.(swf)"[^>]++>([^<]++)\1</a>"
Replace = "<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="300" HEIGHT="200">"
          " <PARAM NAME=movie VALUE="\1"> <PARAM NAME=quality VALUE=best> <PARAM NAME=devicefont VALUE=true> "
          "<PARAM NAME=bgcolor VALUE=#B9B931> <EMBED src="\1" quality=best devicefont=true bgcolor=#B9B931 WIDTH="300" HEIGHT="200""
          " TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT>"

Flashもプレビュー的に表示
サイズは適当に調整してくれ






Name = "TENTORI UZEE no Killer"
Active = TRUE
URL = "strangeworld-honten.com/cgi-bin/"
Limit = 512
Match = "点取り占い：[^<]++(自殺|手メコ|孤高|うんこ|ＣＸ|　UUJ|ﾁｬﾝｺﾛ|∀|俺様ばかじゃん|ヒロソ|ン|失せろ)\0[^<]++[0-9]++点"
Replace = "(´ー｀) <DEL><S><font color="303C6D">\0</font></S></DEL>"

点取り占いでキ○ガイが投稿したのを置き換えます
反転させると何に反応したかがわかります





Name = "Strange Bottom URL-Tools Ad "
Active = TRUE
Bounds = "<(|/)BODY*>"
Limit = 128
Match = "$URL(\9)<BODY\1> $SET(0 = <BODY\1>\n<A NAME="TOP"></A>\n)|"
        "</BODY> $SET(0 = <P><CENTER><FONT SIZE=2>"
        "<a href="#TOP">TOP</a> \n"
        "<a href="\p" accesskey=3>? CUT</a> \n"
        "<a href="" target=_blank accesskey=1>0UP</a> \n"
        "<a href="../" target=_blank accesskey=2>1UP</a> \n"
        "<a href="../../" target=_blank accesskey=3>2UP</a> \n | "
        "<a href="http://dbug..\h\p\q" target=_blank accesskey=D>dbug</a> \n"
        "<a href="http://bypass..\h\p\q" accesskey=B>bypass</a> \n"
        "<a href="http://bweb..\h\p\q" accesskey=B>bweb</a> \n"
        "<a href="http://bout..\h\p\q" accesskey=B>bout</a> \n"
        "<a href="http://src..\h\p\q" target=_blank accesskey=S>src</a> \n"
        "<a href="http://src..bweb..\h\p\q" target=_blank accesskey=S>src & bweb</a> \n | "
        "<a href="http://www.google.com/intl/ja/" target=_blank accesskey=G>Google</a> \n"
        "</FONT></CENTER>"
        "</BODY>)"
Replace = "\0"

あやしい用。?CUTはあやわーに近づかない様にBookmarkやWWWCから抹消しといたのに
Googleで検索して辿りついて、それからまた止めて、その後もう一度来たくなって履歴見たけど
レスのURLしか見つからず直接bbs.cgiに行けない場合に役に立つ。なんだそりゃ。
index
apmit@wam.co.za
